5 static PetscErrorCode MatLoadComputeNorms(Mat data_mat, PetscViewer inp_viewer, PetscReal norms[])  in MatLoadComputeNorms()  argument
11   PetscCall(MatLoad(data_mat, inp_viewer));  in MatLoadComputeNorms()
12   PetscCall(MatAssemblyBegin(data_mat, MAT_FINAL_ASSEMBLY));  in MatLoadComputeNorms()
13   PetscCall(MatAssemblyEnd(data_mat, MAT_FINAL_ASSEMBLY));  in MatLoadComputeNorms()
14   PetscCall(MatViewFromOptions(data_mat, NULL, "-view_mat"));  in MatLoadComputeNorms()
16   PetscCall(MatGetSize(data_mat, &M, &N));  in MatLoadComputeNorms()
20   PetscCall(MatNorm(data_mat, NORM_1, &norms[0]));  in MatLoadComputeNorms()
21   PetscCall(MatNorm(data_mat, NORM_INFINITY, &norms[1]));  in MatLoadComputeNorms()
22   PetscCall(MatNorm(data_mat, NORM_FROBENIUS, &norms[2]));  in MatLoadComputeNorms()
26 …PetscCall(MatMatTransposeMult(data_mat, data_mat, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &corr_mat));  in MatLoadComputeNorms()
59   Mat               data_mat;  in main()  local
67   PetscCall(MatCreate(PETSC_COMM_SELF, &data_mat));  in main()
68   PetscCall(MatSetType(data_mat, MATDENSE));  in main()
69   PetscCall(PetscObjectSetName((PetscObject)data_mat, mat_name));  in main()
72   PetscCall(MatLoadComputeNorms(data_mat, inp_viewer, norms0));  in main()
75   PetscCall(MatViewFromOptions(data_mat, NULL, "-view_serial_mat"));  in main()
76   PetscCall(MatDestroy(&data_mat));  in main()
79   PetscCall(MatCreate(PETSC_COMM_WORLD, &data_mat));  in main()
80   PetscCall(MatSetType(data_mat, MATDENSE));  in main()
81   PetscCall(PetscObjectSetName((PetscObject)data_mat, mat_name));  in main()
84   PetscCall(MatLoadComputeNorms(data_mat, inp_viewer, norms1));  in main()
87   PetscCall(MatViewFromOptions(data_mat, NULL, "-view_parallel_mat"));  in main()
88   PetscCall(MatDestroy(&data_mat));  in main()