diff options
author | Dominic Steinitz <dominic@steinitz.org> | 2018-03-19 16:22:20 +0000 |
---|---|---|
committer | Dominic Steinitz <dominic@steinitz.org> | 2018-03-19 16:22:20 +0000 |
commit | 15a2c146d677dea7c4e0d7a39cbd6c8e9edb658f (patch) | |
tree | 791db6e42312a7ec8c40a1a5e00b0dccfa6b206c /packages/sundials/src/helpers.h | |
parent | 5a51a987e014066d019473a68c1ceca9e30a348f (diff) |
More removal of the Fortran way
Diffstat (limited to 'packages/sundials/src/helpers.h')
-rw-r--r-- | packages/sundials/src/helpers.h | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/packages/sundials/src/helpers.h b/packages/sundials/src/helpers.h index 7f4ba02..69a3dfe 100644 --- a/packages/sundials/src/helpers.h +++ b/packages/sundials/src/helpers.h | |||
@@ -21,14 +21,5 @@ typedef struct _N_VectorContent_Serial BazType; | |||
21 | */ | 21 | */ |
22 | int check_flag(void *flagvalue, const char *funcname, int opt); | 22 | int check_flag(void *flagvalue, const char *funcname, int opt); |
23 | 23 | ||
24 | /* f routine to compute the ODE RHS function f(t,y). */ | ||
25 | int f(realtype t, N_Vector y, N_Vector ydot, void *user_data); | ||
26 | |||
27 | int FARKfi(realtype t, N_Vector y, N_Vector ydot, void *user_data); | ||
28 | |||
29 | /* Jacobian routine to compute J(t,y) = df/dy. */ | ||
30 | int Jac(realtype t, N_Vector y, N_Vector fy, SUNMatrix J, | ||
31 | void *user_data, N_Vector tmp1, N_Vector tmp2, N_Vector tmp3); | ||
32 | |||
33 | /* check the computed solution */ | 24 | /* check the computed solution */ |
34 | int check_ans(N_Vector y, realtype t, realtype rtol, realtype atol); | 25 | int check_ans(N_Vector y, realtype t, realtype rtol, realtype atol); |