diff options
Diffstat (limited to 'lib/GSL')
-rw-r--r-- | lib/GSL/Compat.hs | 4 | ||||
-rw-r--r-- | lib/GSL/gsl-aux.c | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lib/GSL/Compat.hs b/lib/GSL/Compat.hs index 1d6f7b9..8a59915 100644 --- a/lib/GSL/Compat.hs +++ b/lib/GSL/Compat.hs | |||
@@ -234,10 +234,10 @@ instance Mul (Complex Double) (Complex Double) (Complex Double) where | |||
234 | --------------------------------- matrix matrix | 234 | --------------------------------- matrix matrix |
235 | 235 | ||
236 | instance Mul (Matrix Double) (Matrix Double) (Matrix Double) where | 236 | instance Mul (Matrix Double) (Matrix Double) (Matrix Double) where |
237 | (<>) = mXm | 237 | (<>) = multiply |
238 | 238 | ||
239 | instance Mul (Matrix (Complex Double)) (Matrix (Complex Double)) (Matrix (Complex Double)) where | 239 | instance Mul (Matrix (Complex Double)) (Matrix (Complex Double)) (Matrix (Complex Double)) where |
240 | (<>) = mXm | 240 | (<>) = multiply |
241 | 241 | ||
242 | instance Mul (Matrix (Complex Double)) (Matrix Double) (Matrix (Complex Double)) where | 242 | instance Mul (Matrix (Complex Double)) (Matrix Double) (Matrix (Complex Double)) where |
243 | c <> r = c <> liftMatrix comp r | 243 | c <> r = c <> liftMatrix comp r |
diff --git a/lib/GSL/gsl-aux.c b/lib/GSL/gsl-aux.c index eec3e5f..c2839a8 100644 --- a/lib/GSL/gsl-aux.c +++ b/lib/GSL/gsl-aux.c | |||
@@ -58,10 +58,10 @@ | |||
58 | #define GCVEC(A) int A##n, gsl_complex*A##p | 58 | #define GCVEC(A) int A##n, gsl_complex*A##p |
59 | #define KGCVEC(A) int A##n, const gsl_complex*A##p | 59 | #define KGCVEC(A) int A##n, const gsl_complex*A##p |
60 | 60 | ||
61 | #define BAD_SIZE 1000 | 61 | #define BAD_SIZE 2000 |
62 | #define BAD_CODE 1001 | 62 | #define BAD_CODE 2001 |
63 | #define MEM 1002 | 63 | #define MEM 2002 |
64 | #define BAD_FILE 1003 | 64 | #define BAD_FILE 2003 |
65 | 65 | ||
66 | 66 | ||
67 | void no_abort_on_error() { | 67 | void no_abort_on_error() { |