Searched refs:NbrEig (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/impls/gmres/dgmres/ |
| H A D | dgmres.c | 660 PetscBLASInt NbrEig; /* Number of eigenvalues really extracted */ in KSPDGMRESComputeSchurForm_DGMRES() local
735 NbrEig = 0; in KSPDGMRESComputeSchurForm_DGMRES()
736 while (NbrEig < dgmres->neig) { in KSPDGMRESComputeSchurForm_DGMRES()
737 if (wi[perm[NbrEig]] != 0) NbrEig += 2; in KSPDGMRESComputeSchurForm_DGMRES()
738 else NbrEig += 1; in KSPDGMRESComputeSchurForm_DGMRES()
745 for (j = 0; j < NbrEig; j++) select[perm[j]] = 1; in KSPDGMRESComputeSchurForm_DGMRES()
747 for (j = 0; j < NbrEig; j++) select[perm[n - j - 1]] = 1; in KSPDGMRESComputeSchurForm_DGMRES()
750 lwork = PetscMax(1, 4 * NbrEig * (bn - NbrEig)); in KSPDGMRESComputeSchurForm_DGMRES()
751 liwork = PetscMax(1, 2 * NbrEig * (bn - NbrEig)); in KSPDGMRESComputeSchurForm_DGMRES()
758 …CKtrsen", LAPACKtrsen_("B", "V", select, &bn, A, &ldA, Q, &ldQ, wr, wi, &NbrEig, &CondEig, &CondSu… in KSPDGMRESComputeSchurForm_DGMRES()
[all …]
|