diff options
Diffstat (limited to 'packages/sundials/src/helpers.c')
-rw-r--r-- | packages/sundials/src/helpers.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/packages/sundials/src/helpers.c b/packages/sundials/src/helpers.c index eab5ac9..6162b71 100644 --- a/packages/sundials/src/helpers.c +++ b/packages/sundials/src/helpers.c | |||
@@ -64,10 +64,7 @@ int f(realtype t, N_Vector y, N_Vector ydot, void *user_data) | |||
64 | 64 | ||
65 | int FARK_IMP_FUN(realtype *T, realtype *Y, realtype *YDOT, | 65 | int FARK_IMP_FUN(realtype *T, realtype *Y, realtype *YDOT, |
66 | long int *IPAR, realtype *RPAR, int *IER) { | 66 | long int *IPAR, realtype *RPAR, int *IER) { |
67 | realtype t = *T; | 67 | multiEq(T, Y, YDOT, IPAR, RPAR, IER); |
68 | realtype u = Y[0]; | ||
69 | realtype lamda = -100.0; | ||
70 | YDOT[0] = singleEq(t, u); | ||
71 | return 0; | 68 | return 0; |
72 | } | 69 | } |
73 | 70 | ||