]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
If Lapack functions were called but we didn't link with lapack, then we just created...
authorbangerth <bangerth@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 20 Nov 2008 02:42:36 +0000 (02:42 +0000)
committerbangerth <bangerth@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 20 Nov 2008 02:42:36 +0000 (02:42 +0000)
git-svn-id: https://svn.dealii.org/trunk@17656 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/lac/include/lac/lapack_templates.h

index fafd383f88c612f9aed4e5e8c2061d4424b0f125..71c8d40234c2196bcf22566c0ce328339d17a708 100644 (file)
@@ -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
 

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.