| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | gqt.c | 6 PetscBLASInt blas1 = 1, blasn, blasnmi, blasj, blasldr; in estsv() local
11 PetscCall(PetscBLASIntCast(n, &blasn)); in estsv()
27 PetscCallBLAS("BLASscal", BLASscal_(&blasn, &temp, z, &blas1)); in estsv()
56 PetscCallBLAS("BLASnrm2", ynorm = BLASnrm2_(&blasn, z, &blas1)); in estsv()
63 PetscCallBLAS("BLASscal", BLASscal_(&blasn, &temp, 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()
219 PetscBLASInt blas1 = 1, blasn, iblas, blaslda, blasldap1, blasinfo; in gqt() local
223 PetscCall(PetscBLASIntCast(n, &blasn)); in gqt()
236 PetscCallBLAS("BLAScopy", BLAScopy_(&blasn, a, &blasldap1, wa1, &blas1)); in gqt()
[all …]
|
| H A D | pounders.c | 151 PetscBLASInt blasn, blasn2, blasm, ione = 1; in pounders_update_res() local
155 PetscCall(PetscBLASIntCast(mfqP->n, &blasn)); in pounders_update_res()
167 …PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasn, &factor, &mfqP->Fdiff[blasn * i], &ione, mfqP->Gres, &… in pounders_update_res()
180 …gemm_("N", "T", &blasn, &blasn, &ione, &wii, &mfqP->Fdiff[blasn * i], &blasn, &mfqP->Fdiff[blasn *… 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 …m_("N", "T", &blasn, &blasn, &ione, &factor, &mfqP->Fdiff[blasn * row], &blasn, &mfqP->Fdiff[blasn… in pounders_update_res()
202 …m_("N", "T", &blasn, &blasn, &ione, &factor, &mfqP->Fdiff[blasn * col], &blasn, &mfqP->Fdiff[blasn… in pounders_update_res()
221 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &blasn, &blasm, &one, mfqP->Fdiff, &blasn, mfqP->C, &ione… in pounders_update_res()
225 …gemm", BLASgemm_("N", "T", &blasn, &blasn, &blasm, &one, mfqP->Fdiff, &blasn, mfqP->Fdiff, &blasn,… in pounders_update_res()
[all …]
|
| /petsc/src/dm/impls/swarm/ |
| H A D | swarm.c | 850 PetscBLASInt blasn, blask; in DMSwarmComputeMassMatrixSquare_Private() local
853 PetscCall(PetscBLASIntCast(numCIndices, &blasn)); in DMSwarmComputeMassMatrixSquare_Private()
855 …"BLASgemm", BLASgemm_("T", "N", &blasn, &blasn, &blask, &one, elemMat, &blask, elemMat, &blask, &z… in DMSwarmComputeMassMatrixSquare_Private()
|