Searched refs:blasnmi (Results 1 – 1 of 1) 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
44 PetscCall(PetscBLASIntCast(n - i - 1, &blasnmi)); in estsv()
45 …PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasnmi, &w, &r[i + ldr * (i + 1)], &blasldr, &z[i + 1], &bla… in estsv()
46 PetscCallBLAS("BLASasum", s += BLASasum_(&blasnmi, &z[i + 1], &blas1)); in estsv()
51 …if (i < n - 1) PetscCallBLAS("BLASaxpy", BLASaxpy_(&blasnmi, &temp, &r[i + ldr * (i + 1)], &blasld… in estsv()
|