Home
last modified time | relevance | path

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

/petsc/src/vec/is/sf/tests/
H A Dex5.c86 PetscInt *rdA, *rdB, *ldA, *ldB; in main() local
159 PetscCall(PetscMalloc2(nrootsA, &rdA, nldataA, &ldA)); in main()
162 for (i = 0; i < nldataA; i++) ldA[i] = -1; in main()
168 PetscCall(PetscSFBcastBegin(sfA, MPIU_INT, rdA, ldA, MPI_REPLACE)); in main()
169 PetscCall(PetscSFBcastEnd(sfA, MPIU_INT, rdA, ldA, MPI_REPLACE)); in main()
171 PetscCall(PetscIntView(nldataA, ldA, PETSC_VIEWER_STDOUT_WORLD)); in main()
172 PetscCall(PetscSFBcastBegin(sfB, MPIU_INT, ldA, ldB, MPI_REPLACE)); in main()
173 PetscCall(PetscSFBcastEnd(sfB, MPIU_INT, ldA, ldB, MPI_REPLACE)); in main()
227 PetscCall(PetscFree2(rdA, ldA)); in main()
/petsc/src/ksp/ksp/impls/gmres/dgmres/
H A Ddgmres.c653 PetscBLASInt ldA = 0; /* leading dimension of A */ in KSPDGMRESComputeSchurForm_DGMRES() local
672 PetscCall(PetscBLASIntCast(N, &ldA)); in KSPDGMRESComputeSchurForm_DGMRES()
680 PetscCall(PetscMalloc1(ldA * ldA, &A)); in KSPDGMRESComputeSchurForm_DGMRES()
692 PetscCall(PetscArraycpy(A, dgmres->hes_origin, ldA * ldA)); in KSPDGMRESComputeSchurForm_DGMRES()
699 for (j = 0; j < bn; j++) Ht[i * bn + j] = dgmres->hes_origin[j * ldA + i]; in KSPDGMRESComputeSchurForm_DGMRES()
704 t[bn - 1] = dgmres->hes_origin[(bn - 1) * ldA + bn]; /* Pick the last element H(m+1,m) */ in KSPDGMRESComputeSchurForm_DGMRES()
722 …PetscCallBLAS("LAPACKhseqr", LAPACKhseqr_("S", "I", &bn, &ilo, &ihi, A, &ldA, wr, wi, Q, &ldQ, wor… in KSPDGMRESComputeSchurForm_DGMRES()
758 …PetscCallBLAS("LAPACKtrsen", LAPACKtrsen_("B", "V", select, &bn, A, &ldA, Q, &ldQ, wr, wi, &NbrEig… in KSPDGMRESComputeSchurForm_DGMRES()
840 PetscBLASInt ldA; /* leading dimension of AUAU and AUU*/ in KSPDGMRESImproveEig_DGMRES() local
880 PetscCall(PetscBLASIntCast(aug1, &ldA)); in KSPDGMRESImproveEig_DGMRES()
[all …]
/petsc/src/ksp/ksp/impls/gmres/agmres/
H A Dagmresdeflation.c92 …GMRESSchurForm(KSP ksp, PetscBLASInt KspSize, PetscScalar *A, PetscBLASInt ldA, PetscScalar *B, Pe… 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()
158 …PetscCallBLAS("LAPACKtgsen", LAPACKtgsen_(&ijob, &wantQ, &wantZ, select, &KspSize, A, &ldA, B, &ld… in KSPAGMRESSchurForm()