xref: /petsc/src/mat/tests/ex227.c (revision 2c71b3e237ead271e4f3aa1505f92bf476e3413d)
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   PetscErrorCode ierr;
11c4762a1bSJed Brown   PetscInt zero = 0;
12c4762a1bSJed Brown   PetscScalar value = 0;
13c4762a1bSJed Brown   ierr = PetscInitialize(&argc, &argv, NULL, help); if (ierr) return ierr;
14c4762a1bSJed Brown 
15c4762a1bSJed Brown   ierr = PetscOptionsGetBool(NULL, NULL, "-with_prefix",&prefix,NULL);CHKERRQ(ierr);
16c4762a1bSJed Brown   ierr = MatCreateDense(PETSC_COMM_WORLD, 1, 1, 1, 1, NULL, &mat);CHKERRQ(ierr);
17c4762a1bSJed Brown   ierr = MatSetOptionsPrefix(mat, prefix ? "prefix_" : NULL);CHKERRQ(ierr);
18c4762a1bSJed Brown   ierr = MatSetUp(mat);CHKERRQ(ierr);
19c4762a1bSJed Brown   ierr = MatSetValues(mat, 1, &zero, 1, &zero, &value, INSERT_VALUES);CHKERRQ(ierr);
20c4762a1bSJed Brown   ierr = MatAssemblyBegin(mat, MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);
21c4762a1bSJed Brown   ierr = MatAssemblyEnd(mat, MAT_FINAL_ASSEMBLY);CHKERRQ(ierr);
22c4762a1bSJed Brown   ierr = MatNullSpaceCreate(PETSC_COMM_WORLD, PETSC_TRUE, 0, NULL, &nsp);CHKERRQ(ierr);
23c4762a1bSJed Brown   ierr = MatNullSpaceTest(nsp, mat, &flg);CHKERRQ(ierr);
24*2c71b3e2SJacob Faibussowitsch   PetscCheckFalse(!flg,PETSC_COMM_WORLD,PETSC_ERR_PLIB,"Null space test failed!");
25c4762a1bSJed Brown   ierr = MatNullSpaceDestroy(&nsp);CHKERRQ(ierr);
26c4762a1bSJed Brown   ierr = MatDestroy(&mat);CHKERRQ(ierr);
27c4762a1bSJed Brown   ierr = PetscFinalize();
28c4762a1bSJed Brown   return ierr;
29c4762a1bSJed Brown }
30c4762a1bSJed Brown 
31c4762a1bSJed Brown /*TEST
32c4762a1bSJed Brown 
33c4762a1bSJed Brown    test:
34c4762a1bSJed Brown        suffix: no_prefix
35c4762a1bSJed Brown        output_file: output/ex227_no_prefix.out
36c4762a1bSJed Brown        args: -mat_null_space_test_view -mat_view
37c4762a1bSJed Brown 
38c4762a1bSJed Brown    test:
39c4762a1bSJed Brown        suffix: prefix
40c4762a1bSJed Brown        output_file: output/ex227_prefix.out
41c4762a1bSJed Brown        args: -prefix_mat_null_space_test_view -with_prefix -prefix_mat_view
42c4762a1bSJed Brown 
43c4762a1bSJed Brown TEST*/
44