share/lapack/lapack-package.lisp

   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"))