Home
last modified time | relevance | path

Searched refs:lierr (Results 1 – 14 of 14) sorted by relevance

/petsc/src/ksp/ksp/impls/cg/
H A Dcgeig.c15 PetscBLASInt bn, lierr = 0, ldz = 1; in KSPComputeEigenvalues_CG() local
35 PetscCallBLAS("LAPACKREALstev", LAPACKREALstev_("N", &bn, r, ee, NULL, &ldz, NULL, &lierr)); in KSPComputeEigenvalues_CG()
36 PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_PLIB, "xSTEV error"); in KSPComputeEigenvalues_CG()
48 PetscBLASInt bn, lierr = 0, ldz = 1; in KSPComputeExtremeSingularValues_CG() local
68 PetscCallBLAS("LAPACKREALstev", LAPACKREALstev_("N", &bn, dd, ee, NULL, &ldz, NULL, &lierr)); in KSPComputeExtremeSingularValues_CG()
69 PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_PLIB, "xSTEV error"); in KSPComputeExtremeSingularValues_CG()
/petsc/src/ksp/ksp/impls/gmres/
H A Dgmreig.c8 PetscBLASInt bn, bN, lwork, idummy, lierr; in KSPComputeExtremeSingularValues_GMRES() local
30 …_("N", "N", &bn, &bn, R, &bN, realpart, &sdummy, &idummy, &sdummy, &idummy, work, &lwork, &lierr)); in KSPComputeExtremeSingularValues_GMRES()
32 …n, &bn, R, &bN, realpart, &sdummy, &idummy, &sdummy, &idummy, work, &lwork, realpart + N, &lierr)); in KSPComputeExtremeSingularValues_GMRES()
34 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in SVD Lapack routine %" PetscBLASInt_FM… in KSPComputeExtremeSingularValues_GMRES()
47 PetscBLASInt bn, bN, lwork, idummy, lierr = -1; in KSPComputeEigenvalues_GMRES() local
66 …, "N", &bn, R, &bN, realpart, imagpart, &sdummy, &idummy, &sdummy, &idummy, work, &lwork, &lierr)); in KSPComputeEigenvalues_GMRES()
67 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in LAPACK routine %" PetscBLASInt_FMT, l… in KSPComputeEigenvalues_GMRES()
81 PetscBLASInt bn, bN, lwork, idummy, lierr = -1; in KSPComputeEigenvalues_GMRES()
98 …", "N", &bn, R, &bN, eigs, &sdummy, &idummy, &sdummy, &idummy, work, &lwork, gmres->Dsvd, &lierr)); in KSPComputeEigenvalues_GMRES()
99 PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in LAPACK routine"); in KSPComputeEigenvalues_GMRES()
/petsc/src/ksp/ksp/guess/impls/pod/
H A Dpod.c74 PetscBLASInt bN, lierr, idummy = 0; in KSPGuessSetUp_POD() local
86 …idummy, pod->eigs, pod->eigv, &bN, &sdummy, &pod->lwork, pod->iwork, pod->iwork + 5 * bN, &lierr)); in KSPGuessSetUp_POD()
88 …>eigs, pod->eigv, &bN, &sdummy, &pod->lwork, pod->rwork, pod->iwork, pod->iwork + 5 * bN, &lierr)); in KSPGuessSetUp_POD()
90 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in query to SYEV Lapack routine %" Petsc… in KSPGuessSetUp_POD()
143 PetscBLASInt bN, ione = 1, bNen, lierr; in KSPGuessFormGuess_POD() local
190 PetscCallBLAS("LAPACKgetrf", LAPACKgetrf_(&bNen, &bNen, pod->low, &bNen, pod->iwork, &lierr)); in KSPGuessFormGuess_POD()
191 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in GETRF Lapack routine %" PetscBLASInt_… in KSPGuessFormGuess_POD()
192 …Kgetrs_(tsolve ? "T" : "N", &bNen, &ione, pod->low, &bNen, pod->iwork, pod->swork, &bNen, &lierr)); in KSPGuessFormGuess_POD()
193 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in GETRS Lapack routine %" PetscBLASInt_… in KSPGuessFormGuess_POD()
220 PetscBLASInt bN, lierr, idummy = 0; in KSPGuessUpdate_POD() local
[all …]
/petsc/src/ksp/ksp/interface/
H A Deige.c166 PetscBLASInt lierr; in KSPComputeEigenvaluesExplicitly() local
172 …", &bn, array, &bn, realpart, imagpart, &sdummy, &idummy, &sdummy, &idummy, work, &lwork, &lierr)); in KSPComputeEigenvaluesExplicitly()
173 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in LAPACK routine %" PetscBLASInt_FMT, l… in KSPComputeEigenvaluesExplicitly()
201 PetscBLASInt lierr; in KSPComputeEigenvaluesExplicitly() local
206 …"N", "N", &nb, array, &nb, eigs, &sdummy, &idummy, &sdummy, &idummy, work, &lwork, rwork, &lierr)); in KSPComputeEigenvaluesExplicitly()
207 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in LAPACK routine %" PetscBLASInt_FMT, l… in KSPComputeEigenvaluesExplicitly()
/petsc/src/ksp/pc/impls/svd/
H A Dsvd.c77 PetscBLASInt lierr; in PCSetUp_SVD() local
79 …("LAPACKgesvd", LAPACKgesvd_("A", "A", &nb, &nb, a, &nb, d, u, &nb, v, &nb, work, &lwork, &lierr)); in PCSetUp_SVD()
80 PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "gesvd() error %" PetscBLASInt_FMT, lierr); in PCSetUp_SVD()
85 PetscBLASInt lierr; in PCSetUp_SVD() local
90 …gesvd", LAPACKgesvd_("A", "A", &nb, &nb, a, &nb, dd, u, &nb, v, &nb, work, &lwork, rwork, &lierr)); in PCSetUp_SVD()
91 PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "gesv() error %" PetscBLASInt_FMT, lierr); in PCSetUp_SVD()
/petsc/src/mat/tests/
H A Dex116.c28 PetscBLASInt *iwork, *ifail, lwork, lierr, bn; in main() local
73 LAPACKsyev_("V", "U", &bn, arrayA, &bn, evals, work, &lwork, &lierr); in main()
90 …, &vl, &vu, &il, &iu, &abstol, &nevs, evals, evecs_array, &in, work, &lwork, iwork, ifail, &lierr); in main()
153 …vd_("S", "S", &im, &in, arrayA, &im, evals, arrayU, &minMN, arrayVT, &minMN, work, &lwork, &lierr); in main()
155 if (!lierr) { in main()
H A Dex120.c20 PetscBLASInt nn, nevs, il, iu, *iwork, *ifail, lwork, lierr, bn, one = 1; in main() local
142 LAPACKsyev_("V", "U", &bn, arrayA, &bn, evals, work, &lwork, rwork, &lierr); in main()
163 …&vu, &il, &iu, &abstol, &nevs, evals, evecs_array, &nn, work, &lwork, rwork, iwork, ifail, &lierr); in main()
172 LAPACKsygv_(&one, "V", "U", &bn, arrayA, &bn, arrayB, &bn, evals, work, &lwork, rwork, &lierr); in main()
192 …&vu, &il, &iu, &abstol, &nevs, evals, evecs_array, &nn, work, &lwork, rwork, iwork, ifail, &lierr); in main()
/petsc/src/mat/graphops/order/
H A Dspectral.c133 PetscBLASInt bn, bN, lwork = 0, lierr, idummy; in MatGetOrdering_Spectral() local
145 …_("N", "V", &bn, a, &bN, realpart, imagpart, &sdummy, &idummy, eigvec, &bN, work, &lwork, &lierr)); in MatGetOrdering_Spectral()
146 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in LAPACK routine %" PetscBLASInt_FMT, l… in MatGetOrdering_Spectral()
/petsc/src/dm/impls/plex/
H A Dplexmetric.c1084 PetscBLASInt lierr; in DMPlexMetricModify_Private() local
1093 …scCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, Mpos, &nb, eigs, work, &lwork, rwork, &lierr)); in DMPlexMetricModify_Private()
1097 … PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, Mpos, &nb, eigs, work, &lwork, &lierr)); in DMPlexMetricModify_Private()
1099 if (lierr) { in DMPlexMetricModify_Private()
1108 … SETERRQ(PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in LAPACK routine %" PetscBLASInt_FMT, lierr); in DMPlexMetricModify_Private()
1491 PetscBLASInt lierr, nb; in DMPlexMetricIntersection_Private() local
1501 …CallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, evecs, &nb, evals, work, &lwork, rwork, &lierr)); in DMPlexMetricIntersection_Private()
1505 … PetscCallBLAS("LAPACKsyev", LAPACKsyev_("V", "U", &nb, evecs, &nb, evals, work, &lwork, &lierr)); in DMPlexMetricIntersection_Private()
1507 if (lierr) { in DMPlexMetricIntersection_Private()
1509 … SETERRQ(PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in LAPACK routine %" PetscBLASInt_FMT, lierr); in DMPlexMetricIntersection_Private()
[all …]
/petsc/src/snes/interface/
H A Dsnesut.c454 PetscBLASInt lierr; in SNESMonitorJacUpdateSpectrum() local
457 …geev", LAPACKgeev_("N", "N", &nb, a, &nb, eigr, eigi, NULL, &nb, NULL, &nb, work, &lwork, &lierr)); in SNESMonitorJacUpdateSpectrum()
458 PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "geev() error %" PetscBLASInt_FMT, lierr); in SNESMonitorJacUpdateSpectrum()
/petsc/src/ksp/ksp/impls/minres/
H A Dminres.c878 PetscBLASInt bn, lierr = 0, ldz = 1; in KSPComputeEigenvalues_MINRES() local
898 PetscCallBLAS("LAPACKREALstev", LAPACKREALstev_("N", &bn, r, ee, NULL, &ldz, NULL, &lierr)); in KSPComputeEigenvalues_MINRES()
899 PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_PLIB, "xSTEV error"); in KSPComputeEigenvalues_MINRES()
911 PetscBLASInt bn, lierr = 0, ldz = 1; in KSPComputeExtremeSingularValues_MINRES() local
931 PetscCallBLAS("LAPACKREALstev", LAPACKREALstev_("N", &bn, dd, ee, NULL, &ldz, NULL, &lierr)); in KSPComputeExtremeSingularValues_MINRES()
932 PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_PLIB, "xSTEV error"); in KSPComputeExtremeSingularValues_MINRES()
/petsc/src/dm/dt/tests/
H A Dex13.c86 PetscBLASInt n, lwork, lierr; in test() local
94 …ACKgesvd", LAPACKgesvd_("N", "N", &n, &n, Mcopy, &n, S, NULL, &n, NULL, &n, work, &lwork, &lierr)); in test()
/petsc/src/ksp/ksp/tutorials/
H A Dex59.c460 PetscBLASInt pm1, lierr; in GLLStuffs() local
480 … PetscCallBLAS("LAPACKsteqr", LAPACKsteqr_("N", &pm1, &glldata->zGL[1], M, &x, &pm1, M, &lierr)); in GLLStuffs()
481 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in STERF Lapack routine %d", (int)lierr); in GLLStuffs()
/petsc/src/ksp/pc/impls/bddc/
H A Dbddcprivate.c20 PetscBLASInt bM, bN, lwork, lierr, di = 1; in MatDenseOrthogonalRangeOrComplement() local
53 …esvd", LAPACKgesvd_("A", "N", &bM, &bN, data, &bM, sing, U, &bM, &ds, &di, uwork, &lwork, &lierr)); in MatDenseOrthogonalRangeOrComplement()
56 …APACKgesvd_("A", "N", &bM, &bN, data, &bM, sing, U, &bM, &ds, &di, uwork, &lwork, rwork2, &lierr)); in MatDenseOrthogonalRangeOrComplement()
60 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in GESVD Lapack routine %" PetscBLASInt_… in MatDenseOrthogonalRangeOrComplement()
6539 PetscBLASInt lwork, lierr; in PCBDDCConstraintsSetUp() local
6695 …CKsyev_("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_vals, &temp_work, &lwork, &lierr)); in PCBDDCConstraintsSetUp()
6697 …("V", "U", &Blas_N, correlation_mat, &Blas_LDA, singular_vals, &temp_work, &lwork, rwork, &lierr)); in PCBDDCConstraintsSetUp()
6700 …PetscCheck(!lierr, PETSC_COMM_SELF, PETSC_ERR_LIB, "Error in query to SYEV Lapack routine %" Petsc… in PCBDDCConstraintsSetUp()
6722 … singular_vals, &dummy_scalar, &dummy_int, &dummy_scalar, &dummy_int, &temp_work, &lwork, &lierr)); in PCBDDCConstraintsSetUp()
6724 …ar_vals, &dummy_scalar, &dummy_int, &dummy_scalar, &dummy_int, &temp_work, &lwork, rwork, &lierr)); in PCBDDCConstraintsSetUp()
[all …]