Searched refs:ak (Results 1 – 5 of 5) sorted by relevance
| /petsc/src/sys/utils/ |
| H A D | sorti.c | 1040 PetscInt *L_ = *L, ak, bk, k; in PetscMergeIntArray() local
1047 k = ak = bk = 0; in PetscMergeIntArray()
1048 while (ak < an && bk < bn) { in PetscMergeIntArray()
1049 if (aI[ak] == bI[bk]) { in PetscMergeIntArray()
1050 L_[k] = aI[ak]; in PetscMergeIntArray()
1051 ++ak; in PetscMergeIntArray()
1054 } else if (aI[ak] < bI[bk]) { in PetscMergeIntArray()
1055 L_[k] = aI[ak]; in PetscMergeIntArray()
1056 ++ak; in PetscMergeIntArray()
1064 if (ak < an) { in PetscMergeIntArray()
[all …]
|
| /petsc/src/tao/unconstrained/impls/bmrm/ |
| H A D | bmrm.c | 12 PetscReal gd, max, ak, bk, akold, bkold, lamnew, alpha, kktlam = 0.0, lam_ext; in solve() local
128 ak = 0.0; in solve()
129 for (i = 0; i < dim; i++) ak += d[i] * d[i]; in solve()
134 if (bk > EPS * ak && gd < 0.0) lamnew = -gd / bk; in solve()
178 ak = bk = 0.0; in solve()
180 ak += sk[i] * sk[i]; in solve()
184 if (bk <= EPS * ak) alpha = ALPHA_MAX; in solve()
186 if (bkold < EPS * akold) alpha = ak / bk; in solve()
187 else alpha = (akold + ak) / (bkold + bk); in solve()
193 akold = ak; in solve()
[all …]
|
| /petsc/src/dm/dt/interface/ |
| H A D | dt.c | 787 PetscReal ak, bk; in PetscDTJacobiEval_Internal() local
793 ak = a + k; in PetscDTJacobiEval_Internal()
808 PetscDTJacobiRecurrence_Internal(1, ak, bk, cnm1, cnm1x, cnm2); in PetscDTJacobiEval_Internal()
825 PetscDTJacobiRecurrence_Internal(j, ak, bk, cnm1, cnm1x, cnm2); in PetscDTJacobiEval_Internal()
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 9490 (ak . 1)
9506 (mrf-ak (constant . 1) (profile "" ""))
9523 (mgrid-ak (constant . 1) (profile "" ""))
9539 (solid-ak (constant . 1) (profile "" ""))
9933 (ak . 1)
10249 (ak . 1)
10565 (ak . 1)
10881 (ak . 1)
|
| /petsc/doc/ |
| H A D | petsc.bib | 21270 title = {Pt\'ak's nondiscrete induction and its application to matrix iterations},
|