| /petsc/src/ksp/ksp/impls/bcgs/pipebcgs/ |
| H A D | pipebcgs.c | 19 Vec X, B, S, R, RP, Y, Q, P2, Q2, R2, S2, W, Z, W2, Z2, T, V; in KSPSolve_PIPEBCGS() local
28 RP = ksp->work[1]; in KSPSolve_PIPEBCGS()
73 PetscCall(VecCopy(R, RP)); /* rp <- r */ in KSPSolve_PIPEBCGS()
75 PetscCall(VecDotBegin(R, RP, &rho)); /* rho <- (r,rp) */ in KSPSolve_PIPEBCGS()
79 PetscCall(VecDotEnd(R, RP, &rho)); in KSPSolve_PIPEBCGS()
81 PetscCall(VecDotBegin(W, RP, &d2)); /* d2 <- (w,rp) */ in KSPSolve_PIPEBCGS()
85 PetscCall(VecDotEnd(W, RP, &d2)); in KSPSolve_PIPEBCGS()
145 …PetscCall(VecDotBegin(R, RP, &rho)); … in KSPSolve_PIPEBCGS()
146 …PetscCall(VecDotBegin(S, RP, &d1)); … in KSPSolve_PIPEBCGS()
147 …PetscCall(VecDotBegin(W, RP, &d2)); … in KSPSolve_PIPEBCGS()
[all …]
|
| /petsc/src/ksp/ksp/impls/cgs/ |
| H A D | cgs.c | 19 Vec X, B, V, P, R, RP, T, Q, U, AUQ; in KSPSolve_CGS() local
32 RP = ksp->work[1]; in KSPSolve_CGS()
60 PetscCall(VecCopy(R, RP)); in KSPSolve_CGS()
70 PetscCall(VecMax(RP, max_pos, &vr0max)); in KSPSolve_CGS()
71 PetscCall(VecGetArray(RP, &tmp_RP)); in KSPSolve_CGS()
72 PetscCall(VecGetLocalSize(RP, &numnp)); in KSPSolve_CGS()
76 PetscCall(VecRestoreArray(RP, &tmp_RP)); in KSPSolve_CGS()
81 PetscCall(VecDot(R, RP, &rhoold)); /* rhoold = (r,rp) */ in KSPSolve_CGS()
88 PetscCall(VecDot(V, RP, &s)); /* s <- (v,rp) */ in KSPSolve_CGS()
96 PetscCall(VecDot(R, RP, &rho)); /* rho <- (r,rp) */ in KSPSolve_CGS()
|
| /petsc/src/ksp/ksp/impls/tfqmr/ |
| H A D | tfqmr.c | 16 Vec X, B, V, P, R, RP, T, T1, Q, U, D, AUQ; in KSPSolve_TFQMR() local
22 RP = ksp->work[1]; in KSPSolve_TFQMR()
49 PetscCall(VecCopy(R, RP)); in KSPSolve_TFQMR()
57 PetscCall(VecDot(R, RP, &rhoold)); /* rhoold = (r,rp) */ in KSPSolve_TFQMR()
68 PetscCall(VecDot(V, RP, &s)); /* s <- (v,rp) */ in KSPSolve_TFQMR()
107 PetscCall(VecDot(R, RP, &rho)); /* rho <- (r,rp) */ in KSPSolve_TFQMR()
|
| /petsc/src/ksp/ksp/impls/bcgs/qmrcgs/ |
| H A D | qmrcgs.c | 19 Vec X, B, R, P, PH, V, D2, X2, S, SH, T, D, S2, RP, AX, Z; in KSPSolve_QMRCGS() local
39 RP = ksp->work[11]; in KSPSolve_QMRCGS()
75 PetscCall(VecCopy(R, RP)); in KSPSolve_QMRCGS()
85 PetscCall(VecDot(RP, RP, &rho1)); in KSPSolve_QMRCGS()
93 PetscCall(VecDot(V, RP, &rho2)); /* rho2 <- (v,rp) */ in KSPSolve_QMRCGS()
183 PetscCall(VecDot(R, RP, &rho2)); in KSPSolve_QMRCGS()
|
| /petsc/src/ksp/ksp/impls/bcgs/fbcgs/ |
| H A D | fbcgs.c | 19 Vec X, B, V, P, R, RP, T, S, P2, S2; in KSPSolve_FBCGS() local
29 RP = ksp->work[1]; in KSPSolve_FBCGS()
67 PetscCall(VecCopy(R, RP)); in KSPSolve_FBCGS()
77 PetscCall(VecDot(R, RP, &rho)); /* rho <- (r,rp) */ in KSPSolve_FBCGS()
84 PetscCall(VecDot(V, RP, &d1)); in KSPSolve_FBCGS()
|
| /petsc/src/ksp/ksp/impls/bcgs/fbcgsr/ |
| H A D | fbcgsr.c | 23 Vec X, B, P, P2, RP, R, V, S, T, S2; in KSPSolve_FBCGSR() local
40 RP = ksp->work[1]; in KSPSolve_FBCGSR()
41 PetscCall(VecGetArray(RP, (PetscScalar **)&rp)); in KSPSolve_FBCGSR()
42 PetscCall(VecRestoreArray(RP, NULL)); in KSPSolve_FBCGSR()
95 PetscCall(VecCopy(R, RP)); /* rp <- r */ in KSPSolve_FBCGSR()
107 PetscCall(VecDot(V, RP, &sigma)); /* sigma <- (v,rp) */ in KSPSolve_FBCGSR()
|
| /petsc/src/ksp/ksp/impls/bcgs/ |
| H A D | bcgs.c | 22 Vec X, B, V, P, R, RP, T, S; in KSPSolve_BCGS() local
30 RP = ksp->work[1]; in KSPSolve_BCGS()
64 PetscCall(VecCopy(R, RP)); in KSPSolve_BCGS()
74 PetscCall(VecDot(R, RP, &rho)); /* rho <- (r,rp) */ in KSPSolve_BCGS()
78 PetscCall(VecDot(V, RP, &d1)); in KSPSolve_BCGS()
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | aij.h | 236 #define MatSeqXAIJReallocateAIJ(Amat, AM, BS2, NROW, ROW, COL, RMAX, AA, AI, AJ, RP, AP, AIMAX, NON… argument
266 RP = AJ + AI[ROW]; \
275 #define MatSeqXAIJReallocateAIJ_structure_only(Amat, AM, BS2, NROW, ROW, COL, RMAX, AI, AJ, RP, AIM… argument
302 RP = AJ + AI[ROW]; \
|
| /petsc/src/ksp/pc/impls/bjacobi/bjkokkos/ |
| H A D | bjkokkos.kokkos.cxx | 113 PetscScalar *RP = ptr; in BJSolve_TFQMR() local
183 parallel_for(Kokkos::TeamVectorRange(team, Nblk), [=](int idx) { RP[idx] = R[idx]; }); in BJSolve_TFQMR()
192 …team, Nblk), [=](const int idx, PetscScalar &dot) { dot += R[idx] * PetscConj(RP[idx]); }, rhoold); in BJSolve_TFQMR()
206 …ange(team, Nblk), [=](const int idx, PetscScalar &dot) { dot += V[idx] * PetscConj(RP[idx]); }, s); in BJSolve_TFQMR()
284 …ge(team, Nblk), [=](const int idx, PetscScalar &dot) { dot += R[idx] * PetscConj(RP[idx]); }, rho); in BJSolve_TFQMR()
|
| /petsc/doc/ |
| H A D | petsc.bib | 6694 author = {AG Buchan and CC Pain and AP Umpleby and RP Smedley-Stevenson},
|