Commit 694552b3 authored by Liam Healy's avatar Liam Healy

Port ordinary-differential-equations to ffa

Port ordinary-differential-equations to "ffa" which is really just a
few changes to sizet.  The example runs and the results look
reasonable.
parent f98dff03
;; Definition of GSLL system
;; Liam Healy
;; Time-stamp: <2008-08-21 19:03:55EDT gsll.asd>
;; Time-stamp: <2008-08-21 22:08:09EDT gsll.asd>
;; $Id$
(asdf:defsystem "gsll"
......@@ -155,7 +155,6 @@
(:file "probability-distribution" :depends-on (histogram))
(:file "ntuple")))
(:file "monte-carlo" :depends-on (init data random))
#+no
(:module ordinary-differential-equations
:depends-on (init)
:components
......
;; Adaptive step-size control
;; Liam Healy 2008-02-17 17:30:04EST control.lisp
;; Time-stamp: <2008-02-17 17:41:02EST control.lisp>
;; Time-stamp: <2008-08-21 22:08:55EDT control.lisp>
;; $Id$
(in-package :gsl)
......@@ -66,7 +66,7 @@
(absolute-error relative-error y dydt absolute-scale dimension)
"gsl_odeiv_control_scaled_new"
((absolute-error :double) (relative-error :double) (y :double) (dydt :double)
(absolute-scale :pointer) (dimension size))
(absolute-scale :pointer) (dimension sizet))
:c-return (ptr :pointer)
:return (ptr)
:documentation ; FDL
......
;; Evolution functions for ODE integration.
;; Liam Healy, Sun Sep 30 2007 - 14:31
;; Time-stamp: <2008-02-17 17:43:24EST evolution.lisp>
;; Time-stamp: <2008-08-21 22:07:27EDT evolution.lisp>
;; $Id$
(in-package :gsl)
(defmfun allocate-evolution (dimension)
"gsl_odeiv_evolve_alloc"
((dimension size))
((dimension sizet))
:c-return :pointer
:documentation ; FDL
"Allocate a new instance of an evolution function
......
;; ODE system setup
;; Liam Healy, Sun Apr 15 2007 - 14:19
;; Time-stamp: <2008-02-17 17:25:09EST ode-system.lisp>
;; Time-stamp: <2008-08-21 22:04:31EDT ode-system.lisp>
;; $Id$
(in-package :gsl)
......@@ -10,7 +10,7 @@
"The definition of an ordinary differential equation system for GSL."
(function :pointer)
(jacobian :pointer)
(dimension size)
(dimension sizet)
(parameters :pointer))
(export '(def-ode-functions with-ode-integration))
......
;; Stepping functions for ODE systems.
;; Liam Healy, Mon Sep 24 2007 - 21:33
;; Time-stamp: <2008-02-17 17:29:49EST stepping.lisp>
;; Time-stamp: <2008-08-21 22:05:20EDT stepping.lisp>
;; $Id$
(in-package :gsl)
(defmfun step-allocate (step-type dim)
"gsl_odeiv_step_alloc"
((step-type :pointer) (dim size))
((step-type :pointer) (dim sizet))
:c-return :pointer
:documentation ; FDL
"Allocate a new instance of a stepping function of
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment