Commit 91e90dbf authored by Raymond Toy's avatar Raymond Toy
Browse files

Clean up pathnames so everything loads.

parent fc660a6a
......@@ -32,14 +32,15 @@
(defsystem blas-package
:components
((:file "blas-package")))
((:module "blas"
:components
((:file "blas-package")))))
(defsystem blas-hompack
:pathname "blas/"
:depends-on ("blas-package")
:components
((:module "blas-hompack"
:pathname ""
:pathname "blas/"
:default-component-class blas-fortran-file
:components
(
......@@ -52,11 +53,9 @@
(:file "idamax")))))
(defsystem blas-real
:pathname "blas/"
:depends-on ("blas-hompack")
:components
((:module "blas-real"
:pathname ""
((:module "blas"
:default-component-class blas-fortran-file
:components
( ;; Here are the rest of the BLAS routines
......@@ -120,11 +119,10 @@
(:file "xerbla")))))
(defsystem blas-complex
:pathname "blas/"
:depends-on ("blas-real")
:components
((:module "blas-complex"
:pathname ""
((:module "blas"
:pathname "blas/"
:default-component-class blas-fortran-file
:components
((:file "zaxpy")
......@@ -165,3 +163,4 @@
(defsystem blas
:pathname "blas/"
:depends-on ("blas-package" "blas-real" "blas-complex"))
......@@ -54,6 +54,7 @@
#:dqag
#:dqags
#:dqagi
#:dqagp
#:dqawf
#:dqawo
#:dqaws
......@@ -74,7 +75,7 @@
(defun fortran-compile (op c &key (array-slicing t) (array-type :array) package)
(let ((file (component-pathname c)))
(f2cl:f2cl-compile file
(f2cl:f2cl file
:output-file (first (output-files op c))
:array-slicing array-slicing
:array-type array-type
......@@ -155,6 +156,8 @@
:depends-on ("dqelg"
"dqk15i"
"dqpsrt"))
(:file "dqagp"
:depends-on ("dqagpe"))
(:file "dqagpe"
:depends-on ("dqelg"
"dqpsrt"
......
......@@ -139,6 +139,11 @@
:depends-on ("dqelg"
"dqk15i"
"dqpsrt"))
(:file "dqagp"
:depends-on ("dqagpe")
:compiler-options (:array-slicing nil :array-type :array
:float-format double-float
:package :slatec))
(:file "dqagpe"
:depends-on ("dqelg"
"dqpsrt"
......@@ -274,6 +279,11 @@
:depends-on ("dqelg"
"dqk15i"
"dqpsrt"))
(:file "dqagp"
:depends-on ("dqagpe")
:compiler-options (:array-slicing t :array-type :array
:float-format double-float
:package :slatec))
(:file "dqagpe"
:depends-on ("dqelg"
"dqpsrt"
......
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