diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-06-27 09:15:27 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-06-27 09:15:27 +0200 |
commit | 4d96b90c4cfd38cdb51f3dc66a8a644bd87cdbff (patch) | |
tree | d7b82283f08e5947b06fdec4f403a5bc87c09f35 /packages/base/src/Internal/Util.hs | |
parent | 624046d6b55d37104f950e8888ab68c53a2e6bf0 (diff) |
use slice interface for lapack funcs (wip)
Diffstat (limited to 'packages/base/src/Internal/Util.hs')
-rw-r--r-- | packages/base/src/Internal/Util.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/packages/base/src/Internal/Util.hs b/packages/base/src/Internal/Util.hs index 98eb4ef..258c3a3 100644 --- a/packages/base/src/Internal/Util.hs +++ b/packages/base/src/Internal/Util.hs | |||
@@ -845,10 +845,11 @@ viewBlock' r c m | |||
845 | | otherwise = Block m11 m12 m21 m22 | 845 | | otherwise = Block m11 m12 m21 m22 |
846 | where | 846 | where |
847 | (rt,ct) = size m | 847 | (rt,ct) = size m |
848 | m11 = sliceMatrix (0,0) (r,c) m | 848 | m11 = subm (0,0) (r,c) m |
849 | m12 = sliceMatrix (0,c) (r,ct-c) m | 849 | m12 = subm (0,c) (r,ct-c) m |
850 | m21 = sliceMatrix (r,0) (rt-r,c) m | 850 | m21 = subm (r,0) (rt-r,c) m |
851 | m22 = sliceMatrix (r,c) (rt-r,ct-c) m | 851 | m22 = subm (r,c) (rt-r,ct-c) m |
852 | subm = sliceMatrix | ||
852 | 853 | ||
853 | viewBlock m = viewBlock' n n m | 854 | viewBlock m = viewBlock' n n m |
854 | where | 855 | where |