Commit 28c7fe74 authored by Raymond Toy's avatar Raymond Toy
Browse files

Add odepack-lsode system

Define odepack-lsode system that includes just the files needed to
compile the demo for lsode.  Updated the system for odedemo-lsode to
depend on odepack-lsode, of course.

Things compile and run.  No guarantee that I didn't miss anything,
parent cd840749
...@@ -132,7 +132,8 @@ ...@@ -132,7 +132,8 @@
:depends-on ("jgroup" "odrv")) :depends-on ("jgroup" "odrv"))
(:file "dprepi" (:file "dprepi"
:depends-on ("jgroup" "odrv")) :depends-on ("jgroup" "odrv"))
(:file "dprepj") (:file "dprepj"
:depends-on ("dgbfa"))
(:file "dprepji") (:file "dprepji")
(:file "dprja") (:file "dprja")
(:file "dprjis") (:file "dprjis")
...@@ -196,6 +197,81 @@ ...@@ -196,6 +197,81 @@
(defmethod perform ((op test-op) (c (eql (find-system "odepack")))) (defmethod perform ((op test-op) (c (eql (find-system "odepack"))))
(oos 'test-op "odedemo-lsode")) (oos 'test-op "odedemo-lsode"))
(defsystem odepack-lsode
:pathname "odepack/"
((:module "package"
:pathname ""
((:file "package")))
(:module "lsode"
:pathname ""
:default-component-class odepack-fortran-file
(:file "dlsode"
:depends-on ("dstode" "diprep" "dewset" "dvnorm"
"dintdy" "xerrwd"
(:file "dsolsy"
:depends-on ("dgesl" "dgbsl"))
(:file "dgbsl"
:depends-on ("daxpy"))
(:file "dewset")
(:file "dvnorm")
(:file "dintdy"
:depends-on ("xerrwd"))
(:file "xerrwd"
:depends-on ("ixsav"))
(:file "ixsav"
:depends-on ("iumach"))
(:file "iumach")
(:file "dstode"
:depends-on ("dcfode" "dvnorm" "dprepj"))
(:file "dcfode")
(:file "dprepj"
:depends-on ("dgefa" "dgbfa"))
(:file "dgefa"
:depends-on ("idamax" "dscal" "daxpy"))
(:file "dgbfa"
:depends-on ("idamax" "dscal" "daxpy"))
(:file "idamax")
(:file "dscal")
(:file "daxpy")
(:file "diprep"
:depends-on ("dprep")
:perform (compile-op :around (op c)
(fortran-compile op c
:common-as-array t :declare-common t)))
(:file "dprep"
:depends-on ("jgroup" "odrv" "cdrv" "adjlr" "cntnzu"))
(:file "jgroup")
(:file "odrv"
:depends-on ("sro" "md"))
(:file "cdrv"
:depends-on ("nntc"))
(:file "nntc")
(:file "adjlr"
:depends-on ("nroc" "nsfc" "nnfc" "nnsc"))
(:file "nroc")
(:file "nsfc")
(:file "nnfc")
(:file "nnsc")
(:file "cntnzu")
(:file "sro")
(:file "md"
:depends-on ("mdi" "mdm" "mdp" "mdu"))
(:file "mdi")
(:file "mdm")
(:file "mdp")
(:file "mdu")
(:file "dumach"
:depends-on ("dumsum"))
(:file "dumsum")
(:file "dgesl"
:depends-on ("daxpy" "ddot"))
(:file "ddot")))))
;;; Demo programs ;;; Demo programs
...@@ -211,7 +287,7 @@ ...@@ -211,7 +287,7 @@
;; Output matches Fortran code. ;; Output matches Fortran code.
(defsystem odedemo-lsode (defsystem odedemo-lsode
:pathname "odepack/" :pathname "odepack/"
:depends-on ("odepack") :depends-on ("odepack-lsode")
:components :components
((:module "demo1" ((:module "demo1"
:default-component-class odepack-fortran-file :default-component-class odepack-fortran-file
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