12   Vec            diag;  in main()  local
27   PetscCall(MatCreateVecs(A, &diag, NULL));  in main()
28   PetscCall(VecSet(diag, 2.0));  in main()
29   PetscCall(MatCreateDiagonal(diag, &B_diag));  in main()
34   PetscCall(MatDiagonalSet(B_aij_diag, diag, INSERT_VALUES));  in main()
37   PetscCall(VecDestroy(&diag));  in main()
52   PetscCall(MatDiagonalGetDiagonal(B_diag, &diag));  in main()
53   PetscCall(MatDiagonalScale(result_diag, NULL, diag));  in main()
54   PetscCall(MatDiagonalRestoreDiagonal(B_diag, &diag));  in main()
63   PetscCall(MatDiagonalGetDiagonal(B_diag, &diag));  in main()
64   PetscCall(VecSet(diag, 3.0));  in main()
65   PetscCall(MatDiagonalSet(B_aij_diag, diag, INSERT_VALUES));  in main()
66   PetscCall(MatDiagonalRestoreDiagonal(B_diag, &diag));  in main()
73   PetscCall(MatDiagonalGetDiagonal(B_diag, &diag));  in main()
74   PetscCall(MatDiagonalScale(result_diag, NULL, diag));  in main()
75   PetscCall(MatDiagonalRestoreDiagonal(B_diag, &diag));  in main()
85   PetscCall(VecDestroy(&diag));  in main()