| /petsc/src/ksp/ksp/impls/bcgsl/ |
| H A D | bcgsl.c | 227 kappa0 = PetscRealPart(BLASdot_(&ldMZ, AY0c, &ione, AYtc, &ione)); in KSPSolve_BCGSL()
233 kappaA = PetscRealPart(BLASdot_(&ldMZ, AYlc, &ione, AYtc, &ione)); in KSPSolve_BCGSL()
237 kappa1 = PetscRealPart(BLASdot_(&ldMZ, AYlc, &ione, AYtc, &ione)); in KSPSolve_BCGSL()
|
| /petsc/src/ksp/ksp/impls/gmres/agmres/ |
| H A D | agmresorthog.c | 162 …PetscCallBLAS("BLASdot", tt = tloc[j] * BLASdot_(&len, &Qloc[j * nloc + j], &pas, &Qloc[k * nloc +… in KSPAGMRESRoddec()
302 tt = tloc[j] * (BLASdot_(&blen, &Qloc[dpt], &pas, &zloc[j], &pas)); in KSPAGMRESRodvec()
|
| /petsc/src/vec/vec/impls/seq/ |
| H A D | bvec1.c | 36 PetscCall(VecXDot_Seq_Private(xin, yin, z, BLASdot_)); in VecDot_Seq()
|
| H A D | bvec2.c | 204 …PetscCallBLAS("BLASdot", ztmp[type == NORM_1_AND_2] = PetscSqrtReal(PetscRealPart(BLASdot_(&bn, xx… in VecNorm_Seq()
|
| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | xxt.c | 293 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, x_ptr, &i1)); in xxt_generate()
324 PetscCallBLAS("BLASdot", alpha = BLASdot_(&dlen, u, &i1, v, &i1)); in xxt_generate()
431 PetscCallBLAS("BLASdot", *uu_ptr++ = BLASdot_(&dlen, uc + off, &i1, x_ptr, &i1)); in do_xxt_solve()
|
| H A D | xyt.c | 362 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, y_ptr, &i1)); in xyt_generate()
393 PetscCallBLAS("BLASdot", alpha = BLASdot_(&dlen, u, &i1, u, &i1)); in xyt_generate()
542 PetscCallBLAS("BLASdot", *uu_ptr++ = BLASdot_(&dlen, uc + off, &i1, y_ptr, &i1)); in do_xyt_solve()
|
| /petsc/include/ |
| H A D | petscblaslapack.h | 166 static inline PetscScalar BLASdot_(const PetscBLASInt *n, const PetscScalar *x, const PetscBLASInt … in BLASdot_() function
190 BLAS_EXTERN double BLASdot_(const PetscBLASInt *, const PetscScalar *, const PetscBLASInt *, const …
193 BLAS_EXTERN PetscScalar BLASdot_(const PetscBLASInt *, const PetscScalar *, const PetscBLASInt *, c…
|
| H A D | petscblaslapack_mangle.h | 209 #define BLASdot_ PETSCBLAS(dot, DOT) macro
|
| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | gqt.c | 323 PetscCallBLAS("BLASdot", prod = BLASdot_(&blasn, z, &blas1, x, &blas1) / delta); in gqt()
|
| H A D | pounders.c | 509 …PetscCallBLAS("BLASdot", dp = BLASdot_(&blasn, &mfqP->Q_tmp[i * mfqP->npmax], &blas1, mfqP->Gres, … in modelimprove()
516 …PetscCallBLAS("BLASdot", mfqP->work[i] = BLASdot_(&blasn, &mfqP->Q_tmp[i * mfqP->npmax], &blas1, m… in modelimprove()
860 …->npmax + i] = -mfqP->C[j] - BLASdot_(&blasn, &mfqP->Fdiff[j * mfqP->n], &ione, &mfqP->Disp[i], &b… in TaoSolve_POUNDERS()
|
| /petsc/src/ksp/ksp/utils/lmvm/symbrdn/ |
| H A D | symbrdn.c | 305 PetscCallBLAS("BLASdot", qp = BLASdot_(&m, q0, &ione, p0, &ione)); in SymBroydenCompactDenseUpdateArrays()
306 PetscCallBLAS("BLASdot", qp += BLASdot_(&m, q1, &ione, p1, &ione)); in SymBroydenCompactDenseUpdateArrays()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 6815 …PetscCallBLAS("BLASdot", norm = BLASdot_(&Blas_N, ptr_to_data, &Blas_one, ptr_to_data, &Blas_one)); in PCBDDCConstraintsSetUp()
6834 …+) PetscCallBLAS("BLASdot", correlation_mat[j * temp_constraints + k] = BLASdot_(&Blas_N, ptr_to_d… in PCBDDCConstraintsSetUp()
7300 …PetscCallBLAS("BLASdot", norm = BLASdot_(&Blas_N, constraints_data + constraints_data_ptr[total_co… in PCBDDCConstraintsSetUp()
|