xref: /petsc/src/mat/tests/ex227.c (revision b122ec5aa1bd4469eb4e0673542fb7de3f411254)
1c4762a1bSJed Brown static char help[] = "Test MatNullSpaceTest() with options prefixes.\n\n";
2c4762a1bSJed Brown 
3c4762a1bSJed Brown #include <petscmat.h>
4c4762a1bSJed Brown 
5c4762a1bSJed Brown int main(int argc, char **argv)
6c4762a1bSJed Brown {
7c4762a1bSJed Brown   Mat mat;
8c4762a1bSJed Brown   MatNullSpace nsp;
9c4762a1bSJed Brown   PetscBool prefix = PETSC_FALSE, flg;
10c4762a1bSJed Brown   PetscInt zero = 0;
11c4762a1bSJed Brown   PetscScalar value = 0;
12*b122ec5aSJacob Faibussowitsch   CHKERRQ(PetscInitialize(&argc, &argv, NULL, help));
13c4762a1bSJed Brown 
145f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscOptionsGetBool(NULL, NULL, "-with_prefix",&prefix,NULL));
155f80ce2aSJacob Faibussowitsch   CHKERRQ(MatCreateDense(PETSC_COMM_WORLD, 1, 1, 1, 1, NULL, &mat));
165f80ce2aSJacob Faibussowitsch   CHKERRQ(MatSetOptionsPrefix(mat, prefix ? "prefix_" : NULL));
175f80ce2aSJacob Faibussowitsch   CHKERRQ(MatSetUp(mat));
185f80ce2aSJacob Faibussowitsch   CHKERRQ(MatSetValues(mat, 1, &zero, 1, &zero, &value, INSERT_VALUES));
195f80ce2aSJacob Faibussowitsch   CHKERRQ(MatAssemblyBegin(mat, MAT_FINAL_ASSEMBLY));
205f80ce2aSJacob Faibussowitsch   CHKERRQ(MatAssemblyEnd(mat, MAT_FINAL_ASSEMBLY));
215f80ce2aSJacob Faibussowitsch   CHKERRQ(MatNullSpaceCreate(PETSC_COMM_WORLD, PETSC_TRUE, 0, NULL, &nsp));
225f80ce2aSJacob Faibussowitsch   CHKERRQ(MatNullSpaceTest(nsp, mat, &flg));
2328b400f6SJacob Faibussowitsch   PetscCheck(flg,PETSC_COMM_WORLD,PETSC_ERR_PLIB,"Null space test failed!");
245f80ce2aSJacob Faibussowitsch   CHKERRQ(MatNullSpaceDestroy(&nsp));
255f80ce2aSJacob Faibussowitsch   CHKERRQ(MatDestroy(&mat));
26*b122ec5aSJacob Faibussowitsch   CHKERRQ(PetscFinalize());
27*b122ec5aSJacob Faibussowitsch   return 0;
28c4762a1bSJed Brown }
29c4762a1bSJed Brown 
30c4762a1bSJed Brown /*TEST
31c4762a1bSJed Brown 
32c4762a1bSJed Brown    test:
33c4762a1bSJed Brown        suffix: no_prefix
34c4762a1bSJed Brown        output_file: output/ex227_no_prefix.out
35c4762a1bSJed Brown        args: -mat_null_space_test_view -mat_view
36c4762a1bSJed Brown 
37c4762a1bSJed Brown    test:
38c4762a1bSJed Brown        suffix: prefix
39c4762a1bSJed Brown        output_file: output/ex227_prefix.out
40c4762a1bSJed Brown        args: -prefix_mat_null_space_test_view -with_prefix -prefix_mat_view
41c4762a1bSJed Brown 
42c4762a1bSJed Brown TEST*/
43