diff options
Diffstat (limited to 'packages/sundials/src/Numeric')
-rw-r--r-- | packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs b/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs index 5af9e41..b419843 100644 --- a/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs +++ b/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs | |||
@@ -87,8 +87,8 @@ getDataFromContents len ptr = do | |||
87 | vectorFromC len rtr | 87 | vectorFromC len rtr |
88 | 88 | ||
89 | -- FIXME: Potentially an instance of Storable | 89 | -- FIXME: Potentially an instance of Storable |
90 | getMatrixDataFromContents :: Ptr T.SunMatrix -> IO T.SunMatrix | 90 | _getMatrixDataFromContents :: Ptr T.SunMatrix -> IO T.SunMatrix |
91 | getMatrixDataFromContents ptr = do | 91 | _getMatrixDataFromContents ptr = do |
92 | qtr <- B.getContentMatrixPtr ptr | 92 | qtr <- B.getContentMatrixPtr ptr |
93 | rs <- B.getNRows qtr | 93 | rs <- B.getNRows qtr |
94 | cs <- B.getNCols qtr | 94 | cs <- B.getNCols qtr |
@@ -239,8 +239,8 @@ solveOdeC method jacH relTol absTol fun f0 ts = unsafePerformIO $ do | |||
239 | Ptr () -> Ptr T.SunVector -> Ptr T.SunVector -> Ptr T.SunVector -> | 239 | Ptr () -> Ptr T.SunVector -> Ptr T.SunVector -> Ptr T.SunVector -> |
240 | IO CInt | 240 | IO CInt |
241 | jacIO t y _fy jacS _ptr _tmp1 _tmp2 _tmp3 = do | 241 | jacIO t y _fy jacS _ptr _tmp1 _tmp2 _tmp3 = do |
242 | foo <- jacH t <$> getDataFromContents dim y | 242 | j <- jacH t <$> getDataFromContents dim y |
243 | putMatrixDataFromContents foo jacS | 243 | putMatrixDataFromContents j jacS |
244 | -- FIXME: I don't understand what this comment means | 244 | -- FIXME: I don't understand what this comment means |
245 | -- Unsafe since the function will be called many times. | 245 | -- Unsafe since the function will be called many times. |
246 | [CU.exp| int{ 0 } |] | 246 | [CU.exp| int{ 0 } |] |