| /petsc/src/tao/util/ |
| H A D | tao_util.c | 473 static inline PetscReal ST_InternalPN(PetscScalar in, PetscReal lb, PetscReal ub) in ST_InternalPN() argument 475 return PetscMax(0, PetscRealPart(in) - ub) - PetscMax(0, -PetscRealPart(in) - PetscAbsReal(lb)); in ST_InternalPN() 478 static inline PetscReal ST_InternalNN(PetscScalar in, PetscReal lb, PetscReal ub) in ST_InternalNN() argument 480 …return PetscMax(0, PetscRealPart(in) + PetscAbsReal(ub)) - PetscMax(0, -PetscRealPart(in) - PetscA… in ST_InternalNN() 483 static inline PetscReal ST_InternalPP(PetscScalar in, PetscReal lb, PetscReal ub) in ST_InternalPP() argument 485 return PetscMax(0, PetscRealPart(in) - ub) + PetscMin(0, PetscRealPart(in) - lb); in ST_InternalPP() 513 PetscErrorCode TaoSoftThreshold(Vec in, PetscReal lb, PetscReal ub, Vec out) in TaoSoftThreshold() argument 524 if (lb == ub) { in TaoSoftThreshold() 528 …PetscCheck(lb < ub, PETSC_COMM_SELF, PETSC_ERR_ARG_INCOMP, "Lower bound needs to be lower than upp… in TaoSoftThreshold() 530 if (ub >= 0 && lb < 0) { in TaoSoftThreshold() [all …]
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | eptorsion3.c | 83 Vec ub, lb; in main() local 112 PetscCall(VecDuplicate(user.y, &ub)); in main() 114 PetscCall(VecSet(ub, 0.1)); in main() 116 PetscCall(VecSetValue(ub, i, 0., INSERT_VALUES)); in main() 118 PetscCall(VecAssemblyBegin(ub)); in main() 120 PetscCall(VecAssemblyEnd(ub)); in main() 130 PetscCall(TaoSetVariableBounds(tao, lb, ub)); in main() 186 PetscCall(VecDestroy(&ub)); in main()
|
| /petsc/src/sys/objects/ |
| H A D | aoptions.c | 688 …const char man[], PetscInt currentvalue, PetscInt *value, PetscBool *set, PetscInt lb, PetscInt ub) in PetscOptionsInt_Private() argument 699 …ue <= ub, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Current value %" PetscInt_FMT " greater than… in PetscOptionsInt_Private() 712 …alue <= ub, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Newly set value %" PetscInt_FMT " greater … in PetscOptionsInt_Private() 720 …an[], PetscMPIInt currentvalue, PetscMPIInt *value, PetscBool *set, PetscMPIInt lb, PetscMPIInt ub) in PetscOptionsMPIInt_Private() argument 731 …eck(currentvalue <= ub, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Current value %d greater than … in PetscOptionsMPIInt_Private() 744 …(!wasset || *value <= ub, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Newly set value %d greater t… in PetscOptionsMPIInt_Private() 772 …t char man[], PetscReal currentvalue, PetscReal *value, PetscBool *set, PetscReal lb, PetscReal ub) in PetscOptionsReal_Private() argument 783 …entvalue <= ub, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Current value %g greater than allowed … in PetscOptionsReal_Private() 796 … || *value <= ub, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "Newly set value %g greater than allo… in PetscOptionsReal_Private()
|
| /petsc/src/tao/tutorials/ |
| H A D | ex3.c | 333 Vec u, lb, ub; in main() local 344 PetscCall(VecDuplicate(u, &ub)); in main() 346 PetscCall(VecSet(ub, 0.8)); /* a nontrivial upper bound */ in main() 351 PetscCall(TaoSetVariableBounds(tao, lb, ub)); in main() 369 PetscCall(VecDestroy(&ub)); in main()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex1.c | 218 PetscScalar ut, ub, ul, ur, u, uxx, uyy, sc, *f; in FormFunction() local 242 ub = x[row - mx]; in FormFunction() 247 uyy = (-ut + two * u - ub) * hxdhy; in FormFunction()
|
| H A D | ex1f.F90 | 37 PetscScalar ut, ub, ul, ur, u 63 ub = xx(row - mx) 68 uyy = (-ut + two*u - ub)*hxdhy
|
| /petsc/src/snes/utils/ |
| H A D | dmplexsnes.c | 1062 Vec lb, ub; in DMPlexSetSNESVariableBounds() local 1082 PetscCall(DMCreateGlobalVector(dm, &ub)); in DMPlexSetSNESVariableBounds() 1084 PetscCall(PetscObjectSetName((PetscObject)ub, "Upper Bound")); in DMPlexSetSNESVariableBounds() 1086 PetscCall(VecSet(ub, PETSC_INFINITY)); in DMPlexSetSNESVariableBounds() 1088 if (hasUpper) PetscCall(DMProjectFunction(dm, 0., ufuncs, uctxs, INSERT_VALUES, ub)); in DMPlexSetSNESVariableBounds() 1090 PetscCall(DMPlexInsertBounds(dm, PETSC_FALSE, 0., ub)); in DMPlexSetSNESVariableBounds() 1092 PetscCall(VecViewFromOptions(ub, NULL, "-dm_plex_snes_ub_view")); in DMPlexSetSNESVariableBounds() 1093 PetscCall(SNESVISetVariableBounds(snes, lb, ub)); in DMPlexSetSNESVariableBounds() 1095 PetscCall(VecDestroy(&ub)); in DMPlexSetSNESVariableBounds()
|
| /petsc/src/ts/tutorials/multirate/ |
| H A D | ex4.c | 587 PetscCall(ctx->physics2.inflow(ctx, time, ctx->xmin, ctx->ub)); in FVRHSFunction_2WaySplit() 590 for (i = -2; i < 0; i++) x[i * dof + j] = 2.0 * ctx->ub[j] - x[-(i + 1) * dof + j]; in FVRHSFunction_2WaySplit() 597 PetscCall(ctx->physics2.inflow(ctx, time, ctx->xmax, ctx->ub)); in FVRHSFunction_2WaySplit() 600 …for (i = Mx; i < Mx + 2; i++) x[i * dof + j] = 2.0 * ctx->ub[dof + j] - x[(2 * Mx - (i + 1)) * dof… in FVRHSFunction_2WaySplit() 760 PetscCall(ctx->physics2.inflow(ctx, time, ctx->xmin, ctx->ub)); in FVRHSFunctionslow_2WaySplit() 763 for (i = -2; i < 0; i++) x[i * dof + j] = 2.0 * ctx->ub[j] - x[-(i + 1) * dof + j]; in FVRHSFunctionslow_2WaySplit() 770 PetscCall(ctx->physics2.inflow(ctx, time, ctx->xmax, ctx->ub)); in FVRHSFunctionslow_2WaySplit() 773 …for (i = Mx; i < Mx + 2; i++) x[i * dof + j] = 2.0 * ctx->ub[dof + j] - x[(2 * Mx - (i + 1)) * dof… in FVRHSFunctionslow_2WaySplit() 911 PetscCall(ctx->physics2.inflow(ctx, time, ctx->xmin, ctx->ub)); in FVRHSFunctionslowbuffer_2WaySplit() 914 for (i = -2; i < 0; i++) x[i * dof + j] = 2.0 * ctx->ub[j] - x[-(i + 1) * dof + j]; in FVRHSFunctionslowbuffer_2WaySplit() [all …]
|
| H A D | finitevolume1d.h | 112 PetscReal *ub; /* Boundary data for inflow boundary conditions */ member
|
| /petsc/include/ |
| H A D | petscoptions.h | 633 …rentvalue, value, set, lb, ub) PetscOptionsInt_Private(PetscOptionsObject, opt, text, man, curr… argument 777 …rentvalue, value, set, lb, ub) PetscOptionsReal_Private(PetscOptionsObject, opt, text, man, curr… argument
|
| /petsc/src/snes/tests/ |
| H A D | ex1.c | 372 PetscScalar ut, ub, ul, ur, u, uxx, uyy, sc, *f; in FormFunction() local 402 ub = x[row - mx]; in FormFunction() 407 uyy = (-ut + two * u - ub) * hxdhy; in FormFunction()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex58.c | 43 PetscScalar lb, ub; member 127 PetscCall(VecSet(xu, ctx->ub)); in FormBounds() 479 ctx->ub = PETSC_INFINITY; in FormBoundaryConditions() 484 PetscCall(PetscOptionsGetScalar(NULL, NULL, "-ub", &ctx->ub, 0)); in FormBoundaryConditions()
|
| /petsc/src/ts/tutorials/advection-diffusion-reaction/ |
| H A D | shashi.F90 | 934 Vec x, r, lb, ub 983 PetscCallA(VecDuplicate(x, ub, ierr)) 988 PetscCallA(VecSet(ub, big, ierr)) 1010 PetscCallA(VecDestroy(ub, ierr))
|
| /petsc/src/tao/complementarity/tutorials/ |
| H A D | blackscholes.c | 264 PetscReal sval = 0.0, *xl_array, ub = PETSC_INFINITY; in ComputeVariableBounds() local 268 PetscCall(VecSet(xu, ub)); in ComputeVariableBounds()
|
| H A D | minsurf1.c | 46 PetscScalar ub = PETSC_INFINITY; /* upper bound constant */ in main() local 95 PetscCall(VecSet(xu, ub)); in main()
|
| /petsc/src/tao/bound/tutorials/ |
| H A D | plate2f.F90 | 671 PetscReal lb, ub 676 ub = PETSC_INFINITY 686 PetscCall(VecSet(xu, ub, ierr))
|
| H A D | plate2.c | 729 PetscReal *xl, lb = PETSC_NINFINITY, ub = PETSC_INFINITY; in MSA_Plate() local 743 PetscCall(VecSet(XU, ub)); in MSA_Plate()
|
| /petsc/src/dm/dt/interface/ |
| H A D | dtds.c | 2486 PetscErrorCode PetscDSGetUpperBound(PetscDS ds, PetscInt f, PetscPointBoundFn **ub, void **ctx) in PetscDSGetUpperBound() argument 2491 if (ub) { in PetscDSGetUpperBound() 2492 PetscAssertPointer(ub, 3); in PetscDSGetUpperBound() 2493 *ub = ds->upperBound[f]; in PetscDSGetUpperBound() 2517 PetscErrorCode PetscDSSetUpperBound(PetscDS ds, PetscInt f, PetscPointBoundFn *ub, PetscCtx ctx) in PetscDSSetUpperBound() argument 2523 if (ub) { in PetscDSSetUpperBound() 2524 PetscValidFunction(ub, 3); in PetscDSSetUpperBound() 2525 ds->upperBound[f] = ub; in PetscDSSetUpperBound()
|
| /petsc/src/sys/fileio/ |
| H A D | sysio.c | 746 MPI_Aint ub; in PetscDataRep_extent_fn() local 749 ierr = MPI_Type_get_extent(datatype, &ub, file_extent); in PetscDataRep_extent_fn()
|
| /petsc/src/dm/impls/da/ |
| H A D | gr2.c | 585 MPI_Aint ub, ul; in DMDAArrayMPIIO() local 631 PetscCallMPI(MPI_Type_get_extent(view, &ul, &ub)); in DMDAArrayMPIIO() 632 PetscCall(PetscViewerBinaryAddMPIIOOffset(viewer, ub)); in DMDAArrayMPIIO()
|
| /petsc/include/petsc/mpiuni/ |
| H A D | mpi.h | 479 #define MPI_Type_ub(datatype, ub) (*(ub) = MPI_sizeof(datatype), MPI_SUCCESS) argument
|
| /petsc/src/snes/tutorials/ex10d/ |
| H A D | ex10.c | 557 PetscScalar ut, ub, ul, ur, u, *g, sc, uyy, uxx; in FormFunction() local
|
| /petsc/src/mat/impls/aij/mpi/mumps/ |
| H A D | mumps.c | 96 …tscMUMPSInt currentvalue, PetscMUMPSInt *value, PetscBool *set, PetscMUMPSInt lb, PetscMUMPSInt ub) in PetscOptionsMUMPSInt_Private() argument 103 …nsInt_Private(PetscOptionsObject, opt, text, man, (PetscInt)currentvalue, &myval, &myset, lb, ub)); in PetscOptionsMUMPSInt_Private()
|