23   DataCompression data_comp;  in main()  local
28   PetscCall(PetscNew(&data_comp));  in main()
31   PetscCall(Create1dLaplacian(n_nodes, &data_comp->stiff));  in main()
32   PetscCall(PetscObjectSetName((PetscObject)data_comp->stiff, "Stiffness"));  in main()
35   PetscCall(KSPCreate(PETSC_COMM_WORLD, &data_comp->kspHypre));  in main()
36   PetscCall(KSPSetType(data_comp->kspHypre, KSPRICHARDSON));  in main()
37   PetscCall(KSPGetPC(data_comp->kspHypre, &pcHypre));  in main()
41   PetscCall(PCSetOperators(pcHypre, data_comp->stiff, data_comp->stiff));  in main()
44   PetscCall(MatCreateVecs(data_comp->stiff, &x, &b));  in main()
51   PetscCall(PCGetInterpolations(pcHypre, &data_comp->num_levels, &data_comp->ProlongationOps));  in main()
52   PetscCall(PCHYPREGetCFMarkers(pcHypre, &data_comp->n_per_level, &data_comp->CFMarkers));  in main()
54   PetscCall(DataCompExportMats(data_comp));  in main()
55   PetscCall(DataCompDestroy(data_comp));  in main()
75 PetscErrorCode DataCompExportMats(DataCompression data_comp)  in DataCompExportMats()  argument
78 …PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Num levels: %" PetscInt_FMT "\n", data_comp->num_levels));  in DataCompExportMats()
80 … i = 0; i < data_comp->num_levels; i++) PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Level %" PetscInt…  in DataCompExportMats()
82   for (PetscInt i = 0; i < data_comp->num_levels - 1; i++) {  in DataCompExportMats()
84     PetscCall(PetscObjectSetName((PetscObject)data_comp->ProlongationOps[i], "P"));  in DataCompExportMats()
85     PetscCall(MatView(data_comp->ProlongationOps[i], PETSC_VIEWER_STDOUT_WORLD));  in DataCompExportMats()
89   for (PetscInt i = 0; i < data_comp->num_levels - 1; i++) {  in DataCompExportMats()
91 …PetscCall(PetscBTView(data_comp->n_per_level[i + 1], data_comp->CFMarkers[i], PETSC_VIEWER_STDOUT_…  in DataCompExportMats()
94   PetscCall(MatViewFromOptions(data_comp->stiff, NULL, "-mat_view_stiff"));  in DataCompExportMats()
99 PetscErrorCode DataCompDestroy(DataCompression data_comp)  in DataCompDestroy()  argument
102   if (data_comp == NULL) PetscFunctionReturn(PETSC_SUCCESS);  in DataCompDestroy()
103   PetscCall(MatDestroy(&data_comp->stiff));  in DataCompDestroy()
104   PetscCall(KSPDestroy(&data_comp->kspHypre));  in DataCompDestroy()
105   for (PetscInt i = 0; i < data_comp->num_levels - 1; i++) {  in DataCompDestroy()
106     PetscCall(MatDestroy(&data_comp->ProlongationOps[i]));  in DataCompDestroy()
107     PetscCall(PetscBTDestroy(&data_comp->CFMarkers[i]));  in DataCompDestroy()
109   PetscCall(PetscFree(data_comp->ProlongationOps));  in DataCompDestroy()
110   PetscCall(PetscFree(data_comp->n_per_level));  in DataCompDestroy()
111   PetscCall(PetscFree(data_comp->CFMarkers));  in DataCompDestroy()
112   PetscCall(PetscFree(data_comp));  in DataCompDestroy()