diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-09-12 19:09:47 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-09-12 19:09:47 +0000 |
| commit | 0ff13d993b880739295de343bca62f06fac5ca0c (patch) | |
| tree | 252a51b4314c19c04a9eda87973eeaae63167a41 /examples/tests.hs | |
| parent | cd937c2be2900b8f13506d9ae7c731ad43d74e05 (diff) | |
documentation
Diffstat (limited to 'examples/tests.hs')
| -rw-r--r-- | examples/tests.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/tests.hs b/examples/tests.hs index 56bd2ab..0d8361e 100644 --- a/examples/tests.hs +++ b/examples/tests.hs | |||
| @@ -92,8 +92,8 @@ epsTol = 1E-8::Double | |||
| 92 | asFortran m = (rows m >|< cols m) $ toList (fdat m) | 92 | asFortran m = (rows m >|< cols m) $ toList (fdat m) |
| 93 | asC m = (rows m >< cols m) $ toList (cdat m) | 93 | asC m = (rows m >< cols m) $ toList (cdat m) |
| 94 | 94 | ||
| 95 | mulC a b = multiply RowMajor a b | 95 | mulC a b = multiply' RowMajor a b |
| 96 | mulF a b = multiply ColumnMajor a b | 96 | mulF a b = multiply' ColumnMajor a b |
| 97 | 97 | ||
| 98 | infixl 7 <> | 98 | infixl 7 <> |
| 99 | a <> b = mulF a b | 99 | a <> b = mulF a b |