diff options
author | Dominic Steinitz <dominic@steinitz.org> | 2018-03-12 09:50:59 +0000 |
---|---|---|
committer | Dominic Steinitz <dominic@steinitz.org> | 2018-03-12 09:50:59 +0000 |
commit | f2b1eae3d71c546abc71e099b4bd86010627f0fb (patch) | |
tree | 286ae3211ef401db83d02e03bf4044cf01d015c2 /packages/sundials/src/helpers.h | |
parent | 7c2337e093ecd7d367d30d567bf5172ee639666b (diff) |
Now builds with stack and cabal
Diffstat (limited to 'packages/sundials/src/helpers.h')
-rw-r--r-- | packages/sundials/src/helpers.h | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/packages/sundials/src/helpers.h b/packages/sundials/src/helpers.h index d574ff5..ec11355 100644 --- a/packages/sundials/src/helpers.h +++ b/packages/sundials/src/helpers.h | |||
@@ -1 +1,27 @@ | |||
1 | #if defined(SUNDIALS_EXTENDED_PRECISION) | ||
2 | #define GSYM "Lg" | ||
3 | #define ESYM "Le" | ||
4 | #define FSYM "Lf" | ||
5 | #else | ||
6 | #define GSYM "g" | ||
7 | #define ESYM "e" | ||
8 | #define FSYM "f" | ||
9 | #endif | ||
10 | |||
11 | /* Check function return value... | ||
12 | opt == 0 means SUNDIALS function allocates memory so check if | ||
13 | returned NULL pointer | ||
14 | opt == 1 means SUNDIALS function returns a flag so check if | ||
15 | flag >= 0 | ||
16 | opt == 2 means function allocates memory so check if returned | ||
17 | NULL pointer | ||
18 | */ | ||
1 | int check_flag(void *flagvalue, const char *funcname, int opt); | 19 | int check_flag(void *flagvalue, const char *funcname, int opt); |
20 | |||
21 | /* f routine to compute the ODE RHS function f(t,y). */ | ||
22 | int f(realtype t, N_Vector y, N_Vector ydot, void *user_data); | ||
23 | |||
24 | /* Jacobian routine to compute J(t,y) = df/dy. */ | ||
25 | int Jac(realtype t, N_Vector y, N_Vector fy, SUNMatrix J, | ||
26 | void *user_data, N_Vector tmp1, N_Vector tmp2, N_Vector tmp3); | ||
27 | |||