1(defpackage #:blas 2 (:use #:common-lisp) 3 (:export #:daxpy #:dcopy #:ddot #:dnrm2 #:dscal #:idamax #:dasum 4 #:dcabs1 #:dgbmv #:dgemm #:dgemv #:dger #:drot #:drotg 5 #:dsbmv #:dspmv #:dspr #:dspr2 #:dswap #:dsymm #:dsymv 6 #:dsyr #:dsyr2 #:dsyr2k #:dsyrk #:dtbmv #:dtbsv #:dtpmv 7 #:dtpsv #:dtrmm #:dtrmv #:dtrsm #:dtrsv #:dzasum #:dznrm2 8 #:icamax #:isamax #:izamax #:lsame #:xerbla 9 ;; Complex BLAS 10 #:zaxpy 11 #:zcopy 12 #:zdotc 13 #:zdotu 14 #:zdscal 15 #:zgbmv 16 #:zgemm 17 #:zgemv 18 #:zgerc 19 #:zgeru 20 #:zhbmv 21 #:zhemm 22 #:zhemv 23 #:zher 24 #:zher2 25 #:zher2k 26 #:zherk 27 #:zhpmv 28 #:zhpr 29 #:zhpr2 30 #:zrotg 31 #:zscal 32 #:zswap 33 #:zsymm 34 #:zsyr2k 35 #:zsyrk 36 #:ztbmv 37 #:ztbsv 38 #:ztpmv 39 #:ztpsv 40 #:ztrmm 41 #:ztrmv 42 #:ztrsm 43 #:ztrsv 44 ) 45 (:documentation "Package for BLAS routines")) 46 47(defpackage #:lapack 48 (:use :f2cl-lib :blas :common-lisp) 49 (:export 50 ;; Functions that maxima wants to use from LAPACK. 51 #:dgeev 52 #:dgesvd 53 #:dlange 54 #:zlange 55 #:zgeev 56 #:zheev 57 ) 58 (:documentation "Package for LAPACK routines")) 59