Searched refs:kdx (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/mat/impls/baij/seq/ftn-kernels/ |
| H A D | fsolvebaij.F90 | 90 PetscInt :: jstart, jend, idx, ax, jdx, kdx, nn
109 kdx = 0
117 w(kdx:kdx + 3) = x(jdx:jdx + 3)
118 kdx = kdx + 4
147 kdx = 0
152 w(kdx:kdx + 3) = x(jdx:jdx + 3)
153 kdx = kdx + 4
|
| /petsc/src/ksp/ksp/impls/fcg/pipefcg/ |
| H A D | pipefcg.c | 82 PetscInt i, j, k, idx, kdx, mi; in KSPSolve_PIPEFCG_cycle() local
209 kdx = k % (pipefcg->mmax + 1); in KSPSolve_PIPEFCG_cycle()
210 pipefcg->Pold[j] = pipefcg->Pvecs[kdx]; in KSPSolve_PIPEFCG_cycle()
211 pipefcg->Sold[j] = pipefcg->Svecs[kdx]; in KSPSolve_PIPEFCG_cycle()
212 pipefcg->Qold[j] = pipefcg->Qvecs[kdx]; in KSPSolve_PIPEFCG_cycle()
213 pipefcg->ZETAold[j] = pipefcg->ZETAvecs[kdx]; in KSPSolve_PIPEFCG_cycle()
214 redux[j] = pipefcg->Svecs[kdx]; in KSPSolve_PIPEFCG_cycle()
231 kdx = k % (pipefcg->mmax + 1); in KSPSolve_PIPEFCG_cycle()
232 betas[j] /= -etas[kdx]; /* betak /= etak */ in KSPSolve_PIPEFCG_cycle()
233 *eta -= PetscAbsScalar(betas[j]) * PetscAbsScalar(betas[j]) * etas[kdx]; in KSPSolve_PIPEFCG_cycle()
|
| /petsc/src/ksp/ksp/impls/gcr/pipegcr/ |
| H A D | pipegcr.c | 61 PetscInt i, j, k, idx, kdx, mi; in KSPSolve_PIPEGCR_cycle() local
157 kdx = k % (pipegcr->mmax + 1); in KSPSolve_PIPEGCR_cycle()
158 pipegcr->pold[j] = pipegcr->pvecs[kdx]; in KSPSolve_PIPEGCR_cycle()
159 pipegcr->sold[j] = pipegcr->svecs[kdx]; in KSPSolve_PIPEGCR_cycle()
160 pipegcr->qold[j] = pipegcr->qvecs[kdx]; in KSPSolve_PIPEGCR_cycle()
161 if (pipegcr->unroll_w) pipegcr->told[j] = pipegcr->tvecs[kdx]; in KSPSolve_PIPEGCR_cycle()
162 redux[j] = pipegcr->svecs[kdx]; in KSPSolve_PIPEGCR_cycle()
216 kdx = k % (pipegcr->mmax + 1); in KSPSolve_PIPEGCR_cycle()
217 betas[j] /= -etas[kdx]; /* betak /= etak */ in KSPSolve_PIPEGCR_cycle()
218 *eta -= PetscAbsScalar(betas[j]) * PetscAbsScalar(betas[j]) * etas[kdx]; in KSPSolve_PIPEGCR_cycle()
|