71   PetscInt  num_levels = 1, fine_level = 0;  in main()  local
89   fine_level = num_levels - 1;  in main()
157 …PetscCall(SetupDMByDegree(dm_energy, app_ctx, app_ctx->level_degrees[fine_level], PETSC_FALSE, num…  in main()
159 …PetscCall(SetupDMByDegree(dm_diagnostic, app_ctx, app_ctx->level_degrees[fine_level], PETSC_FALSE,…  in main()
203   PetscCall(VecDuplicate(U_g[fine_level], &U));  in main()
204   PetscCall(VecDuplicate(U_g[fine_level], &R));  in main()
205   PetscCall(VecDuplicate(U_g[fine_level], &F));  in main()
206   PetscCall(VecDuplicate(U_loc[fine_level], &R_loc));  in main()
207   PetscCall(VecDuplicate(U_loc[fine_level], &F_loc));  in main()
225     CeedVectorCreate(ceed, U_loc_size[fine_level], &force_ceed);  in main()
235     PetscCall(VecDuplicate(U_loc[fine_level], &bcs_loc));  in main()
237     CeedVectorCreate(ceed, U_loc_size[fine_level], &neumann_ceed);  in main()
244   PetscCall(PetscCalloc1(1, &ceed_data[fine_level]));  in main()
250 …all((*SetupLibceedFineLevel)(level_dms[fine_level], dm_energy, dm_diagnostic, ceed, app_ctx, ctx_p…  in main()
251 …               U_g_size[fine_level], U_loc_size[fine_level], force_ceed, neumann_ceed, ceed_data));  in main()
294     PetscCall(DMLocalToGlobal(level_dms[fine_level], F_loc, ADD_VALUES, F));  in main()
302     PetscCall(DMLocalToGlobal(level_dms[fine_level], bcs_loc, ADD_VALUES, neumann_bcs));  in main()
351 …                  U_g_size[fine_level] / num_comp_u, U_l_size[fine_level] / num_comp_u, num_comp_u,  in main()
358         PetscInt level = i ? fine_level : 0;  in main()
380   PetscCall(SNESSetDM(snes, level_dms[fine_level]));  in main()
405   PetscCall(PetscMemcpy(res_ctx, jacob_ctx[fine_level], sizeof(*jacob_ctx[fine_level])));  in main()
406   res_ctx->op = ceed_data[fine_level]->op_residual;  in main()
407   res_ctx->qf = ceed_data[fine_level]->qf_residual;  in main()
465 …PetscCall(SNESSetJacobian(snes, jacob_mat[fine_level], jacob_mat[fine_level], FormJacobian, form_j…  in main()
486     PetscCall(PCSetDM(pc, level_dms[fine_level]));  in main()
526         if (level != fine_level) {  in main()
639 …  PetscCall(ComputeStrainEnergy(dm_energy, res_ctx, ceed_data[fine_level]->op_energy, U, &energy));  in main()
730 …max_time, min_time, 1e-6 * U_g_size[fine_level] * ksp_its / max_time, 1e-6 * U_g_size[fine_level] …  in main()
748     CeedVectorGetArrayRead(ceed_data[fine_level]->true_soln, CEED_MEM_HOST, &true_array);  in main()
752     CeedVectorRestoreArrayRead(ceed_data[fine_level]->true_soln, &true_array);  in main()
774   PetscCall(ComputeStrainEnergy(dm_energy, res_ctx, ceed_data[fine_level]->op_energy, U, &energy));  in main()
790     diagnostic_ctx->op = ceed_data[fine_level]->op_diagnostic;  in main()
793 …Call(ViewDiagnosticQuantities(comm, level_dms[fine_level], diagnostic_ctx, app_ctx, U, ceed_data[f…  in main()