| /petsc/src/ksp/ksp/utils/dm/ |
| H A D | dmproject.c | 229 PetscReal *w, *sing, *workreal, rcond = PETSC_SMALL; in DMAdaptInterpolator() local
273 … * maxcols, &A, PetscMax(Nc, maxcols), &b, Nc, &w, maxcols, &x, maxcols, &sing, lwrk, &workscalar,… in DMAdaptInterpolator()
351 …PetscCallBLAS("LAPACKgelss", LAPACKgelss_(&M, &N, &one, A, &M, b, M > N ? &M : &N, sing, &rcond, &… in DMAdaptInterpolator()
354 …PetscCallBLAS("LAPACKgelss", LAPACKgelss_(&M, &N, &one, A, &M, b, M > N ? &M : &N, sing, &rcond, &… in DMAdaptInterpolator()
366 for (j = 0; j < PetscMin(Nc, ncols); ++j) tmp[j] = sing[j]; in DMAdaptInterpolator()
371 …tscCall(DMPrintCellMatrix(r, "Interpolator Row LS singular values", PetscMin(Nc, ncols), 1, sing)); in DMAdaptInterpolator()
381 PetscCall(PetscFree7(A, b, w, x, sing, workscalar, workreal)); in DMAdaptInterpolator()
|
| /petsc/src/ts/impls/implicit/glle/ |
| H A D | glle.c | 132 PetscReal rcond, *sing, *workreal; in TSGLLESchemeCreate() local
137 …3 * s, &H, 3 * ss, &bmat, lwork, &workscalar, 5 * (3 + r), &workreal, r + s, &sing, r + s, &ipiv)); in TSGLLESchemeCreate()
240 …PetscCallBLAS("LAPACKgelss", LAPACKgelss_(&m, &n, &m, H, &m, bmat, &ldb, sing, &rcond, &rank, work… in TSGLLESchemeCreate()
243 …PetscCallBLAS("LAPACKgelss", LAPACKgelss_(&m, &n, &m, H, &m, bmat, &ldb, sing, &rcond, &rank, work… in TSGLLESchemeCreate()
266 PetscCall(PetscFree7(ImV, H, bmat, workscalar, workreal, sing, ipiv)); in TSGLLESchemeCreate()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 19 PetscReal *sing; in MatDenseOrthogonalRangeOrComplement() local
40 PetscCall(PetscMalloc1(n, &sing)); in MatDenseOrthogonalRangeOrComplement()
42 sing = rwork; in MatDenseOrthogonalRangeOrComplement()
53 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("A", "N", &bM, &bN, data, &bM, sing, U, &bM, &ds, &di, u… in MatDenseOrthogonalRangeOrComplement()
56 …PetscCallBLAS("LAPACKgesvd", LAPACKgesvd_("A", "N", &bM, &bN, data, &bM, sing, U, &bM, &ds, &di, u… in MatDenseOrthogonalRangeOrComplement()
63 if (sing[i] < PETSC_SMALL) break; in MatDenseOrthogonalRangeOrComplement()
64 if (!rwork) PetscCall(PetscFree(sing)); in MatDenseOrthogonalRangeOrComplement()
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 8839 …pressive" . 28) ("BGM" . 29) ("Phase Coupled PISO" . 30))))) ("PRESTO! IF sing.-eq. multi-phase" 2…
|