Searched refs:scratch_vec (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/guess/impls/fischer/ |
| H A D | fischer.c | 201 PetscScalar *corr, *work, *scratch_vec, zero = 0.0, one = 1.0; in KSPGuessFormGuess_Fischer_3() local
217 …l(PetscCalloc5(m * m, &corr, m, &s_values, blas_lwork, &work, 3 * m - 2, &rwork, m, &scratch_vec)); in KSPGuessFormGuess_Fischer_3()
219 PetscCall(PetscCalloc4(m * m, &corr, m, &s_values, blas_lwork, &work, m, &scratch_vec)); in KSPGuessFormGuess_Fischer_3()
244 …las_m, &blas_m, &one, corr, &blas_m, itg->last_b_coefs, &blas_one, &zero, scratch_vec, &blas_one)); in KSPGuessFormGuess_Fischer_3()
247 scratch_vec[j] /= s_values[j]; in KSPGuessFormGuess_Fischer_3()
250 scratch_vec[j] = 0.0; in KSPGuessFormGuess_Fischer_3()
253 …PetscCallBLAS("BLASgemv", BLASgemv_("N", &blas_m, &blas_m, &one, corr, &blas_m, scratch_vec, &blas… in KSPGuessFormGuess_Fischer_3()
274 PetscCall(PetscFree5(corr, s_values, work, rwork, scratch_vec)); in KSPGuessFormGuess_Fischer_3()
276 PetscCall(PetscFree4(corr, s_values, work, scratch_vec)); in KSPGuessFormGuess_Fischer_3()
|