Searched refs:s_values (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/guess/impls/fischer/ |
| H A D | fischer.c | 200 PetscReal *s_values; in KSPGuessFormGuess_Fischer_3() local
217 …PetscCall(PetscCalloc5(m * m, &corr, m, &s_values, blas_lwork, &work, 3 * m - 2, &rwork, m, &scrat… in KSPGuessFormGuess_Fischer_3()
219 PetscCall(PetscCalloc4(m * m, &corr, m, &s_values, blas_lwork, &work, m, &scratch_vec)); in KSPGuessFormGuess_Fischer_3()
228 …PetscCallBLAS("LAPACKheev", LAPACKheev_("V", "L", &blas_m, corr, &blas_m, s_values, work, &blas_lw… in KSPGuessFormGuess_Fischer_3()
230 …PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "L", &blas_m, corr, &blas_m, s_values, work, &blas_lw… in KSPGuessFormGuess_Fischer_3()
236 if (s_values[j] < 0.0) { in KSPGuessFormGuess_Fischer_3()
237 s_values[j] = PetscAbsReal(s_values[j]); in KSPGuessFormGuess_Fischer_3()
240 max_s_value = PetscMax(max_s_value, s_values[j]); in KSPGuessFormGuess_Fischer_3()
246 if (s_values[j] > itg->tol * max_s_value) { in KSPGuessFormGuess_Fischer_3()
247 scratch_vec[j] /= s_values[j]; in KSPGuessFormGuess_Fischer_3()
[all …]
|