Lines Matching refs:indef

218   PetscBLASInt indef;
291     PetscCallBLAS("LAPACKpotrf", LAPACKpotrf_("U", &blasn, a, &blaslda, &indef));
294     if (indef == 0) {
364       if (indef > 1) {
365         /* Restore column indef to A + par*I. */
366         iblas = indef - 1;
367         PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, &a[indef - 1 + 0 * lda], &blaslda, &a[0 + (indef - 1) * lda], &blas1));
368         a[indef - 1 + (indef - 1) * lda] = wa1[indef - 1] + par;
371         PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, &a[0 + (indef - 1) * lda], &blas1, wa2, &blas1));
374         PetscCallBLAS("BLAScopy", BLAScopy_(&iblas, wa2, &blas1, &a[0 + (indef - 1) * lda], &blas1));
375         PetscCallBLAS("BLASnrm2", temp = BLASnrm2_(&iblas, &a[0 + (indef - 1) * lda], &blas1));
377         a[indef - 1 + (indef - 1) * lda] -= temp * temp;
382       wa2[indef - 1] = -1.0;
383       iblas          = indef;
385       parc = -a[indef - 1 + (indef - 1) * lda] / (temp * temp);