2   -Mx <xg>, where <xg> = number of coarse grid points in the x-direction\n\
3   -My <yg>, where <yg> = number of coarse grid points in the y-direction\n\
4   -Mz <zg>, where <zg> = number of coarse grid points in the z-direction\n\
26   GridCtx  coarse;  member
28   Mat      Ii; /* interpolation from coarse to fine */
35       Mm_ratio - ration of grid lines between fine and coarse grids.
55   /* Get size of fine grids and coarse grids */  in main()
57   user.coarse.mx = 4;  in main()
58   user.coarse.my = 4;  in main()
59   user.coarse.mz = 4;  in main()
61   PetscCall(PetscOptionsGetInt(NULL, NULL, "-Mx", &user.coarse.mx, NULL));  in main()
62   PetscCall(PetscOptionsGetInt(NULL, NULL, "-My", &user.coarse.my, NULL));  in main()
63   PetscCall(PetscOptionsGetInt(NULL, NULL, "-Mz", &user.coarse.mz, NULL));  in main()
65   if (user.coarse.mz) Test_3D = PETSC_TRUE;  in main()
67   user.fine.mx = user.ratio * (user.coarse.mx - 1) + 1;  in main()
68   user.fine.my = user.ratio * (user.coarse.my - 1) + 1;  in main()
69   user.fine.mz = user.ratio * (user.coarse.mz - 1) + 1;  in main()
73 …OMM_SELF, "coarse grids: %" PetscInt_FMT " %" PetscInt_FMT "; fine grids: %" PetscInt_FMT " %" Pet…  in main()
75 …coarse grids: %" PetscInt_FMT " %" PetscInt_FMT " %" PetscInt_FMT "; fine grids: %" PetscInt_FMT "…  in main()
124   /* Set up distributed array for coarse grid */  in main()
126 …ARY_NONE, DMDA_STENCIL_STAR, user.coarse.mx, user.coarse.my, PETSC_DECIDE, PETSC_DECIDE, 1, 1, NUL…  in main()
128 …NCIL_STAR, user.coarse.mx, user.coarse.my, user.coarse.mz, PETSC_DECIDE, PETSC_DECIDE, PETSC_DECID…  in main()
130   PetscCall(DMSetFromOptions(user.coarse.da));  in main()
131   PetscCall(DMSetUp(user.coarse.da));  in main()
133   /* Create interpolation between the fine and coarse grids */  in main()
134   PetscCall(DMCreateInterpolation(user.coarse.da, user.fine.da, &P, NULL));  in main()
180   PetscCall(DMDestroy(&user.coarse.da));  in main()