1c4762a1bSJed Brown 2c4762a1bSJed Brown static char help[] = "Tests MatSetValuesBlockedStencil() in 3d.\n\n"; 3c4762a1bSJed Brown 4c4762a1bSJed Brown #include <petscmat.h> 5c4762a1bSJed Brown #include <petscdm.h> 6c4762a1bSJed Brown #include <petscdmda.h> 7c4762a1bSJed Brown 8*d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv) 9*d71ae5a4SJacob Faibussowitsch { 10c4762a1bSJed Brown PetscInt M = 3, N = 4, P = 2, s = 1, w = 2, i, m = PETSC_DECIDE, n = PETSC_DECIDE, p = PETSC_DECIDE; 11c4762a1bSJed Brown DM da; 12c4762a1bSJed Brown Mat mat; 13c4762a1bSJed Brown DMDAStencilType stencil_type = DMDA_STENCIL_BOX; 14c4762a1bSJed Brown PetscBool flg = PETSC_FALSE; 15c4762a1bSJed Brown MatStencil idx[2], idy[2]; 16c4762a1bSJed Brown PetscScalar *values; 17c4762a1bSJed Brown 18327415f7SBarry Smith PetscFunctionBeginUser; 199566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, (char *)0, help)); 209566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-M", &M, NULL)); 219566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-N", &N, NULL)); 229566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-P", &P, NULL)); 239566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-m", &m, NULL)); 249566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-n", &n, NULL)); 259566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-p", &p, NULL)); 269566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-s", &s, NULL)); 279566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-w", &w, NULL)); 289566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetBool(NULL, NULL, "-star", &flg, NULL)); 29c4762a1bSJed Brown if (flg) stencil_type = DMDA_STENCIL_STAR; 30c4762a1bSJed Brown 31c4762a1bSJed Brown /* Create distributed array and get vectors */ 329566063dSJacob Faibussowitsch PetscCall(DMDACreate3d(PETSC_COMM_WORLD, DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, stencil_type, M, N, P, m, n, p, w, s, 0, 0, 0, &da)); 339566063dSJacob Faibussowitsch PetscCall(DMSetFromOptions(da)); 349566063dSJacob Faibussowitsch PetscCall(DMSetUp(da)); 359566063dSJacob Faibussowitsch PetscCall(DMSetMatType(da, MATMPIBAIJ)); 369566063dSJacob Faibussowitsch PetscCall(DMCreateMatrix(da, &mat)); 37c4762a1bSJed Brown 389371c9d4SSatish Balay idx[0].i = 1; 399371c9d4SSatish Balay idx[0].j = 1; 409371c9d4SSatish Balay idx[0].k = 0; 419371c9d4SSatish Balay idx[1].i = 2; 429371c9d4SSatish Balay idx[1].j = 1; 439371c9d4SSatish Balay idx[1].k = 0; 449371c9d4SSatish Balay idy[0].i = 1; 459371c9d4SSatish Balay idy[0].j = 2; 469371c9d4SSatish Balay idy[0].k = 0; 479371c9d4SSatish Balay idy[1].i = 2; 489371c9d4SSatish Balay idy[1].j = 2; 499371c9d4SSatish Balay idy[1].k = 0; 509566063dSJacob Faibussowitsch PetscCall(PetscMalloc1(2 * 2 * w * w, &values)); 51c4762a1bSJed Brown for (i = 0; i < 2 * 2 * w * w; i++) values[i] = i; 529566063dSJacob Faibussowitsch PetscCall(MatSetValuesBlockedStencil(mat, 2, idx, 2, idy, values, INSERT_VALUES)); 539566063dSJacob Faibussowitsch PetscCall(MatAssemblyBegin(mat, MAT_FINAL_ASSEMBLY)); 549566063dSJacob Faibussowitsch PetscCall(MatAssemblyEnd(mat, MAT_FINAL_ASSEMBLY)); 55c4762a1bSJed Brown 56c4762a1bSJed Brown /* Free memory */ 579566063dSJacob Faibussowitsch PetscCall(PetscFree(values)); 589566063dSJacob Faibussowitsch PetscCall(MatDestroy(&mat)); 599566063dSJacob Faibussowitsch PetscCall(DMDestroy(&da)); 609566063dSJacob Faibussowitsch PetscCall(PetscFinalize()); 61b122ec5aSJacob Faibussowitsch return 0; 62c4762a1bSJed Brown } 63