Commit 47b9c441 authored by rtoy's avatar rtoy
Browse files

Create packages for BLAS and LAPACK routines.

blas.system:
o Converted files are in the BLAS package.
o Add blas-package defsystem to load the package definition.

lapack.system:
o Converted files are in the LAPACK package.
o Add lapack-package defsystem to load the package definition.

lapack/lapack-tests.lisp:
o Tests are in the LAPACK package
parent a4b7eb70
......@@ -6,6 +6,20 @@
;;;
;;; $Id$
;;; $Log$
;;; Revision 1.6 2006/12/01 04:29:29 rtoy
;;; Create packages for BLAS and LAPACK routines.
;;;
;;; blas.system:
;;; o Converted files are in the BLAS package.
;;; o Add blas-package defsystem to load the package definition.
;;;
;;; lapack.system:
;;; o Converted files are in the LAPACK package.
;;; o Add lapack-package defsystem to load the package definition.
;;;
;;; lapack/lapack-tests.lisp:
;;; o Tests are in the LAPACK package
;;;
;;; Revision 1.5 2006/11/29 16:59:10 rtoy
;;; Split defsystems for blas and lapack into real and complex versions.
;;;
......@@ -38,6 +52,7 @@
:relaxed-array-decls nil
:array-type :array
:array-slicing t
:package "BLAS"
)
:components
(;; These are the ones needed for HOMPACK
......@@ -59,6 +74,7 @@
:relaxed-array-decls t
:array-type :array
:array-slicing t
:package "BLAS"
)
:components
(;; Here are the rest of the BLAS routines
......@@ -132,6 +148,7 @@
:relaxed-array-decls t
:array-type :array
:array-slicing t
:package "BLAS"
)
:components
(
......@@ -170,15 +187,16 @@
(:file "ztrsm")
(:file "ztrsv")))
(mk:defsystem blas-package
:source-pathname
(merge-pathnames (make-pathname :directory '(:relative "blas"))
(make-pathname :directory (pathname-directory *load-pathname*)))
:components
((:file "blas-package")))
(mk:defsystem blas
:source-pathname
(merge-pathnames (make-pathname :directory '(:relative "blas"))
(make-pathname :directory (pathname-directory *load-pathname*)))
:source-extension "f"
:depends-on ("blas-real" "blas-complex")
:language :f2cl
:compiler-options (:keep-lisp-file t
:relaxed-array-decls t
:array-type :array
:array-slicing t
))
:depends-on ("blas-package" "blas-real" "blas-complex"))
(defpackage "BLAS"
(:use "COMMON-LISP")
(:export "DAXPY" "DCOPY" "DDOT" "DNRM2" "DSCAL" "IDAMAX" "DASUM"
"DCABS1" "DGBMV" "DGEMM" "DGEMV" "DGER" "DROT" "DROTG"
"DSBMV" "DSPMV" "DSPR" "DSPR2" "DSWAP" "DSYMM" "DSYMV"
"DSYR" "DSYR2" "DSYR2K" "DSYRK" "DTBMV" "DTBSV" "DTPMV"
"DTPSV" "DTRMM" "DTRMV" "DTRSM" "DTRSV" "DZASUM" "DZNRM2"
"ICAMAX" "ISAMAX" "IZAMAX" "LSAME" "XERBLA"))
\ No newline at end of file
......@@ -11,6 +11,7 @@
:relaxed-array-decls t
:array-type :array
:array-slicing t
:package "LAPACK"
)
:components
((:module lapack
......@@ -203,13 +204,17 @@
;;(:file "zgeev")
))))
(mk:defsystem "lapack-package"
:source-pathname (merge-pathnames #p"./lapack/"
(directory-namestring *load-truename*))
:depends-on ("blas-package")
:components
((:file "lapack-package")))
(mk:defsystem lapack
:source-pathname (directory-namestring *load-truename*)
:depends-on ("lapack-real")
:compiler-options (:keep-lisp-file t
:relaxed-array-decls t
:array-type :array
:array-slicing t))
:depends-on ("lapack-package" "lapack-real"))
......
(defpackage "LAPACK"
(:use "BLAS" "COMMON-LISP"))
......@@ -4,6 +4,8 @@
;;; $Id$
;;;
(in-package "LAPACK")
;; Convert the eigenvalues returned by DGEEV into an array
(defun make-eigval (wr wi)
(let ((e-val (make-array (length wr))))
......@@ -509,6 +511,20 @@
(test-dgesvd))
;;; $Log$
;;; Revision 1.11 2006/12/01 04:29:29 rtoy
;;; Create packages for BLAS and LAPACK routines.
;;;
;;; blas.system:
;;; o Converted files are in the BLAS package.
;;; o Add blas-package defsystem to load the package definition.
;;;
;;; lapack.system:
;;; o Converted files are in the LAPACK package.
;;; o Add lapack-package defsystem to load the package definition.
;;;
;;; lapack/lapack-tests.lisp:
;;; o Tests are in the LAPACK package
;;;
;;; Revision 1.10 2006/11/28 15:49:01 rtoy
;;; Print out short title for each test.
;;;
......
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