Home
last modified time | relevance | path

Searched refs:PetscCallBLAS (Results 1 – 25 of 67) sorted by relevance

123

/petsc/src/tao/leastsquares/impls/pounders/ !
H A Dgqt.c27 PetscCallBLAS("BLASscal", BLASscal_(&blasn, &temp, z, &blas1)); in estsv()
45 …PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasnmi, &w, &r[i + ldr * (i + 1)], &blasldr, &z[i + 1], &bla… in estsv()
46 PetscCallBLAS("BLASasum", s += BLASasum_(&blasnmi, &z[i + 1], &blas1)); in estsv()
51 …if (i < n - 1) PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasnmi, &temp, &r[i + ldr * (i + 1)], &blasld… in estsv()
56 PetscCallBLAS("BLASnrm2", ynorm = BLASnrm2_(&blasn, z, &blas1)); in estsv()
63 PetscCallBLAS("BLASscal", BLASscal_(&blasn, &temp, z, &blas1)); in estsv()
73 PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasj, &temp, &r[0 + ldr * j], &blas1, z, &blas1)); in estsv()
77 PetscCallBLAS("BLASnrm2", znorm = 1.0 / BLASnrm2_(&blasn, z, &blas1)); in estsv()
79 PetscCallBLAS("BLASscal", BLASscal_(&blasn, &znorm, z, &blas1)); in estsv()
236 PetscCallBLAS("BLAScopy", BLAScopy_(&blasn, a, &blasldap1, wa1, &blas1)); in gqt()
[all …]
H A Dpounders.c167 …PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn, &factor, &mfqP->Fdiff[blasn * i], &ione, mfqP->Gres, &… in pounders_update_res()
177 … PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn2, &factor, &mfqP->H[i], &blasm, mfqP->Hres, &ione)); in pounders_update_res()
180 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "T", &blasn, &blasn, &ione, &wii, &mfqP->Fdiff[blasn * i]… in pounders_update_res()
189 …PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn, &factor, &mfqP->Fdiff[blasn * row], &ione, mfqP->Gres,… in pounders_update_res()
191 …PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn, &factor, &mfqP->Fdiff[blasn * col], &ione, mfqP->Gres,… in pounders_update_res()
201 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "T", &blasn, &blasn, &ione, &factor, &mfqP->Fdiff[blasn *… in pounders_update_res()
202 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "T", &blasn, &blasn, &ione, &factor, &mfqP->Fdiff[blasn *… in pounders_update_res()
211 … PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn2, &factor, &mfqP->H[row], &blasm, mfqP->Hres, &ione)); in pounders_update_res()
215 … PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn2, &factor, &mfqP->H[col], &blasm, mfqP->Hres, &ione)); in pounders_update_res()
221 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &blasn, &blasm, &one, mfqP->Fdiff, &blasn, mfqP->C, &ione… in pounders_update_res()
[all …]
/petsc/include/petsc/private/kernels/ !
H A Dblockinvert.h68 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &(_bbs), &(_bbs), &(_bbs), &_one, (W), &(_bbs), (B),…
85 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &(_bbs), &(_bbs), &(_bbs), &_mone, (B), &(_bbs), (C)…
102 …PetscCallBLAS("BLASgemm", BLASgemm_("T", "N", &(_bbs), &(_bbs), &(_bbs), &_one, (B), &(_bbs), (C),…
120 …PetscCallBLAS("BLASgemv", BLASgemv_("T", &(_bbs), &(_bbs), &_one, A, &(_bbs), w, &_ione, &_one, v,…
138 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &(_bbs), &(_bbs), &_mone, A, &(_bbs), w, &_ione, &_one, v…
156 …PetscCallBLAS("BLASgemv", BLASgemv_("T", &(_bbs), &(_bbs), &_mone, A, &(_bbs), w, &_ione, &_one, v…
174 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &(_bbs), &(_bbs), &_one, A, &(_bbs), w, &_ione, &_one, v,…
193 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &(_bbs), &(_bncols), &_one, A, &(_bbs), v, &_ione, &_one,…
212 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &(_bbs), &(_bncols), &_mone, A, &(_bbs), v, &_ione, &_one…
230 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &(_bbs), &(_bbs), &_one, A, &(_bbs), v, &_ione, &_zero, w…
[all …]
H A Dpetscaxpy.h36 PetscCallBLAS("BLASaxpy", BLASaxpy_(&nn, &a1, p1, &one, U, &one)); \
177 PetscCallBLAS("BLASaxpy", BLASaxpy_(&nn, &a1, p1, &one, U, &one)); \
/petsc/src/mat/impls/scalapack/ !
H A Dmatscalapack.c128 …PetscCallBLAS("SCALAPACKinfog2l", SCALAPACKinfog2l_(&gridx, &gcidx, a->desc, &a->grid->nprow, &a->… in MatSetValues_ScaLAPACK()
172 …PetscCallBLAS("SCALAPACKdescinit", SCALAPACKdescinit_(xdesc, &a->M, &one, &mb, &one, &zero, &zero,… in MatMultXXXYYY_ScaLAPACK()
177 …PetscCallBLAS("SCALAPACKdescinit", SCALAPACKdescinit_(ydesc, &one, &a->N, &one, &nb, &zero, &zero,… in MatMultXXXYYY_ScaLAPACK()
187 …PetscCallBLAS("SCALAPACKdescinit", SCALAPACKdescinit_(x2desc, &a->M, &one, &a->mb, &one, &zero, &z… in MatMultXXXYYY_ScaLAPACK()
189 …PetscCallBLAS("SCALAPACKdescinit", SCALAPACKdescinit_(y2desc, &one, &a->N, &one, &a->nb, &zero, &z… in MatMultXXXYYY_ScaLAPACK()
193 …PetscCallBLAS("SCALAPACKgemr2d", SCALAPACKgemr2d_(&a->M, &one, x, &one, &one, xdesc, x2d, &one, &o… in MatMultXXXYYY_ScaLAPACK()
196 …if (beta != 0.0) PetscCallBLAS("SCALAPACKgemr2d", SCALAPACKgemr2d_(&one, &a->N, y, &one, &one, yde… in MatMultXXXYYY_ScaLAPACK()
199 …if (hermitian) PetscCallBLAS("PBLASgemv", PBLASgemv_("C", &a->M, &a->N, &alpha, a->loc, &one, &one… in MatMultXXXYYY_ScaLAPACK()
200 …else PetscCallBLAS("PBLASgemv", PBLASgemv_("T", &a->M, &a->N, &alpha, a->loc, &one, &one, a->desc,… in MatMultXXXYYY_ScaLAPACK()
203 …PetscCallBLAS("SCALAPACKgemr2d", SCALAPACKgemr2d_(&one, &a->N, y2d, &one, &one, y2desc, y, &one, &… in MatMultXXXYYY_ScaLAPACK()
[all …]
/petsc/src/ksp/ksp/impls/gmres/agmres/ !
H A Dagmresorthog.c145 PetscCallBLAS("BLAScopy", BLAScopy_(&bnloc, col, &pas, &Qloc[j * nloc], &pas)); in KSPAGMRESRoddec()
152 PetscCallBLAS("BLASnrm2", rho = -PetscSign(Ajj) * BLASnrm2_(&len, &Qloc[j * nloc + j], &pas)); in KSPAGMRESRoddec()
158 PetscCallBLAS("BLASscal", BLASscal_(&len, &val, &Qloc[j * nloc + j + 1], &pas)); in KSPAGMRESRoddec()
162 …PetscCallBLAS("BLASdot", tt = tloc[j] * BLASdot_(&len, &Qloc[j * nloc + j], &pas, &Qloc[k * nloc +… in KSPAGMRESRoddec()
163 …PetscCallBLAS("BLASaxpy", BLASaxpy_(&len, &tt, &Qloc[j * nloc + j], &pas, &Qloc[k * nloc + j], &pa… in KSPAGMRESRoddec()
172 PetscCallBLAS("BLAScopy", BLAScopy_(&len, &Qloc[d * nloc + d], &bnloc, &wbufptr[d], &pas)); in KSPAGMRESRoddec()
203 PetscCallBLAS("BLAScopy", BLAScopy_(&len, &wbufptr[d], &pas, RLOC(d, d), &N)); in KSPAGMRESRoddec()
214 PetscCallBLAS("BLASscal", BLASscal_(&bpos, &sgn[d], RLOC(d, d), &N)); in KSPAGMRESRoddec()
263 if (agmres->size == 1) PetscCallBLAS("BLAScopy", BLAScopy_(&bnvec, y, &pas, &zloc[0], &pas)); in KSPAGMRESRodvec()
303 PetscCallBLAS("BLASaxpy", BLASaxpy_(&blen, &tt, &Qloc[dpt], &pas, &zloc[j], &pas)); in KSPAGMRESRodvec()
H A Dagmresdeflation.c127 …PetscCallBLAS("LAPACKhgeqz", LAPACKhgeqz_("S", "I", "I", &KspSize, &ilo, &KspSize, A, &ldA, B, &ld… in KSPAGMRESSchurForm()
130 …PetscCallBLAS("LAPACKgges", LAPACKgges_("V", "V", "N", NULL, &KspSize, A, &ldA, B, &ldB, &sdim, wr… in KSPAGMRESSchurForm()
158 …PetscCallBLAS("LAPACKtgsen", LAPACKtgsen_(&ijob, &wantQ, &wantZ, select, &KspSize, A, &ldA, B, &ld… in KSPAGMRESSchurForm()
207 …PetscCallBLAS("BLASgemm", BLASgemm_("T", "N", &bKspSize, &bKspSize, &blC, &alpha, agmres->hes_orig… in KSPAGMRESComputeDeflationData()
/petsc/src/ksp/ksp/utils/lmvm/dense/ !
H A Dcd_utils.c103 …PetscCallBLAS("BLAStrsv", BLAStrsv_("U", hermitian_transpose ? "C" : "N", "NotUnitTriangular", &n,… in MatUpperTriangularSolveInPlace_Internal()
120 …if (n_new > 0) PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "N", "NotUnitTriangular", &n_new, A, &lda_… in MatUpperTriangularSolveInPlace_Internal()
121 …if (n_new > 0 && n_old > 0) PetscCallBLAS("BLASgemv", BLASgemv_("N", &n_old, &n_new, &minus_one, &… in MatUpperTriangularSolveInPlace_Internal()
122 …if (n_old > 0) PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "N", "NotUnitTriangular", &n_old, &A[oldes… in MatUpperTriangularSolveInPlace_Internal()
125 …PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "C", "NotUnitTriangular", &n_old, &A[oldest_index * (lda … in MatUpperTriangularSolveInPlace_Internal()
126 …if (n_new > 0 && n_old > 0) PetscCallBLAS("BLASgemv", BLASgemv_("C", &n_old, &n_new, &minus_one, &… in MatUpperTriangularSolveInPlace_Internal()
128 …if (n_new > 0) PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "C", "NotUnitTriangular", &n_new, A, &lda_… in MatUpperTriangularSolveInPlace_Internal()
/petsc/src/ksp/ksp/utils/lmvm/blas_cyclic/ !
H A Dblas_cyclic.c264 …PetscCallBLAS("BLAStrsv", BLAStrsv_("U", trans, "N", &bn, &A[i_oldest * (lda + 1)], &blda, &y[i_ol… in TRSVCyclic_Private()
272 … if (i_next > 0) PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "N", "N", &i_next, A, &blda, y, &b_one)); in TRSVCyclic_Private()
273 …if (i_next > 0 && bn > 0) PetscCallBLAS("BLASgemv", BLASgemv_("N", &bn, &i_next, &minus_one, &A[i_… in TRSVCyclic_Private()
274 …if (bn > 0) PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "N", "N", &bn, &A[i_oldest * (lda + 1)], &bld… in TRSVCyclic_Private()
276 …if (bn > 0) PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "C", "N", &bn, &A[i_oldest * (lda + 1)], &bld… in TRSVCyclic_Private()
277 …if (i_next > 0 && bn > 0) PetscCallBLAS("BLASgemv", BLASgemv_("C", &bn, &i_next, &minus_one, &A[i_… in TRSVCyclic_Private()
278 … if (i_next > 0) PetscCallBLAS("BLAStrsv", BLAStrsv_("U", "C", "N", &i_next, A, &blda, y, &b_one)); in TRSVCyclic_Private()
357 …PetscCallBLAS("BLAShemv", BLAShemv_("U", &bn, &alpha, &A[i_oldest * (lda + 1)], &blda, &x[i_oldest… in HEMVCyclic_Private()
360 …if (i_next > 0) PetscCallBLAS("BLAShemv", BLAShemv_("U", &i_next, &alpha, A, &blda, x, &b_one, &be… in HEMVCyclic_Private()
361 …if (bn > 0) PetscCallBLAS("BLAShemv", BLAShemv_("U", &bn, &alpha, &A[i_oldest * (lda + 1)], &blda,… in HEMVCyclic_Private()
[all …]
/petsc/src/ksp/ksp/impls/gmres/ !
H A Dgmreig.c30 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("N", "N", &bn, &bn, R, &bN, realpart, &sdummy, &idummy, … in KSPComputeExtremeSingularValues_GMRES()
32 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("N", "N", &bn, &bn, R, &bN, realpart, &sdummy, &idummy, … in KSPComputeExtremeSingularValues_GMRES()
66 …PetscCallBLAS("LAPACKgeev", LAPACKgeev_("N", "N", &bn, R, &bN, realpart, imagpart, &sdummy, &idumm… in KSPComputeEigenvalues_GMRES()
98 …PetscCallBLAS("LAPACKgeev", LAPACKgeev_("N", "N", &bn, R, &bN, eigs, &sdummy, &idummy, &sdummy, &i… in KSPComputeEigenvalues_GMRES()
164 PetscCallBLAS("LAPACKgesv", LAPACKgesv_(&bn, &nrhs, Ht, &bn, ipiv, t, &bn, &info)); in KSPComputeRitz_GMRES()
187 …PetscCallBLAS("LAPACKgeev", LAPACKgeev_("N", "V", &bn, H, &bN, wr, wi, &sdummy, &idummy, Q, &bn, w… in KSPComputeRitz_GMRES()
190 …PetscCallBLAS("LAPACKgeev", LAPACKgeev_("N", "V", &bn, H, &bN, wr, &sdummy, &idummy, Q, &bn, work,… in KSPComputeRitz_GMRES()
/petsc/src/sys/utils/ !
H A Dmathfit.c51 PetscCallBLAS("LAPACKgetrf", LAPACKgetrf_(&two, &two, H, &two, ipiv, &info)); in PetscLinearRegression()
52 PetscCallBLAS("LAPACKgetri", LAPACKgetri_(&two, H, &two, ipiv, work, &two, &info)); in PetscLinearRegression()
/petsc/src/ksp/ksp/impls/bcgsl/ !
H A Dbcgsl.c170 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("A", "A", &bell, &bell, &MZa[1 + ldMZ], &ldMZ, bcgsl->s,… in KSPSolve_BCGSL()
172 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("A", "A", &bell, &bell, &MZa[1 + ldMZ], &ldMZ, bcgsl->s,… in KSPSolve_BCGSL()
195 PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("Lower", &bell, &MZa[1 + ldMZ], &ldMZ, &bierr)); in KSPSolve_BCGSL()
201 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &bell, &ione, &MZa[1 + ldMZ], &ldMZ, &AY0c[1], … in KSPSolve_BCGSL()
209 PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("Lower", &neqs, &MZa[1 + ldMZ], &ldMZ, &bierr)); in KSPSolve_BCGSL()
215 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &neqs, &ione, &MZa[1 + ldMZ], &ldMZ, &AY0c[1], … in KSPSolve_BCGSL()
220 …PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("Lower", &neqs, &ione, &MZa[1 + ldMZ], &ldMZ, &AYlc[1], … in KSPSolve_BCGSL()
225 …PetscCallBLAS("BLASgemv", BLASgemv_("NoTr", &ldMZ, &ldMZ, &aone, MZb, &ldMZ, AY0c, &ione, &azero, … in KSPSolve_BCGSL()
235 …PetscCallBLAS("BLASgemv", BLASgemv_("noTr", &ldMZ, &ldMZ, &aone, MZb, &ldMZ, AYlc, &ione, &azero, … in KSPSolve_BCGSL()
/petsc/src/ksp/ksp/guess/impls/pod/ !
H A Dpod.c86 …PetscCallBLAS("LAPACKsyevx", LAPACKsyevx_("V", "A", "L", &bN, pod->corr, &bN, &rdummy, &rdummy, &i… in KSPGuessSetUp_POD()
88 …PetscCallBLAS("LAPACKsyevx", LAPACKsyevx_("V", "A", "L", &bN, pod->corr, &bN, &rdummy, &rdummy, &i… in KSPGuessSetUp_POD()
159 …PetscCallBLAS("BLASgemv", BLASgemv_("T", &bN, &bNen, &one, pod->eigv + pod->st * pod->n, &bN, pod-… in KSPGuessFormGuess_POD()
190 PetscCallBLAS("LAPACKgetrf", LAPACKgetrf_(&bNen, &bNen, pod->low, &bNen, pod->iwork, &lierr)); in KSPGuessFormGuess_POD()
192 …PetscCallBLAS("LAPACKgetrs", LAPACKgetrs_(tsolve ? "T" : "N", &bNen, &ione, pod->low, &bNen, pod->… in KSPGuessFormGuess_POD()
196 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &bN, &bNen, &one, pod->eigv + pod->st * pod->n, &bN, pod-… in KSPGuessFormGuess_POD()
313 …PetscCallBLAS("LAPACKsyevx", LAPACKsyevx_("V", "A", "L", &bN, pod->swork, &bN, &reps, &reps, &idum… in KSPGuessUpdate_POD()
315 …PetscCallBLAS("LAPACKsyevx", LAPACKsyevx_("V", "A", "L", &bN, pod->swork, &bN, &reps, &reps, &idum… in KSPGuessUpdate_POD()
350 …PetscCallBLAS("BLASgemm", BLASgemm_("T", "N", &bNen, &bN, &bN, &one, pod->eigv + st, &bN, pod->yha… in KSPGuessUpdate_POD()
351 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &bNen, &bNen, &bN, &one, pod->swork, &bNen, pod->eig… in KSPGuessUpdate_POD()
[all …]
/petsc/src/ksp/ksp/impls/cg/ !
H A Dcgeig.c35 PetscCallBLAS("LAPACKREALstev", LAPACKREALstev_("N", &bn, r, ee, NULL, &ldz, NULL, &lierr)); in KSPComputeEigenvalues_CG()
68 PetscCallBLAS("LAPACKREALstev", LAPACKREALstev_("N", &bn, dd, ee, NULL, &ldz, NULL, &lierr)); in KSPComputeExtremeSingularValues_CG()
/petsc/src/vec/vec/impls/seq/ !
H A Dbvec1.c27 PetscCallBLAS("BLASdot", *z = BLASfn(&bn, ya, &one, xa, &one)); in VecXDot_Seq_Private()
64 PetscCallBLAS("BLASscal", BLASscal_(&bn, &alpha, xarray, &one)); in VecScale_Seq()
84 PetscCallBLAS("BLASaxpy", BLASaxpy_(&bn, &alpha, xarray, &one, yarray, &one)); in VecAXPY_Seq()
/petsc/src/mat/impls/dense/seq/ !
H A Ddense.c50 …PetscCallBLAS("LAPACKgetri", LAPACKgetri_(&n, mat->v, &mat->lda, mat->pivots, mat->fwork, &mat->lf… in MatSeqDenseInvertFactors_Private()
56 PetscCallBLAS("LAPACKpotri", LAPACKpotri_("L", &n, mat->v, &mat->lda, &info)); in MatSeqDenseInvertFactors_Private()
64 …PetscCallBLAS("LAPACKhetri", LAPACKhetri_("L", &n, mat->v, &mat->lda, mat->pivots, mat->fwork, &in… in MatSeqDenseInvertFactors_Private()
72 …PetscCallBLAS("LAPACKsytri", LAPACKsytri_("L", &n, mat->v, &mat->lda, mat->pivots, mat->fwork, &in… in MatSeqDenseInvertFactors_Private()
252 …for (PetscInt j = 0; j < X->cmap->n; j++) PetscCallBLAS("BLASaxpy", BLASaxpy_(&m, &alpha, PetscSaf… in MatAXPY_SeqDense()
254 PetscCallBLAS("BLASaxpy", BLASaxpy_(&N, &alpha, xv, &one, yv, &one)); in MatAXPY_SeqDense()
291 …for (j = 0; j < A->cmap->n; j++) PetscCallBLAS("BLASscal", BLASscal_(&nz, &alpha, v + j * lda, &on… in MatScale_SeqDense()
294 PetscCallBLAS("BLASscal", BLASscal_(&nz, &alpha, v, &one)); in MatScale_SeqDense()
409 …PetscCallBLAS("LAPACKgetrs", LAPACKgetrs_(T ? "T" : "N", &m, &nrhs, mat->v, &mat->lda, mat->pivots… in MatSolve_SeqDense_Internal_LU()
425 PetscCallBLAS("LAPACKpotrs", LAPACKpotrs_("L", &m, &nrhs, mat->v, &mat->lda, x, &m, &info)); in MatSolve_SeqDense_Internal_Cholesky()
[all …]
/petsc/src/ksp/pc/impls/tfs/ !
H A Dxxt.c293 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, x_ptr, &i1)); in xxt_generate()
308 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &uu[k], x_ptr, &i1, z + off, &i1)); in xxt_generate()
315 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &dm1, z, &i1, v, &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()
445 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, uu_ptr++, x_ptr, &i1, uc + off, &i1)); in do_xxt_solve()
H A Dxyt.c362 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, y_ptr, &i1)); in xyt_generate()
377 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &uu[k], x_ptr, &i1, z + off, &i1)); in xyt_generate()
384 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &dm1, z, &i1, v, &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()
555 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, uu_ptr++, x_ptr, &i1, uc + off, &i1)); in do_xyt_solve()
/petsc/src/ksp/ksp/impls/cg/gltr/ !
H A Dgltr.c656 …PetscCallBLAS("LAPACKstebz", LAPACKstebz_("I", "E", &t_size, &vl, &vu, &il, &iu, &cg->eigen_tol, c… in KSPCGSolve_GLTR()
679 PetscCallBLAS("LAPACKpttrf", LAPACKpttrf_(&t_size, t_diag, t_offd + 1, &info)); in KSPCGSolve_GLTR()
694 …PetscCallBLAS("LAPACKpttrs", LAPACKpttrs_(&t_size, &nrhs, t_diag, t_offd + 1, t_soln, &nldb, &info… in KSPCGSolve_GLTR()
716 …PetscCallBLAS("LAPACKstein", LAPACKstein_(&t_size, cg->diag, cg->offd + 1, &e_valus, e_valu, e_ibl… in KSPCGSolve_GLTR()
774 …PetscCallBLAS("LAPACKpttrs", LAPACKpttrs_(&t_size, &nrhs, t_diag, t_offd + 1, e_rwrk, &nldb, &info… in KSPCGSolve_GLTR()
796 PetscCallBLAS("LAPACKpttrf", LAPACKpttrf_(&t_size, t_diag, t_offd + 1, &info)); in KSPCGSolve_GLTR()
810 …PetscCallBLAS("LAPACKpttrs", LAPACKpttrs_(&t_size, &nrhs, t_diag, t_offd + 1, t_soln, &nldb, &info… in KSPCGSolve_GLTR()
/petsc/src/ksp/ksp/impls/gmres/dgmres/ !
H A Ddgmres.c629 PetscCallBLAS("LAPACKgetrf", LAPACKgetrf_(&nr, &nr, TTF, &bmax, INVP, &info)); in KSPDGMRESComputeDeflationData_DGMRES()
710 PetscCallBLAS("LAPACKgesv", LAPACKgesv_(&bn, &nrhs, Ht, &bn, ipiv, t, &bn, &info)); in KSPDGMRESComputeSchurForm_DGMRES()
722 …PetscCallBLAS("LAPACKhseqr", LAPACKhseqr_("S", "I", &bn, &ilo, &ihi, A, &ldA, wr, wi, Q, &ldQ, wor… in KSPDGMRESComputeSchurForm_DGMRES()
758 …PetscCallBLAS("LAPACKtrsen", LAPACKtrsen_("B", "V", select, &bn, A, &ldA, Q, &ldQ, wr, wi, &NbrEig… in KSPDGMRESComputeSchurForm_DGMRES()
805 PetscCallBLAS("LAPACKgetrs", LAPACKgetrs_("N", &br, &nrhs, TTF, &bmax, INVP, X1, &bmax, &info)); in KSPDGMRESApplyDeflation_DGMRES()
817 …PetscCallBLAS("LAPACKgerfs", LAPACKgerfs_("N", &br, &nrhs, TT, &bmax, TTF, &bmax, INVP, X2, &bmax,… in KSPDGMRESApplyDeflation_DGMRES()
893 …PetscCallBLAS("LAPACKgges", LAPACKgges_("V", "V", "N", NULL, &N, AUAU, &ldA, AUU, &ldA, &i, wr, wi… in KSPDGMRESImproveEig_DGMRES()
937 …PetscCallBLAS("LAPACKtgsen", LAPACKtgsen_(&ijob, &wantQ, &wantZ, select, &N, AUAU, &ldA, AUU, &ldA… in KSPDGMRESImproveEig_DGMRES()
963 PetscCallBLAS("LAPACKgetrf", LAPACKgetrf_(&nr, &nr, TTF, &bm, INVP, &info)); in KSPDGMRESImproveEig_DGMRES()
/petsc/src/ksp/ksp/utils/lmvm/symbrdn/ !
H A Dsymbrdn.c299 …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()
305 PetscCallBLAS("BLASdot", qp = BLASdot_(&m, q0, &ione, p0, &ione)); in SymBroydenCompactDenseUpdateArrays()
306 PetscCallBLAS("BLASdot", qp += BLASdot_(&m, q1, &ione, p1, &ione)); in SymBroydenCompactDenseUpdateArrays()
321 PetscCallBLAS("LAPACKgerc", LAPACKgerc_(&m, &m, &alpha, p0, &ione, p0, &ione, M00, &lda00)); in SymBroydenCompactDenseUpdateArrays()
326 PetscCallBLAS("LAPACKgerc", LAPACKgerc_(&m, &m, &alpha, p0, &ione, p1, &ione, M01, &lda01)); in SymBroydenCompactDenseUpdateArrays()
331 PetscCallBLAS("LAPACKgerc", LAPACKgerc_(&m, &m, &alpha, p1, &ione, p1, &ione, M11, &lda11)); in SymBroydenCompactDenseUpdateArrays()
/petsc/src/ksp/pc/impls/bddc/ !
H A Dbddcschurs.c631 …PetscCallBLAS("LAPACKsytrf", LAPACKsytrf_("L", &B_N, &dummyscalar, &B_N, &dummyint, &lwork, &B_lwo… in PCBDDCSubSchursSetUp()
634 …PetscCallBLAS("LAPACKgetri", LAPACKgetri_(&B_N, &dummyscalar, &B_N, &dummyint, &lwork, &B_lwork, &… in PCBDDCSubSchursSetUp()
1192 …if (B_n) PetscCallBLAS("BLASsyrk", BLASsyrk_("L", "N", &B_n, &B_k, &sum, cs_AIB + i * size_schur, … in PCBDDCSubSchursSetUp()
1193 …if (matl_dbg_viewer && B_n) PetscCallBLAS("BLASsyrk", BLASsyrk_("L", "N", &B_n, &B_k, &sum, cs_AIB… in PCBDDCSubSchursSetUp()
1196 …if (B_n) PetscCallBLAS("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, cs_AIB + k * size_schur… in PCBDDCSubSchursSetUp()
1197 …if (matl_dbg_viewer && B_n) PetscCallBLAS("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, cs_A… in PCBDDCSubSchursSetUp()
1201 …if (B_n) PetscCallBLAS("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, array + n_I, &B_n, cs_A… in PCBDDCSubSchursSetUp()
1202 …if (matl_dbg_viewer && B_n) PetscCallBLAS("BLASsyr2k", BLASsyr2k_("L", "N", &B_n, &B_k, &sum, arra… in PCBDDCSubSchursSetUp()
1719 PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("L", &B_N, S_data, &B_N, &B_ierr)); in PCBDDCSubSchursSetUp()
1721 PetscCallBLAS("LAPACKpotri", LAPACKpotri_("L", &B_N, S_data, &B_N, &B_ierr)); in PCBDDCSubSchursSetUp()
[all …]
/petsc/src/ksp/ksp/guess/impls/fischer/ !
H A Dfischer.c228 …PetscCallBLAS("LAPACKheev", LAPACKheev_("V", "L", &blas_m, corr, &blas_m, s_values, work, &blas_lw… in KSPGuessFormGuess_Fischer_3()
230 …PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "L", &blas_m, corr, &blas_m, s_values, work, &blas_lw… in KSPGuessFormGuess_Fischer_3()
244 …PetscCallBLAS("BLASgemv", BLASgemv_("T", &blas_m, &blas_m, &one, corr, &blas_m, itg->last_b_coefs,… in KSPGuessFormGuess_Fischer_3()
253 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &blas_m, &blas_m, &one, corr, &blas_m, scratch_vec, &blas… in KSPGuessFormGuess_Fischer_3()
/petsc/src/dm/dt/tests/ !
H A Dex13.c94 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("N", "N", &n, &n, Mcopy, &n, S, NULL, &n, NULL, &n, work… in test()
128 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "T", &m, &n, &k, &mone, M_moments, &m, M_moments, &m, &on… in test()
266 …PetscCallBLAS("BLASREALgemm", BLASREALgemm_("N", "T", &m, &n, &k, &alpha, p_scalar, &lda, &M_momen… in test()
/petsc/src/dm/impls/plex/ !
H A Dplexmetric.c1093 …PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, Mpos, &nb, eigs, work, &lwork, rwork, &lier… in DMPlexMetricModify_Private()
1097 … PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, Mpos, &nb, eigs, work, &lwork, &lierr)); in DMPlexMetricModify_Private()
1501 …PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, evecs, &nb, evals, work, &lwork, rwork, &li… in DMPlexMetricIntersection_Private()
1505 … PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, evecs, &nb, evals, work, &lwork, &lierr)); in DMPlexMetricIntersection_Private()
1542 …PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, evecs, &nb, evals, work, &lwork, rwork, &li… in DMPlexMetricIntersection_Private()
1546 … PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, evecs, &nb, evals, work, &lwork, &lierr)); in DMPlexMetricIntersection_Private()

123