870   DM            *dms;  in PCSetUp_MG()  local
996       PetscCall(PetscMalloc1(n, &dms));  in PCSetUp_MG()
997       dms[n - 1] = pc->dm;  in PCSetUp_MG()
999       for (i = n - 2; i > -1; i--) PetscCall(DMCoarsen(dms[i + 1], MPI_COMM_NULL, &dms[i]));  in PCSetUp_MG()
1003         PetscCall(KSPSetDM(mglevels[i]->smoothd, dms[i]));  in PCSetUp_MG()
1007           PetscCall(KSPSetDM(mglevels[i]->smoothu, dms[i]));  in PCSetUp_MG()
1012           PetscCall(KSPSetDM(mglevels[i]->cr, dms[i]));  in PCSetUp_MG()
1017           PetscCall(DMCreateInterpolation(dms[i], dms[i + 1], &p, &rscale));  in PCSetUp_MG()
1023         PetscCall(DMHasCreateRestriction(dms[i], &dmhasrestrict));  in PCSetUp_MG()
1025           PetscCall(DMCreateRestriction(dms[i], dms[i + 1], &p));  in PCSetUp_MG()
1029         PetscCall(DMHasCreateInjection(dms[i], &dmhasinject));  in PCSetUp_MG()
1031           PetscCall(DMCreateInjection(dms[i], dms[i + 1], &p));  in PCSetUp_MG()
1037       for (i = n - 2; i > -1; i--) PetscCall(DMDestroy(&dms[i]));  in PCSetUp_MG()
1038       PetscCall(PetscFree(dms));  in PCSetUp_MG()