| /petsc/src/vec/vec/impls/seq/ |
| H A D | bvec1.c | 17 const PetscScalar *ya, *xa; in VecXDot_Seq_Private() local
24 PetscCall(VecGetArrayRead(yin, &ya)); in VecXDot_Seq_Private()
27 PetscCallBLAS("BLASdot", *z = BLASfn(&bn, ya, &one, xa, &one)); in VecXDot_Seq_Private()
29 PetscCall(VecRestoreArrayRead(yin, &ya)); in VecXDot_Seq_Private()
|
| H A D | bvec2.c | 156 PetscScalar *ya; in VecCopy_Seq() local
159 PetscCall(VecGetArrayWrite(yin, &ya)); in VecCopy_Seq()
160 PetscCall(PetscArraycpy(ya, xa, xin->map->n)); in VecCopy_Seq()
162 PetscCall(VecRestoreArrayWrite(yin, &ya)); in VecCopy_Seq()
172 PetscScalar *ya, *xa; in VecSwap_Seq() local
177 PetscCall(VecGetArray(yin, &ya)); in VecSwap_Seq()
178 PetscCallBLAS("BLASswap", BLASswap_(&bn, xa, &one, ya, &one)); in VecSwap_Seq()
180 PetscCall(VecRestoreArray(yin, &ya)); in VecSwap_Seq()
|
| /petsc/src/sys/classes/draw/impls/x/ |
| H A D | xops.c | 19 int xa, ya, xb, yb, xmax = XiWin->w - 1, ymax = XiWin->h - 1; in PetscDrawSetViewport_X() local
24 ya = ymax - (int)(yr * (PetscReal)ymax); in PetscDrawSetViewport_X()
30 box.y = (short)ya; in PetscDrawSetViewport_X()
31 box.height = (unsigned short)(yb + 1 - ya); in PetscDrawSetViewport_X()
306 int xa = (int)(xl * xmax), ya = ymax - (int)(yr * ymax); in PetscDrawClear_X() local
309 unsigned int h = (unsigned int)(yb + 1 - ya); 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 D | drawimage.c | 26 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/vec/vec/impls/seq/seqviennacl/ |
| H A D | vecviennacl.cxx | 256 PetscScalar *ya; in VecCopy_SeqViennaCL_Private() local
264 PetscCall(VecGetArray(yin, &ya)); in VecCopy_SeqViennaCL_Private()
265 PetscCall(PetscArraycpy(ya, xa, xin->map->n)); in VecCopy_SeqViennaCL_Private()
267 PetscCall(VecRestoreArray(yin, &ya)); in VecCopy_SeqViennaCL_Private()
|
| /petsc/src/mat/impls/sbaij/mpi/ |
| H A D | mpisbaij.c | 1656 Mat_SeqSBAIJ *xa, *ya; in MatAXPY_MPISBAIJ() local
1663 ya = (Mat_SeqSBAIJ *)yy->A->data; 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 D | aij.c | 2959 PetscScalar *ya, alpha = a; in MatAXPY_SeqAIJ() local
2963 PetscCall(MatSeqAIJGetArray(Y, &ya)); in MatAXPY_SeqAIJ()
2965 PetscCallBLAS("BLASaxpy", BLASaxpy_(&bnz, &alpha, xa, &one, ya, &one)); in MatAXPY_SeqAIJ()
2967 PetscCall(MatSeqAIJRestoreArray(Y, &ya)); in MatAXPY_SeqAIJ()
|