From 80f6ea4a8b1c5fb0bcd68f8d934364fd9c9b4780 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Tue, 30 Mar 2010 07:12:50 +0000
Subject: flag -f-dd

---
 lib/Numeric/LinearAlgebra/Algorithms.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib/Numeric/LinearAlgebra/Algorithms.hs')

diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs
index 0f2ccef..d0f533b 100644
--- a/lib/Numeric/LinearAlgebra/Algorithms.hs
+++ b/lib/Numeric/LinearAlgebra/Algorithms.hs
@@ -129,7 +129,11 @@ instance Field Double where
     multiply' = multiplyR
 
 instance Field (Complex Double) where
+#ifdef NOZGESDD
+    svd' = svdC
+#else
     svd' = svdCd
+#endif
     thinSVD' = thinSVDCd
     sv' = svC
     luPacked' = luC
-- 
cgit v1.2.3