Home
last modified time | relevance | path

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

/petsc/src/tao/leastsquares/impls/pounders/
H A Dgqt.c6 PetscBLASInt blas1 = 1, blasn, blasnmi, blasj, blasldr; in estsv() local
27 PetscCallBLAS("BLASscal", BLASscal_(&blasn, &temp, z, &blas1)); in estsv()
45 …cCallBLAS("BLASaxpy", BLASaxpy_(&blasnmi, &w, &r[i + ldr * (i + 1)], &blasldr, &z[i + 1], &blas1)); in estsv()
46 PetscCallBLAS("BLASasum", s += BLASasum_(&blasnmi, &z[i + 1], &blas1)); in estsv()
51 …llBLAS("BLASaxpy", BLASaxpy_(&blasnmi, &temp, &r[i + ldr * (i + 1)], &blasldr, &z[i + 1], &blas1)); 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()
[all …]
H A Dpounders.c491 PetscBLASInt blas1 = 1, blasnmax; in modelimprove() local
509 …lBLAS("BLASdot", dp = BLASdot_(&blasn, &mfqP->Q_tmp[i * mfqP->npmax], &blas1, mfqP->Gres, &blas1)); in modelimprove()
515 …asn, &half, mfqP->Hres, &blasn, &mfqP->Q_tmp[i * mfqP->npmax], &blas1, &one, mfqP->work2, &blas1)); in modelimprove()
516 …ot", mfqP->work[i] = BLASdot_(&blasn, &mfqP->Q_tmp[i * mfqP->npmax], &blas1, mfqP->work2, &blas1)); in modelimprove()