7   Mat       A, B, C, D, E;  in main()  local
17   PetscCall(MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, M, M, NULL, &D));  in main()
18   PetscCall(MatSetRandom(D, NULL));  in main()
19   PetscCall(MatTranspose(D, MAT_INITIAL_MATRIX, &A));  in main()
20   PetscCall(MatAXPY(D, 1.0, A, SAME_NONZERO_PATTERN));  in main()
22   PetscCall(MatSetBlockSize(D, bs));  in main()
23   PetscCall(MatDuplicate(D, MAT_COPY_VALUES, &E));  in main()
24   PetscCall(MatViewFromOptions(D, NULL, "-input_dense"));  in main()
26     PetscCall(MatConvert(D, MATAIJ, MAT_INITIAL_MATRIX, &A));  in main()
27     PetscCall(MatConvert(D, MATBAIJ, MAT_INITIAL_MATRIX, &B));  in main()
28     PetscCall(MatConvert(D, MATSBAIJ, MAT_INITIAL_MATRIX, &C));  in main()
33       PetscCall(MatFilter(D, threshold, PETSC_FALSE, PETSC_FALSE));  in main()
41       PetscCall(MatFilter(D, threshold, PETSC_TRUE, PETSC_FALSE));  in main()
46     PetscCall(MatViewFromOptions(D, NULL, "-output_dense"));  in main()
50     PetscCall(MatMultEqual(D, A, 10, &flg));  in main()
52     PetscCall(MatMultEqual(D, B, 10, &flg));  in main()
54     PetscCall(MatMultEqual(D, C, 10, &flg));  in main()
59     PetscCall(MatDestroy(&D));  in main()
60     D = E;  in main()