Home
last modified time | relevance | path

Searched refs:KspSize (Results 1 – 2 of 2) sorted by relevance

/petsc/src/ksp/ksp/impls/gmres/agmres/
H A Dagmresdeflation.c92 static PetscErrorCode KSPAGMRESSchurForm(KSP ksp, PetscBLASInt KspSize, PetscScalar *A, PetscBLASIn… in KSPAGMRESSchurForm() argument
127 …PetscCallBLAS("LAPACKhgeqz", LAPACKhgeqz_("S", "I", "I", &KspSize, &ilo, &KspSize, A, &ldA, B, &ld… in KSPAGMRESSchurForm()
130 …PetscCallBLAS("LAPACKgges", LAPACKgges_("V", "V", "N", NULL, &KspSize, A, &ldA, B, &ldB, &sdim, wr… in KSPAGMRESSchurForm()
135 for (i = 0; i < KspSize; i++) { in KSPAGMRESSchurForm()
143 PetscCall(KSPAGMRESQuickSort(wr, wi, KspSize, perm)); in KSPAGMRESSchurForm()
156 for (j = 0; j < r; j++) select[perm[KspSize - j - 1]] = 1; in KSPAGMRESSchurForm()
158 …PetscCallBLAS("LAPACKtgsen", LAPACKtgsen_(&ijob, &wantQ, &wantZ, select, &KspSize, A, &ldA, B, &ld… in KSPAGMRESSchurForm()
163 for (i = 0; i < KspSize; i++) Sr[j * (N + 1) + i] = Z[j * N + i]; in KSPAGMRESSchurForm()
194 PetscInt KspSize = KSPSIZE; in KSPAGMRESComputeDeflationData() local
204 PetscCall(PetscBLASIntCast(KspSize, &bKspSize)); in KSPAGMRESComputeDeflationData()
[all …]
H A Dagmres.c193 …PetscInt KspSize = KSPSIZE; /* if max_k == KspSizen then the basis should not be augmented */ in KSPAGMRESBuildBasis() local
269 while (j <= KspSize) { in KSPAGMRESBuildBasis()
303 PetscInt KspSize = KSPSIZE; in KSPAGMRESBuildHessenberg() local
324 for (j = max_k; j < KspSize; j++) { /* take into account the norm of the augmented vectors */ in KSPAGMRESBuildHessenberg()
339 PetscBLASInt KspSize; in KSPAGMRESBuildSoln() local
348 PetscCall(PetscBLASIntCast(KSPSIZE, &KspSize)); in KSPAGMRESBuildSoln()
349 PetscCall(PetscBLASIntCast(4 * (KspSize + 1), &lwork)); in KSPAGMRESBuildSoln()
350 PetscCall(PetscBLASIntCast(KspSize + 1, &lC)); in KSPAGMRESBuildSoln()
358 …PetscCallBLAS("LAPACKgeqrf", LAPACKgeqrf_(&lC, &KspSize, agmres->hh_origin, &ldH, agmres->tau, agm… in KSPAGMRESBuildSoln()
364 …PetscCallBLAS("LAPACKormqr", LAPACKormqr_("L", "T", &lC, &nrhs, &KspSize, agmres->hh_origin, &ldH,… in KSPAGMRESBuildSoln()
[all …]