]> 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:44:04 +0000 (02:44 +0000)
committerbangerth <bangerth@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 20 Nov 2008 02:44:04 +0000 (02:44 +0000)
git-svn-id: https://svn.dealii.org/trunk@17657 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/contrib/blastemplates/templates.pl

index 2ddbb78eec92e071794a78379aa6f94829e96ebb..b11e3e7d39f0042dfe575105cc34ff9a1ead007c 100644 (file)
@@ -91,7 +91,7 @@ while(<>)
        $templates .= "\n\n#ifdef HAVE_D$capname\_";
        $templates .= "\ninline $type\n$name ($args)\n{\n  d$name\_ ($args2);\n}\n";
        $templates .= "#else\ninline $type\n$name ($args0)\n";
-       $templates .= "{\n  LAPACKSupport::ExcMissing(\"d$name\");\n}\n#endif\n";
+       $templates .= "{\n  Assert (false, LAPACKSupport::ExcMissing(\"d$name\"));\n}\n#endif\n";
        
        $args =~ s/double/float/g;
        $args0 =~ s/double/float/g;
@@ -99,7 +99,7 @@ while(<>)
        $templates .= "\n\n#ifdef HAVE_S$capname\_";
        $templates .= "\ninline $type\n$name ($args)\n{\n  s$name\_ ($args2);\n}\n";
        $templates .= "#else\ninline $type\n$name ($args0)\n";
-       $templates .= "{\n  LAPACKSupport::ExcMissing(\"s$name\");\n}\n#endif\n";
+       $templates .= "{\n  Assert (false, LAPACKSupport::ExcMissing(\"s$name\"));\n}\n#endif\n";
     }
 }
 

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.