Home
last modified time | relevance | path

Searched refs:xa (Results 1 – 15 of 15) sorted by relevance

/petsc/src/ksp/ksp/tutorials/
H A Dex11.c35 PetscScalar v, none = -1.0, sigma2, pfive = 0.5, *xa; in main() local
186 PetscCall(VecGetArray(x, &xa)); in main()
188 … PetscInt_FMT "] = %g + %g i\n", i, (double)PetscRealPart(xa[i]), (double)PetscImaginaryPart(xa[i]… in main()
189 PetscCall(VecRestoreArray(x, &xa)); in main()
/petsc/src/snes/impls/gs/
H A Dgssecant.c23 PetscScalar *xa, *wa; in SNESComputeNGSDefaultSecant() local
77 PetscCall(VecGetArray(X, &xa)); in SNESComputeNGSDefaultSecant()
82 x = xa[idx[j] - s]; in SNESComputeNGSDefaultSecant()
94 xa[idx[j] - s] = d; in SNESComputeNGSDefaultSecant()
96 PetscCall(VecRestoreArray(X, &xa)); in SNESComputeNGSDefaultSecant()
/petsc/src/mat/impls/aij/seq/klu/
H A Dklu.c113 PetscScalar *xa; in MatSolveTranspose_KLU() local
119 PetscCall(VecGetArray(x, &xa)); in MatSolveTranspose_KLU()
120 status = klu_K_solve(lu->Symbolic, lu->Numeric, A->rmap->n, 1, (PetscReal *)xa, &lu->Common); in MatSolveTranspose_KLU()
122 PetscCall(VecRestoreArray(x, &xa)); in MatSolveTranspose_KLU()
129 PetscScalar *xa; in MatSolve_KLU() local
134 PetscCall(VecGetArray(x, &xa)); in MatSolve_KLU()
135 …PetscCheck(klu_K_tsolve(lu->Symbolic, lu->Numeric, A->rmap->n, 1, xa, 1, &lu->Common), PETSC_COMM_… in MatSolve_KLU()
136 PetscCall(VecRestoreArray(x, &xa)); in MatSolve_KLU()
/petsc/src/snes/tutorials/
H A Dex3.c574 PetscScalar *xa, *xa_last, tmp; in PostCheck() local
595 PetscCall(DMDAVecGetArray(da, x, &xa)); in PostCheck()
605 if (!PetscAbsScalar(xa[i])) rdiff = 2 * check->tolerance; in PostCheck()
606 else rdiff = PetscAbsScalar((xa[i] - xa_last[i]) / xa[i]); in PostCheck()
608 tmp = xa[i]; in PostCheck()
609 xa[i] = .5 * (xa[i] + xa_last[i]); in PostCheck()
611 …AbsScalar(tmp), (double)PetscAbsScalar(xa_last[i]), (double)rdiff, (double)PetscAbsScalar(xa[i]))); in PostCheck()
615 PetscCall(DMDAVecRestoreArray(da, x, &xa)); in PostCheck()
/petsc/src/vec/vec/impls/seq/
H A Dbvec1.c17 const PetscScalar *ya, *xa; in VecXDot_Seq_Private() local
23 PetscCall(VecGetArrayRead(xin, &xa)); in VecXDot_Seq_Private()
27 PetscCallBLAS("BLASdot", *z = BLASfn(&bn, ya, &one, xa, &one)); in VecXDot_Seq_Private()
28 PetscCall(VecRestoreArrayRead(xin, &xa)); in VecXDot_Seq_Private()
H A Dbvec2.c155 const PetscScalar *xa; in VecCopy_Seq() local
158 PetscCall(VecGetArrayRead(xin, &xa)); in VecCopy_Seq()
160 PetscCall(PetscArraycpy(ya, xa, xin->map->n)); in VecCopy_Seq()
161 PetscCall(VecRestoreArrayRead(xin, &xa)); in VecCopy_Seq()
172 PetscScalar *ya, *xa; in VecSwap_Seq() local
176 PetscCall(VecGetArray(xin, &xa)); in VecSwap_Seq()
178 PetscCallBLAS("BLASswap", BLASswap_(&bn, xa, &one, ya, &one)); in VecSwap_Seq()
179 PetscCall(VecRestoreArray(xin, &xa)); in VecSwap_Seq()
/petsc/src/mat/impls/aij/seq/umfpack/
H A Dumfpack.c113 PetscScalar *av = a->a, *xa; in MatSolve_UMFPACK_Private() local
132 PetscCall(VecGetArray(x, &xa)); in MatSolve_UMFPACK_Private()
134 …status = umfpack_UMF_wsolve(uflag, ai, aj, (PetscReal *)av, NULL, (PetscReal *)xa, NULL, (PetscRea… in MatSolve_UMFPACK_Private()
136 …status = umfpack_UMF_wsolve(uflag, ai, aj, av, xa, ba, lu->Numeric, lu->Control, lu->Info, lu->Wi,… in MatSolve_UMFPACK_Private()
145 PetscCall(VecRestoreArray(x, &xa)); in MatSolve_UMFPACK_Private()
/petsc/src/sys/classes/draw/impls/x/
H A Dxops.c19 int xa, ya, xb, yb, xmax = XiWin->w - 1, ymax = XiWin->h - 1; in PetscDrawSetViewport_X() local
23 xa = (int)(xl * (PetscReal)xmax); in PetscDrawSetViewport_X()
28 box.x = (short)xa; in PetscDrawSetViewport_X()
29 box.width = (unsigned short)(xb + 1 - xa); in PetscDrawSetViewport_X()
306 int xa = (int)(xl * xmax), ya = ymax - (int)(yr * ymax); in PetscDrawClear_X() local
308 unsigned int w = (unsigned int)(xb + 1 - xa); in PetscDrawClear_X()
311 XFillRectangle(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, xa, ya, w, h); in PetscDrawClear_X()
/petsc/src/sys/classes/draw/impls/image/
H A Ddrawimage.c26 int xa = (int)(xl * xmax), ya = ymax - (int)(yr * ymax); in PetscDrawSetViewport_Image() local
28 PetscImageSetClip(img, xa, ya, xb + 1 - xa, yb + 1 - ya); in PetscDrawSetViewport_Image()
/petsc/src/snes/utils/dm/
H A Ddminterpolatesnes.c892 PetscScalar *xa = NULL; in DMInterpolationEvaluate() local
898 PetscCall(DMPlexVecGetClosure(dm, NULL, x, ctx->cells[p], &clSize, &xa)); in DMInterpolationEvaluate()
917 …for (PetscInt f = 0; f < Nb; ++f) interpolant[p * ctx->dof + coff + fc] += xa[foff + f] * basis[(0… in DMInterpolationEvaluate()
929 … for (PetscInt fc = 0; fc < Nc; ++fc) interpolant[p * ctx->dof + coff + fc] = xa[foff + fc]; in DMInterpolationEvaluate()
934 PetscCall(DMPlexVecRestoreClosure(dm, NULL, x, ctx->cells[p], &clSize, &xa)); in DMInterpolationEvaluate()
/petsc/src/vec/vec/impls/seq/seqviennacl/
H A Dvecviennacl.cxx257 const PetscScalar *xa; in VecCopy_SeqViennaCL_Private() local
263 PetscCall(VecGetArrayRead(xin, &xa)); in VecCopy_SeqViennaCL_Private()
265 PetscCall(PetscArraycpy(ya, xa, xin->map->n)); in VecCopy_SeqViennaCL_Private()
266 PetscCall(VecRestoreArrayRead(xin, &xa)); in VecCopy_SeqViennaCL_Private()
/petsc/src/tao/constrained/impls/ipm/
H A Dpdipm.c843 PetscInt offset, *xa, *xb, i, j, rstart, rend; in TaoSetup_PDIPM() local
1021 PetscCall(PetscMalloc2(pdipm->nx + pdipm->nce, &xa, 2 * pdipm->nci, &xb)); in TaoSetup_PDIPM()
1022 for (i = 0; i < pdipm->nx + pdipm->nce; i++) xa[i] = i; in TaoSetup_PDIPM()
1025 PetscCall(ISCreateGeneral(comm, pdipm->nx + pdipm->nce, xa, PETSC_OWN_POINTER, &pdipm->is1)); in TaoSetup_PDIPM()
/petsc/src/mat/impls/sbaij/mpi/
H A Dmpisbaij.c1656 Mat_SeqSBAIJ *xa, *ya; in MatAXPY_MPISBAIJ() local
1662 xa = (Mat_SeqSBAIJ *)xx->A->data; in MatAXPY_MPISBAIJ()
1664 PetscCall(PetscBLASIntCast(xa->nz, &bnz)); in MatAXPY_MPISBAIJ()
1665 PetscCallBLAS("BLASaxpy", BLASaxpy_(&bnz, &alpha, xa->a, &one, ya->a, &one)); in MatAXPY_MPISBAIJ()
/petsc/src/mat/impls/aij/seq/
H A Daij.c2958 const PetscScalar *xa; in MatAXPY_SeqAIJ() local
2964 PetscCall(MatSeqAIJGetArrayRead(X, &xa)); in MatAXPY_SeqAIJ()
2965 PetscCallBLAS("BLASaxpy", BLASaxpy_(&bnz, &alpha, xa, &one, ya, &one)); in MatAXPY_SeqAIJ()
2966 PetscCall(MatSeqAIJRestoreArrayRead(X, &xa)); in MatAXPY_SeqAIJ()
/petsc/src/dm/impls/plex/
H A Dplex.c338 PetscScalar *xa, *xb, *svals; in DMPlexVecView1D() local
342 PetscCall(DMPlexPointLocalRead(cdm, cone[0], coords, &xa)); in DMPlexVecView1D()
349 PetscCall(PetscDrawLGAddCommonPoint(lg, PetscRealPart(xa[0]), vals)); in DMPlexVecView1D()
355 …PetscCall(PetscDrawLGAddCommonPoint(lg, 0.5 * (PetscRealPart(xa[0]) + PetscRealPart(xb[0])), vals)… in DMPlexVecView1D()
366 PetscScalar *xa, *xb, *svals; in DMPlexVecView1D() local
370 PetscCall(DMPlexPointLocalRead(cdm, cone[0], coords, &xa)); in DMPlexVecView1D()
376 …PetscCall(PetscDrawLGAddCommonPoint(lg, 0.5 * (PetscRealPart(xa[0]) + PetscRealPart(xb[0])), vals)… in DMPlexVecView1D()