6 static PetscErrorCode CheckValues(Mat A, PetscBool one)  in CheckValues()  argument
12   PetscCall(MatDenseGetArrayRead(A, &array));  in CheckValues()
13   PetscCall(MatDenseGetLDA(A, &lda));  in CheckValues()
14   PetscCall(MatGetSize(A, &M, &N));  in CheckValues()
15   PetscCall(MatGetOwnershipRange(A, &rstart, &rend));  in CheckValues()
24   PetscCall(MatDenseRestoreArrayRead(A, &array));  in CheckValues()
28 #define CheckValuesIJ(A)  CheckValues(A, PETSC_FALSE)  argument
29 #define CheckValuesOne(A) CheckValues(A, PETSC_TRUE)  argument
33   Mat          A;  in main()  local
46   PetscCall(MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, M, N, NULL, &A));  in main()
47   PetscCall(MatConvert(A, mattype, MAT_INPLACE_MATRIX, &A));  in main()
54       PetscCall(MatSetValues(A, 1, &i, 1, &j, &v, INSERT_VALUES));  in main()
57   PetscCall(MatAssemblyBegin(A, MAT_FINAL_ASSEMBLY));  in main()
58   PetscCall(MatAssemblyEnd(A, MAT_FINAL_ASSEMBLY));  in main()
59   PetscCall(MatScale(A, 2.0));  in main()
60   PetscCall(MatScale(A, 1.0 / 2.0));  in main()
67     PetscCall(MatView(A, view));  in main()
69     PetscCall(MatView(A, view));  in main()
73   PetscCall(MatDestroy(&A));  in main()
79   PetscCall(MatCreate(PETSC_COMM_WORLD, &A));  in main()
80   PetscCall(MatSetType(A, mattype));  in main()
82     if (i > 0) PetscCall(MatZeroEntries(A));  in main()
83     PetscCall(MatLoad(A, view));  in main()
84     PetscCall(CheckValuesIJ(A));  in main()
88   PetscCall(MatGetOwnershipRange(A, &rstart, &rend));  in main()
91   PetscCall(MatDensePlaceArray(A, array));  in main()
92   PetscCall(MatScale(A, 2.0));  in main()
93   PetscCall(MatScale(A, 1.0 / 2.0));  in main()
94   PetscCall(CheckValuesOne(A));  in main()
96   PetscCall(MatView(A, view));  in main()
97   PetscCall(MatDenseResetArray(A));  in main()
99   PetscCall(CheckValuesIJ(A));  in main()
101   PetscCall(MatView(A, view));  in main()
104   PetscCall(MatDestroy(&A));  in main()
106   PetscCall(MatCreate(PETSC_COMM_WORLD, &A));  in main()
107   PetscCall(MatSetType(A, mattype));  in main()
109   PetscCall(MatLoad(A, view));  in main()
110   PetscCall(CheckValuesOne(A));  in main()
111   PetscCall(MatZeroEntries(A));  in main()
113   PetscCall(MatLoad(A, view));  in main()
115   PetscCall(CheckValuesIJ(A));  in main()
117   PetscCall(MatDestroy(&A));  in main()
127     PetscCall(MatCreateDense(PETSC_COMM_WORLD, m, n, M, N, array, &A));  in main()
128     PetscCall(MatLoad(A, view));  in main()
129     PetscCall(CheckValuesOne(A));  in main()
131     PetscCall(MatLoad(A, view));  in main()
133     PetscCall(CheckValuesIJ(A));  in main()
134     PetscCall(MatDestroy(&A));  in main()
137     PetscCall(MatCreateDense(PETSC_COMM_WORLD, m, n, M, N, array, &A));  in main()
138     PetscCall(CheckValuesIJ(A));  in main()
139     PetscCall(MatDestroy(&A));  in main()