| /petsc/src/dm/dt/interface/ |
| H A D | dtds.c | 62 PetscErrorCode PetscDSSetType(PetscDS prob, PetscDSType name) in PetscDSSetType() argument 68 PetscValidHeaderSpecific(prob, PETSCDS_CLASSID, 1); in PetscDSSetType() 69 PetscCall(PetscObjectTypeCompare((PetscObject)prob, name, &match)); in PetscDSSetType() 74 …PetscCheck(r, PetscObjectComm((PetscObject)prob), PETSC_ERR_ARG_UNKNOWN_TYPE, "Unknown PetscDS typ… in PetscDSSetType() 76 PetscTryTypeMethod(prob, destroy); in PetscDSSetType() 77 prob->ops->destroy = NULL; in PetscDSSetType() 79 PetscCall((*r)(prob)); in PetscDSSetType() 80 PetscCall(PetscObjectChangeTypeName((PetscObject)prob, name)); in PetscDSSetType() 99 PetscErrorCode PetscDSGetType(PetscDS prob, PetscDSType *name) in PetscDSGetType() argument 102 PetscValidHeaderSpecific(prob, PETSCDS_CLASSID, 1); in PetscDSGetType() [all …]
|
| /petsc/src/ts/tutorials/ |
| H A D | ex48.c | 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() [all …]
|
| H A D | ex77.c | 349 PetscDS prob; in SetupProblem() local 356 PetscCall(DMGetDS(dm, &prob)); in SetupProblem() 359 PetscCall(PetscDSSetResidual(prob, 0, f0_trig_trig_v, f1_v)); in SetupProblem() 360 PetscCall(PetscDSSetResidual(prob, 2, f0_trig_trig_w, f1_w)); in SetupProblem() 370 …SETERRQ(PetscObjectComm((PetscObject)prob), PETSC_ERR_ARG_WRONG, "Unsupported solution type: %s (%… in SetupProblem() 373 PetscCall(PetscDSSetResidual(prob, 1, f0_q, NULL)); in SetupProblem() 375 PetscCall(PetscDSSetJacobian(prob, 0, 0, g0_vu, g1_vu, NULL, g3_vu)); in SetupProblem() 376 PetscCall(PetscDSSetJacobian(prob, 0, 1, NULL, NULL, g2_vp, NULL)); in SetupProblem() 377 PetscCall(PetscDSSetJacobian(prob, 1, 0, NULL, g1_qu, NULL, NULL)); in SetupProblem() 378 PetscCall(PetscDSSetJacobian(prob, 2, 0, g0_wu, NULL, NULL, NULL)); in SetupProblem() [all …]
|
| H A D | ex18.c | 588 PetscDS prob; in SetupBC() local 674 PetscCall(DMGetDS(dm, &prob)); in SetupBC() 676 PetscCall(PetscDSSetExactSolution(prob, 0, exactFuncs[0], user)); in SetupBC() 677 PetscCall(PetscDSSetExactSolution(prob, 1, exactFuncs[1], user)); in SetupBC() 696 PetscDS prob; in SetupProblem() local 703 PetscCall(DMGetDS(dm, &prob)); in SetupProblem() 706 PetscCall(PetscDSSetResidual(prob, 0, f0_zero_u, f1_constant_u)); in SetupProblem() 709 PetscCall(PetscDSSetResidual(prob, 0, f0_constant_u, f1_constant_u)); in SetupProblem() 710 PetscCall(PetscDSSetJacobian(prob, 0, 0, g0_constant_uu, NULL, NULL, NULL)); in SetupProblem() 711 PetscCall(PetscDSSetJacobian(prob, 1, 1, g0_constant_pp, NULL, NULL, NULL)); in SetupProblem() [all …]
|
| H A D | ex11.c | 263 static PetscErrorCode SetUpBC_Advect(DM dm, PetscDS prob, Physics phys) in SetUpBC_Advect() argument 271 …PetscCall(PetscDSAddBoundary(prob, DM_BC_NATURAL_RIEMANN, "inflow", label, PETSC_STATIC_ARRAY_LENG… in SetUpBC_Advect() 272 …PetscCall(PetscDSAddBoundary(prob, DM_BC_NATURAL_RIEMANN, "outflow", label, PETSC_STATIC_ARRAY_LEN… in SetUpBC_Advect() 376 static PetscErrorCode SetUpBC_SW(DM dm, PetscDS prob, Physics phys) in SetUpBC_SW() argument 383 …PetscCall(PetscDSAddBoundary(prob, DM_BC_NATURAL_RIEMANN, "wall", label, PETSC_STATIC_ARRAY_LENGTH… in SetUpBC_SW() 577 static PetscErrorCode SetUpBC_Euler(DM dm, PetscDS prob, Physics phys) in SetUpBC_Euler() argument 586 …PetscCall(PetscDSAddBoundary(prob, DM_BC_NATURAL_RIEMANN, "wall", label, PETSC_STATIC_ARRAY_LENGTH… in SetUpBC_Euler() 589 …PetscCall(PetscDSAddBoundary(prob, DM_BC_NATURAL_RIEMANN, "wall", label, PETSC_STATIC_ARRAY_LENGTH… in SetUpBC_Euler() 1238 PetscDS prob; in main() local 1428 PetscCall(DMGetDS(dm, &prob)); in main() [all …]
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex39.c | 338 PetscDS prob; in SetupProblem() local 343 PetscCall(DMGetDS(dm, &prob)); in SetupProblem() 345 PetscCall(PetscDSSetResidual(prob, 1, f0_q, NULL)); in SetupProblem() 346 PetscCall(PetscDSSetResidual(prob, 2, f0_w, NULL)); in SetupProblem() 347 PetscCall(PetscDSSetJacobian(prob, 0, 0, g0_vu, NULL, NULL, NULL)); in SetupProblem() 348 PetscCall(PetscDSSetJacobian(prob, 1, 0, NULL, g1_qu, NULL, NULL)); in SetupProblem() 349 PetscCall(PetscDSSetJacobian(prob, 1, 1, g0_qp, NULL, NULL, NULL)); in SetupProblem() 350 PetscCall(PetscDSSetJacobian(prob, 2, 0, NULL, g1_wu, NULL, NULL)); in SetupProblem() 351 PetscCall(PetscDSSetJacobian(prob, 2, 1, g0_wp, NULL, NULL, NULL)); in SetupProblem() 352 PetscCall(PetscDSSetJacobian(prob, 2, 2, g0_wd, NULL, NULL, NULL)); in SetupProblem() [all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex76.c | 353 PetscDS prob; in SetupProblem() local 360 PetscCall(DMGetDS(dm, &prob)); in SetupProblem() 363 PetscCall(PetscDSSetResidual(prob, 0, f0_quadratic_v, f1_v)); in SetupProblem() 364 PetscCall(PetscDSSetResidual(prob, 2, f0_quadratic_w, f1_w)); in SetupProblem() 371 PetscCall(PetscDSSetResidual(prob, 0, f0_cubic_v, f1_v)); in SetupProblem() 372 PetscCall(PetscDSSetResidual(prob, 2, f0_cubic_w, f1_w)); in SetupProblem() 379 …SETERRQ(PetscObjectComm((PetscObject)prob), PETSC_ERR_ARG_WRONG, "Unsupported solution type: %s (%… in SetupProblem() 382 PetscCall(PetscDSSetResidual(prob, 1, f0_q, NULL)); in SetupProblem() 384 PetscCall(PetscDSSetJacobian(prob, 0, 0, g0_vu, g1_vu, NULL, g3_vu)); in SetupProblem() 385 PetscCall(PetscDSSetJacobian(prob, 0, 1, NULL, NULL, g2_vp, NULL)); in SetupProblem() [all …]
|
| H A D | ex56.c | 302 PetscDS prob; in main() local 312 PetscCall(DMGetDS(dm, &prob)); in main() 315 PetscCall(PetscDSSetJacobian(prob, 0, 0, NULL, NULL, NULL, g3_uu_3d)); in main() 316 PetscCall(PetscDSSetResidual(prob, 0, f0_u_x4, f1_u_3d)); in main() 320 PetscCall(PetscDSSetJacobian(prob, 0, 0, NULL, NULL, NULL, g3_uu_3d_alpha)); in main() 321 PetscCall(PetscDSSetResidual(prob, 0, f0_u, f1_u_3d_alpha)); in main() 324 …PetscCall(PetscDSGetBoundary(prob, bd, &wf, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, … in main() 327 PetscCall(PetscDSSetJacobian(prob, 0, 0, NULL, NULL, NULL, g3_lap)); in main() 328 PetscCall(PetscDSSetResidual(prob, 0, f0_u_x4, f1_u_lap)); in main() 330 PetscCall(PetscDSSetJacobian(prob, 0, 0, NULL, NULL, NULL, g3_lap_alpha)); in main() [all …]
|
| /petsc/src/ts/utils/dmplexlandau/tutorials/ |
| H A D | ex2.c | 149 PetscDS prob; in testSpitzer() local 169 PetscCall(DMGetDS(plexe, &prob)); in testSpitzer() 170 PetscCall(PetscDSSetConstants(prob, 2, &q[0])); in testSpitzer() 171 PetscCall(PetscDSSetObjective(prob, 0, &f0_jz_sum)); in testSpitzer() 175 PetscCall(DMGetDS(plexi, &prob)); in testSpitzer() 176 PetscCall(PetscDSSetConstants(prob, 1, &q[1])); in testSpitzer() 177 PetscCall(PetscDSSetObjective(prob, 0, &f0_jz_sum)); in testSpitzer() 182 PetscCall(DMGetDS(plexe, &prob)); in testSpitzer() 183 PetscCall(PetscDSSetConstants(prob, 1, user)); in testSpitzer() 184 PetscCall(PetscDSSetObjective(prob, 0, &f0_n)); in testSpitzer() [all …]
|
| H A D | ex1.c | 257 PetscDS prob; in Monitor() local 262 PetscCall(DMGetDS(dm, &prob)); in Monitor() 264 PetscCall(PetscDSSetObjective(prob, 0, &f0_n)); in Monitor() 268 PetscCall(PetscDSSetObjective(prob, 0, &f0_vz)); in Monitor() 272 PetscCall(PetscDSSetConstants(prob, 2, user)); in Monitor() 273 PetscCall(PetscDSSetObjective(prob, 0, &f0_v2_shift)); in Monitor() 278 PetscCall(PetscDSSetConstants(prob, 2, user)); in Monitor() 279 PetscCall(PetscDSSetObjective(prob, 0, &f0_v2_par_shift)); in Monitor() 284 PetscCall(PetscDSSetConstants(prob, 2, user)); in Monitor() 285 PetscCall(PetscDSSetObjective(prob, 0, &f0_v2_perp)); in Monitor()
|
| /petsc/src/dm/dt/interface/ftn-custom/ |
| H A D | zdsf.c | 22 PETSC_EXTERN void petscdssetriemannsolver_(PetscDS *prob, PetscInt *f, void (*rs)(PetscInt *, Petsc… in petscdssetriemannsolver_() argument 24 …*ierr = PetscObjectSetFortranCallback((PetscObject)*prob, PETSC_FORTRAN_CALLBACK_CLASS, &riemannso… in petscdssetriemannsolver_() 26 *ierr = PetscDSSetRiemannSolver(*prob, *f, ourriemannsolver); in petscdssetriemannsolver_()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexfvm.c | 60 PetscDS prob; in DMPlexReconstructGradients_Internal() local 70 PetscCall(DMGetDS(dm, &prob)); in DMPlexReconstructGradients_Internal() 71 PetscCall(PetscDSGetNumFields(prob, &nFields)); in DMPlexReconstructGradients_Internal() 72 PetscCall(PetscDSGetFieldIndex(prob, (PetscObject)fvm, &field)); in DMPlexReconstructGradients_Internal() 73 PetscCall(PetscDSGetFieldSize(prob, field, &dof)); in DMPlexReconstructGradients_Internal() 174 PetscDS prob; in DMPlexReconstructGradientsFVM() local 184 PetscCall(DMGetDS(dm, &prob)); in DMPlexReconstructGradientsFVM() 185 PetscCall(PetscDSGetNumFields(prob, &Nf)); in DMPlexReconstructGradientsFVM() 190 PetscCall(PetscDSGetDiscretization(prob, f, &obj)); in DMPlexReconstructGradientsFVM()
|
| H A D | plexfem.c | 1041 PetscDS prob; in DMPlexInsertBoundaryValuesRiemann() local 1056 PetscCall(DMGetDS(dm, &prob)); in DMPlexInsertBoundaryValuesRiemann() 1066 PetscCall(PetscDSGetDiscretization(prob, field, (PetscObject *)&fv)); in DMPlexInsertBoundaryValuesRiemann() 1144 PetscDS prob; in DMPlexInsertBoundaryValues_Plex() local 1148 PetscCall(DMGetDS(dm, &prob)); in DMPlexInsertBoundaryValues_Plex() 1149 PetscCall(PetscDSGetNumBoundary(prob, &numBd)); in DMPlexInsertBoundaryValues_Plex() 1151 PetscCall(PetscDSUpdateBoundaryLabels(prob, dm)); in DMPlexInsertBoundaryValues_Plex() 1166 …PetscCall(PetscDSGetBoundary(prob, b, &wf, &type, &name, &label, &numids, &ids, &field, &Nc, &comp… in DMPlexInsertBoundaryValues_Plex() 1206 PetscDS prob; in DMPlexInsertTimeDerivativeBoundaryValues_Plex() local 1211 PetscCall(DMGetDS(dm, &prob)); in DMPlexInsertTimeDerivativeBoundaryValues_Plex() [all …]
|
| /petsc/src/dm/impls/plex/ftn-custom/ |
| H A D | zplexfemf90.c | 23 PetscDS prob; in dmplexgetcellfields_() local 31 *ierr = DMGetDS(*dm, &prob); in dmplexgetcellfields_() 33 *ierr = PetscDSGetTotalDimension(prob, &totDim); in dmplexgetcellfields_() 75 PetscDS prob; in dmplexgetfacefields_() local 81 *ierr = DMGetDS(*dm, &prob); in dmplexgetfacefields_() 83 *ierr = PetscDSGetTotalDimension(prob, &totDim); in dmplexgetfacefields_()
|
| /petsc/src/ts/impls/mimex/ |
| H A D | mimex.c | 79 PetscDS prob; in SNESTSFormFunction_Mimex() local 87 PetscCall(DMGetDS(dm, &prob)); in SNESTSFormFunction_Mimex() 89 PetscCall(PetscDSGetNumFields(prob, &Nf)); in SNESTSFormFunction_Mimex() 98 PetscCall(PetscDSGetImplicit(prob, f, &implicit)); in SNESTSFormFunction_Mimex() 147 PetscDS prob; in TSStep_Mimex_Split() local 156 PetscCall(DMGetDS(dm, &prob)); in TSStep_Mimex_Split() 158 PetscCall(PetscDSGetNumFields(prob, &Nf)); in TSStep_Mimex_Split() 170 PetscCall(PetscDSGetImplicit(prob, f, &implicit)); in TSStep_Mimex_Split() 192 PetscCall(PetscDSGetImplicit(prob, f, &implicit)); in TSStep_Mimex_Split()
|
| /petsc/config/ |
| H A D | report_tests.py | 226 for prob in testsuite['problems'].keys(): 227 p = testsuite['problems'][prob] 270 for prob in testsuite['problems'].keys(): 271 p = testsuite['problems'][prob] 273 p['classname'], prob, p['time']))
|
| /petsc/src/sys/classes/random/tests/ |
| H A D | ex3.c | 11 static PetscErrorCode PoissonTailProbability(PetscReal lambda, PetscInt Y, PetscReal *prob) in PoissonTailProbability() argument 27 *prob = p; in PoissonTailProbability()
|
| /petsc/src/mat/tests/ |
| H A D | ex76.c | 10 PetscInt n, mbs = 16, bs = 1, nz = 3, prob = 1, i, j, col[3], block, row, Ii, J, n1, lvl; in main() local 44 PetscCall(PetscOptionsGetInt(NULL, NULL, "-test_problem", &prob, NULL)); in main() 45 if (prob == 1) { /* tridiagonal matrix */ in main() 74 } else if (prob == 2) { /* matrix for the five point stencil */ in main()
|
| H A D | ex75.c | 12 … n1, block, row, i, j, i2, j2, Ii, J, rstart, rend, bs = 1, mbs = 16, d_nz = 3, o_nz = 3, prob = 1; in main() local 20 PetscCall(PetscOptionsGetInt(NULL, NULL, "-prob", &prob, NULL)); in main() 36 if (prob == 1) { /* tridiagonal matrix */ in main() 63 } else if (prob == 2) { /* matrix for the five point stencil */ in main()
|
| H A D | ex77.c | 10 PetscInt n, mbs = 16, bs = 1, nz = 3, prob = 2, i, j, col[3], row, Ii, J, n1; in main() local 40 PetscCall(PetscOptionsGetInt(NULL, NULL, "-test_problem", &prob, NULL)); in main() 41 if (prob == 1) { /* tridiagonal matrix */ in main() 73 } else if (prob == 2) { /* matrix for the five point stencil */ in main()
|
| H A D | ex74.c | 11 …PetscInt n, mbs = 16, bs = 1, nz = 3, prob = 1, i, j, k1, k2, col[3], lf, block, row, Ii, J, … in main() local 51 PetscCall(PetscOptionsGetInt(NULL, NULL, "-test_problem", &prob, NULL)); in main() 52 if (prob == 1) { /* tridiagonal matrix */ in main() 86 } else if (prob == 2) { /* matrix for the five point stencil */ in main()
|
| /petsc/src/dm/dt/fe/tests/ |
| H A D | ex1.c | 59 PetscDS prob; in SetupPrimalProblem() local 64 PetscCall(DMGetDS(dm, &prob)); in SetupPrimalProblem() 65 PetscCall(PetscDSSetResidual(prob, 0, f0_trig_u, f1_u)); in SetupPrimalProblem() 66 PetscCall(PetscDSSetJacobian(prob, 0, 0, NULL, NULL, NULL, g3_uu)); in SetupPrimalProblem() 67 PetscCall(PetscDSSetExactSolution(prob, 0, trig_u, user)); in SetupPrimalProblem()
|
| /petsc/src/dm/dt/fv/interface/ |
| H A D | fv.c | 1731 PetscErrorCode PetscFVIntegrateRHSFunction(PetscFV fvm, PetscDS prob, PetscInt field, PetscInt Nf, … in PetscFVIntegrateRHSFunction() argument 1735 …PetscTryTypeMethod(fvm, integraterhsfunction, prob, field, Nf, fgeom, neighborVol, uL, uR, fluxL, … in PetscFVIntegrateRHSFunction() 1907 static PetscErrorCode PetscFVIntegrateRHSFunction_Upwind(PetscFV fvm, PetscDS prob, PetscInt field,… in PetscFVIntegrateRHSFunction_Upwind() argument 1916 PetscCall(PetscDSGetTotalComponents(prob, &Nc)); in PetscFVIntegrateRHSFunction_Upwind() 1917 PetscCall(PetscDSGetTotalDimension(prob, &totDim)); in PetscFVIntegrateRHSFunction_Upwind() 1918 PetscCall(PetscDSGetFieldOffset(prob, field, &off)); in PetscFVIntegrateRHSFunction_Upwind() 1919 PetscCall(PetscDSGetRiemannSolver(prob, field, &riemann)); in PetscFVIntegrateRHSFunction_Upwind() 1920 PetscCall(PetscDSGetContext(prob, field, &rctx)); in PetscFVIntegrateRHSFunction_Upwind() 1921 PetscCall(PetscDSGetConstants(prob, &numConstants, &constants)); in PetscFVIntegrateRHSFunction_Upwind() 2189 static PetscErrorCode PetscFVIntegrateRHSFunction_LeastSquares(PetscFV fvm, PetscDS prob, PetscInt … in PetscFVIntegrateRHSFunction_LeastSquares() argument [all …]
|
| /petsc/src/dm/impls/swarm/tests/ |
| H A D | ex2.c | 267 PetscDS prob; in CreateParticles_Shape() local 279 PetscCall(DMGetDS(dm, &prob)); in CreateParticles_Shape() 281 PetscCall(PetscDSGetDiscretization(prob, 0, (PetscObject *)&fe)); in CreateParticles_Shape() 379 PetscDS prob; in computeFEMMoments() local 383 PetscCall(DMGetDS(dm, &prob)); in computeFEMMoments() 384 PetscCall(PetscDSSetObjective(prob, 0, &f0_1)); in computeFEMMoments() 387 PetscCall(PetscDSSetObjective(prob, 0, &f0_x)); in computeFEMMoments() 390 PetscCall(PetscDSSetObjective(prob, 0, &f0_r2)); in computeFEMMoments()
|
| /petsc/src/ksp/ksp/tutorials/network/ |
| H A D | ex2.c | 43 PetscReal maxdist = 0.0, dist, alpha, beta, prob; in random_network() local 83 prob = beta * PetscExpScalar(-dist / (maxdist * alpha)); in random_network() 85 if (value <= prob) { in random_network()
|