Home
last modified time | relevance | path

Searched refs:tab (Results 1 – 25 of 41) sorted by relevance

12

/petsc/src/dm/dt/interface/ftn-custom/
H A Dzdtdsf90.c27 PetscTabulation *tab; in petscdsgettabulationsetsizes_() local
29 *ierr = PetscDSGetTabulation(*ds, &tab); in petscdsgettabulationsetsizes_()
31 *ierr = PetscMemcpy(tftn, tab[*i - 1], sizeof(PetscTabulationFtn)); in petscdsgettabulationsetsizes_()
36 PetscTabulation *tab; in petscdsgettabulationsetpointers_() local
39 *ierr = PetscDSGetTabulation(*ds, &tab); in petscdsgettabulationsetpointers_()
41 size = tab[*i - 1]->Nr * tab[*i - 1]->Np * tab[*i - 1]->Nb * tab[*i - 1]->Nc; in petscdsgettabulationsetpointers_()
43 for (PetscInt j = 0; j <= tab[*i - 1]->K; j++) { in petscdsgettabulationsetpointers_()
44 f90arraysetrealpointer_(tab[*i - 1]->T[j], &size, &j, ptrB PETSC_F90_2PTR_PARAM(ptrb)); in petscdsgettabulationsetpointers_()
46 size *= tab[*i - 1]->cdim; in petscdsgettabulationsetpointers_()
/petsc/src/ts/impls/multirate/
H A Dmprk.c42 struct _MPRKTableau tab; member
385 MPRKTableau t = &link->tab; in TSMPRKRegisterDestroy()
485 t = &link->tab; in TSMPRKRegister()
556 MPRKTableau tab = mprk->tableau; in TSMPRKSetSplits() local
594 if (tab->np == 3) { in TSMPRKSetSplits()
629 MPRKTableau tab = mprk->tableau; in TSEvaluateStep_MPRK() local
632 PetscInt s = tab->s, j; in TSEvaluateStep_MPRK()
635 for (j = 0; j < s; j++) wf[j] = h * tab->bf[j]; in TSEvaluateStep_MPRK()
646 MPRKTableau tab = mprk->tableau; in TSStep_MPRK() local
647 const PetscInt s = tab->s; in TSStep_MPRK()
[all …]
/petsc/src/ts/impls/arkimex/
H A Dfsarkimex.c78 ARKTableau tab = ark->tableau; in TSExtrapolate_ARKIMEX_FastSlowSplit() local
79 PetscInt s = tab->s, pinterp = tab->pinterp, i, j; in TSExtrapolate_ARKIMEX_FastSlowSplit()
82 const PetscReal *Bt = tab->binterpt, *B = tab->binterp; in TSExtrapolate_ARKIMEX_FastSlowSplit()
123 ARKTableau tab = ark->tableau; in TSEvaluateStep_ARKIMEX_FastSlowSplit() local
127 PetscInt s = tab->s, j; in TSEvaluateStep_ARKIMEX_FastSlowSplit()
143 if (order == tab->order) { in TSEvaluateStep_ARKIMEX_FastSlowSplit()
146 for (j = 0; j < s; j++) w[j] = h * tab->b[j]; in TSEvaluateStep_ARKIMEX_FastSlowSplit()
155 for (j = 0; j < s; j++) w[j] = h * tab->bt[j]; in TSEvaluateStep_ARKIMEX_FastSlowSplit()
162 } else if (order == tab->order - 1) { in TSEvaluateStep_ARKIMEX_FastSlowSplit()
163 if (!tab->bembedt) goto unavailable; in TSEvaluateStep_ARKIMEX_FastSlowSplit()
[all …]
H A Darkimex.c1030 ARKTableau t = &link->tab; in TSARKIMEXRegisterDestroy()
1116 PetscCall(PetscStrcmp(link->tab.name, name, &match)); in TSARKIMEXRegister()
1120 t = &link->tab; in TSARKIMEXRegister()
1228 ARKTableau tab = ark->tableau; in TSEvaluateStep_ARKIMEX() local
1231 PetscInt s = tab->s, j; in TSEvaluateStep_ARKIMEX()
1246 if (order == tab->order) { in TSEvaluateStep_ARKIMEX()
1248 …if (!ark->imex && tab->stiffly_accurate) { /* Only the stiffly accurate implicit formula is used */ in TSEvaluateStep_ARKIMEX()
1252 for (j = 0; j < s; j++) w[j] = h * tab->bt[j]; in TSEvaluateStep_ARKIMEX()
1254 if (tab->additive && ark->imex) { /* Method is IMEX, complete the explicit formula */ in TSEvaluateStep_ARKIMEX()
1257 for (j = 0; j < s; j++) w[j] = h * tab->b[j]; in TSEvaluateStep_ARKIMEX()
[all …]
H A Darkimex.h19 struct _ARKTableau tab; member
/petsc/src/dm/ftn-mod/
H A Dpetscdmmod.F9038 subroutine PetscDSGetTabulationSetSizes(ds, i, tab, ierr)
42 type(ttPetscTabulation) tab
110 subroutine PetscDSGetTabulation(ds, tab, ierr) argument
112 PetscTabulation, pointer :: tab(:)
117 allocate (tab(Nf))
119 allocate (tab(i)%ptr)
121 call PetscDSGetTabulationSetSizes(ds, i, tab(i)%ptr, ierr)
123 allocate (tab(i)%ptr%T(tab(i)%ptr%K + 1))
124 call PetscDSGetTabulationSetPointers(ds, i, tab(i)%ptr%T, ierr)
129 subroutine PetscDSRestoreTabulation(ds, tab, ierr) argument
[all …]
/petsc/src/sys/objects/
H A Dgcomm.c76 PetscErrorCode PetscObjectGetTabLevel(PetscObject obj, PetscInt *tab) in PetscObjectGetTabLevel() argument
80 PetscAssertPointer(tab, 2); in PetscObjectGetTabLevel()
81 *tab = obj->tablevel; in PetscObjectGetTabLevel()
106 PetscErrorCode PetscObjectSetTabLevel(PetscObject obj, PetscInt tab) in PetscObjectSetTabLevel() argument
110 obj->tablevel = tab; in PetscObjectSetTabLevel()
134 PetscErrorCode PetscObjectIncrementTabLevel(PetscObject obj, PetscObject oldobj, PetscInt tab) in PetscObjectIncrementTabLevel() argument
139 obj->tablevel = (oldobj ? oldobj->tablevel : 0) + tab; in PetscObjectIncrementTabLevel()
/petsc/src/dm/impls/plex/tutorials/
H A Dex4f90.F9014 PetscTabulation, pointer :: tab(:)
29 PetscCallA(PetscDSGetTabulation(ds, tab, ierr))
30 print *, tab(1)%ptr%T(1)%ptr
31 print *, tab(1)%ptr%T(2)%ptr
32 print *, tab(2)%ptr%T(1)%ptr
33 print *, tab(2)%ptr%T(2)%ptr
34 PetscCallA(PetscDSRestoreTabulation(ds, tab, ierr))
/petsc/lib/petsc/bin/maint/abi-compliance-checker/modules/Internals/Scripts/
H A DTabs.js24 … var tab = document.getElementById(links[j].href.substr(links[j].href.indexOf('#') + 1));
26 if (tab)
29 tab.style.display = 'block';
32 tab.style.display = 'none';
37 … var tab = document.getElementById(this.href.substr(this.href.indexOf('#') + 1));
38 if (tab)
47 tab.style.display = 'block';
/petsc/src/ts/impls/glee/
H A Dglee.c43 struct _GLEETableau tab; member
308 GLEETableau t = &link->tab; in TSGLEERegisterDestroy()
398 t = &link->tab; in TSGLEERegister()
436 GLEETableau tab = glee->tableau; in TSEvaluateStep_GLEE() local
437 PetscReal h, *B = tab->B, *V = tab->V, *F = tab->F, *Fembed = tab->Fembed; in TSEvaluateStep_GLEE()
438 PetscInt s = tab->s, r = tab->r, i, j; in TSEvaluateStep_GLEE()
455 if (order == tab->order) { in TSEvaluateStep_GLEE()
474 } else if (order == tab->order - 1) { in TSEvaluateStep_GLEE()
490 …der %" PetscInt_FMT " cannot evaluate step at order %" PetscInt_FMT, tab->name, tab->order, order); in TSEvaluateStep_GLEE()
498 GLEETableau tab = glee->tableau; in TSStep_GLEE() local
[all …]
/petsc/src/ts/impls/explicit/rk/
H A Drk.c363 RKTableau t = &link->tab; in TSRKRegisterDestroy()
449 t = &link->tab; in TSRKRegister()
488 RKTableau tab = rk->tableau; in TSRKGetTableau_RK() local
491 if (s) *s = tab->s; in TSRKGetTableau_RK()
492 if (A) *A = tab->A; in TSRKGetTableau_RK()
493 if (b) *b = tab->b; in TSRKGetTableau_RK()
494 if (c) *c = tab->c; in TSRKGetTableau_RK()
495 if (bembed) *bembed = tab->bembed; in TSRKGetTableau_RK()
496 if (p) *p = tab->p; in TSRKGetTableau_RK()
497 if (binterp) *binterp = tab->binterp; in TSRKGetTableau_RK()
[all …]
H A Dmrk.c22 RKTableau tab = rk->tableau; in TSReset_RK_MultirateNonsplit() local
26 PetscCall(VecDestroyVecs(tab->s, &rk->YdotRHS_slow)); in TSReset_RK_MultirateNonsplit()
57 RKTableau tab = rk->tableau; in TSStepRefine_RK_MultirateNonsplit() local
60 const PetscInt s = tab->s; in TSStepRefine_RK_MultirateNonsplit()
61 const PetscReal *A = tab->A, *c = tab->c; in TSStepRefine_RK_MultirateNonsplit()
86 PetscCall(TSEvaluateStep(ts, tab->order, vec_fast, NULL)); in TSStepRefine_RK_MultirateNonsplit()
121 RKTableau tab = rk->tableau; in TSStep_RK_MultirateNonsplit() local
126 const PetscInt s = tab->s; in TSStep_RK_MultirateNonsplit()
127 const PetscReal *A = tab->A, *c = tab->c; in TSStep_RK_MultirateNonsplit()
150 PetscCall(TSEvaluateStep(ts, tab->order, sol_slow, NULL)); in TSStep_RK_MultirateNonsplit()
[all …]
H A Drk.h16 struct _RKTableau tab; member
/petsc/src/ts/impls/implicit/irk/
H A Dirk.c70 IRKTableau tab = irk->tableau; in TSIRKTableauCreate() local
74 …PetscCall(PetscMalloc3(PetscSqr(nstages), &tab->A, PetscSqr(nstages), &tab->A_inv, PetscSqr(nstage… in TSIRKTableauCreate()
75 …PetscCall(PetscMalloc4(nstages, &tab->b, nstages, &tab->c, nstages, &tab->binterp, nstages, &tab->… in TSIRKTableauCreate()
76 PetscCall(PetscArraycpy(tab->A, A, PetscSqr(nstages))); in TSIRKTableauCreate()
77 PetscCall(PetscArraycpy(tab->b, b, nstages)); in TSIRKTableauCreate()
78 PetscCall(PetscArraycpy(tab->c, c, nstages)); in TSIRKTableauCreate()
80 if (binterp) PetscCall(PetscArraycpy(tab->binterp, binterp, nstages)); in TSIRKTableauCreate()
81 if (A_inv) PetscCall(PetscArraycpy(tab->A_inv, A_inv, PetscSqr(nstages))); in TSIRKTableauCreate()
82 if (A_inv_rowsum) PetscCall(PetscArraycpy(tab->A_inv_rowsum, A_inv_rowsum, nstages)); in TSIRKTableauCreate()
83 if (I_s) PetscCall(PetscArraycpy(tab->I_s, I_s, PetscSqr(nstages))); in TSIRKTableauCreate()
[all …]
/petsc/src/sys/classes/viewer/impls/ascii/
H A Dfilev.c179 if (isascii) ascii->tab = tabs; in PetscViewerASCIISetTab()
209 if (isascii && tabs) *tabs = ascii->tab; in PetscViewerASCIIGetTab()
239 if (isascii) ascii->tab += tabs; in PetscViewerASCIIAddTab()
270 if (isascii) ascii->tab -= tabs; in PetscViewerASCIISubtractTab()
360 if (isascii) ascii->tab++; in PetscViewerASCIIPushTab()
388 …PetscCheck(ascii->tab > 0, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "More tabs popped than pushe… in PetscViewerASCIIPopTab()
389 ascii->tab--; in PetscViewerASCIIPopTab()
418 if (flg) ascii->tab = ascii->tab_store; in PetscViewerASCIIUseTabs()
420 ascii->tab_store = ascii->tab; in PetscViewerASCIIUseTabs()
421 ascii->tab = 0; in PetscViewerASCIIUseTabs()
[all …]
H A Dasciiimpl.h9 PetscInt tab; /* how many times text is tabbed in from left */ member
/petsc/src/snes/impls/ms/
H A Dms.c20 struct _SNESMSTableau tab; member
108 SNESMSTableau t = &link->tab; in SNESMSRegisterDestroy()
212 t = &link->tab; in SNESMSRegister()
267 SNESMSTableau tab = ms->tableau; in SNESMSStep_Basic() local
268 const PetscReal *alpha = tab->betasub, h = ms->damping; in SNESMSStep_Basic()
269 PetscInt i, nstages = tab->nstages; in SNESMSStep_Basic()
285 SNESMSTableau tab = ms->tableau; in SNESMSStep_Step() local
288 if (tab->gamma && tab->delta) { in SNESMSStep_Step()
366 SNESMSTableau tab = ms->tableau; in SNESSetUp_MS() local
367 PetscInt nwork = tab->nregisters + 1; // +1 because VecMAXPY() in SNESMSStep_3Sstar() in SNESSetUp_MS()
[all …]
/petsc/src/ts/impls/rosw/
H A Drosw.c45 struct _RosWTableau tab; member
760 RosWTableau t = &link->tab; in TSRosWRegisterDestroy()
846 t = &link->tab; in TSRosWRegister()
1091 RosWTableau tab = ros->tableau; in TSEvaluateStep_RosW() local
1096 if (order == tab->order) { in TSEvaluateStep_RosW()
1099 for (i = 0; i < tab->s; i++) w[i] = tab->bt[i]; in TSEvaluateStep_RosW()
1100 PetscCall(VecMAXPY(U, tab->s, w, ros->Y)); in TSEvaluateStep_RosW()
1104 } else if (order == tab->order - 1) { in TSEvaluateStep_RosW()
1105 if (!tab->bembedt) goto unavailable; in TSEvaluateStep_RosW()
1108 for (i = 0; i < tab->s; i++) w[i] = tab->bembedt[i]; in TSEvaluateStep_RosW()
[all …]
/petsc/src/ts/adapt/impls/dsp/
H A Dadaptdsp.c229 struct FilterTab *tab = NULL; in TSAdaptDSPSetFilter_DSP() local
236 tab = &filterlist[i]; in TSAdaptDSPSetFilter_DSP()
240 …PetscCheck(tab, PetscObjectComm((PetscObject)adapt), PETSC_ERR_ARG_UNKNOWN_TYPE, "Filter name %s n… in TSAdaptDSPSetFilter_DSP()
241 dsp->kBeta[0] = tab->kBeta[0] / tab->scale; in TSAdaptDSPSetFilter_DSP()
242 dsp->kBeta[1] = tab->kBeta[1] / tab->scale; in TSAdaptDSPSetFilter_DSP()
243 dsp->kBeta[2] = tab->kBeta[2] / tab->scale; in TSAdaptDSPSetFilter_DSP()
244 dsp->Alpha[0] = tab->Alpha[0] / tab->scale; in TSAdaptDSPSetFilter_DSP()
245 dsp->Alpha[1] = tab->Alpha[1] / tab->scale; in TSAdaptDSPSetFilter_DSP()
/petsc/lib/petsc/bin/maint/abi-compliance-checker/modules/Internals/Styles/
H A DTabs.css4 a.tab {
29 div.tab {
/petsc/src/snes/interface/noise/
H A Dsnesnoise.c83 PetscScalar fval[7], tab[7][7], eps[7], f = -1; in SNESDiffParameterCompute_More() local
128 for (i = 0; i < nf; i++) tab[i][0] = fval[i]; in SNESDiffParameterCompute_More()
131 for (i = 0; i < nf - j - 1; i++) tab[i][j + 1] = tab[i + 1][j] - tab[i][j]; in SNESDiffParameterCompute_More()
137 for (j = 0; j < nf - i; j++) PetscCall(PetscFPrintf(comm, fp, " %10.2e ", tab[i][j])); in SNESDiffParameterCompute_More()
/petsc/doc/developers/
H A Dmrfork.md7 - Checkout `COMMIT-SHA` of the branch HEAD. It is available on the "Commits" tab of the merge reque…
55 …1c341f10772b6231f15a4abcef052bfe2d90` ("Copy commit SHA" of the HEAD commit from the "Commits" tab)
/petsc/config/
H A Dgmakegentest.py494 tab = ''
497 tab = tab + ' '
500 fh.write(tab + 'if test -z "${DATAFILESPATH}"; then\n')
501 tab = tab + ' '
503 fh.write(tab+tsStr+"\n" + tab + "total=1; "+tors+"=1\n")
504 fh.write(tab+footer+"\n")
505 fh.write(tab+"exit\n")
/petsc/src/binding/petsc4py/src/petsc4py/PETSc/
H A DObject.pyx489 # --- tab level ---
491 def incrementTabLevel(self, tab : int, Object parent=None) -> None:
492 """Increment the PETSc object tab level.
501 cdef PetscInt ctab = asInt(tab)
506 """Set the PETSc object tab level.
519 """Return the PETSc object tab level.
/petsc/doc/manual/
H A Dregressor.md119 {any}`tab-regressordefaults`. Currently, we only support one type,
124 :name: tab-regressordefaults
155 in Table {any}`tab-lineartypes`.
159 :name: tab-lineartypes

12