diff options
Diffstat (limited to 'packages/base/src/Numeric/LinearAlgebra/LAPACK.hs')
-rw-r--r-- | packages/base/src/Numeric/LinearAlgebra/LAPACK.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/LAPACK.hs b/packages/base/src/Numeric/LinearAlgebra/LAPACK.hs index e088fdc..d96e14f 100644 --- a/packages/base/src/Numeric/LinearAlgebra/LAPACK.hs +++ b/packages/base/src/Numeric/LinearAlgebra/LAPACK.hs | |||
@@ -115,7 +115,7 @@ svdAux f st x = unsafePerformIO $ do | |||
115 | s <- createVector (min r c) | 115 | s <- createVector (min r c) |
116 | v <- createMatrix ColumnMajor c c | 116 | v <- createMatrix ColumnMajor c c |
117 | app4 f mat x mat u vec s mat v st | 117 | app4 f mat x mat u vec s mat v st |
118 | return (u,s,trans v) | 118 | return (u,s,v) |
119 | where r = rows x | 119 | where r = rows x |
120 | c = cols x | 120 | c = cols x |
121 | 121 | ||
@@ -141,7 +141,7 @@ thinSVDAux f st x = unsafePerformIO $ do | |||
141 | s <- createVector q | 141 | s <- createVector q |
142 | v <- createMatrix ColumnMajor q c | 142 | v <- createMatrix ColumnMajor q c |
143 | app4 f mat x mat u vec s mat v st | 143 | app4 f mat x mat u vec s mat v st |
144 | return (u,s,trans v) | 144 | return (u,s,v) |
145 | where r = rows x | 145 | where r = rows x |
146 | c = cols x | 146 | c = cols x |
147 | q = min r c | 147 | q = min r c |
@@ -185,7 +185,7 @@ rightSVAux f st x = unsafePerformIO $ do | |||
185 | s <- createVector q | 185 | s <- createVector q |
186 | v <- createMatrix ColumnMajor c c | 186 | v <- createMatrix ColumnMajor c c |
187 | app3 g mat x vec s mat v st | 187 | app3 g mat x vec s mat v st |
188 | return (s,trans v) | 188 | return (s,v) |
189 | where r = rows x | 189 | where r = rows x |
190 | c = cols x | 190 | c = cols x |
191 | q = min r c | 191 | q = min r c |