Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
f2cl
f2cl
Commits
91e90dbf
Commit
91e90dbf
authored
Nov 23, 2011
by
Raymond Toy
Browse files
Clean up pathnames so everything loads.
parent
fc660a6a
Changes
3
Hide whitespace changes
Inline
Side-by-side
packages/blas.asd
View file @
91e90dbf
...
...
@@ -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"
))
packages/quadpack.asd
View file @
91e90dbf
...
...
@@ -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"
...
...
packages/quadpack.system
View file @
91e90dbf
...
...
@@ -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"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment