diff options
author | Alberto Ruiz <aruiz@um.es> | 2007-06-09 12:10:58 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2007-06-09 12:10:58 +0000 |
commit | 7931a9b18ea84ed5f49e2803ba596f190567d9d8 (patch) | |
tree | 64a08a62b2bffcf48becbab03933f3c7b4527a73 /lib/Data/Packed/Internal/Vector.hs | |
parent | e21f42f742959ec9452add9b6c6e08d30d9584ed (diff) |
more tests
Diffstat (limited to 'lib/Data/Packed/Internal/Vector.hs')
-rw-r--r-- | lib/Data/Packed/Internal/Vector.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index 36d5df7..8f4e6a4 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs | |||
@@ -145,6 +145,7 @@ asReal v = V { dim = 2*dim v, fptr = castForeignPtr (fptr v), ptr = castPtr (pt | |||
145 | asComplex :: Vector Double -> Vector (Complex Double) | 145 | asComplex :: Vector Double -> Vector (Complex Double) |
146 | asComplex v = V { dim = dim v `div` 2, fptr = castForeignPtr (fptr v), ptr = castPtr (ptr v) } | 146 | asComplex v = V { dim = dim v `div` 2, fptr = castForeignPtr (fptr v), ptr = castPtr (ptr v) } |
147 | 147 | ||
148 | |||
148 | constantG n x = fromList (replicate n x) | 149 | constantG n x = fromList (replicate n x) |
149 | 150 | ||
150 | constantR :: Int -> Double -> Vector Double | 151 | constantR :: Int -> Double -> Vector Double |