| /petsc/src/ksp/ksp/utils/lmvm/ |
| H A D | lmproducts.c | 10 …TSC_INTERN PetscErrorCode LMProductsCreate(LMBasis basis, LMBlockType block_type, LMProducts *dots) in LMProductsCreate() argument 18 PetscCall(PetscNew(dots)); in LMProductsCreate() 19 (*dots)->m = m = basis->m; in LMProductsCreate() 20 (*dots)->block_type = block_type; in LMProductsCreate() 22 (*dots)->m_local = m_local; in LMProductsCreate() 26 PetscCall(MatCreateVecs(basis->vecs, &(*dots)->diagonal_global, NULL)); in LMProductsCreate() 27 PetscCall(VecCreateLocalVector((*dots)->diagonal_global, &(*dots)->diagonal_local)); in LMProductsCreate() 28 PetscCall(VecGetType((*dots)->diagonal_local, &vec_type)); in LMProductsCreate() 29 PetscCall(VecCreate(PETSC_COMM_SELF, &(*dots)->diagonal_dup)); in LMProductsCreate() 30 PetscCall(VecSetSizes((*dots)->diagonal_dup, m, m)); in LMProductsCreate() [all …]
|
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex1f90.F90 | 23 PetscScalar dots(3), dot 75 PetscCallA(VecMDot(x, ithree, z, dots, ierr)) 84 …write (6, 110) int(PetscRealPart(dots(1))), int(PetscRealPart(dots(2))), int(PetscRealPart(dots(3)… 87 write (6, 110) int(dots(1)), int(dots(2)), int(dots(3)) 157 dots(1) = one 158 dots(2) = three 159 dots(3) = two 161 PetscCallA(VecMAXPY(x, ithree, dots, z, ierr))
|
| H A D | ex20f90.F90 | 24 PetscScalar dots(3), dot 77 PetscCallA(VecMDot(x, ithree, z, dots, ierr)) 86 …write (6, 110) int(PetscRealPart(dots(1))), int(PetscRealPart(dots(2))), int(PetscRealPart(dots(3)… 89 write (6, 110) int(dots(1)), int(dots(2)), int(dots(3)) 159 dots(1) = one 160 dots(2) = three 161 dots(3) = two 163 PetscCallA(VecMAXPY(x, ithree, dots, z, ierr))
|
| H A D | ex1.c | 18 PetscScalar one = 1.0, two = 2.0, three = 3.0, dots[3], dot; in main() local 60 PetscCall(VecMDot(x, 3, z, dots)); in main() 137 dots[0] = one; in main() 138 dots[1] = three; in main() 139 dots[2] = two; in main() 142 PetscCall(VecMAXPY(x, 3, dots, z)); in main()
|
| /petsc/src/mat/interface/ |
| H A D | matnull.c | 91 PetscScalar *v[6], dots[5]; in MatNullSpaceCreateRigidBody() local 152 PetscCall(VecMDot(vec[i], i, vec, dots)); in MatNullSpaceCreateRigidBody() 153 for (j = 0; j < i; j++) dots[j] *= -1.; in MatNullSpaceCreateRigidBody() 154 PetscCall(VecMAXPY(vec[i], i, dots, vec)); in MatNullSpaceCreateRigidBody() 247 PetscScalar *dots; in MatNullSpaceCreate() local 260 PetscCall(PetscMalloc1(n - 1, &dots)); in MatNullSpaceCreate() 263 PetscCall(VecMDot(vecs[i], n - i - 1, vecs + i + 1, dots)); in MatNullSpaceCreate() 265 …dots[j]) <= PETSC_SQRT_MACHINE_EPSILON, PetscObjectComm((PetscObject)vecs[i]), PETSC_ERR_ARG_WRONG… in MatNullSpaceCreate() 268 PetscCall(PetscFree(dots)); in MatNullSpaceCreate()
|
| /petsc/src/ksp/ksp/impls/gcr/pipegcr/ |
| H A D | pipegcr.c | 62 PetscScalar alpha = 0.0, gamma, *betas, *dots; in KSPSolve_PIPEGCR_cycle() local 84 dots = pipegcr->dots; in KSPSolve_PIPEGCR_cycle() 86 betas = dots; /* dots takes the result of all dot products of which the betas are a subset */ in KSPSolve_PIPEGCR_cycle() 101 …PetscCall(VecMDotBegin(w, 2, redux, dots)); /* Start split reduction… in KSPSolve_PIPEGCR_cycle() 105 …PetscCall(VecMDotEnd(w, 2, redux, dots)); /* Finish split reductio… in KSPSolve_PIPEGCR_cycle() 106 delta = PetscRealPart(dots[0]); in KSPSolve_PIPEGCR_cycle() 108 gamma = dots[1]; in KSPSolve_PIPEGCR_cycle() 170 PetscCall(VecMDotBegin(w, j + 2, redux, dots)); in KSPSolve_PIPEGCR_cycle() 180 PetscCall(VecMDotEnd(w, j + 2, redux, dots)); in KSPSolve_PIPEGCR_cycle() 181 gamma = dots[j]; in KSPSolve_PIPEGCR_cycle() [all …]
|
| H A D | pipegcrimpl.h | 15 PetscScalar *dots; member
|
| /petsc/src/ksp/ksp/impls/fcg/pipefcg/ |
| H A D | pipefcg.c | 70 …PetscCall(PetscMalloc3(pipefcg->mmax + 2, &pipefcg->dots, pipefcg->mmax + 1, &pipefcg->etas, pipef… in KSPSetUp_PIPEFCG() 84 PetscScalar alpha = 0.0, gamma, *betas, *dots; in KSPSolve_PIPEFCG_cycle() local 111 dots = pipefcg->dots; in KSPSolve_PIPEFCG_cycle() 113 betas = dots; /* dots takes the result of all dot products of which the betas are a subset */ in KSPSolve_PIPEFCG_cycle() 133 PetscCall(VecMXDotBegin(Z, 2, redux, dots)); in KSPSolve_PIPEFCG_cycle() 139 PetscCall(VecMXDotEnd(Z, 2, redux, dots)); in KSPSolve_PIPEFCG_cycle() 140 gamma = dots[0]; in KSPSolve_PIPEFCG_cycle() 141 delta = PetscRealPart(dots[1]); in KSPSolve_PIPEFCG_cycle() 356 PetscCall(PetscFree3(pipefcg->dots, pipefcg->etas, pipefcg->redux)); in KSPDestroy_PIPEFCG()
|
| H A D | pipefcgimpl.h | 16 PetscScalar *dots; member
|
| /petsc/src/ksp/ksp/impls/fcg/ |
| H A D | fcg.c | 179 PetscScalar *dots; in KSPSolve_FCG() local 181 PetscCall(PetscMalloc3(ndots, &dots, ndots, &Cold, ndots, &Pold)); in KSPSolve_FCG() 187 PetscCall(VecXMDot(Z, ndots, Cold, dots)); in KSPSolve_FCG() 188 for (k = 0; k < ndots; ++k) dots[k] = -dots[k]; in KSPSolve_FCG() 189 PetscCall(VecMAXPY(Pcurr, ndots, dots, Pold)); in KSPSolve_FCG() 190 PetscCall(PetscFree3(dots, Cold, Pold)); in KSPSolve_FCG()
|
| /petsc/doc/overview/ |
| H A D | matrix_table.md | 185 - :math:`I - \frac{1}{N}e e^T`, :math:`e=[1,\dots,1]^T`
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexfem.c | 340 PetscScalar dots[6]; in DMPlexCreateRigidBody() local 355 PetscCall(VecMDot(mode[i], mmin - i - 1, mode + i + 1, dots + i + 1)); in DMPlexCreateRigidBody() 357 dots[j] *= -1.0; in DMPlexCreateRigidBody() 358 PetscCall(VecAXPY(mode[j], dots[j], mode[i])); in DMPlexCreateRigidBody() 394 PetscScalar *dots; in DMPlexCreateRigidBodies() local 405 PetscCall(PetscMalloc2(m, &mode, m, &dots)); in DMPlexCreateRigidBodies() 424 PetscScalar dots[6]; in DMPlexCreateRigidBodies() local 427 PetscCall(VecMDot(mode[i], m - i - 1, mode + i + 1, dots + i + 1)); in DMPlexCreateRigidBodies() 429 dots[j] *= -1.0; in DMPlexCreateRigidBodies() 430 PetscCall(VecAXPY(mode[j], dots[j], mode[i])); in DMPlexCreateRigidBodies() [all …]
|
| /petsc/doc/manual/ |
| H A D | ts.md | 1039 \rm wlte_n&=& \max_{1\dots m}\frac{\left\|y_n(i)
|
| H A D | tao.md | 2037 $k = 1,2,\dots$
|
| /petsc/doc/ |
| H A D | petsc.bib | 1499 title = {Vortex state oscillations in soft magnetic cylindrical dots}, 7276 title = {Spin configurations in circular and rectangular vertical quantum dots in a
|