7   Mat                A, B, C, K, Ad, Bd;  in main()  local
15   PetscCall(MatCreateDense(PETSC_COMM_SELF, p, q, p, q, NULL, &Bd));  in main()
17   PetscCall(MatSetRandom(Bd, NULL));  in main()
19   PetscCall(MatFilter(Bd, 0.2, PETSC_FALSE, PETSC_FALSE));  in main()
21   PetscCall(MatConvert(Bd, MATAIJ, MAT_INITIAL_MATRIX, &B));  in main()
26   PetscCall(MatDenseGetArrayRead(Bd, &Bv));  in main()
28   PetscCall(MatDenseRestoreArrayRead(Bd, &Bv));  in main()
33   PetscCall(MatScale(Bd, 0.3));  in main()
35   PetscCall(MatDenseGetArrayRead(Bd, &Bv));  in main()
37   PetscCall(MatDenseRestoreArrayRead(Bd, &Bv));  in main()
44   PetscCall(MatDestroy(&Bd));  in main()