Searched refs:rtau (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/dm/dt/fv/interface/ |
| H A D | fv.c | 2063 PetscReal *rwork, *rtau; in PetscFVLeastSquaresPseudoInverseSVD_Static() local
2088 PetscCall(PetscMalloc1(PetscMin(M, N), &rtau)); in PetscFVLeastSquaresPseudoInverseSVD_Static()
2090 …PetscCallBLAS("LAPACKgelss", LAPACKgelss_(&M, &N, &nrhs, A, &lda, Brhs, &ldb, rtau, &rcond, &irank… in PetscFVLeastSquaresPseudoInverseSVD_Static()
2093 for (i = 0; i < PetscMin(M, N); i++) tau[i] = rtau[i]; in PetscFVLeastSquaresPseudoInverseSVD_Static()
2094 PetscCall(PetscFree(rtau)); in PetscFVLeastSquaresPseudoInverseSVD_Static()
|