| /petsc/src/mat/tests/ |
| H A D | ex212f.F90 | 15 PetscScalar sone
20 sone = 1
40 PetscCallA(MatSetValues(C, one, [zero], one, [zero], [sone], INSERT_VALUES, ierr))
47 PetscCallA(VecSetValues(x, one, [zero], [sone], INSERT_VALUES, ierr))
|
| /petsc/src/snes/tutorials/ |
| H A D | ex40f90.F90 | 44 PetscScalar sone
51 sone = 1.0
68 PetscCallA(VecSet(x, sone, ierr))
|
| /petsc/src/ksp/ksp/utils/lmvm/blas_cyclic/cupm/ |
| H A D | blas_cyclic_cupm_impl.hpp | 186 auto sone = cupmScalarCast(1.0); in trsv() local
205 …dle, CUPMBLAS_OP_N, n_old, n_new, &minus_one, &A_[i_oldest], lda, y_, 1, &sone, &y_[i_oldest], 1)); in trsv()
209 …dle, CUPMBLAS_OP_C, n_old, n_new, &minus_one, &A_[i_oldest], lda, &y_[i_oldest], 1, &sone, y_, 1)); in trsv()
229 auto sone = cupmScalarCast(1.0); in hemv() local
251 …(handle, CUPMBLAS_OP_N, n_old, n_new, calpha, &A_[i_oldest], lda, x_, 1, &sone, &y_[i_oldest], 1)); in hemv()
252 …(handle, CUPMBLAS_OP_C, n_old, n_new, calpha, &A_[i_oldest], lda, &x_[i_oldest], 1, &sone, y_, 1)); in hemv()
272 auto sone = cupmScalarCast(1.0); in gemv() local
298 …(handle, CUPMBLAS_OP_N, n_old, n_new, calpha, &A_[i_oldest], lda, x_, 1, &sone, &y_[i_oldest], 1)); in gemv()
299 …e, CUPMBLAS_OP_N, n_new, n_old, calpha, &A_[i_oldest * lda], lda, &x_[i_oldest], 1, &sone, y_, 1)); in gemv()
301 …e, CUPMBLAS_OP_C, n_new, n_old, calpha, &A_[i_oldest * lda], lda, x_, 1, &sone, &y_[i_oldest], 1)); in gemv()
[all …]
|
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex12f.F90 | 9 PetscScalar, parameter :: sone = 1.0
29 PetscCallA(VecSet(v, sone, ierr))
|
| H A D | ex11f90.F90 | 11 PetscScalar, parameter :: sone = 1.0
49 PetscCallA(VecSet(x, sone, ierr))
|
| /petsc/src/ksp/ksp/utils/lmvm/dense/cd_cupm/ |
| H A D | cd_cupm.cxx | 54 auto sone = cupmScalarCast(1.0); in SolveInPlaceCyclic() local
69 …BLAS_OP_N, n_old, n_new, &minus_one, &A_[oldest_index], lda, x_, stride, &sone, &x_[oldest_index],… in SolveInPlaceCyclic()
73 …, n_old, n_new, &minus_one, &A_[oldest_index], lda, &x_[oldest_index], stride, &sone, x_, stride)); in SolveInPlaceCyclic()
|
| /petsc/src/ksp/ksp/utils/lmvm/dense/ |
| H A D | cd_utils.c | 115 PetscScalar sone = 1.0; in MatUpperTriangularSolveInPlace_Internal() local
121 …_("N", &n_old, &n_new, &minus_one, &A[oldest_index], &lda_blas, x, &one, &sone, &x[oldest_index], … in MatUpperTriangularSolveInPlace_Internal()
126 … &n_old, &n_new, &minus_one, &A[oldest_index], &lda_blas, &x[oldest_index], &one, &sone, x, &one)); in MatUpperTriangularSolveInPlace_Internal()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex5.c | 423 PetscScalar v[3], stwo = -2. / (appctx->h * appctx->h), sone = -.5 * stwo; in RHSMatrixHeat() local
446 v[0] = sone; in RHSMatrixHeat()
448 v[2] = sone; in RHSMatrixHeat()
|
| H A D | ex6.c | 432 PetscScalar v[3], stwo = -2. / (appctx->h * appctx->h), sone = -.5 * stwo; in RHSMatrixHeat() local
455 v[0] = sone; in RHSMatrixHeat()
457 v[2] = sone; in RHSMatrixHeat()
|
| H A D | ex4.c | 487 PetscScalar v[3], stwo = -2. / (appctx->h * appctx->h), sone = -.5 * stwo; in RHSMatrixHeat() local
516 v[0] = sone; in RHSMatrixHeat()
518 v[2] = sone; in RHSMatrixHeat()
|
| H A D | ex3.c | 469 PetscScalar v[3], stwo = -2. / (appctx->h * appctx->h), sone = -.5 * stwo; in RHSMatrixHeat() local
492 v[0] = sone; in RHSMatrixHeat()
494 v[2] = sone; in RHSMatrixHeat()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex7f.F90 | 31 sone = 1.0
103 PetscCallA(Vecset(u, sone, ierr))
|
| /petsc/src/ksp/ksp/utils/lmvm/symbrdn/ |
| H A D | symbrdn.c | 257 PetscScalar sone = 1.0; in SymBroydenCompactDenseUpdateArrays() local
299 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &m, &m, &sone, M00, &lda00, q0, &ione, &szero, p0, &ione)… in SymBroydenCompactDenseUpdateArrays()
300 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &m, &m, &sone, M01, &lda01, q1, &ione, &sone, p0, &ione)); in SymBroydenCompactDenseUpdateArrays()
301 …PetscCallBLAS("BLASgemv", BLASgemv_("C", &m, &m, &sone, M01, &lda01, q0, &ione, &szero, p1, &ione)… in SymBroydenCompactDenseUpdateArrays()
302 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &m, &m, &sone, M11, &lda11, q1, &ione, &sone, p1, &ione)); in SymBroydenCompactDenseUpdateArrays()
|
| /petsc/src/mat/impls/scalapack/ |
| H A D | matscalapack.c | 339 PetscScalar sone = 1.0, zero = 0.0; in MatMatMultNumeric_ScaLAPACK() local
343 …PetscCallBLAS("PBLASgemm", PBLASgemm_("N", "N", &a->M, &b->N, &a->N, &sone, a->loc, &one, &one, a-… in MatMatMultNumeric_ScaLAPACK()
363 PetscScalar sone = 1.0, zero = 0.0; in MatTransposeMatMultNumeric_ScaLAPACK() local
367 …PetscCallBLAS("PBLASgemm", PBLASgemm_("T", "N", &a->N, &b->N, &a->M, &sone, a->loc, &one, &one, a-… in MatTransposeMatMultNumeric_ScaLAPACK()
387 PetscScalar sone = 1.0, zero = 0.0; in MatMatTransposeMultNumeric_ScaLAPACK() local
391 …PetscCallBLAS("PBLASgemm", PBLASgemm_("N", "T", &a->M, &b->M, &a->N, &sone, a->loc, &one, &one, a-… in MatMatTransposeMultNumeric_ScaLAPACK()
659 PetscScalar sone = 1.0, zero = 0.0; in MatTranspose_ScaLAPACK() local
670 …PetscCallBLAS("PBLAStran", PBLAStran_(&a->N, &a->M, &sone, a->loc, &one, &one, a->desc, &zero, b->… in MatTranspose_ScaLAPACK()
696 PetscScalar sone = 1.0, zero = 0.0; in MatHermitianTranspose_ScaLAPACK() local
703 …PetscCallBLAS("PBLAStran", PBLAStran_(&a->N, &a->M, &sone, a->loc, &one, &one, a->desc, &zero, b->… in MatHermitianTranspose_ScaLAPACK()
|