| /petsc/src/ksp/ksp/impls/cr/ |
| H A D | cr.c | 16 Vec X, B, R, RT, P, AP, ART, Q; in KSPSolve_CR() local
23 RT = ksp->work[1]; in KSPSolve_CR()
41 PetscCall(VecCopy(P, RT)); /* RT <- P */ in KSPSolve_CR()
43 PetscCall(VecDotBegin(RT, ART, &btop)); /* (RT,ART) */ in KSPSolve_CR()
46 PetscCall(VecNormBegin(RT, NORM_2, &dp)); /* dp <- RT'*RT */ in KSPSolve_CR()
47 PetscCall(VecDotEnd(RT, ART, &btop)); /* (RT,ART) */ in KSPSolve_CR()
48 PetscCall(VecNormEnd(RT, NORM_2, &dp)); /* dp <- RT'*RT */ in KSPSolve_CR()
52 PetscCall(VecDotEnd(RT, ART, &btop)); /* (RT,ART) */ in KSPSolve_CR()
55 PetscCall(VecDotEnd(RT, ART, &btop)); /* (RT,ART) */ in KSPSolve_CR()
59 PetscCall(VecDotEnd(RT, ART, &btop)); /* (RT,ART) */ in KSPSolve_CR()
[all …]
|
| /petsc/src/ksp/ksp/impls/cg/pipeprcg/ |
| H A D | pipeprcg.c | 44 Vec X, B, R, RT, W, WT, P, S, ST, U, UT, PRTST[3]; in KSPSolve_PIPEPRCG() local
60 RT = ksp->work[1]; in KSPSolve_PIPEPRCG()
80 PetscCall(KSP_PCApply(ksp, R, RT)); /* rt <- Br */ in KSPSolve_PIPEPRCG()
81 PetscCall(KSP_MatMult(ksp, Amat, RT, W)); /* w <- A rt */ in KSPSolve_PIPEPRCG()
84 PetscCall(VecCopy(RT, P)); /* p <- rt */ in KSPSolve_PIPEPRCG()
91 PetscCall(VecDotBegin(RT, R, &nu)); in KSPSolve_PIPEPRCG()
95 PetscCall(VecDotEnd(RT, R, &nu)); /* nu <- (rt,r) */ in KSPSolve_PIPEPRCG()
105 PetscCall(VecNormBegin(RT, NORM_2, &dp)); in KSPSolve_PIPEPRCG()
106 PetscCall(PetscCommSplitReductionBegin(PetscObjectComm((PetscObject)RT))); in KSPSolve_PIPEPRCG()
107 PetscCall(VecNormEnd(RT, NORM_2, &dp)); in KSPSolve_PIPEPRCG()
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex241.c | 39 Mat A, AT, D, B, P, R, RT; in main() local
189 PetscCall(MatTranspose(R, MAT_INITIAL_MATRIX, &RT)); in main()
190 PetscCall(MatMultEqual(RT, D, 10, &flg)); in main()
192 PetscCall(MatTranspose(R, MAT_REUSE_MATRIX, &RT)); in main()
193 PetscCall(MatMultEqual(RT, D, 10, &flg)); in main()
195 PetscCall(MatDestroy(&RT)); in main()
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex3.c | 23 PetscBool RT; /* Test for Raviart-Thomas elements */ member
201 options->RT = PETSC_FALSE; in ProcessOptions()
221 …scOptionsBool("-RT", "Use the Raviart-Thomas elements", "ex3.c", options->RT, &options->RT, NULL)); in ProcessOptions()
758 if (user->RT) { in CheckFunctions()
767 if (user->RT) { in CheckFunctions()
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexfem.c | 500 …PetscScalar *RT; /* The transposed rotation matrix, transforming a vector in the global basis t… member
517 PetscCall(PetscMalloc2(PetscSqr(dim), &rc->R, PetscSqr(dim), &rc->RT)); in DMPlexBasisTransformSetUp_Rotation_Internal()
526 PetscCall(PetscArraycpy(rc->RT, rc->R, PetscSqr(dim))); in DMPlexBasisTransformSetUp_Rotation_Internal()
527 DMPlex_Transpose2D_Internal(rc->RT); in DMPlexBasisTransformSetUp_Rotation_Internal()
545 PetscCall(PetscArraycpy(rc->RT, rc->R, PetscSqr(dim))); in DMPlexBasisTransformSetUp_Rotation_Internal()
546 DMPlex_Transpose3D_Internal(rc->RT); in DMPlexBasisTransformSetUp_Rotation_Internal()
559 PetscCall(PetscFree2(rc->R, rc->RT)); in DMPlexBasisTransformDestroy_Rotation_Internal()
573 *A = rc->RT; in DMPlexBasisTransformGetMatrix_Rotation_Internal()
|