diff options
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 |