diff options
| author | Alberto Ruiz <aruiz@um.es> | 2010-03-30 07:12:50 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2010-03-30 07:12:50 +0000 |
| commit | 80f6ea4a8b1c5fb0bcd68f8d934364fd9c9b4780 (patch) | |
| tree | 325d2bf75618cf56edc68170f3da99f423fdc53c /lib/Numeric/LinearAlgebra/Algorithms.hs | |
| parent | bc5cb922434daef2e4e1dd910479d2c4af37b44c (diff) | |
flag -f-dd
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Algorithms.hs')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Algorithms.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 | |||
| 129 | multiply' = multiplyR | 129 | multiply' = multiplyR |
| 130 | 130 | ||
| 131 | instance Field (Complex Double) where | 131 | instance Field (Complex Double) where |
| 132 | #ifdef NOZGESDD | ||
| 133 | svd' = svdC | ||
| 134 | #else | ||
| 132 | svd' = svdCd | 135 | svd' = svdCd |
| 136 | #endif | ||
| 133 | thinSVD' = thinSVDCd | 137 | thinSVD' = thinSVDCd |
| 134 | sv' = svC | 138 | sv' = svC |
| 135 | luPacked' = luC | 139 | luPacked' = luC |