108   DM  da, cda;  in main()  local
130   PetscCall(DMDACreateCompatibleDMDA(da, 2, &cda));  in main()
131   PetscCall(PetscObjectCompose((PetscObject)da, "coefficientdm", (PetscObject)cda));  in main()
133   PetscCall(DMGetNamedGlobalVector(cda, "coefficient", &c));  in main()
134   PetscCall(DMGetNamedLocalVector(cda, "coefficient", &clocal));  in main()
136   PetscCall(FormDiffusionCoefficient(cda, NULL, c));  in main()
138   PetscCall(DMGlobalToLocalBegin(cda, c, INSERT_VALUES, clocal));  in main()
139   PetscCall(DMGlobalToLocalEnd(cda, c, INSERT_VALUES, clocal));  in main()
141   PetscCall(DMRestoreNamedLocalVector(cda, "coefficient", &clocal));  in main()
142   PetscCall(DMRestoreNamedGlobalVector(cda, "coefficient", &c));  in main()
159   PetscCall(DMDestroy(&cda));  in main()