Searched refs:indef (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | gqt.c | 218 PetscBLASInt indef; in gqt() local
291 PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("U", &blasn, a, &blaslda, &indef)); in gqt()
294 if (indef == 0) { in gqt()
364 if (indef > 1) { 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()
368 a[indef - 1 + (indef - 1) * lda] = wa1[indef - 1] + par; in gqt()
371 … PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, &a[0 + (indef - 1) * lda], &blas1, wa2, &blas1)); in gqt()
374 … PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, wa2, &blas1, &a[0 + (indef - 1) * lda], &blas1)); in gqt()
375 PetscCallBLAS("BLASnrm2", temp = BLASnrm2_(&iblas, &a[0 + (indef - 1) * lda], &blas1)); in gqt()
[all …]
|