diff options
Diffstat (limited to 'packages/base/src/Internal/LAPACK.hs')
| -rw-r--r-- | packages/base/src/Internal/LAPACK.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/packages/base/src/Internal/LAPACK.hs b/packages/base/src/Internal/LAPACK.hs index fc9e3ad..5319e95 100644 --- a/packages/base/src/Internal/LAPACK.hs +++ b/packages/base/src/Internal/LAPACK.hs | |||
| @@ -418,6 +418,8 @@ linearSolveSVDC Nothing a b = linearSolveSVDC (Just (-1)) (fmat a) (fmat b) | |||
| 418 | 418 | ||
| 419 | ----------------------------------------------------------------------------------- | 419 | ----------------------------------------------------------------------------------- |
| 420 | 420 | ||
| 421 | type TMM t = t ..> t ..> Ok | ||
| 422 | |||
| 421 | foreign import ccall unsafe "chol_l_H" zpotrf :: TMM C | 423 | foreign import ccall unsafe "chol_l_H" zpotrf :: TMM C |
| 422 | foreign import ccall unsafe "chol_l_S" dpotrf :: TMM R | 424 | foreign import ccall unsafe "chol_l_S" dpotrf :: TMM R |
| 423 | 425 | ||