5 static PetscErrorCode TransposeAXPY(Mat C, PetscScalar alpha, Mat mat, PetscErrorCode (*f)(Mat, Mat…  in TransposeAXPY()  argument
11   PetscCall(MatGetType(mat, &mtype));  in TransposeAXPY()
17   PetscCall(MatDuplicate(mat, MAT_COPY_VALUES, &C));  in TransposeAXPY()
20   PetscCall(MatAXPY(E, alpha, mat, SAME_NONZERO_PATTERN));  in TransposeAXPY()
32     PetscCall(MatTranspose(mat, MAT_INITIAL_MATRIX, &D));  in TransposeAXPY()
34     PetscCall(MatHermitianTranspose(mat, MAT_INITIAL_MATRIX, &D));  in TransposeAXPY()
37   PetscCall(MatDuplicate(mat, MAT_COPY_VALUES, &C));  in TransposeAXPY()
48   PetscCall(MatDuplicate(mat, MAT_COPY_VALUES, &C));  in TransposeAXPY()
51   PetscCall(f(mat, &F));  in TransposeAXPY()
64   PetscCall(MatConvert(mat, MATSHELL, MAT_INITIAL_MATRIX, &C));  in TransposeAXPY()
69   PetscCall(MatAXPY(F, alpha, mat, SAME_NONZERO_PATTERN));  in TransposeAXPY()
80   Mat         mat, tmat = 0;  in main()  local
106   PetscCall(MatCreate(PETSC_COMM_WORLD, &mat));  in main()
107   PetscCall(MatSetSizes(mat, PETSC_DECIDE, PETSC_DECIDE, m, n));  in main()
108   PetscCall(MatSetFromOptions(mat));  in main()
109   PetscCall(MatSetUp(mat));  in main()
110   PetscCall(MatGetOwnershipRange(mat, &rstart, &rend));  in main()
114       PetscCall(MatSetValues(mat, 1, &i, 1, &j, &v, INSERT_VALUES));  in main()
117   PetscCall(MatAssemblyBegin(mat, MAT_FINAL_ASSEMBLY));  in main()
118   PetscCall(MatAssemblyEnd(mat, MAT_FINAL_ASSEMBLY));  in main()
121   PetscCall(MatNorm(mat, NORM_FROBENIUS, &normf));  in main()
122   PetscCall(MatNorm(mat, NORM_1, &norm1));  in main()
123   PetscCall(MatNorm(mat, NORM_INFINITY, &normi));  in main()
125   PetscCall(MatView(mat, PETSC_VIEWER_STDOUT_WORLD));  in main()
130     PetscCall(MatTranspose(mat, MAT_REUSE_MATRIX, &mat)); /* in-place transpose */  in main()
131     tmat = mat;  in main()
132     mat  = NULL;  in main()
134     PetscCall(MatTranspose(mat, MAT_INITIAL_MATRIX, &tmat));  in main()
146   if (mat && !rect) {  in main()
150     PetscCall(MatAXPY(tmat, alpha, mat, DIFFERENT_NONZERO_PATTERN));  in main()
154     PetscCall(MatAYPX(tmat, alpha, mat, DIFFERENT_NONZERO_PATTERN));  in main()
162     PetscCall(MatDuplicate(mat, MAT_COPY_VALUES, &C));  in main()
163     PetscCall(MatAXPY(C, alpha, mat, SAME_NONZERO_PATTERN));  in main()
166     PetscCall(TransposeAXPY(C, alpha, mat, MatCreateTranspose));  in main()
167     PetscCall(TransposeAXPY(C, alpha, mat, MatCreateHermitianTranspose));  in main()
188     PetscCall(MatView(mat, PETSC_VIEWER_STDOUT_WORLD));  in main()
192     PetscCall(MatAXPY(mat, alpha, matB, SUBSET_NONZERO_PATTERN));  in main()
193     PetscCall(MatView(mat, PETSC_VIEWER_STDOUT_WORLD));  in main()
201   PetscCall(MatZeroRows(mat, 1, &j, 0.0, NULL, NULL));  in main()
202   PetscCall(MatView(mat, PETSC_VIEWER_STDOUT_WORLD));  in main()
206   PetscCall(MatShift(mat, -2.0));  in main()
207   PetscCall(MatView(mat, PETSC_VIEWER_STDOUT_WORLD));  in main()
211   PetscCall(MatDestroy(&mat));  in main()