7 PetscErrorCode MyISView(IS *rowis, IS *colis, PetscInt gs, PetscInt ss, PetscViewer viewer)  in MyISView()  argument
13   PetscCall(PetscViewerASCIIPrintf(viewer, "Row IS %" PetscInt_FMT "\n", gs));  in MyISView()
17   PetscCall(PetscViewerASCIIPrintf(viewer, "Col IS %" PetscInt_FMT "\n", gs));  in MyISView()
30   PetscInt     nis, *cols, gnsubdomains, gsubdomainnums[1], gsubdomainperm[1], s, gs;  in main()  local
127   for (gs = 0, s = 0; gs < gnsubdomains; ++gs) {  in main()
131 …if (gs == gsubdomainnums[ss]) { /* Global subdomain gs being viewed is my subdomain with local num…  in main()
135     PetscCall(MyISView(rowis, colis, gs, ss, viewer));  in main()
151   for (gs = 0, s = 0; gs < gnsubdomains; ++gs) {  in main()
156 …if (gs == gsubdomainnums[ss]) { /* Global subdomain gs being viewed is my subdomain with local num…  in main()
182   for (gs = 0, s = 0; gs < gnsubdomains; ++gs) {  in main()
187 …if (gs == gsubdomainnums[ss]) { /* Global subdomain gs being viewed is my subdomain with local num…  in main()