Searched refs:blasj (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | gqt.c | 6 PetscBLASInt blas1 = 1, blasn, blasnmi, blasj, blasldr; in estsv() local
72 PetscCall(PetscBLASIntCast(j, &blasj)); in estsv()
73 PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasj, &temp, &r[0 + ldr * j], &blas1, z, &blas1)); in estsv()
|
| H A D | pounders.c | 530 PetscBLASInt blasm, blasj, blask, blasn, ione = 1, info; in affpoints() local
546 PetscCall(PetscBLASIntCast(PetscMax(mfqP->n - mfqP->nmodelpoints, 0), &blasj)); in affpoints()
553 PetscCallBLAS("BLASnrm2", proj = BLASnrm2_(&blasj, &mfqP->work2[mfqP->nmodelpoints], &ione)); in affpoints()
|