| /petsc/src/ts/adapt/impls/basic/ |
| H A D | adaptbasic.c | 4 …pt, TS ts, PetscReal h, PetscInt *next_sc, PetscReal *next_h, PetscBool *accept, PetscReal *wlte, … in TSAdaptChoose_Basic() argument 34 *accept = PETSC_TRUE; in TSAdaptChoose_Basic() 42 …if (!*accept) safety *= adapt->reject_safety; /* The last attempt also failed, shorten more aggres… in TSAdaptChoose_Basic() 45 *accept = PETSC_TRUE; in TSAdaptChoose_Basic() 48 *accept = PETSC_TRUE; in TSAdaptChoose_Basic() 51 *accept = PETSC_FALSE; in TSAdaptChoose_Basic() 55 *accept = PETSC_TRUE; in TSAdaptChoose_Basic()
|
| /petsc/src/ts/adapt/impls/glee/ |
| H A D | adaptglee.c | 8 …pt, TS ts, PetscReal h, PetscInt *next_sc, PetscReal *next_h, PetscBool *accept, PetscReal *wlte, … in TSAdaptChoose_GLEE() argument 49 *accept = PETSC_TRUE; in TSAdaptChoose_GLEE() 58 …if (!*accept) safety *= adapt->reject_safety; /* The last attempt also failed, shorten more aggres… in TSAdaptChoose_GLEE() 61 *accept = PETSC_TRUE; in TSAdaptChoose_GLEE() 64 *accept = PETSC_TRUE; in TSAdaptChoose_GLEE() 67 *accept = PETSC_FALSE; in TSAdaptChoose_GLEE() 71 *accept = PETSC_TRUE; in TSAdaptChoose_GLEE() 75 if (*accept == PETSC_TRUE && adapt->glee_use_local) { in TSAdaptChoose_GLEE()
|
| /petsc/src/ts/adapt/impls/cfl/ |
| H A D | adaptcfl.c | 3 …pt, TS ts, PetscReal h, PetscInt *next_sc, PetscReal *next_h, PetscBool *accept, PetscReal *wlte, … in TSAdaptChoose_CFL() argument 17 *accept = PETSC_TRUE; in TSAdaptChoose_CFL() 23 *accept = PETSC_FALSE; in TSAdaptChoose_CFL()
|
| /petsc/src/ts/adapt/impls/none/ |
| H A D | adaptnone.c | 3 …pt, TS ts, PetscReal h, PetscInt *next_sc, PetscReal *next_h, PetscBool *accept, PetscReal *wlte, … in TSAdaptChoose_None() argument 6 *accept = PETSC_TRUE; in TSAdaptChoose_None()
|
| /petsc/src/ts/adapt/interface/ |
| H A D | tsadapt.c | 378 …TSAdapt adapt, PetscErrorCode (*func)(TSAdapt adapt, TS ts, PetscReal t, Vec Y, PetscBool *accept)) in TSAdaptSetCheckStage() argument 914 …tChoose(TSAdapt adapt, TS ts, PetscReal h, PetscInt *next_sc, PetscReal *next_h, PetscBool *accept) in TSAdaptChoose() argument 927 PetscAssertPointer(accept, 6); in TSAdaptChoose() 933 *accept = PETSC_TRUE; in TSAdaptChoose() 953 PetscUseTypeMethod(adapt, choose, ts, h, &scheme, next_h, accept, &wlte, &wltea, &wlter); in TSAdaptChoose() 958 if (*accept && ts->exact_final_time == TS_EXACTFINALTIME_MATCHSTEP) { in TSAdaptChoose() 1004 …)->type_name, ((PetscObject)ts)->type_name, scheme, sc_name, ts->steps, *accept ? "accepted" : "re… in TSAdaptChoose() 1007 …)->type_name, ((PetscObject)ts)->type_name, scheme, sc_name, ts->steps, *accept ? "accepted" : "re… in TSAdaptChoose() 1065 PetscErrorCode TSAdaptCheckStage(TSAdapt adapt, TS ts, PetscReal t, Vec Y, PetscBool *accept) in TSAdaptCheckStage() argument 1073 PetscAssertPointer(accept, 5); in TSAdaptCheckStage() [all …]
|
| /petsc/src/ts/impls/pseudo/ |
| H A D | posindep.c | 86 PetscBool accept; in TSStep_Pseudo() local 104 PetscCall(TSAdaptCheckStage(adapt, ts, ts->ptime + ts->time_step, ts->vec_sol, &accept)); in TSStep_Pseudo() 105 if (!accept) goto reject_step; in TSStep_Pseudo() 108 PetscCall(TSAdaptChoose(adapt, ts, ts->time_step, NULL, &next_time_step, &accept)); in TSStep_Pseudo() 109 pseudo->status = accept ? TS_STEP_COMPLETE : TS_STEP_INCOMPLETE; in TSStep_Pseudo() 110 if (!accept) { in TSStep_Pseudo() 120 accept = PETSC_FALSE; in TSStep_Pseudo() 354 …pt, TS ts, PetscReal h, PetscInt *next_sc, PetscReal *next_h, PetscBool *accept, PetscReal *wlte, … in TSAdaptChoose_TSPseudo() argument 370 …scErrorCode TSAdaptCheckStage_TSPseudo(TSAdapt adapt, TS ts, PetscReal t, Vec Y, PetscBool *accept) in TSAdaptCheckStage_TSPseudo() argument 378 …ck("TSPSEUDO callback verify time step", (*pseudo->verify)(ts, Y, pseudo->verifyctx, &dt, accept)); in TSAdaptCheckStage_TSPseudo()
|
| /petsc/src/ts/adapt/impls/dsp/ |
| H A D | adaptdsp.c | 68 …pt, TS ts, PetscReal h, PetscInt *next_sc, PetscReal *next_h, PetscBool *accept, PetscReal *wlte, … in TSAdaptChoose_DSP() argument 101 *accept = PETSC_TRUE; /* Accept the step */ in TSAdaptChoose_DSP() 145 if (rho0 >= safety) *accept = PETSC_TRUE; in TSAdaptChoose_DSP() 146 else if (adapt->always_accept) *accept = PETSC_TRUE; in TSAdaptChoose_DSP() 147 else if (h < hmin) *accept = PETSC_TRUE; in TSAdaptChoose_DSP() 148 else *accept = PETSC_FALSE; in TSAdaptChoose_DSP() 151 if (*accept) { in TSAdaptChoose_DSP()
|
| /petsc/src/ts/impls/explicit/euler/ |
| H A D | euler.c | 14 PetscBool stageok, accept = PETSC_TRUE; in TSStep_Euler() local 33 PetscCall(TSAdaptChoose(ts->adapt, ts, ts->time_step, NULL, &next_time_step, &accept)); in TSStep_Euler() 34 if (!accept) { in TSStep_Euler()
|
| /petsc/src/ts/impls/bdf/ |
| H A D | bdf.c | 218 static PetscErrorCode TSBDF_Restart(TS ts, PetscBool *accept) in TSBDF_Restart() argument 227 *accept = PETSC_TRUE; in TSBDF_Restart() 235 PetscCall(TSAdaptCheckStage(ts->adapt, ts, bdf->time[0], bdf->work[0], accept)); in TSBDF_Restart() 236 if (!*accept) PetscFunctionReturn(PETSC_SUCCESS); in TSBDF_Restart() 252 PetscBool stageok, accept = PETSC_TRUE; in TSStep_BDF() local 271 …if (bdf->extrapolate) PetscCall(TSBDF_Extrapolate(ts, bdf->k - (accept ? 0 : 1), bdf->time[0], bdf… in TSStep_BDF() 272 else if (!accept) PetscCall(VecCopy(ts->vec_sol, bdf->work[0])); in TSStep_BDF() 282 PetscCall(TSAdaptChoose(ts->adapt, ts, ts->time_step, NULL, &next_time_step, &accept)); in TSStep_BDF() 283 bdf->status = accept ? TS_STEP_COMPLETE : TS_STEP_INCOMPLETE; in TSStep_BDF() 284 if (!accept) { in TSStep_BDF() [all …]
|
| /petsc/src/ts/impls/eimex/ |
| H A D | eimex.c | 50 PetscBool accept; in TSStage_EIMEX() local 68 PetscCall(TSAdaptCheckStage(adapt, ts, ext->ctime, Y, &accept)); in TSStage_EIMEX() 80 PetscBool accept = PETSC_FALSE; in TSStep_EIMEX() local 108 accept = PETSC_FALSE; in TSStep_EIMEX() 109 while (!accept && ext->nstages < ext->max_rows) { in TSStep_EIMEX() 111 accept = (local_error < 1.0) ? PETSC_TRUE : PETSC_FALSE; in TSStep_EIMEX() 113 if (!accept) { /* add one more stage*/ in TSStep_EIMEX()
|
| /petsc/src/ts/adapt/impls/history/ |
| H A D | adapthist.c | 8 …pt, TS ts, PetscReal h, PetscInt *next_sc, PetscReal *next_h, PetscBool *accept, PetscReal *wlte, … in TSAdaptChoose_History() argument 17 *accept = PETSC_TRUE; in TSAdaptChoose_History()
|
| /petsc/src/ts/impls/implicit/alpha/ |
| H A D | alpha1.c | 183 PetscBool stageok, accept = PETSC_TRUE; in TSStep_Alpha() local 212 PetscCall(TSAdaptChoose(ts->adapt, ts, ts->time_step, NULL, &next_time_step, &accept)); in TSStep_Alpha() 213 th->status = accept ? TS_STEP_COMPLETE : TS_STEP_INCOMPLETE; in TSStep_Alpha() 214 if (!accept) { in TSStep_Alpha() 226 accept = PETSC_FALSE; in TSStep_Alpha()
|
| H A D | alpha2.c | 239 PetscBool stageok, accept = PETSC_TRUE; in TSStep_Alpha() local 271 PetscCall(TSAdaptChoose(ts->adapt, ts, ts->time_step, NULL, &next_time_step, &accept)); in TSStep_Alpha() 272 th->status = accept ? TS_STEP_COMPLETE : TS_STEP_INCOMPLETE; in TSStep_Alpha() 273 if (!accept) { in TSStep_Alpha() 286 accept = PETSC_FALSE; in TSStep_Alpha()
|
| /petsc/src/ts/tests/ |
| H A D | ex14.c | 24 PetscErrorCode TestCheckStage(TSAdapt adapt, TS ts, PetscReal t, Vec X, PetscBool *accept) in TestCheckStage() argument 30 *accept = (step >= 2) ? PETSC_FALSE : PETSC_TRUE; in TestCheckStage()
|
| /petsc/src/sys/classes/viewer/impls/socket/mex-scripts/ |
| H A D | sopen.c | 98 …if ((t = accept(listenport, (struct sockaddr *)&isa, (socklen_t *)&i)) < 0) PETSC_MEX_ERRORQ("RECE… in SOCKConnect_Private()
|
| /petsc/src/ts/impls/implicit/discgrad/ |
| H A D | tsdiscgrad.c | 225 PetscBool stageok, accept = PETSC_TRUE; in TSStep_DiscGrad() local 247 PetscCall(TSAdaptChoose(adapt, ts, ts->time_step, NULL, &next_time_step, &accept)); in TSStep_DiscGrad() 248 status = accept ? TS_STEP_COMPLETE : TS_STEP_INCOMPLETE; in TSStep_DiscGrad() 249 if (!accept) { in TSStep_DiscGrad() 260 accept = PETSC_FALSE; in TSStep_DiscGrad()
|
| /petsc/src/ts/impls/explicit/ssp/ |
| H A D | ssp.c | 191 PetscBool stageok, accept = PETSC_TRUE; in TSStep_SSP() local 203 PetscCall(TSAdaptChoose(ts->adapt, ts, ts->time_step, NULL, &next_time_step, &accept)); in TSStep_SSP() 204 if (!accept) { in TSStep_SSP()
|
| /petsc/src/ts/impls/arkimex/ |
| H A D | fsarkimex.c | 227 PetscBool fasthasE = PETSC_FALSE, stageok, accept = PETSC_TRUE; in TSStep_ARKIMEX_FastSlowSplit() local 384 PetscCall(TSAdaptChoose(adapt, ts, ts->time_step, NULL, &next_time_step, &accept)); in TSStep_ARKIMEX_FastSlowSplit() 385 ark->status = accept ? TS_STEP_COMPLETE : TS_STEP_INCOMPLETE; in TSStep_ARKIMEX_FastSlowSplit() 386 if (!accept) { /* Roll back the current step */ in TSStep_ARKIMEX_FastSlowSplit() 398 accept = PETSC_FALSE; in TSStep_ARKIMEX_FastSlowSplit()
|
| /petsc/src/ts/impls/glee/ |
| H A D | glee.c | 508 PetscBool accept; in TSStep_GLEE() local 518 accept = PETSC_TRUE; in TSStep_GLEE() 554 PetscCall(TSAdaptCheckStage(adapt, ts, glee->stage_time, YStage[i], &accept)); in TSStep_GLEE() 555 if (!accept) goto reject_step; in TSStep_GLEE() 566 PetscCall(TSAdaptChoose(adapt, ts, ts->time_step, &next_scheme, &next_time_step, &accept)); in TSStep_GLEE() 567 if (accept) { in TSStep_GLEE()
|
| /petsc/src/ts/impls/implicit/irk/ |
| H A D | irk.c | 316 PetscBool accept = PETSC_TRUE; in TSStep_IRK() local 343 PetscCall(TSAdaptChoose(adapt, ts, ts->time_step, NULL, &next_time_step, &accept)); in TSStep_IRK() 344 irk->status = accept ? TS_STEP_COMPLETE : TS_STEP_INCOMPLETE; in TSStep_IRK() 345 if (!accept) { in TSStep_IRK() 356 accept = PETSC_FALSE; in TSStep_IRK()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex42.c | 140 PetscErrorCode DomainErrorFunction(TS ts, PetscReal t, Vec Y, PetscBool *accept) in DomainErrorFunction() argument 155 *accept = PETSC_FALSE; in DomainErrorFunction()
|
| /petsc/doc/changes/ |
| H A D | 318.md | 107 - Change `PetscDeviceContextSetFromOptions()` to no longer accept the options prefix (`PetscDeviceC… 139 - Change `PetscViewerHDF5GetGroup()` to accept optional path relative to the pushed group and alway… 140 - Change `PetscViewerHDF5OpenGroup()` to accept optional path relative to the pushed group 226 …which accept Vec parameters instead of void pointers in contrast to versions without the Vec suffix
|
| H A D | 314.md | 25 - Change -cuda_set_device to -cuda_device, which can now accept 237 DMPlexCreateFromCellList[Parallel]Petsc() which accept PETSc 242 DMPlexBuildCoordinatesFromCellListParallel(). They now accept
|
| /petsc/src/tao/bound/impls/bnk/ |
| H A D | bnk.c | 792 …tao, PetscReal prered, PetscReal actred, PetscInt updateType, PetscInt stepType, PetscBool *accept) in TaoBNKUpdateTrustRadius() argument 801 *accept = PETSC_FALSE; in TaoBNKUpdateTrustRadius() 804 *accept = PETSC_TRUE; /* always accept here because line search succeeded */ in TaoBNKUpdateTrustRadius() 855 *accept = PETSC_TRUE; in TaoBNKUpdateTrustRadius() 906 *accept = PETSC_TRUE; in TaoBNKUpdateTrustRadius() 916 *accept = PETSC_TRUE; in TaoBNKUpdateTrustRadius()
|
| /petsc/lib/petsc/conf/ |
| H A D | variables | 77 # The user interface at configure and make is to accept CXXPPFLAGS as option, and saves it as
|