From 0c1b8611b9cc55cc646c708b63442f3aaac1249d Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sat, 24 Apr 2010 09:47:42 +0000 Subject: examples/parallel using toBlocks --- lib/Numeric/LinearAlgebra/Algorithms.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib') diff --git a/lib/Numeric/LinearAlgebra/Algorithms.hs b/lib/Numeric/LinearAlgebra/Algorithms.hs index 580f4bb..fc2fcb2 100644 --- a/lib/Numeric/LinearAlgebra/Algorithms.hs +++ b/lib/Numeric/LinearAlgebra/Algorithms.hs @@ -329,15 +329,15 @@ ctrans = ctrans' -- | Matrix product. multiply :: Field t => Matrix t -> Matrix t -> Matrix t -multiply = multiply' +multiply = {-# SCC "multiply" #-} multiply' -- | Similar to 'cholSH', but instead of an error (e.g., caused by a matrix not positive definite) it returns 'Nothing'. mbCholSH :: Field t => Matrix t -> Maybe (Matrix t) -mbCholSH = mbCholSH' +mbCholSH = {-# SCC "mbCholSH" #-} mbCholSH' -- | Similar to 'chol', without checking that the input matrix is hermitian or symmetric. It works with the upper triangular part. cholSH :: Field t => Matrix t -> Matrix t -cholSH = cholSH' +cholSH = {-# SCC "cholSH" #-} cholSH' -- | Cholesky factorization of a positive definite hermitian or symmetric matrix. -- @@ -351,7 +351,7 @@ chol m | exactHermitian m = cholSH m -- | Determinant of a square matrix. det :: Field t => Matrix t -> t -det m | square m = s * (product $ toList $ takeDiag $ lup) +det m | square m = {-# SCC "det" #-} s * (product $ toList $ takeDiag $ lup) | otherwise = error "det of nonsquare matrix" where (lup,perm) = luPacked m s = signlp (rows m) perm -- cgit v1.2.3