323     PetscDS     prob;  in Monitor()  local
342     PetscCall(DMGetDS(dm, &prob));  in Monitor()
344     PetscCall(PetscDSSetObjective(prob, 0, &f0_mhd_v_energy2));  in Monitor()
347     PetscCall(PetscDSSetObjective(prob, 0, &f0_mhd_B_energy2));  in Monitor()
463 static PetscErrorCode SetupProblem(PetscDS prob, DM dm, AppCtx *ctx)  in SetupProblem()  argument
469   PetscCall(PetscDSSetJacobian(prob, JZ, JZ, g0_1, NULL, NULL, NULL));  in SetupProblem()
470   PetscCall(PetscDSSetJacobian(prob, JZ, PSI, NULL, NULL, NULL, g3_n1));  in SetupProblem()
471   PetscCall(PetscDSSetResidual(prob, JZ, f0_jz, f1_jz));  in SetupProblem()
473   PetscCall(PetscDSSetJacobian(prob, PSI, JZ, g0_neta, NULL, NULL, NULL));  in SetupProblem()
475     PetscCall(PetscDSSetJacobian(prob, PSI, PSI, g0_dt, NULL, NULL,  in SetupProblem()
478     PetscCall(PetscDSSetResidual(prob, PSI, f0_psi_2f, NULL));  in SetupProblem()
480     PetscCall(PetscDSSetJacobian(prob, PSI, PSI, g0_dt, g1_phi_right, NULL, NULL));  in SetupProblem()
481     PetscCall(PetscDSSetJacobian(prob, PSI, PHI, NULL, g1_psi_left, NULL, NULL));  in SetupProblem()
482     PetscCall(PetscDSSetResidual(prob, PSI, f0_psi_4f, NULL));  in SetupProblem()
484     PetscCall(PetscDSSetJacobian(prob, PHI, PHI, NULL, NULL, NULL, g3_n1));  in SetupProblem()
485     PetscCall(PetscDSSetJacobian(prob, PHI, OMEGA, g0_1, NULL, NULL, NULL));  in SetupProblem()
486     PetscCall(PetscDSSetResidual(prob, PHI, f0_phi, f1_phi));  in SetupProblem()
488     PetscCall(PetscDSSetJacobian(prob, OMEGA, OMEGA, g0_dt, g1_phi_right, NULL, g3_nmu));  in SetupProblem()
489     PetscCall(PetscDSSetJacobian(prob, OMEGA, PSI, NULL, g1_njz_left, NULL, NULL));  in SetupProblem()
490     PetscCall(PetscDSSetJacobian(prob, OMEGA, PHI, NULL, g1_omega_left, NULL, NULL));  in SetupProblem()
491     PetscCall(PetscDSSetJacobian(prob, OMEGA, JZ, NULL, g1_npsi_right, NULL, NULL));  in SetupProblem()
492     PetscCall(PetscDSSetResidual(prob, OMEGA, f0_Omega, f1_Omega));  in SetupProblem()
502     PetscCall(PetscDSSetConstants(prob, NUM_CONSTS, scales));  in SetupProblem()
506     PetscCall(PetscDSSetImplicit(prob, f, PETSC_TRUE));  in SetupProblem()
516 …PetscCall(PetscDSAddBoundary(prob, DM_BC_ESSENTIAL, "Jz for tilt test", label, 1, &id, JZ, 0, NULL…  in SetupProblem()
517 …PetscCall(PetscDSAddBoundary(prob, DM_BC_ESSENTIAL, "Psi for tilt test", label, 1, &id, PSI, 0, NU…  in SetupProblem()
521 …PetscCall(PetscDSAddBoundary(prob, DM_BC_ESSENTIAL, "Omega for tilt test", label, 1, &id, OMEGA, 0…  in SetupProblem()
522 …PetscCall(PetscDSAddBoundary(prob, DM_BC_ESSENTIAL, "Phi for tilt test", label, 1, &id, PHI, 0, NU…  in SetupProblem()
525 …PetscCheck(0, PetscObjectComm((PetscObject)prob), PETSC_ERR_ARG_WRONG, "Unsupported test type: %s …  in SetupProblem()
527   PetscCall(PetscDSSetContext(prob, 0, ctx));  in SetupProblem()
528   PetscCall(PetscDSSetFromOptions(prob));  in SetupProblem()
537   PetscDS        prob;  in SetupDiscretization()  local
561   PetscCall(DMGetDS(dm, &prob));  in SetupDiscretization()
562   for (f = 0; f < Nf; ++f) PetscCall(PetscDSSetDiscretization(prob, f, (PetscObject)fe[f]));  in SetupDiscretization()
563   PetscCall(SetupProblem(prob, dm, ctx));  in SetupDiscretization()