Home
last modified time | relevance | path

Searched refs:iblas (Results 1 – 2 of 2) sorted by relevance

/petsc/src/tao/leastsquares/impls/pounders/
H A Dgqt.c219 PetscBLASInt blas1 = 1, blasn, iblas, blaslda, blasldap1, blasinfo; in gqt() local
238 PetscCall(PetscBLASIntCast(n - j - 1, &iblas)); in gqt()
239 …PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, &a[j + lda * (j + 1)], &blaslda, &a[j + 1 + lda * j], … in gqt()
285 PetscCall(PetscBLASIntCast(n - j - 1, &iblas)); in gqt()
286 …PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, &a[j + 1 + j * lda], &blas1, &a[j + (j + 1) * lda], &b… in gqt()
366 iblas = indef - 1; in gqt()
367 …PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, &a[indef - 1 + 0 * lda], &blaslda, &a[0 + (indef - 1) … in gqt()
371 … PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, &a[0 + (indef - 1) * lda], &blas1, wa2, &blas1)); in gqt()
372 …PetscCallBLAS("LAPACKtrtrs", LAPACKtrtrs_("U", "T", "N", &iblas, &blas1, a, &blaslda, wa2, &blasn,… in gqt()
374 … PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, wa2, &blas1, &a[0 + (indef - 1) * lda], &blas1)); in gqt()
[all …]
H A Dpounders.c584 PetscBLASInt info, ione = 1, iblas; in TaoSolve_POUNDERS() local
872 iblas = blasm * blasn; in TaoSolve_POUNDERS()
873 PetscCallBLAS("BLASscal", BLASscal_(&iblas, &ratio, mfqP->Fdiff, &ione)); in TaoSolve_POUNDERS()
874 PetscCallBLAS("BLASaxpy", BLASaxpy_(&iblas, &one, mfqP->Gdel, &ione, mfqP->Fdiff, &ione)); in TaoSolve_POUNDERS()
876 iblas = blasm * blasn * blasn; in TaoSolve_POUNDERS()
878 PetscCallBLAS("BLASscal", BLASscal_(&iblas, &ratio, mfqP->H, &ione)); in TaoSolve_POUNDERS()
879 PetscCallBLAS("BLASaxpy", BLASaxpy_(&iblas, &one, mfqP->Hdel, &ione, mfqP->H, &ione)); in TaoSolve_POUNDERS()