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*9371c9d4SSatish Balay int main(int argc, char **argv) { 9c4762a1bSJed Brown PetscInt M = 3, N = 4, P = 2, s = 1, w = 2, i, m = PETSC_DECIDE, n = PETSC_DECIDE, p = PETSC_DECIDE; 10c4762a1bSJed Brown DM da; 11c4762a1bSJed Brown Mat mat; 12c4762a1bSJed Brown DMDAStencilType stencil_type = DMDA_STENCIL_BOX; 13c4762a1bSJed Brown PetscBool flg = PETSC_FALSE; 14c4762a1bSJed Brown MatStencil idx[2], idy[2]; 15c4762a1bSJed Brown PetscScalar *values; 16c4762a1bSJed Brown 17327415f7SBarry Smith PetscFunctionBeginUser; 189566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, (char *)0, help)); 199566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-M", &M, NULL)); 209566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-N", &N, NULL)); 219566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-P", &P, NULL)); 229566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-m", &m, NULL)); 239566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-n", &n, NULL)); 249566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-p", &p, NULL)); 259566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-s", &s, NULL)); 269566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-w", &w, NULL)); 279566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetBool(NULL, NULL, "-star", &flg, NULL)); 28c4762a1bSJed Brown if (flg) stencil_type = DMDA_STENCIL_STAR; 29c4762a1bSJed Brown 30c4762a1bSJed Brown /* Create distributed array and get vectors */ 319566063dSJacob 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)); 329566063dSJacob Faibussowitsch PetscCall(DMSetFromOptions(da)); 339566063dSJacob Faibussowitsch PetscCall(DMSetUp(da)); 349566063dSJacob Faibussowitsch PetscCall(DMSetMatType(da, MATMPIBAIJ)); 359566063dSJacob Faibussowitsch PetscCall(DMCreateMatrix(da, &mat)); 36c4762a1bSJed Brown 37*9371c9d4SSatish Balay idx[0].i = 1; 38*9371c9d4SSatish Balay idx[0].j = 1; 39*9371c9d4SSatish Balay idx[0].k = 0; 40*9371c9d4SSatish Balay idx[1].i = 2; 41*9371c9d4SSatish Balay idx[1].j = 1; 42*9371c9d4SSatish Balay idx[1].k = 0; 43*9371c9d4SSatish Balay idy[0].i = 1; 44*9371c9d4SSatish Balay idy[0].j = 2; 45*9371c9d4SSatish Balay idy[0].k = 0; 46*9371c9d4SSatish Balay idy[1].i = 2; 47*9371c9d4SSatish Balay idy[1].j = 2; 48*9371c9d4SSatish Balay idy[1].k = 0; 499566063dSJacob Faibussowitsch PetscCall(PetscMalloc1(2 * 2 * w * w, &values)); 50c4762a1bSJed Brown for (i = 0; i < 2 * 2 * w * w; i++) values[i] = i; 519566063dSJacob Faibussowitsch PetscCall(MatSetValuesBlockedStencil(mat, 2, idx, 2, idy, values, INSERT_VALUES)); 529566063dSJacob Faibussowitsch PetscCall(MatAssemblyBegin(mat, MAT_FINAL_ASSEMBLY)); 539566063dSJacob Faibussowitsch PetscCall(MatAssemblyEnd(mat, MAT_FINAL_ASSEMBLY)); 54c4762a1bSJed Brown 55c4762a1bSJed Brown /* Free memory */ 569566063dSJacob Faibussowitsch PetscCall(PetscFree(values)); 579566063dSJacob Faibussowitsch PetscCall(MatDestroy(&mat)); 589566063dSJacob Faibussowitsch PetscCall(DMDestroy(&da)); 599566063dSJacob Faibussowitsch PetscCall(PetscFinalize()); 60b122ec5aSJacob Faibussowitsch return 0; 61c4762a1bSJed Brown } 62