From: bangerth Date: Thu, 20 Nov 2008 02:42:36 +0000 (+0000) Subject: If Lapack functions were called but we didn't link with lapack, then we just created... X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1247a7fd0b47ff54523beab839a04373387e0b60;p=dealii-svn.git If Lapack functions were called but we didn't link with lapack, then we just created an exception object but forgot to throw it. Oops. git-svn-id: https://svn.dealii.org/trunk@17656 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/lac/include/lac/lapack_templates.h b/deal.II/lac/include/lac/lapack_templates.h index fafd383f88..71c8d40234 100644 --- a/deal.II/lac/include/lac/lapack_templates.h +++ b/deal.II/lac/include/lac/lapack_templates.h @@ -138,7 +138,7 @@ gemv (const char* trans, const int* m, const int* n, const double* alpha, const inline void gemv (const char*, const int*, const int*, const double*, const double*, const int*, const double*, const int*, const double*, double*, const int*) { - LAPACKSupport::ExcMissing("dgemv"); + Assert (false, LAPACKSupport::ExcMissing("dgemv")); } #endif @@ -153,7 +153,7 @@ gemv (const char* trans, const int* m, const int* n, const float* alpha, const f inline void gemv (const char*, const int*, const int*, const float*, const float*, const int*, const float*, const int*, const float*, float*, const int*) { - LAPACKSupport::ExcMissing("sgemv"); + Assert (false, LAPACKSupport::ExcMissing("sgemv")); } #endif @@ -168,7 +168,7 @@ gemm (const char* transa, const char* transb, const int* m, const int* n, const inline void gemm (const char*, const char*, const int*, const int*, const int*, const double*, const double*, const int*, const double*, const int*, const double*, double*, const int*) { - LAPACKSupport::ExcMissing("dgemm"); + Assert (false, LAPACKSupport::ExcMissing("dgemm")); } #endif @@ -183,7 +183,7 @@ gemm (const char* transa, const char* transb, const int* m, const int* n, const inline void gemm (const char*, const char*, const int*, const int*, const int*, const float*, const float*, const int*, const float*, const int*, const float*, float*, const int*) { - LAPACKSupport::ExcMissing("sgemm"); + Assert (false, LAPACKSupport::ExcMissing("sgemm")); } #endif @@ -198,7 +198,7 @@ getrf (const int* m, const int* n, double* A, const int* lda, int* ipiv, int* in inline void getrf (const int*, const int*, double*, const int*, int*, int*) { - LAPACKSupport::ExcMissing("dgetrf"); + Assert (false, LAPACKSupport::ExcMissing("dgetrf")); } #endif @@ -213,7 +213,7 @@ getrf (const int* m, const int* n, float* A, const int* lda, int* ipiv, int* inf inline void getrf (const int*, const int*, float*, const int*, int*, int*) { - LAPACKSupport::ExcMissing("sgetrf"); + Assert (false, LAPACKSupport::ExcMissing("sgetrf")); } #endif @@ -228,7 +228,7 @@ getri (const int* n, double* A, const int* lda, int* ipiv, double* inv_work, con inline void getri (const int*, double*, const int*, int*, double*, const int*, int*) { - LAPACKSupport::ExcMissing("dgetri"); + Assert (false, LAPACKSupport::ExcMissing("dgetri")); } #endif @@ -243,7 +243,7 @@ getri (const int* n, float* A, const int* lda, int* ipiv, float* inv_work, const inline void getri (const int*, float*, const int*, int*, float*, const int*, int*) { - LAPACKSupport::ExcMissing("sgetri"); + Assert (false, LAPACKSupport::ExcMissing("sgetri")); } #endif @@ -258,7 +258,7 @@ getrs (const char* trans, const int* n, const int* nrhs, const double* A, const inline void getrs (const char*, const int*, const int*, const double*, const int*, const int*, double*, const int*, int*) { - LAPACKSupport::ExcMissing("dgetrs"); + Assert (false, LAPACKSupport::ExcMissing("dgetrs")); } #endif @@ -273,7 +273,7 @@ getrs (const char* trans, const int* n, const int* nrhs, const float* A, const i inline void getrs (const char*, const int*, const int*, const float*, const int*, const int*, float*, const int*, int*) { - LAPACKSupport::ExcMissing("sgetrs"); + Assert (false, LAPACKSupport::ExcMissing("sgetrs")); } #endif @@ -288,7 +288,7 @@ geev (const char* jobvl, const char* jobvr, const int* n, double* A, const int* inline void geev (const char*, const char*, const int*, double*, const int*, double*, double*, double*, const int*, double*, const int*, double*, const int*, int*) { - LAPACKSupport::ExcMissing("dgeev"); + Assert (false, LAPACKSupport::ExcMissing("dgeev")); } #endif @@ -303,7 +303,7 @@ geev (const char* jobvl, const char* jobvr, const int* n, float* A, const int* l inline void geev (const char*, const char*, const int*, float*, const int*, float*, float*, float*, const int*, float*, const int*, float*, const int*, int*) { - LAPACKSupport::ExcMissing("sgeev"); + Assert (false, LAPACKSupport::ExcMissing("sgeev")); } #endif @@ -318,7 +318,7 @@ geevx (const char* balanc, const char* jobvl, const char* jobvr, const char* sen inline void geevx (const char*, const char*, const char*, const char*, const int*, double*, const int*, double*, double*, double*, const int*, double*, const int*, int*, int*, double*, double*, double*, double*, double*, const int*, int*, int*) { - LAPACKSupport::ExcMissing("dgeevx"); + Assert (false, LAPACKSupport::ExcMissing("dgeevx")); } #endif @@ -333,7 +333,7 @@ geevx (const char* balanc, const char* jobvl, const char* jobvr, const char* sen inline void geevx (const char*, const char*, const char*, const char*, const int*, float*, const int*, float*, float*, float*, const int*, float*, const int*, int*, int*, float*, float*, float*, float*, float*, const int*, int*, int*) { - LAPACKSupport::ExcMissing("sgeevx"); + Assert (false, LAPACKSupport::ExcMissing("sgeevx")); } #endif @@ -348,7 +348,7 @@ gesvd (int* jobu, int* jobvt, const int* n, const int* m, double* A, const int* inline void gesvd (int*, int*, const int*, const int*, double*, const int*, double*, double*, const int*, double*, const int*, double*, const int*, int*) { - LAPACKSupport::ExcMissing("dgesvd"); + Assert (false, LAPACKSupport::ExcMissing("dgesvd")); } #endif @@ -363,7 +363,7 @@ gesvd (int* jobu, int* jobvt, const int* n, const int* m, float* A, const int* l inline void gesvd (int*, int*, const int*, const int*, float*, const int*, float*, float*, const int*, float*, const int*, float*, const int*, int*) { - LAPACKSupport::ExcMissing("sgesvd"); + Assert (false, LAPACKSupport::ExcMissing("sgesvd")); } #endif @@ -378,7 +378,7 @@ stev (const char* jobz, const int* n, double* d, double* e, double* z, const int inline void stev (const char*, const int*, double*, double*, double*, const int*, double*, int*) { - LAPACKSupport::ExcMissing("dstev"); + Assert (false, LAPACKSupport::ExcMissing("dstev")); } #endif @@ -393,7 +393,7 @@ stev (const char* jobz, const int* n, float* d, float* e, float* z, const int* l inline void stev (const char*, const int*, float*, float*, float*, const int*, float*, int*) { - LAPACKSupport::ExcMissing("sstev"); + Assert (false, LAPACKSupport::ExcMissing("sstev")); } #endif