From a97864b1bacadb38c6de0c571f9a5eae36dd6bd0 Mon Sep 17 00:00:00 2001 From: Liam Healy <liam@thinkpad.local> Date: Mon, 30 Nov 2009 19:02:20 -0500 Subject: [PATCH] Pass c-pointer for marray arguments to apply-step --- ordinary-differential-equations/stepping.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/ordinary-differential-equations/stepping.lisp b/ordinary-differential-equations/stepping.lisp index 250be3fe..94d8da84 100644 --- a/ordinary-differential-equations/stepping.lisp +++ b/ordinary-differential-equations/stepping.lisp @@ -1,7 +1,6 @@ ;; Stepping functions for ODE systems. ;; Liam Healy, Mon Sep 24 2007 - 21:33 -;; Time-stamp: <2009-06-06 16:44:42EDT stepping.lisp> -;; $Id$ +;; Time-stamp: <2009-11-30 19:01:31EST stepping.lisp> ;; /usr/include/gsl/gsl_odeiv.h @@ -91,10 +90,10 @@ values): (((mpointer stepper) :pointer) (time :double) (step-size :double) - (y :pointer) - (yerr :pointer) - (dydt-in :pointer) - (dydt-out :pointer) + ((c-pointer y) :pointer) + ((c-pointer yerr) :pointer) + ((c-pointer dydt-in) :pointer) + ((c-pointer dydt-out) :pointer) ((callback-struct stepper) :pointer)) :documentation ; FDL "Apply the stepping function stepper to the system of equations -- GitLab