Searched refs:blaslda (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | gqt.c | 219 PetscBLASInt blas1 = 1, blasn, iblas, blaslda, blasldap1, blasinfo; in gqt() local
224 PetscCall(PetscBLASIntCast(lda, &blaslda)); in gqt()
239 …PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, &a[j + lda * (j + 1)], &blaslda, &a[j + 1 + lda * j], … in gqt()
286 …lBLAS("BLAScopy", BLAScopy_(&iblas, &a[j + 1 + j * lda], &blas1, &a[j + (j + 1) * lda], &blaslda)); in gqt()
291 PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("U", &blasn, a, &blaslda, &indef)); in gqt()
299 …PetscCallBLAS("LAPACKtrtrs", LAPACKtrtrs_("U", "T", "N", &blasn, &blas1, a, &blaslda, wa2, &blasn,… in gqt()
302 …PetscCallBLAS("LAPACKtrtrs", LAPACKtrtrs_("U", "N", "N", &blasn, &blas1, a, &blaslda, wa2, &blasn,… in gqt()
347 …PetscCallBLAS("LAPACKtrtrs", LAPACKtrtrs_("U", "T", "N", &blasn, &blas1, a, &blaslda, wa2, &blasn,… in gqt()
367 …PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, &a[indef - 1 + 0 * lda], &blaslda, &a[0 + (indef - 1) … in gqt()
372 …PetscCallBLAS("LAPACKtrtrs", LAPACKtrtrs_("U", "T", "N", &iblas, &blas1, a, &blaslda, wa2, &blasn,… in gqt()
[all …]
|