Home
last modified time | relevance | path

Searched refs:modul (Results 1 – 3 of 3) sorted by relevance

/petsc/src/ksp/ksp/impls/gmres/
H A Dgmreig.c122 PetscReal *modul; in KSPComputeRitz_GMRES() local
198 PetscCall(PetscMalloc2(bn, &modul, bn, &perm)); in KSPComputeRitz_GMRES()
200 for (i = 0; i < bn; i++) modul[i] = PetscAbsScalar(wr[i]); in KSPComputeRitz_GMRES()
202 for (i = 0; i < bn; i++) modul[i] = PetscSqrtReal(wr[i] * wr[i] + wi[i] * wi[i]); in KSPComputeRitz_GMRES()
205 PetscCall(PetscSortRealWithPermutation(bn, modul, perm)); in KSPComputeRitz_GMRES()
254 PetscCall(PetscFree2(modul, perm)); in KSPComputeRitz_GMRES()
/petsc/src/ksp/ksp/impls/gmres/dgmres/
H A Ddgmres.c66 dgmres->modul = NULL; in KSPSetUp_DGMRES()
287 PetscCall(PetscFree(dgmres->modul)); in KSPDestroy_DGMRES()
661 PetscReal *wr, *wi, *modul; /* Real and imaginary part and modulus of the eigenvalues of A */ in KSPDGMRESComputeSchurForm_DGMRES() local
689 PetscCall(PetscMalloc1(n, &modul)); in KSPDGMRESComputeSchurForm_DGMRES()
728 for (i = 0; i < n; i++) modul[i] = PetscSqrtReal(wr[i] * wr[i] + wi[i] * wi[i]); in KSPDGMRESComputeSchurForm_DGMRES()
731 PetscCall(PetscSortRealWithPermutation(n, modul, perm)); in KSPDGMRESComputeSchurForm_DGMRES()
733 if (dgmres->lambdaN < modul[perm[n - 1]]) dgmres->lambdaN = modul[perm[n - 1]]; in KSPDGMRESComputeSchurForm_DGMRES()
771 PetscCall(PetscFree(modul)); in KSPDGMRESComputeSchurForm_DGMRES()
847 …PetscReal *wr, *wi, *beta, *modul; /* Real and imaginary part and modulus of the eigenvalues of… in KSPDGMRESImproveEig_DGMRES() local
886 PetscCall(PetscMalloc1(N, &modul)); in KSPDGMRESImproveEig_DGMRES()
[all …]
H A Ddgmresimpl.h21 PetscReal *wr, *wi, *modul; /* Real and complex part and modulus of eigenvalues */ \