Searched refs:ipiv (Results 1 – 4 of 4) sorted by relevance
| /petsc/src/sys/utils/ |
| H A D | mathfit.c | 47 PetscBLASInt two = 2, ipiv[2], info; in PetscLinearRegression() local
51 PetscCallBLAS("LAPACKgetrf", LAPACKgetrf_(&two, &two, H, &two, ipiv, &info)); in PetscLinearRegression()
52 PetscCallBLAS("LAPACKgetri", LAPACKgetri_(&two, H, &two, ipiv, work, &two, &info)); in PetscLinearRegression()
|
| /petsc/src/ksp/ksp/impls/gmres/ |
| H A D | gmreig.c | 162 PetscBLASInt *ipiv; in KSPComputeRitz_GMRES() local
163 PetscCall(PetscMalloc1(bn, &ipiv)); in KSPComputeRitz_GMRES()
164 PetscCallBLAS("LAPACKgesv", LAPACKgesv_(&bn, &nrhs, Ht, &bn, ipiv, t, &bn, &info)); in KSPComputeRitz_GMRES()
166 PetscCall(PetscFree(ipiv)); in KSPComputeRitz_GMRES()
|
| /petsc/src/ts/impls/implicit/glle/ |
| H A D | glle.c | 131 PetscBLASInt m, n, one = 1, *ipiv, lwork, info, ldb; in TSGLLESchemeCreate() local
137 …3 * s, &H, 3 * ss, &bmat, lwork, &workscalar, 5 * (3 + r), &workreal, r + s, &sing, r + s, &ipiv)); in TSGLLESchemeCreate()
150 PetscCallBLAS("LAPACKgesv", LAPACKgesv_(&m, &one, ImV, &n, ipiv, scheme->alpha + 1, &n, &info)); in TSGLLESchemeCreate()
159 …PetscCallBLAS("LAPACKgetrs", LAPACKgetrs_("No transpose", &m, &one, ImV, &n, ipiv, scheme->beta + … in TSGLLESchemeCreate()
184 …PetscCallBLAS("LAPACKgetrs", LAPACKgetrs_("No transpose", &m, &one, ImV, &n, ipiv, scheme->gamma +… in TSGLLESchemeCreate()
266 PetscCall(PetscFree7(ImV, H, bmat, workscalar, workreal, sing, ipiv)); in TSGLLESchemeCreate()
|
| /petsc/src/ksp/ksp/impls/gmres/dgmres/ |
| H A D | dgmres.c | 667 PetscBLASInt *ipiv; /* Permutation vector to be used in LAPACK */ in KSPDGMRESComputeSchurForm_DGMRES() local
705 PetscCall(PetscMalloc1(bn, &ipiv)); in KSPDGMRESComputeSchurForm_DGMRES()
710 PetscCallBLAS("LAPACKgesv", LAPACKgesv_(&bn, &nrhs, Ht, &bn, ipiv, t, &bn, &info)); in KSPDGMRESComputeSchurForm_DGMRES()
|