From a13da595a34e490a9c246d683ff67a8f6f932f22 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 16:43:08 -0800 Subject: [PATCH 01/46] first step in MAGICL refactor This separates out CFFI stuff into separate systems. --- magicl.asd | 146 +++++++++++++++++--- src/extensions/blas/load-libs.lisp | 19 +++ src/extensions/blas/package.lisp | 6 + src/extensions/common/library-tracking.lisp | 56 ++++++++ src/extensions/common/package.lisp | 23 +++ src/extensions/expokit/package.lisp | 13 ++ src/extensions/lapack/load-libs.lisp | 23 +++ src/extensions/lapack/package.lisp | 4 + src/load-libs.lisp | 87 ------------ src/packages.lisp | 38 ----- transcendental/load-libs.lisp | 2 +- transcendental/package.lisp | 13 +- 12 files changed, 275 insertions(+), 155 deletions(-) create mode 100644 src/extensions/blas/load-libs.lisp create mode 100644 src/extensions/blas/package.lisp create mode 100644 src/extensions/common/library-tracking.lisp create mode 100644 src/extensions/common/package.lisp create mode 100644 src/extensions/expokit/package.lisp create mode 100644 src/extensions/lapack/load-libs.lisp create mode 100644 src/extensions/lapack/package.lisp diff --git a/magicl.asd b/magicl.asd index 372f5ec7..63ff5acd 100755 --- a/magicl.asd +++ b/magicl.asd @@ -12,29 +12,23 @@ #:cffi #:cffi-libffi #:abstract-classes - #:policy-cond) + #:policy-cond + + #:magicl/ext ; Allow extensions + + ;; temporary + #:magicl/ext-blas + #:magicl/ext-lapack + #:magicl/ext-expokit) :in-order-to ((asdf:test-op (asdf:test-op #:magicl-tests))) :around-compile (lambda (compile) (let (#+sbcl (sb-ext:*derive-function-types* t)) (funcall compile))) :serial t - :pathname "src/" :components - ((:file "packages") - (:file "load-libs") - (:file "with-array-pointers") - (:file "cffi-types") - (:module "bindings" - :components ((:file "lapack00-cffi") - (:file "lapack01-cffi") - (:file "lapack02-cffi") - (:file "lapack03-cffi") - (:file "lapack04-cffi") - (:file "lapack05-cffi") - (:file "lapack06-cffi") - (:file "lapack07-cffi") - (:file "blas-cffi"))) - (:module "high-level" + ((:file "src/packages") + (:file "src/load-libs") + (:module "src/high-level" :serial t :components ((:file "util") (:file "shape") @@ -54,4 +48,120 @@ (:file "constructors") (:file "specialize-constructor") (:file "polynomial-solver"))) - (:file "magicl"))) + (:module "transcendental" + :components ((:file "transcendental")) + ) + (:file "src/magicl"))) + +;;; Extension common code + +(asdf:defsystem #:magicl/ext + :description "Common code for extending MAGICL with foreign libraries." + :depends-on (#:cffi) + :serial t + :pathname "src/" + :components + ((:module "extensions/common" + :components ((:file "package") + (:file "library-tracking"))) + (:file "with-array-pointers") + (:file "cffi-types"))) + +;;; BLAS + +(asdf:defsystem #:magicl/ext-blas + :description "Native BLAS routines in MAGICL." + :depends-on (#:magicl/ext + #:cffi) + :serial t + :pathname "src/" + :components + ((:module "extensions/blas" + :components ((:file "package") + (:file "load-libs"))) + (:module "bindings" + :components ((:file "blas-cffi"))))) + + +;;; LAPACK + +(asdf:defsystem #:magicl/ext-lapack + :description "Native LAPACK routines in MAGICL." + :depends-on (#:magicl/ext + #:magicl/ext-blas + #:cffi) + :serial t + :pathname "src/" + :components + ((:module "extensions/lapack" + :components ((:file "package") + (:file "load-libs"))) + (:module "bindings" + :components ((:file "lapack00-cffi") + (:file "lapack01-cffi") + (:file "lapack02-cffi") + (:file "lapack03-cffi") + (:file "lapack04-cffi") + (:file "lapack05-cffi") + (:file "lapack06-cffi") + (:file "lapack07-cffi"))))) + + +;;; EXPOKIT + +;;; Adapted from commonqt's qt.asd +(defclass f->so (asdf:source-file) + () + (:default-initargs + :type "f")) + +(defmethod output-files ((operation compile-op) (component f->so)) + (values (list (make-pathname :name "libexpokit" + :type #-darwin "so" #+darwin "dylib" + :defaults (component-pathname component))) + t)) + +(defmethod perform ((operation load-op) (component f->so)) + t) + +(defmethod perform ((operation compile-op) (component f->so)) + (flet ((nn (x) (uiop:native-namestring x))) + (let* ((fortran-file (component-pathname component)) + (object-file (make-pathname :type "o" :defaults fortran-file)) + (shared-object (make-pathname :type #+darwin "dylib" #-darwin "so" + :name "libexpokit" + :defaults fortran-file))) + (uiop:run-program + (list "gfortran" "-fPIC" "-std=legacy" + "-c" + (nn fortran-file) + "-o" + (nn object-file))) + (uiop:run-program + (list "gfortran" #+darwin "-dynamiclib" #-darwin "-shared" + "-o" (nn shared-object) + (nn object-file) + #+darwin "-lblas" + #+darwin "-llapack")) + (delete-file object-file)))) + + +(asdf:defsystem #:magicl/ext-expokit + :description "Expokit for MAGICL" + :depends-on (#:alexandria + #:cffi + #:cffi-libffi + #:magicl/ext + #:magicl/ext-blas + #:magicl/ext-lapack + ) + :serial t + :components + ((:module "src/extensions/expokit" + :components ((:file "package"))) + (:module "transcendental" + :components ((f->so "expokit") + (:file "load-libs") + ;;(:file "transcendental") + )) + (:file "src/bindings/expokit-cffi"))) diff --git a/src/extensions/blas/load-libs.lisp b/src/extensions/blas/load-libs.lisp new file mode 100644 index 00000000..c87eea15 --- /dev/null +++ b/src/extensions/blas/load-libs.lisp @@ -0,0 +1,19 @@ +(in-package #:magicl.foreign-libraries) + +(cffi:define-foreign-library libblas + #+:magicl.use-accelerate + (:darwin "libBLAS.dylib" :search-path #P"/System/Library/Frameworks/Accelerate.framework/Frameworks/vecLib.framework/Versions/A/") + #-:magicl.use-accelerate + (:darwin (:or "/usr/local/opt/lapack/lib/libblas.dylib" "libblas.dylib" )) + #+:magicl.use-mkl + (:unix "libmkl_rt.so") + #-:magicl.use-mkl + (:unix (:or "libblas.so" + "libblas.so.3")) + (t (:default "libblas"))) + +(defvar *blas-loaded* nil) + +(unless *blas-loaded* + (cffi:load-foreign-library 'libblas) + (setf *blas-loaded* t)) diff --git a/src/extensions/blas/package.lisp b/src/extensions/blas/package.lisp new file mode 100644 index 00000000..0006e6a6 --- /dev/null +++ b/src/extensions/blas/package.lisp @@ -0,0 +1,6 @@ + +(defpackage #:magicl.blas-cffi + (:use) + #-package-local-nicknames + (:nicknames #:blas)) + diff --git a/src/extensions/common/library-tracking.lisp b/src/extensions/common/library-tracking.lisp new file mode 100644 index 00000000..bf86d7fe --- /dev/null +++ b/src/extensions/common/library-tracking.lisp @@ -0,0 +1,56 @@ +(in-package #:magicl.foreign-libraries) + +(defvar *foreign-libraries* nil + "Foreign library names (designated by symbols) that exist.") + +(defun foreign-symbol-available-p (name library) + "Check that NAME is available from the libarary LIBRARY." + (check-type name string) + (check-type library symbol) + (let ((found (cffi:foreign-symbol-pointer name :library library))) + (and found + (not (cffi:null-pointer-p found)) + t))) + +(defun print-availability-report (&key (stream *standard-output*) + (show-available t) + (show-unavailable t) + search) + (check-type search (or null string)) + (check-type stream stream) + ;; Print header + (format stream "~&~7T~ + ~T~A~ + ~0,32T~A~%" + "Fortran Function" + "Lisp Function") + (write-line #.(make-string 72 :initial-element #\-) stream) + (terpri stream) + + ;; Print symbol information + (dolist (lib *cffi-libraries*) + (let ((symbols (sort (copy-seq (getf (symbol-plist lib) ':magicl)) + #'string< + :key #'first))) + (unless (null symbols) + (format stream "Library ~A: ~A~%" + (symbol-name lib) + (cffi:foreign-library-pathname lib)) + + (loop :for (real-name mangled-name raw-symbol external-symbol) :in symbols :do + (let ((available (foreign-symbol-available-p mangled-name lib))) + (when (and + ;; search query + (or (null search) + (search search real-name :test #'char-equal) + (search search mangled-name :test #'char-equal)) + ;; availability filter + (or (and show-available available) + (and show-unavailable (not available)))) + (format stream "~4T[~:[ ~;x~]]~ + ~T~A~ + ~0,32T~S~%" + available + real-name + external-symbol)))) + (terpri stream))))) diff --git a/src/extensions/common/package.lisp b/src/extensions/common/package.lisp new file mode 100644 index 00000000..0f57f316 --- /dev/null +++ b/src/extensions/common/package.lisp @@ -0,0 +1,23 @@ +(defpackage #:magicl.cffi-types + (:use #:common-lisp + #:cffi) + (:export #+sbcl #:array-pointer ; FUNCTION + #:with-array-pointers ; MACRO + #:complex-single-float + #:complex-double-float + #:fortran-int + #:fortran-float + #:fortran-double + #:fortran-complex-float + #:fortran-complex-double + #:fortran-logical)) + +(defpackage #:magicl.foreign-libraries + (:use #:common-lisp) + (:export #:libgfortran + #:libblas + #:liblapack + #:libexpokit + #:foreign-symbol-available-p + #:print-availability-report)) + diff --git a/src/extensions/expokit/package.lisp b/src/extensions/expokit/package.lisp new file mode 100644 index 00000000..7e7e7632 --- /dev/null +++ b/src/extensions/expokit/package.lisp @@ -0,0 +1,13 @@ +(defpackage #:magicl.expokit-cffi + (:use) + #-package-local-nicknames + (:nicknames #:expokit)) + +(defpackage #:magicl-transcendental.foreign-libraries + (:use #:common-lisp) + (:export #:libexpokit)) + +(defpackage #:magicl-transcendental + (:use #:common-lisp + #:cffi) + (:export #:expm #:logm)) diff --git a/src/extensions/lapack/load-libs.lisp b/src/extensions/lapack/load-libs.lisp new file mode 100644 index 00000000..6acc7c41 --- /dev/null +++ b/src/extensions/lapack/load-libs.lisp @@ -0,0 +1,23 @@ +(in-package #:magicl.foreign-libraries) + +(cffi:define-foreign-library liblapack + #+:magicl.use-accelerate + (:darwin "libLAPACK.dylib" :search-path #P"/System/Library/Frameworks/Accelerate.framework/Frameworks/vecLib.framework/Versions/A/") + ;; If the user has done so, it is likely this is the location where + ;; Homebrew installed LAPACK. Prefer it over the system LAPACK + ;; because it's more complete. (macOS-provided LAPACK doesn't have a + ;; lot of the more obscure subroutines.) + #-:magicl.use-accelerate + (:darwin (:or "/usr/local/opt/lapack/lib/liblapack.dylib" "liblapack.dylib")) + #+:magicl.use-mkl + (:unix "libmkl_rt.so") + #-:magicl.use-mkl + (:unix (:or "liblapack.so" + "liblapack.so.3")) + (t (:default "liblapack"))) + +(defvar *blapack-libs-loaded* nil) + +(unless *blapack-libs-loaded* + (cffi:load-foreign-library 'liblapack) + (setf *blapack-libs-loaded* t)) diff --git a/src/extensions/lapack/package.lisp b/src/extensions/lapack/package.lisp new file mode 100644 index 00000000..1314f315 --- /dev/null +++ b/src/extensions/lapack/package.lisp @@ -0,0 +1,4 @@ +(defpackage #:magicl.lapack-cffi + (:use) + #-package-local-nicknames + (:nicknames #:lapack)) diff --git a/src/load-libs.lisp b/src/load-libs.lisp index e2da5997..4ddfebab 100644 --- a/src/load-libs.lisp +++ b/src/load-libs.lisp @@ -2,91 +2,4 @@ ;;; This command is useful for inspecting shared libraries: nm -jgU -(cffi:define-foreign-library libblas - #+:magicl.use-accelerate - (:darwin "libBLAS.dylib" :search-path #P"/System/Library/Frameworks/Accelerate.framework/Frameworks/vecLib.framework/Versions/A/") - #-:magicl.use-accelerate - (:darwin (:or "/usr/local/opt/lapack/lib/libblas.dylib" "libblas.dylib" )) - #+:magicl.use-mkl - (:unix "libmkl_rt.so") - #-:magicl.use-mkl - (:unix "libblas.so") - (t (:default "libblas"))) -(cffi:define-foreign-library liblapack - #+:magicl.use-accelerate - (:darwin "libLAPACK.dylib" :search-path #P"/System/Library/Frameworks/Accelerate.framework/Frameworks/vecLib.framework/Versions/A/") - ;; If the user has done so, it is likely this is the location where - ;; Homebrew installed LAPACK. Prefer it over the system LAPACK - ;; because it's more complete. (macOS-provided LAPACK doesn't have a - ;; lot of the more obscure subroutines.) - #-:magicl.use-accelerate - (:darwin (:or "/usr/local/opt/lapack/lib/liblapack.dylib" "liblapack.dylib")) - #+:magicl.use-mkl - (:unix "libmkl_rt.so") - #-:magicl.use-mkl - (:unix "liblapack.so") - (t (:default "liblapack"))) - -(defvar *cffi-libraries* '(libblas liblapack)) - -(defun foreign-symbol-available-p (name library) - "Check that NAME is available from the libarary LIBRARY." - (check-type name string) - (check-type library symbol) - (let ((found (cffi:foreign-symbol-pointer name :library library))) - (and found - (not (cffi:null-pointer-p found)) - t))) - -(defun print-availability-report (&key (stream *standard-output*) - (show-available t) - (show-unavailable t) - search) - (check-type search (or null string)) - (check-type stream stream) - ;; Print header - (format stream "~&~7T~ - ~T~A~ - ~0,32T~A~%" - "Fortran Function" - "Lisp Function") - (write-line #.(make-string 72 :initial-element #\-) stream) - (terpri stream) - - ;; Print symbol information - (dolist (lib *cffi-libraries*) - (let ((symbols (sort (copy-seq (getf (symbol-plist lib) ':magicl)) - #'string< - :key #'first))) - (unless (null symbols) - (format stream "Library ~A: ~A~%" - (symbol-name lib) - (cffi:foreign-library-pathname lib)) - - (loop :for (real-name mangled-name raw-symbol external-symbol) :in symbols :do - (let ((available (foreign-symbol-available-p mangled-name lib))) - (when (and - ;; search query - (or (null search) - (search search real-name :test #'char-equal) - (search search mangled-name :test #'char-equal)) - ;; availability filter - (or (and show-available available) - (and show-unavailable (not available)))) - (format stream "~4T[~:[ ~;x~]]~ - ~T~A~ - ~0,32T~S~%" - available - real-name - external-symbol)))) - (terpri stream))))) - -;;;;;;;;;;;;;;;;;;;;;;;;; Load the Libraies ;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defvar *blapack-libs-loaded* nil) - -(unless *blapack-libs-loaded* - (cffi:load-foreign-library 'libblas) - (cffi:load-foreign-library 'liblapack) - (setf *blapack-libs-loaded* t)) diff --git a/src/packages.lisp b/src/packages.lisp index f7a2227d..672ba763 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -1,41 +1,3 @@ -(defpackage #:magicl.foreign-libraries - (:use #:common-lisp) - (:export #:libgfortran - #:libblas - #:liblapack - #:libexpokit - #:foreign-symbol-available-p - #:print-availability-report)) - -(defpackage #:magicl.cffi-types - (:use #:common-lisp - #:cffi) - (:export #+sbcl #:array-pointer ; FUNCTION - #:with-array-pointers ; MACRO - #:complex-single-float - #:complex-double-float - #:fortran-int - #:fortran-float - #:fortran-double - #:fortran-complex-float - #:fortran-complex-double - #:fortran-logical)) - -(defpackage #:magicl.blas-cffi - (:use) - #-package-local-nicknames - (:nicknames #:blas)) - -(defpackage #:magicl.lapack-cffi - (:use) - #-package-local-nicknames - (:nicknames #:lapack)) - -(defpackage #:magicl.expokit-cffi - (:use) - #-package-local-nicknames - (:nicknames #:expokit)) - (defpackage #:magicl (:use #:common-lisp #:cffi diff --git a/transcendental/load-libs.lisp b/transcendental/load-libs.lisp index 43c54dd3..58028a8c 100644 --- a/transcendental/load-libs.lisp +++ b/transcendental/load-libs.lisp @@ -18,7 +18,7 @@ (t (:default "expokit"))) -(push 'libexpokit magicl.foreign-libraries::*cffi-libraries*) +(push 'libexpokit magicl.foreign-libraries::*foreign-libraries*) (defvar *expokit-libs-loaded* nil) diff --git a/transcendental/package.lisp b/transcendental/package.lisp index 89052da4..9df7043b 100644 --- a/transcendental/package.lisp +++ b/transcendental/package.lisp @@ -2,15 +2,6 @@ ;;;; ;;;; Author: Robert Smith -(defpackage #:magicl-transcendental.foreign-libraries - (:use #:common-lisp) - (:export #:libexpokit)) - -(defpackage #:magicl.expokit-cffi - (:use)) - -(defpackage #:magicl-transcendental - (:use #:common-lisp - #:cffi) - (:export #:expm #:logm)) +;;; DELETE FILE +(error "DELETE") From 6a6733a8ae1e1151d4e47c2f9f52c7ca0e599363 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 17:03:29 -0800 Subject: [PATCH 02/46] isolate MAGICL-TRANSCENDENTAL and expokit, add EXPM/LOGM to MAGICL --- magicl.asd | 21 +++++++++------------ src/high-level/matrix.lisp | 14 ++++++++++++++ src/packages.lisp | 5 +++-- transcendental/transcendental.lisp | 11 +---------- 4 files changed, 27 insertions(+), 24 deletions(-) diff --git a/magicl.asd b/magicl.asd index 63ff5acd..21d00308 100755 --- a/magicl.asd +++ b/magicl.asd @@ -18,17 +18,17 @@ ;; temporary #:magicl/ext-blas - #:magicl/ext-lapack - #:magicl/ext-expokit) + #:magicl/ext-lapack) :in-order-to ((asdf:test-op (asdf:test-op #:magicl-tests))) :around-compile (lambda (compile) (let (#+sbcl (sb-ext:*derive-function-types* t)) (funcall compile))) + :pathname "src/" :serial t :components - ((:file "src/packages") - (:file "src/load-libs") - (:module "src/high-level" + ((:file "packages") + (:file "load-libs") + (:module "high-level" :serial t :components ((:file "util") (:file "shape") @@ -48,10 +48,7 @@ (:file "constructors") (:file "specialize-constructor") (:file "polynomial-solver"))) - (:module "transcendental" - :components ((:file "transcendental")) - ) - (:file "src/magicl"))) + (:file "magicl"))) ;;; Extension common code @@ -147,10 +144,11 @@ (asdf:defsystem #:magicl/ext-expokit - :description "Expokit for MAGICL" + :description "Expokit for MAGICL." :depends-on (#:alexandria #:cffi #:cffi-libffi + #:magicl #:magicl/ext #:magicl/ext-blas #:magicl/ext-lapack @@ -162,6 +160,5 @@ (:module "transcendental" :components ((f->so "expokit") (:file "load-libs") - ;;(:file "transcendental") - )) + (:file "transcendental"))) (:file "src/bindings/expokit-cffi"))) diff --git a/src/high-level/matrix.lisp b/src/high-level/matrix.lisp index 81bafd3b..163098ed 100644 --- a/src/high-level/matrix.lisp +++ b/src/high-level/matrix.lisp @@ -555,3 +555,17 @@ NOTE: If MATRIX is not square, this will compute the reduced LQ factoriation.") (:method ((matrix matrix)) (declare (ignore matrix)) (error "LQ is not defined for the generic matrix type."))) + +(defgeneric expm (matrix) + (:documentation "Computes the exponential of a square matrix M.")) + +(defgeneric logm (matrix) + (:documentation "Finds the matrix logarithm of a given square matrix M assumed to be diagonalizable, with nonzero eigenvalues.") + (:method ((matrix matrix)) + (multiple-value-bind (vals vects) (magicl:eig m) + (let ((new-log-diag + (let ((log-vals (mapcar #'log vals))) + (magicl:from-diag log-vals)))) + (magicl:@ vects + new-log-diag + (magicl:inv vects)))))) diff --git a/src/packages.lisp b/src/packages.lisp index 672ba763..c9bb8759 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -4,8 +4,7 @@ #:abstract-classes) #+package-local-nicknames (:local-nicknames (#:blas #:magicl.blas-cffi) - (#:lapack #:magicl.lapack-cffi) - (#:expokit #:magicl.expokit-cffi)) + (#:lapack #:magicl.lapack-cffi)) (:import-from #:magicl.foreign-libraries #:print-availability-report) (:shadow #:vector @@ -123,6 +122,8 @@ #:qr #:rq #:lq + #:expm + #:logm #:polynomial #:make-polynomial diff --git a/transcendental/transcendental.lisp b/transcendental/transcendental.lisp index 6fd4b3f0..6ca6232e 100644 --- a/transcendental/transcendental.lisp +++ b/transcendental/transcendental.lisp @@ -4,7 +4,7 @@ (in-package #:magicl-transcendental) -(defun expm (m) +(defmethod magicl:expm ((m magicl:matrix/complex-double-float)) "Finds the exponential of a square matrix M." (let ((ideg 6) (rows (magicl:nrows m)) @@ -45,12 +45,3 @@ (row-major-aref wsp (+ i (1- iexph))))) (values (magicl:from-array exph (list rows rows) :input-layout :column-major))))))) -(defun logm (m) - "Finds the matrix logarithm of a given square matrix M assumed to be diagonalizable, with nonzero eigenvalues" - (multiple-value-bind (vals vects) (magicl:eig m) - (let ((new-log-diag - (let ((log-vals (mapcar #'log vals))) - (magicl:from-diag log-vals)))) - (magicl:@ vects - new-log-diag - (magicl:inv vects))))) From 3838b024ad1f2f7d0de987d3940c1951187df493 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 17:21:40 -0800 Subject: [PATCH 03/46] completely contain expokit as an extension --- .gitignore | 4 +- .../LICENSE-expokit.txt | 0 {transcendental => expokit}/expokit.f | 0 magicl-transcendental.asd | 61 ------------------- magicl.asd | 14 ++--- .../extensions/expokit/expm.lisp | 0 .../extensions/expokit}/load-libs.lisp | 8 +-- src/extensions/expokit/package.lisp | 2 +- transcendental/package.lisp | 7 --- 9 files changed, 12 insertions(+), 84 deletions(-) rename LICENSE-expokit.txt => expokit/LICENSE-expokit.txt (100%) rename {transcendental => expokit}/expokit.f (100%) delete mode 100644 magicl-transcendental.asd rename transcendental/transcendental.lisp => src/extensions/expokit/expm.lisp (100%) rename {transcendental => src/extensions/expokit}/load-libs.lisp (60%) delete mode 100644 transcendental/package.lisp diff --git a/.gitignore b/.gitignore index 8fdd00a2..31bb7e0c 100644 --- a/.gitignore +++ b/.gitignore @@ -1,2 +1,2 @@ -transcendental/libexpokit.dylib -transcendental/libexpokit.so +**/*.dylib +**/*.so diff --git a/LICENSE-expokit.txt b/expokit/LICENSE-expokit.txt similarity index 100% rename from LICENSE-expokit.txt rename to expokit/LICENSE-expokit.txt diff --git a/transcendental/expokit.f b/expokit/expokit.f similarity index 100% rename from transcendental/expokit.f rename to expokit/expokit.f diff --git a/magicl-transcendental.asd b/magicl-transcendental.asd deleted file mode 100644 index 653904de..00000000 --- a/magicl-transcendental.asd +++ /dev/null @@ -1,61 +0,0 @@ -;;;; magicl-transcendental.asd -;;;; -;;;; Author: Robert Smith - -;;; Adapted from commonqt's qt.asd -(defclass f->so (asdf:source-file) - () - (:default-initargs - :type "f")) - -(defmethod output-files ((operation compile-op) (component f->so)) - (values (list (make-pathname :name "libexpokit" - :type #-darwin "so" #+darwin "dylib" - :defaults (component-pathname component))) - t)) - -(defmethod perform ((operation load-op) (component f->so)) - t) - -(defmethod perform ((operation compile-op) (component f->so)) - (flet ((nn (x) (uiop:native-namestring x))) - (let* ((fortran-file (component-pathname component)) - (object-file (make-pathname :type "o" :defaults fortran-file)) - (shared-object (make-pathname :type #+darwin "dylib" #-darwin "so" - :name "libexpokit" - :defaults fortran-file))) - (uiop:run-program - (list "gfortran" "-fPIC" "-std=legacy" - "-c" - (nn fortran-file) - "-o" - (nn object-file))) - (uiop:run-program - (list "gfortran" #+darwin "-dynamiclib" #-darwin "-shared" - "-o" (nn shared-object) - (nn object-file) - #+darwin "-lblas" - #+darwin "-llapack")) - (delete-file object-file)))) - - -(asdf:defsystem #:magicl-transcendental - :license "BSD 3-Clause (See LICENSE.txt)" - :maintainer "Rigetti Computing" - :author "Rigetti Computing" - :description "Transcendental functionality for MAGICL" - :version (:read-file-form "VERSION.txt") - :depends-on (#:alexandria - #:cffi - #:cffi-libffi - #:magicl) - :in-order-to ((asdf:test-op (asdf:test-op #:magicl-tests))) - :serial t - :components - ((:module "transcendental" - :serial t - :components ((f->so "expokit") - (:file "package") - (:file "load-libs") - (:file "transcendental"))) - (:file "src/bindings/expokit-cffi"))) diff --git a/magicl.asd b/magicl.asd index 21d00308..21f6b3c2 100755 --- a/magicl.asd +++ b/magicl.asd @@ -155,10 +155,10 @@ ) :serial t :components - ((:module "src/extensions/expokit" - :components ((:file "package"))) - (:module "transcendental" - :components ((f->so "expokit") - (:file "load-libs") - (:file "transcendental"))) - (:file "src/bindings/expokit-cffi"))) + ((:module "expokit" + :components ((f->so "expokit"))) + (:module "src/extensions/expokit" + :components ((:file "package") + (:file "load-libs"))) + (:file "src/bindings/expokit-cffi") + (:file "src/extensions/expokit/expm"))) diff --git a/transcendental/transcendental.lisp b/src/extensions/expokit/expm.lisp similarity index 100% rename from transcendental/transcendental.lisp rename to src/extensions/expokit/expm.lisp diff --git a/transcendental/load-libs.lisp b/src/extensions/expokit/load-libs.lisp similarity index 60% rename from transcendental/load-libs.lisp rename to src/extensions/expokit/load-libs.lisp index 58028a8c..8cc42fd0 100644 --- a/transcendental/load-libs.lisp +++ b/src/extensions/expokit/load-libs.lisp @@ -5,14 +5,10 @@ (in-package #:magicl-transcendental.foreign-libraries) (cffi:define-foreign-library libexpokit - (:darwin (:or #.(merge-pathnames "libexpokit.dylib" - (or *compile-file-truename* - *load-truename*)) + (:darwin (:or #.(asdf:system-relative-pathname '#:magicl "expokit/libexpokit.dylib") "libexpokit.dylib" "expokit.dylib")) - (:unix (:or #.(merge-pathnames "libexpokit.so" - (or *compile-file-truename* - *load-truename*)) + (:unix (:or #.(asdf:system-relative-pathname '#:magicl "expokit/libexpokit.so") "libexpokit.so" "expokit.so")) diff --git a/src/extensions/expokit/package.lisp b/src/extensions/expokit/package.lisp index 7e7e7632..acde4e72 100644 --- a/src/extensions/expokit/package.lisp +++ b/src/extensions/expokit/package.lisp @@ -10,4 +10,4 @@ (defpackage #:magicl-transcendental (:use #:common-lisp #:cffi) - (:export #:expm #:logm)) + (:export)) diff --git a/transcendental/package.lisp b/transcendental/package.lisp deleted file mode 100644 index 9df7043b..00000000 --- a/transcendental/package.lisp +++ /dev/null @@ -1,7 +0,0 @@ -;;;; transcendental/package.lisp -;;;; -;;;; Author: Robert Smith - -;;; DELETE FILE - -(error "DELETE") From fa9331bd3f7bbb385f5806e66c5b75ed1f8b6994 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 17:26:16 -0800 Subject: [PATCH 04/46] organize file structure, delete stale files --- magicl.asd | 10 ++++------ src/{ => extensions/common}/cffi-types.lisp | 0 src/{ => extensions/common}/with-array-pointers.lisp | 0 src/load-libs.lisp | 5 ----- 4 files changed, 4 insertions(+), 11 deletions(-) rename src/{ => extensions/common}/cffi-types.lisp (100%) rename src/{ => extensions/common}/with-array-pointers.lisp (100%) delete mode 100644 src/load-libs.lisp diff --git a/magicl.asd b/magicl.asd index 21f6b3c2..895daae7 100755 --- a/magicl.asd +++ b/magicl.asd @@ -27,7 +27,6 @@ :serial t :components ((:file "packages") - (:file "load-libs") (:module "high-level" :serial t :components ((:file "util") @@ -60,9 +59,9 @@ :components ((:module "extensions/common" :components ((:file "package") - (:file "library-tracking"))) - (:file "with-array-pointers") - (:file "cffi-types"))) + (:file "library-tracking") + (:file "with-array-pointers") + (:file "cffi-types"))))) ;;; BLAS @@ -151,8 +150,7 @@ #:magicl #:magicl/ext #:magicl/ext-blas - #:magicl/ext-lapack - ) + #:magicl/ext-lapack) :serial t :components ((:module "expokit" diff --git a/src/cffi-types.lisp b/src/extensions/common/cffi-types.lisp similarity index 100% rename from src/cffi-types.lisp rename to src/extensions/common/cffi-types.lisp diff --git a/src/with-array-pointers.lisp b/src/extensions/common/with-array-pointers.lisp similarity index 100% rename from src/with-array-pointers.lisp rename to src/extensions/common/with-array-pointers.lisp diff --git a/src/load-libs.lisp b/src/load-libs.lisp deleted file mode 100644 index 4ddfebab..00000000 --- a/src/load-libs.lisp +++ /dev/null @@ -1,5 +0,0 @@ -(in-package #:magicl.foreign-libraries) - -;;; This command is useful for inspecting shared libraries: nm -jgU - - From 16525db0bcd8d4f0dff7a1c10d1a2ebd654a01a2 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 18:16:21 -0800 Subject: [PATCH 05/46] separate out lapack and blas --- magicl.asd | 46 ++-- .../lapack}/lapack-bindings.lisp | 2 +- src/extensions/lapack/lapack-csd.lisp | 210 ++++++++++++++++++ .../lapack}/lapack-generics.lisp | 6 +- .../lapack}/lapack-templates.lisp | 76 +++---- src/extensions/lapack/package.lisp | 28 +++ src/high-level/matrix.lisp | 50 +---- .../types/complex-double-float.lisp | 166 -------------- src/packages.lisp | 26 +-- 9 files changed, 315 insertions(+), 295 deletions(-) rename src/{high-level => extensions/lapack}/lapack-bindings.lisp (99%) create mode 100644 src/extensions/lapack/lapack-csd.lisp rename src/{high-level => extensions/lapack}/lapack-generics.lisp (87%) rename src/{high-level => extensions/lapack}/lapack-templates.lisp (92%) diff --git a/magicl.asd b/magicl.asd index 895daae7..07c6f69d 100755 --- a/magicl.asd +++ b/magicl.asd @@ -9,16 +9,11 @@ :author "Rigetti Computing" :version (:read-file-form "VERSION.txt") :depends-on (#:alexandria - #:cffi - #:cffi-libffi #:abstract-classes #:policy-cond #:magicl/ext ; Allow extensions - - ;; temporary - #:magicl/ext-blas - #:magicl/ext-lapack) + ) :in-order-to ((asdf:test-op (asdf:test-op #:magicl-tests))) :around-compile (lambda (compile) (let (#+sbcl (sb-ext:*derive-function-types* t)) @@ -36,14 +31,11 @@ (:file "tensor") (:file "matrix") (:file "vector") - (:file "lapack-generics") (:file "types/single-float") (:file "types/double-float") (:file "types/complex-single-float") (:file "types/complex-double-float") (:file "types/int32") - (:file "lapack-templates") - (:file "lapack-bindings") (:file "constructors") (:file "specialize-constructor") (:file "polynomial-solver"))) @@ -53,15 +45,15 @@ (asdf:defsystem #:magicl/ext :description "Common code for extending MAGICL with foreign libraries." - :depends-on (#:cffi) + :depends-on (#:cffi + #:cffi-libffi) :serial t - :pathname "src/" + :pathname "src/extensions/common" :components - ((:module "extensions/common" - :components ((:file "package") - (:file "library-tracking") - (:file "with-array-pointers") - (:file "cffi-types"))))) + ((:file "package") + (:file "library-tracking") + (:file "with-array-pointers") + (:file "cffi-types"))) ;;; BLAS @@ -72,9 +64,8 @@ :serial t :pathname "src/" :components - ((:module "extensions/blas" - :components ((:file "package") - (:file "load-libs"))) + ((:file "extensions/blas/package") + (:file "extensions/blas/load-libs") (:module "bindings" :components ((:file "blas-cffi"))))) @@ -83,15 +74,16 @@ (asdf:defsystem #:magicl/ext-lapack :description "Native LAPACK routines in MAGICL." - :depends-on (#:magicl/ext + :depends-on (#:magicl + #:magicl/ext #:magicl/ext-blas - #:cffi) + #:cffi + #:policy-cond) :serial t :pathname "src/" :components - ((:module "extensions/lapack" - :components ((:file "package") - (:file "load-libs"))) + ((:file "extensions/lapack/package") + (:file "extensions/lapack/load-libs") (:module "bindings" :components ((:file "lapack00-cffi") (:file "lapack01-cffi") @@ -100,7 +92,11 @@ (:file "lapack04-cffi") (:file "lapack05-cffi") (:file "lapack06-cffi") - (:file "lapack07-cffi"))))) + (:file "lapack07-cffi"))) + (:module "extensions/lapack" + :components ((:file "lapack-generics") + (:file "lapack-templates") + (:file "lapack-bindings"))))) ;;; EXPOKIT diff --git a/src/high-level/lapack-bindings.lisp b/src/extensions/lapack/lapack-bindings.lisp similarity index 99% rename from src/high-level/lapack-bindings.lisp rename to src/extensions/lapack/lapack-bindings.lisp index d620ac8d..0d5862c1 100644 --- a/src/high-level/lapack-bindings.lisp +++ b/src/extensions/lapack/lapack-bindings.lisp @@ -2,7 +2,7 @@ ;;;; ;;;; Author: Cole Scott -(in-package #:magicl) +(in-package #:magicl-lapack) (macrolet ((def-all-lapack () "Define the lapack bindings for all lapack types" diff --git a/src/extensions/lapack/lapack-csd.lisp b/src/extensions/lapack/lapack-csd.lisp new file mode 100644 index 00000000..d81a10d1 --- /dev/null +++ b/src/extensions/lapack/lapack-csd.lisp @@ -0,0 +1,210 @@ +(in-package #:magicl-lapack) + +;; ZUNCSD is broken in magicl lapack bindings (Issue #72) +(COMMON-LISP:DEFUN %ZUNCSD-XPOINTERS + (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12 + LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T + V2T LDV2T WORK LWORK RWORK LRWORK IWORK INFO) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF71665 ':INT32) (P-REF71666 ':INT32) + (Q-REF71667 ':INT32) (LDX11-REF71669 ':INT32) + (LDX12-REF71671 ':INT32) (LDX21-REF71673 ':INT32) + (LDX22-REF71675 ':INT32) (LDU1-REF71678 ':INT32) + (LDU2-REF71680 ':INT32) (LDV1T-REF71682 ':INT32) + (LDV2T-REF71684 ':INT32) (LWORK-REF71686 ':INT32) + (LRWORK-REF71688 ':INT32) (INFO-REF71690 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF71665 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF71666 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF71667 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF71669 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF71671 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF71673 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF71675 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF71678 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF71680 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF71682 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF71684 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF71686 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF71688 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF71690 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF71676 THETA) + (U1-REF71677 U1) (U2-REF71679 U2) + (V1T-REF71681 V1T) + (V2T-REF71683 V2T) + (WORK-REF71685 WORK) + (RWORK-REF71687 RWORK) + (IWORK-REF71689 IWORK)) + (MAGICL.LAPACK-CFFI::%%ZUNCSD + JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF71665 P-REF71666 + Q-REF71667 X11 LDX11-REF71669 X12 LDX12-REF71671 + X21 LDX21-REF71673 X22 LDX22-REF71675 THETA-REF71676 + U1-REF71677 LDU1-REF71678 U2-REF71679 LDU2-REF71680 V1T-REF71681 + LDV1T-REF71682 V2T-REF71683 LDV2T-REF71684 WORK-REF71685 LWORK-REF71686 + RWORK-REF71687 LRWORK-REF71688 IWORK-REF71689 INFO-REF71690)))) + +(defmethod csd-2x2-basic ((unitary-matrix-2x2 matrix/complex-double-float) p q) + "Returns the Cosine-Sine decomposition of an equipartitioned UNITARY-MATRIX-2x2. The values of P and Q are assumed to be equal to one and ignored. See the documentation of LAPACK-CSD for details about the returned values." + ;; This function is meant to be used within LAPACK-CSD in the base case + ;; where the unitary matrix is 2x2 (i.e., it is equivalent to a ZYZ + ;; decomposition). It computes the CS decomposition in Lisp faster (more + ;; than three times) and with less memory overhead (conses less than half + ;; as much) than the corresponding LAPACK wrapper. + (declare (values matrix/complex-double-float + matrix/complex-double-float + matrix/complex-double-float + matrix/complex-double-float + list) + (ignorable p q) + (optimize (speed 3) (safety 0) (debug 0) (space 0))) + + (let* ((data (storage unitary-matrix-2x2)) + (a1 (aref data 0)) + (a2 (aref data 1)) + (a3 (aref data 2)) + (a4 (aref data 3)) + + (c (abs a1)) + (u1 (cis (phase a1))) + (s (abs a2)) + (u2 (cis (phase a2)))) + + (declare (type (simple-array (complex double-float) (4)) data) + (type (double-float -1.0d0 1.0d0) c s) + (type (complex double-float) u1 u2) + (dynamic-extent c s u1 u2)) + + (let ((v2h (conjugate (/ 1.0d0 (- (* c (conjugate u2) a4) + (* s (conjugate u1) a3))))) + (mu1 (empty '(1 1))) + (mu2 (empty '(1 1))) + (mv1h (empty '(1 1))) + (mv2h (empty '(1 1)))) + + (macrolet ((matrix-1x1-data (matrix) + `(the (simple-array (complex double-float) (1)) (storage ,matrix)))) + + (setf (aref (matrix-1x1-data mu1) 0) u1 + (aref (matrix-1x1-data mu2) 0) u2 + (aref (matrix-1x1-data mv1h) 0) #C(1.0d0 0.0d0) + (aref (matrix-1x1-data mv2h) 0) v2h)) + + (values mu1 mu2 mv1h mv2h (list (atan s c)))))) + +(defmethod lapack-csd ((x matrix/complex-double-float) p q) + (let* ((m (nrows x)) + (layout (layout x)) + (xcopy (deep-copy-tensor x))) + (assert-square-matrix x) + (check-type p integer) + (check-type q integer) + (assert (<= 1 p (1- m)) () "P = ~D is out of range" p) + (assert (<= 1 q (1- m)) () "Q = ~D is out of range" q) + (let ((jobu1 "Y") + (jobu2 "Y") + (jobv1t "Y") + (jobv2t "Y") + (trans + (if (eq :row-major layout) + "T" + "F")) + (signs "D") + ;; leading dimension is M because full MATRIX array will be used + (ldx11 m) + (ldx12 m) + (ldx21 m) + (ldx22 m) + (r (min p (- m p) q (- m q))) + (ldu1 p) + (ldu2 (- m p)) + (ldv1t q) + (ldv2t (- m q)) + (lwork -1) + (work (make-array 1 :element-type '(complex double-float))) + (lrwork -1) + (rwork (make-array 1 :element-type 'double-float)) + (info 0)) + ;; rather than slice up matrix, use full array with pointers to head of blocks + ;; + ;; WARNING: THIS ABYSS IS WHERE DRAGONS LIVE. HERE THE GARBAGE + ;; COLLECTOR MUST BE TAMED SO WE DON'T SCREW UP THE POINTERS + ;; INTO THE LISP HEAP. + ;; + ;; HOURS WASTED HERE: 10 + (magicl.cffi-types:with-array-pointers ((xcopy-ptr (storage xcopy))) + (let ((x11 xcopy-ptr) + (x12 (ptr-ref xcopy xcopy-ptr 0 q)) + (x21 (ptr-ref xcopy xcopy-ptr p 0)) + (x22 (ptr-ref xcopy xcopy-ptr p q)) + (theta (make-array r + :element-type 'double-float)) + (u1 (make-array (* ldu1 p) + :element-type '(complex double-float))) + (u2 (make-array (* ldu2 (- m p)) + :element-type '(complex double-float))) + (v1t (make-array (* ldv1t q) + :element-type '(complex double-float))) + (v2t (make-array (* ldv2t (- m q)) + :element-type '(complex double-float))) + (iwork (make-array (- m r) + :element-type '(signed-byte 32)))) + ;; run it once as a workspace query + (%ZUNCSD-XPOINTERS jobu1 jobu2 jobv1t jobv2t + trans signs m p q + x11 ldx11 x12 ldx12 x21 ldx21 x22 ldx22 + theta u1 ldu1 u2 ldu2 v1t ldv1t v2t ldv2t + work lwork rwork lrwork iwork info) + (setf lwork (truncate (realpart (row-major-aref work 0)))) + (setf work (make-array (max 1 lwork) :element-type '(complex double-float))) + (setf lrwork (truncate (row-major-aref rwork 0))) + (setf rwork (make-array (max 1 lrwork) :element-type 'double-float)) + ;; run it again with optimal workspace size + (%ZUNCSD-XPOINTERS jobu1 jobu2 jobv1t jobv2t + trans signs m p q + x11 ldx11 x12 ldx12 x21 ldx21 x22 ldx22 + theta u1 ldu1 u2 ldu2 v1t ldv1t v2t ldv2t + work lwork rwork lrwork iwork info) + (values (from-array u1 (list p p) :input-layout layout) + (from-array u2 (list (- m p) (- m p)) :input-layout layout) + (from-array v1t (list q q) :input-layout layout) + (from-array v2t (list (- m q) (- m q)) :input-layout layout) + (coerce theta 'list))))))) + +(defmethod magicl:csd ((matrix matrix-complex-double-float) p q) + (labels ((csd-from-blocks (u1 u2 v1t v2t theta) + "Calculates the matrices U, SIGMA, and VT of the CSD of a matrix from its intermediate representation, as calculated from LAPACK-CSD." + (let ((p (nrows u1)) + (q (nrows v1t)) + (m (+ (nrows u1) (nrows u2))) + (r (length theta))) + (let ((u (direct-sum u1 u2)) + (sigma (const 0 (list m m) :type (element-type matrix))) + (vt (direct-sum v1t v2t))) + (let ((diag11 (min p q)) + (diag12 (min p (- m q))) + (diag21 (min (- m p) q)) + (diag22 (min (- m p) (- m q)))) + (let ((iden11 (- diag11 r)) + (iden12 (- diag12 r)) + (iden21 (- diag21 r)) + (iden22 (- diag22 r))) + ;; Construct sigma from theta + (loop :for i :from 0 :to (1- iden11) + do (setf (tref sigma i i) 1)) + (loop :for i :from iden11 :to (1- diag11) + do (setf (tref sigma i i) (cos (nth (- i iden11) theta)))) + (loop :for i :from 0 :to (1- iden12) + do (setf (tref sigma (- p 1 i) (- m 1 i)) -1)) + (loop :for i :from iden12 :to (1- diag12) + do (setf (tref sigma (- p 1 i) (- m 1 i)) + (- (sin (nth (- r 1 (- i iden12)) theta))))) + (loop :for i :from 0 :to (1- iden21) + do (setf (tref sigma (- m 1 i) (- q 1 i)) 1)) + (loop :for i :from iden21 :to (1- diag21) + do (setf (tref sigma (- m 1 i) (- q 1 i)) + (sin (nth (- r 1 (- i iden21)) theta)))) + (loop :for i :from 0 :to (1- iden22) + do (setf (tref sigma (+ p i) (+ q i)) 1)) + (loop :for i :from iden22 :to (1- diag22) + do (setf (tref sigma (+ p i) (+ q i)) (cos (nth (- i iden22) theta)))))) + (values u sigma vt))))) + (multiple-value-bind (u1 u2 v1t v2t theta) (lapack-csd matrix p q) + (csd-from-blocks u1 u2 v1t v2t theta)))) diff --git a/src/high-level/lapack-generics.lisp b/src/extensions/lapack/lapack-generics.lisp similarity index 87% rename from src/high-level/lapack-generics.lisp rename to src/extensions/lapack/lapack-generics.lisp index 96152ea9..f91f199b 100644 --- a/src/high-level/lapack-generics.lisp +++ b/src/extensions/lapack/lapack-generics.lisp @@ -2,11 +2,7 @@ ;;;; ;;;; Author: Cole Scott -(in-package #:magicl) - -(defgeneric mult (a b &key target alpha beta transa transb) - (:documentation "Multiply a by b, storing in target or creating a new tensor if target is not specified. -Target cannot be the same as a or b.")) +(in-package #:magicl-lapack) (defgeneric lapack-eig (matrix)) diff --git a/src/high-level/lapack-templates.lisp b/src/extensions/lapack/lapack-templates.lisp similarity index 92% rename from src/high-level/lapack-templates.lisp rename to src/extensions/lapack/lapack-templates.lisp index 9f3dbc41..cd58600c 100644 --- a/src/high-level/lapack-templates.lisp +++ b/src/extensions/lapack/lapack-templates.lisp @@ -7,11 +7,11 @@ ;;; writing the same method four times but results in ;;; less-than-perfect use of macros. -(in-package #:magicl) +(in-package #:magicl-lapack) (defun generate-lapack-mult-for-type (matrix-class vector-class type matrix-matrix-function matrix-vector-function) `(progn - (defmethod mult ((a ,matrix-class) (b ,matrix-class) &key target (alpha ,(coerce 1 type)) (beta ,(coerce 0 type)) (transa :n) (transb :n)) + (defmethod magicl::mult ((a ,matrix-class) (b ,matrix-class) &key target (alpha ,(coerce 1 type)) (beta ,(coerce 0 type)) (transa :n) (transb :n)) (policy-cond:with-expectations (> speed safety) ((type (member nil :n :t :c) transa) (type (member nil :n :t :c) transb)) @@ -52,15 +52,15 @@ n k alpha - (storage a) + (magicl::storage a) (if (eql :n ta) m k) - (storage b) + (magicl::storage b) (if (eql :n tb) k n) beta - (storage target) + (magicl::storage target) m) target))))) - (defmethod mult ((a ,matrix-class) (x ,vector-class) &key target (alpha ,(coerce 1 type)) (beta ,(coerce 0 type)) (transa :n) transb) + (defmethod magicl::mult ((a ,matrix-class) (x ,vector-class) &key target (alpha ,(coerce 1 type)) (beta ,(coerce 0 type)) (transa :n) transb) (policy-cond:with-expectations (> speed safety) ((type (member nil :n :t :c) transa) (assertion (null transb))) @@ -88,12 +88,12 @@ (if (eql :column-major (layout a)) (nrows a) (ncols a)) (if (eql :column-major (layout a)) (ncols a) (nrows a)) alpha - (storage a) + (magicl::storage a) (if (eql :column-major (layout a)) (nrows a) (ncols a)) - (storage x) + (magicl::storage x) 1 ;; NOTE: This corresponds to the stride of X beta - (storage target) + (magicl::storage target) 1 ;; NOTE: THis corresponds to the stride of TARGET ) target))))))) @@ -101,17 +101,17 @@ (defun generate-lapack-lu-for-type (class type lu-function) (declare (ignore type)) `(progn - (defmethod lu ((m ,class)) + (defmethod magicl:lu ((m ,class)) (lapack-lu m)) (defmethod lapack-lu ((a ,class)) (let* ((a-tensor (deep-copy-tensor a)) - (a (storage a-tensor)) + (a (magicl::storage a-tensor)) (m (nrows a-tensor)) (n (ncols a-tensor)) (lda m) (ipiv-tensor (empty (list (max m n)) :type '(signed-byte 32))) - (ipiv (storage ipiv-tensor)) + (ipiv (magicl::storage ipiv-tensor)) (info 0)) (when (eql :row-major (layout a-tensor)) (transpose! a-tensor)) (,lu-function @@ -125,18 +125,18 @@ (defun generate-lapack-inv-for-type (class type lu-function inv-function) `(progn - (defmethod inv ((m ,class)) + (defmethod magicl:inv ((m ,class)) (lapack-inv m)) (defmethod lapack-inv ((a ,class)) (let ((a-tensor (deep-copy-tensor a))) (when (eql :row-major (layout a-tensor)) (transpose! a-tensor)) - (let* ((a (storage a-tensor)) + (let* ((a (magicl::storage a-tensor)) (m (nrows a-tensor)) (n (ncols a-tensor)) (lda m) (ipiv-tensor (empty (list (max m n)) :type '(signed-byte 32))) - (ipiv (storage ipiv-tensor)) + (ipiv (magicl::storage ipiv-tensor)) (info 0)) (,lu-function m @@ -182,7 +182,7 @@ (defun generate-lapack-svd-for-type (class type svd-function &optional real-type) `(progn - (defmethod svd ((m ,class) &key reduced) + (defmethod magicl:svd ((m ,class) &key reduced) (lapack-svd m :reduced reduced)) (defmethod lapack-svd ((m ,class) &key reduced) @@ -191,7 +191,7 @@ (jobvt (if reduced "S" "A")) (rows (nrows m)) (cols (ncols m)) - (a (alexandria:copy-array (storage (if (eql :row-major (layout m)) (transpose m) m)))) + (a (alexandria:copy-array (magicl::storage (if (eql :row-major (layout m)) (transpose m) m)))) (lwork -1) (info 0) (k (min rows cols)) @@ -217,7 +217,7 @@ work lwork ,@(when real-type `(rwork)) info) (let ((smat (make-array (* u-cols vt-rows) :element-type ',(or real-type type)))) (dotimes (i k) - (setf (aref smat (matrix-column-major-index i i u-cols vt-rows)) + (setf (aref smat (magicl::matrix-column-major-index i i u-cols vt-rows)) (aref s i))) (values (from-array u (list rows u-cols) :input-layout :column-major) (from-array smat (list u-cols vt-rows) :input-layout :column-major) @@ -226,7 +226,7 @@ ;; TODO: This returns only the real parts when with non-complex numbers. Should do something different? (defun generate-lapack-eig-for-type (class type eig-function &optional real-type) `(progn - (defmethod eig ((m ,class)) + (defmethod magicl:eig ((m ,class)) (lapack-eig m)) (defmethod lapack-eig ((m ,class)) @@ -238,7 +238,7 @@ (when (eql :row-major (layout m)) (transpose! a-tensor)) (let ((jobvl "N") (jobvr "V") - (a (storage a-tensor)) + (a (magicl::storage a-tensor)) ,@(if real-type `((w (make-array rows :element-type ',type))) `((wr (make-array rows :element-type ',type)) @@ -262,7 +262,7 @@ (defun generate-lapack-hermitian-eig-for-type (class type eig-function real-type) `(progn - (defmethod hermitian-eig ((m ,class)) + (defmethod magicl:hermitian-eig ((m ,class)) (lapack-hermitian-eig m)) (defmethod lapack-hermitian-eig ((m ,class)) @@ -275,7 +275,7 @@ (let ((jobz "V") (uplo "U") (n rows) - (a (storage a-tensor)) + (a (magicl::storage a-tensor)) (lda rows) (w (make-array rows :element-type ',real-type)) (work (make-array 1 :element-type ',type)) @@ -295,7 +295,7 @@ ql-function qr-function rq-function lq-function ql-q-function qr-q-function rq-q-function lq-q-function) `(progn - (defmethod qr ((m ,class)) + (defmethod magicl:qr ((m ,class)) (policy-cond:with-expectations (> speed safety) ;; Needed for LAPACK-QR to do its job. In principle DGEQRF ;; doesn't impose this, but the results are represented @@ -320,7 +320,7 @@ (setf (tref q i j) (- (tref q i j))))))) (values q r)))))) - (defmethod ql ((m ,class)) + (defmethod magicl:ql ((m ,class)) (policy-cond:with-expectations (> speed safety) ;; Similar to the assert for QR above. ((assertion (<= (ncols m) (nrows m)))) @@ -342,7 +342,7 @@ (setf (tref q i j) (- (tref q i j))))))) (values q l)))))) - (defmethod rq ((m ,class)) + (defmethod magicl:rq ((m ,class)) (policy-cond:with-expectations (> speed safety) ;; Similar to the assert for QR above. ((assertion (>= (ncols m) (nrows m)))) @@ -364,7 +364,7 @@ (setf (tref q i j) (- (tref q i j))))))) (values r q)))))) - (defmethod lq ((m ,class)) + (defmethod magicl:lq ((m ,class)) (policy-cond:with-expectations (> speed safety) ;; Similar to the assert for QR above. ((assertion (>= (ncols m) (nrows m)))) @@ -390,7 +390,7 @@ (let* ((rows (nrows m)) (cols (ncols m)) (a-tensor (deep-copy-tensor m)) - (a (storage a-tensor)) + (a (magicl::storage a-tensor)) (lwork -1) (info 0)) (when (eql :row-major (layout m)) @@ -413,7 +413,7 @@ (let* ((rows (nrows m)) (cols (ncols m)) (a-tensor (deep-copy-tensor m)) - (a (storage a-tensor)) + (a (magicl::storage a-tensor)) (lwork -1) (info 0)) (when (eql :row-major (layout m)) @@ -436,7 +436,7 @@ (let* ((rows (nrows m)) (cols (ncols m)) (a-tensor (deep-copy-tensor m)) - (a (storage a-tensor)) + (a (magicl::storage a-tensor)) (lwork -1) (info 0)) (when (eql :row-major (layout m)) @@ -459,7 +459,7 @@ (let* ((rows (nrows m)) (cols (ncols m)) (a-tensor (deep-copy-tensor m)) - (a (storage a-tensor)) + (a (magicl::storage a-tensor)) (lwork -1) (info 0)) (when (eql :row-major (layout m)) @@ -481,9 +481,9 @@ (defmethod lapack-qr-q ((m ,class) tau) (let ((m (nrows m)) (n (ncols m)) - (a (storage m)) + (a (magicl::storage m)) (k (size tau)) - (atau (storage tau)) + (atau (magicl::storage tau)) (lwork -1) (info 0)) ;; n replaced with rank (k) to fulfil req (m >= n > 0) @@ -500,9 +500,9 @@ (defmethod lapack-ql-q ((m ,class) tau) (let ((m (nrows m)) (n (ncols m)) - (a (storage m)) + (a (magicl::storage m)) (k (size tau)) - (atau (storage tau)) + (atau (magicl::storage tau)) (lwork -1) (info 0)) (let ((lda m) @@ -518,9 +518,9 @@ (defmethod lapack-rq-q ((m ,class) tau) (let ((m (nrows m)) (n (ncols m)) - (a (storage m)) + (a (magicl::storage m)) (k (size tau)) - (atau (storage tau)) + (atau (magicl::storage tau)) (lwork -1) (info 0)) (let ((lda m) @@ -536,9 +536,9 @@ (defmethod lapack-lq-q ((m ,class) tau) (let ((m (nrows m)) (n (ncols m)) - (a (storage m)) + (a (magicl::storage m)) (k (size tau)) - (atau (storage tau)) + (atau (magicl::storage tau)) (lwork -1) (info 0)) (let ((lda m) diff --git a/src/extensions/lapack/package.lisp b/src/extensions/lapack/package.lisp index 1314f315..63f49567 100644 --- a/src/extensions/lapack/package.lisp +++ b/src/extensions/lapack/package.lisp @@ -2,3 +2,31 @@ (:use) #-package-local-nicknames (:nicknames #:lapack)) + +(defpackage #:magicl-lapack + (:use #:cl #:magicl) + ;; XXX: This is kind of annoying... + (:shadowing-import-from #:magicl + #:vector + #:= + #:map + #:trace + #:every + #:some + #:notevery + #:notany) + (:export + #:lapack-eig + #:lapack-lu + #:lapack-csd + #:lapack-svd + #:lapack-ql + #:lapack-qr + #:lapack-rq + #:lapack-lq + #:lapack-ql-q + #:lapack-qr-q + #:lapack-rq-q + #:lapack-lq-q + #:lapack-csd)) + diff --git a/src/high-level/matrix.lisp b/src/high-level/matrix.lisp index 163098ed..c62680ef 100644 --- a/src/high-level/matrix.lisp +++ b/src/high-level/matrix.lisp @@ -288,6 +288,13 @@ ELEMENT-TYPE, CAST, COPY-TENSOR, DEEP-COPY-TENSOR, TREF, SETF TREF)" (list 0 index) (list (nrows m) (1+ index))))) +(defgeneric mult (a b &key target alpha beta transa transb) + (:documentation "Library users: consider using MAGICL:@ instead. + +Multiply a by b, storing in target or creating a new tensor if target is not specified. + +Target cannot be the same as a or b.")) + (defgeneric @ (matrix &rest matrices) (:documentation "Multiplication of matrices") (:method (matrix &rest matrices) @@ -472,45 +479,8 @@ If :SQUARE is T, then the result will be restricted to the lower leftmost square (defgeneric csd (matrix p q) (:documentation "Find the Cosine-Sine Decomposition of a matrix X given that it is to be partitioned with upper left block of dimension P-by-Q. Returns the CSD elements (VALUES U SIGMA VT) such that X=U*SIGMA*VT.") (:method ((matrix matrix) p q) - (labels ((csd-from-blocks (u1 u2 v1t v2t theta) - "Calculates the matrices U, SIGMA, and VT of the CSD of a matrix from its intermediate representation, as calculated from LAPACK-CSD." - (let ((p (nrows u1)) - (q (nrows v1t)) - (m (+ (nrows u1) (nrows u2))) - (r (length theta))) - (let ((u (direct-sum u1 u2)) - (sigma (const 0 (list m m) :type (element-type matrix))) - (vt (direct-sum v1t v2t))) - (let ((diag11 (min p q)) - (diag12 (min p (- m q))) - (diag21 (min (- m p) q)) - (diag22 (min (- m p) (- m q)))) - (let ((iden11 (- diag11 r)) - (iden12 (- diag12 r)) - (iden21 (- diag21 r)) - (iden22 (- diag22 r))) - ;; Construct sigma from theta - (loop :for i :from 0 :to (1- iden11) - do (setf (tref sigma i i) 1)) - (loop :for i :from iden11 :to (1- diag11) - do (setf (tref sigma i i) (cos (nth (- i iden11) theta)))) - (loop :for i :from 0 :to (1- iden12) - do (setf (tref sigma (- p 1 i) (- m 1 i)) -1)) - (loop :for i :from iden12 :to (1- diag12) - do (setf (tref sigma (- p 1 i) (- m 1 i)) - (- (sin (nth (- r 1 (- i iden12)) theta))))) - (loop :for i :from 0 :to (1- iden21) - do (setf (tref sigma (- m 1 i) (- q 1 i)) 1)) - (loop :for i :from iden21 :to (1- diag21) - do (setf (tref sigma (- m 1 i) (- q 1 i)) - (sin (nth (- r 1 (- i iden21)) theta)))) - (loop :for i :from 0 :to (1- iden22) - do (setf (tref sigma (+ p i) (+ q i)) 1)) - (loop :for i :from iden22 :to (1- diag22) - do (setf (tref sigma (+ p i) (+ q i)) (cos (nth (- i iden22) theta)))))) - (values u sigma vt))))) - (multiple-value-bind (u1 u2 v1t v2t theta) (lapack-csd matrix p q) - (csd-from-blocks u1 u2 v1t v2t theta))))) + (declare (ignore matrix p q)) + (error "CSD is not defined for the generic matrix type."))) (defgeneric inv (matrix) (:documentation "Get the inverse of the matrix") @@ -562,7 +532,7 @@ NOTE: If MATRIX is not square, this will compute the reduced LQ factoriation.") (defgeneric logm (matrix) (:documentation "Finds the matrix logarithm of a given square matrix M assumed to be diagonalizable, with nonzero eigenvalues.") (:method ((matrix matrix)) - (multiple-value-bind (vals vects) (magicl:eig m) + (multiple-value-bind (vals vects) (magicl:eig matrix) (let ((new-log-diag (let ((log-vals (mapcar #'log vals))) (magicl:from-diag log-vals)))) diff --git a/src/high-level/types/complex-double-float.lisp b/src/high-level/types/complex-double-float.lisp index ff632dec..7b059ef0 100644 --- a/src/high-level/types/complex-double-float.lisp +++ b/src/high-level/types/complex-double-float.lisp @@ -74,170 +74,4 @@ (return-from = nil)))) t) -;; ZUNCSD is broken in magicl lapack bindings (Issue #72) -(COMMON-LISP:DEFUN %ZUNCSD-XPOINTERS - (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12 - LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T - V2T LDV2T WORK LWORK RWORK LRWORK IWORK INFO) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF71665 ':INT32) (P-REF71666 ':INT32) - (Q-REF71667 ':INT32) (LDX11-REF71669 ':INT32) - (LDX12-REF71671 ':INT32) (LDX21-REF71673 ':INT32) - (LDX22-REF71675 ':INT32) (LDU1-REF71678 ':INT32) - (LDU2-REF71680 ':INT32) (LDV1T-REF71682 ':INT32) - (LDV2T-REF71684 ':INT32) (LWORK-REF71686 ':INT32) - (LRWORK-REF71688 ':INT32) (INFO-REF71690 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF71665 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF71666 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF71667 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF71669 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF71671 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF71673 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF71675 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF71678 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF71680 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF71682 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF71684 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF71686 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF71688 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF71690 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF71676 THETA) - (U1-REF71677 U1) (U2-REF71679 U2) - (V1T-REF71681 V1T) - (V2T-REF71683 V2T) - (WORK-REF71685 WORK) - (RWORK-REF71687 RWORK) - (IWORK-REF71689 IWORK)) - (MAGICL.LAPACK-CFFI::%%ZUNCSD - JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF71665 P-REF71666 - Q-REF71667 X11 LDX11-REF71669 X12 LDX12-REF71671 - X21 LDX21-REF71673 X22 LDX22-REF71675 THETA-REF71676 - U1-REF71677 LDU1-REF71678 U2-REF71679 LDU2-REF71680 V1T-REF71681 - LDV1T-REF71682 V2T-REF71683 LDV2T-REF71684 WORK-REF71685 LWORK-REF71686 - RWORK-REF71687 LRWORK-REF71688 IWORK-REF71689 INFO-REF71690)))) -(defmethod lapack-csd ((x matrix/complex-double-float) p q) - (let* ((m (nrows x)) - (layout (layout x)) - (xcopy (deep-copy-tensor x))) - (assert-square-matrix x) - (check-type p integer) - (check-type q integer) - (assert (<= 1 p (1- m)) () "P = ~D is out of range" p) - (assert (<= 1 q (1- m)) () "Q = ~D is out of range" q) - (let ((jobu1 "Y") - (jobu2 "Y") - (jobv1t "Y") - (jobv2t "Y") - (trans - (if (eq :row-major layout) - "T" - "F")) - (signs "D") - ;; leading dimension is M because full MATRIX array will be used - (ldx11 m) - (ldx12 m) - (ldx21 m) - (ldx22 m) - (r (min p (- m p) q (- m q))) - (ldu1 p) - (ldu2 (- m p)) - (ldv1t q) - (ldv2t (- m q)) - (lwork -1) - (work (make-array 1 :element-type '(complex double-float))) - (lrwork -1) - (rwork (make-array 1 :element-type 'double-float)) - (info 0)) - ;; rather than slice up matrix, use full array with pointers to head of blocks - ;; - ;; WARNING: THIS ABYSS IS WHERE DRAGONS LIVE. HERE THE GARBAGE - ;; COLLECTOR MUST BE TAMED SO WE DON'T SCREW UP THE POINTERS - ;; INTO THE LISP HEAP. - ;; - ;; HOURS WASTED HERE: 10 - (magicl.cffi-types:with-array-pointers ((xcopy-ptr (storage xcopy))) - (let ((x11 xcopy-ptr) - (x12 (ptr-ref xcopy xcopy-ptr 0 q)) - (x21 (ptr-ref xcopy xcopy-ptr p 0)) - (x22 (ptr-ref xcopy xcopy-ptr p q)) - (theta (make-array r - :element-type 'double-float)) - (u1 (make-array (* ldu1 p) - :element-type '(complex double-float))) - (u2 (make-array (* ldu2 (- m p)) - :element-type '(complex double-float))) - (v1t (make-array (* ldv1t q) - :element-type '(complex double-float))) - (v2t (make-array (* ldv2t (- m q)) - :element-type '(complex double-float))) - (iwork (make-array (- m r) - :element-type '(signed-byte 32)))) - ;; run it once as a workspace query - (%ZUNCSD-XPOINTERS jobu1 jobu2 jobv1t jobv2t - trans signs m p q - x11 ldx11 x12 ldx12 x21 ldx21 x22 ldx22 - theta u1 ldu1 u2 ldu2 v1t ldv1t v2t ldv2t - work lwork rwork lrwork iwork info) - (setf lwork (truncate (realpart (row-major-aref work 0)))) - (setf work (make-array (max 1 lwork) :element-type '(complex double-float))) - (setf lrwork (truncate (row-major-aref rwork 0))) - (setf rwork (make-array (max 1 lrwork) :element-type 'double-float)) - ;; run it again with optimal workspace size - (%ZUNCSD-XPOINTERS jobu1 jobu2 jobv1t jobv2t - trans signs m p q - x11 ldx11 x12 ldx12 x21 ldx21 x22 ldx22 - theta u1 ldu1 u2 ldu2 v1t ldv1t v2t ldv2t - work lwork rwork lrwork iwork info) - (values (from-array u1 (list p p) :input-layout layout) - (from-array u2 (list (- m p) (- m p)) :input-layout layout) - (from-array v1t (list q q) :input-layout layout) - (from-array v2t (list (- m q) (- m q)) :input-layout layout) - (coerce theta 'list))))))) - -(defmethod csd-2x2-basic ((unitary-matrix-2x2 matrix/complex-double-float) p q) - "Returns the Cosine-Sine decomposition of an equipartitioned UNITARY-MATRIX-2x2. The values of P and Q are assumed to be equal to one and ignored. See the documentation of LAPACK-CSD for details about the returned values." - ;; This function is meant to be used within LAPACK-CSD in the base case - ;; where the unitary matrix is 2x2 (i.e., it is equivalent to a ZYZ - ;; decomposition). It computes the CS decomposition in Lisp faster (more - ;; than three times) and with less memory overhead (conses less than half - ;; as much) than the corresponding LAPACK wrapper. - (declare (values matrix/complex-double-float - matrix/complex-double-float - matrix/complex-double-float - matrix/complex-double-float - list) - (ignorable p q) - (optimize (speed 3) (safety 0) (debug 0) (space 0))) - - (let* ((data (storage unitary-matrix-2x2)) - (a1 (aref data 0)) - (a2 (aref data 1)) - (a3 (aref data 2)) - (a4 (aref data 3)) - - (c (abs a1)) - (u1 (cis (phase a1))) - (s (abs a2)) - (u2 (cis (phase a2)))) - - (declare (type (simple-array (complex double-float) (4)) data) - (type (double-float -1.0d0 1.0d0) c s) - (type (complex double-float) u1 u2) - (dynamic-extent c s u1 u2)) - - (let ((v2h (conjugate (/ 1.0d0 (- (* c (conjugate u2) a4) - (* s (conjugate u1) a3))))) - (mu1 (empty '(1 1))) - (mu2 (empty '(1 1))) - (mv1h (empty '(1 1))) - (mv2h (empty '(1 1)))) - - (macrolet ((matrix-1x1-data (matrix) - `(the (simple-array (complex double-float) (1)) (storage ,matrix)))) - - (setf (aref (matrix-1x1-data mu1) 0) u1 - (aref (matrix-1x1-data mu2) 0) u2 - (aref (matrix-1x1-data mv1h) 0) #C(1.0d0 0.0d0) - (aref (matrix-1x1-data mv2h) 0) v2h)) - - (values mu1 mu2 mv1h mv2h (list (atan s c)))))) diff --git a/src/packages.lisp b/src/packages.lisp index c9bb8759..a1d0778f 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -1,10 +1,6 @@ (defpackage #:magicl (:use #:common-lisp - #:cffi #:abstract-classes) - #+package-local-nicknames - (:local-nicknames (#:blas #:magicl.blas-cffi) - (#:lapack #:magicl.lapack-cffi)) (:import-from #:magicl.foreign-libraries #:print-availability-report) (:shadow #:vector @@ -21,6 +17,10 @@ #:specialize-tensor #:generalize-tensor #:shape + #:layout + #:copy-tensor + #:deep-copy-tensor + #:cast #:tref #:order #:size @@ -89,6 +89,7 @@ #:square-matrix-p #:identity-matrix-p #:unitary-matrix-p + #:hermitian-matrix-p #:row #:column #:@ @@ -135,19 +136,4 @@ ;; Vector operators #:dot - #:norm - - ;; LAPACK stuff - #:lapack-eig - #:lapack-lu - #:lapack-csd - #:lapack-svd - #:lapack-ql - #:lapack-qr - #:lapack-rq - #:lapack-lq - #:lapack-ql-q - #:lapack-qr-q - #:lapack-rq-q - #:lapack-lq-q - )) + #:norm)) From ca0dad76b0e453a3aeb4e675db6c15425ee64b37 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 18:22:05 -0800 Subject: [PATCH 06/46] fix typo --- src/extensions/common/library-tracking.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/extensions/common/library-tracking.lisp b/src/extensions/common/library-tracking.lisp index bf86d7fe..bd7be1f1 100644 --- a/src/extensions/common/library-tracking.lisp +++ b/src/extensions/common/library-tracking.lisp @@ -28,7 +28,7 @@ (terpri stream) ;; Print symbol information - (dolist (lib *cffi-libraries*) + (dolist (lib *foreign-libraries*) (let ((symbols (sort (copy-seq (getf (symbol-plist lib) ':magicl)) #'string< :key #'first))) From d196a7f1eaf4b452a5cf113f16149b5a6642590a Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 18:22:23 -0800 Subject: [PATCH 07/46] add MAGICL/FANCY system --- magicl.asd | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/magicl.asd b/magicl.asd index 07c6f69d..5aa89634 100755 --- a/magicl.asd +++ b/magicl.asd @@ -156,3 +156,15 @@ (:file "load-libs"))) (:file "src/bindings/expokit-cffi") (:file "src/extensions/expokit/expm"))) + + +;;; Fancy - Load everything + +(asdf:defsystem #:magicl/fancy + :description "MAGICL with all extensions." + :depends-on (#:magicl + #:magicl/ext-blas + #:magicl/ext-lapack + #:magicl/ext-expokit) + :serial t + :components ()) From 8eb19aa8158dd053f6301732bef3b3fd4ab8ba4c Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 18:27:46 -0800 Subject: [PATCH 08/46] include magicl-csd.lisp in system --- magicl.asd | 3 ++- src/extensions/lapack/lapack-csd.lisp | 16 ++++++++-------- 2 files changed, 10 insertions(+), 9 deletions(-) diff --git a/magicl.asd b/magicl.asd index 5aa89634..3376181c 100755 --- a/magicl.asd +++ b/magicl.asd @@ -96,7 +96,8 @@ (:module "extensions/lapack" :components ((:file "lapack-generics") (:file "lapack-templates") - (:file "lapack-bindings"))))) + (:file "lapack-bindings") + (:file "lapack-csd"))))) ;;; EXPOKIT diff --git a/src/extensions/lapack/lapack-csd.lisp b/src/extensions/lapack/lapack-csd.lisp index d81a10d1..d10eb3c6 100644 --- a/src/extensions/lapack/lapack-csd.lisp +++ b/src/extensions/lapack/lapack-csd.lisp @@ -56,7 +56,7 @@ (ignorable p q) (optimize (speed 3) (safety 0) (debug 0) (space 0))) - (let* ((data (storage unitary-matrix-2x2)) + (let* ((data (magicl::storage unitary-matrix-2x2)) (a1 (aref data 0)) (a2 (aref data 1)) (a3 (aref data 2)) @@ -80,7 +80,7 @@ (mv2h (empty '(1 1)))) (macrolet ((matrix-1x1-data (matrix) - `(the (simple-array (complex double-float) (1)) (storage ,matrix)))) + `(the (simple-array (complex double-float) (1)) (magicl::storage ,matrix)))) (setf (aref (matrix-1x1-data mu1) 0) u1 (aref (matrix-1x1-data mu2) 0) u2 @@ -93,7 +93,7 @@ (let* ((m (nrows x)) (layout (layout x)) (xcopy (deep-copy-tensor x))) - (assert-square-matrix x) + (magicl::assert-square-matrix x) (check-type p integer) (check-type q integer) (assert (<= 1 p (1- m)) () "P = ~D is out of range" p) @@ -129,11 +129,11 @@ ;; INTO THE LISP HEAP. ;; ;; HOURS WASTED HERE: 10 - (magicl.cffi-types:with-array-pointers ((xcopy-ptr (storage xcopy))) + (magicl.cffi-types:with-array-pointers ((xcopy-ptr (magicl::storage xcopy))) (let ((x11 xcopy-ptr) - (x12 (ptr-ref xcopy xcopy-ptr 0 q)) - (x21 (ptr-ref xcopy xcopy-ptr p 0)) - (x22 (ptr-ref xcopy xcopy-ptr p q)) + (x12 (magicl::ptr-ref xcopy xcopy-ptr 0 q)) + (x21 (magicl::ptr-ref xcopy xcopy-ptr p 0)) + (x22 (magicl::ptr-ref xcopy xcopy-ptr p q)) (theta (make-array r :element-type 'double-float)) (u1 (make-array (* ldu1 p) @@ -168,7 +168,7 @@ (from-array v2t (list (- m q) (- m q)) :input-layout layout) (coerce theta 'list))))))) -(defmethod magicl:csd ((matrix matrix-complex-double-float) p q) +(defmethod magicl:csd ((matrix matrix/complex-double-float) p q) (labels ((csd-from-blocks (u1 u2 v1t v2t theta) "Calculates the matrices U, SIGMA, and VT of the CSD of a matrix from its intermediate representation, as calculated from LAPACK-CSD." (let ((p (nrows u1)) From 621dfec7649cd4cebdf07280d5d6b69968651228 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 18:33:40 -0800 Subject: [PATCH 09/46] get examples working --- examples.lisp | 10 +++------- magicl-examples.asd | 2 +- 2 files changed, 4 insertions(+), 8 deletions(-) diff --git a/examples.lisp b/examples.lisp index a3d739dc..7b125f0d 100644 --- a/examples.lisp +++ b/examples.lisp @@ -1,9 +1,5 @@ (defpackage #:magicl-examples - (:use #:common-lisp #:magicl-transcendental) - #+package-local-nicknames - (:local-nicknames (:blas :magicl.blas-cffi) - (:lapack :magicl.lapack-cffi) - (:expokit :magicl.expokit-cffi)) + (:use #:common-lisp) (:export #:dot-example #:eigenvalue-example #:qr-example @@ -137,8 +133,8 @@ (format t "X*X^-1~%~a~%" id))) (defun expm-example () - (let* ((x (magicl:from-list (list 0 0 0 0 0 0 1.5 0 0 -1.5 0 0.5 0 0 -0.5 0) '(4 4) :type 'double-float)) - (expx (magicl-transcendental:expm x)) + (let* ((x (magicl:from-list (list 0 0 0 0 0 0 1.5 0 0 -1.5 0 0.5 0 0 -0.5 0) '(4 4) :type '(complex double-float))) + (expx (magicl:expm x)) (d (magicl:det expx))) (format t "X~%~a~%" x) (format t "e^X~%~a~%" expx) diff --git a/magicl-examples.asd b/magicl-examples.asd index 9dd77dcb..94a2ce9b 100755 --- a/magicl-examples.asd +++ b/magicl-examples.asd @@ -3,7 +3,7 @@ :description "MAGICL examples" :maintainer "Rigetti Computing" :author "Rigetti Computing" - :depends-on (#:magicl #:magicl-transcendental) + :depends-on (#:magicl/fancy) :serial t :components ((:file "examples"))) From 0b768b0ff98776b3497f83c318caddd7f69a3f30 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 18:38:08 -0800 Subject: [PATCH 10/46] get tests to work --- magicl-tests.asd | 3 +-- tests/high-level-tests.lisp | 10 +++++----- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/magicl-tests.asd b/magicl-tests.asd index d28e7d81..3dd830ed 100644 --- a/magicl-tests.asd +++ b/magicl-tests.asd @@ -8,8 +8,7 @@ :author "Rigetti Computing" :depends-on (#:alexandria #:uiop - #:magicl - #:magicl-transcendental + #:magicl/fancy #:magicl-examples #:fiasco) :perform (asdf:test-op (o s) diff --git a/tests/high-level-tests.lisp b/tests/high-level-tests.lisp index 94e8c286..03a54eaa 100644 --- a/tests/high-level-tests.lisp +++ b/tests/high-level-tests.lisp @@ -45,8 +45,8 @@ (loop :for i :from 0 :to (1- (magicl:ncols x)) :for j :from 0 :to (1- (magicl:nrows x)) :do (let ((diff (- (magicl:tref x i j) - (magicl:tref (magicl-transcendental:expm - (magicl-transcendental:logm x)) + (magicl:tref (magicl:expm + (magicl:logm x)) i j))) (eps .00001f0)) (is (< (abs diff) eps)))))) @@ -152,9 +152,9 @@ :type '(complex double-float))) (tol (* 1.0d2 double-float-epsilon))) (multiple-value-bind (u1 u2 v1h v2h theta) - (magicl::csd-2x2-basic x 1 1) + (magicl-lapack::csd-2x2-basic x 1 1) (multiple-value-bind (u1* u2* v1h* v2h* theta*) - (magicl:lapack-csd x 1 1) + (magicl-lapack:lapack-csd x 1 1) (is (< (abs (- (magicl:tref u1 0 0) (magicl:tref u1* 0 0))) tol)) (is (< (abs (- (magicl:tref u2 0 0) (magicl:tref u2* 0 0))) tol)) (is (< (abs (- (magicl:tref v1h 0 0) (magicl:tref v1h* 0 0))) tol)) @@ -178,7 +178,7 @@ (a3 (magicl:slice a (list 0 n) (list n m))) (a4 (magicl:slice a (list n n) (list m m)))) (multiple-value-bind (u1 u2 v1h v2h theta) - (magicl:lapack-csd a n n) + (magicl-lapack:lapack-csd a n n) (let ((c (magicl:from-diag (mapcar #'cos theta) :type '(complex double-float))) (s (magicl:from-diag (mapcar #'sin theta) :type '(complex double-float)))) (is (magicl:= a1 (magicl:@ u1 c v1h))) From c28ff06c26d615fd5d544c7321ac36e29620d162 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Fri, 29 Jan 2021 18:44:45 -0800 Subject: [PATCH 11/46] mention extensions in README --- README.md | 25 ++++++++++++++++++++++--- 1 file changed, 22 insertions(+), 3 deletions(-) diff --git a/README.md b/README.md index 36916bf5..7675401c 100755 --- a/README.md +++ b/README.md @@ -3,12 +3,15 @@ _Matrix Algebra proGrams In Common Lisp_ by [Rigetti Computing](http://www.rigetti.com). (née FLAIL: _Finally, Linear Algebra In Lisp!_) -(**Note**: The high-level interface is experimental and subject to rapid change.) +(**Note**: The high-level interface is experimental and subject to change.) ## Requirements * SBCL (> 1.3.19) or CCL (>= 1.11) on AMD64 * quicklisp + +If you'll want to use BLAS/LAPACK for extended functionality, you'll need: + * libffi * BLAS and LAPACK @@ -29,18 +32,34 @@ running `sbcl` and evaluating `ql:*local-project-directories*`. Once installed, confirm that MAGICL is working properly by running the tests, as described in the next section. +## Lisp-Only vs Accelerated MAGICL + +MAGICL by default only uses pure ANSI Common Lisp code. If you with to +accelerate it or extend the functionality, you may load *MAGICL +extensions*. The available ones are: + +- `MAGICL/FANCY`: for every extension we've got under the kitchen sink +- `MAGICL/EXT-BLAS`: for BLAS functions +- `MAGICL/EXT-LAPACK`: for LAPACK functions +- `MAGICL/EXT-EXPOKIT`: for expokit (matrix `exp()`) functions + +If you use extensions, you'll need the requisite C/Fortran +libraries. Expokit will automatically build for you, as it's included +in the distribution of MAGICL. + ## Testing MAGICL You can run the MAGICL tests from your Lisp REPL with: ``` -(ql:quickload :magicl-tests) (asdf:test-system :magicl) ``` +You currently need all of the extensions working for the tests to run. + ## High-level Interface -See [high-level doc](doc/high-level.md). +See [high-level doc](doc/high-level.md) for an extensive discussion and comparison of MAGICL functions with those of MATLAB and NumPy. ## Showing Available Functions From acd15fb8befeac15bb8937f6a396ba0c4c0c6347 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Thu, 18 Mar 2021 20:42:14 -0700 Subject: [PATCH 12/46] add backend function and implementation framework This adds DEFINE-BACKEND, DEFINE-BACKEND-FUNCTION, and DEFINE-BACKEND-IMPLEMENTATION to allow for different implementations of functions with different strategies (e.g., C, Lisp, Fortran, etc.). This commit only changes one example from the library: EXPM. --- magicl.asd | 4 +- src/backend-function.lisp | 222 ++++++++++++++++++++++++++ src/extensions/expokit/expm.lisp | 85 +++++----- src/extensions/expokit/load-libs.lisp | 4 + src/extensions/lapack/load-libs.lisp | 4 + src/high-level/matrix.lisp | 12 +- src/packages.lisp | 33 +++- 7 files changed, 313 insertions(+), 51 deletions(-) create mode 100644 src/backend-function.lisp diff --git a/magicl.asd b/magicl.asd index 3376181c..a5822e22 100755 --- a/magicl.asd +++ b/magicl.asd @@ -11,7 +11,8 @@ :depends-on (#:alexandria #:abstract-classes #:policy-cond - + #:interface ; for CALLING-FORM + #:magicl/ext ; Allow extensions ) :in-order-to ((asdf:test-op (asdf:test-op #:magicl-tests))) @@ -22,6 +23,7 @@ :serial t :components ((:file "packages") + (:file "backend-function") (:module "high-level" :serial t :components ((:file "util") diff --git a/src/backend-function.lisp b/src/backend-function.lisp new file mode 100644 index 00000000..549fae50 --- /dev/null +++ b/src/backend-function.lisp @@ -0,0 +1,222 @@ +;;;; backend-function.lisp + +(in-package #:magicl.backends) + +;;;; This file implements functions that may have different +;;;; "backends", specifically to support different kinds of vector and +;;;; matrix arithmetic routines. For instance, we might want both Lisp +;;;; and C implementations of the same function, and we might want the +;;;; user to be able to select such functions at run-time. +;;;; +;;;; Terminology: +;;;; +;;;; BACKEND: A name of a backend, usually a keyword. Make a new +;;;; one with DEFINE-BACKEND. +;;;; +;;;; BACKEND FUNCTION: A function that "wraps" +;;;; implementations. This is sort of like a Common Lisp generic +;;;; function. Make a new one with DEFINE-BACKEND-FUNCTION. +;;;; +;;;; BACKEND IMPLEMENTATION: A function that actually contains the +;;;; code for a specific function's backend. This is sort of like +;;;; a Common Lisp method. Make a new one with +;;;; DEFINE-BACKEND-IMPLEMENTATION. + +;;; first some utilities + +(deftype function-designator () + '(or symbol function)) + +(defun normalize-optional/keyword-argument (arg) + (destructuring-bind (arg init supplied) (alexandria:ensure-list arg) + (list arg init (if (null supplied) + (gensym "SUPPLIEDP") + supplied)))) + +(defun normalize-lambda-list (lambda-list) + (multiple-value-bind (required-args + optional-args ; List of (NAME INIT SUPPLIEDP) + rest-arg + kw-args ; List of ((KW NAME) INIT SUPPLIEDP) + allow-other-keys + aux-args) + (alexandria:parse-ordinary-lambda-list lambda-list) + (let ((normalized required-args)) + (when rest-arg + (setf normalized (append normalized '(&rest) (list rest-arg)))) + (when optional-args + (setf normalized + (append normalized '(&optional) + (mapcar #'normalize-optional/keyword-argument optional-args)))) + (when kw-args + (setf normalized + (append normalized '(&key) + (mapcar #'normalize-optional/keyword-argument kw-args)))) + (when allow-other-keys + (setf normalized (append normalized '(&allow-other-keys)))) + (when aux-args + (setf normalized (append normalized '(&aux) aux-args))) + normalized))) + +;;; now the meat + +(define-condition no-applicable-implementation (simple-error) + () + (:documentation "The error to signal when there's no applicable implementation, whether from a backend function or a CLOS generic function.")) + +(defun no-applicable-implementation (name) + (error 'no-applicable-implementation + :format-control (format nil "~S is not implemented in any of ~ + the current active backends: ~ + ~~{~~A~~^, ~~}." + name) + :format-arguments (list (active-backends)))) + +(defmacro define-compatible-no-applicable-method-behavior (&rest generic-function-names) + (assert (every #'symbolp generic-function-names)) + `(progn + ,@(loop + :for name :in generic-function-names + :collect + `(defmethod cl:no-applicable-method ((gf (eql ',name)) &rest args) + (declare (ignore args)) + (no-applicable-implementation ',name))))) + +;;; Backend Names + +(defvar *known-backends* '() + "A list of known backends.") + +(defun backend-name-p (x) + (and (symbolp x) + (find x *known-backends*) + t)) + +(deftype backend-name () + '(satisfies backend-name-p)) + +(defvar *backend* '() + "A list in priority order the backends that MAGICL should use for functionality. + +It is preferable to use WITH-BACKENDS instead of this.") + +(defun active-backends () + "Return a list of the active backends in priority order. Useful for debugging." + *backend*) + +(defmacro define-backend (name &key documentation + (default nil)) + "Define the existence of a backend named NAME. If DEFAULT is T, then add it to the list of default backends." + (check-type name symbol) + (check-type documentation (or null string)) + (check-type default boolean) + `(progn + (pushnew ',name *known-backends*) + (when (and ',default + (not (member ',name *backend*))) + (setf *backend* (append *backend* (list ',name)))))) + +(define-backend :lisp + :documentation "The pure Lisp backend." + :default t) + +(defmacro with-backends ((&rest backends) &body body) + "Execute BODY with the (static) list of BACKENDS, written in the priority they should be used. + +If you need fine-grained control over the backends selected, you may instead directly bind *BACKEND*, but it is not recommended." + (dolist (backend backends) + (unless (typep backend 'backend-name) + (error "Not a backend name: ~A" backend))) + `(let ((*backend* ',backends)) + ,@body)) + + +;;; Storage of Backend Implementations +;;; +;;; We store backend implementations in the symbol plist. The +;;; implementations themselves form a plist with backends as keys and +;;; the implementation functions as values. + +(defconstant +backends-key+ 'backend-implementations + "The key to the symbol plist to get the backend implementations.") + +(defun backend-function-p (x) + "Does X name a backend function?" + (and (symbolp x) + (fboundp x) + (not (eq '#1=#:not-found + (getf (symbol-plist x) +backends-key+ #1#))))) + +(defun initialize-function-for-implementations (x) + (check-type x symbol) + (unless (backend-function-p x) + (setf (getf (symbol-plist x) +backends-key+) nil))) + +(defun %backend-implementation (sym backend) + (getf (getf (symbol-plist sym) +backends-key+) backend)) + +(defun (setf %backend-implementation) (new-value sym backend) + (check-type new-value function-designator) + (check-type backend backend-name) + (setf (getf (getf (symbol-plist sym) +backends-key+) backend) new-value)) + +(defun backend-implementation (sym backend) + "Return the backend implementation for the function named SYM and backend named BACKEND." + (%backend-implementation sym backend)) + +(define-compiler-macro backend-implementation (&whole whole sym backend &environment env) + (cond + ((and (constantp sym env) (typep sym '(cons (member quote) + (cons symbol null))) + (constantp backend env) (typep backend '(or + backend-name + (cons (member quote) + (cons backend-name null))))) + (let ((sym (second sym)) ; de-QUOTE + (backend (if (typep backend 'backend-name) + backend + (second backend)))) ; de-QUOTE + (%backend-implementation sym backend))) + (t + whole))) + + +;;; Definition of Backend Functions and Implementations + +(defmacro define-backend-function (name lambda-list &optional doc) + "Define a backend function named NAME with lambda list LAMBDA-LIST. + +Backend implementations are defined with DEFINE-BACKEND-IMPLEMENTATION." + (check-type name symbol) + (check-type doc (or null string)) + (unless (string= "MAGICL" (package-name *package*)) + (warn "Defining a backend function ~S in ~ + a package that's not MAGICL. Are you sure?" + name)) + (setf lambda-list (normalize-lambda-list lambda-list)) + (let ((backend (gensym "PROFILE")) + (func (gensym "FUNC"))) + `(progn + (initialize-function-for-implementations ',name) + (defun ,name ,lambda-list + ,@(and doc (list doc)) + (dolist (,backend *backend*) + (handler-case + (let ((,func (backend-implementation ',name ,backend))) + (unless (null ,func) + (return-from ,name + ,(interface:calling-form func lambda-list)))) + (no-applicable-implementation (c) + (declare (ignore c)) + nil))) + (no-applicable-implementation ',name))))) + +(defmacro define-backend-implementation (name backend funcallable-expression) + "Define the implementation of the backend function named NAME, for the backend BACKEND, as the function FUNCALLABLE-EXPRESSION (evaluated). + +NOTE: If your implementation is a generic function, then the generic function's behavior with NO-APPLICABLE-METHOD should be made compatible with the backends framework. This can be done with the macro DEFINE-COMPATIBLE-NO-APPLICABLE-METHOD-BEHAVIOR." + (check-type name symbol) + (check-type backend backend-name) + `(progn + (setf (%backend-implementation ',name ',backend) ,funcallable-expression) + ',name)) diff --git a/src/extensions/expokit/expm.lisp b/src/extensions/expokit/expm.lisp index 6ca6232e..f940e532 100644 --- a/src/extensions/expokit/expm.lisp +++ b/src/extensions/expokit/expm.lisp @@ -1,47 +1,50 @@ -;;;; transcendental/transcendental.lisp +;;;; expm.lisp ;;;; ;;;; Author: Robert Smith (in-package #:magicl-transcendental) -(defmethod magicl:expm ((m magicl:matrix/complex-double-float)) - "Finds the exponential of a square matrix M." - (let ((ideg 6) - (rows (magicl:nrows m)) - (tcoef (coerce 1.0 'double-float)) - (h (copy-seq (magicl::storage m))) - (iexph 0) - (ns 0) - (iflag 0)) - (let ((lwsp (+ (* 4 rows rows) ideg 1)) - (ipiv (magicl::make-array (list rows) :element-type '(signed-byte 32)))) - (let ((wsp (magicl::make-array (list lwsp) :element-type '(complex double-float)))) - ;; Requires direct foreign function call due to need to access a pointer - ;; to an integer (IEXPH). - (CFFI:WITH-FOREIGN-OBJECTS ((IDEG-REF103 ':INT32) (M-REF104 ':INT32) - (T-REF105 ':DOUBLE) (LDH-REF107 ':INT32) - (LWSP-REF109 ':INT32) (IEXPH-REF111 ':INT32) - (NS-REF112 ':INT32) (IFLAG-REF113 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IDEG-REF103 :INT32) IDEG) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF104 :INT32) ROWS) - (COMMON-LISP:SETF (CFFI:MEM-REF T-REF105 :DOUBLE) TCOEF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF107 :INT32) ROWS) - (COMMON-LISP:SETF (CFFI:MEM-REF LWSP-REF109 :INT32) LWSP) - (COMMON-LISP:SETF (CFFI:MEM-REF IEXPH-REF111 :INT32) IEXPH) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF112 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF IFLAG-REF113 :INT32) IFLAG) - (magicl.cffi-types:with-array-pointers ((H-ptr H) - (WSP-ptr WSP) - (IPIV-ptr IPIV)) - (magicl.expokit-cffi::%%zgpadm IDEG-REF103 M-REF104 T-REF105 - H-ptr LDH-REF107 - WSP-ptr LWSP-REF109 - IPIV-ptr - IEXPH-REF111 NS-REF112 IFLAG-REF113)) - (setf iexph (CFFI:MEM-REF IEXPH-REF111 :INT32))) - (let ((exph (magicl::make-array (list (* rows rows)) :element-type '(complex double-float)))) - (dotimes (i (* rows rows)) - (setf (row-major-aref exph i) - (row-major-aref wsp (+ i (1- iexph))))) - (values (magicl:from-array exph (list rows rows) :input-layout :column-major))))))) +(magicl.backends:define-compatible-no-applicable-method-behavior expm) +(defgeneric expm (matrix) + (:method ((m magicl:matrix/complex-double-float)) + (let ((ideg 6) + (rows (magicl:nrows m)) + (tcoef (coerce 1.0 'double-float)) + (h (copy-seq (magicl::storage m))) + (iexph 0) + (ns 0) + (iflag 0)) + (let ((lwsp (+ (* 4 rows rows) ideg 1)) + (ipiv (magicl::make-array (list rows) :element-type '(signed-byte 32)))) + (let ((wsp (magicl::make-array (list lwsp) :element-type '(complex double-float)))) + ;; Requires direct foreign function call due to need to access a pointer + ;; to an integer (IEXPH). + (CFFI:WITH-FOREIGN-OBJECTS ((IDEG-REF103 ':INT32) (M-REF104 ':INT32) + (T-REF105 ':DOUBLE) (LDH-REF107 ':INT32) + (LWSP-REF109 ':INT32) (IEXPH-REF111 ':INT32) + (NS-REF112 ':INT32) (IFLAG-REF113 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IDEG-REF103 :INT32) IDEG) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF104 :INT32) ROWS) + (COMMON-LISP:SETF (CFFI:MEM-REF T-REF105 :DOUBLE) TCOEF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF107 :INT32) ROWS) + (COMMON-LISP:SETF (CFFI:MEM-REF LWSP-REF109 :INT32) LWSP) + (COMMON-LISP:SETF (CFFI:MEM-REF IEXPH-REF111 :INT32) IEXPH) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF112 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF IFLAG-REF113 :INT32) IFLAG) + (magicl.cffi-types:with-array-pointers ((H-ptr H) + (WSP-ptr WSP) + (IPIV-ptr IPIV)) + (magicl.expokit-cffi::%%zgpadm IDEG-REF103 M-REF104 T-REF105 + H-ptr LDH-REF107 + WSP-ptr LWSP-REF109 + IPIV-ptr + IEXPH-REF111 NS-REF112 IFLAG-REF113)) + (setf iexph (CFFI:MEM-REF IEXPH-REF111 :INT32))) + (let ((exph (magicl::make-array (list (* rows rows)) :element-type '(complex double-float)))) + (dotimes (i (* rows rows)) + (setf (row-major-aref exph i) + (row-major-aref wsp (+ i (1- iexph))))) + (values (magicl:from-array exph (list rows rows) :input-layout :column-major)))))))) + +(magicl:define-backend-implementation magicl:expm :expokit 'expm) diff --git a/src/extensions/expokit/load-libs.lisp b/src/extensions/expokit/load-libs.lisp index 8cc42fd0..b2e0cbc4 100644 --- a/src/extensions/expokit/load-libs.lisp +++ b/src/extensions/expokit/load-libs.lisp @@ -21,3 +21,7 @@ (unless *expokit-libs-loaded* (cffi:load-foreign-library 'libexpokit) (setf *expokit-libs-loaded* nil)) + +(magicl:define-backend :expokit + :documentation "Functions available from Expokit." + :default t) diff --git a/src/extensions/lapack/load-libs.lisp b/src/extensions/lapack/load-libs.lisp index 6acc7c41..3858eba9 100644 --- a/src/extensions/lapack/load-libs.lisp +++ b/src/extensions/lapack/load-libs.lisp @@ -21,3 +21,7 @@ (unless *blapack-libs-loaded* (cffi:load-foreign-library 'liblapack) (setf *blapack-libs-loaded* t)) + +(magicl:define-backend :lapack + :documentation "Backend for BLAS and LAPACK functionality written in Fortran." + :default t) diff --git a/src/high-level/matrix.lisp b/src/high-level/matrix.lisp index c62680ef..6c897a37 100644 --- a/src/high-level/matrix.lisp +++ b/src/high-level/matrix.lisp @@ -526,12 +526,14 @@ NOTE: If MATRIX is not square, this will compute the reduced LQ factoriation.") (declare (ignore matrix)) (error "LQ is not defined for the generic matrix type."))) -(defgeneric expm (matrix) - (:documentation "Computes the exponential of a square matrix M.")) +(define-backend-function expm (matrix) + "Computes the exponential of a square matrix M.") -(defgeneric logm (matrix) - (:documentation "Finds the matrix logarithm of a given square matrix M assumed to be diagonalizable, with nonzero eigenvalues.") - (:method ((matrix matrix)) +(define-backend-function logm (matrix) + "Finds the matrix logarithm of a given square matrix M assumed to be diagonalizable, with nonzero eigenvalues.") + +(define-backend-implementation logm :lisp + (lambda (matrix) (multiple-value-bind (vals vects) (magicl:eig matrix) (let ((new-log-diag (let ((log-vals (mapcar #'log vals))) diff --git a/src/packages.lisp b/src/packages.lisp index a1d0778f..9326e31c 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -1,8 +1,33 @@ +(in-package #:cl) + +(defpackage #:magicl.backends + (:use #:cl) + (:export + #:define-compatible-no-applicable-method-behavior + + #:*backend* + #:active-backends + #:define-backend + #:with-backends + + #:backend-function-p + #:backend-implementation + + #:define-backend-function + #:define-backend-implementation)) + (defpackage #:magicl (:use #:common-lisp #:abstract-classes) (:import-from #:magicl.foreign-libraries #:print-availability-report) + (:import-from #:magicl.backends + #:define-backend + #:define-backend-function + #:define-backend-implementation) + (:export #:define-backend + #:define-backend-function + #:define-backend-implementation) (:shadow #:vector #:= #:map @@ -12,7 +37,7 @@ #:notevery #:notany) (:export #:with-blapack - + ;; abstract-tensor protocol #:specialize-tensor #:generalize-tensor @@ -37,7 +62,7 @@ #:reshape #:slice - + ;; Classes #:tensor #:matrix @@ -84,7 +109,7 @@ #:.^ #:= #:map - + ;; Matrix operators #:square-matrix-p #:identity-matrix-p @@ -125,7 +150,7 @@ #:lq #:expm #:logm - + #:polynomial #:make-polynomial #:polynomial-coefficients From 68ee35658e75f098c51a628a187614a027d77680 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 16:20:16 -0700 Subject: [PATCH 13/46] re-export add'l backend symbols --- src/packages.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/packages.lisp b/src/packages.lisp index 9326e31c..d67082df 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -3,6 +3,7 @@ (defpackage #:magicl.backends (:use #:cl) (:export + #:no-applicable-implementation #:define-compatible-no-applicable-method-behavior #:*backend* @@ -22,6 +23,8 @@ (:import-from #:magicl.foreign-libraries #:print-availability-report) (:import-from #:magicl.backends + #:no-applicable-implementation + #:define-compatible-no-applicable-method-behavior #:define-backend #:define-backend-function #:define-backend-implementation) From 90ecb4e7142675610417417d8e59b4dd170bf838 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 16:22:01 -0700 Subject: [PATCH 14/46] push new default backends to the front --- src/backend-function.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/backend-function.lisp b/src/backend-function.lisp index 549fae50..e0706399 100644 --- a/src/backend-function.lisp +++ b/src/backend-function.lisp @@ -112,9 +112,8 @@ It is preferable to use WITH-BACKENDS instead of this.") (check-type default boolean) `(progn (pushnew ',name *known-backends*) - (when (and ',default - (not (member ',name *backend*))) - (setf *backend* (append *backend* (list ',name)))))) + (when ',default + (pushnew ',name *backend*)))) (define-backend :lisp :documentation "The pure Lisp backend." From 5431fc5ac2db9f53317d3f4e19bccdef42a108f6 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 16:22:17 -0700 Subject: [PATCH 15/46] document how to use backend functions --- README.md | 104 ++++++++++++++++++++++++++++++++------- doc/dev-how-to.md | 121 ++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 208 insertions(+), 17 deletions(-) create mode 100644 doc/dev-how-to.md diff --git a/README.md b/README.md index 7675401c..d89869c3 100755 --- a/README.md +++ b/README.md @@ -34,9 +34,12 @@ tests, as described in the next section. ## Lisp-Only vs Accelerated MAGICL -MAGICL by default only uses pure ANSI Common Lisp code. If you with to +### Extensions + +MAGICL by default only uses pure ANSI Common Lisp code. If you wish to accelerate it or extend the functionality, you may load *MAGICL -extensions*. The available ones are: +extensions*. These extensions typically install new backends to MAGICL +functions. The available extensions are: - `MAGICL/FANCY`: for every extension we've got under the kitchen sink - `MAGICL/EXT-BLAS`: for BLAS functions @@ -47,6 +50,38 @@ If you use extensions, you'll need the requisite C/Fortran libraries. Expokit will automatically build for you, as it's included in the distribution of MAGICL. +### Backends + +New functionality is installed with a notion called "backends". A +*backend* is a name of a group of functionality, typically denoted by +a symbol or keyword. The `:lisp` backend is the defualt one, and +several backends can be active all at once. Each extension above adds +a new backend. The current backends are: + +- `:lisp`: Pure Lisp code +- `:lapack`: LAPACK-backed code +- `:expokit`: expokit-backed code + +In most cases, one does not need to concern themselves with backends; +MAGICL functionality should "just work" and dispatch to the +appropriate backend. + +The active backends can be found with the function +`magicl.backends:active-backends`, which lists the backends to use in +priority order. One can limit the backends in use over a dynamic scope +with the macro `magicl.backends:with-backends`. + +Given a function `f` which has many backend implementations, one can +get a specific implementation by using the function + +``` +(magicl.backends:backend-implementation 'f :backend-name) +``` + +If both the function name and the backend name are (quoted) constants, +this will be looked up at compile-time, which is useful for writing +efficient code. + ## Testing MAGICL You can run the MAGICL tests from your Lisp REPL with: @@ -59,17 +94,35 @@ You currently need all of the extensions working for the tests to run. ## High-level Interface -See [high-level doc](doc/high-level.md) for an extensive discussion and comparison of MAGICL functions with those of MATLAB and NumPy. +See the [high-level doc](doc/high-level.md) for an extensive discussion +and comparison of MAGICL functions with those of MATLAB and NumPy. + +## Developer's Guide: How to Add New Functions + +See the [developer how-to](doc/dev-how-to.md) to understand how to add +new functionality to MAGICL. ## Showing Available Functions -Some distributions of a library don't actually provide all of the functions of the reference BLAS and LAPACK. One can look at a summary of available and unavailable functions with the function `magicl:print-availability-report`. By default, it will show all functions and their availability. There are three arguments to fine-tune this behavior: +Some distributions of a library don't actually provide all of the +functions of the reference BLAS and LAPACK. One can look at a summary +of available and unavailable functions with the function +`magicl:print-availability-report`. By default, it will show all +functions and their availability. There are three arguments to +fine-tune this behavior: + +1. Key `:show-available ` (default `t`): show available +functions + +2. Key `:show-unavailable ` (default `t`): show unavailable +functions -1. Key `:show-available ` (default `t`): show available functions -2. Key `:show-unavailable ` (default `t`): show unavailable functions -3. Key `:search `: only show functions which have `` as a substring. **This argument takes into account the previous two arguments.** +3. Key `:search `: only show functions which have `` +as a substring. **This argument takes into account the previous two +arguments.** -For example, we can look for all available functions which might relate to `svd` by doing the following: +For example, we can look for all available functions which might +relate to `svd` by doing the following: ``` CL-USER> (magicl:print-availability-report :search "svd" :show-unavailable nil) @@ -97,11 +150,16 @@ Library LIBLAPACK: /usr/local/opt/lapack/lib/liblapack.dylib ## Generating BLAS and LAPACK Bindings -This library takes the approach of automatically generating the bindings to BLAS, LAPACK, and Expokit without relying on any special tools. +This library takes the approach of automatically generating the +bindings to BLAS, LAPACK, and Expokit without relying on any special +tools. -In order to generate the bindings, you will need to download the Fortran 90 source tarballs for -[BLAS/LAPACK](http://www.netlib.org/lapack/) and [Expokit](https://www.maths.uq.edu.au/expokit/download.html). -Once downloaded, extract the tarballs into a directory and re-generate the bindings with the following commands: +In order to generate the bindings, you will need to download the +Fortran 90 source tarballs for +[BLAS/LAPACK](http://www.netlib.org/lapack/) and +[Expokit](https://www.maths.uq.edu.au/expokit/download.html). Once +downloaded, extract the tarballs into a directory and re-generate the +bindings with the following commands: ``` (ql:quickload :magicl-gen) @@ -117,16 +175,28 @@ MAGICL, namely the files `blas-cffi.lisp`, `lapack*-cffi.lisp`, and ## History and Credits -MAGICL development started at Rigetti Computing by Robert Smith and Joe Lin in 2017. +MAGICL development started at Rigetti Computing by Robert Smith and +Joe Lin in 2017. -[CL-BLAPACK](https://github.com/blindglobe/cl-blapack) is a library developed by Ryan Rifkin and Evan Monroig. Rigetti Computing created a fork of this library and renamed it MAGICL, and made significant changes that departed from the original design, including: +[CL-BLAPACK](https://github.com/blindglobe/cl-blapack) is a library +developed by Ryan Rifkin and Evan Monroig. Rigetti Computing created a +fork of this library and renamed it MAGICL, and made significant +changes that departed from the original design, including: + +* Fixing several bugs in the Fortran parsing to make it work with the +latest reference BLAS and LAPACK, leading to significant refactoring. -* Fixing several bugs in the Fortran parsing to make it work with the latest reference BLAS and LAPACK, leading to significant refactoring. * Adding support for matrix exponentiation with Expokit. + * Adding support for loading various BLAS and LAPACK implementations. + * Removing the use of the FNV library in favor of native Lisp arrays. + * Adding a high-level interface to various functions. + * Adding function availability reporting. -The most important common design decision between CL-BLAPACK and MAGICL is allowing direct access -to the Fortran library functions by way of automatically generated Lisp bindings from the reference sources. +The most important common design decision between CL-BLAPACK and +MAGICL is allowing direct access to the Fortran library functions by +way of automatically generated Lisp bindings from the reference +sources. diff --git a/doc/dev-how-to.md b/doc/dev-how-to.md new file mode 100644 index 00000000..d427b85e --- /dev/null +++ b/doc/dev-how-to.md @@ -0,0 +1,121 @@ +# Developer How-To + +This document describes how to add new functionality to MAGICL. + +## Determining the Scope of your Contribution + +So, you'd like to improve MAGICL. The first question to answer is, +"what is the scope of the improvement?" We offer here a few different +scenarios to help you get started. + +## Writing a New Function + +If you want to add an entirely new linear algebra routine, then there +are a few decisions to make. In this section, let's suppose we are +implementing `matmul` for matrix multiplication. + +The first decision is: Should the routine support being implemented +with different backends? If yes, then you'll want to begin with a +*backend function definition*. a **backend function** is sort of like +a Common Lisp generic function. Backend functions themselves don't +actually implement anything, they instead just stipulate the existence +and documented behavior of a function. For our exmaple, we'd write (in +the `MAGICL` package): + +``` +(define-backend-function matmul (a b) + "Multiply the matrices A and B.") +``` + +The second decision is: Do we want to implement this function with +CLOS extensibility in mind, or can it be written in pure MAGICL code? +Frequently, it's possible to do things more efficiently if you, say, +know you're working with `double-float` matrices. The cleanest way to +do this is to define a generic function and implement methods on +it. Since we will use this generic function to implement our backend +function, we need to tell it what to do if there are no methods found +for the generic function, and to continue searching in the next +backend. We can do this like so: + +``` +(define-compatible-no-applicable-method-behavior matmul-lisp) +(defgeneric matmul-lisp (a b) + (:method ((a matrix) (b matrix)) + ; ... + )) +``` + +Now we can tell MAGICL that `matmul-lisp` implements `matmul` in the +`:lisp` backend like so: + +``` +(define-backend-implementation matmul :lisp 'matmul-lisp) +``` + +In the LAPACK extension, we might write: + +``` +(define-compatible-no-applicable-method-behavior matmul-lapack) +(defgeneric matmul-lapack (a b) + (:method ((a matrix/double-float) (b matrix/double-float)) + ;; ... + )) +(define-backend-implementation matmul :lapack 'matmul-lapack) +``` + +In this scenario, we've presented *two* extension points for `matmul`: + +1. We can extend it with new _backend implementations_. For instance, +BLAS offers matrix multiplication, and we could implement it with the +`:lapack` backend. + +2. We can extend the Lisp implementation by writing additional methods +on the generic function `matmul-lisp`. We might want to do this if we +want to extend `matmul` to work on additional types. However, do note +that in good coding style, `matmul-lisp` should always conform to the +documentation of the _backend function_, **not** the _generic +function_. + +If we wanted to forego making a generic function, we can instead just +write a lambda directly in the backend implementation: + +``` +;; assuming no MATMUL-LISP generic function +(define-backend-implementation matmul :lisp + (lambda (a b) + ;; ... + )) +``` + +Of course, if no extensibility is desired whatsoever, one can just write + +**Important**: Do _not_ use generic functions for which methods are +implemented in extensions. This is problematic because extensions +might inadvertently overwrite one another's methods. Instead, we +recommend limiting the scope of a generic function to a backend, as +described above. + +## Writing an Extension + +Extensions are intended to add "foreign" functionality to MAGICL that +can't be achieved with pure Lisp. For instance, binding to C or +Fortran code should be done in an extension. If the code you intend to +write is pure Lisp, then an extension is probably not appropriate. + +Let's suppose we are making an extension called `FOO`. You'll need to +create a new ASDF system. In `magicl.asd`, add `#:magicl/ext-foo` and +create a folder `src/extensions/foo`. (If you see it as a good +default, also add your system as a dependency to `#:magicl/fancy`.) +You should define a new package for your extension, like +`#:magicl-foo`. If your extension has C bindings, then you'll want a +`load-libs.lisp` file. Use `src/extensions/expokit/load-libs.lisp` as +a model. Of important note are: + +1. The definition of the foreign library. +2. Recording the foreign library in the `*foreign-libraries*` variable. +3. Loading the library. +4. Defining a backend named `:foo` for this extension. + +Now you can add functionality as usual. Your extension may expose new +functionality through its package, but when possible, it is preferred +to expose it through the backend framework. \ No newline at end of file From 891b4d75cf66e790df46cb484068bb00f1afd938 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 17:03:29 -0700 Subject: [PATCH 16/46] define :BLAS and :LAPACK backend separately --- src/extensions/blas/load-libs.lisp | 4 ++++ src/extensions/lapack/load-libs.lisp | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/extensions/blas/load-libs.lisp b/src/extensions/blas/load-libs.lisp index c87eea15..3f95f19f 100644 --- a/src/extensions/blas/load-libs.lisp +++ b/src/extensions/blas/load-libs.lisp @@ -17,3 +17,7 @@ (unless *blas-loaded* (cffi:load-foreign-library 'libblas) (setf *blas-loaded* t)) + +(magicl:define-backend :blas + :documentation "Backend for BLAS functionality written in Fortran." + :default t) diff --git a/src/extensions/lapack/load-libs.lisp b/src/extensions/lapack/load-libs.lisp index 3858eba9..df8389c7 100644 --- a/src/extensions/lapack/load-libs.lisp +++ b/src/extensions/lapack/load-libs.lisp @@ -23,5 +23,5 @@ (setf *blapack-libs-loaded* t)) (magicl:define-backend :lapack - :documentation "Backend for BLAS and LAPACK functionality written in Fortran." + :documentation "Backend for LAPACK functionality written in Fortran." :default t) From 47c704f1a52ca9e874d1dace08295411d7105ffe Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 17:05:52 -0700 Subject: [PATCH 17/46] remove MAGICL/FANCY and make MAGICL/CORE In order to not break users downstream, we remove MAGICL/FANCY and just make MAGICL load all extensions. We may change this in the future. However, we now add MAGICL/CORE which contains only Lisp code. Users may use MAGICL/CORE if they don't wish to use extensions. --- README.md | 38 ++++++++++++++++++++++++-------------- doc/dev-how-to.md | 10 +++++----- magicl-examples.asd | 5 ++--- magicl-tests.asd | 2 +- magicl.asd | 34 +++++++++++++++++++--------------- 5 files changed, 51 insertions(+), 38 deletions(-) diff --git a/README.md b/README.md index d89869c3..c1c32ab7 100755 --- a/README.md +++ b/README.md @@ -1,25 +1,32 @@ # MAGICL - _Matrix Algebra proGrams In Common Lisp_ by [Rigetti Computing](http://www.rigetti.com). (née FLAIL: _Finally, Linear Algebra In Lisp!_) (**Note**: The high-level interface is experimental and subject to change.) ## Requirements - * SBCL (> 1.3.19) or CCL (>= 1.11) on AMD64 - * quicklisp - -If you'll want to use BLAS/LAPACK for extended functionality, you'll need: +MAGICL has two main systems: + +- `MAGICL/CORE`: This is pure Lisp code with no foreign dependencies. +- `MAGICL`: This is the core MAGICL with all extensions loaded. + +The system `MAGICL/CORE` requires: + +* SBCL (> 1.3.19) or CCL (>= 1.11) on AMD64 +* quicklisp + +The system `MAGICL`, on the other hand, requires several foreign +dependencies not shipped with MAGICL, like: * libffi * BLAS and LAPACK - Detailed instructions on how to install `libffi` and BLAS/LAPACK can - be found [here](doc/requirements.md). +Detailed instructions on how to install `libffi` and BLAS/LAPACK can +be found [here](doc/requirements.md). - Currently this library is SBCL- and CCL-only. The non-portable code - is in `with-array-pointers.lisp` and `magicl.lisp`. +Currently this library is SBCL- and CCL-only. The non-portable code is +in `with-array-pointers.lisp` and `magicl.lisp`. ## Installation @@ -36,16 +43,18 @@ tests, as described in the next section. ### Extensions -MAGICL by default only uses pure ANSI Common Lisp code. If you wish to -accelerate it or extend the functionality, you may load *MAGICL -extensions*. These extensions typically install new backends to MAGICL -functions. The available extensions are: +`MAGICL/CORE` by default only uses pure ANSI Common Lisp code. If you +wish to accelerate it or extend the functionality, you may load +*MAGICL extensions*. These extensions typically install new backends +to MAGICL functions. The available extensions are: -- `MAGICL/FANCY`: for every extension we've got under the kitchen sink - `MAGICL/EXT-BLAS`: for BLAS functions - `MAGICL/EXT-LAPACK`: for LAPACK functions - `MAGICL/EXT-EXPOKIT`: for expokit (matrix `exp()`) functions +For backwards compatibility, `MAGICL` loads every extension under the +kitchen sink. **This may change in future versions of MAGICL!** + If you use extensions, you'll need the requisite C/Fortran libraries. Expokit will automatically build for you, as it's included in the distribution of MAGICL. @@ -59,6 +68,7 @@ several backends can be active all at once. Each extension above adds a new backend. The current backends are: - `:lisp`: Pure Lisp code +- `:blas`: BLAS-backed code - `:lapack`: LAPACK-backed code - `:expokit`: expokit-backed code diff --git a/doc/dev-how-to.md b/doc/dev-how-to.md index d427b85e..db178355 100644 --- a/doc/dev-how-to.md +++ b/doc/dev-how-to.md @@ -52,15 +52,15 @@ Now we can tell MAGICL that `matmul-lisp` implements `matmul` in the (define-backend-implementation matmul :lisp 'matmul-lisp) ``` -In the LAPACK extension, we might write: +In the BLAS extension, we might write: ``` -(define-compatible-no-applicable-method-behavior matmul-lapack) +(define-compatible-no-applicable-method-behavior matmul-blas) (defgeneric matmul-lapack (a b) (:method ((a matrix/double-float) (b matrix/double-float)) ;; ... )) -(define-backend-implementation matmul :lapack 'matmul-lapack) +(define-backend-implementation matmul :lapack 'matmul-blas) ``` In this scenario, we've presented *two* extension points for `matmul`: @@ -87,7 +87,7 @@ write a lambda directly in the backend implementation: )) ``` -Of course, if no extensibility is desired whatsoever, one can just write +Of course, if no extensibility is desired whatsoever, one can just write **Important**: Do _not_ use generic functions for which methods are implemented in extensions. This is problematic because extensions @@ -105,7 +105,7 @@ write is pure Lisp, then an extension is probably not appropriate. Let's suppose we are making an extension called `FOO`. You'll need to create a new ASDF system. In `magicl.asd`, add `#:magicl/ext-foo` and create a folder `src/extensions/foo`. (If you see it as a good -default, also add your system as a dependency to `#:magicl/fancy`.) +default, also add your system as a dependency to `#:magicl`.) You should define a new package for your extension, like `#:magicl-foo`. If your extension has C bindings, then you'll want a `load-libs.lisp` file. Use `src/extensions/expokit/load-libs.lisp` as diff --git a/magicl-examples.asd b/magicl-examples.asd index 94a2ce9b..2ebc1429 100755 --- a/magicl-examples.asd +++ b/magicl-examples.asd @@ -3,7 +3,6 @@ :description "MAGICL examples" :maintainer "Rigetti Computing" :author "Rigetti Computing" - :depends-on (#:magicl/fancy) + :depends-on (#:magicl) :serial t - :components - ((:file "examples"))) + :components ((:file "examples"))) diff --git a/magicl-tests.asd b/magicl-tests.asd index 3dd830ed..311ce043 100644 --- a/magicl-tests.asd +++ b/magicl-tests.asd @@ -8,7 +8,7 @@ :author "Rigetti Computing" :depends-on (#:alexandria #:uiop - #:magicl/fancy + #:magicl #:magicl-examples #:fiasco) :perform (asdf:test-op (o s) diff --git a/magicl.asd b/magicl.asd index a5822e22..756fe435 100755 --- a/magicl.asd +++ b/magicl.asd @@ -2,12 +2,29 @@ ;;;; ;;;; Author: Robert Smith +;;; XXX: For now, load all extensions when loading MAGICL so as to not +;;; break users' code. In the future, however, we may make MAGICL a +;;; synonym for MAGICL/CORE. (asdf:defsystem #:magicl :license "BSD 3-Clause (See LICENSE.txt)" :description "Matrix Algebra proGrams In Common Lisp" :maintainer "Rigetti Computing" :author "Rigetti Computing" :version (:read-file-form "VERSION.txt") + :in-order-to ((asdf:test-op (asdf:test-op #:magicl-tests))) + :depends-on (#:magicl/core + #:magicl/ext-blas + #:magicl/ext-lapack + #:magicl/ext-expokit) + :serial t + :components ()) + +(asdf:defsystem #:magicl/core + :license "BSD 3-Clause (See LICENSE.txt)" + :description "Matrix Algebra proGrams In Common Lisp (pure Lisp core)" + :maintainer "Rigetti Computing" + :author "Rigetti Computing" + :version (:read-file-form "VERSION.txt") :depends-on (#:alexandria #:abstract-classes #:policy-cond @@ -15,7 +32,6 @@ #:magicl/ext ; Allow extensions ) - :in-order-to ((asdf:test-op (asdf:test-op #:magicl-tests))) :around-compile (lambda (compile) (let (#+sbcl (sb-ext:*derive-function-types* t)) (funcall compile))) @@ -76,7 +92,7 @@ (asdf:defsystem #:magicl/ext-lapack :description "Native LAPACK routines in MAGICL." - :depends-on (#:magicl + :depends-on (#:magicl/core #:magicl/ext #:magicl/ext-blas #:cffi @@ -146,7 +162,7 @@ :depends-on (#:alexandria #:cffi #:cffi-libffi - #:magicl + #:magicl/core #:magicl/ext #:magicl/ext-blas #:magicl/ext-lapack) @@ -159,15 +175,3 @@ (:file "load-libs"))) (:file "src/bindings/expokit-cffi") (:file "src/extensions/expokit/expm"))) - - -;;; Fancy - Load everything - -(asdf:defsystem #:magicl/fancy - :description "MAGICL with all extensions." - :depends-on (#:magicl - #:magicl/ext-blas - #:magicl/ext-lapack - #:magicl/ext-expokit) - :serial t - :components ()) From 347baa92daf96763f7b90ae6ace0ecbef3467ab4 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 17:07:33 -0700 Subject: [PATCH 18/46] add DEFINE-EXTENSIBLE-FUNCTION --- doc/dev-how-to.md | 19 +++++++++++++++++++ src/high-level/util.lisp | 12 ++++++++++++ 2 files changed, 31 insertions(+) diff --git a/doc/dev-how-to.md b/doc/dev-how-to.md index db178355..1ed793cb 100644 --- a/doc/dev-how-to.md +++ b/doc/dev-how-to.md @@ -95,6 +95,25 @@ might inadvertently overwrite one another's methods. Instead, we recommend limiting the scope of a generic function to a backend, as described above. +For convenience, one can use `define-extensible-function` in MAGICL to +do the ceremony of defining the backend function, defining compatible +method behavior, and defining a generic function implementing the +backend function for `:lisp` (or any other backend): + +``` +;; in MAGICL core +(define-extensible-function (matmul matmul-lisp) (a b) + (:method (a b) + ;; ... + )) + +;; in BLAS extension +(define-extensible-function (matmul matmul-blas :blas) (a b) + (:method (a b) + ;; ... + )) +``` + ## Writing an Extension Extensions are intended to add "foreign" functionality to MAGICL that diff --git a/src/high-level/util.lisp b/src/high-level/util.lisp index 06de6dc2..1cf2597d 100644 --- a/src/high-level/util.lisp +++ b/src/high-level/util.lisp @@ -95,3 +95,15 @@ (defun normalize-type (type) (upgraded-array-element-type type)) + +(defmacro define-extensible-function ((fun-name fun-name-backend &optional (backend :lisp)) lambda-list &body options) + "This macro mimics DEFGENERIC, except instead it makes FUN-NAME a backend function whose BACKEND implementation (default :LISP) is a generic function named FUN-NAME-BACKEND." + (let* ((doc-option (assoc ':documentation options)) + (doc-string (if (null doc-option) + nil + (second doc-option)))) + `(progn + (define-backend-function ,fun-name ,lambda-list ,@(if doc-string (list doc-string))) + (define-compatible-no-applicable-method-behavior ,fun-name-backend) + (defgeneric ,fun-name-backend ,lambda-list ,@options) + (define-backend-implementation ,fun-name ,backend ',fun-name-backend)))) From 21bb55c44d993265af4571da727a0dd52e4ea2e4 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 17:08:48 -0700 Subject: [PATCH 19/46] fix minor formatting and typos --- src/high-level/matrix.lisp | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/src/high-level/matrix.lisp b/src/high-level/matrix.lisp index 6c897a37..a69bdc97 100644 --- a/src/high-level/matrix.lisp +++ b/src/high-level/matrix.lisp @@ -212,11 +212,11 @@ ELEMENT-TYPE, CAST, COPY-TENSOR, DEEP-COPY-TENSOR, TREF, SETF TREF)" t) (defun unitary-matrix-p (matrix &optional (epsilon *double-comparison-threshold*)) - "Whether MATRIX is a unitary matrix" + "Is MATRIX is a unitary matrix?" (identity-matrix-p (@ matrix (conjugate-transpose matrix)) epsilon)) (defun hermitian-matrix-p (matrix &optional (epsilon *double-comparison-threshold*)) - "Whether MATRIX is a unitary matrix" + "Is MATRIX is a hermitian matrix?" (= matrix (conjugate-transpose matrix) epsilon)) (defmacro assert-square-matrix (&rest matrices) @@ -224,7 +224,9 @@ ELEMENT-TYPE, CAST, COPY-TENSOR, DEEP-COPY-TENSOR, TREF, SETF TREF)" ,@(loop :for matrix in matrices :collect `(assert (square-matrix-p ,matrix) () - ,"The shape of ~a is ~a, which is not a square" ,(symbol-name matrix) (shape ,matrix))))) + "The shape of ~a is ~a, which is not a square" + ,(symbol-name matrix) + (shape ,matrix))))) ;;; Required abstract-tensor methods @@ -296,7 +298,7 @@ Multiply a by b, storing in target or creating a new tensor if target is not spe Target cannot be the same as a or b.")) (defgeneric @ (matrix &rest matrices) - (:documentation "Multiplication of matrices") + (:documentation "Multiplication of matrices") (:method (matrix &rest matrices) (reduce #'mult matrices :initial-value matrix))) @@ -329,8 +331,9 @@ Target cannot be the same as a or b.")) (mb (nrows b)) (na (ncols a)) (nb (ncols b))) - (flet ((calc-i-j (i j) (* (tref a (floor i mb) (floor j nb)) - (tref b (mod i mb) (mod j nb))))) + (flet ((calc-i-j (i j) + (* (tref a (floor i mb) (floor j nb)) + (tref b (mod i mb) (mod j nb))))) (reduce #'kron rest :initial-value (into! #'calc-i-j (empty (list (* ma mb) (* na nb)) :type '(complex double-float)))))))) From 5265ce0f4331436a1441f36343b1f0734630c607 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 18:11:40 -0700 Subject: [PATCH 20/46] export more backend framework symbols --- src/packages.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/packages.lisp b/src/packages.lisp index d67082df..2f7806e7 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -28,7 +28,9 @@ #:define-backend #:define-backend-function #:define-backend-implementation) - (:export #:define-backend + (:export #:no-applicable-implementation + #:define-compatible-no-applicable-method-behavior + #:define-backend #:define-backend-function #:define-backend-implementation) (:shadow #:vector @@ -40,6 +42,7 @@ #:notevery #:notany) (:export #:with-blapack + #:define-extensible-function ; For extensions, not users... ;; abstract-tensor protocol #:specialize-tensor From 1d49bebd5f4e1b4e8aad477e906dabd4a8bfe01d Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 18:11:59 -0700 Subject: [PATCH 21/46] warn when defining backend functions outside of MAGICL --- src/high-level/util.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/high-level/util.lisp b/src/high-level/util.lisp index 1cf2597d..a1939cbd 100644 --- a/src/high-level/util.lisp +++ b/src/high-level/util.lisp @@ -103,7 +103,11 @@ nil (second doc-option)))) `(progn - (define-backend-function ,fun-name ,lambda-list ,@(if doc-string (list doc-string))) + ;; Only define backend functions for :LISP. We don't want to + ;; re-generate these for other backends. + ,@(when (eq backend :lisp) + (list + `(define-backend-function ,fun-name ,lambda-list ,@(if doc-string (list doc-string))))) (define-compatible-no-applicable-method-behavior ,fun-name-backend) (defgeneric ,fun-name-backend ,lambda-list ,@options) (define-backend-implementation ,fun-name ,backend ',fun-name-backend)))) From 033b8eeba4ced346413851fe1bdced9cee72af70 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 19:08:06 -0700 Subject: [PATCH 22/46] put LAPACK into backend framework --- src/extensions/lapack/lapack-csd.lisp | 4 +- src/extensions/lapack/lapack-generics.lisp | 25 +- src/extensions/lapack/lapack-templates.lisp | 325 +++++++++----------- src/high-level/matrix.lisp | 106 +++---- 4 files changed, 216 insertions(+), 244 deletions(-) diff --git a/src/extensions/lapack/lapack-csd.lisp b/src/extensions/lapack/lapack-csd.lisp index d10eb3c6..023561f4 100644 --- a/src/extensions/lapack/lapack-csd.lisp +++ b/src/extensions/lapack/lapack-csd.lisp @@ -102,7 +102,7 @@ (jobu2 "Y") (jobv1t "Y") (jobv2t "Y") - (trans + (trans (if (eq :row-major layout) "T" "F")) @@ -168,7 +168,7 @@ (from-array v2t (list (- m q) (- m q)) :input-layout layout) (coerce theta 'list))))))) -(defmethod magicl:csd ((matrix matrix/complex-double-float) p q) +(defmethod csd-extension ((matrix matrix/complex-double-float) p q) (labels ((csd-from-blocks (u1 u2 v1t v2t theta) "Calculates the matrices U, SIGMA, and VT of the CSD of a matrix from its intermediate representation, as calculated from LAPACK-CSD." (let ((p (nrows u1)) diff --git a/src/extensions/lapack/lapack-generics.lisp b/src/extensions/lapack/lapack-generics.lisp index f91f199b..3babb327 100644 --- a/src/extensions/lapack/lapack-generics.lisp +++ b/src/extensions/lapack/lapack-generics.lisp @@ -4,17 +4,32 @@ (in-package #:magicl-lapack) -(defgeneric lapack-eig (matrix)) +;;; We use the convention "FOO-EXTENSION" to refer to this extension's +;;; generic function implementation of MAGICL:FOO. -(defgeneric lapack-hermitian-eig (matrix)) +(magicl:define-extensible-function (magicl:mult mult-extension :lapack) (a b &key target alpha beta transa transb)) -(defgeneric lapack-lu (matrix)) +(magicl:define-extensible-function (magicl:eig lapack-eig :lapack) (matrix)) -(defgeneric lapack-inv (matrix)) +(magicl:define-extensible-function (magicl:hermitian-eig lapack-hermitian-eig :lapack) (matrix)) + +(magicl:define-extensible-function (magicl:lu lapack-lu :lapack) (matrix)) + +(magicl:define-extensible-function (magicl:inv lapack-inv :lapack) (matrix)) + +(magicl:define-extensible-function (magicl:csd csd-extension :lapack) (matrix p q)) (defgeneric lapack-csd (matrix p q)) -(defgeneric lapack-svd (matrix &key reduced)) +(magicl:define-extensible-function (magicl:svd lapack-svd :lapack) (matrix &key reduced)) + +(magicl:define-extensible-function (magicl:ql ql-extension :lapack) (matrix)) + +(magicl:define-extensible-function (magicl:qr qr-extension :lapack) (matrix)) + +(magicl:define-extensible-function (magicl:rq rq-extension :lapack) (matrix)) + +(magicl:define-extensible-function (magicl:lq lq-extension :lapack) (matrix)) (defgeneric lapack-ql (matrix) (:documentation "Find the LAPACK intermediate representation of ql of a matrix")) diff --git a/src/extensions/lapack/lapack-templates.lisp b/src/extensions/lapack/lapack-templates.lisp index cd58600c..87b81eaf 100644 --- a/src/extensions/lapack/lapack-templates.lisp +++ b/src/extensions/lapack/lapack-templates.lisp @@ -11,7 +11,7 @@ (defun generate-lapack-mult-for-type (matrix-class vector-class type matrix-matrix-function matrix-vector-function) `(progn - (defmethod magicl::mult ((a ,matrix-class) (b ,matrix-class) &key target (alpha ,(coerce 1 type)) (beta ,(coerce 0 type)) (transa :n) (transb :n)) + (defmethod mult-extension ((a ,matrix-class) (b ,matrix-class) &key target (alpha ,(coerce 1 type)) (beta ,(coerce 0 type)) (transa :n) (transb :n)) (policy-cond:with-expectations (> speed safety) ((type (member nil :n :t :c) transa) (type (member nil :n :t :c) transb)) @@ -60,7 +60,7 @@ (magicl::storage target) m) target))))) - (defmethod magicl::mult ((a ,matrix-class) (x ,vector-class) &key target (alpha ,(coerce 1 type)) (beta ,(coerce 0 type)) (transa :n) transb) + (defmethod mult-extension ((a ,matrix-class) (x ,vector-class) &key target (alpha ,(coerce 1 type)) (beta ,(coerce 0 type)) (transa :n) transb) (policy-cond:with-expectations (> speed safety) ((type (member nil :n :t :c) transa) (assertion (null transb))) @@ -100,20 +100,36 @@ (defun generate-lapack-lu-for-type (class type lu-function) (declare (ignore type)) - `(progn - (defmethod magicl:lu ((m ,class)) - (lapack-lu m)) + `(defmethod lapack-lu ((a ,class)) + (let* ((a-tensor (deep-copy-tensor a)) + (a (magicl::storage a-tensor)) + (m (nrows a-tensor)) + (n (ncols a-tensor)) + (lda m) + (ipiv-tensor (empty (list (max m n)) :type '(signed-byte 32))) + (ipiv (magicl::storage ipiv-tensor)) + (info 0)) + (when (eql :row-major (layout a-tensor)) (transpose! a-tensor)) + (,lu-function + m + n + a + lda + ipiv + info) + (values a-tensor ipiv-tensor)))) - (defmethod lapack-lu ((a ,class)) - (let* ((a-tensor (deep-copy-tensor a)) - (a (magicl::storage a-tensor)) +(defun generate-lapack-inv-for-type (class type lu-function inv-function) + `(defmethod lapack-inv ((a ,class)) + (let ((a-tensor (deep-copy-tensor a))) + (when (eql :row-major (layout a-tensor)) (transpose! a-tensor)) + (let* ((a (magicl::storage a-tensor)) (m (nrows a-tensor)) (n (ncols a-tensor)) (lda m) (ipiv-tensor (empty (list (max m n)) :type '(signed-byte 32))) (ipiv (magicl::storage ipiv-tensor)) (info 0)) - (when (eql :row-major (layout a-tensor)) (transpose! a-tensor)) (,lu-function m n @@ -121,181 +137,146 @@ lda ipiv info) - (values a-tensor ipiv-tensor))))) - -(defun generate-lapack-inv-for-type (class type lu-function inv-function) - `(progn - (defmethod magicl:inv ((m ,class)) - (lapack-inv m)) - - (defmethod lapack-inv ((a ,class)) - (let ((a-tensor (deep-copy-tensor a))) - (when (eql :row-major (layout a-tensor)) (transpose! a-tensor)) - (let* ((a (magicl::storage a-tensor)) - (m (nrows a-tensor)) - (n (ncols a-tensor)) - (lda m) - (ipiv-tensor (empty (list (max m n)) :type '(signed-byte 32))) - (ipiv (magicl::storage ipiv-tensor)) + ;; TODO: This check is already performed by the LU + ;; function, however INFO is not being returned + ;; correctly. When the bindings are fixed this should + ;; just check if INFO is non-zero + (assert (cl:notany + (lambda (x) + (cl:= x 0)) + (diag a-tensor)) + () "The provided matrix is singular and cannot be inverted.") + (let* ((lwork -1) + (work1 (make-array (max 1 lwork) :element-type ',type)) + (work nil) (info 0)) - (,lu-function - m + ;; Perform work size query with work of length 1 + (,inv-function n a - lda + m ipiv + work1 + lwork info) - ;; TODO: This check is already performed by the LU - ;; function, however INFO is not being returned - ;; correctly. When the bindings are fixed this should - ;; just check if INFO is non-zero - (assert (cl:notany - (lambda (x) - (cl:= x 0)) - (diag a-tensor)) - () "The provided matrix is singular and cannot be inverted.") - (let* ((lwork -1) - (work1 (make-array (max 1 lwork) :element-type ',type)) - (work nil) - (info 0)) - ;; Perform work size query with work of length 1 - (,inv-function - n - a - m - ipiv - work1 - lwork - info) - (setf lwork (round (realpart (aref work1 0)))) - (setf work (make-array (max 1 lwork) :element-type ',type)) - ;; Perform actual operation with correct work size - (,inv-function - n - a - m - ipiv - work - lwork - info)) - (values (from-array a (shape a-tensor) :input-layout :column-major))))))) - -(defun generate-lapack-svd-for-type (class type svd-function &optional real-type) - `(progn - (defmethod magicl:svd ((m ,class) &key reduced) - (lapack-svd m :reduced reduced)) - - (defmethod lapack-svd ((m ,class) &key reduced) - "Find the SVD of a matrix M. Return (VALUES U SIGMA Vt) where M = U*SIGMA*Vt. If REDUCED is non-NIL, return the reduced SVD (where either U or V are just partial isometries and not necessarily unitary matrices)." - (let* ((jobu (if reduced "S" "A")) - (jobvt (if reduced "S" "A")) - (rows (nrows m)) - (cols (ncols m)) - (a (alexandria:copy-array (magicl::storage (if (eql :row-major (layout m)) (transpose m) m)))) - (lwork -1) - (info 0) - (k (min rows cols)) - (u-cols (if reduced k rows)) - (vt-rows (if reduced k cols)) - (lda rows) - (s (make-array (min rows cols) :element-type ',(or real-type type))) - (ldu rows) - (ldvt vt-rows) - (work1 (make-array (max 1 lwork) :element-type ',type)) - (work nil) - ,@(when real-type - `((rwork (make-array (* 5 (min rows cols)) :element-type ',real-type))))) - (let ((u (make-array (* ldu rows) :element-type ',type)) - (vt (make-array (* ldvt cols) :element-type ',type))) - ;; run it once as a workspace query - (,svd-function jobu jobvt rows cols a lda s u ldu vt ldvt - work1 lwork ,@(when real-type `(rwork)) info) (setf lwork (round (realpart (aref work1 0)))) (setf work (make-array (max 1 lwork) :element-type ',type)) - ;; run it again with optimal workspace size - (,svd-function jobu jobvt rows cols a lda s u ldu vt ldvt - work lwork ,@(when real-type `(rwork)) info) - (let ((smat (make-array (* u-cols vt-rows) :element-type ',(or real-type type)))) - (dotimes (i k) - (setf (aref smat (magicl::matrix-column-major-index i i u-cols vt-rows)) - (aref s i))) - (values (from-array u (list rows u-cols) :input-layout :column-major) - (from-array smat (list u-cols vt-rows) :input-layout :column-major) - (from-array vt (list vt-rows cols) :input-layout :column-major)))))))) + ;; Perform actual operation with correct work size + (,inv-function + n + a + m + ipiv + work + lwork + info)) + (values (from-array a (shape a-tensor) :input-layout :column-major)))))) -;; TODO: This returns only the real parts when with non-complex numbers. Should do something different? -(defun generate-lapack-eig-for-type (class type eig-function &optional real-type) - `(progn - (defmethod magicl:eig ((m ,class)) - (lapack-eig m)) +(defun generate-lapack-svd-for-type (class type svd-function &optional real-type) + `(defmethod lapack-svd ((m ,class) &key reduced) + "Find the SVD of a matrix M. Return (VALUES U SIGMA Vt) where M = U*SIGMA*Vt. If REDUCED is non-NIL, return the reduced SVD (where either U or V are just partial isometries and not necessarily unitary matrices)." + (let* ((jobu (if reduced "S" "A")) + (jobvt (if reduced "S" "A")) + (rows (nrows m)) + (cols (ncols m)) + (a (alexandria:copy-array (magicl::storage (if (eql :row-major (layout m)) (transpose m) m)))) + (lwork -1) + (info 0) + (k (min rows cols)) + (u-cols (if reduced k rows)) + (vt-rows (if reduced k cols)) + (lda rows) + (s (make-array (min rows cols) :element-type ',(or real-type type))) + (ldu rows) + (ldvt vt-rows) + (work1 (make-array (max 1 lwork) :element-type ',type)) + (work nil) + ,@(when real-type + `((rwork (make-array (* 5 (min rows cols)) :element-type ',real-type))))) + (let ((u (make-array (* ldu rows) :element-type ',type)) + (vt (make-array (* ldvt cols) :element-type ',type))) + ;; run it once as a workspace query + (,svd-function jobu jobvt rows cols a lda s u ldu vt ldvt + work1 lwork ,@(when real-type `(rwork)) info) + (setf lwork (round (realpart (aref work1 0)))) + (setf work (make-array (max 1 lwork) :element-type ',type)) + ;; run it again with optimal workspace size + (,svd-function jobu jobvt rows cols a lda s u ldu vt ldvt + work lwork ,@(when real-type `(rwork)) info) + (let ((smat (make-array (* u-cols vt-rows) :element-type ',(or real-type type)))) + (dotimes (i k) + (setf (aref smat (magicl::matrix-column-major-index i i u-cols vt-rows)) + (aref s i))) + (values (from-array u (list rows u-cols) :input-layout :column-major) + (from-array smat (list u-cols vt-rows) :input-layout :column-major) + (from-array vt (list vt-rows cols) :input-layout :column-major))))))) - (defmethod lapack-eig ((m ,class)) - (policy-cond:with-expectations (> speed safety) - ((assertion (square-matrix-p m))) - (let ((rows (nrows m)) - (cols (ncols m)) - (a-tensor (deep-copy-tensor m))) - (when (eql :row-major (layout m)) (transpose! a-tensor)) - (let ((jobvl "N") - (jobvr "V") - (a (magicl::storage a-tensor)) - ,@(if real-type - `((w (make-array rows :element-type ',type))) - `((wr (make-array rows :element-type ',type)) - (wi (make-array rows :element-type ',type)))) - (vl (make-array rows :element-type ',type)) - (vr (make-array (* rows rows) :element-type ',type)) - (lwork -1) - (info 0) - ,@(when real-type - `((rwork (make-array (* 2 rows) :element-type ',real-type))))) - (let ((work (make-array (max 1 lwork) :element-type ',type))) - ;; run it once as a workspace query - (,eig-function jobvl jobvr rows a rows ,@(if real-type `(w) `(wr wi)) - vl 1 vr rows work lwork ,@(when real-type `(rwork)) info) - (setf lwork (truncate (realpart (row-major-aref work 0)))) - (setf work (make-array (max 1 lwork) :element-type ',type)) - ;; run it again with optimal workspace size - (,eig-function jobvl jobvr rows a rows ,@(if real-type `(w) `(wr wi)) - vl 1 vr rows work lwork ,@(when real-type `(rwork)) info) - (values (coerce ,@(if real-type `(w) `(wr)) 'list) (from-array vr (list rows cols) :input-layout :column-major))))))))) +;; TODO: This returns only the real parts when with non-complex +;; numbers. Should do something different? +(defun generate-lapack-eig-for-type (class type eig-function &optional real-type) + ` (defmethod lapack-eig ((m ,class)) + (policy-cond:with-expectations (> speed safety) + ((assertion (square-matrix-p m))) + (let ((rows (nrows m)) + (cols (ncols m)) + (a-tensor (deep-copy-tensor m))) + (when (eql :row-major (layout m)) (transpose! a-tensor)) + (let ((jobvl "N") + (jobvr "V") + (a (magicl::storage a-tensor)) + ,@(if real-type + `((w (make-array rows :element-type ',type))) + `((wr (make-array rows :element-type ',type)) + (wi (make-array rows :element-type ',type)))) + (vl (make-array rows :element-type ',type)) + (vr (make-array (* rows rows) :element-type ',type)) + (lwork -1) + (info 0) + ,@(when real-type + `((rwork (make-array (* 2 rows) :element-type ',real-type))))) + (let ((work (make-array (max 1 lwork) :element-type ',type))) + ;; run it once as a workspace query + (,eig-function jobvl jobvr rows a rows ,@(if real-type `(w) `(wr wi)) + vl 1 vr rows work lwork ,@(when real-type `(rwork)) info) + (setf lwork (truncate (realpart (row-major-aref work 0)))) + (setf work (make-array (max 1 lwork) :element-type ',type)) + ;; run it again with optimal workspace size + (,eig-function jobvl jobvr rows a rows ,@(if real-type `(w) `(wr wi)) + vl 1 vr rows work lwork ,@(when real-type `(rwork)) info) + (values (coerce ,@(if real-type `(w) `(wr)) 'list) (from-array vr (list rows cols) :input-layout :column-major)))))))) (defun generate-lapack-hermitian-eig-for-type (class type eig-function real-type) - `(progn - (defmethod magicl:hermitian-eig ((m ,class)) - (lapack-hermitian-eig m)) - - (defmethod lapack-hermitian-eig ((m ,class)) - (policy-cond:with-expectations (> speed safety) - ((assertion (square-matrix-p m)) - (assertion (hermitian-matrix-p m))) - (let ((rows (nrows m)) - (a-tensor (deep-copy-tensor m))) - (when (eql :row-major (layout m)) (transpose! a-tensor)) - (let ((jobz "V") - (uplo "U") - (n rows) - (a (magicl::storage a-tensor)) - (lda rows) - (w (make-array rows :element-type ',real-type)) - (work (make-array 1 :element-type ',type)) - (lwork -1) - (rwork (make-array (- (* 3 rows) 2) :element-type ',real-type)) - (info 0)) - ;; run it once as a workspace query - (,eig-function jobz uplo n a lda w work lwork rwork info) - (setf lwork (truncate (realpart (row-major-aref work 0)))) - (setf work (make-array (max 1 lwork) :element-type ',type)) - ;; run it again with optimal workspace size - (,eig-function jobz uplo n a lda w work lwork rwork info) - (values (coerce w 'list) a-tensor))))))) + `(defmethod lapack-hermitian-eig ((m ,class)) + (policy-cond:with-expectations (> speed safety) + ((assertion (square-matrix-p m)) + (assertion (hermitian-matrix-p m))) + (let ((rows (nrows m)) + (a-tensor (deep-copy-tensor m))) + (when (eql :row-major (layout m)) (transpose! a-tensor)) + (let ((jobz "V") + (uplo "U") + (n rows) + (a (magicl::storage a-tensor)) + (lda rows) + (w (make-array rows :element-type ',real-type)) + (work (make-array 1 :element-type ',type)) + (lwork -1) + (rwork (make-array (- (* 3 rows) 2) :element-type ',real-type)) + (info 0)) + ;; run it once as a workspace query + (,eig-function jobz uplo n a lda w work lwork rwork info) + (setf lwork (truncate (realpart (row-major-aref work 0)))) + (setf work (make-array (max 1 lwork) :element-type ',type)) + ;; run it again with optimal workspace size + (,eig-function jobz uplo n a lda w work lwork rwork info) + (values (coerce w 'list) a-tensor)))))) ;; TODO: implement row-major checks in these functions (defun generate-lapack-ql-qr-rq-lq-for-type (class type ql-function qr-function rq-function lq-function ql-q-function qr-q-function rq-q-function lq-q-function) `(progn - (defmethod magicl:qr ((m ,class)) + (defmethod qr-extension ((m ,class)) (policy-cond:with-expectations (> speed safety) ;; Needed for LAPACK-QR to do its job. In principle DGEQRF ;; doesn't impose this, but the results are represented @@ -319,8 +300,8 @@ (setf (tref r j i) (- (tref r j i)))) (setf (tref q i j) (- (tref q i j))))))) (values q r)))))) - - (defmethod magicl:ql ((m ,class)) + + (defmethod ql-extension ((m ,class)) (policy-cond:with-expectations (> speed safety) ;; Similar to the assert for QR above. ((assertion (<= (ncols m) (nrows m)))) @@ -342,7 +323,7 @@ (setf (tref q i j) (- (tref q i j))))))) (values q l)))))) - (defmethod magicl:rq ((m ,class)) + (defmethod rq-extension ((m ,class)) (policy-cond:with-expectations (> speed safety) ;; Similar to the assert for QR above. ((assertion (>= (ncols m) (nrows m)))) @@ -364,7 +345,7 @@ (setf (tref q i j) (- (tref q i j))))))) (values r q)))))) - (defmethod magicl:lq ((m ,class)) + (defmethod lq-extension ((m ,class)) (policy-cond:with-expectations (> speed safety) ;; Similar to the assert for QR above. ((assertion (>= (ncols m) (nrows m)))) @@ -408,7 +389,7 @@ (from-array tau (list (min rows cols)) :type ',type :input-layout :column-major))))) - + (defmethod lapack-ql ((m ,class)) (let* ((rows (nrows m)) (cols (ncols m)) diff --git a/src/high-level/matrix.lisp b/src/high-level/matrix.lisp index a69bdc97..bf808cef 100644 --- a/src/high-level/matrix.lisp +++ b/src/high-level/matrix.lisp @@ -290,12 +290,15 @@ ELEMENT-TYPE, CAST, COPY-TENSOR, DEEP-COPY-TENSOR, TREF, SETF TREF)" (list 0 index) (list (nrows m) (1+ index))))) -(defgeneric mult (a b &key target alpha beta transa transb) - (:documentation "Library users: consider using MAGICL:@ instead. +(define-extensible-function (mult mult-lisp) (a b &key target alpha beta transa transb) + (:documentation + "Library users: consider using MAGICL:@ instead. Multiply a by b, storing in target or creating a new tensor if target is not specified. -Target cannot be the same as a or b.")) +Target cannot be the same as a or b.") + ;; TODO: write a lisp impl of this + ) (defgeneric @ (matrix &rest matrices) (:documentation "Multiplication of matrices") @@ -305,9 +308,9 @@ Target cannot be the same as a or b.")) ;;; Generic matrix methods -(defgeneric direct-sum (a b) +(define-extensible-function (direct-sum direct-sum-lisp) (a b) + (:documentation "Compute the direct sum of A and B") (:method ((a matrix) (b matrix)) - "Compute the direct sum of A and B" (let* ((arows (nrows a)) (acols (ncols a)) (brows (nrows b)) @@ -324,7 +327,7 @@ Target cannot be the same as a or b.")) (setf (tref result r c) (tref b (- r arows) (- c acols))))) result))) -(defgeneric kron (a b &rest rest) +(define-extensible-function (kron kron-lisp) (a b &rest rest) (:documentation "Compute the Kronecker product of A and B") (:method (a b &rest rest) (let ((ma (nrows a)) @@ -338,7 +341,7 @@ Target cannot be the same as a or b.")) (empty (list (* ma mb) (* na nb)) :type '(complex double-float)))))))) -(defgeneric transpose! (matrix &key fast) +(define-extensible-function (transpose! transpose!-lisp) (matrix &key fast) (:documentation "Transpose MATRIX, replacing the elements of MATRIX, optionally performing a faster change of layout if FAST is specified") (:method ((matrix matrix) &key fast) "Transpose a matrix by copying values. @@ -361,7 +364,7 @@ If FAST is t then just change layout. Fast can cause problems when you want to m (rotatef (matrix-ncols matrix) (matrix-nrows matrix)))) matrix)) -(defgeneric transpose (matrix) +(define-extensible-function (transpose transpose-lisp) (matrix) (:documentation "Create a new matrix containing the transpose of MATRIX") (:method ((matrix matrix)) "Transpose a matrix by copying values. @@ -382,7 +385,7 @@ If fast is t then just change layout. Fast can cause problems when you want to m new-matrix))) ;; TODO: allow setf on matrix diag -(defgeneric diag (matrix) +(define-extensible-function (diag diag-lisp) (matrix) (:documentation "Get a list of the diagonal elements of MATRIX") (:method ((matrix matrix)) (policy-cond:with-expectations (> speed safety) @@ -391,7 +394,7 @@ If fast is t then just change layout. Fast can cause problems when you want to m (loop :for i :below rows :collect (tref matrix i i)))))) -(defgeneric trace (matrix) +(define-extensible-function (trace trace-lisp) (matrix) (:documentation "Get the trace of MATRIX (sum of diagonals)") (:method ((matrix matrix)) (policy-cond:with-expectations (> speed safety) @@ -399,7 +402,7 @@ If fast is t then just change layout. Fast can cause problems when you want to m (loop :for i :below (nrows matrix) :sum (tref matrix i i))))) -(defgeneric det (matrix) +(define-extensible-function (det det-lisp) (matrix) (:documentation "Compute the determinant of a square matrix MATRIX") (:method ((matrix matrix)) (policy-cond:with-expectations (> speed safety) @@ -413,7 +416,7 @@ If fast is t then just change layout. Fast can cause problems when you want to m (setq d (- d)))) d))))) -(defgeneric upper-triangular (matrix &key square) +(define-extensible-function (upper-triangular upper-triangular-lisp) (matrix &key square) (:documentation "Get the upper triangular portion of the matrix. If :SQUARE is T, then the result will be restricted to the upper rightmost square submatrix of the input.") @@ -433,7 +436,7 @@ If :SQUARE is T, then the result will be restricted to the upper rightmost squar ;;; Synonym for upper-triangular (setf (fdefinition 'triu) #'upper-triangular) -(defgeneric lower-triangular (matrix &key square) +(define-extensible-function (lower-triangular lower-triangular-lisp) (matrix &key square) (:documentation "Get the lower triangular portion of the matrix. If :SQUARE is T, then the result will be restricted to the lower leftmost square submatrix of the input.") @@ -453,81 +456,54 @@ If :SQUARE is T, then the result will be restricted to the lower leftmost square ;;; Synonym for lower-triangular (setf (fdefinition 'tril) #'lower-triangular) -(defgeneric conjugate-transpose (matrix) +(define-extensible-function (conjugate-transpose conjugate-transpose-lisp) (matrix) (:documentation "Compute the conjugate transpose of a matrix") (:method ((matrix matrix)) (map #'conjugate (transpose matrix)))) (setf (fdefinition 'dagger) #'conjugate-transpose) -(defgeneric conjugate-transpose! (matrix) +(define-extensible-function (conjugate-transpose! conjugate-transpose!-lisp) (matrix) (:documentation "Compute the conjugate transpose of a matrix, replacing the elements") (:method ((matrix matrix)) (map! #'conjugate (transpose! matrix)))) (setf (fdefinition 'dagger!) #'conjugate-transpose!) -(defgeneric eig (matrix) - (:documentation "Find the (right) eigenvectors and corresponding eigenvalues of a square matrix M. Returns a list and a tensor (EIGENVALUES, EIGENVECTORS)") - (:method ((matrix matrix)) - (declare (ignore matrix)) - (error "EIG is not defined for the generic matrix type."))) +(define-backend-function eig (matrix) + "Find the (right) eigenvectors and corresponding eigenvalues of a square matrix M. Returns a list and a tensor (EIGENVALUES, EIGENVECTORS)") -(defgeneric lu (matrix) - (:documentation "Get the LU decomposition of MATRIX. Returns two tensors (LU, IPIV)") - (:method ((matrix matrix)) - (declare (ignore matrix)) - (error "LU is not defined for the generic matrix type."))) +(define-backend-function lu (matrix) + "Get the LU decomposition of MATRIX. Returns two tensors (LU, IPIV)") ;; TODO: Make this one generic and move to lapack-macros ;; This is being blocked by the ZUNCSD shenanigans -(defgeneric csd (matrix p q) - (:documentation "Find the Cosine-Sine Decomposition of a matrix X given that it is to be partitioned with upper left block of dimension P-by-Q. Returns the CSD elements (VALUES U SIGMA VT) such that X=U*SIGMA*VT.") - (:method ((matrix matrix) p q) - (declare (ignore matrix p q)) - (error "CSD is not defined for the generic matrix type."))) - -(defgeneric inv (matrix) - (:documentation "Get the inverse of the matrix") - (:method ((matrix matrix)) - (declare (ignore matrix)) - (error "INV is not defined for the generic matrix type."))) +(define-backend-function csd (matrix p q) + "Find the Cosine-Sine Decomposition of a matrix X given that it is to be partitioned with upper left block of dimension P-by-Q. Returns the CSD elements (VALUES U SIGMA VT) such that X=U*SIGMA*VT.") -(defgeneric svd (matrix &key reduced) - (:documentation "Find the SVD of a matrix M. Return (VALUES U SIGMA Vt) where M = U*SIGMA*Vt") - (:method ((matrix matrix) &key reduced) - (declare (ignore matrix reduced)) - (error "SVD is not defined for the generic matrix type."))) +(define-backend-function inv (matrix) + "Get the inverse of the matrix") -(defgeneric qr (matrix) - (:documentation "Finds the QR factorization of MATRIX. Returns two matrices (Q, R). +(define-backend-function svd (matrix &key reduced) + "Find the SVD of a matrix M. Return (VALUES U SIGMA Vt) where M = U*SIGMA*Vt") -NOTE: If MATRIX is not square, this will compute the reduced QR factoriation.") - (:method ((matrix matrix)) - (declare (ignore matrix)) - (error "QR is not defined for the generic matrix type."))) +(define-backend-function qr (matrix) + "Finds the QR factorization of MATRIX. Returns two matrices (Q, R). -(defgeneric ql (matrix) - (:documentation "Finds the QL factorization of MATRIX. Returns two matrices (Q, L). +NOTE: If MATRIX is not square, this will compute the reduced QR factorization.") -NOTE: If MATRIX is not square, this will compute the reduced QL factoriation.") - (:method ((matrix matrix)) - (declare (ignore matrix)) - (error "QL is not defined for the generic matrix type."))) +(define-backend-function ql (matrix) + "Finds the QL factorization of MATRIX. Returns two matrices (Q, L). -(defgeneric rq (matrix) - (:documentation "Finds the RQ factorization of MATRIX. Returns two matrices (R, Q). +NOTE: If MATRIX is not square, this will compute the reduced QL factorization.") -NOTE: If MATRIX is not square, this will compute the reduced RQ factoriation.") - (:method ((matrix matrix)) - (declare (ignore matrix)) - (error "RQ is not defined for the generic matrix type."))) +(define-backend-function rq (matrix) + "Finds the RQ factorization of MATRIX. Returns two matrices (R, Q). -(defgeneric lq (matrix) - (:documentation "Finds the LQ factorization of MATRIX. Returns two matrices (L, Q). +NOTE: If MATRIX is not square, this will compute the reduced RQ factorization.") -NOTE: If MATRIX is not square, this will compute the reduced LQ factoriation.") - (:method ((matrix matrix)) - (declare (ignore matrix)) - (error "LQ is not defined for the generic matrix type."))) +(define-backend-function lq (matrix) + "Finds the LQ factorization of MATRIX. Returns two matrices (L, Q). + +NOTE: If MATRIX is not square, this will compute the reduced LQ factorization.") (define-backend-function expm (matrix) "Computes the exponential of a square matrix M.") From 09b39d8b1028c364933a9858df9f621787e69656 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 20:37:42 -0700 Subject: [PATCH 23/46] better docs --- README.md | 64 ++++++++++++++----- doc/dev-how-to.md | 157 +++++++++++++++++++++++++++++++++++----------- 2 files changed, 172 insertions(+), 49 deletions(-) diff --git a/README.md b/README.md index c1c32ab7..8210c12e 100755 --- a/README.md +++ b/README.md @@ -8,7 +8,10 @@ _Matrix Algebra proGrams In Common Lisp_ by [Rigetti Computing](http://www.riget MAGICL has two main systems: -- `MAGICL/CORE`: This is pure Lisp code with no foreign dependencies. +- `MAGICL/CORE`: This is pure Lisp code with no foreign +dependencies. This system establishes the API of the library nearly +completely.. + - `MAGICL`: This is the core MAGICL with all extensions loaded. The system `MAGICL/CORE` requires: @@ -19,8 +22,8 @@ The system `MAGICL/CORE` requires: The system `MAGICL`, on the other hand, requires several foreign dependencies not shipped with MAGICL, like: - * libffi - * BLAS and LAPACK +- libffi +- BLAS and LAPACK Detailed instructions on how to install `libffi` and BLAS/LAPACK can be found [here](doc/requirements.md). @@ -56,12 +59,12 @@ For backwards compatibility, `MAGICL` loads every extension under the kitchen sink. **This may change in future versions of MAGICL!** If you use extensions, you'll need the requisite C/Fortran -libraries. Expokit will automatically build for you, as it's included -in the distribution of MAGICL. +libraries. Expokit will automatically build for you, as its source is +included in the distribution of MAGICL. ### Backends -New functionality is installed with a notion called "backends". A +Accelerated functionality is installed with a notion called "backends". A *backend* is a name of a group of functionality, typically denoted by a symbol or keyword. The `:lisp` backend is the defualt one, and several backends can be active all at once. Each extension above adds @@ -74,23 +77,56 @@ a new backend. The current backends are: In most cases, one does not need to concern themselves with backends; MAGICL functionality should "just work" and dispatch to the -appropriate backend. +appropriate backend. However, the programmer always has control, even +dynamically in the program, of which backends should be used at a +given time with the `magicl.backends:with-backends` macro. For instance, + +``` +(magicl.backends:with-backends (:blas :lisp) + ;; ... code ... + ) +``` + +says that the code should be executed, always preferring +`:blas`-accelerated functions, and using `:lisp`-implemented functions +as a fall-back. + +``` +(magicl.backends:with-backends (:lisp) + ;; ... code ... + ) +``` + +says to *only* use `:lisp`-implemented functions, even if other +backends are loaded. + The active backends can be found with the function `magicl.backends:active-backends`, which lists the backends to use in -priority order. One can limit the backends in use over a dynamic scope -with the macro `magicl.backends:with-backends`. +priority order. -Given a function `f` which has many backend implementations, one can -get a specific implementation by using the function +One can be even finer-grained than `with-backends`. Given a function +`f` which has many backend implementations, one can get a specific +implementation by using the function: ``` (magicl.backends:backend-implementation 'f :backend-name) ``` -If both the function name and the backend name are (quoted) constants, -this will be looked up at compile-time, which is useful for writing -efficient code. +For instance + +``` +(magicl.backends:backend-implementation 'magicl:csd :lapack) +``` + +will give the implementation of the cosine-sine decomposition function +in LAPACK. This can be called in exactly the same way `magicl:csd` can +be called. + +In `backend-implementation`, if both the function name and the backend +name are (quoted) constants, this will be looked up at compile-time, +which is useful for writing efficient code that does not dispatch. But +note that by doing this, `with-backends` will not be respected. ## Testing MAGICL diff --git a/doc/dev-how-to.md b/doc/dev-how-to.md index 1ed793cb..eeb9184f 100644 --- a/doc/dev-how-to.md +++ b/doc/dev-how-to.md @@ -8,34 +8,72 @@ So, you'd like to improve MAGICL. The first question to answer is, "what is the scope of the improvement?" We offer here a few different scenarios to help you get started. +- Writing a new function + +- Implementing a backend for an existing function + +- Implementing a new extension and backend + +The following sections describe these scenarios. + + ## Writing a New Function If you want to add an entirely new linear algebra routine, then there are a few decisions to make. In this section, let's suppose we are -implementing `matmul` for matrix multiplication. +implementing `matmul` for matrix multiplication. (This is already +implemented, of course, as `magicl:@` and `magicl:mult`.) + +The first decision is: + +> Should the routine support being implemented with different backends? + +Allowing for different backends in turn allows the function to be +implemented in various ways. For instance, we could implement a native +Lisp matmul as well as a LAPACK-accelerated one, so it seems our +answer is "yes" to this question. (With that said, not all functions +are deserving of such extension. For instance, more likely than not, a +"double matrix" function can be implemented cleanly using existing +MAGICL primitives. With that said, it's always possible to take a +non-extensible function and turn it into an extensible one.) -The first decision is: Should the routine support being implemented -with different backends? If yes, then you'll want to begin with a -*backend function definition*. a **backend function** is sort of like -a Common Lisp generic function. Backend functions themselves don't -actually implement anything, they instead just stipulate the existence -and documented behavior of a function. For our exmaple, we'd write (in -the `MAGICL` package): +Since we answered yes, you'll want to begin with a *backend function +definition*. a **backend function** is sort of like a Common Lisp +generic function in that it can have multiple implementations. Backend +functions themselves don't actually implement anything, they instead +just stipulate the existence and documented behavior of a +function. For our example, we'd write (in the `MAGICL` package): ``` (define-backend-function matmul (a b) "Multiply the matrices A and B.") ``` -The second decision is: Do we want to implement this function with -CLOS extensibility in mind, or can it be written in pure MAGICL code? -Frequently, it's possible to do things more efficiently if you, say, -know you're working with `double-float` matrices. The cleanest way to -do this is to define a generic function and implement methods on -it. Since we will use this generic function to implement our backend -function, we need to tell it what to do if there are no methods found -for the generic function, and to continue searching in the next -backend. We can do this like so: +This would be the public-facing function that users could use and +refer to. What's next is to actually implement it, but we have another +decision to make about the implementation. + +The second decision is: + +> Do we want to implement this function with CLOS extensibility in +mind? + +There are several reasons one might want CLOS extensibility. A few are: + +1. You want a polymorphic function. For instance, we might instead +want `matmul` to work on `MATRIX`/`MATRIX` and `MATRIX`/`VECTOR` +arguments. It is trivial to do this with a pair of CLOS methods. + +2. You want dispatch on the matrix element type, e.g., +`MATRIX/DOUBLE-FLOAT`, for efficiency. It is trivial to dispatch on +this in a CLOS method. + +In any case, suppose we decide to implement `matmul` with a generic +function. What should be the behavior if a method is not found for a +given set of arguments? Typically, this would result in an error, but +in our case, we'd like to have MAGICL continue searching for +alternative implementations of `matmul`. We can do this by "defining +MAGICL-compatible behavior" on the generic function, like so: ``` (define-compatible-no-applicable-method-behavior matmul-lisp) @@ -45,29 +83,43 @@ backend. We can do this like so: )) ``` -Now we can tell MAGICL that `matmul-lisp` implements `matmul` in the +Without the `define-compat...` line, a failure to find the method will +ultimately be a failure of `matmul` itself. + +Note that in this case, we had to name the generic function something +other than `matmul`. Indeed, `matmul` (as defined by +`define-backend-function`) is a true function. + +Finally, we can tell MAGICL that `matmul-lisp` implements `matmul` in the `:lisp` backend like so: ``` (define-backend-implementation matmul :lisp 'matmul-lisp) ``` -In the BLAS extension, we might write: +If we wanted to accelerate `matmul` with BLAS, we could implement +`matmul` in the BLAS extension. There, we might write: ``` -(define-compatible-no-applicable-method-behavior matmul-blas) -(defgeneric matmul-lapack (a b) +(magicl:define-compatible-no-applicable-method-behavior matmul-blas) +(defgeneric matmul-blas (a b) (:method ((a matrix/double-float) (b matrix/double-float)) ;; ... )) -(define-backend-implementation matmul :lapack 'matmul-blas) +(magicl:define-backend-implementation magicl:matmul :blas 'matmul-blas) ``` -In this scenario, we've presented *two* extension points for `matmul`: +Note that we did *not* use the `matmul-lisp` generic function and +instead created another one specifically for use within BLAS, and in +this case, the BLAS-accelerated function only works for +`matrix/double-float`. + +In total, we've presented *two* extension points for `matmul`: 1. We can extend it with new _backend implementations_. For instance, BLAS offers matrix multiplication, and we could implement it with the -`:lapack` backend. +`:blas` backend, like shown above. We can implement `matmul` in any +number of backends this way. 2. We can extend the Lisp implementation by writing additional methods on the generic function `matmul-lisp`. We might want to do this if we @@ -76,6 +128,13 @@ that in good coding style, `matmul-lisp` should always conform to the documentation of the _backend function_, **not** the _generic function_. +**Important**: Do _not_ write methods in extensions! Methods are *not* +the way to extend functionality for different backends. Using methods +like this is problematic because extensions might inadvertently +overwrite one another's methods. Instead, we recommend limiting the +scope of a generic function to a extension or backend, as described +above. + If we wanted to forego making a generic function, we can instead just write a lambda directly in the backend implementation: @@ -87,18 +146,14 @@ write a lambda directly in the backend implementation: )) ``` -Of course, if no extensibility is desired whatsoever, one can just write - -**Important**: Do _not_ use generic functions for which methods are -implemented in extensions. This is problematic because extensions -might inadvertently overwrite one another's methods. Instead, we -recommend limiting the scope of a generic function to a backend, as -described above. +### Conveniently Defining Extensible Functions -For convenience, one can use `define-extensible-function` in MAGICL to -do the ceremony of defining the backend function, defining compatible -method behavior, and defining a generic function implementing the -backend function for `:lisp` (or any other backend): +This pattern of defining a generic function as an implementation of a +backend function is common. For convenience, one can use +`define-extensible-function` in MAGICL to do the ceremony of defining +the backend function, defining compatible method behavior, and +defining a generic function implementing the backend function for +`:lisp` (or any other backend): ``` ;; in MAGICL core @@ -106,7 +161,17 @@ backend function for `:lisp` (or any other backend): (:method (a b) ;; ... )) +``` + +The syntax mostly follows `defgeneric`, except that you need to +specify two names. The above code makes the `matmul` backend function +as implemented by the `matmul-lisp` generic function. +Later on, when implementing the BLAS accelerated `matmul`, we can use +`define-extensible-function` and specify the backend we're defining it +for. + +``` ;; in BLAS extension (define-extensible-function (matmul matmul-blas :blas) (a b) (:method (a b) @@ -114,6 +179,22 @@ backend function for `:lisp` (or any other backend): )) ``` +The critical difference is that since the backend is *not* `:lisp`, +`define-extensible-function` will *not* (re-)create the backend +function. + + +## Implementing a Backend for an Existing Function + +Implementing a backend for an existing function is easy, assuming that +function is already a "backend function". The previous section covers +this, except it's not necessary to make the backend function to begin +with. + +It is imperative that the implementation of the function follows the +semantics described in the function's documentation. + + ## Writing an Extension Extensions are intended to add "foreign" functionality to MAGICL that @@ -121,6 +202,12 @@ can't be achieved with pure Lisp. For instance, binding to C or Fortran code should be done in an extension. If the code you intend to write is pure Lisp, then an extension is probably not appropriate. +As a matter of terminology, an **extension** is a module of code that +can be loaded after `MAGICL/CORE` is loaded, and a **backend** is a +symbol that is used to discriminate between different implementations +of a given function. Most often, an extension will define a new +backend. + Let's suppose we are making an extension called `FOO`. You'll need to create a new ASDF system. In `magicl.asd`, add `#:magicl/ext-foo` and create a folder `src/extensions/foo`. (If you see it as a good From a1fbd9982a5fb6b38cc601d8021408fee09b5e94 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sat, 20 Mar 2021 20:45:18 -0700 Subject: [PATCH 24/46] fix typos --- doc/dev-how-to.md | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/doc/dev-how-to.md b/doc/dev-how-to.md index eeb9184f..81324c5f 100644 --- a/doc/dev-how-to.md +++ b/doc/dev-how-to.md @@ -128,12 +128,12 @@ that in good coding style, `matmul-lisp` should always conform to the documentation of the _backend function_, **not** the _generic function_. -**Important**: Do _not_ write methods in extensions! Methods are *not* -the way to extend functionality for different backends. Using methods -like this is problematic because extensions might inadvertently -overwrite one another's methods. Instead, we recommend limiting the -scope of a generic function to a extension or backend, as described -above. +**Important**: Do _not_ write generic functions in `MAGICL/CORE` and +methods in extensions! Methods are *not* the way to extend +functionality for different backends. Using methods like this is +problematic because extensions might inadvertently overwrite one +another's definitions. Instead, we recommend limiting the scope of a +generic function to an extension or backend, as described above. If we wanted to forego making a generic function, we can instead just write a lambda directly in the backend implementation: From c14c140f930f0954b60f2b0104c0e284c17f834b Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sun, 21 Mar 2021 22:10:01 -0700 Subject: [PATCH 25/46] check symbol's package more directly --- src/backend-function.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/backend-function.lisp b/src/backend-function.lisp index e0706399..17cb48a9 100644 --- a/src/backend-function.lisp +++ b/src/backend-function.lisp @@ -188,7 +188,7 @@ If you need fine-grained control over the backends selected, you may instead dir Backend implementations are defined with DEFINE-BACKEND-IMPLEMENTATION." (check-type name symbol) (check-type doc (or null string)) - (unless (string= "MAGICL" (package-name *package*)) + (unless (eq (symbol-package name) (find-package "MAGICL")) (warn "Defining a backend function ~S in ~ a package that's not MAGICL. Are you sure?" name)) From 2c44830c2911a684df381d98094205dc8a8cb507 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sun, 21 Mar 2021 22:11:09 -0700 Subject: [PATCH 26/46] only generate backend-function if it doesn't exist --- doc/dev-how-to.md | 34 +++++++++++++++++++++++++++++++--- src/high-level/util.lisp | 4 +--- 2 files changed, 32 insertions(+), 6 deletions(-) diff --git a/doc/dev-how-to.md b/doc/dev-how-to.md index 81324c5f..1f0b9596 100644 --- a/doc/dev-how-to.md +++ b/doc/dev-how-to.md @@ -17,6 +17,36 @@ scenarios to help you get started. The following sections describe these scenarios. +## Writing a New Function - Quick and Lazy Guide + +This is the quick and lazy explanation. See the next section for the +full explanation. + +Let's say we want to add a fused multiply-add function called +`fma`. All we need to do is write: + +``` +(define-extensible-function (fma fma-lisp) (a x b) + (:method (a x b) + (+ b (* a x)))) +``` + +This defines `fma` as the main API function, and `fma-lisp` as the +generic function implementing `fma`. If we want to implement `fma` in +a specific backend, we can use the same form, but adding the backend's +name as an option. For example, if we are implementing this function +with BLAS acceleration, we can specify the `:blas` backend: + +``` +(define-extensible-function (fma fma-blas :blas) (a x b) + (:method (a x b) + (some-funny-blas-function a x b))) +``` + +For a full explanation of this, as well as different and possibly more +efficient ways of doing this, see the next section. + + ## Writing a New Function If you want to add an entirely new linear algebra routine, then there @@ -179,9 +209,7 @@ for. )) ``` -The critical difference is that since the backend is *not* `:lisp`, -`define-extensible-function` will *not* (re-)create the backend -function. +In general, we suggest always having a pure Lisp version if feasible. ## Implementing a Backend for an Existing Function diff --git a/src/high-level/util.lisp b/src/high-level/util.lisp index a1939cbd..45289b5d 100644 --- a/src/high-level/util.lisp +++ b/src/high-level/util.lisp @@ -103,9 +103,7 @@ nil (second doc-option)))) `(progn - ;; Only define backend functions for :LISP. We don't want to - ;; re-generate these for other backends. - ,@(when (eq backend :lisp) + ,@(unless (magicl.backends:backend-function-p fun-name) (list `(define-backend-function ,fun-name ,lambda-list ,@(if doc-string (list doc-string))))) (define-compatible-no-applicable-method-behavior ,fun-name-backend) From 163c1322bd6de909b31d4101c9e678261934e49a Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sun, 21 Mar 2021 22:17:02 -0700 Subject: [PATCH 27/46] fix bug in non-quoted uninterned symbol --- src/backend-function.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/backend-function.lisp b/src/backend-function.lisp index 17cb48a9..10f873d6 100644 --- a/src/backend-function.lisp +++ b/src/backend-function.lisp @@ -144,7 +144,7 @@ If you need fine-grained control over the backends selected, you may instead dir (and (symbolp x) (fboundp x) (not (eq '#1=#:not-found - (getf (symbol-plist x) +backends-key+ #1#))))) + (getf (symbol-plist x) +backends-key+ '#1#))))) (defun initialize-function-for-implementations (x) (check-type x symbol) From a1eb8e3b1f8913893d5327726df23c0cae80d934 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sun, 21 Mar 2021 22:17:33 -0700 Subject: [PATCH 28/46] clean up expokit packages --- src/extensions/expokit/package.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/extensions/expokit/package.lisp b/src/extensions/expokit/package.lisp index acde4e72..72ac5ba1 100644 --- a/src/extensions/expokit/package.lisp +++ b/src/extensions/expokit/package.lisp @@ -1,7 +1,5 @@ (defpackage #:magicl.expokit-cffi - (:use) - #-package-local-nicknames - (:nicknames #:expokit)) + (:use)) (defpackage #:magicl-transcendental.foreign-libraries (:use #:common-lisp) @@ -9,5 +7,4 @@ (defpackage #:magicl-transcendental (:use #:common-lisp - #:cffi) - (:export)) + #:cffi)) From 688310f806b6eb7b128479960275912625fc0496 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sun, 21 Mar 2021 22:19:25 -0700 Subject: [PATCH 29/46] fix docs typos --- src/high-level/matrix.lisp | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/src/high-level/matrix.lisp b/src/high-level/matrix.lisp index bf808cef..8721f9dc 100644 --- a/src/high-level/matrix.lisp +++ b/src/high-level/matrix.lisp @@ -196,27 +196,29 @@ ELEMENT-TYPE, CAST, COPY-TENSOR, DEEP-COPY-TENSOR, TREF, SETF TREF)" (set-pprint-dispatch 'matrix 'pprint-matrix) (defun square-matrix-p (matrix) - "Whether the MATRIX is square" + "Is MATRIX square?" (cl:= (nrows matrix) (ncols matrix))) (defun identity-matrix-p (matrix &optional (epsilon *double-comparison-threshold*)) - "Whether MATRIX is an identity matrix" - (unless (square-matrix-p matrix) (return-from identity-matrix-p nil)) + "Is the MATRIX an identity matrix" + (unless (square-matrix-p matrix) + (return-from identity-matrix-p nil)) (map-indexes (shape matrix) (lambda (r c) (unless (<= (abs (- (tref matrix r c) (if (cl:= r c) - 1 0))) + 1 + 0))) epsilon) (return-from identity-matrix-p nil)))) t) (defun unitary-matrix-p (matrix &optional (epsilon *double-comparison-threshold*)) - "Is MATRIX is a unitary matrix?" + "Is MATRIX a unitary matrix?" (identity-matrix-p (@ matrix (conjugate-transpose matrix)) epsilon)) (defun hermitian-matrix-p (matrix &optional (epsilon *double-comparison-threshold*)) - "Is MATRIX is a hermitian matrix?" + "Is MATRIX a hermitian matrix?" (= matrix (conjugate-transpose matrix) epsilon)) (defmacro assert-square-matrix (&rest matrices) From a42fde69ab002eb255e71a929c1b43545569b41d Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sun, 21 Mar 2021 22:30:44 -0700 Subject: [PATCH 30/46] use DEFINE-EXTENSIBLE-FUNCTION for EXPM --- src/extensions/expokit/expm.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/extensions/expokit/expm.lisp b/src/extensions/expokit/expm.lisp index f940e532..093c83cd 100644 --- a/src/extensions/expokit/expm.lisp +++ b/src/extensions/expokit/expm.lisp @@ -4,8 +4,7 @@ (in-package #:magicl-transcendental) -(magicl.backends:define-compatible-no-applicable-method-behavior expm) -(defgeneric expm (matrix) +(magicl:define-extensible-function (magicl:expm expm-expokit :expokit) (matrix) (:method ((m magicl:matrix/complex-double-float)) (let ((ideg 6) (rows (magicl:nrows m)) @@ -46,5 +45,4 @@ (row-major-aref wsp (+ i (1- iexph))))) (values (magicl:from-array exph (list rows rows) :input-layout :column-major)))))))) -(magicl:define-backend-implementation magicl:expm :expokit 'expm) From 0434460cd55e684d98eaae87c700addd69ceaff5 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sun, 21 Mar 2021 22:39:33 -0700 Subject: [PATCH 31/46] delete useless empty :components --- magicl.asd | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/magicl.asd b/magicl.asd index 756fe435..7832bda8 100755 --- a/magicl.asd +++ b/magicl.asd @@ -15,9 +15,7 @@ :depends-on (#:magicl/core #:magicl/ext-blas #:magicl/ext-lapack - #:magicl/ext-expokit) - :serial t - :components ()) + #:magicl/ext-expokit)) (asdf:defsystem #:magicl/core :license "BSD 3-Clause (See LICENSE.txt)" From 2f7794aca55b00778aef80af6832c106187ef62d Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sun, 21 Mar 2021 22:39:48 -0700 Subject: [PATCH 32/46] delete nickname stuff --- src/extensions/blas/package.lisp | 6 +----- src/extensions/lapack/package.lisp | 5 +---- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/src/extensions/blas/package.lisp b/src/extensions/blas/package.lisp index 0006e6a6..af9a38fb 100644 --- a/src/extensions/blas/package.lisp +++ b/src/extensions/blas/package.lisp @@ -1,6 +1,2 @@ - (defpackage #:magicl.blas-cffi - (:use) - #-package-local-nicknames - (:nicknames #:blas)) - + (:use)) diff --git a/src/extensions/lapack/package.lisp b/src/extensions/lapack/package.lisp index 63f49567..94ed2ade 100644 --- a/src/extensions/lapack/package.lisp +++ b/src/extensions/lapack/package.lisp @@ -1,7 +1,5 @@ (defpackage #:magicl.lapack-cffi - (:use) - #-package-local-nicknames - (:nicknames #:lapack)) + (:use)) (defpackage #:magicl-lapack (:use #:cl #:magicl) @@ -29,4 +27,3 @@ #:lapack-rq-q #:lapack-lq-q #:lapack-csd)) - From d9e2722f147879c7b6015164b8286ea29c0078e8 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Sun, 21 Mar 2021 23:45:44 -0700 Subject: [PATCH 33/46] add dummy magicl-transcendental system for backward compat --- magicl-transcendental.asd | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 magicl-transcendental.asd diff --git a/magicl-transcendental.asd b/magicl-transcendental.asd new file mode 100644 index 00000000..006f2d8b --- /dev/null +++ b/magicl-transcendental.asd @@ -0,0 +1,9 @@ +;;; For backwards compatibility + +(asdf:defsystem #:magicl-transcendental + :depends-on (#:magicl/ext-expokit) + :perform (load-op :after (o c) + (declare (ignore o c)) + (warn "MAGICL-TRANSCENDENTAL is deprecated. Use or depend on MAGICL/EXT-EXPOKIT instead."))) + + From 7cce7676639aaee1df63302b7e2a10e6ad174b58 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 00:31:12 -0700 Subject: [PATCH 34/46] make compatible MAGICL-TRANSCENDENTAL package --- magicl-gen.asd | 11 +++++----- magicl-transcendental.asd | 7 +++---- src/bindings/expokit-cffi.lisp | 20 +++++++++---------- src/extensions/expokit/expm.lisp | 2 +- src/extensions/expokit/load-libs.lisp | 4 ++-- src/extensions/expokit/package.lisp | 15 +++++++++++--- .../generate-interface.lisp | 2 +- 7 files changed, 35 insertions(+), 26 deletions(-) diff --git a/magicl-gen.asd b/magicl-gen.asd index 09149209..48b96f5f 100755 --- a/magicl-gen.asd +++ b/magicl-gen.asd @@ -12,9 +12,10 @@ #:cffi-libffi) :serial t :components - ((:file "src/packages") - (:module "transcendental" - :serial t - :components ((:file "package"))) - (:file "src/cffi-types") + ((:file "src/extensions/common/package") + (:file "src/packages") + (:file "src/extensions/blas/package") + (:file "src/extensions/lapack/package") + (:file "src/extensions/expokit/package") + (:file "src/extensions/common/cffi-types") (:file "src/generate-interface/generate-interface"))) diff --git a/magicl-transcendental.asd b/magicl-transcendental.asd index 006f2d8b..be6fc126 100644 --- a/magicl-transcendental.asd +++ b/magicl-transcendental.asd @@ -1,9 +1,8 @@ ;;; For backwards compatibility - +;;; +;;; Please note that the MAGICL-TRANSCENDENTAL package (asdf:defsystem #:magicl-transcendental :depends-on (#:magicl/ext-expokit) :perform (load-op :after (o c) (declare (ignore o c)) - (warn "MAGICL-TRANSCENDENTAL is deprecated. Use or depend on MAGICL/EXT-EXPOKIT instead."))) - - + (warn "System MAGICL-TRANSCENDENTAL is deprecated. Use or depend on system MAGICL/EXT-EXPOKIT instead."))) diff --git a/src/bindings/expokit-cffi.lisp b/src/bindings/expokit-cffi.lisp index 4424e4df..1b658b6c 100644 --- a/src/bindings/expokit-cffi.lisp +++ b/src/bindings/expokit-cffi.lisp @@ -11,7 +11,7 @@ %%ZHPADM %ZHPADM %%DGCHBV %DGCHBV %%DNCHBV %DNCHBV %%DSCHBV %DSCHBV %%ZGCHBV %ZGCHBV %%ZNCHBV %ZNCHBV)) -(CFFI:DEFCFUN ("dgpadm_" %%DGPADM :LIBRARY MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dgpadm_" %%DGPADM :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (IDEG :POINTER) (M :POINTER) @@ -62,7 +62,7 @@ WSP-REF23982 LWSP-REF23983 IPIV-REF23984 IEXPH-REF23985 NS-REF23986 IFLAG-REF23987)))) -(CFFI:DEFCFUN ("dspadm_" %%DSPADM :LIBRARY MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dspadm_" %%DSPADM :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (IDEG :POINTER) (M :POINTER) @@ -113,7 +113,7 @@ WSP-REF23993 LWSP-REF23994 IPIV-REF23995 IEXPH-REF23996 NS-REF23997 IFLAG-REF23998)))) -(CFFI:DEFCFUN ("zgpadm_" %%ZGPADM :LIBRARY MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("zgpadm_" %%ZGPADM :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (IDEG :POINTER) (M :POINTER) @@ -169,7 +169,7 @@ WSP-REF24004 LWSP-REF24005 IPIV-REF24006 IEXPH-REF24007 NS-REF24008 IFLAG-REF24009)))) -(CFFI:DEFCFUN ("zhpadm_" %%ZHPADM :LIBRARY MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("zhpadm_" %%ZHPADM :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (IDEG :POINTER) (M :POINTER) @@ -225,7 +225,7 @@ WSP-REF24015 LWSP-REF24016 IPIV-REF24017 IEXPH-REF24018 NS-REF24019 IFLAG-REF24020)))) -(CFFI:DEFCFUN ("dgchbv_" %%DGCHBV :LIBRARY MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dgchbv_" %%DGCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -266,7 +266,7 @@ (%%DGCHBV M-REF24021 T-REF24022 H-REF24023 LDH-REF24024 Y-REF24025 WSP-REF24026 IWSP-REF24027 IFLAG-REF24028)))) -(CFFI:DEFCFUN ("dnchbv_" %%DNCHBV :LIBRARY MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dnchbv_" %%DNCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -299,7 +299,7 @@ (%%DNCHBV M-REF24029 T-REF24030 H-REF24031 LDH-REF24032 Y-REF24033 WSP-REF24034)))) -(CFFI:DEFCFUN ("dschbv_" %%DSCHBV :LIBRARY MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dschbv_" %%DSCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -340,7 +340,7 @@ (%%DSCHBV M-REF24035 T-REF24036 H-REF24037 LDH-REF24038 Y-REF24039 WSP-REF24040 IWSP-REF24041 IFLAG-REF24042)))) -(CFFI:DEFCFUN ("zgchbv_" %%ZGCHBV :LIBRARY MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("zgchbv_" %%ZGCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -387,7 +387,7 @@ (%%ZGCHBV M-REF24043 T-REF24044 H-REF24045 LDH-REF24046 Y-REF24047 WSP-REF24048 IWSP-REF24049 IFLAG-REF24050)))) -(CFFI:DEFCFUN ("znchbv_" %%ZNCHBV :LIBRARY MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("znchbv_" %%ZNCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -433,7 +433,7 @@ (COMMON-LISP:SETF (COMMON-LISP:GETF (COMMON-LISP:SYMBOL-PLIST - 'MAGICL-TRANSCENDENTAL.FOREIGN-LIBRARIES:LIBEXPOKIT) + 'MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) ':MAGICL) '(("DGPADM" "dgpadm_" %%DGPADM %DGPADM) ("DSPADM" "dspadm_" %%DSPADM %DSPADM) diff --git a/src/extensions/expokit/expm.lisp b/src/extensions/expokit/expm.lisp index 093c83cd..56bf017b 100644 --- a/src/extensions/expokit/expm.lisp +++ b/src/extensions/expokit/expm.lisp @@ -2,7 +2,7 @@ ;;;; ;;;; Author: Robert Smith -(in-package #:magicl-transcendental) +(in-package #:magicl-expokit) (magicl:define-extensible-function (magicl:expm expm-expokit :expokit) (matrix) (:method ((m magicl:matrix/complex-double-float)) diff --git a/src/extensions/expokit/load-libs.lisp b/src/extensions/expokit/load-libs.lisp index b2e0cbc4..9ce7fc3c 100644 --- a/src/extensions/expokit/load-libs.lisp +++ b/src/extensions/expokit/load-libs.lisp @@ -1,8 +1,8 @@ -;;;; transcendental/load-libs.lisp +;;;; load-libs.lisp ;;;; ;;;; Author: Robert Smith -(in-package #:magicl-transcendental.foreign-libraries) +(in-package #:magicl-expokit.foreign-libraries) (cffi:define-foreign-library libexpokit (:darwin (:or #.(asdf:system-relative-pathname '#:magicl "expokit/libexpokit.dylib") diff --git a/src/extensions/expokit/package.lisp b/src/extensions/expokit/package.lisp index 72ac5ba1..3eacc001 100644 --- a/src/extensions/expokit/package.lisp +++ b/src/extensions/expokit/package.lisp @@ -1,10 +1,19 @@ (defpackage #:magicl.expokit-cffi (:use)) -(defpackage #:magicl-transcendental.foreign-libraries +(defpackage #:magicl-expokit.foreign-libraries (:use #:common-lisp) (:export #:libexpokit)) -(defpackage #:magicl-transcendental +(defpackage #:magicl-expokit (:use #:common-lisp - #:cffi)) + #:cffi) + ) + +;;; For backwards compatibility. +(defpackage #:magicl-transcendental.**deprecated** + (:nicknames #:magicl-transcendental) + (:documentation "This package is deprecated. Use MAGICL instead.") + (:use) + (:import-from #:magicl #:expm #:logm) + (:export #:expm #:logm)) diff --git a/src/generate-interface/generate-interface.lisp b/src/generate-interface/generate-interface.lisp index a13bfb62..7d1fa7b0 100644 --- a/src/generate-interface/generate-interface.lisp +++ b/src/generate-interface/generate-interface.lisp @@ -586,7 +586,7 @@ the CFFI binding file." (defun generate-expokit-file () (generate-file "expokit-cffi" '#:magicl.expokit-cffi - 'magicl-transcendental.foreign-libraries:libexpokit + 'magicl-expokit.foreign-libraries:libexpokit #'parse-expokit-files)) (defun generate-expokit-files (expokit-dir) From 68a4a5bdf64f20eaf0e42851bd3635d45012dd99 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 00:33:55 -0700 Subject: [PATCH 35/46] remove ASDF deprecated function --- src/generate-interface/generate-interface.lisp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/generate-interface/generate-interface.lisp b/src/generate-interface/generate-interface.lisp index 7d1fa7b0..467095d5 100644 --- a/src/generate-interface/generate-interface.lisp +++ b/src/generate-interface/generate-interface.lisp @@ -258,11 +258,7 @@ remaining lines." (defvar *basedir*) (defparameter *outdir* - (make-pathname :directory - (pathname-directory - (truename (asdf:system-definition-pathname - (asdf:find-system - :magicl-gen)))))) + (asdf:system-relative-pathname :magicl-gen "")) (defun parse-blas-files (&optional (basedir *basedir*)) (let ((files From b1957ea20a42d5cc773ed7e63b0ac790d274d292 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 00:40:56 -0700 Subject: [PATCH 36/46] simplify magicl-gen bindings location --- src/generate-interface/generate-interface.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/generate-interface/generate-interface.lisp b/src/generate-interface/generate-interface.lisp index 467095d5..0f7eac89 100644 --- a/src/generate-interface/generate-interface.lisp +++ b/src/generate-interface/generate-interface.lisp @@ -258,7 +258,7 @@ remaining lines." (defvar *basedir*) (defparameter *outdir* - (asdf:system-relative-pathname :magicl-gen "")) + (asdf:system-relative-pathname :magicl-gen "src/bindings/")) (defun parse-blas-files (&optional (basedir *basedir*)) (let ((files @@ -536,7 +536,7 @@ the CFFI binding file." ',package-name))) ;; Specify target directory - (merge-pathnames "src/bindings/" *outdir*)))) + *outdir*))) (defun generate-blas-file () (generate-file "blas-cffi" From 1d3f2e6349af464e9989f3f92c2d24630288a24a Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 00:47:26 -0700 Subject: [PATCH 37/46] move pkg MAGICL-TRANSCENDENTAL to separate file --- magicl-transcendental.asd | 5 ++++- src/extensions/expokit/deprecated-package.lisp | 9 +++++++++ src/extensions/expokit/package.lisp | 11 +---------- 3 files changed, 14 insertions(+), 11 deletions(-) create mode 100644 src/extensions/expokit/deprecated-package.lisp diff --git a/magicl-transcendental.asd b/magicl-transcendental.asd index be6fc126..6a15a798 100644 --- a/magicl-transcendental.asd +++ b/magicl-transcendental.asd @@ -5,4 +5,7 @@ :depends-on (#:magicl/ext-expokit) :perform (load-op :after (o c) (declare (ignore o c)) - (warn "System MAGICL-TRANSCENDENTAL is deprecated. Use or depend on system MAGICL/EXT-EXPOKIT instead."))) + (warn "System MAGICL-TRANSCENDENTAL is deprecated. Use or depend on system MAGICL/EXT-EXPOKIT instead.")) + :pathname "src/extensions/expokit" + :serial t + :components ((:file "deprecated-package"))) diff --git a/src/extensions/expokit/deprecated-package.lisp b/src/extensions/expokit/deprecated-package.lisp new file mode 100644 index 00000000..1566e2d6 --- /dev/null +++ b/src/extensions/expokit/deprecated-package.lisp @@ -0,0 +1,9 @@ +;;; For backwards compatibility. Do not use in new code. +(defpackage #:magicl-transcendental.**deprecated** + (:nicknames #:magicl-transcendental) + (:documentation "This package is deprecated. Use MAGICL instead.") + (:use) + (:import-from #:magicl #:expm #:logm) + (:export #:expm #:logm)) + +(warn "The package MAGICL-TRANSCENDENTAL is deprecated. Use MAGICL instead.") diff --git a/src/extensions/expokit/package.lisp b/src/extensions/expokit/package.lisp index 3eacc001..f068d994 100644 --- a/src/extensions/expokit/package.lisp +++ b/src/extensions/expokit/package.lisp @@ -6,14 +6,5 @@ (:export #:libexpokit)) (defpackage #:magicl-expokit - (:use #:common-lisp - #:cffi) - ) + (:use #:common-lisp #:cffi)) -;;; For backwards compatibility. -(defpackage #:magicl-transcendental.**deprecated** - (:nicknames #:magicl-transcendental) - (:documentation "This package is deprecated. Use MAGICL instead.") - (:use) - (:import-from #:magicl #:expm #:logm) - (:export #:expm #:logm)) From 2bc945dd766c3c1b7083a3c4c89c4f02e049b236 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 11:10:21 -0700 Subject: [PATCH 38/46] fix typos --- README.md | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/README.md b/README.md index 8210c12e..ebe76af9 100755 --- a/README.md +++ b/README.md @@ -9,10 +9,10 @@ _Matrix Algebra proGrams In Common Lisp_ by [Rigetti Computing](http://www.riget MAGICL has two main systems: - `MAGICL/CORE`: This is pure Lisp code with no foreign -dependencies. This system establishes the API of the library nearly -completely.. +dependencies. This system establishes MAGICL's API (for the most +part). -- `MAGICL`: This is the core MAGICL with all extensions loaded. +- `MAGICL`: This is MAGICL with all extensions loaded. The system `MAGICL/CORE` requires: @@ -46,17 +46,18 @@ tests, as described in the next section. ### Extensions -`MAGICL/CORE` by default only uses pure ANSI Common Lisp code. If you -wish to accelerate it or extend the functionality, you may load -*MAGICL extensions*. These extensions typically install new backends -to MAGICL functions. The available extensions are: +`MAGICL/CORE` only uses pure ANSI Common Lisp code. If you wish to +accelerate it or extend the functionality, you may load *MAGICL +extensions*. These extensions typically install new backends to MAGICL +functions. The available extensions are: - `MAGICL/EXT-BLAS`: for BLAS functions - `MAGICL/EXT-LAPACK`: for LAPACK functions - `MAGICL/EXT-EXPOKIT`: for expokit (matrix `exp()`) functions For backwards compatibility, `MAGICL` loads every extension under the -kitchen sink. **This may change in future versions of MAGICL!** +kitchen sink. **This may change in future versions of MAGICL! If you +depend on an extension, depend on it explicitly!** If you use extensions, you'll need the requisite C/Fortran libraries. Expokit will automatically build for you, as its source is From 9bd2fb435aec05896fe6cdd35f2a914fe7b22179 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 15:43:41 -0700 Subject: [PATCH 39/46] move fortran frobbing to separate doc --- README.md | 73 ++++---------------------------------- doc/fortran-functions.md | 76 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 82 insertions(+), 67 deletions(-) create mode 100644 doc/fortran-functions.md diff --git a/README.md b/README.md index ebe76af9..2c40288e 100755 --- a/README.md +++ b/README.md @@ -149,76 +149,15 @@ and comparison of MAGICL functions with those of MATLAB and NumPy. See the [developer how-to](doc/dev-how-to.md) to understand how to add new functionality to MAGICL. -## Showing Available Functions +## Fortran Bindings -Some distributions of a library don't actually provide all of the -functions of the reference BLAS and LAPACK. One can look at a summary -of available and unavailable functions with the function -`magicl:print-availability-report`. By default, it will show all -functions and their availability. There are three arguments to -fine-tune this behavior: +See the [Fortran Functions](doc/fortran-functions.md) on how to +re-generate the Fortran bindings from the original BLAS, LAPACK, and +Expokit reference code. -1. Key `:show-available ` (default `t`): show available -functions +See the same document for how to query for available Fortran functions +in the currently loaded dynamic libraries. -2. Key `:show-unavailable ` (default `t`): show unavailable -functions - -3. Key `:search `: only show functions which have `` -as a substring. **This argument takes into account the previous two -arguments.** - -For example, we can look for all available functions which might -relate to `svd` by doing the following: - -``` -CL-USER> (magicl:print-availability-report :search "svd" :show-unavailable nil) - Fortran Function Lisp Function ------------------------------------------------------------------------- - -Library LIBBLAS: /usr/local/opt/lapack/lib/libblas.dylib - -Library LIBLAPACK: /usr/local/opt/lapack/lib/liblapack.dylib - [x] CGESVD MAGICL.LAPACK-CFFI:%CGESVD - [x] CGESVDX MAGICL.LAPACK-CFFI:%CGESVDX - [x] CGGSVD3 MAGICL.LAPACK-CFFI:%CGGSVD3 - [x] DBDSVDX MAGICL.LAPACK-CFFI:%DBDSVDX - [x] DGESVD MAGICL.LAPACK-CFFI:%DGESVD - [x] DGESVDX MAGICL.LAPACK-CFFI:%DGESVDX - [x] DGGSVD3 MAGICL.LAPACK-CFFI:%DGGSVD3 - [x] SBDSVDX MAGICL.LAPACK-CFFI:%SBDSVDX - [x] SGESVD MAGICL.LAPACK-CFFI:%SGESVD - [x] SGESVDX MAGICL.LAPACK-CFFI:%SGESVDX - [x] SGGSVD3 MAGICL.LAPACK-CFFI:%SGGSVD3 - [x] ZGESVD MAGICL.LAPACK-CFFI:%ZGESVD - [x] ZGESVDX MAGICL.LAPACK-CFFI:%ZGESVDX - [x] ZGGSVD3 MAGICL.LAPACK-CFFI:%ZGGSVD3 -``` - -## Generating BLAS and LAPACK Bindings - -This library takes the approach of automatically generating the -bindings to BLAS, LAPACK, and Expokit without relying on any special -tools. - -In order to generate the bindings, you will need to download the -Fortran 90 source tarballs for -[BLAS/LAPACK](http://www.netlib.org/lapack/) and -[Expokit](https://www.maths.uq.edu.au/expokit/download.html). Once -downloaded, extract the tarballs into a directory and re-generate the -bindings with the following commands: - -``` -(ql:quickload :magicl-gen) -(in-package :magicl.generate-interface) -(generate-blas-files #P"/path/to/lapack-3.7.1/") -(generate-lapack-files* #P"/path/to/lapack-3.7.1/") -(generate-expokit-files #P"/path/to/expokit/") -``` - -Currently this will write to the source distribution directory of -MAGICL, namely the files `blas-cffi.lisp`, `lapack*-cffi.lisp`, and -`expokit-cffi.lisp`. ## History and Credits diff --git a/doc/fortran-functions.md b/doc/fortran-functions.md new file mode 100644 index 00000000..8ae35b46 --- /dev/null +++ b/doc/fortran-functions.md @@ -0,0 +1,76 @@ +# Fortran Functions + +## Re-Generating Fortran Bindings + +This library takes the approach of automatically generating the +bindings to BLAS, LAPACK, and Expokit without relying on any special +tools. + +In order to generate the bindings, you will need to download the +Fortran 90 source tarballs for +[BLAS/LAPACK](http://www.netlib.org/lapack/) and +[Expokit](https://www.maths.uq.edu.au/expokit/download.html). Once +downloaded, extract the tarballs into a directory and re-generate the +bindings with the following commands: + +``` +(ql:quickload :magicl-gen) +(in-package :magicl.generate-interface) +(generate-blas-files #P"/path/to/lapack-3.7.1/") +(generate-lapack-files* #P"/path/to/lapack-3.7.1/") +(generate-expokit-files #P"/path/to/expokit/") +``` + +Currently this will write to the source distribution directory of +MAGICL, namely the files `blas-cffi.lisp`, `lapack*-cffi.lisp`, and +`expokit-cffi.lisp`. + + +## Seeing What Fortran Functions Are Available + +Since MAGICL binds to lots of Fortran code, we try to make it more +convenient to both show and search which functions are available. + +Some distributions of a library don't actually provide all of the +functions of the reference BLAS and LAPACK. One can look at a summary +of available and unavailable functions with the function +`magicl:print-availability-report`. By default, it will show all +functions and their availability. There are three arguments to +fine-tune this behavior: + +1. Key `:show-available ` (default `t`): show available +functions + +2. Key `:show-unavailable ` (default `t`): show unavailable +functions + +3. Key `:search `: only show functions which have `` +as a substring. **This argument takes into account the previous two +arguments.** + +For example, we can look for all available functions which might +relate to `svd` by doing the following: + +``` +CL-USER> (magicl:print-availability-report :search "svd" :show-unavailable nil) + Fortran Function Lisp Function +------------------------------------------------------------------------ + +Library LIBBLAS: /usr/local/opt/lapack/lib/libblas.dylib + +Library LIBLAPACK: /usr/local/opt/lapack/lib/liblapack.dylib + [x] CGESVD MAGICL.LAPACK-CFFI:%CGESVD + [x] CGESVDX MAGICL.LAPACK-CFFI:%CGESVDX + [x] CGGSVD3 MAGICL.LAPACK-CFFI:%CGGSVD3 + [x] DBDSVDX MAGICL.LAPACK-CFFI:%DBDSVDX + [x] DGESVD MAGICL.LAPACK-CFFI:%DGESVD + [x] DGESVDX MAGICL.LAPACK-CFFI:%DGESVDX + [x] DGGSVD3 MAGICL.LAPACK-CFFI:%DGGSVD3 + [x] SBDSVDX MAGICL.LAPACK-CFFI:%SBDSVDX + [x] SGESVD MAGICL.LAPACK-CFFI:%SGESVD + [x] SGESVDX MAGICL.LAPACK-CFFI:%SGESVDX + [x] SGGSVD3 MAGICL.LAPACK-CFFI:%SGGSVD3 + [x] ZGESVD MAGICL.LAPACK-CFFI:%ZGESVD + [x] ZGESVDX MAGICL.LAPACK-CFFI:%ZGESVDX + [x] ZGGSVD3 MAGICL.LAPACK-CFFI:%ZGGSVD3 +``` From c542d975c8eb852118cb57fd50475c9e8baee9e7 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 15:43:52 -0700 Subject: [PATCH 40/46] fix typo --- doc/dev-how-to.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/doc/dev-how-to.md b/doc/dev-how-to.md index 1f0b9596..802b8e04 100644 --- a/doc/dev-how-to.md +++ b/doc/dev-how-to.md @@ -68,7 +68,7 @@ MAGICL primitives. With that said, it's always possible to take a non-extensible function and turn it into an extensible one.) Since we answered yes, you'll want to begin with a *backend function -definition*. a **backend function** is sort of like a Common Lisp +definition*. A **backend function** is sort of like a Common Lisp generic function in that it can have multiple implementations. Backend functions themselves don't actually implement anything, they instead just stipulate the existence and documented behavior of a From 8658be02f19f2d20c3cd69d3507f89277628cd86 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 15:45:01 -0700 Subject: [PATCH 41/46] re-export PRINT-AVAILABILITY-REPORT --- src/packages.lisp | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/src/packages.lisp b/src/packages.lisp index 2f7806e7..44ae4bbb 100644 --- a/src/packages.lisp +++ b/src/packages.lisp @@ -20,8 +20,19 @@ (defpackage #:magicl (:use #:common-lisp #:abstract-classes) + (:shadow #:vector + #:= + #:map + #:trace + #:every + #:some + #:notevery + #:notany) + (:import-from #:magicl.foreign-libraries #:print-availability-report) + (:export #:print-availability-report) + (:import-from #:magicl.backends #:no-applicable-implementation #:define-compatible-no-applicable-method-behavior @@ -33,14 +44,7 @@ #:define-backend #:define-backend-function #:define-backend-implementation) - (:shadow #:vector - #:= - #:map - #:trace - #:every - #:some - #:notevery - #:notany) + (:export #:with-blapack #:define-extensible-function ; For extensions, not users... From 06bcc40ae6fa4d105e4be5ec757a5031de7f8ec3 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 15:46:36 -0700 Subject: [PATCH 42/46] make sure libblas and liblapack are tracked properly --- src/bindings/expokit-cffi.lisp | 20 ++++++++++---------- src/extensions/blas/load-libs.lisp | 3 +++ src/extensions/common/library-tracking.lisp | 6 ++++-- src/extensions/common/package.lisp | 6 +----- src/extensions/expokit/load-libs.lisp | 6 +++--- src/extensions/expokit/package.lisp | 4 ---- src/extensions/lapack/load-libs.lisp | 3 +++ 7 files changed, 24 insertions(+), 24 deletions(-) diff --git a/src/bindings/expokit-cffi.lisp b/src/bindings/expokit-cffi.lisp index 1b658b6c..1990d691 100644 --- a/src/bindings/expokit-cffi.lisp +++ b/src/bindings/expokit-cffi.lisp @@ -11,7 +11,7 @@ %%ZHPADM %ZHPADM %%DGCHBV %DGCHBV %%DNCHBV %DNCHBV %%DSCHBV %DSCHBV %%ZGCHBV %ZGCHBV %%ZNCHBV %ZNCHBV)) -(CFFI:DEFCFUN ("dgpadm_" %%DGPADM :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dgpadm_" %%DGPADM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (IDEG :POINTER) (M :POINTER) @@ -62,7 +62,7 @@ WSP-REF23982 LWSP-REF23983 IPIV-REF23984 IEXPH-REF23985 NS-REF23986 IFLAG-REF23987)))) -(CFFI:DEFCFUN ("dspadm_" %%DSPADM :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dspadm_" %%DSPADM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (IDEG :POINTER) (M :POINTER) @@ -113,7 +113,7 @@ WSP-REF23993 LWSP-REF23994 IPIV-REF23995 IEXPH-REF23996 NS-REF23997 IFLAG-REF23998)))) -(CFFI:DEFCFUN ("zgpadm_" %%ZGPADM :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("zgpadm_" %%ZGPADM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (IDEG :POINTER) (M :POINTER) @@ -169,7 +169,7 @@ WSP-REF24004 LWSP-REF24005 IPIV-REF24006 IEXPH-REF24007 NS-REF24008 IFLAG-REF24009)))) -(CFFI:DEFCFUN ("zhpadm_" %%ZHPADM :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("zhpadm_" %%ZHPADM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (IDEG :POINTER) (M :POINTER) @@ -225,7 +225,7 @@ WSP-REF24015 LWSP-REF24016 IPIV-REF24017 IEXPH-REF24018 NS-REF24019 IFLAG-REF24020)))) -(CFFI:DEFCFUN ("dgchbv_" %%DGCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dgchbv_" %%DGCHBV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -266,7 +266,7 @@ (%%DGCHBV M-REF24021 T-REF24022 H-REF24023 LDH-REF24024 Y-REF24025 WSP-REF24026 IWSP-REF24027 IFLAG-REF24028)))) -(CFFI:DEFCFUN ("dnchbv_" %%DNCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dnchbv_" %%DNCHBV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -299,7 +299,7 @@ (%%DNCHBV M-REF24029 T-REF24030 H-REF24031 LDH-REF24032 Y-REF24033 WSP-REF24034)))) -(CFFI:DEFCFUN ("dschbv_" %%DSCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("dschbv_" %%DSCHBV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -340,7 +340,7 @@ (%%DSCHBV M-REF24035 T-REF24036 H-REF24037 LDH-REF24038 Y-REF24039 WSP-REF24040 IWSP-REF24041 IFLAG-REF24042)))) -(CFFI:DEFCFUN ("zgchbv_" %%ZGCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("zgchbv_" %%ZGCHBV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -387,7 +387,7 @@ (%%ZGCHBV M-REF24043 T-REF24044 H-REF24045 LDH-REF24046 Y-REF24047 WSP-REF24048 IWSP-REF24049 IFLAG-REF24050)))) -(CFFI:DEFCFUN ("znchbv_" %%ZNCHBV :LIBRARY MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) +(CFFI:DEFCFUN ("znchbv_" %%ZNCHBV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) :VOID (M :POINTER) (T :POINTER) @@ -433,7 +433,7 @@ (COMMON-LISP:SETF (COMMON-LISP:GETF (COMMON-LISP:SYMBOL-PLIST - 'MAGICL-EXPOKIT.FOREIGN-LIBRARIES:LIBEXPOKIT) + 'MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) ':MAGICL) '(("DGPADM" "dgpadm_" %%DGPADM %DGPADM) ("DSPADM" "dspadm_" %%DSPADM %DSPADM) diff --git a/src/extensions/blas/load-libs.lisp b/src/extensions/blas/load-libs.lisp index 3f95f19f..854acef2 100644 --- a/src/extensions/blas/load-libs.lisp +++ b/src/extensions/blas/load-libs.lisp @@ -12,6 +12,9 @@ "libblas.so.3")) (t (:default "libblas"))) +(pushnew 'libblas *foreign-libraries*) +(export 'libblas) + (defvar *blas-loaded* nil) (unless *blas-loaded* diff --git a/src/extensions/common/library-tracking.lisp b/src/extensions/common/library-tracking.lisp index bd7be1f1..c44c7122 100644 --- a/src/extensions/common/library-tracking.lisp +++ b/src/extensions/common/library-tracking.lisp @@ -1,7 +1,9 @@ (in-package #:magicl.foreign-libraries) (defvar *foreign-libraries* nil - "Foreign library names (designated by symbols) that exist.") + "Foreign library names (designated by symbols) that exist. + +Each new MAGICL extension is expected to PUSHNEW the library symbols to this variable.") (defun foreign-symbol-available-p (name library) "Check that NAME is available from the libarary LIBRARY." @@ -28,7 +30,7 @@ (terpri stream) ;; Print symbol information - (dolist (lib *foreign-libraries*) + (dolist (lib (sort (remove-duplicates (copy-list *foreign-libraries*)) #'string<)) (let ((symbols (sort (copy-seq (getf (symbol-plist lib) ':magicl)) #'string< :key #'first))) diff --git a/src/extensions/common/package.lisp b/src/extensions/common/package.lisp index 0f57f316..25dae9da 100644 --- a/src/extensions/common/package.lisp +++ b/src/extensions/common/package.lisp @@ -14,10 +14,6 @@ (defpackage #:magicl.foreign-libraries (:use #:common-lisp) - (:export #:libgfortran - #:libblas - #:liblapack - #:libexpokit + (:export #:*foreign-libraries* #:foreign-symbol-available-p #:print-availability-report)) - diff --git a/src/extensions/expokit/load-libs.lisp b/src/extensions/expokit/load-libs.lisp index 9ce7fc3c..6bae497b 100644 --- a/src/extensions/expokit/load-libs.lisp +++ b/src/extensions/expokit/load-libs.lisp @@ -2,7 +2,7 @@ ;;;; ;;;; Author: Robert Smith -(in-package #:magicl-expokit.foreign-libraries) +(in-package #:magicl.foreign-libraries) (cffi:define-foreign-library libexpokit (:darwin (:or #.(asdf:system-relative-pathname '#:magicl "expokit/libexpokit.dylib") @@ -11,10 +11,10 @@ (:unix (:or #.(asdf:system-relative-pathname '#:magicl "expokit/libexpokit.so") "libexpokit.so" "expokit.so")) - (t (:default "expokit"))) -(push 'libexpokit magicl.foreign-libraries::*foreign-libraries*) +(pushnew 'libexpokit *foreign-libraries*) +(export 'libexpokit) (defvar *expokit-libs-loaded* nil) diff --git a/src/extensions/expokit/package.lisp b/src/extensions/expokit/package.lisp index f068d994..cb8023d6 100644 --- a/src/extensions/expokit/package.lisp +++ b/src/extensions/expokit/package.lisp @@ -1,10 +1,6 @@ (defpackage #:magicl.expokit-cffi (:use)) -(defpackage #:magicl-expokit.foreign-libraries - (:use #:common-lisp) - (:export #:libexpokit)) - (defpackage #:magicl-expokit (:use #:common-lisp #:cffi)) diff --git a/src/extensions/lapack/load-libs.lisp b/src/extensions/lapack/load-libs.lisp index df8389c7..723783bd 100644 --- a/src/extensions/lapack/load-libs.lisp +++ b/src/extensions/lapack/load-libs.lisp @@ -16,6 +16,9 @@ "liblapack.so.3")) (t (:default "liblapack"))) +(pushnew 'liblapack *foreign-libraries*) +(export 'liblapack) + (defvar *blapack-libs-loaded* nil) (unless *blapack-libs-loaded* From f19abcd97a1d676992d084c8a368834d51d6a68d Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 16:02:17 -0700 Subject: [PATCH 43/46] fix symbol tracking bug in libraries --- src/bindings/blas-cffi.lisp | 309 +++++----- src/bindings/expokit-cffi.lisp | 24 +- src/bindings/lapack00-cffi.lisp | 570 +++++++++--------- src/bindings/lapack01-cffi.lisp | 506 ++++++++-------- src/bindings/lapack02-cffi.lisp | 516 ++++++++-------- src/bindings/lapack03-cffi.lisp | 530 ++++++++-------- src/bindings/lapack04-cffi.lisp | 516 ++++++++-------- src/bindings/lapack05-cffi.lisp | 528 ++++++++-------- src/bindings/lapack06-cffi.lisp | 570 +++++++++--------- src/bindings/lapack07-cffi.lisp | 502 ++++++++------- src/extensions/common/library-tracking.lisp | 6 + .../generate-interface.lisp | 5 +- 12 files changed, 2285 insertions(+), 2297 deletions(-) diff --git a/src/bindings/blas-cffi.lisp b/src/bindings/blas-cffi.lisp index 3babfd39..1d99b498 100644 --- a/src/bindings/blas-cffi.lisp +++ b/src/bindings/blas-cffi.lisp @@ -6035,161 +6035,160 @@ %%ZSYRK %ZSYRK %%ZTBMV %ZTBMV %%ZTBSV %ZTBSV %%ZTPMV %ZTPMV %%ZTPSV %ZTPSV %%ZTRMM %ZTRMM %%ZTRMV %ZTRMV %%ZTRSM %ZTRSM %%ZTRSV %ZTRSV)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST 'MAGICL.FOREIGN-LIBRARIES:LIBBLAS) - ':MAGICL) - '(("CAXPY" "caxpy_" %%CAXPY %CAXPY) - ("CCOPY" "ccopy_" %%CCOPY %CCOPY) - ("CDOTC" "cdotc_" %%CDOTC %CDOTC) - ("CDOTU" "cdotu_" %%CDOTU %CDOTU) - ("CGBMV" "cgbmv_" %%CGBMV %CGBMV) - ("CGEMM" "cgemm_" %%CGEMM %CGEMM) - ("CGEMV" "cgemv_" %%CGEMV %CGEMV) - ("CGERC" "cgerc_" %%CGERC %CGERC) - ("CGERU" "cgeru_" %%CGERU %CGERU) - ("CHBMV" "chbmv_" %%CHBMV %CHBMV) - ("CHEMM" "chemm_" %%CHEMM %CHEMM) - ("CHEMV" "chemv_" %%CHEMV %CHEMV) - ("CHER" "cher_" %%CHER %CHER) - ("CHER2" "cher2_" %%CHER2 %CHER2) - ("CHER2K" "cher2k_" %%CHER2K %CHER2K) - ("CHERK" "cherk_" %%CHERK %CHERK) - ("CHPMV" "chpmv_" %%CHPMV %CHPMV) - ("CHPR" "chpr_" %%CHPR %CHPR) - ("CHPR2" "chpr2_" %%CHPR2 %CHPR2) - ("CROTG" "crotg_" %%CROTG %CROTG) - ("CSCAL" "cscal_" %%CSCAL %CSCAL) - ("CSROT" "csrot_" %%CSROT %CSROT) - ("CSSCAL" "csscal_" %%CSSCAL %CSSCAL) - ("CSWAP" "cswap_" %%CSWAP %CSWAP) - ("CSYMM" "csymm_" %%CSYMM %CSYMM) - ("CSYR2K" "csyr2k_" %%CSYR2K %CSYR2K) - ("CSYRK" "csyrk_" %%CSYRK %CSYRK) - ("CTBMV" "ctbmv_" %%CTBMV %CTBMV) - ("CTBSV" "ctbsv_" %%CTBSV %CTBSV) - ("CTPMV" "ctpmv_" %%CTPMV %CTPMV) - ("CTPSV" "ctpsv_" %%CTPSV %CTPSV) - ("CTRMM" "ctrmm_" %%CTRMM %CTRMM) - ("CTRMV" "ctrmv_" %%CTRMV %CTRMV) - ("CTRSM" "ctrsm_" %%CTRSM %CTRSM) - ("CTRSV" "ctrsv_" %%CTRSV %CTRSV) - ("DASUM" "dasum_" %%DASUM %DASUM) - ("DAXPY" "daxpy_" %%DAXPY %DAXPY) - ("DCABS1" "dcabs1_" %%DCABS1 %DCABS1) - ("DCOPY" "dcopy_" %%DCOPY %DCOPY) - ("DDOT" "ddot_" %%DDOT %DDOT) - ("DGBMV" "dgbmv_" %%DGBMV %DGBMV) - ("DGEMM" "dgemm_" %%DGEMM %DGEMM) - ("DGEMV" "dgemv_" %%DGEMV %DGEMV) - ("DGER" "dger_" %%DGER %DGER) - ("DNRM2" "dnrm2_" %%DNRM2 %DNRM2) - ("DROT" "drot_" %%DROT %DROT) - ("DROTG" "drotg_" %%DROTG %DROTG) - ("DROTM" "drotm_" %%DROTM %DROTM) - ("DROTMG" "drotmg_" %%DROTMG %DROTMG) - ("DSBMV" "dsbmv_" %%DSBMV %DSBMV) - ("DSCAL" "dscal_" %%DSCAL %DSCAL) - ("DSDOT" "dsdot_" %%DSDOT %DSDOT) - ("DSPMV" "dspmv_" %%DSPMV %DSPMV) - ("DSPR" "dspr_" %%DSPR %DSPR) - ("DSPR2" "dspr2_" %%DSPR2 %DSPR2) - ("DSWAP" "dswap_" %%DSWAP %DSWAP) - ("DSYMM" "dsymm_" %%DSYMM %DSYMM) - ("DSYMV" "dsymv_" %%DSYMV %DSYMV) - ("DSYR" "dsyr_" %%DSYR %DSYR) - ("DSYR2" "dsyr2_" %%DSYR2 %DSYR2) - ("DSYR2K" "dsyr2k_" %%DSYR2K %DSYR2K) - ("DSYRK" "dsyrk_" %%DSYRK %DSYRK) - ("DTBMV" "dtbmv_" %%DTBMV %DTBMV) - ("DTBSV" "dtbsv_" %%DTBSV %DTBSV) - ("DTPMV" "dtpmv_" %%DTPMV %DTPMV) - ("DTPSV" "dtpsv_" %%DTPSV %DTPSV) - ("DTRMM" "dtrmm_" %%DTRMM %DTRMM) - ("DTRMV" "dtrmv_" %%DTRMV %DTRMV) - ("DTRSM" "dtrsm_" %%DTRSM %DTRSM) - ("DTRSV" "dtrsv_" %%DTRSV %DTRSV) - ("DZASUM" "dzasum_" %%DZASUM %DZASUM) - ("DZNRM2" "dznrm2_" %%DZNRM2 %DZNRM2) - ("ICAMAX" "icamax_" %%ICAMAX %ICAMAX) - ("IDAMAX" "idamax_" %%IDAMAX %IDAMAX) - ("ISAMAX" "isamax_" %%ISAMAX %ISAMAX) - ("IZAMAX" "izamax_" %%IZAMAX %IZAMAX) - ("LSAME" "lsame_" %%LSAME %LSAME) - ("SASUM" "sasum_" %%SASUM %SASUM) - ("SAXPY" "saxpy_" %%SAXPY %SAXPY) - ("SCABS1" "scabs1_" %%SCABS1 %SCABS1) - ("SCASUM" "scasum_" %%SCASUM %SCASUM) - ("SCNRM2" "scnrm2_" %%SCNRM2 %SCNRM2) - ("SCOPY" "scopy_" %%SCOPY %SCOPY) - ("SDOT" "sdot_" %%SDOT %SDOT) - ("SDSDOT" "sdsdot_" %%SDSDOT %SDSDOT) - ("SGBMV" "sgbmv_" %%SGBMV %SGBMV) - ("SGEMM" "sgemm_" %%SGEMM %SGEMM) - ("SGEMV" "sgemv_" %%SGEMV %SGEMV) - ("SGER" "sger_" %%SGER %SGER) - ("SNRM2" "snrm2_" %%SNRM2 %SNRM2) - ("SROT" "srot_" %%SROT %SROT) - ("SROTG" "srotg_" %%SROTG %SROTG) - ("SROTM" "srotm_" %%SROTM %SROTM) - ("SROTMG" "srotmg_" %%SROTMG %SROTMG) - ("SSBMV" "ssbmv_" %%SSBMV %SSBMV) - ("SSCAL" "sscal_" %%SSCAL %SSCAL) - ("SSPMV" "sspmv_" %%SSPMV %SSPMV) - ("SSPR" "sspr_" %%SSPR %SSPR) - ("SSPR2" "sspr2_" %%SSPR2 %SSPR2) - ("SSWAP" "sswap_" %%SSWAP %SSWAP) - ("SSYMM" "ssymm_" %%SSYMM %SSYMM) - ("SSYMV" "ssymv_" %%SSYMV %SSYMV) - ("SSYR" "ssyr_" %%SSYR %SSYR) - ("SSYR2" "ssyr2_" %%SSYR2 %SSYR2) - ("SSYR2K" "ssyr2k_" %%SSYR2K %SSYR2K) - ("SSYRK" "ssyrk_" %%SSYRK %SSYRK) - ("STBMV" "stbmv_" %%STBMV %STBMV) - ("STBSV" "stbsv_" %%STBSV %STBSV) - ("STPMV" "stpmv_" %%STPMV %STPMV) - ("STPSV" "stpsv_" %%STPSV %STPSV) - ("STRMM" "strmm_" %%STRMM %STRMM) - ("STRMV" "strmv_" %%STRMV %STRMV) - ("STRSM" "strsm_" %%STRSM %STRSM) - ("STRSV" "strsv_" %%STRSV %STRSV) - ("XERBLA" "xerbla_" %%XERBLA %XERBLA) - ("XERBLA_ARRAY" "xerbla_array_" %%XERBLA_ARRAY - %XERBLA_ARRAY) - ("ZAXPY" "zaxpy_" %%ZAXPY %ZAXPY) - ("ZCOPY" "zcopy_" %%ZCOPY %ZCOPY) - ("ZDOTC" "zdotc_" %%ZDOTC %ZDOTC) - ("ZDOTU" "zdotu_" %%ZDOTU %ZDOTU) - ("ZDROT" "zdrot_" %%ZDROT %ZDROT) - ("ZDSCAL" "zdscal_" %%ZDSCAL %ZDSCAL) - ("ZGBMV" "zgbmv_" %%ZGBMV %ZGBMV) - ("ZGEMM" "zgemm_" %%ZGEMM %ZGEMM) - ("ZGEMV" "zgemv_" %%ZGEMV %ZGEMV) - ("ZGERC" "zgerc_" %%ZGERC %ZGERC) - ("ZGERU" "zgeru_" %%ZGERU %ZGERU) - ("ZHBMV" "zhbmv_" %%ZHBMV %ZHBMV) - ("ZHEMM" "zhemm_" %%ZHEMM %ZHEMM) - ("ZHEMV" "zhemv_" %%ZHEMV %ZHEMV) - ("ZHER" "zher_" %%ZHER %ZHER) - ("ZHER2" "zher2_" %%ZHER2 %ZHER2) - ("ZHER2K" "zher2k_" %%ZHER2K %ZHER2K) - ("ZHERK" "zherk_" %%ZHERK %ZHERK) - ("ZHPMV" "zhpmv_" %%ZHPMV %ZHPMV) - ("ZHPR" "zhpr_" %%ZHPR %ZHPR) - ("ZHPR2" "zhpr2_" %%ZHPR2 %ZHPR2) - ("ZROTG" "zrotg_" %%ZROTG %ZROTG) - ("ZSCAL" "zscal_" %%ZSCAL %ZSCAL) - ("ZSWAP" "zswap_" %%ZSWAP %ZSWAP) - ("ZSYMM" "zsymm_" %%ZSYMM %ZSYMM) - ("ZSYR2K" "zsyr2k_" %%ZSYR2K %ZSYR2K) - ("ZSYRK" "zsyrk_" %%ZSYRK %ZSYRK) - ("ZTBMV" "ztbmv_" %%ZTBMV %ZTBMV) - ("ZTBSV" "ztbsv_" %%ZTBSV %ZTBSV) - ("ZTPMV" "ztpmv_" %%ZTPMV %ZTPMV) - ("ZTPSV" "ztpsv_" %%ZTPSV %ZTPSV) - ("ZTRMM" "ztrmm_" %%ZTRMM %ZTRMM) - ("ZTRMV" "ztrmv_" %%ZTRMV %ZTRMV) - ("ZTRSM" "ztrsm_" %%ZTRSM %ZTRSM) - ("ZTRSV" "ztrsv_" %%ZTRSV %ZTRSV))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBBLAS + '(("CAXPY" "caxpy_" %%CAXPY %CAXPY) + ("CCOPY" "ccopy_" %%CCOPY %CCOPY) + ("CDOTC" "cdotc_" %%CDOTC %CDOTC) + ("CDOTU" "cdotu_" %%CDOTU %CDOTU) + ("CGBMV" "cgbmv_" %%CGBMV %CGBMV) + ("CGEMM" "cgemm_" %%CGEMM %CGEMM) + ("CGEMV" "cgemv_" %%CGEMV %CGEMV) + ("CGERC" "cgerc_" %%CGERC %CGERC) + ("CGERU" "cgeru_" %%CGERU %CGERU) + ("CHBMV" "chbmv_" %%CHBMV %CHBMV) + ("CHEMM" "chemm_" %%CHEMM %CHEMM) + ("CHEMV" "chemv_" %%CHEMV %CHEMV) + ("CHER" "cher_" %%CHER %CHER) + ("CHER2" "cher2_" %%CHER2 %CHER2) + ("CHER2K" "cher2k_" %%CHER2K %CHER2K) + ("CHERK" "cherk_" %%CHERK %CHERK) + ("CHPMV" "chpmv_" %%CHPMV %CHPMV) + ("CHPR" "chpr_" %%CHPR %CHPR) + ("CHPR2" "chpr2_" %%CHPR2 %CHPR2) + ("CROTG" "crotg_" %%CROTG %CROTG) + ("CSCAL" "cscal_" %%CSCAL %CSCAL) + ("CSROT" "csrot_" %%CSROT %CSROT) + ("CSSCAL" "csscal_" %%CSSCAL %CSSCAL) + ("CSWAP" "cswap_" %%CSWAP %CSWAP) + ("CSYMM" "csymm_" %%CSYMM %CSYMM) + ("CSYR2K" "csyr2k_" %%CSYR2K %CSYR2K) + ("CSYRK" "csyrk_" %%CSYRK %CSYRK) + ("CTBMV" "ctbmv_" %%CTBMV %CTBMV) + ("CTBSV" "ctbsv_" %%CTBSV %CTBSV) + ("CTPMV" "ctpmv_" %%CTPMV %CTPMV) + ("CTPSV" "ctpsv_" %%CTPSV %CTPSV) + ("CTRMM" "ctrmm_" %%CTRMM %CTRMM) + ("CTRMV" "ctrmv_" %%CTRMV %CTRMV) + ("CTRSM" "ctrsm_" %%CTRSM %CTRSM) + ("CTRSV" "ctrsv_" %%CTRSV %CTRSV) + ("DASUM" "dasum_" %%DASUM %DASUM) + ("DAXPY" "daxpy_" %%DAXPY %DAXPY) + ("DCABS1" "dcabs1_" %%DCABS1 %DCABS1) + ("DCOPY" "dcopy_" %%DCOPY %DCOPY) + ("DDOT" "ddot_" %%DDOT %DDOT) + ("DGBMV" "dgbmv_" %%DGBMV %DGBMV) + ("DGEMM" "dgemm_" %%DGEMM %DGEMM) + ("DGEMV" "dgemv_" %%DGEMV %DGEMV) + ("DGER" "dger_" %%DGER %DGER) + ("DNRM2" "dnrm2_" %%DNRM2 %DNRM2) + ("DROT" "drot_" %%DROT %DROT) + ("DROTG" "drotg_" %%DROTG %DROTG) + ("DROTM" "drotm_" %%DROTM %DROTM) + ("DROTMG" "drotmg_" %%DROTMG %DROTMG) + ("DSBMV" "dsbmv_" %%DSBMV %DSBMV) + ("DSCAL" "dscal_" %%DSCAL %DSCAL) + ("DSDOT" "dsdot_" %%DSDOT %DSDOT) + ("DSPMV" "dspmv_" %%DSPMV %DSPMV) + ("DSPR" "dspr_" %%DSPR %DSPR) + ("DSPR2" "dspr2_" %%DSPR2 %DSPR2) + ("DSWAP" "dswap_" %%DSWAP %DSWAP) + ("DSYMM" "dsymm_" %%DSYMM %DSYMM) + ("DSYMV" "dsymv_" %%DSYMV %DSYMV) + ("DSYR" "dsyr_" %%DSYR %DSYR) + ("DSYR2" "dsyr2_" %%DSYR2 %DSYR2) + ("DSYR2K" "dsyr2k_" %%DSYR2K %DSYR2K) + ("DSYRK" "dsyrk_" %%DSYRK %DSYRK) + ("DTBMV" "dtbmv_" %%DTBMV %DTBMV) + ("DTBSV" "dtbsv_" %%DTBSV %DTBSV) + ("DTPMV" "dtpmv_" %%DTPMV %DTPMV) + ("DTPSV" "dtpsv_" %%DTPSV %DTPSV) + ("DTRMM" "dtrmm_" %%DTRMM %DTRMM) + ("DTRMV" "dtrmv_" %%DTRMV %DTRMV) + ("DTRSM" "dtrsm_" %%DTRSM %DTRSM) + ("DTRSV" "dtrsv_" %%DTRSV %DTRSV) + ("DZASUM" "dzasum_" %%DZASUM %DZASUM) + ("DZNRM2" "dznrm2_" %%DZNRM2 %DZNRM2) + ("ICAMAX" "icamax_" %%ICAMAX %ICAMAX) + ("IDAMAX" "idamax_" %%IDAMAX %IDAMAX) + ("ISAMAX" "isamax_" %%ISAMAX %ISAMAX) + ("IZAMAX" "izamax_" %%IZAMAX %IZAMAX) + ("LSAME" "lsame_" %%LSAME %LSAME) + ("SASUM" "sasum_" %%SASUM %SASUM) + ("SAXPY" "saxpy_" %%SAXPY %SAXPY) + ("SCABS1" "scabs1_" %%SCABS1 %SCABS1) + ("SCASUM" "scasum_" %%SCASUM %SCASUM) + ("SCNRM2" "scnrm2_" %%SCNRM2 %SCNRM2) + ("SCOPY" "scopy_" %%SCOPY %SCOPY) + ("SDOT" "sdot_" %%SDOT %SDOT) + ("SDSDOT" "sdsdot_" %%SDSDOT %SDSDOT) + ("SGBMV" "sgbmv_" %%SGBMV %SGBMV) + ("SGEMM" "sgemm_" %%SGEMM %SGEMM) + ("SGEMV" "sgemv_" %%SGEMV %SGEMV) + ("SGER" "sger_" %%SGER %SGER) + ("SNRM2" "snrm2_" %%SNRM2 %SNRM2) + ("SROT" "srot_" %%SROT %SROT) + ("SROTG" "srotg_" %%SROTG %SROTG) + ("SROTM" "srotm_" %%SROTM %SROTM) + ("SROTMG" "srotmg_" %%SROTMG %SROTMG) + ("SSBMV" "ssbmv_" %%SSBMV %SSBMV) + ("SSCAL" "sscal_" %%SSCAL %SSCAL) + ("SSPMV" "sspmv_" %%SSPMV %SSPMV) + ("SSPR" "sspr_" %%SSPR %SSPR) + ("SSPR2" "sspr2_" %%SSPR2 %SSPR2) + ("SSWAP" "sswap_" %%SSWAP %SSWAP) + ("SSYMM" "ssymm_" %%SSYMM %SSYMM) + ("SSYMV" "ssymv_" %%SSYMV %SSYMV) + ("SSYR" "ssyr_" %%SSYR %SSYR) + ("SSYR2" "ssyr2_" %%SSYR2 %SSYR2) + ("SSYR2K" "ssyr2k_" %%SSYR2K %SSYR2K) + ("SSYRK" "ssyrk_" %%SSYRK %SSYRK) + ("STBMV" "stbmv_" %%STBMV %STBMV) + ("STBSV" "stbsv_" %%STBSV %STBSV) + ("STPMV" "stpmv_" %%STPMV %STPMV) + ("STPSV" "stpsv_" %%STPSV %STPSV) + ("STRMM" "strmm_" %%STRMM %STRMM) + ("STRMV" "strmv_" %%STRMV %STRMV) + ("STRSM" "strsm_" %%STRSM %STRSM) + ("STRSV" "strsv_" %%STRSV %STRSV) + ("XERBLA" "xerbla_" %%XERBLA %XERBLA) + ("XERBLA_ARRAY" "xerbla_array_" %%XERBLA_ARRAY + %XERBLA_ARRAY) + ("ZAXPY" "zaxpy_" %%ZAXPY %ZAXPY) + ("ZCOPY" "zcopy_" %%ZCOPY %ZCOPY) + ("ZDOTC" "zdotc_" %%ZDOTC %ZDOTC) + ("ZDOTU" "zdotu_" %%ZDOTU %ZDOTU) + ("ZDROT" "zdrot_" %%ZDROT %ZDROT) + ("ZDSCAL" "zdscal_" %%ZDSCAL %ZDSCAL) + ("ZGBMV" "zgbmv_" %%ZGBMV %ZGBMV) + ("ZGEMM" "zgemm_" %%ZGEMM %ZGEMM) + ("ZGEMV" "zgemv_" %%ZGEMV %ZGEMV) + ("ZGERC" "zgerc_" %%ZGERC %ZGERC) + ("ZGERU" "zgeru_" %%ZGERU %ZGERU) + ("ZHBMV" "zhbmv_" %%ZHBMV %ZHBMV) + ("ZHEMM" "zhemm_" %%ZHEMM %ZHEMM) + ("ZHEMV" "zhemv_" %%ZHEMV %ZHEMV) + ("ZHER" "zher_" %%ZHER %ZHER) + ("ZHER2" "zher2_" %%ZHER2 %ZHER2) + ("ZHER2K" "zher2k_" %%ZHER2K %ZHER2K) + ("ZHERK" "zherk_" %%ZHERK %ZHERK) + ("ZHPMV" "zhpmv_" %%ZHPMV %ZHPMV) + ("ZHPR" "zhpr_" %%ZHPR %ZHPR) + ("ZHPR2" "zhpr2_" %%ZHPR2 %ZHPR2) + ("ZROTG" "zrotg_" %%ZROTG %ZROTG) + ("ZSCAL" "zscal_" %%ZSCAL %ZSCAL) + ("ZSWAP" "zswap_" %%ZSWAP %ZSWAP) + ("ZSYMM" "zsymm_" %%ZSYMM %ZSYMM) + ("ZSYR2K" "zsyr2k_" %%ZSYR2K %ZSYR2K) + ("ZSYRK" "zsyrk_" %%ZSYRK %ZSYRK) + ("ZTBMV" "ztbmv_" %%ZTBMV %ZTBMV) + ("ZTBSV" "ztbsv_" %%ZTBSV %ZTBSV) + ("ZTPMV" "ztpmv_" %%ZTPMV %ZTPMV) + ("ZTPSV" "ztpsv_" %%ZTPSV %ZTPSV) + ("ZTRMM" "ztrmm_" %%ZTRMM %ZTRMM) + ("ZTRMV" "ztrmv_" %%ZTRMV %ZTRMV) + ("ZTRSM" "ztrsm_" %%ZTRSM %ZTRSM) + ("ZTRSV" "ztrsv_" %%ZTRSV %ZTRSV))) (COMMON-LISP:EXPORT '(%CAXPY %CCOPY %CDOTC %CDOTU %CGBMV %CGEMM %CGEMV %CGERC %CGERU %CHBMV %CHEMM diff --git a/src/bindings/expokit-cffi.lisp b/src/bindings/expokit-cffi.lisp index 1990d691..ca27687a 100644 --- a/src/bindings/expokit-cffi.lisp +++ b/src/bindings/expokit-cffi.lisp @@ -431,19 +431,17 @@ %%ZHPADM %ZHPADM %%DGCHBV %DGCHBV %%DNCHBV %DNCHBV %%DSCHBV %DSCHBV %%ZGCHBV %ZGCHBV %%ZNCHBV %ZNCHBV)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST - 'MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT) - ':MAGICL) - '(("DGPADM" "dgpadm_" %%DGPADM %DGPADM) - ("DSPADM" "dspadm_" %%DSPADM %DSPADM) - ("ZGPADM" "zgpadm_" %%ZGPADM %ZGPADM) - ("ZHPADM" "zhpadm_" %%ZHPADM %ZHPADM) - ("DGCHBV" "dgchbv_" %%DGCHBV %DGCHBV) - ("DNCHBV" "dnchbv_" %%DNCHBV %DNCHBV) - ("DSCHBV" "dschbv_" %%DSCHBV %DSCHBV) - ("ZGCHBV" "zgchbv_" %%ZGCHBV %ZGCHBV) - ("ZNCHBV" "znchbv_" %%ZNCHBV %ZNCHBV))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT + '(("DGPADM" "dgpadm_" %%DGPADM %DGPADM) + ("DSPADM" "dspadm_" %%DSPADM %DSPADM) + ("ZGPADM" "zgpadm_" %%ZGPADM %ZGPADM) + ("ZHPADM" "zhpadm_" %%ZHPADM %ZHPADM) + ("DGCHBV" "dgchbv_" %%DGCHBV %DGCHBV) + ("DNCHBV" "dnchbv_" %%DNCHBV %DNCHBV) + ("DSCHBV" "dschbv_" %%DSCHBV %DSCHBV) + ("ZGCHBV" "zgchbv_" %%ZGCHBV %ZGCHBV) + ("ZNCHBV" "znchbv_" %%ZNCHBV %ZNCHBV))) (COMMON-LISP:EXPORT '(%DGPADM %DSPADM %ZGPADM %ZHPADM %DGCHBV %DNCHBV %DSCHBV %ZGCHBV %ZNCHBV) diff --git a/src/bindings/lapack00-cffi.lisp b/src/bindings/lapack00-cffi.lisp index 91bdf95c..2b1d7bf0 100644 --- a/src/bindings/lapack00-cffi.lisp +++ b/src/bindings/lapack00-cffi.lisp @@ -16437,292 +16437,290 @@ %CLANGE %%CLANGT %CLANGT %%CLANHB %CLANHB %%CLANHE %CLANHE %%CLANHF %CLANHF %%CLANHP %CLANHP %%CLANHS %CLANHS %%CLANHT %CLANHT)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - ':MAGICL) - '(("CBBCSD" "cbbcsd_" %%CBBCSD %CBBCSD) - ("CBDSQR" "cbdsqr_" %%CBDSQR %CBDSQR) - ("CGBBRD" "cgbbrd_" %%CGBBRD %CGBBRD) - ("CGBCON" "cgbcon_" %%CGBCON %CGBCON) - ("CGBEQU" "cgbequ_" %%CGBEQU %CGBEQU) - ("CGBEQUB" "cgbequb_" %%CGBEQUB %CGBEQUB) - ("CGBRFS" "cgbrfs_" %%CGBRFS %CGBRFS) - ("CGBRFSX" "cgbrfsx_" %%CGBRFSX %CGBRFSX) - ("CGBSV" "cgbsv_" %%CGBSV %CGBSV) - ("CGBSVX" "cgbsvx_" %%CGBSVX %CGBSVX) - ("CGBSVXX" "cgbsvxx_" %%CGBSVXX %CGBSVXX) - ("CGBTF2" "cgbtf2_" %%CGBTF2 %CGBTF2) - ("CGBTRF" "cgbtrf_" %%CGBTRF %CGBTRF) - ("CGBTRS" "cgbtrs_" %%CGBTRS %CGBTRS) - ("CGEBAK" "cgebak_" %%CGEBAK %CGEBAK) - ("CGEBAL" "cgebal_" %%CGEBAL %CGEBAL) - ("CGEBD2" "cgebd2_" %%CGEBD2 %CGEBD2) - ("CGEBRD" "cgebrd_" %%CGEBRD %CGEBRD) - ("CGECON" "cgecon_" %%CGECON %CGECON) - ("CGEEQU" "cgeequ_" %%CGEEQU %CGEEQU) - ("CGEEQUB" "cgeequb_" %%CGEEQUB %CGEEQUB) - ("CGEES" "cgees_" %%CGEES %CGEES) - ("CGEESX" "cgeesx_" %%CGEESX %CGEESX) - ("CGEEV" "cgeev_" %%CGEEV %CGEEV) - ("CGEEVX" "cgeevx_" %%CGEEVX %CGEEVX) - ("CGEHD2" "cgehd2_" %%CGEHD2 %CGEHD2) - ("CGEHRD" "cgehrd_" %%CGEHRD %CGEHRD) - ("CGEJSV" "cgejsv_" %%CGEJSV %CGEJSV) - ("CGELQ" "cgelq_" %%CGELQ %CGELQ) - ("CGELQ2" "cgelq2_" %%CGELQ2 %CGELQ2) - ("CGELQF" "cgelqf_" %%CGELQF %CGELQF) - ("CGELQT" "cgelqt_" %%CGELQT %CGELQT) - ("CGELQT3" "cgelqt3_" %%CGELQT3 %CGELQT3) - ("CGELS" "cgels_" %%CGELS %CGELS) - ("CGELSD" "cgelsd_" %%CGELSD %CGELSD) - ("CGELSS" "cgelss_" %%CGELSS %CGELSS) - ("CGELSY" "cgelsy_" %%CGELSY %CGELSY) - ("CGEMLQ" "cgemlq_" %%CGEMLQ %CGEMLQ) - ("CGEMLQT" "cgemlqt_" %%CGEMLQT %CGEMLQT) - ("CGEMQR" "cgemqr_" %%CGEMQR %CGEMQR) - ("CGEMQRT" "cgemqrt_" %%CGEMQRT %CGEMQRT) - ("CGEQL2" "cgeql2_" %%CGEQL2 %CGEQL2) - ("CGEQLF" "cgeqlf_" %%CGEQLF %CGEQLF) - ("CGEQP3" "cgeqp3_" %%CGEQP3 %CGEQP3) - ("CGEQR" "cgeqr_" %%CGEQR %CGEQR) - ("CGEQR2" "cgeqr2_" %%CGEQR2 %CGEQR2) - ("CGEQR2P" "cgeqr2p_" %%CGEQR2P %CGEQR2P) - ("CGEQRF" "cgeqrf_" %%CGEQRF %CGEQRF) - ("CGEQRFP" "cgeqrfp_" %%CGEQRFP %CGEQRFP) - ("CGEQRT" "cgeqrt_" %%CGEQRT %CGEQRT) - ("CGEQRT2" "cgeqrt2_" %%CGEQRT2 %CGEQRT2) - ("CGEQRT3" "cgeqrt3_" %%CGEQRT3 %CGEQRT3) - ("CGERFS" "cgerfs_" %%CGERFS %CGERFS) - ("CGERFSX" "cgerfsx_" %%CGERFSX %CGERFSX) - ("CGERQ2" "cgerq2_" %%CGERQ2 %CGERQ2) - ("CGERQF" "cgerqf_" %%CGERQF %CGERQF) - ("CGESC2" "cgesc2_" %%CGESC2 %CGESC2) - ("CGESDD" "cgesdd_" %%CGESDD %CGESDD) - ("CGESV" "cgesv_" %%CGESV %CGESV) - ("CGESVD" "cgesvd_" %%CGESVD %CGESVD) - ("CGESVDQ" "cgesvdq_" %%CGESVDQ %CGESVDQ) - ("CGESVDX" "cgesvdx_" %%CGESVDX %CGESVDX) - ("CGESVJ" "cgesvj_" %%CGESVJ %CGESVJ) - ("CGESVX" "cgesvx_" %%CGESVX %CGESVX) - ("CGESVXX" "cgesvxx_" %%CGESVXX %CGESVXX) - ("CGETC2" "cgetc2_" %%CGETC2 %CGETC2) - ("CGETF2" "cgetf2_" %%CGETF2 %CGETF2) - ("CGETRF" "cgetrf_" %%CGETRF %CGETRF) - ("CGETRF2" "cgetrf2_" %%CGETRF2 %CGETRF2) - ("CGETRI" "cgetri_" %%CGETRI %CGETRI) - ("CGETRS" "cgetrs_" %%CGETRS %CGETRS) - ("CGETSLS" "cgetsls_" %%CGETSLS %CGETSLS) - ("CGGBAK" "cggbak_" %%CGGBAK %CGGBAK) - ("CGGBAL" "cggbal_" %%CGGBAL %CGGBAL) - ("CGGES" "cgges_" %%CGGES %CGGES) - ("CGGES3" "cgges3_" %%CGGES3 %CGGES3) - ("CGGESX" "cggesx_" %%CGGESX %CGGESX) - ("CGGEV" "cggev_" %%CGGEV %CGGEV) - ("CGGEV3" "cggev3_" %%CGGEV3 %CGGEV3) - ("CGGEVX" "cggevx_" %%CGGEVX %CGGEVX) - ("CGGGLM" "cggglm_" %%CGGGLM %CGGGLM) - ("CGGHD3" "cgghd3_" %%CGGHD3 %CGGHD3) - ("CGGHRD" "cgghrd_" %%CGGHRD %CGGHRD) - ("CGGLSE" "cgglse_" %%CGGLSE %CGGLSE) - ("CGGQRF" "cggqrf_" %%CGGQRF %CGGQRF) - ("CGGRQF" "cggrqf_" %%CGGRQF %CGGRQF) - ("CGGSVD3" "cggsvd3_" %%CGGSVD3 %CGGSVD3) - ("CGGSVP3" "cggsvp3_" %%CGGSVP3 %CGGSVP3) - ("CGSVJ0" "cgsvj0_" %%CGSVJ0 %CGSVJ0) - ("CGSVJ1" "cgsvj1_" %%CGSVJ1 %CGSVJ1) - ("CGTCON" "cgtcon_" %%CGTCON %CGTCON) - ("CGTRFS" "cgtrfs_" %%CGTRFS %CGTRFS) - ("CGTSV" "cgtsv_" %%CGTSV %CGTSV) - ("CGTSVX" "cgtsvx_" %%CGTSVX %CGTSVX) - ("CGTTRF" "cgttrf_" %%CGTTRF %CGTTRF) - ("CGTTRS" "cgttrs_" %%CGTTRS %CGTTRS) - ("CGTTS2" "cgtts2_" %%CGTTS2 %CGTTS2) - ("CHB2ST_KERNELS" "chb2st_kernels_" %%CHB2ST_KERNELS - %CHB2ST_KERNELS) - ("CHBEV" "chbev_" %%CHBEV %CHBEV) - ("CHBEV_2STAGE" "chbev_2stage_" %%CHBEV_2STAGE - %CHBEV_2STAGE) - ("CHBEVD" "chbevd_" %%CHBEVD %CHBEVD) - ("CHBEVD_2STAGE" "chbevd_2stage_" %%CHBEVD_2STAGE - %CHBEVD_2STAGE) - ("CHBEVX" "chbevx_" %%CHBEVX %CHBEVX) - ("CHBEVX_2STAGE" "chbevx_2stage_" %%CHBEVX_2STAGE - %CHBEVX_2STAGE) - ("CHBGST" "chbgst_" %%CHBGST %CHBGST) - ("CHBGV" "chbgv_" %%CHBGV %CHBGV) - ("CHBGVD" "chbgvd_" %%CHBGVD %CHBGVD) - ("CHBGVX" "chbgvx_" %%CHBGVX %CHBGVX) - ("CHBTRD" "chbtrd_" %%CHBTRD %CHBTRD) - ("CHECON" "checon_" %%CHECON %CHECON) - ("CHECON_3" "checon_3_" %%CHECON_3 %CHECON_3) - ("CHECON_ROOK" "checon_rook_" %%CHECON_ROOK %CHECON_ROOK) - ("CHEEQUB" "cheequb_" %%CHEEQUB %CHEEQUB) - ("CHEEV" "cheev_" %%CHEEV %CHEEV) - ("CHEEV_2STAGE" "cheev_2stage_" %%CHEEV_2STAGE - %CHEEV_2STAGE) - ("CHEEVD" "cheevd_" %%CHEEVD %CHEEVD) - ("CHEEVD_2STAGE" "cheevd_2stage_" %%CHEEVD_2STAGE - %CHEEVD_2STAGE) - ("CHEEVR" "cheevr_" %%CHEEVR %CHEEVR) - ("CHEEVR_2STAGE" "cheevr_2stage_" %%CHEEVR_2STAGE - %CHEEVR_2STAGE) - ("CHEEVX" "cheevx_" %%CHEEVX %CHEEVX) - ("CHEEVX_2STAGE" "cheevx_2stage_" %%CHEEVX_2STAGE - %CHEEVX_2STAGE) - ("CHEGS2" "chegs2_" %%CHEGS2 %CHEGS2) - ("CHEGST" "chegst_" %%CHEGST %CHEGST) - ("CHEGV" "chegv_" %%CHEGV %CHEGV) - ("CHEGV_2STAGE" "chegv_2stage_" %%CHEGV_2STAGE - %CHEGV_2STAGE) - ("CHEGVD" "chegvd_" %%CHEGVD %CHEGVD) - ("CHEGVX" "chegvx_" %%CHEGVX %CHEGVX) - ("CHERFS" "cherfs_" %%CHERFS %CHERFS) - ("CHERFSX" "cherfsx_" %%CHERFSX %CHERFSX) - ("CHESV" "chesv_" %%CHESV %CHESV) - ("CHESV_AA" "chesv_aa_" %%CHESV_AA %CHESV_AA) - ("CHESV_AA_2STAGE" "chesv_aa_2stage_" %%CHESV_AA_2STAGE - %CHESV_AA_2STAGE) - ("CHESV_RK" "chesv_rk_" %%CHESV_RK %CHESV_RK) - ("CHESV_ROOK" "chesv_rook_" %%CHESV_ROOK %CHESV_ROOK) - ("CHESVX" "chesvx_" %%CHESVX %CHESVX) - ("CHESVXX" "chesvxx_" %%CHESVXX %CHESVXX) - ("CHESWAPR" "cheswapr_" %%CHESWAPR %CHESWAPR) - ("CHETD2" "chetd2_" %%CHETD2 %CHETD2) - ("CHETF2" "chetf2_" %%CHETF2 %CHETF2) - ("CHETF2_RK" "chetf2_rk_" %%CHETF2_RK %CHETF2_RK) - ("CHETF2_ROOK" "chetf2_rook_" %%CHETF2_ROOK %CHETF2_ROOK) - ("CHETRD" "chetrd_" %%CHETRD %CHETRD) - ("CHETRD_2STAGE" "chetrd_2stage_" %%CHETRD_2STAGE - %CHETRD_2STAGE) - ("CHETRD_HE2HB" "chetrd_he2hb_" %%CHETRD_HE2HB - %CHETRD_HE2HB) - ("CHETRF" "chetrf_" %%CHETRF %CHETRF) - ("CHETRF_AA" "chetrf_aa_" %%CHETRF_AA %CHETRF_AA) - ("CHETRF_AA_2STAGE" "chetrf_aa_2stage_" - %%CHETRF_AA_2STAGE %CHETRF_AA_2STAGE) - ("CHETRF_RK" "chetrf_rk_" %%CHETRF_RK %CHETRF_RK) - ("CHETRF_ROOK" "chetrf_rook_" %%CHETRF_ROOK %CHETRF_ROOK) - ("CHETRI" "chetri_" %%CHETRI %CHETRI) - ("CHETRI2" "chetri2_" %%CHETRI2 %CHETRI2) - ("CHETRI2X" "chetri2x_" %%CHETRI2X %CHETRI2X) - ("CHETRI_3" "chetri_3_" %%CHETRI_3 %CHETRI_3) - ("CHETRI_3X" "chetri_3x_" %%CHETRI_3X %CHETRI_3X) - ("CHETRI_ROOK" "chetri_rook_" %%CHETRI_ROOK %CHETRI_ROOK) - ("CHETRS" "chetrs_" %%CHETRS %CHETRS) - ("CHETRS2" "chetrs2_" %%CHETRS2 %CHETRS2) - ("CHETRS_3" "chetrs_3_" %%CHETRS_3 %CHETRS_3) - ("CHETRS_AA" "chetrs_aa_" %%CHETRS_AA %CHETRS_AA) - ("CHETRS_AA_2STAGE" "chetrs_aa_2stage_" - %%CHETRS_AA_2STAGE %CHETRS_AA_2STAGE) - ("CHETRS_ROOK" "chetrs_rook_" %%CHETRS_ROOK %CHETRS_ROOK) - ("CHFRK" "chfrk_" %%CHFRK %CHFRK) - ("CHGEQZ" "chgeqz_" %%CHGEQZ %CHGEQZ) - ("CHLA_TRANSTYPE" "chla_transtype_" %%CHLA_TRANSTYPE - %CHLA_TRANSTYPE) - ("CHPCON" "chpcon_" %%CHPCON %CHPCON) - ("CHPEV" "chpev_" %%CHPEV %CHPEV) - ("CHPEVD" "chpevd_" %%CHPEVD %CHPEVD) - ("CHPEVX" "chpevx_" %%CHPEVX %CHPEVX) - ("CHPGST" "chpgst_" %%CHPGST %CHPGST) - ("CHPGV" "chpgv_" %%CHPGV %CHPGV) - ("CHPGVD" "chpgvd_" %%CHPGVD %CHPGVD) - ("CHPGVX" "chpgvx_" %%CHPGVX %CHPGVX) - ("CHPRFS" "chprfs_" %%CHPRFS %CHPRFS) - ("CHPSV" "chpsv_" %%CHPSV %CHPSV) - ("CHPSVX" "chpsvx_" %%CHPSVX %CHPSVX) - ("CHPTRD" "chptrd_" %%CHPTRD %CHPTRD) - ("CHPTRF" "chptrf_" %%CHPTRF %CHPTRF) - ("CHPTRI" "chptri_" %%CHPTRI %CHPTRI) - ("CHPTRS" "chptrs_" %%CHPTRS %CHPTRS) - ("CHSEIN" "chsein_" %%CHSEIN %CHSEIN) - ("CHSEQR" "chseqr_" %%CHSEQR %CHSEQR) - ("CLA_GBAMV" "cla_gbamv_" %%CLA_GBAMV %CLA_GBAMV) - ("CLA_GBRCOND_C" "cla_gbrcond_c_" %%CLA_GBRCOND_C - %CLA_GBRCOND_C) - ("CLA_GBRCOND_X" "cla_gbrcond_x_" %%CLA_GBRCOND_X - %CLA_GBRCOND_X) - ("CLA_GBRFSX_EXTENDED" "cla_gbrfsx_extended_" - %%CLA_GBRFSX_EXTENDED %CLA_GBRFSX_EXTENDED) - ("CLA_GBRPVGRW" "cla_gbrpvgrw_" %%CLA_GBRPVGRW - %CLA_GBRPVGRW) - ("CLA_GEAMV" "cla_geamv_" %%CLA_GEAMV %CLA_GEAMV) - ("CLA_GERCOND_C" "cla_gercond_c_" %%CLA_GERCOND_C - %CLA_GERCOND_C) - ("CLA_GERCOND_X" "cla_gercond_x_" %%CLA_GERCOND_X - %CLA_GERCOND_X) - ("CLA_GERFSX_EXTENDED" "cla_gerfsx_extended_" - %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED) - ("CLA_GERPVGRW" "cla_gerpvgrw_" %%CLA_GERPVGRW - %CLA_GERPVGRW) - ("CLA_HEAMV" "cla_heamv_" %%CLA_HEAMV %CLA_HEAMV) - ("CLA_HERCOND_C" "cla_hercond_c_" %%CLA_HERCOND_C - %CLA_HERCOND_C) - ("CLA_HERCOND_X" "cla_hercond_x_" %%CLA_HERCOND_X - %CLA_HERCOND_X) - ("CLA_HERFSX_EXTENDED" "cla_herfsx_extended_" - %%CLA_HERFSX_EXTENDED %CLA_HERFSX_EXTENDED) - ("CLA_HERPVGRW" "cla_herpvgrw_" %%CLA_HERPVGRW - %CLA_HERPVGRW) - ("CLA_LIN_BERR" "cla_lin_berr_" %%CLA_LIN_BERR - %CLA_LIN_BERR) - ("CLA_PORCOND_C" "cla_porcond_c_" %%CLA_PORCOND_C - %CLA_PORCOND_C) - ("CLA_PORCOND_X" "cla_porcond_x_" %%CLA_PORCOND_X - %CLA_PORCOND_X) - ("CLA_PORFSX_EXTENDED" "cla_porfsx_extended_" - %%CLA_PORFSX_EXTENDED %CLA_PORFSX_EXTENDED) - ("CLA_PORPVGRW" "cla_porpvgrw_" %%CLA_PORPVGRW - %CLA_PORPVGRW) - ("CLA_SYAMV" "cla_syamv_" %%CLA_SYAMV %CLA_SYAMV) - ("CLA_SYRCOND_C" "cla_syrcond_c_" %%CLA_SYRCOND_C - %CLA_SYRCOND_C) - ("CLA_SYRCOND_X" "cla_syrcond_x_" %%CLA_SYRCOND_X - %CLA_SYRCOND_X) - ("CLA_SYRFSX_EXTENDED" "cla_syrfsx_extended_" - %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED) - ("CLA_SYRPVGRW" "cla_syrpvgrw_" %%CLA_SYRPVGRW - %CLA_SYRPVGRW) - ("CLA_WWADDW" "cla_wwaddw_" %%CLA_WWADDW %CLA_WWADDW) - ("CLABRD" "clabrd_" %%CLABRD %CLABRD) - ("CLACGV" "clacgv_" %%CLACGV %CLACGV) - ("CLACN2" "clacn2_" %%CLACN2 %CLACN2) - ("CLACON" "clacon_" %%CLACON %CLACON) - ("CLACP2" "clacp2_" %%CLACP2 %CLACP2) - ("CLACPY" "clacpy_" %%CLACPY %CLACPY) - ("CLACRM" "clacrm_" %%CLACRM %CLACRM) - ("CLACRT" "clacrt_" %%CLACRT %CLACRT) - ("CLADIV" "cladiv_" %%CLADIV %CLADIV) - ("CLAED0" "claed0_" %%CLAED0 %CLAED0) - ("CLAED7" "claed7_" %%CLAED7 %CLAED7) - ("CLAED8" "claed8_" %%CLAED8 %CLAED8) - ("CLAEIN" "claein_" %%CLAEIN %CLAEIN) - ("CLAESY" "claesy_" %%CLAESY %CLAESY) - ("CLAEV2" "claev2_" %%CLAEV2 %CLAEV2) - ("CLAG2Z" "clag2z_" %%CLAG2Z %CLAG2Z) - ("CLAGS2" "clags2_" %%CLAGS2 %CLAGS2) - ("CLAGTM" "clagtm_" %%CLAGTM %CLAGTM) - ("CLAHEF" "clahef_" %%CLAHEF %CLAHEF) - ("CLAHEF_AA" "clahef_aa_" %%CLAHEF_AA %CLAHEF_AA) - ("CLAHEF_RK" "clahef_rk_" %%CLAHEF_RK %CLAHEF_RK) - ("CLAHEF_ROOK" "clahef_rook_" %%CLAHEF_ROOK %CLAHEF_ROOK) - ("CLAHQR" "clahqr_" %%CLAHQR %CLAHQR) - ("CLAHR2" "clahr2_" %%CLAHR2 %CLAHR2) - ("CLAIC1" "claic1_" %%CLAIC1 %CLAIC1) - ("CLALS0" "clals0_" %%CLALS0 %CLALS0) - ("CLALSA" "clalsa_" %%CLALSA %CLALSA) - ("CLALSD" "clalsd_" %%CLALSD %CLALSD) - ("CLAMSWLQ" "clamswlq_" %%CLAMSWLQ %CLAMSWLQ) - ("CLAMTSQR" "clamtsqr_" %%CLAMTSQR %CLAMTSQR) - ("CLANGB" "clangb_" %%CLANGB %CLANGB) - ("CLANGE" "clange_" %%CLANGE %CLANGE) - ("CLANGT" "clangt_" %%CLANGT %CLANGT) - ("CLANHB" "clanhb_" %%CLANHB %CLANHB) - ("CLANHE" "clanhe_" %%CLANHE %CLANHE) - ("CLANHF" "clanhf_" %%CLANHF %CLANHF) - ("CLANHP" "clanhp_" %%CLANHP %CLANHP) - ("CLANHS" "clanhs_" %%CLANHS %CLANHS) - ("CLANHT" "clanht_" %%CLANHT %CLANHT))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK + '(("CBBCSD" "cbbcsd_" %%CBBCSD %CBBCSD) + ("CBDSQR" "cbdsqr_" %%CBDSQR %CBDSQR) + ("CGBBRD" "cgbbrd_" %%CGBBRD %CGBBRD) + ("CGBCON" "cgbcon_" %%CGBCON %CGBCON) + ("CGBEQU" "cgbequ_" %%CGBEQU %CGBEQU) + ("CGBEQUB" "cgbequb_" %%CGBEQUB %CGBEQUB) + ("CGBRFS" "cgbrfs_" %%CGBRFS %CGBRFS) + ("CGBRFSX" "cgbrfsx_" %%CGBRFSX %CGBRFSX) + ("CGBSV" "cgbsv_" %%CGBSV %CGBSV) + ("CGBSVX" "cgbsvx_" %%CGBSVX %CGBSVX) + ("CGBSVXX" "cgbsvxx_" %%CGBSVXX %CGBSVXX) + ("CGBTF2" "cgbtf2_" %%CGBTF2 %CGBTF2) + ("CGBTRF" "cgbtrf_" %%CGBTRF %CGBTRF) + ("CGBTRS" "cgbtrs_" %%CGBTRS %CGBTRS) + ("CGEBAK" "cgebak_" %%CGEBAK %CGEBAK) + ("CGEBAL" "cgebal_" %%CGEBAL %CGEBAL) + ("CGEBD2" "cgebd2_" %%CGEBD2 %CGEBD2) + ("CGEBRD" "cgebrd_" %%CGEBRD %CGEBRD) + ("CGECON" "cgecon_" %%CGECON %CGECON) + ("CGEEQU" "cgeequ_" %%CGEEQU %CGEEQU) + ("CGEEQUB" "cgeequb_" %%CGEEQUB %CGEEQUB) + ("CGEES" "cgees_" %%CGEES %CGEES) + ("CGEESX" "cgeesx_" %%CGEESX %CGEESX) + ("CGEEV" "cgeev_" %%CGEEV %CGEEV) + ("CGEEVX" "cgeevx_" %%CGEEVX %CGEEVX) + ("CGEHD2" "cgehd2_" %%CGEHD2 %CGEHD2) + ("CGEHRD" "cgehrd_" %%CGEHRD %CGEHRD) + ("CGEJSV" "cgejsv_" %%CGEJSV %CGEJSV) + ("CGELQ" "cgelq_" %%CGELQ %CGELQ) + ("CGELQ2" "cgelq2_" %%CGELQ2 %CGELQ2) + ("CGELQF" "cgelqf_" %%CGELQF %CGELQF) + ("CGELQT" "cgelqt_" %%CGELQT %CGELQT) + ("CGELQT3" "cgelqt3_" %%CGELQT3 %CGELQT3) + ("CGELS" "cgels_" %%CGELS %CGELS) + ("CGELSD" "cgelsd_" %%CGELSD %CGELSD) + ("CGELSS" "cgelss_" %%CGELSS %CGELSS) + ("CGELSY" "cgelsy_" %%CGELSY %CGELSY) + ("CGEMLQ" "cgemlq_" %%CGEMLQ %CGEMLQ) + ("CGEMLQT" "cgemlqt_" %%CGEMLQT %CGEMLQT) + ("CGEMQR" "cgemqr_" %%CGEMQR %CGEMQR) + ("CGEMQRT" "cgemqrt_" %%CGEMQRT %CGEMQRT) + ("CGEQL2" "cgeql2_" %%CGEQL2 %CGEQL2) + ("CGEQLF" "cgeqlf_" %%CGEQLF %CGEQLF) + ("CGEQP3" "cgeqp3_" %%CGEQP3 %CGEQP3) + ("CGEQR" "cgeqr_" %%CGEQR %CGEQR) + ("CGEQR2" "cgeqr2_" %%CGEQR2 %CGEQR2) + ("CGEQR2P" "cgeqr2p_" %%CGEQR2P %CGEQR2P) + ("CGEQRF" "cgeqrf_" %%CGEQRF %CGEQRF) + ("CGEQRFP" "cgeqrfp_" %%CGEQRFP %CGEQRFP) + ("CGEQRT" "cgeqrt_" %%CGEQRT %CGEQRT) + ("CGEQRT2" "cgeqrt2_" %%CGEQRT2 %CGEQRT2) + ("CGEQRT3" "cgeqrt3_" %%CGEQRT3 %CGEQRT3) + ("CGERFS" "cgerfs_" %%CGERFS %CGERFS) + ("CGERFSX" "cgerfsx_" %%CGERFSX %CGERFSX) + ("CGERQ2" "cgerq2_" %%CGERQ2 %CGERQ2) + ("CGERQF" "cgerqf_" %%CGERQF %CGERQF) + ("CGESC2" "cgesc2_" %%CGESC2 %CGESC2) + ("CGESDD" "cgesdd_" %%CGESDD %CGESDD) + ("CGESV" "cgesv_" %%CGESV %CGESV) + ("CGESVD" "cgesvd_" %%CGESVD %CGESVD) + ("CGESVDQ" "cgesvdq_" %%CGESVDQ %CGESVDQ) + ("CGESVDX" "cgesvdx_" %%CGESVDX %CGESVDX) + ("CGESVJ" "cgesvj_" %%CGESVJ %CGESVJ) + ("CGESVX" "cgesvx_" %%CGESVX %CGESVX) + ("CGESVXX" "cgesvxx_" %%CGESVXX %CGESVXX) + ("CGETC2" "cgetc2_" %%CGETC2 %CGETC2) + ("CGETF2" "cgetf2_" %%CGETF2 %CGETF2) + ("CGETRF" "cgetrf_" %%CGETRF %CGETRF) + ("CGETRF2" "cgetrf2_" %%CGETRF2 %CGETRF2) + ("CGETRI" "cgetri_" %%CGETRI %CGETRI) + ("CGETRS" "cgetrs_" %%CGETRS %CGETRS) + ("CGETSLS" "cgetsls_" %%CGETSLS %CGETSLS) + ("CGGBAK" "cggbak_" %%CGGBAK %CGGBAK) + ("CGGBAL" "cggbal_" %%CGGBAL %CGGBAL) + ("CGGES" "cgges_" %%CGGES %CGGES) + ("CGGES3" "cgges3_" %%CGGES3 %CGGES3) + ("CGGESX" "cggesx_" %%CGGESX %CGGESX) + ("CGGEV" "cggev_" %%CGGEV %CGGEV) + ("CGGEV3" "cggev3_" %%CGGEV3 %CGGEV3) + ("CGGEVX" "cggevx_" %%CGGEVX %CGGEVX) + ("CGGGLM" "cggglm_" %%CGGGLM %CGGGLM) + ("CGGHD3" "cgghd3_" %%CGGHD3 %CGGHD3) + ("CGGHRD" "cgghrd_" %%CGGHRD %CGGHRD) + ("CGGLSE" "cgglse_" %%CGGLSE %CGGLSE) + ("CGGQRF" "cggqrf_" %%CGGQRF %CGGQRF) + ("CGGRQF" "cggrqf_" %%CGGRQF %CGGRQF) + ("CGGSVD3" "cggsvd3_" %%CGGSVD3 %CGGSVD3) + ("CGGSVP3" "cggsvp3_" %%CGGSVP3 %CGGSVP3) + ("CGSVJ0" "cgsvj0_" %%CGSVJ0 %CGSVJ0) + ("CGSVJ1" "cgsvj1_" %%CGSVJ1 %CGSVJ1) + ("CGTCON" "cgtcon_" %%CGTCON %CGTCON) + ("CGTRFS" "cgtrfs_" %%CGTRFS %CGTRFS) + ("CGTSV" "cgtsv_" %%CGTSV %CGTSV) + ("CGTSVX" "cgtsvx_" %%CGTSVX %CGTSVX) + ("CGTTRF" "cgttrf_" %%CGTTRF %CGTTRF) + ("CGTTRS" "cgttrs_" %%CGTTRS %CGTTRS) + ("CGTTS2" "cgtts2_" %%CGTTS2 %CGTTS2) + ("CHB2ST_KERNELS" "chb2st_kernels_" %%CHB2ST_KERNELS + %CHB2ST_KERNELS) + ("CHBEV" "chbev_" %%CHBEV %CHBEV) + ("CHBEV_2STAGE" "chbev_2stage_" %%CHBEV_2STAGE + %CHBEV_2STAGE) + ("CHBEVD" "chbevd_" %%CHBEVD %CHBEVD) + ("CHBEVD_2STAGE" "chbevd_2stage_" %%CHBEVD_2STAGE + %CHBEVD_2STAGE) + ("CHBEVX" "chbevx_" %%CHBEVX %CHBEVX) + ("CHBEVX_2STAGE" "chbevx_2stage_" %%CHBEVX_2STAGE + %CHBEVX_2STAGE) + ("CHBGST" "chbgst_" %%CHBGST %CHBGST) + ("CHBGV" "chbgv_" %%CHBGV %CHBGV) + ("CHBGVD" "chbgvd_" %%CHBGVD %CHBGVD) + ("CHBGVX" "chbgvx_" %%CHBGVX %CHBGVX) + ("CHBTRD" "chbtrd_" %%CHBTRD %CHBTRD) + ("CHECON" "checon_" %%CHECON %CHECON) + ("CHECON_3" "checon_3_" %%CHECON_3 %CHECON_3) + ("CHECON_ROOK" "checon_rook_" %%CHECON_ROOK %CHECON_ROOK) + ("CHEEQUB" "cheequb_" %%CHEEQUB %CHEEQUB) + ("CHEEV" "cheev_" %%CHEEV %CHEEV) + ("CHEEV_2STAGE" "cheev_2stage_" %%CHEEV_2STAGE + %CHEEV_2STAGE) + ("CHEEVD" "cheevd_" %%CHEEVD %CHEEVD) + ("CHEEVD_2STAGE" "cheevd_2stage_" %%CHEEVD_2STAGE + %CHEEVD_2STAGE) + ("CHEEVR" "cheevr_" %%CHEEVR %CHEEVR) + ("CHEEVR_2STAGE" "cheevr_2stage_" %%CHEEVR_2STAGE + %CHEEVR_2STAGE) + ("CHEEVX" "cheevx_" %%CHEEVX %CHEEVX) + ("CHEEVX_2STAGE" "cheevx_2stage_" %%CHEEVX_2STAGE + %CHEEVX_2STAGE) + ("CHEGS2" "chegs2_" %%CHEGS2 %CHEGS2) + ("CHEGST" "chegst_" %%CHEGST %CHEGST) + ("CHEGV" "chegv_" %%CHEGV %CHEGV) + ("CHEGV_2STAGE" "chegv_2stage_" %%CHEGV_2STAGE + %CHEGV_2STAGE) + ("CHEGVD" "chegvd_" %%CHEGVD %CHEGVD) + ("CHEGVX" "chegvx_" %%CHEGVX %CHEGVX) + ("CHERFS" "cherfs_" %%CHERFS %CHERFS) + ("CHERFSX" "cherfsx_" %%CHERFSX %CHERFSX) + ("CHESV" "chesv_" %%CHESV %CHESV) + ("CHESV_AA" "chesv_aa_" %%CHESV_AA %CHESV_AA) + ("CHESV_AA_2STAGE" "chesv_aa_2stage_" %%CHESV_AA_2STAGE + %CHESV_AA_2STAGE) + ("CHESV_RK" "chesv_rk_" %%CHESV_RK %CHESV_RK) + ("CHESV_ROOK" "chesv_rook_" %%CHESV_ROOK %CHESV_ROOK) + ("CHESVX" "chesvx_" %%CHESVX %CHESVX) + ("CHESVXX" "chesvxx_" %%CHESVXX %CHESVXX) + ("CHESWAPR" "cheswapr_" %%CHESWAPR %CHESWAPR) + ("CHETD2" "chetd2_" %%CHETD2 %CHETD2) + ("CHETF2" "chetf2_" %%CHETF2 %CHETF2) + ("CHETF2_RK" "chetf2_rk_" %%CHETF2_RK %CHETF2_RK) + ("CHETF2_ROOK" "chetf2_rook_" %%CHETF2_ROOK %CHETF2_ROOK) + ("CHETRD" "chetrd_" %%CHETRD %CHETRD) + ("CHETRD_2STAGE" "chetrd_2stage_" %%CHETRD_2STAGE + %CHETRD_2STAGE) + ("CHETRD_HE2HB" "chetrd_he2hb_" %%CHETRD_HE2HB + %CHETRD_HE2HB) + ("CHETRF" "chetrf_" %%CHETRF %CHETRF) + ("CHETRF_AA" "chetrf_aa_" %%CHETRF_AA %CHETRF_AA) + ("CHETRF_AA_2STAGE" "chetrf_aa_2stage_" + %%CHETRF_AA_2STAGE %CHETRF_AA_2STAGE) + ("CHETRF_RK" "chetrf_rk_" %%CHETRF_RK %CHETRF_RK) + ("CHETRF_ROOK" "chetrf_rook_" %%CHETRF_ROOK %CHETRF_ROOK) + ("CHETRI" "chetri_" %%CHETRI %CHETRI) + ("CHETRI2" "chetri2_" %%CHETRI2 %CHETRI2) + ("CHETRI2X" "chetri2x_" %%CHETRI2X %CHETRI2X) + ("CHETRI_3" "chetri_3_" %%CHETRI_3 %CHETRI_3) + ("CHETRI_3X" "chetri_3x_" %%CHETRI_3X %CHETRI_3X) + ("CHETRI_ROOK" "chetri_rook_" %%CHETRI_ROOK %CHETRI_ROOK) + ("CHETRS" "chetrs_" %%CHETRS %CHETRS) + ("CHETRS2" "chetrs2_" %%CHETRS2 %CHETRS2) + ("CHETRS_3" "chetrs_3_" %%CHETRS_3 %CHETRS_3) + ("CHETRS_AA" "chetrs_aa_" %%CHETRS_AA %CHETRS_AA) + ("CHETRS_AA_2STAGE" "chetrs_aa_2stage_" + %%CHETRS_AA_2STAGE %CHETRS_AA_2STAGE) + ("CHETRS_ROOK" "chetrs_rook_" %%CHETRS_ROOK %CHETRS_ROOK) + ("CHFRK" "chfrk_" %%CHFRK %CHFRK) + ("CHGEQZ" "chgeqz_" %%CHGEQZ %CHGEQZ) + ("CHLA_TRANSTYPE" "chla_transtype_" %%CHLA_TRANSTYPE + %CHLA_TRANSTYPE) + ("CHPCON" "chpcon_" %%CHPCON %CHPCON) + ("CHPEV" "chpev_" %%CHPEV %CHPEV) + ("CHPEVD" "chpevd_" %%CHPEVD %CHPEVD) + ("CHPEVX" "chpevx_" %%CHPEVX %CHPEVX) + ("CHPGST" "chpgst_" %%CHPGST %CHPGST) + ("CHPGV" "chpgv_" %%CHPGV %CHPGV) + ("CHPGVD" "chpgvd_" %%CHPGVD %CHPGVD) + ("CHPGVX" "chpgvx_" %%CHPGVX %CHPGVX) + ("CHPRFS" "chprfs_" %%CHPRFS %CHPRFS) + ("CHPSV" "chpsv_" %%CHPSV %CHPSV) + ("CHPSVX" "chpsvx_" %%CHPSVX %CHPSVX) + ("CHPTRD" "chptrd_" %%CHPTRD %CHPTRD) + ("CHPTRF" "chptrf_" %%CHPTRF %CHPTRF) + ("CHPTRI" "chptri_" %%CHPTRI %CHPTRI) + ("CHPTRS" "chptrs_" %%CHPTRS %CHPTRS) + ("CHSEIN" "chsein_" %%CHSEIN %CHSEIN) + ("CHSEQR" "chseqr_" %%CHSEQR %CHSEQR) + ("CLA_GBAMV" "cla_gbamv_" %%CLA_GBAMV %CLA_GBAMV) + ("CLA_GBRCOND_C" "cla_gbrcond_c_" %%CLA_GBRCOND_C + %CLA_GBRCOND_C) + ("CLA_GBRCOND_X" "cla_gbrcond_x_" %%CLA_GBRCOND_X + %CLA_GBRCOND_X) + ("CLA_GBRFSX_EXTENDED" "cla_gbrfsx_extended_" + %%CLA_GBRFSX_EXTENDED %CLA_GBRFSX_EXTENDED) + ("CLA_GBRPVGRW" "cla_gbrpvgrw_" %%CLA_GBRPVGRW + %CLA_GBRPVGRW) + ("CLA_GEAMV" "cla_geamv_" %%CLA_GEAMV %CLA_GEAMV) + ("CLA_GERCOND_C" "cla_gercond_c_" %%CLA_GERCOND_C + %CLA_GERCOND_C) + ("CLA_GERCOND_X" "cla_gercond_x_" %%CLA_GERCOND_X + %CLA_GERCOND_X) + ("CLA_GERFSX_EXTENDED" "cla_gerfsx_extended_" + %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED) + ("CLA_GERPVGRW" "cla_gerpvgrw_" %%CLA_GERPVGRW + %CLA_GERPVGRW) + ("CLA_HEAMV" "cla_heamv_" %%CLA_HEAMV %CLA_HEAMV) + ("CLA_HERCOND_C" "cla_hercond_c_" %%CLA_HERCOND_C + %CLA_HERCOND_C) + ("CLA_HERCOND_X" "cla_hercond_x_" %%CLA_HERCOND_X + %CLA_HERCOND_X) + ("CLA_HERFSX_EXTENDED" "cla_herfsx_extended_" + %%CLA_HERFSX_EXTENDED %CLA_HERFSX_EXTENDED) + ("CLA_HERPVGRW" "cla_herpvgrw_" %%CLA_HERPVGRW + %CLA_HERPVGRW) + ("CLA_LIN_BERR" "cla_lin_berr_" %%CLA_LIN_BERR + %CLA_LIN_BERR) + ("CLA_PORCOND_C" "cla_porcond_c_" %%CLA_PORCOND_C + %CLA_PORCOND_C) + ("CLA_PORCOND_X" "cla_porcond_x_" %%CLA_PORCOND_X + %CLA_PORCOND_X) + ("CLA_PORFSX_EXTENDED" "cla_porfsx_extended_" + %%CLA_PORFSX_EXTENDED %CLA_PORFSX_EXTENDED) + ("CLA_PORPVGRW" "cla_porpvgrw_" %%CLA_PORPVGRW + %CLA_PORPVGRW) + ("CLA_SYAMV" "cla_syamv_" %%CLA_SYAMV %CLA_SYAMV) + ("CLA_SYRCOND_C" "cla_syrcond_c_" %%CLA_SYRCOND_C + %CLA_SYRCOND_C) + ("CLA_SYRCOND_X" "cla_syrcond_x_" %%CLA_SYRCOND_X + %CLA_SYRCOND_X) + ("CLA_SYRFSX_EXTENDED" "cla_syrfsx_extended_" + %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED) + ("CLA_SYRPVGRW" "cla_syrpvgrw_" %%CLA_SYRPVGRW + %CLA_SYRPVGRW) + ("CLA_WWADDW" "cla_wwaddw_" %%CLA_WWADDW %CLA_WWADDW) + ("CLABRD" "clabrd_" %%CLABRD %CLABRD) + ("CLACGV" "clacgv_" %%CLACGV %CLACGV) + ("CLACN2" "clacn2_" %%CLACN2 %CLACN2) + ("CLACON" "clacon_" %%CLACON %CLACON) + ("CLACP2" "clacp2_" %%CLACP2 %CLACP2) + ("CLACPY" "clacpy_" %%CLACPY %CLACPY) + ("CLACRM" "clacrm_" %%CLACRM %CLACRM) + ("CLACRT" "clacrt_" %%CLACRT %CLACRT) + ("CLADIV" "cladiv_" %%CLADIV %CLADIV) + ("CLAED0" "claed0_" %%CLAED0 %CLAED0) + ("CLAED7" "claed7_" %%CLAED7 %CLAED7) + ("CLAED8" "claed8_" %%CLAED8 %CLAED8) + ("CLAEIN" "claein_" %%CLAEIN %CLAEIN) + ("CLAESY" "claesy_" %%CLAESY %CLAESY) + ("CLAEV2" "claev2_" %%CLAEV2 %CLAEV2) + ("CLAG2Z" "clag2z_" %%CLAG2Z %CLAG2Z) + ("CLAGS2" "clags2_" %%CLAGS2 %CLAGS2) + ("CLAGTM" "clagtm_" %%CLAGTM %CLAGTM) + ("CLAHEF" "clahef_" %%CLAHEF %CLAHEF) + ("CLAHEF_AA" "clahef_aa_" %%CLAHEF_AA %CLAHEF_AA) + ("CLAHEF_RK" "clahef_rk_" %%CLAHEF_RK %CLAHEF_RK) + ("CLAHEF_ROOK" "clahef_rook_" %%CLAHEF_ROOK %CLAHEF_ROOK) + ("CLAHQR" "clahqr_" %%CLAHQR %CLAHQR) + ("CLAHR2" "clahr2_" %%CLAHR2 %CLAHR2) + ("CLAIC1" "claic1_" %%CLAIC1 %CLAIC1) + ("CLALS0" "clals0_" %%CLALS0 %CLALS0) + ("CLALSA" "clalsa_" %%CLALSA %CLALSA) + ("CLALSD" "clalsd_" %%CLALSD %CLALSD) + ("CLAMSWLQ" "clamswlq_" %%CLAMSWLQ %CLAMSWLQ) + ("CLAMTSQR" "clamtsqr_" %%CLAMTSQR %CLAMTSQR) + ("CLANGB" "clangb_" %%CLANGB %CLANGB) + ("CLANGE" "clange_" %%CLANGE %CLANGE) + ("CLANGT" "clangt_" %%CLANGT %CLANGT) + ("CLANHB" "clanhb_" %%CLANHB %CLANHB) + ("CLANHE" "clanhe_" %%CLANHE %CLANHE) + ("CLANHF" "clanhf_" %%CLANHF %CLANHF) + ("CLANHP" "clanhp_" %%CLANHP %CLANHP) + ("CLANHS" "clanhs_" %%CLANHS %CLANHS) + ("CLANHT" "clanht_" %%CLANHT %CLANHT))) (COMMON-LISP:EXPORT '(%CBBCSD %CBDSQR %CGBBRD %CGBCON %CGBEQU %CGBEQUB %CGBRFS %CGBRFSX %CGBSV diff --git a/src/bindings/lapack01-cffi.lisp b/src/bindings/lapack01-cffi.lisp index f3ef5a06..d287c6e8 100644 --- a/src/bindings/lapack01-cffi.lisp +++ b/src/bindings/lapack01-cffi.lisp @@ -13952,260 +13952,258 @@ %%CUPMTR %CUPMTR %%DBBCSD %DBBCSD %%DBDSDC %DBDSDC %%DBDSQR %DBDSQR %%DBDSVDX %DBDSVDX %%DCOMBSSQ %DCOMBSSQ %%DDISNA %DDISNA)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - ':MAGICL) - '(("CLANSB" "clansb_" %%CLANSB %CLANSB) - ("CLANSP" "clansp_" %%CLANSP %CLANSP) - ("CLANSY" "clansy_" %%CLANSY %CLANSY) - ("CLANTB" "clantb_" %%CLANTB %CLANTB) - ("CLANTP" "clantp_" %%CLANTP %CLANTP) - ("CLANTR" "clantr_" %%CLANTR %CLANTR) - ("CLAPLL" "clapll_" %%CLAPLL %CLAPLL) - ("CLAPMR" "clapmr_" %%CLAPMR %CLAPMR) - ("CLAPMT" "clapmt_" %%CLAPMT %CLAPMT) - ("CLAQGB" "claqgb_" %%CLAQGB %CLAQGB) - ("CLAQGE" "claqge_" %%CLAQGE %CLAQGE) - ("CLAQHB" "claqhb_" %%CLAQHB %CLAQHB) - ("CLAQHE" "claqhe_" %%CLAQHE %CLAQHE) - ("CLAQHP" "claqhp_" %%CLAQHP %CLAQHP) - ("CLAQP2" "claqp2_" %%CLAQP2 %CLAQP2) - ("CLAQPS" "claqps_" %%CLAQPS %CLAQPS) - ("CLAQR0" "claqr0_" %%CLAQR0 %CLAQR0) - ("CLAQR1" "claqr1_" %%CLAQR1 %CLAQR1) - ("CLAQR2" "claqr2_" %%CLAQR2 %CLAQR2) - ("CLAQR3" "claqr3_" %%CLAQR3 %CLAQR3) - ("CLAQR4" "claqr4_" %%CLAQR4 %CLAQR4) - ("CLAQR5" "claqr5_" %%CLAQR5 %CLAQR5) - ("CLAQSB" "claqsb_" %%CLAQSB %CLAQSB) - ("CLAQSP" "claqsp_" %%CLAQSP %CLAQSP) - ("CLAQSY" "claqsy_" %%CLAQSY %CLAQSY) - ("CLAR1V" "clar1v_" %%CLAR1V %CLAR1V) - ("CLAR2V" "clar2v_" %%CLAR2V %CLAR2V) - ("CLARCM" "clarcm_" %%CLARCM %CLARCM) - ("CLARF" "clarf_" %%CLARF %CLARF) - ("CLARFB" "clarfb_" %%CLARFB %CLARFB) - ("CLARFG" "clarfg_" %%CLARFG %CLARFG) - ("CLARFGP" "clarfgp_" %%CLARFGP %CLARFGP) - ("CLARFT" "clarft_" %%CLARFT %CLARFT) - ("CLARFX" "clarfx_" %%CLARFX %CLARFX) - ("CLARFY" "clarfy_" %%CLARFY %CLARFY) - ("CLARGV" "clargv_" %%CLARGV %CLARGV) - ("CLARNV" "clarnv_" %%CLARNV %CLARNV) - ("CLARRV" "clarrv_" %%CLARRV %CLARRV) - ("CLARSCL2" "clarscl2_" %%CLARSCL2 %CLARSCL2) - ("CLARTG" "clartg_" %%CLARTG %CLARTG) - ("CLARTV" "clartv_" %%CLARTV %CLARTV) - ("CLARZ" "clarz_" %%CLARZ %CLARZ) - ("CLARZB" "clarzb_" %%CLARZB %CLARZB) - ("CLARZT" "clarzt_" %%CLARZT %CLARZT) - ("CLASCL" "clascl_" %%CLASCL %CLASCL) - ("CLASCL2" "clascl2_" %%CLASCL2 %CLASCL2) - ("CLASET" "claset_" %%CLASET %CLASET) - ("CLASR" "clasr_" %%CLASR %CLASR) - ("CLASSQ" "classq_" %%CLASSQ %CLASSQ) - ("CLASWLQ" "claswlq_" %%CLASWLQ %CLASWLQ) - ("CLASWP" "claswp_" %%CLASWP %CLASWP) - ("CLASYF" "clasyf_" %%CLASYF %CLASYF) - ("CLASYF_AA" "clasyf_aa_" %%CLASYF_AA %CLASYF_AA) - ("CLASYF_RK" "clasyf_rk_" %%CLASYF_RK %CLASYF_RK) - ("CLASYF_ROOK" "clasyf_rook_" %%CLASYF_ROOK %CLASYF_ROOK) - ("CLATBS" "clatbs_" %%CLATBS %CLATBS) - ("CLATDF" "clatdf_" %%CLATDF %CLATDF) - ("CLATPS" "clatps_" %%CLATPS %CLATPS) - ("CLATRD" "clatrd_" %%CLATRD %CLATRD) - ("CLATRS" "clatrs_" %%CLATRS %CLATRS) - ("CLATRZ" "clatrz_" %%CLATRZ %CLATRZ) - ("CLATSQR" "clatsqr_" %%CLATSQR %CLATSQR) - ("CLAUU2" "clauu2_" %%CLAUU2 %CLAUU2) - ("CLAUUM" "clauum_" %%CLAUUM %CLAUUM) - ("CPBCON" "cpbcon_" %%CPBCON %CPBCON) - ("CPBEQU" "cpbequ_" %%CPBEQU %CPBEQU) - ("CPBRFS" "cpbrfs_" %%CPBRFS %CPBRFS) - ("CPBSTF" "cpbstf_" %%CPBSTF %CPBSTF) - ("CPBSV" "cpbsv_" %%CPBSV %CPBSV) - ("CPBSVX" "cpbsvx_" %%CPBSVX %CPBSVX) - ("CPBTF2" "cpbtf2_" %%CPBTF2 %CPBTF2) - ("CPBTRF" "cpbtrf_" %%CPBTRF %CPBTRF) - ("CPBTRS" "cpbtrs_" %%CPBTRS %CPBTRS) - ("CPFTRF" "cpftrf_" %%CPFTRF %CPFTRF) - ("CPFTRI" "cpftri_" %%CPFTRI %CPFTRI) - ("CPFTRS" "cpftrs_" %%CPFTRS %CPFTRS) - ("CPOCON" "cpocon_" %%CPOCON %CPOCON) - ("CPOEQU" "cpoequ_" %%CPOEQU %CPOEQU) - ("CPOEQUB" "cpoequb_" %%CPOEQUB %CPOEQUB) - ("CPORFS" "cporfs_" %%CPORFS %CPORFS) - ("CPORFSX" "cporfsx_" %%CPORFSX %CPORFSX) - ("CPOSV" "cposv_" %%CPOSV %CPOSV) - ("CPOSVX" "cposvx_" %%CPOSVX %CPOSVX) - ("CPOSVXX" "cposvxx_" %%CPOSVXX %CPOSVXX) - ("CPOTF2" "cpotf2_" %%CPOTF2 %CPOTF2) - ("CPOTRF" "cpotrf_" %%CPOTRF %CPOTRF) - ("CPOTRF2" "cpotrf2_" %%CPOTRF2 %CPOTRF2) - ("CPOTRI" "cpotri_" %%CPOTRI %CPOTRI) - ("CPOTRS" "cpotrs_" %%CPOTRS %CPOTRS) - ("CPPCON" "cppcon_" %%CPPCON %CPPCON) - ("CPPEQU" "cppequ_" %%CPPEQU %CPPEQU) - ("CPPRFS" "cpprfs_" %%CPPRFS %CPPRFS) - ("CPPSV" "cppsv_" %%CPPSV %CPPSV) - ("CPPSVX" "cppsvx_" %%CPPSVX %CPPSVX) - ("CPPTRF" "cpptrf_" %%CPPTRF %CPPTRF) - ("CPPTRI" "cpptri_" %%CPPTRI %CPPTRI) - ("CPPTRS" "cpptrs_" %%CPPTRS %CPPTRS) - ("CPSTF2" "cpstf2_" %%CPSTF2 %CPSTF2) - ("CPSTRF" "cpstrf_" %%CPSTRF %CPSTRF) - ("CPTCON" "cptcon_" %%CPTCON %CPTCON) - ("CPTEQR" "cpteqr_" %%CPTEQR %CPTEQR) - ("CPTRFS" "cptrfs_" %%CPTRFS %CPTRFS) - ("CPTSV" "cptsv_" %%CPTSV %CPTSV) - ("CPTSVX" "cptsvx_" %%CPTSVX %CPTSVX) - ("CPTTRF" "cpttrf_" %%CPTTRF %CPTTRF) - ("CPTTRS" "cpttrs_" %%CPTTRS %CPTTRS) - ("CPTTS2" "cptts2_" %%CPTTS2 %CPTTS2) - ("CROT" "crot_" %%CROT %CROT) - ("CSPCON" "cspcon_" %%CSPCON %CSPCON) - ("CSPMV" "cspmv_" %%CSPMV %CSPMV) - ("CSPR" "cspr_" %%CSPR %CSPR) - ("CSPRFS" "csprfs_" %%CSPRFS %CSPRFS) - ("CSPSV" "cspsv_" %%CSPSV %CSPSV) - ("CSPSVX" "cspsvx_" %%CSPSVX %CSPSVX) - ("CSPTRF" "csptrf_" %%CSPTRF %CSPTRF) - ("CSPTRI" "csptri_" %%CSPTRI %CSPTRI) - ("CSPTRS" "csptrs_" %%CSPTRS %CSPTRS) - ("CSRSCL" "csrscl_" %%CSRSCL %CSRSCL) - ("CSTEDC" "cstedc_" %%CSTEDC %CSTEDC) - ("CSTEGR" "cstegr_" %%CSTEGR %CSTEGR) - ("CSTEIN" "cstein_" %%CSTEIN %CSTEIN) - ("CSTEMR" "cstemr_" %%CSTEMR %CSTEMR) - ("CSTEQR" "csteqr_" %%CSTEQR %CSTEQR) - ("CSYCON" "csycon_" %%CSYCON %CSYCON) - ("CSYCON_3" "csycon_3_" %%CSYCON_3 %CSYCON_3) - ("CSYCON_ROOK" "csycon_rook_" %%CSYCON_ROOK %CSYCON_ROOK) - ("CSYCONV" "csyconv_" %%CSYCONV %CSYCONV) - ("CSYCONVF" "csyconvf_" %%CSYCONVF %CSYCONVF) - ("CSYCONVF_ROOK" "csyconvf_rook_" %%CSYCONVF_ROOK - %CSYCONVF_ROOK) - ("CSYEQUB" "csyequb_" %%CSYEQUB %CSYEQUB) - ("CSYMV" "csymv_" %%CSYMV %CSYMV) - ("CSYR" "csyr_" %%CSYR %CSYR) - ("CSYRFS" "csyrfs_" %%CSYRFS %CSYRFS) - ("CSYRFSX" "csyrfsx_" %%CSYRFSX %CSYRFSX) - ("CSYSV" "csysv_" %%CSYSV %CSYSV) - ("CSYSV_AA" "csysv_aa_" %%CSYSV_AA %CSYSV_AA) - ("CSYSV_AA_2STAGE" "csysv_aa_2stage_" %%CSYSV_AA_2STAGE - %CSYSV_AA_2STAGE) - ("CSYSV_RK" "csysv_rk_" %%CSYSV_RK %CSYSV_RK) - ("CSYSV_ROOK" "csysv_rook_" %%CSYSV_ROOK %CSYSV_ROOK) - ("CSYSVX" "csysvx_" %%CSYSVX %CSYSVX) - ("CSYSVXX" "csysvxx_" %%CSYSVXX %CSYSVXX) - ("CSYSWAPR" "csyswapr_" %%CSYSWAPR %CSYSWAPR) - ("CSYTF2" "csytf2_" %%CSYTF2 %CSYTF2) - ("CSYTF2_RK" "csytf2_rk_" %%CSYTF2_RK %CSYTF2_RK) - ("CSYTF2_ROOK" "csytf2_rook_" %%CSYTF2_ROOK %CSYTF2_ROOK) - ("CSYTRF" "csytrf_" %%CSYTRF %CSYTRF) - ("CSYTRF_AA" "csytrf_aa_" %%CSYTRF_AA %CSYTRF_AA) - ("CSYTRF_AA_2STAGE" "csytrf_aa_2stage_" - %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE) - ("CSYTRF_RK" "csytrf_rk_" %%CSYTRF_RK %CSYTRF_RK) - ("CSYTRF_ROOK" "csytrf_rook_" %%CSYTRF_ROOK %CSYTRF_ROOK) - ("CSYTRI" "csytri_" %%CSYTRI %CSYTRI) - ("CSYTRI2" "csytri2_" %%CSYTRI2 %CSYTRI2) - ("CSYTRI2X" "csytri2x_" %%CSYTRI2X %CSYTRI2X) - ("CSYTRI_3" "csytri_3_" %%CSYTRI_3 %CSYTRI_3) - ("CSYTRI_3X" "csytri_3x_" %%CSYTRI_3X %CSYTRI_3X) - ("CSYTRI_ROOK" "csytri_rook_" %%CSYTRI_ROOK %CSYTRI_ROOK) - ("CSYTRS" "csytrs_" %%CSYTRS %CSYTRS) - ("CSYTRS2" "csytrs2_" %%CSYTRS2 %CSYTRS2) - ("CSYTRS_3" "csytrs_3_" %%CSYTRS_3 %CSYTRS_3) - ("CSYTRS_AA" "csytrs_aa_" %%CSYTRS_AA %CSYTRS_AA) - ("CSYTRS_AA_2STAGE" "csytrs_aa_2stage_" - %%CSYTRS_AA_2STAGE %CSYTRS_AA_2STAGE) - ("CSYTRS_ROOK" "csytrs_rook_" %%CSYTRS_ROOK %CSYTRS_ROOK) - ("CTBCON" "ctbcon_" %%CTBCON %CTBCON) - ("CTBRFS" "ctbrfs_" %%CTBRFS %CTBRFS) - ("CTBTRS" "ctbtrs_" %%CTBTRS %CTBTRS) - ("CTFSM" "ctfsm_" %%CTFSM %CTFSM) - ("CTFTRI" "ctftri_" %%CTFTRI %CTFTRI) - ("CTFTTP" "ctfttp_" %%CTFTTP %CTFTTP) - ("CTFTTR" "ctfttr_" %%CTFTTR %CTFTTR) - ("CTGEVC" "ctgevc_" %%CTGEVC %CTGEVC) - ("CTGEX2" "ctgex2_" %%CTGEX2 %CTGEX2) - ("CTGEXC" "ctgexc_" %%CTGEXC %CTGEXC) - ("CTGSEN" "ctgsen_" %%CTGSEN %CTGSEN) - ("CTGSJA" "ctgsja_" %%CTGSJA %CTGSJA) - ("CTGSNA" "ctgsna_" %%CTGSNA %CTGSNA) - ("CTGSY2" "ctgsy2_" %%CTGSY2 %CTGSY2) - ("CTGSYL" "ctgsyl_" %%CTGSYL %CTGSYL) - ("CTPCON" "ctpcon_" %%CTPCON %CTPCON) - ("CTPLQT" "ctplqt_" %%CTPLQT %CTPLQT) - ("CTPLQT2" "ctplqt2_" %%CTPLQT2 %CTPLQT2) - ("CTPMLQT" "ctpmlqt_" %%CTPMLQT %CTPMLQT) - ("CTPMQRT" "ctpmqrt_" %%CTPMQRT %CTPMQRT) - ("CTPQRT" "ctpqrt_" %%CTPQRT %CTPQRT) - ("CTPQRT2" "ctpqrt2_" %%CTPQRT2 %CTPQRT2) - ("CTPRFB" "ctprfb_" %%CTPRFB %CTPRFB) - ("CTPRFS" "ctprfs_" %%CTPRFS %CTPRFS) - ("CTPTRI" "ctptri_" %%CTPTRI %CTPTRI) - ("CTPTRS" "ctptrs_" %%CTPTRS %CTPTRS) - ("CTPTTF" "ctpttf_" %%CTPTTF %CTPTTF) - ("CTPTTR" "ctpttr_" %%CTPTTR %CTPTTR) - ("CTRCON" "ctrcon_" %%CTRCON %CTRCON) - ("CTREVC" "ctrevc_" %%CTREVC %CTREVC) - ("CTREVC3" "ctrevc3_" %%CTREVC3 %CTREVC3) - ("CTREXC" "ctrexc_" %%CTREXC %CTREXC) - ("CTRRFS" "ctrrfs_" %%CTRRFS %CTRRFS) - ("CTRSEN" "ctrsen_" %%CTRSEN %CTRSEN) - ("CTRSNA" "ctrsna_" %%CTRSNA %CTRSNA) - ("CTRSYL" "ctrsyl_" %%CTRSYL %CTRSYL) - ("CTRTI2" "ctrti2_" %%CTRTI2 %CTRTI2) - ("CTRTRI" "ctrtri_" %%CTRTRI %CTRTRI) - ("CTRTRS" "ctrtrs_" %%CTRTRS %CTRTRS) - ("CTRTTF" "ctrttf_" %%CTRTTF %CTRTTF) - ("CTRTTP" "ctrttp_" %%CTRTTP %CTRTTP) - ("CTZRZF" "ctzrzf_" %%CTZRZF %CTZRZF) - ("CUNBDB" "cunbdb_" %%CUNBDB %CUNBDB) - ("CUNBDB1" "cunbdb1_" %%CUNBDB1 %CUNBDB1) - ("CUNBDB2" "cunbdb2_" %%CUNBDB2 %CUNBDB2) - ("CUNBDB3" "cunbdb3_" %%CUNBDB3 %CUNBDB3) - ("CUNBDB4" "cunbdb4_" %%CUNBDB4 %CUNBDB4) - ("CUNBDB5" "cunbdb5_" %%CUNBDB5 %CUNBDB5) - ("CUNBDB6" "cunbdb6_" %%CUNBDB6 %CUNBDB6) - ("CUNCSD" "cuncsd_" %%CUNCSD %CUNCSD) - ("CUNCSD2BY1" "cuncsd2by1_" %%CUNCSD2BY1 %CUNCSD2BY1) - ("CUNG2L" "cung2l_" %%CUNG2L %CUNG2L) - ("CUNG2R" "cung2r_" %%CUNG2R %CUNG2R) - ("CUNGBR" "cungbr_" %%CUNGBR %CUNGBR) - ("CUNGHR" "cunghr_" %%CUNGHR %CUNGHR) - ("CUNGL2" "cungl2_" %%CUNGL2 %CUNGL2) - ("CUNGLQ" "cunglq_" %%CUNGLQ %CUNGLQ) - ("CUNGQL" "cungql_" %%CUNGQL %CUNGQL) - ("CUNGQR" "cungqr_" %%CUNGQR %CUNGQR) - ("CUNGR2" "cungr2_" %%CUNGR2 %CUNGR2) - ("CUNGRQ" "cungrq_" %%CUNGRQ %CUNGRQ) - ("CUNGTR" "cungtr_" %%CUNGTR %CUNGTR) - ("CUNM22" "cunm22_" %%CUNM22 %CUNM22) - ("CUNM2L" "cunm2l_" %%CUNM2L %CUNM2L) - ("CUNM2R" "cunm2r_" %%CUNM2R %CUNM2R) - ("CUNMBR" "cunmbr_" %%CUNMBR %CUNMBR) - ("CUNMHR" "cunmhr_" %%CUNMHR %CUNMHR) - ("CUNML2" "cunml2_" %%CUNML2 %CUNML2) - ("CUNMLQ" "cunmlq_" %%CUNMLQ %CUNMLQ) - ("CUNMQL" "cunmql_" %%CUNMQL %CUNMQL) - ("CUNMQR" "cunmqr_" %%CUNMQR %CUNMQR) - ("CUNMR2" "cunmr2_" %%CUNMR2 %CUNMR2) - ("CUNMR3" "cunmr3_" %%CUNMR3 %CUNMR3) - ("CUNMRQ" "cunmrq_" %%CUNMRQ %CUNMRQ) - ("CUNMRZ" "cunmrz_" %%CUNMRZ %CUNMRZ) - ("CUNMTR" "cunmtr_" %%CUNMTR %CUNMTR) - ("CUPGTR" "cupgtr_" %%CUPGTR %CUPGTR) - ("CUPMTR" "cupmtr_" %%CUPMTR %CUPMTR) - ("DBBCSD" "dbbcsd_" %%DBBCSD %DBBCSD) - ("DBDSDC" "dbdsdc_" %%DBDSDC %DBDSDC) - ("DBDSQR" "dbdsqr_" %%DBDSQR %DBDSQR) - ("DBDSVDX" "dbdsvdx_" %%DBDSVDX %DBDSVDX) - ("DCOMBSSQ" "dcombssq_" %%DCOMBSSQ %DCOMBSSQ) - ("DDISNA" "ddisna_" %%DDISNA %DDISNA))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK + '(("CLANSB" "clansb_" %%CLANSB %CLANSB) + ("CLANSP" "clansp_" %%CLANSP %CLANSP) + ("CLANSY" "clansy_" %%CLANSY %CLANSY) + ("CLANTB" "clantb_" %%CLANTB %CLANTB) + ("CLANTP" "clantp_" %%CLANTP %CLANTP) + ("CLANTR" "clantr_" %%CLANTR %CLANTR) + ("CLAPLL" "clapll_" %%CLAPLL %CLAPLL) + ("CLAPMR" "clapmr_" %%CLAPMR %CLAPMR) + ("CLAPMT" "clapmt_" %%CLAPMT %CLAPMT) + ("CLAQGB" "claqgb_" %%CLAQGB %CLAQGB) + ("CLAQGE" "claqge_" %%CLAQGE %CLAQGE) + ("CLAQHB" "claqhb_" %%CLAQHB %CLAQHB) + ("CLAQHE" "claqhe_" %%CLAQHE %CLAQHE) + ("CLAQHP" "claqhp_" %%CLAQHP %CLAQHP) + ("CLAQP2" "claqp2_" %%CLAQP2 %CLAQP2) + ("CLAQPS" "claqps_" %%CLAQPS %CLAQPS) + ("CLAQR0" "claqr0_" %%CLAQR0 %CLAQR0) + ("CLAQR1" "claqr1_" %%CLAQR1 %CLAQR1) + ("CLAQR2" "claqr2_" %%CLAQR2 %CLAQR2) + ("CLAQR3" "claqr3_" %%CLAQR3 %CLAQR3) + ("CLAQR4" "claqr4_" %%CLAQR4 %CLAQR4) + ("CLAQR5" "claqr5_" %%CLAQR5 %CLAQR5) + ("CLAQSB" "claqsb_" %%CLAQSB %CLAQSB) + ("CLAQSP" "claqsp_" %%CLAQSP %CLAQSP) + ("CLAQSY" "claqsy_" %%CLAQSY %CLAQSY) + ("CLAR1V" "clar1v_" %%CLAR1V %CLAR1V) + ("CLAR2V" "clar2v_" %%CLAR2V %CLAR2V) + ("CLARCM" "clarcm_" %%CLARCM %CLARCM) + ("CLARF" "clarf_" %%CLARF %CLARF) + ("CLARFB" "clarfb_" %%CLARFB %CLARFB) + ("CLARFG" "clarfg_" %%CLARFG %CLARFG) + ("CLARFGP" "clarfgp_" %%CLARFGP %CLARFGP) + ("CLARFT" "clarft_" %%CLARFT %CLARFT) + ("CLARFX" "clarfx_" %%CLARFX %CLARFX) + ("CLARFY" "clarfy_" %%CLARFY %CLARFY) + ("CLARGV" "clargv_" %%CLARGV %CLARGV) + ("CLARNV" "clarnv_" %%CLARNV %CLARNV) + ("CLARRV" "clarrv_" %%CLARRV %CLARRV) + ("CLARSCL2" "clarscl2_" %%CLARSCL2 %CLARSCL2) + ("CLARTG" "clartg_" %%CLARTG %CLARTG) + ("CLARTV" "clartv_" %%CLARTV %CLARTV) + ("CLARZ" "clarz_" %%CLARZ %CLARZ) + ("CLARZB" "clarzb_" %%CLARZB %CLARZB) + ("CLARZT" "clarzt_" %%CLARZT %CLARZT) + ("CLASCL" "clascl_" %%CLASCL %CLASCL) + ("CLASCL2" "clascl2_" %%CLASCL2 %CLASCL2) + ("CLASET" "claset_" %%CLASET %CLASET) + ("CLASR" "clasr_" %%CLASR %CLASR) + ("CLASSQ" "classq_" %%CLASSQ %CLASSQ) + ("CLASWLQ" "claswlq_" %%CLASWLQ %CLASWLQ) + ("CLASWP" "claswp_" %%CLASWP %CLASWP) + ("CLASYF" "clasyf_" %%CLASYF %CLASYF) + ("CLASYF_AA" "clasyf_aa_" %%CLASYF_AA %CLASYF_AA) + ("CLASYF_RK" "clasyf_rk_" %%CLASYF_RK %CLASYF_RK) + ("CLASYF_ROOK" "clasyf_rook_" %%CLASYF_ROOK %CLASYF_ROOK) + ("CLATBS" "clatbs_" %%CLATBS %CLATBS) + ("CLATDF" "clatdf_" %%CLATDF %CLATDF) + ("CLATPS" "clatps_" %%CLATPS %CLATPS) + ("CLATRD" "clatrd_" %%CLATRD %CLATRD) + ("CLATRS" "clatrs_" %%CLATRS %CLATRS) + ("CLATRZ" "clatrz_" %%CLATRZ %CLATRZ) + ("CLATSQR" "clatsqr_" %%CLATSQR %CLATSQR) + ("CLAUU2" "clauu2_" %%CLAUU2 %CLAUU2) + ("CLAUUM" "clauum_" %%CLAUUM %CLAUUM) + ("CPBCON" "cpbcon_" %%CPBCON %CPBCON) + ("CPBEQU" "cpbequ_" %%CPBEQU %CPBEQU) + ("CPBRFS" "cpbrfs_" %%CPBRFS %CPBRFS) + ("CPBSTF" "cpbstf_" %%CPBSTF %CPBSTF) + ("CPBSV" "cpbsv_" %%CPBSV %CPBSV) + ("CPBSVX" "cpbsvx_" %%CPBSVX %CPBSVX) + ("CPBTF2" "cpbtf2_" %%CPBTF2 %CPBTF2) + ("CPBTRF" "cpbtrf_" %%CPBTRF %CPBTRF) + ("CPBTRS" "cpbtrs_" %%CPBTRS %CPBTRS) + ("CPFTRF" "cpftrf_" %%CPFTRF %CPFTRF) + ("CPFTRI" "cpftri_" %%CPFTRI %CPFTRI) + ("CPFTRS" "cpftrs_" %%CPFTRS %CPFTRS) + ("CPOCON" "cpocon_" %%CPOCON %CPOCON) + ("CPOEQU" "cpoequ_" %%CPOEQU %CPOEQU) + ("CPOEQUB" "cpoequb_" %%CPOEQUB %CPOEQUB) + ("CPORFS" "cporfs_" %%CPORFS %CPORFS) + ("CPORFSX" "cporfsx_" %%CPORFSX %CPORFSX) + ("CPOSV" "cposv_" %%CPOSV %CPOSV) + ("CPOSVX" "cposvx_" %%CPOSVX %CPOSVX) + ("CPOSVXX" "cposvxx_" %%CPOSVXX %CPOSVXX) + ("CPOTF2" "cpotf2_" %%CPOTF2 %CPOTF2) + ("CPOTRF" "cpotrf_" %%CPOTRF %CPOTRF) + ("CPOTRF2" "cpotrf2_" %%CPOTRF2 %CPOTRF2) + ("CPOTRI" "cpotri_" %%CPOTRI %CPOTRI) + ("CPOTRS" "cpotrs_" %%CPOTRS %CPOTRS) + ("CPPCON" "cppcon_" %%CPPCON %CPPCON) + ("CPPEQU" "cppequ_" %%CPPEQU %CPPEQU) + ("CPPRFS" "cpprfs_" %%CPPRFS %CPPRFS) + ("CPPSV" "cppsv_" %%CPPSV %CPPSV) + ("CPPSVX" "cppsvx_" %%CPPSVX %CPPSVX) + ("CPPTRF" "cpptrf_" %%CPPTRF %CPPTRF) + ("CPPTRI" "cpptri_" %%CPPTRI %CPPTRI) + ("CPPTRS" "cpptrs_" %%CPPTRS %CPPTRS) + ("CPSTF2" "cpstf2_" %%CPSTF2 %CPSTF2) + ("CPSTRF" "cpstrf_" %%CPSTRF %CPSTRF) + ("CPTCON" "cptcon_" %%CPTCON %CPTCON) + ("CPTEQR" "cpteqr_" %%CPTEQR %CPTEQR) + ("CPTRFS" "cptrfs_" %%CPTRFS %CPTRFS) + ("CPTSV" "cptsv_" %%CPTSV %CPTSV) + ("CPTSVX" "cptsvx_" %%CPTSVX %CPTSVX) + ("CPTTRF" "cpttrf_" %%CPTTRF %CPTTRF) + ("CPTTRS" "cpttrs_" %%CPTTRS %CPTTRS) + ("CPTTS2" "cptts2_" %%CPTTS2 %CPTTS2) + ("CROT" "crot_" %%CROT %CROT) + ("CSPCON" "cspcon_" %%CSPCON %CSPCON) + ("CSPMV" "cspmv_" %%CSPMV %CSPMV) + ("CSPR" "cspr_" %%CSPR %CSPR) + ("CSPRFS" "csprfs_" %%CSPRFS %CSPRFS) + ("CSPSV" "cspsv_" %%CSPSV %CSPSV) + ("CSPSVX" "cspsvx_" %%CSPSVX %CSPSVX) + ("CSPTRF" "csptrf_" %%CSPTRF %CSPTRF) + ("CSPTRI" "csptri_" %%CSPTRI %CSPTRI) + ("CSPTRS" "csptrs_" %%CSPTRS %CSPTRS) + ("CSRSCL" "csrscl_" %%CSRSCL %CSRSCL) + ("CSTEDC" "cstedc_" %%CSTEDC %CSTEDC) + ("CSTEGR" "cstegr_" %%CSTEGR %CSTEGR) + ("CSTEIN" "cstein_" %%CSTEIN %CSTEIN) + ("CSTEMR" "cstemr_" %%CSTEMR %CSTEMR) + ("CSTEQR" "csteqr_" %%CSTEQR %CSTEQR) + ("CSYCON" "csycon_" %%CSYCON %CSYCON) + ("CSYCON_3" "csycon_3_" %%CSYCON_3 %CSYCON_3) + ("CSYCON_ROOK" "csycon_rook_" %%CSYCON_ROOK %CSYCON_ROOK) + ("CSYCONV" "csyconv_" %%CSYCONV %CSYCONV) + ("CSYCONVF" "csyconvf_" %%CSYCONVF %CSYCONVF) + ("CSYCONVF_ROOK" "csyconvf_rook_" %%CSYCONVF_ROOK + %CSYCONVF_ROOK) + ("CSYEQUB" "csyequb_" %%CSYEQUB %CSYEQUB) + ("CSYMV" "csymv_" %%CSYMV %CSYMV) + ("CSYR" "csyr_" %%CSYR %CSYR) + ("CSYRFS" "csyrfs_" %%CSYRFS %CSYRFS) + ("CSYRFSX" "csyrfsx_" %%CSYRFSX %CSYRFSX) + ("CSYSV" "csysv_" %%CSYSV %CSYSV) + ("CSYSV_AA" "csysv_aa_" %%CSYSV_AA %CSYSV_AA) + ("CSYSV_AA_2STAGE" "csysv_aa_2stage_" %%CSYSV_AA_2STAGE + %CSYSV_AA_2STAGE) + ("CSYSV_RK" "csysv_rk_" %%CSYSV_RK %CSYSV_RK) + ("CSYSV_ROOK" "csysv_rook_" %%CSYSV_ROOK %CSYSV_ROOK) + ("CSYSVX" "csysvx_" %%CSYSVX %CSYSVX) + ("CSYSVXX" "csysvxx_" %%CSYSVXX %CSYSVXX) + ("CSYSWAPR" "csyswapr_" %%CSYSWAPR %CSYSWAPR) + ("CSYTF2" "csytf2_" %%CSYTF2 %CSYTF2) + ("CSYTF2_RK" "csytf2_rk_" %%CSYTF2_RK %CSYTF2_RK) + ("CSYTF2_ROOK" "csytf2_rook_" %%CSYTF2_ROOK %CSYTF2_ROOK) + ("CSYTRF" "csytrf_" %%CSYTRF %CSYTRF) + ("CSYTRF_AA" "csytrf_aa_" %%CSYTRF_AA %CSYTRF_AA) + ("CSYTRF_AA_2STAGE" "csytrf_aa_2stage_" + %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE) + ("CSYTRF_RK" "csytrf_rk_" %%CSYTRF_RK %CSYTRF_RK) + ("CSYTRF_ROOK" "csytrf_rook_" %%CSYTRF_ROOK %CSYTRF_ROOK) + ("CSYTRI" "csytri_" %%CSYTRI %CSYTRI) + ("CSYTRI2" "csytri2_" %%CSYTRI2 %CSYTRI2) + ("CSYTRI2X" "csytri2x_" %%CSYTRI2X %CSYTRI2X) + ("CSYTRI_3" "csytri_3_" %%CSYTRI_3 %CSYTRI_3) + ("CSYTRI_3X" "csytri_3x_" %%CSYTRI_3X %CSYTRI_3X) + ("CSYTRI_ROOK" "csytri_rook_" %%CSYTRI_ROOK %CSYTRI_ROOK) + ("CSYTRS" "csytrs_" %%CSYTRS %CSYTRS) + ("CSYTRS2" "csytrs2_" %%CSYTRS2 %CSYTRS2) + ("CSYTRS_3" "csytrs_3_" %%CSYTRS_3 %CSYTRS_3) + ("CSYTRS_AA" "csytrs_aa_" %%CSYTRS_AA %CSYTRS_AA) + ("CSYTRS_AA_2STAGE" "csytrs_aa_2stage_" + %%CSYTRS_AA_2STAGE %CSYTRS_AA_2STAGE) + ("CSYTRS_ROOK" "csytrs_rook_" %%CSYTRS_ROOK %CSYTRS_ROOK) + ("CTBCON" "ctbcon_" %%CTBCON %CTBCON) + ("CTBRFS" "ctbrfs_" %%CTBRFS %CTBRFS) + ("CTBTRS" "ctbtrs_" %%CTBTRS %CTBTRS) + ("CTFSM" "ctfsm_" %%CTFSM %CTFSM) + ("CTFTRI" "ctftri_" %%CTFTRI %CTFTRI) + ("CTFTTP" "ctfttp_" %%CTFTTP %CTFTTP) + ("CTFTTR" "ctfttr_" %%CTFTTR %CTFTTR) + ("CTGEVC" "ctgevc_" %%CTGEVC %CTGEVC) + ("CTGEX2" "ctgex2_" %%CTGEX2 %CTGEX2) + ("CTGEXC" "ctgexc_" %%CTGEXC %CTGEXC) + ("CTGSEN" "ctgsen_" %%CTGSEN %CTGSEN) + ("CTGSJA" "ctgsja_" %%CTGSJA %CTGSJA) + ("CTGSNA" "ctgsna_" %%CTGSNA %CTGSNA) + ("CTGSY2" "ctgsy2_" %%CTGSY2 %CTGSY2) + ("CTGSYL" "ctgsyl_" %%CTGSYL %CTGSYL) + ("CTPCON" "ctpcon_" %%CTPCON %CTPCON) + ("CTPLQT" "ctplqt_" %%CTPLQT %CTPLQT) + ("CTPLQT2" "ctplqt2_" %%CTPLQT2 %CTPLQT2) + ("CTPMLQT" "ctpmlqt_" %%CTPMLQT %CTPMLQT) + ("CTPMQRT" "ctpmqrt_" %%CTPMQRT %CTPMQRT) + ("CTPQRT" "ctpqrt_" %%CTPQRT %CTPQRT) + ("CTPQRT2" "ctpqrt2_" %%CTPQRT2 %CTPQRT2) + ("CTPRFB" "ctprfb_" %%CTPRFB %CTPRFB) + ("CTPRFS" "ctprfs_" %%CTPRFS %CTPRFS) + ("CTPTRI" "ctptri_" %%CTPTRI %CTPTRI) + ("CTPTRS" "ctptrs_" %%CTPTRS %CTPTRS) + ("CTPTTF" "ctpttf_" %%CTPTTF %CTPTTF) + ("CTPTTR" "ctpttr_" %%CTPTTR %CTPTTR) + ("CTRCON" "ctrcon_" %%CTRCON %CTRCON) + ("CTREVC" "ctrevc_" %%CTREVC %CTREVC) + ("CTREVC3" "ctrevc3_" %%CTREVC3 %CTREVC3) + ("CTREXC" "ctrexc_" %%CTREXC %CTREXC) + ("CTRRFS" "ctrrfs_" %%CTRRFS %CTRRFS) + ("CTRSEN" "ctrsen_" %%CTRSEN %CTRSEN) + ("CTRSNA" "ctrsna_" %%CTRSNA %CTRSNA) + ("CTRSYL" "ctrsyl_" %%CTRSYL %CTRSYL) + ("CTRTI2" "ctrti2_" %%CTRTI2 %CTRTI2) + ("CTRTRI" "ctrtri_" %%CTRTRI %CTRTRI) + ("CTRTRS" "ctrtrs_" %%CTRTRS %CTRTRS) + ("CTRTTF" "ctrttf_" %%CTRTTF %CTRTTF) + ("CTRTTP" "ctrttp_" %%CTRTTP %CTRTTP) + ("CTZRZF" "ctzrzf_" %%CTZRZF %CTZRZF) + ("CUNBDB" "cunbdb_" %%CUNBDB %CUNBDB) + ("CUNBDB1" "cunbdb1_" %%CUNBDB1 %CUNBDB1) + ("CUNBDB2" "cunbdb2_" %%CUNBDB2 %CUNBDB2) + ("CUNBDB3" "cunbdb3_" %%CUNBDB3 %CUNBDB3) + ("CUNBDB4" "cunbdb4_" %%CUNBDB4 %CUNBDB4) + ("CUNBDB5" "cunbdb5_" %%CUNBDB5 %CUNBDB5) + ("CUNBDB6" "cunbdb6_" %%CUNBDB6 %CUNBDB6) + ("CUNCSD" "cuncsd_" %%CUNCSD %CUNCSD) + ("CUNCSD2BY1" "cuncsd2by1_" %%CUNCSD2BY1 %CUNCSD2BY1) + ("CUNG2L" "cung2l_" %%CUNG2L %CUNG2L) + ("CUNG2R" "cung2r_" %%CUNG2R %CUNG2R) + ("CUNGBR" "cungbr_" %%CUNGBR %CUNGBR) + ("CUNGHR" "cunghr_" %%CUNGHR %CUNGHR) + ("CUNGL2" "cungl2_" %%CUNGL2 %CUNGL2) + ("CUNGLQ" "cunglq_" %%CUNGLQ %CUNGLQ) + ("CUNGQL" "cungql_" %%CUNGQL %CUNGQL) + ("CUNGQR" "cungqr_" %%CUNGQR %CUNGQR) + ("CUNGR2" "cungr2_" %%CUNGR2 %CUNGR2) + ("CUNGRQ" "cungrq_" %%CUNGRQ %CUNGRQ) + ("CUNGTR" "cungtr_" %%CUNGTR %CUNGTR) + ("CUNM22" "cunm22_" %%CUNM22 %CUNM22) + ("CUNM2L" "cunm2l_" %%CUNM2L %CUNM2L) + ("CUNM2R" "cunm2r_" %%CUNM2R %CUNM2R) + ("CUNMBR" "cunmbr_" %%CUNMBR %CUNMBR) + ("CUNMHR" "cunmhr_" %%CUNMHR %CUNMHR) + ("CUNML2" "cunml2_" %%CUNML2 %CUNML2) + ("CUNMLQ" "cunmlq_" %%CUNMLQ %CUNMLQ) + ("CUNMQL" "cunmql_" %%CUNMQL %CUNMQL) + ("CUNMQR" "cunmqr_" %%CUNMQR %CUNMQR) + ("CUNMR2" "cunmr2_" %%CUNMR2 %CUNMR2) + ("CUNMR3" "cunmr3_" %%CUNMR3 %CUNMR3) + ("CUNMRQ" "cunmrq_" %%CUNMRQ %CUNMRQ) + ("CUNMRZ" "cunmrz_" %%CUNMRZ %CUNMRZ) + ("CUNMTR" "cunmtr_" %%CUNMTR %CUNMTR) + ("CUPGTR" "cupgtr_" %%CUPGTR %CUPGTR) + ("CUPMTR" "cupmtr_" %%CUPMTR %CUPMTR) + ("DBBCSD" "dbbcsd_" %%DBBCSD %DBBCSD) + ("DBDSDC" "dbdsdc_" %%DBDSDC %DBDSDC) + ("DBDSQR" "dbdsqr_" %%DBDSQR %DBDSQR) + ("DBDSVDX" "dbdsvdx_" %%DBDSVDX %DBDSVDX) + ("DCOMBSSQ" "dcombssq_" %%DCOMBSSQ %DCOMBSSQ) + ("DDISNA" "ddisna_" %%DDISNA %DDISNA))) (COMMON-LISP:EXPORT '(%CLANSB %CLANSP %CLANSY %CLANTB %CLANTP %CLANTR %CLAPLL %CLAPMR %CLAPMT diff --git a/src/bindings/lapack02-cffi.lisp b/src/bindings/lapack02-cffi.lisp index c24830a1..6692e9c2 100644 --- a/src/bindings/lapack02-cffi.lisp +++ b/src/bindings/lapack02-cffi.lisp @@ -13715,265 +13715,263 @@ %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6 %%DLASR %DLASR %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ %DLASWLQ)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - ':MAGICL) - '(("DGBBRD" "dgbbrd_" %%DGBBRD %DGBBRD) - ("DGBCON" "dgbcon_" %%DGBCON %DGBCON) - ("DGBEQU" "dgbequ_" %%DGBEQU %DGBEQU) - ("DGBEQUB" "dgbequb_" %%DGBEQUB %DGBEQUB) - ("DGBRFS" "dgbrfs_" %%DGBRFS %DGBRFS) - ("DGBRFSX" "dgbrfsx_" %%DGBRFSX %DGBRFSX) - ("DGBSV" "dgbsv_" %%DGBSV %DGBSV) - ("DGBSVX" "dgbsvx_" %%DGBSVX %DGBSVX) - ("DGBSVXX" "dgbsvxx_" %%DGBSVXX %DGBSVXX) - ("DGBTF2" "dgbtf2_" %%DGBTF2 %DGBTF2) - ("DGBTRF" "dgbtrf_" %%DGBTRF %DGBTRF) - ("DGBTRS" "dgbtrs_" %%DGBTRS %DGBTRS) - ("DGEBAK" "dgebak_" %%DGEBAK %DGEBAK) - ("DGEBAL" "dgebal_" %%DGEBAL %DGEBAL) - ("DGEBD2" "dgebd2_" %%DGEBD2 %DGEBD2) - ("DGEBRD" "dgebrd_" %%DGEBRD %DGEBRD) - ("DGECON" "dgecon_" %%DGECON %DGECON) - ("DGEEQU" "dgeequ_" %%DGEEQU %DGEEQU) - ("DGEEQUB" "dgeequb_" %%DGEEQUB %DGEEQUB) - ("DGEES" "dgees_" %%DGEES %DGEES) - ("DGEESX" "dgeesx_" %%DGEESX %DGEESX) - ("DGEEV" "dgeev_" %%DGEEV %DGEEV) - ("DGEEVX" "dgeevx_" %%DGEEVX %DGEEVX) - ("DGEHD2" "dgehd2_" %%DGEHD2 %DGEHD2) - ("DGEHRD" "dgehrd_" %%DGEHRD %DGEHRD) - ("DGEJSV" "dgejsv_" %%DGEJSV %DGEJSV) - ("DGELQ" "dgelq_" %%DGELQ %DGELQ) - ("DGELQ2" "dgelq2_" %%DGELQ2 %DGELQ2) - ("DGELQF" "dgelqf_" %%DGELQF %DGELQF) - ("DGELQT" "dgelqt_" %%DGELQT %DGELQT) - ("DGELQT3" "dgelqt3_" %%DGELQT3 %DGELQT3) - ("DGELS" "dgels_" %%DGELS %DGELS) - ("DGELSD" "dgelsd_" %%DGELSD %DGELSD) - ("DGELSS" "dgelss_" %%DGELSS %DGELSS) - ("DGELSY" "dgelsy_" %%DGELSY %DGELSY) - ("DGEMLQ" "dgemlq_" %%DGEMLQ %DGEMLQ) - ("DGEMLQT" "dgemlqt_" %%DGEMLQT %DGEMLQT) - ("DGEMQR" "dgemqr_" %%DGEMQR %DGEMQR) - ("DGEMQRT" "dgemqrt_" %%DGEMQRT %DGEMQRT) - ("DGEQL2" "dgeql2_" %%DGEQL2 %DGEQL2) - ("DGEQLF" "dgeqlf_" %%DGEQLF %DGEQLF) - ("DGEQP3" "dgeqp3_" %%DGEQP3 %DGEQP3) - ("DGEQR" "dgeqr_" %%DGEQR %DGEQR) - ("DGEQR2" "dgeqr2_" %%DGEQR2 %DGEQR2) - ("DGEQR2P" "dgeqr2p_" %%DGEQR2P %DGEQR2P) - ("DGEQRF" "dgeqrf_" %%DGEQRF %DGEQRF) - ("DGEQRFP" "dgeqrfp_" %%DGEQRFP %DGEQRFP) - ("DGEQRT" "dgeqrt_" %%DGEQRT %DGEQRT) - ("DGEQRT2" "dgeqrt2_" %%DGEQRT2 %DGEQRT2) - ("DGEQRT3" "dgeqrt3_" %%DGEQRT3 %DGEQRT3) - ("DGERFS" "dgerfs_" %%DGERFS %DGERFS) - ("DGERFSX" "dgerfsx_" %%DGERFSX %DGERFSX) - ("DGERQ2" "dgerq2_" %%DGERQ2 %DGERQ2) - ("DGERQF" "dgerqf_" %%DGERQF %DGERQF) - ("DGESC2" "dgesc2_" %%DGESC2 %DGESC2) - ("DGESDD" "dgesdd_" %%DGESDD %DGESDD) - ("DGESV" "dgesv_" %%DGESV %DGESV) - ("DGESVD" "dgesvd_" %%DGESVD %DGESVD) - ("DGESVDQ" "dgesvdq_" %%DGESVDQ %DGESVDQ) - ("DGESVDX" "dgesvdx_" %%DGESVDX %DGESVDX) - ("DGESVJ" "dgesvj_" %%DGESVJ %DGESVJ) - ("DGESVX" "dgesvx_" %%DGESVX %DGESVX) - ("DGESVXX" "dgesvxx_" %%DGESVXX %DGESVXX) - ("DGETC2" "dgetc2_" %%DGETC2 %DGETC2) - ("DGETF2" "dgetf2_" %%DGETF2 %DGETF2) - ("DGETRF" "dgetrf_" %%DGETRF %DGETRF) - ("DGETRF2" "dgetrf2_" %%DGETRF2 %DGETRF2) - ("DGETRI" "dgetri_" %%DGETRI %DGETRI) - ("DGETRS" "dgetrs_" %%DGETRS %DGETRS) - ("DGETSLS" "dgetsls_" %%DGETSLS %DGETSLS) - ("DGGBAK" "dggbak_" %%DGGBAK %DGGBAK) - ("DGGBAL" "dggbal_" %%DGGBAL %DGGBAL) - ("DGGES" "dgges_" %%DGGES %DGGES) - ("DGGES3" "dgges3_" %%DGGES3 %DGGES3) - ("DGGESX" "dggesx_" %%DGGESX %DGGESX) - ("DGGEV" "dggev_" %%DGGEV %DGGEV) - ("DGGEV3" "dggev3_" %%DGGEV3 %DGGEV3) - ("DGGEVX" "dggevx_" %%DGGEVX %DGGEVX) - ("DGGGLM" "dggglm_" %%DGGGLM %DGGGLM) - ("DGGHD3" "dgghd3_" %%DGGHD3 %DGGHD3) - ("DGGHRD" "dgghrd_" %%DGGHRD %DGGHRD) - ("DGGLSE" "dgglse_" %%DGGLSE %DGGLSE) - ("DGGQRF" "dggqrf_" %%DGGQRF %DGGQRF) - ("DGGRQF" "dggrqf_" %%DGGRQF %DGGRQF) - ("DGGSVD3" "dggsvd3_" %%DGGSVD3 %DGGSVD3) - ("DGGSVP3" "dggsvp3_" %%DGGSVP3 %DGGSVP3) - ("DGSVJ0" "dgsvj0_" %%DGSVJ0 %DGSVJ0) - ("DGSVJ1" "dgsvj1_" %%DGSVJ1 %DGSVJ1) - ("DGTCON" "dgtcon_" %%DGTCON %DGTCON) - ("DGTRFS" "dgtrfs_" %%DGTRFS %DGTRFS) - ("DGTSV" "dgtsv_" %%DGTSV %DGTSV) - ("DGTSVX" "dgtsvx_" %%DGTSVX %DGTSVX) - ("DGTTRF" "dgttrf_" %%DGTTRF %DGTTRF) - ("DGTTRS" "dgttrs_" %%DGTTRS %DGTTRS) - ("DGTTS2" "dgtts2_" %%DGTTS2 %DGTTS2) - ("DHGEQZ" "dhgeqz_" %%DHGEQZ %DHGEQZ) - ("DHSEIN" "dhsein_" %%DHSEIN %DHSEIN) - ("DHSEQR" "dhseqr_" %%DHSEQR %DHSEQR) - ("DISNAN" "disnan_" %%DISNAN %DISNAN) - ("DLA_GBAMV" "dla_gbamv_" %%DLA_GBAMV %DLA_GBAMV) - ("DLA_GBRCOND" "dla_gbrcond_" %%DLA_GBRCOND %DLA_GBRCOND) - ("DLA_GBRFSX_EXTENDED" "dla_gbrfsx_extended_" - %%DLA_GBRFSX_EXTENDED %DLA_GBRFSX_EXTENDED) - ("DLA_GBRPVGRW" "dla_gbrpvgrw_" %%DLA_GBRPVGRW - %DLA_GBRPVGRW) - ("DLA_GEAMV" "dla_geamv_" %%DLA_GEAMV %DLA_GEAMV) - ("DLA_GERCOND" "dla_gercond_" %%DLA_GERCOND %DLA_GERCOND) - ("DLA_GERFSX_EXTENDED" "dla_gerfsx_extended_" - %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED) - ("DLA_GERPVGRW" "dla_gerpvgrw_" %%DLA_GERPVGRW - %DLA_GERPVGRW) - ("DLA_LIN_BERR" "dla_lin_berr_" %%DLA_LIN_BERR - %DLA_LIN_BERR) - ("DLA_PORCOND" "dla_porcond_" %%DLA_PORCOND %DLA_PORCOND) - ("DLA_PORFSX_EXTENDED" "dla_porfsx_extended_" - %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED) - ("DLA_PORPVGRW" "dla_porpvgrw_" %%DLA_PORPVGRW - %DLA_PORPVGRW) - ("DLA_SYAMV" "dla_syamv_" %%DLA_SYAMV %DLA_SYAMV) - ("DLA_SYRCOND" "dla_syrcond_" %%DLA_SYRCOND %DLA_SYRCOND) - ("DLA_SYRFSX_EXTENDED" "dla_syrfsx_extended_" - %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED) - ("DLA_SYRPVGRW" "dla_syrpvgrw_" %%DLA_SYRPVGRW - %DLA_SYRPVGRW) - ("DLA_WWADDW" "dla_wwaddw_" %%DLA_WWADDW %DLA_WWADDW) - ("DLABAD" "dlabad_" %%DLABAD %DLABAD) - ("DLABRD" "dlabrd_" %%DLABRD %DLABRD) - ("DLACN2" "dlacn2_" %%DLACN2 %DLACN2) - ("DLACON" "dlacon_" %%DLACON %DLACON) - ("DLACPY" "dlacpy_" %%DLACPY %DLACPY) - ("DLADIV" "dladiv_" %%DLADIV %DLADIV) - ("DLAE2" "dlae2_" %%DLAE2 %DLAE2) - ("DLAEBZ" "dlaebz_" %%DLAEBZ %DLAEBZ) - ("DLAED0" "dlaed0_" %%DLAED0 %DLAED0) - ("DLAED1" "dlaed1_" %%DLAED1 %DLAED1) - ("DLAED2" "dlaed2_" %%DLAED2 %DLAED2) - ("DLAED3" "dlaed3_" %%DLAED3 %DLAED3) - ("DLAED4" "dlaed4_" %%DLAED4 %DLAED4) - ("DLAED5" "dlaed5_" %%DLAED5 %DLAED5) - ("DLAED6" "dlaed6_" %%DLAED6 %DLAED6) - ("DLAED7" "dlaed7_" %%DLAED7 %DLAED7) - ("DLAED8" "dlaed8_" %%DLAED8 %DLAED8) - ("DLAED9" "dlaed9_" %%DLAED9 %DLAED9) - ("DLAEDA" "dlaeda_" %%DLAEDA %DLAEDA) - ("DLAEIN" "dlaein_" %%DLAEIN %DLAEIN) - ("DLAEV2" "dlaev2_" %%DLAEV2 %DLAEV2) - ("DLAEXC" "dlaexc_" %%DLAEXC %DLAEXC) - ("DLAG2" "dlag2_" %%DLAG2 %DLAG2) - ("DLAG2S" "dlag2s_" %%DLAG2S %DLAG2S) - ("DLAGS2" "dlags2_" %%DLAGS2 %DLAGS2) - ("DLAGTF" "dlagtf_" %%DLAGTF %DLAGTF) - ("DLAGTM" "dlagtm_" %%DLAGTM %DLAGTM) - ("DLAGTS" "dlagts_" %%DLAGTS %DLAGTS) - ("DLAGV2" "dlagv2_" %%DLAGV2 %DLAGV2) - ("DLAHQR" "dlahqr_" %%DLAHQR %DLAHQR) - ("DLAHR2" "dlahr2_" %%DLAHR2 %DLAHR2) - ("DLAIC1" "dlaic1_" %%DLAIC1 %DLAIC1) - ("DLAISNAN" "dlaisnan_" %%DLAISNAN %DLAISNAN) - ("DLALN2" "dlaln2_" %%DLALN2 %DLALN2) - ("DLALS0" "dlals0_" %%DLALS0 %DLALS0) - ("DLALSA" "dlalsa_" %%DLALSA %DLALSA) - ("DLALSD" "dlalsd_" %%DLALSD %DLALSD) - ("DLAMRG" "dlamrg_" %%DLAMRG %DLAMRG) - ("DLAMSWLQ" "dlamswlq_" %%DLAMSWLQ %DLAMSWLQ) - ("DLAMTSQR" "dlamtsqr_" %%DLAMTSQR %DLAMTSQR) - ("DLANEG" "dlaneg_" %%DLANEG %DLANEG) - ("DLANGB" "dlangb_" %%DLANGB %DLANGB) - ("DLANGE" "dlange_" %%DLANGE %DLANGE) - ("DLANGT" "dlangt_" %%DLANGT %DLANGT) - ("DLANHS" "dlanhs_" %%DLANHS %DLANHS) - ("DLANSB" "dlansb_" %%DLANSB %DLANSB) - ("DLANSF" "dlansf_" %%DLANSF %DLANSF) - ("DLANSP" "dlansp_" %%DLANSP %DLANSP) - ("DLANST" "dlanst_" %%DLANST %DLANST) - ("DLANSY" "dlansy_" %%DLANSY %DLANSY) - ("DLANTB" "dlantb_" %%DLANTB %DLANTB) - ("DLANTP" "dlantp_" %%DLANTP %DLANTP) - ("DLANTR" "dlantr_" %%DLANTR %DLANTR) - ("DLANV2" "dlanv2_" %%DLANV2 %DLANV2) - ("DLAPLL" "dlapll_" %%DLAPLL %DLAPLL) - ("DLAPMR" "dlapmr_" %%DLAPMR %DLAPMR) - ("DLAPMT" "dlapmt_" %%DLAPMT %DLAPMT) - ("DLAPY2" "dlapy2_" %%DLAPY2 %DLAPY2) - ("DLAPY3" "dlapy3_" %%DLAPY3 %DLAPY3) - ("DLAQGB" "dlaqgb_" %%DLAQGB %DLAQGB) - ("DLAQGE" "dlaqge_" %%DLAQGE %DLAQGE) - ("DLAQP2" "dlaqp2_" %%DLAQP2 %DLAQP2) - ("DLAQPS" "dlaqps_" %%DLAQPS %DLAQPS) - ("DLAQR0" "dlaqr0_" %%DLAQR0 %DLAQR0) - ("DLAQR1" "dlaqr1_" %%DLAQR1 %DLAQR1) - ("DLAQR2" "dlaqr2_" %%DLAQR2 %DLAQR2) - ("DLAQR3" "dlaqr3_" %%DLAQR3 %DLAQR3) - ("DLAQR4" "dlaqr4_" %%DLAQR4 %DLAQR4) - ("DLAQR5" "dlaqr5_" %%DLAQR5 %DLAQR5) - ("DLAQSB" "dlaqsb_" %%DLAQSB %DLAQSB) - ("DLAQSP" "dlaqsp_" %%DLAQSP %DLAQSP) - ("DLAQSY" "dlaqsy_" %%DLAQSY %DLAQSY) - ("DLAQTR" "dlaqtr_" %%DLAQTR %DLAQTR) - ("DLAR1V" "dlar1v_" %%DLAR1V %DLAR1V) - ("DLAR2V" "dlar2v_" %%DLAR2V %DLAR2V) - ("DLARF" "dlarf_" %%DLARF %DLARF) - ("DLARFB" "dlarfb_" %%DLARFB %DLARFB) - ("DLARFG" "dlarfg_" %%DLARFG %DLARFG) - ("DLARFGP" "dlarfgp_" %%DLARFGP %DLARFGP) - ("DLARFT" "dlarft_" %%DLARFT %DLARFT) - ("DLARFX" "dlarfx_" %%DLARFX %DLARFX) - ("DLARFY" "dlarfy_" %%DLARFY %DLARFY) - ("DLARGV" "dlargv_" %%DLARGV %DLARGV) - ("DLARNV" "dlarnv_" %%DLARNV %DLARNV) - ("DLARRA" "dlarra_" %%DLARRA %DLARRA) - ("DLARRB" "dlarrb_" %%DLARRB %DLARRB) - ("DLARRC" "dlarrc_" %%DLARRC %DLARRC) - ("DLARRD" "dlarrd_" %%DLARRD %DLARRD) - ("DLARRE" "dlarre_" %%DLARRE %DLARRE) - ("DLARRF" "dlarrf_" %%DLARRF %DLARRF) - ("DLARRJ" "dlarrj_" %%DLARRJ %DLARRJ) - ("DLARRK" "dlarrk_" %%DLARRK %DLARRK) - ("DLARRR" "dlarrr_" %%DLARRR %DLARRR) - ("DLARRV" "dlarrv_" %%DLARRV %DLARRV) - ("DLARSCL2" "dlarscl2_" %%DLARSCL2 %DLARSCL2) - ("DLARTG" "dlartg_" %%DLARTG %DLARTG) - ("DLARTGP" "dlartgp_" %%DLARTGP %DLARTGP) - ("DLARTGS" "dlartgs_" %%DLARTGS %DLARTGS) - ("DLARTV" "dlartv_" %%DLARTV %DLARTV) - ("DLARUV" "dlaruv_" %%DLARUV %DLARUV) - ("DLARZ" "dlarz_" %%DLARZ %DLARZ) - ("DLARZB" "dlarzb_" %%DLARZB %DLARZB) - ("DLARZT" "dlarzt_" %%DLARZT %DLARZT) - ("DLAS2" "dlas2_" %%DLAS2 %DLAS2) - ("DLASCL" "dlascl_" %%DLASCL %DLASCL) - ("DLASCL2" "dlascl2_" %%DLASCL2 %DLASCL2) - ("DLASD0" "dlasd0_" %%DLASD0 %DLASD0) - ("DLASD1" "dlasd1_" %%DLASD1 %DLASD1) - ("DLASD2" "dlasd2_" %%DLASD2 %DLASD2) - ("DLASD3" "dlasd3_" %%DLASD3 %DLASD3) - ("DLASD4" "dlasd4_" %%DLASD4 %DLASD4) - ("DLASD5" "dlasd5_" %%DLASD5 %DLASD5) - ("DLASD6" "dlasd6_" %%DLASD6 %DLASD6) - ("DLASD7" "dlasd7_" %%DLASD7 %DLASD7) - ("DLASD8" "dlasd8_" %%DLASD8 %DLASD8) - ("DLASDA" "dlasda_" %%DLASDA %DLASDA) - ("DLASDQ" "dlasdq_" %%DLASDQ %DLASDQ) - ("DLASDT" "dlasdt_" %%DLASDT %DLASDT) - ("DLASET" "dlaset_" %%DLASET %DLASET) - ("DLASQ1" "dlasq1_" %%DLASQ1 %DLASQ1) - ("DLASQ2" "dlasq2_" %%DLASQ2 %DLASQ2) - ("DLASQ3" "dlasq3_" %%DLASQ3 %DLASQ3) - ("DLASQ4" "dlasq4_" %%DLASQ4 %DLASQ4) - ("DLASQ5" "dlasq5_" %%DLASQ5 %DLASQ5) - ("DLASQ6" "dlasq6_" %%DLASQ6 %DLASQ6) - ("DLASR" "dlasr_" %%DLASR %DLASR) - ("DLASRT" "dlasrt_" %%DLASRT %DLASRT) - ("DLASSQ" "dlassq_" %%DLASSQ %DLASSQ) - ("DLASV2" "dlasv2_" %%DLASV2 %DLASV2) - ("DLASWLQ" "dlaswlq_" %%DLASWLQ %DLASWLQ))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK + '(("DGBBRD" "dgbbrd_" %%DGBBRD %DGBBRD) + ("DGBCON" "dgbcon_" %%DGBCON %DGBCON) + ("DGBEQU" "dgbequ_" %%DGBEQU %DGBEQU) + ("DGBEQUB" "dgbequb_" %%DGBEQUB %DGBEQUB) + ("DGBRFS" "dgbrfs_" %%DGBRFS %DGBRFS) + ("DGBRFSX" "dgbrfsx_" %%DGBRFSX %DGBRFSX) + ("DGBSV" "dgbsv_" %%DGBSV %DGBSV) + ("DGBSVX" "dgbsvx_" %%DGBSVX %DGBSVX) + ("DGBSVXX" "dgbsvxx_" %%DGBSVXX %DGBSVXX) + ("DGBTF2" "dgbtf2_" %%DGBTF2 %DGBTF2) + ("DGBTRF" "dgbtrf_" %%DGBTRF %DGBTRF) + ("DGBTRS" "dgbtrs_" %%DGBTRS %DGBTRS) + ("DGEBAK" "dgebak_" %%DGEBAK %DGEBAK) + ("DGEBAL" "dgebal_" %%DGEBAL %DGEBAL) + ("DGEBD2" "dgebd2_" %%DGEBD2 %DGEBD2) + ("DGEBRD" "dgebrd_" %%DGEBRD %DGEBRD) + ("DGECON" "dgecon_" %%DGECON %DGECON) + ("DGEEQU" "dgeequ_" %%DGEEQU %DGEEQU) + ("DGEEQUB" "dgeequb_" %%DGEEQUB %DGEEQUB) + ("DGEES" "dgees_" %%DGEES %DGEES) + ("DGEESX" "dgeesx_" %%DGEESX %DGEESX) + ("DGEEV" "dgeev_" %%DGEEV %DGEEV) + ("DGEEVX" "dgeevx_" %%DGEEVX %DGEEVX) + ("DGEHD2" "dgehd2_" %%DGEHD2 %DGEHD2) + ("DGEHRD" "dgehrd_" %%DGEHRD %DGEHRD) + ("DGEJSV" "dgejsv_" %%DGEJSV %DGEJSV) + ("DGELQ" "dgelq_" %%DGELQ %DGELQ) + ("DGELQ2" "dgelq2_" %%DGELQ2 %DGELQ2) + ("DGELQF" "dgelqf_" %%DGELQF %DGELQF) + ("DGELQT" "dgelqt_" %%DGELQT %DGELQT) + ("DGELQT3" "dgelqt3_" %%DGELQT3 %DGELQT3) + ("DGELS" "dgels_" %%DGELS %DGELS) + ("DGELSD" "dgelsd_" %%DGELSD %DGELSD) + ("DGELSS" "dgelss_" %%DGELSS %DGELSS) + ("DGELSY" "dgelsy_" %%DGELSY %DGELSY) + ("DGEMLQ" "dgemlq_" %%DGEMLQ %DGEMLQ) + ("DGEMLQT" "dgemlqt_" %%DGEMLQT %DGEMLQT) + ("DGEMQR" "dgemqr_" %%DGEMQR %DGEMQR) + ("DGEMQRT" "dgemqrt_" %%DGEMQRT %DGEMQRT) + ("DGEQL2" "dgeql2_" %%DGEQL2 %DGEQL2) + ("DGEQLF" "dgeqlf_" %%DGEQLF %DGEQLF) + ("DGEQP3" "dgeqp3_" %%DGEQP3 %DGEQP3) + ("DGEQR" "dgeqr_" %%DGEQR %DGEQR) + ("DGEQR2" "dgeqr2_" %%DGEQR2 %DGEQR2) + ("DGEQR2P" "dgeqr2p_" %%DGEQR2P %DGEQR2P) + ("DGEQRF" "dgeqrf_" %%DGEQRF %DGEQRF) + ("DGEQRFP" "dgeqrfp_" %%DGEQRFP %DGEQRFP) + ("DGEQRT" "dgeqrt_" %%DGEQRT %DGEQRT) + ("DGEQRT2" "dgeqrt2_" %%DGEQRT2 %DGEQRT2) + ("DGEQRT3" "dgeqrt3_" %%DGEQRT3 %DGEQRT3) + ("DGERFS" "dgerfs_" %%DGERFS %DGERFS) + ("DGERFSX" "dgerfsx_" %%DGERFSX %DGERFSX) + ("DGERQ2" "dgerq2_" %%DGERQ2 %DGERQ2) + ("DGERQF" "dgerqf_" %%DGERQF %DGERQF) + ("DGESC2" "dgesc2_" %%DGESC2 %DGESC2) + ("DGESDD" "dgesdd_" %%DGESDD %DGESDD) + ("DGESV" "dgesv_" %%DGESV %DGESV) + ("DGESVD" "dgesvd_" %%DGESVD %DGESVD) + ("DGESVDQ" "dgesvdq_" %%DGESVDQ %DGESVDQ) + ("DGESVDX" "dgesvdx_" %%DGESVDX %DGESVDX) + ("DGESVJ" "dgesvj_" %%DGESVJ %DGESVJ) + ("DGESVX" "dgesvx_" %%DGESVX %DGESVX) + ("DGESVXX" "dgesvxx_" %%DGESVXX %DGESVXX) + ("DGETC2" "dgetc2_" %%DGETC2 %DGETC2) + ("DGETF2" "dgetf2_" %%DGETF2 %DGETF2) + ("DGETRF" "dgetrf_" %%DGETRF %DGETRF) + ("DGETRF2" "dgetrf2_" %%DGETRF2 %DGETRF2) + ("DGETRI" "dgetri_" %%DGETRI %DGETRI) + ("DGETRS" "dgetrs_" %%DGETRS %DGETRS) + ("DGETSLS" "dgetsls_" %%DGETSLS %DGETSLS) + ("DGGBAK" "dggbak_" %%DGGBAK %DGGBAK) + ("DGGBAL" "dggbal_" %%DGGBAL %DGGBAL) + ("DGGES" "dgges_" %%DGGES %DGGES) + ("DGGES3" "dgges3_" %%DGGES3 %DGGES3) + ("DGGESX" "dggesx_" %%DGGESX %DGGESX) + ("DGGEV" "dggev_" %%DGGEV %DGGEV) + ("DGGEV3" "dggev3_" %%DGGEV3 %DGGEV3) + ("DGGEVX" "dggevx_" %%DGGEVX %DGGEVX) + ("DGGGLM" "dggglm_" %%DGGGLM %DGGGLM) + ("DGGHD3" "dgghd3_" %%DGGHD3 %DGGHD3) + ("DGGHRD" "dgghrd_" %%DGGHRD %DGGHRD) + ("DGGLSE" "dgglse_" %%DGGLSE %DGGLSE) + ("DGGQRF" "dggqrf_" %%DGGQRF %DGGQRF) + ("DGGRQF" "dggrqf_" %%DGGRQF %DGGRQF) + ("DGGSVD3" "dggsvd3_" %%DGGSVD3 %DGGSVD3) + ("DGGSVP3" "dggsvp3_" %%DGGSVP3 %DGGSVP3) + ("DGSVJ0" "dgsvj0_" %%DGSVJ0 %DGSVJ0) + ("DGSVJ1" "dgsvj1_" %%DGSVJ1 %DGSVJ1) + ("DGTCON" "dgtcon_" %%DGTCON %DGTCON) + ("DGTRFS" "dgtrfs_" %%DGTRFS %DGTRFS) + ("DGTSV" "dgtsv_" %%DGTSV %DGTSV) + ("DGTSVX" "dgtsvx_" %%DGTSVX %DGTSVX) + ("DGTTRF" "dgttrf_" %%DGTTRF %DGTTRF) + ("DGTTRS" "dgttrs_" %%DGTTRS %DGTTRS) + ("DGTTS2" "dgtts2_" %%DGTTS2 %DGTTS2) + ("DHGEQZ" "dhgeqz_" %%DHGEQZ %DHGEQZ) + ("DHSEIN" "dhsein_" %%DHSEIN %DHSEIN) + ("DHSEQR" "dhseqr_" %%DHSEQR %DHSEQR) + ("DISNAN" "disnan_" %%DISNAN %DISNAN) + ("DLA_GBAMV" "dla_gbamv_" %%DLA_GBAMV %DLA_GBAMV) + ("DLA_GBRCOND" "dla_gbrcond_" %%DLA_GBRCOND %DLA_GBRCOND) + ("DLA_GBRFSX_EXTENDED" "dla_gbrfsx_extended_" + %%DLA_GBRFSX_EXTENDED %DLA_GBRFSX_EXTENDED) + ("DLA_GBRPVGRW" "dla_gbrpvgrw_" %%DLA_GBRPVGRW + %DLA_GBRPVGRW) + ("DLA_GEAMV" "dla_geamv_" %%DLA_GEAMV %DLA_GEAMV) + ("DLA_GERCOND" "dla_gercond_" %%DLA_GERCOND %DLA_GERCOND) + ("DLA_GERFSX_EXTENDED" "dla_gerfsx_extended_" + %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED) + ("DLA_GERPVGRW" "dla_gerpvgrw_" %%DLA_GERPVGRW + %DLA_GERPVGRW) + ("DLA_LIN_BERR" "dla_lin_berr_" %%DLA_LIN_BERR + %DLA_LIN_BERR) + ("DLA_PORCOND" "dla_porcond_" %%DLA_PORCOND %DLA_PORCOND) + ("DLA_PORFSX_EXTENDED" "dla_porfsx_extended_" + %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED) + ("DLA_PORPVGRW" "dla_porpvgrw_" %%DLA_PORPVGRW + %DLA_PORPVGRW) + ("DLA_SYAMV" "dla_syamv_" %%DLA_SYAMV %DLA_SYAMV) + ("DLA_SYRCOND" "dla_syrcond_" %%DLA_SYRCOND %DLA_SYRCOND) + ("DLA_SYRFSX_EXTENDED" "dla_syrfsx_extended_" + %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED) + ("DLA_SYRPVGRW" "dla_syrpvgrw_" %%DLA_SYRPVGRW + %DLA_SYRPVGRW) + ("DLA_WWADDW" "dla_wwaddw_" %%DLA_WWADDW %DLA_WWADDW) + ("DLABAD" "dlabad_" %%DLABAD %DLABAD) + ("DLABRD" "dlabrd_" %%DLABRD %DLABRD) + ("DLACN2" "dlacn2_" %%DLACN2 %DLACN2) + ("DLACON" "dlacon_" %%DLACON %DLACON) + ("DLACPY" "dlacpy_" %%DLACPY %DLACPY) + ("DLADIV" "dladiv_" %%DLADIV %DLADIV) + ("DLAE2" "dlae2_" %%DLAE2 %DLAE2) + ("DLAEBZ" "dlaebz_" %%DLAEBZ %DLAEBZ) + ("DLAED0" "dlaed0_" %%DLAED0 %DLAED0) + ("DLAED1" "dlaed1_" %%DLAED1 %DLAED1) + ("DLAED2" "dlaed2_" %%DLAED2 %DLAED2) + ("DLAED3" "dlaed3_" %%DLAED3 %DLAED3) + ("DLAED4" "dlaed4_" %%DLAED4 %DLAED4) + ("DLAED5" "dlaed5_" %%DLAED5 %DLAED5) + ("DLAED6" "dlaed6_" %%DLAED6 %DLAED6) + ("DLAED7" "dlaed7_" %%DLAED7 %DLAED7) + ("DLAED8" "dlaed8_" %%DLAED8 %DLAED8) + ("DLAED9" "dlaed9_" %%DLAED9 %DLAED9) + ("DLAEDA" "dlaeda_" %%DLAEDA %DLAEDA) + ("DLAEIN" "dlaein_" %%DLAEIN %DLAEIN) + ("DLAEV2" "dlaev2_" %%DLAEV2 %DLAEV2) + ("DLAEXC" "dlaexc_" %%DLAEXC %DLAEXC) + ("DLAG2" "dlag2_" %%DLAG2 %DLAG2) + ("DLAG2S" "dlag2s_" %%DLAG2S %DLAG2S) + ("DLAGS2" "dlags2_" %%DLAGS2 %DLAGS2) + ("DLAGTF" "dlagtf_" %%DLAGTF %DLAGTF) + ("DLAGTM" "dlagtm_" %%DLAGTM %DLAGTM) + ("DLAGTS" "dlagts_" %%DLAGTS %DLAGTS) + ("DLAGV2" "dlagv2_" %%DLAGV2 %DLAGV2) + ("DLAHQR" "dlahqr_" %%DLAHQR %DLAHQR) + ("DLAHR2" "dlahr2_" %%DLAHR2 %DLAHR2) + ("DLAIC1" "dlaic1_" %%DLAIC1 %DLAIC1) + ("DLAISNAN" "dlaisnan_" %%DLAISNAN %DLAISNAN) + ("DLALN2" "dlaln2_" %%DLALN2 %DLALN2) + ("DLALS0" "dlals0_" %%DLALS0 %DLALS0) + ("DLALSA" "dlalsa_" %%DLALSA %DLALSA) + ("DLALSD" "dlalsd_" %%DLALSD %DLALSD) + ("DLAMRG" "dlamrg_" %%DLAMRG %DLAMRG) + ("DLAMSWLQ" "dlamswlq_" %%DLAMSWLQ %DLAMSWLQ) + ("DLAMTSQR" "dlamtsqr_" %%DLAMTSQR %DLAMTSQR) + ("DLANEG" "dlaneg_" %%DLANEG %DLANEG) + ("DLANGB" "dlangb_" %%DLANGB %DLANGB) + ("DLANGE" "dlange_" %%DLANGE %DLANGE) + ("DLANGT" "dlangt_" %%DLANGT %DLANGT) + ("DLANHS" "dlanhs_" %%DLANHS %DLANHS) + ("DLANSB" "dlansb_" %%DLANSB %DLANSB) + ("DLANSF" "dlansf_" %%DLANSF %DLANSF) + ("DLANSP" "dlansp_" %%DLANSP %DLANSP) + ("DLANST" "dlanst_" %%DLANST %DLANST) + ("DLANSY" "dlansy_" %%DLANSY %DLANSY) + ("DLANTB" "dlantb_" %%DLANTB %DLANTB) + ("DLANTP" "dlantp_" %%DLANTP %DLANTP) + ("DLANTR" "dlantr_" %%DLANTR %DLANTR) + ("DLANV2" "dlanv2_" %%DLANV2 %DLANV2) + ("DLAPLL" "dlapll_" %%DLAPLL %DLAPLL) + ("DLAPMR" "dlapmr_" %%DLAPMR %DLAPMR) + ("DLAPMT" "dlapmt_" %%DLAPMT %DLAPMT) + ("DLAPY2" "dlapy2_" %%DLAPY2 %DLAPY2) + ("DLAPY3" "dlapy3_" %%DLAPY3 %DLAPY3) + ("DLAQGB" "dlaqgb_" %%DLAQGB %DLAQGB) + ("DLAQGE" "dlaqge_" %%DLAQGE %DLAQGE) + ("DLAQP2" "dlaqp2_" %%DLAQP2 %DLAQP2) + ("DLAQPS" "dlaqps_" %%DLAQPS %DLAQPS) + ("DLAQR0" "dlaqr0_" %%DLAQR0 %DLAQR0) + ("DLAQR1" "dlaqr1_" %%DLAQR1 %DLAQR1) + ("DLAQR2" "dlaqr2_" %%DLAQR2 %DLAQR2) + ("DLAQR3" "dlaqr3_" %%DLAQR3 %DLAQR3) + ("DLAQR4" "dlaqr4_" %%DLAQR4 %DLAQR4) + ("DLAQR5" "dlaqr5_" %%DLAQR5 %DLAQR5) + ("DLAQSB" "dlaqsb_" %%DLAQSB %DLAQSB) + ("DLAQSP" "dlaqsp_" %%DLAQSP %DLAQSP) + ("DLAQSY" "dlaqsy_" %%DLAQSY %DLAQSY) + ("DLAQTR" "dlaqtr_" %%DLAQTR %DLAQTR) + ("DLAR1V" "dlar1v_" %%DLAR1V %DLAR1V) + ("DLAR2V" "dlar2v_" %%DLAR2V %DLAR2V) + ("DLARF" "dlarf_" %%DLARF %DLARF) + ("DLARFB" "dlarfb_" %%DLARFB %DLARFB) + ("DLARFG" "dlarfg_" %%DLARFG %DLARFG) + ("DLARFGP" "dlarfgp_" %%DLARFGP %DLARFGP) + ("DLARFT" "dlarft_" %%DLARFT %DLARFT) + ("DLARFX" "dlarfx_" %%DLARFX %DLARFX) + ("DLARFY" "dlarfy_" %%DLARFY %DLARFY) + ("DLARGV" "dlargv_" %%DLARGV %DLARGV) + ("DLARNV" "dlarnv_" %%DLARNV %DLARNV) + ("DLARRA" "dlarra_" %%DLARRA %DLARRA) + ("DLARRB" "dlarrb_" %%DLARRB %DLARRB) + ("DLARRC" "dlarrc_" %%DLARRC %DLARRC) + ("DLARRD" "dlarrd_" %%DLARRD %DLARRD) + ("DLARRE" "dlarre_" %%DLARRE %DLARRE) + ("DLARRF" "dlarrf_" %%DLARRF %DLARRF) + ("DLARRJ" "dlarrj_" %%DLARRJ %DLARRJ) + ("DLARRK" "dlarrk_" %%DLARRK %DLARRK) + ("DLARRR" "dlarrr_" %%DLARRR %DLARRR) + ("DLARRV" "dlarrv_" %%DLARRV %DLARRV) + ("DLARSCL2" "dlarscl2_" %%DLARSCL2 %DLARSCL2) + ("DLARTG" "dlartg_" %%DLARTG %DLARTG) + ("DLARTGP" "dlartgp_" %%DLARTGP %DLARTGP) + ("DLARTGS" "dlartgs_" %%DLARTGS %DLARTGS) + ("DLARTV" "dlartv_" %%DLARTV %DLARTV) + ("DLARUV" "dlaruv_" %%DLARUV %DLARUV) + ("DLARZ" "dlarz_" %%DLARZ %DLARZ) + ("DLARZB" "dlarzb_" %%DLARZB %DLARZB) + ("DLARZT" "dlarzt_" %%DLARZT %DLARZT) + ("DLAS2" "dlas2_" %%DLAS2 %DLAS2) + ("DLASCL" "dlascl_" %%DLASCL %DLASCL) + ("DLASCL2" "dlascl2_" %%DLASCL2 %DLASCL2) + ("DLASD0" "dlasd0_" %%DLASD0 %DLASD0) + ("DLASD1" "dlasd1_" %%DLASD1 %DLASD1) + ("DLASD2" "dlasd2_" %%DLASD2 %DLASD2) + ("DLASD3" "dlasd3_" %%DLASD3 %DLASD3) + ("DLASD4" "dlasd4_" %%DLASD4 %DLASD4) + ("DLASD5" "dlasd5_" %%DLASD5 %DLASD5) + ("DLASD6" "dlasd6_" %%DLASD6 %DLASD6) + ("DLASD7" "dlasd7_" %%DLASD7 %DLASD7) + ("DLASD8" "dlasd8_" %%DLASD8 %DLASD8) + ("DLASDA" "dlasda_" %%DLASDA %DLASDA) + ("DLASDQ" "dlasdq_" %%DLASDQ %DLASDQ) + ("DLASDT" "dlasdt_" %%DLASDT %DLASDT) + ("DLASET" "dlaset_" %%DLASET %DLASET) + ("DLASQ1" "dlasq1_" %%DLASQ1 %DLASQ1) + ("DLASQ2" "dlasq2_" %%DLASQ2 %DLASQ2) + ("DLASQ3" "dlasq3_" %%DLASQ3 %DLASQ3) + ("DLASQ4" "dlasq4_" %%DLASQ4 %DLASQ4) + ("DLASQ5" "dlasq5_" %%DLASQ5 %DLASQ5) + ("DLASQ6" "dlasq6_" %%DLASQ6 %DLASQ6) + ("DLASR" "dlasr_" %%DLASR %DLASR) + ("DLASRT" "dlasrt_" %%DLASRT %DLASRT) + ("DLASSQ" "dlassq_" %%DLASSQ %DLASSQ) + ("DLASV2" "dlasv2_" %%DLASV2 %DLASV2) + ("DLASWLQ" "dlaswlq_" %%DLASWLQ %DLASWLQ))) (COMMON-LISP:EXPORT '(%DGBBRD %DGBCON %DGBEQU %DGBEQUB %DGBRFS %DGBRFSX %DGBSV %DGBSVX %DGBSVXX diff --git a/src/bindings/lapack03-cffi.lisp b/src/bindings/lapack03-cffi.lisp index 898b9891..90a9ada8 100644 --- a/src/bindings/lapack03-cffi.lisp +++ b/src/bindings/lapack03-cffi.lisp @@ -12513,272 +12513,270 @@ %ILADIAG %%ILADLC %ILADLC %%ILADLR %ILADLR %%ILAENV %ILAENV %%ILAENV2STAGE %ILAENV2STAGE %%ILAPREC %ILAPREC %%ILASLC %ILASLC)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - ':MAGICL) - '(("DLASWP" "dlaswp_" %%DLASWP %DLASWP) - ("DLASY2" "dlasy2_" %%DLASY2 %DLASY2) - ("DLASYF" "dlasyf_" %%DLASYF %DLASYF) - ("DLASYF_AA" "dlasyf_aa_" %%DLASYF_AA %DLASYF_AA) - ("DLASYF_RK" "dlasyf_rk_" %%DLASYF_RK %DLASYF_RK) - ("DLASYF_ROOK" "dlasyf_rook_" %%DLASYF_ROOK %DLASYF_ROOK) - ("DLAT2S" "dlat2s_" %%DLAT2S %DLAT2S) - ("DLATBS" "dlatbs_" %%DLATBS %DLATBS) - ("DLATDF" "dlatdf_" %%DLATDF %DLATDF) - ("DLATPS" "dlatps_" %%DLATPS %DLATPS) - ("DLATRD" "dlatrd_" %%DLATRD %DLATRD) - ("DLATRS" "dlatrs_" %%DLATRS %DLATRS) - ("DLATRZ" "dlatrz_" %%DLATRZ %DLATRZ) - ("DLATSQR" "dlatsqr_" %%DLATSQR %DLATSQR) - ("DLAUU2" "dlauu2_" %%DLAUU2 %DLAUU2) - ("DLAUUM" "dlauum_" %%DLAUUM %DLAUUM) - ("DOPGTR" "dopgtr_" %%DOPGTR %DOPGTR) - ("DOPMTR" "dopmtr_" %%DOPMTR %DOPMTR) - ("DORBDB" "dorbdb_" %%DORBDB %DORBDB) - ("DORBDB1" "dorbdb1_" %%DORBDB1 %DORBDB1) - ("DORBDB2" "dorbdb2_" %%DORBDB2 %DORBDB2) - ("DORBDB3" "dorbdb3_" %%DORBDB3 %DORBDB3) - ("DORBDB4" "dorbdb4_" %%DORBDB4 %DORBDB4) - ("DORBDB5" "dorbdb5_" %%DORBDB5 %DORBDB5) - ("DORBDB6" "dorbdb6_" %%DORBDB6 %DORBDB6) - ("DORCSD" "dorcsd_" %%DORCSD %DORCSD) - ("DORCSD2BY1" "dorcsd2by1_" %%DORCSD2BY1 %DORCSD2BY1) - ("DORG2L" "dorg2l_" %%DORG2L %DORG2L) - ("DORG2R" "dorg2r_" %%DORG2R %DORG2R) - ("DORGBR" "dorgbr_" %%DORGBR %DORGBR) - ("DORGHR" "dorghr_" %%DORGHR %DORGHR) - ("DORGL2" "dorgl2_" %%DORGL2 %DORGL2) - ("DORGLQ" "dorglq_" %%DORGLQ %DORGLQ) - ("DORGQL" "dorgql_" %%DORGQL %DORGQL) - ("DORGQR" "dorgqr_" %%DORGQR %DORGQR) - ("DORGR2" "dorgr2_" %%DORGR2 %DORGR2) - ("DORGRQ" "dorgrq_" %%DORGRQ %DORGRQ) - ("DORGTR" "dorgtr_" %%DORGTR %DORGTR) - ("DORM22" "dorm22_" %%DORM22 %DORM22) - ("DORM2L" "dorm2l_" %%DORM2L %DORM2L) - ("DORM2R" "dorm2r_" %%DORM2R %DORM2R) - ("DORMBR" "dormbr_" %%DORMBR %DORMBR) - ("DORMHR" "dormhr_" %%DORMHR %DORMHR) - ("DORML2" "dorml2_" %%DORML2 %DORML2) - ("DORMLQ" "dormlq_" %%DORMLQ %DORMLQ) - ("DORMQL" "dormql_" %%DORMQL %DORMQL) - ("DORMQR" "dormqr_" %%DORMQR %DORMQR) - ("DORMR2" "dormr2_" %%DORMR2 %DORMR2) - ("DORMR3" "dormr3_" %%DORMR3 %DORMR3) - ("DORMRQ" "dormrq_" %%DORMRQ %DORMRQ) - ("DORMRZ" "dormrz_" %%DORMRZ %DORMRZ) - ("DORMTR" "dormtr_" %%DORMTR %DORMTR) - ("DPBCON" "dpbcon_" %%DPBCON %DPBCON) - ("DPBEQU" "dpbequ_" %%DPBEQU %DPBEQU) - ("DPBRFS" "dpbrfs_" %%DPBRFS %DPBRFS) - ("DPBSTF" "dpbstf_" %%DPBSTF %DPBSTF) - ("DPBSV" "dpbsv_" %%DPBSV %DPBSV) - ("DPBSVX" "dpbsvx_" %%DPBSVX %DPBSVX) - ("DPBTF2" "dpbtf2_" %%DPBTF2 %DPBTF2) - ("DPBTRF" "dpbtrf_" %%DPBTRF %DPBTRF) - ("DPBTRS" "dpbtrs_" %%DPBTRS %DPBTRS) - ("DPFTRF" "dpftrf_" %%DPFTRF %DPFTRF) - ("DPFTRI" "dpftri_" %%DPFTRI %DPFTRI) - ("DPFTRS" "dpftrs_" %%DPFTRS %DPFTRS) - ("DPOCON" "dpocon_" %%DPOCON %DPOCON) - ("DPOEQU" "dpoequ_" %%DPOEQU %DPOEQU) - ("DPOEQUB" "dpoequb_" %%DPOEQUB %DPOEQUB) - ("DPORFS" "dporfs_" %%DPORFS %DPORFS) - ("DPORFSX" "dporfsx_" %%DPORFSX %DPORFSX) - ("DPOSV" "dposv_" %%DPOSV %DPOSV) - ("DPOSVX" "dposvx_" %%DPOSVX %DPOSVX) - ("DPOSVXX" "dposvxx_" %%DPOSVXX %DPOSVXX) - ("DPOTF2" "dpotf2_" %%DPOTF2 %DPOTF2) - ("DPOTRF" "dpotrf_" %%DPOTRF %DPOTRF) - ("DPOTRF2" "dpotrf2_" %%DPOTRF2 %DPOTRF2) - ("DPOTRI" "dpotri_" %%DPOTRI %DPOTRI) - ("DPOTRS" "dpotrs_" %%DPOTRS %DPOTRS) - ("DPPCON" "dppcon_" %%DPPCON %DPPCON) - ("DPPEQU" "dppequ_" %%DPPEQU %DPPEQU) - ("DPPRFS" "dpprfs_" %%DPPRFS %DPPRFS) - ("DPPSV" "dppsv_" %%DPPSV %DPPSV) - ("DPPSVX" "dppsvx_" %%DPPSVX %DPPSVX) - ("DPPTRF" "dpptrf_" %%DPPTRF %DPPTRF) - ("DPPTRI" "dpptri_" %%DPPTRI %DPPTRI) - ("DPPTRS" "dpptrs_" %%DPPTRS %DPPTRS) - ("DPSTF2" "dpstf2_" %%DPSTF2 %DPSTF2) - ("DPSTRF" "dpstrf_" %%DPSTRF %DPSTRF) - ("DPTCON" "dptcon_" %%DPTCON %DPTCON) - ("DPTEQR" "dpteqr_" %%DPTEQR %DPTEQR) - ("DPTRFS" "dptrfs_" %%DPTRFS %DPTRFS) - ("DPTSV" "dptsv_" %%DPTSV %DPTSV) - ("DPTSVX" "dptsvx_" %%DPTSVX %DPTSVX) - ("DPTTRF" "dpttrf_" %%DPTTRF %DPTTRF) - ("DPTTRS" "dpttrs_" %%DPTTRS %DPTTRS) - ("DPTTS2" "dptts2_" %%DPTTS2 %DPTTS2) - ("DRSCL" "drscl_" %%DRSCL %DRSCL) - ("DSB2ST_KERNELS" "dsb2st_kernels_" %%DSB2ST_KERNELS - %DSB2ST_KERNELS) - ("DSBEV" "dsbev_" %%DSBEV %DSBEV) - ("DSBEV_2STAGE" "dsbev_2stage_" %%DSBEV_2STAGE - %DSBEV_2STAGE) - ("DSBEVD" "dsbevd_" %%DSBEVD %DSBEVD) - ("DSBEVD_2STAGE" "dsbevd_2stage_" %%DSBEVD_2STAGE - %DSBEVD_2STAGE) - ("DSBEVX" "dsbevx_" %%DSBEVX %DSBEVX) - ("DSBEVX_2STAGE" "dsbevx_2stage_" %%DSBEVX_2STAGE - %DSBEVX_2STAGE) - ("DSBGST" "dsbgst_" %%DSBGST %DSBGST) - ("DSBGV" "dsbgv_" %%DSBGV %DSBGV) - ("DSBGVD" "dsbgvd_" %%DSBGVD %DSBGVD) - ("DSBGVX" "dsbgvx_" %%DSBGVX %DSBGVX) - ("DSBTRD" "dsbtrd_" %%DSBTRD %DSBTRD) - ("DSFRK" "dsfrk_" %%DSFRK %DSFRK) - ("DSGESV" "dsgesv_" %%DSGESV %DSGESV) - ("DSPCON" "dspcon_" %%DSPCON %DSPCON) - ("DSPEV" "dspev_" %%DSPEV %DSPEV) - ("DSPEVD" "dspevd_" %%DSPEVD %DSPEVD) - ("DSPEVX" "dspevx_" %%DSPEVX %DSPEVX) - ("DSPGST" "dspgst_" %%DSPGST %DSPGST) - ("DSPGV" "dspgv_" %%DSPGV %DSPGV) - ("DSPGVD" "dspgvd_" %%DSPGVD %DSPGVD) - ("DSPGVX" "dspgvx_" %%DSPGVX %DSPGVX) - ("DSPOSV" "dsposv_" %%DSPOSV %DSPOSV) - ("DSPRFS" "dsprfs_" %%DSPRFS %DSPRFS) - ("DSPSV" "dspsv_" %%DSPSV %DSPSV) - ("DSPSVX" "dspsvx_" %%DSPSVX %DSPSVX) - ("DSPTRD" "dsptrd_" %%DSPTRD %DSPTRD) - ("DSPTRF" "dsptrf_" %%DSPTRF %DSPTRF) - ("DSPTRI" "dsptri_" %%DSPTRI %DSPTRI) - ("DSPTRS" "dsptrs_" %%DSPTRS %DSPTRS) - ("DSTEBZ" "dstebz_" %%DSTEBZ %DSTEBZ) - ("DSTEDC" "dstedc_" %%DSTEDC %DSTEDC) - ("DSTEGR" "dstegr_" %%DSTEGR %DSTEGR) - ("DSTEIN" "dstein_" %%DSTEIN %DSTEIN) - ("DSTEMR" "dstemr_" %%DSTEMR %DSTEMR) - ("DSTEQR" "dsteqr_" %%DSTEQR %DSTEQR) - ("DSTERF" "dsterf_" %%DSTERF %DSTERF) - ("DSTEV" "dstev_" %%DSTEV %DSTEV) - ("DSTEVD" "dstevd_" %%DSTEVD %DSTEVD) - ("DSTEVR" "dstevr_" %%DSTEVR %DSTEVR) - ("DSTEVX" "dstevx_" %%DSTEVX %DSTEVX) - ("DSYCON" "dsycon_" %%DSYCON %DSYCON) - ("DSYCON_3" "dsycon_3_" %%DSYCON_3 %DSYCON_3) - ("DSYCON_ROOK" "dsycon_rook_" %%DSYCON_ROOK %DSYCON_ROOK) - ("DSYCONV" "dsyconv_" %%DSYCONV %DSYCONV) - ("DSYCONVF" "dsyconvf_" %%DSYCONVF %DSYCONVF) - ("DSYCONVF_ROOK" "dsyconvf_rook_" %%DSYCONVF_ROOK - %DSYCONVF_ROOK) - ("DSYEQUB" "dsyequb_" %%DSYEQUB %DSYEQUB) - ("DSYEV" "dsyev_" %%DSYEV %DSYEV) - ("DSYEV_2STAGE" "dsyev_2stage_" %%DSYEV_2STAGE - %DSYEV_2STAGE) - ("DSYEVD" "dsyevd_" %%DSYEVD %DSYEVD) - ("DSYEVD_2STAGE" "dsyevd_2stage_" %%DSYEVD_2STAGE - %DSYEVD_2STAGE) - ("DSYEVR" "dsyevr_" %%DSYEVR %DSYEVR) - ("DSYEVR_2STAGE" "dsyevr_2stage_" %%DSYEVR_2STAGE - %DSYEVR_2STAGE) - ("DSYEVX" "dsyevx_" %%DSYEVX %DSYEVX) - ("DSYEVX_2STAGE" "dsyevx_2stage_" %%DSYEVX_2STAGE - %DSYEVX_2STAGE) - ("DSYGS2" "dsygs2_" %%DSYGS2 %DSYGS2) - ("DSYGST" "dsygst_" %%DSYGST %DSYGST) - ("DSYGV" "dsygv_" %%DSYGV %DSYGV) - ("DSYGV_2STAGE" "dsygv_2stage_" %%DSYGV_2STAGE - %DSYGV_2STAGE) - ("DSYGVD" "dsygvd_" %%DSYGVD %DSYGVD) - ("DSYGVX" "dsygvx_" %%DSYGVX %DSYGVX) - ("DSYRFS" "dsyrfs_" %%DSYRFS %DSYRFS) - ("DSYRFSX" "dsyrfsx_" %%DSYRFSX %DSYRFSX) - ("DSYSV" "dsysv_" %%DSYSV %DSYSV) - ("DSYSV_AA" "dsysv_aa_" %%DSYSV_AA %DSYSV_AA) - ("DSYSV_AA_2STAGE" "dsysv_aa_2stage_" %%DSYSV_AA_2STAGE - %DSYSV_AA_2STAGE) - ("DSYSV_RK" "dsysv_rk_" %%DSYSV_RK %DSYSV_RK) - ("DSYSV_ROOK" "dsysv_rook_" %%DSYSV_ROOK %DSYSV_ROOK) - ("DSYSVX" "dsysvx_" %%DSYSVX %DSYSVX) - ("DSYSVXX" "dsysvxx_" %%DSYSVXX %DSYSVXX) - ("DSYSWAPR" "dsyswapr_" %%DSYSWAPR %DSYSWAPR) - ("DSYTD2" "dsytd2_" %%DSYTD2 %DSYTD2) - ("DSYTF2" "dsytf2_" %%DSYTF2 %DSYTF2) - ("DSYTF2_RK" "dsytf2_rk_" %%DSYTF2_RK %DSYTF2_RK) - ("DSYTF2_ROOK" "dsytf2_rook_" %%DSYTF2_ROOK %DSYTF2_ROOK) - ("DSYTRD" "dsytrd_" %%DSYTRD %DSYTRD) - ("DSYTRD_2STAGE" "dsytrd_2stage_" %%DSYTRD_2STAGE - %DSYTRD_2STAGE) - ("DSYTRD_SY2SB" "dsytrd_sy2sb_" %%DSYTRD_SY2SB - %DSYTRD_SY2SB) - ("DSYTRF" "dsytrf_" %%DSYTRF %DSYTRF) - ("DSYTRF_AA" "dsytrf_aa_" %%DSYTRF_AA %DSYTRF_AA) - ("DSYTRF_AA_2STAGE" "dsytrf_aa_2stage_" - %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE) - ("DSYTRF_RK" "dsytrf_rk_" %%DSYTRF_RK %DSYTRF_RK) - ("DSYTRF_ROOK" "dsytrf_rook_" %%DSYTRF_ROOK %DSYTRF_ROOK) - ("DSYTRI" "dsytri_" %%DSYTRI %DSYTRI) - ("DSYTRI2" "dsytri2_" %%DSYTRI2 %DSYTRI2) - ("DSYTRI2X" "dsytri2x_" %%DSYTRI2X %DSYTRI2X) - ("DSYTRI_3" "dsytri_3_" %%DSYTRI_3 %DSYTRI_3) - ("DSYTRI_3X" "dsytri_3x_" %%DSYTRI_3X %DSYTRI_3X) - ("DSYTRI_ROOK" "dsytri_rook_" %%DSYTRI_ROOK %DSYTRI_ROOK) - ("DSYTRS" "dsytrs_" %%DSYTRS %DSYTRS) - ("DSYTRS2" "dsytrs2_" %%DSYTRS2 %DSYTRS2) - ("DSYTRS_3" "dsytrs_3_" %%DSYTRS_3 %DSYTRS_3) - ("DSYTRS_AA" "dsytrs_aa_" %%DSYTRS_AA %DSYTRS_AA) - ("DSYTRS_AA_2STAGE" "dsytrs_aa_2stage_" - %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE) - ("DSYTRS_ROOK" "dsytrs_rook_" %%DSYTRS_ROOK %DSYTRS_ROOK) - ("DTBCON" "dtbcon_" %%DTBCON %DTBCON) - ("DTBRFS" "dtbrfs_" %%DTBRFS %DTBRFS) - ("DTBTRS" "dtbtrs_" %%DTBTRS %DTBTRS) - ("DTFSM" "dtfsm_" %%DTFSM %DTFSM) - ("DTFTRI" "dtftri_" %%DTFTRI %DTFTRI) - ("DTFTTP" "dtfttp_" %%DTFTTP %DTFTTP) - ("DTFTTR" "dtfttr_" %%DTFTTR %DTFTTR) - ("DTGEVC" "dtgevc_" %%DTGEVC %DTGEVC) - ("DTGEX2" "dtgex2_" %%DTGEX2 %DTGEX2) - ("DTGEXC" "dtgexc_" %%DTGEXC %DTGEXC) - ("DTGSEN" "dtgsen_" %%DTGSEN %DTGSEN) - ("DTGSJA" "dtgsja_" %%DTGSJA %DTGSJA) - ("DTGSNA" "dtgsna_" %%DTGSNA %DTGSNA) - ("DTGSY2" "dtgsy2_" %%DTGSY2 %DTGSY2) - ("DTGSYL" "dtgsyl_" %%DTGSYL %DTGSYL) - ("DTPCON" "dtpcon_" %%DTPCON %DTPCON) - ("DTPLQT" "dtplqt_" %%DTPLQT %DTPLQT) - ("DTPLQT2" "dtplqt2_" %%DTPLQT2 %DTPLQT2) - ("DTPMLQT" "dtpmlqt_" %%DTPMLQT %DTPMLQT) - ("DTPMQRT" "dtpmqrt_" %%DTPMQRT %DTPMQRT) - ("DTPQRT" "dtpqrt_" %%DTPQRT %DTPQRT) - ("DTPQRT2" "dtpqrt2_" %%DTPQRT2 %DTPQRT2) - ("DTPRFB" "dtprfb_" %%DTPRFB %DTPRFB) - ("DTPRFS" "dtprfs_" %%DTPRFS %DTPRFS) - ("DTPTRI" "dtptri_" %%DTPTRI %DTPTRI) - ("DTPTRS" "dtptrs_" %%DTPTRS %DTPTRS) - ("DTPTTF" "dtpttf_" %%DTPTTF %DTPTTF) - ("DTPTTR" "dtpttr_" %%DTPTTR %DTPTTR) - ("DTRCON" "dtrcon_" %%DTRCON %DTRCON) - ("DTREVC" "dtrevc_" %%DTREVC %DTREVC) - ("DTREVC3" "dtrevc3_" %%DTREVC3 %DTREVC3) - ("DTREXC" "dtrexc_" %%DTREXC %DTREXC) - ("DTRRFS" "dtrrfs_" %%DTRRFS %DTRRFS) - ("DTRSEN" "dtrsen_" %%DTRSEN %DTRSEN) - ("DTRSNA" "dtrsna_" %%DTRSNA %DTRSNA) - ("DTRSYL" "dtrsyl_" %%DTRSYL %DTRSYL) - ("DTRTI2" "dtrti2_" %%DTRTI2 %DTRTI2) - ("DTRTRI" "dtrtri_" %%DTRTRI %DTRTRI) - ("DTRTRS" "dtrtrs_" %%DTRTRS %DTRTRS) - ("DTRTTF" "dtrttf_" %%DTRTTF %DTRTTF) - ("DTRTTP" "dtrttp_" %%DTRTTP %DTRTTP) - ("DTZRZF" "dtzrzf_" %%DTZRZF %DTZRZF) - ("DZSUM1" "dzsum1_" %%DZSUM1 %DZSUM1) - ("ICMAX1" "icmax1_" %%ICMAX1 %ICMAX1) - ("IEEECK" "ieeeck_" %%IEEECK %IEEECK) - ("ILACLC" "ilaclc_" %%ILACLC %ILACLC) - ("ILACLR" "ilaclr_" %%ILACLR %ILACLR) - ("ILADIAG" "iladiag_" %%ILADIAG %ILADIAG) - ("ILADLC" "iladlc_" %%ILADLC %ILADLC) - ("ILADLR" "iladlr_" %%ILADLR %ILADLR) - ("ILAENV" "ilaenv_" %%ILAENV %ILAENV) - ("ILAENV2STAGE" "ilaenv2stage_" %%ILAENV2STAGE - %ILAENV2STAGE) - ("ILAPREC" "ilaprec_" %%ILAPREC %ILAPREC) - ("ILASLC" "ilaslc_" %%ILASLC %ILASLC))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK + '(("DLASWP" "dlaswp_" %%DLASWP %DLASWP) + ("DLASY2" "dlasy2_" %%DLASY2 %DLASY2) + ("DLASYF" "dlasyf_" %%DLASYF %DLASYF) + ("DLASYF_AA" "dlasyf_aa_" %%DLASYF_AA %DLASYF_AA) + ("DLASYF_RK" "dlasyf_rk_" %%DLASYF_RK %DLASYF_RK) + ("DLASYF_ROOK" "dlasyf_rook_" %%DLASYF_ROOK %DLASYF_ROOK) + ("DLAT2S" "dlat2s_" %%DLAT2S %DLAT2S) + ("DLATBS" "dlatbs_" %%DLATBS %DLATBS) + ("DLATDF" "dlatdf_" %%DLATDF %DLATDF) + ("DLATPS" "dlatps_" %%DLATPS %DLATPS) + ("DLATRD" "dlatrd_" %%DLATRD %DLATRD) + ("DLATRS" "dlatrs_" %%DLATRS %DLATRS) + ("DLATRZ" "dlatrz_" %%DLATRZ %DLATRZ) + ("DLATSQR" "dlatsqr_" %%DLATSQR %DLATSQR) + ("DLAUU2" "dlauu2_" %%DLAUU2 %DLAUU2) + ("DLAUUM" "dlauum_" %%DLAUUM %DLAUUM) + ("DOPGTR" "dopgtr_" %%DOPGTR %DOPGTR) + ("DOPMTR" "dopmtr_" %%DOPMTR %DOPMTR) + ("DORBDB" "dorbdb_" %%DORBDB %DORBDB) + ("DORBDB1" "dorbdb1_" %%DORBDB1 %DORBDB1) + ("DORBDB2" "dorbdb2_" %%DORBDB2 %DORBDB2) + ("DORBDB3" "dorbdb3_" %%DORBDB3 %DORBDB3) + ("DORBDB4" "dorbdb4_" %%DORBDB4 %DORBDB4) + ("DORBDB5" "dorbdb5_" %%DORBDB5 %DORBDB5) + ("DORBDB6" "dorbdb6_" %%DORBDB6 %DORBDB6) + ("DORCSD" "dorcsd_" %%DORCSD %DORCSD) + ("DORCSD2BY1" "dorcsd2by1_" %%DORCSD2BY1 %DORCSD2BY1) + ("DORG2L" "dorg2l_" %%DORG2L %DORG2L) + ("DORG2R" "dorg2r_" %%DORG2R %DORG2R) + ("DORGBR" "dorgbr_" %%DORGBR %DORGBR) + ("DORGHR" "dorghr_" %%DORGHR %DORGHR) + ("DORGL2" "dorgl2_" %%DORGL2 %DORGL2) + ("DORGLQ" "dorglq_" %%DORGLQ %DORGLQ) + ("DORGQL" "dorgql_" %%DORGQL %DORGQL) + ("DORGQR" "dorgqr_" %%DORGQR %DORGQR) + ("DORGR2" "dorgr2_" %%DORGR2 %DORGR2) + ("DORGRQ" "dorgrq_" %%DORGRQ %DORGRQ) + ("DORGTR" "dorgtr_" %%DORGTR %DORGTR) + ("DORM22" "dorm22_" %%DORM22 %DORM22) + ("DORM2L" "dorm2l_" %%DORM2L %DORM2L) + ("DORM2R" "dorm2r_" %%DORM2R %DORM2R) + ("DORMBR" "dormbr_" %%DORMBR %DORMBR) + ("DORMHR" "dormhr_" %%DORMHR %DORMHR) + ("DORML2" "dorml2_" %%DORML2 %DORML2) + ("DORMLQ" "dormlq_" %%DORMLQ %DORMLQ) + ("DORMQL" "dormql_" %%DORMQL %DORMQL) + ("DORMQR" "dormqr_" %%DORMQR %DORMQR) + ("DORMR2" "dormr2_" %%DORMR2 %DORMR2) + ("DORMR3" "dormr3_" %%DORMR3 %DORMR3) + ("DORMRQ" "dormrq_" %%DORMRQ %DORMRQ) + ("DORMRZ" "dormrz_" %%DORMRZ %DORMRZ) + ("DORMTR" "dormtr_" %%DORMTR %DORMTR) + ("DPBCON" "dpbcon_" %%DPBCON %DPBCON) + ("DPBEQU" "dpbequ_" %%DPBEQU %DPBEQU) + ("DPBRFS" "dpbrfs_" %%DPBRFS %DPBRFS) + ("DPBSTF" "dpbstf_" %%DPBSTF %DPBSTF) + ("DPBSV" "dpbsv_" %%DPBSV %DPBSV) + ("DPBSVX" "dpbsvx_" %%DPBSVX %DPBSVX) + ("DPBTF2" "dpbtf2_" %%DPBTF2 %DPBTF2) + ("DPBTRF" "dpbtrf_" %%DPBTRF %DPBTRF) + ("DPBTRS" "dpbtrs_" %%DPBTRS %DPBTRS) + ("DPFTRF" "dpftrf_" %%DPFTRF %DPFTRF) + ("DPFTRI" "dpftri_" %%DPFTRI %DPFTRI) + ("DPFTRS" "dpftrs_" %%DPFTRS %DPFTRS) + ("DPOCON" "dpocon_" %%DPOCON %DPOCON) + ("DPOEQU" "dpoequ_" %%DPOEQU %DPOEQU) + ("DPOEQUB" "dpoequb_" %%DPOEQUB %DPOEQUB) + ("DPORFS" "dporfs_" %%DPORFS %DPORFS) + ("DPORFSX" "dporfsx_" %%DPORFSX %DPORFSX) + ("DPOSV" "dposv_" %%DPOSV %DPOSV) + ("DPOSVX" "dposvx_" %%DPOSVX %DPOSVX) + ("DPOSVXX" "dposvxx_" %%DPOSVXX %DPOSVXX) + ("DPOTF2" "dpotf2_" %%DPOTF2 %DPOTF2) + ("DPOTRF" "dpotrf_" %%DPOTRF %DPOTRF) + ("DPOTRF2" "dpotrf2_" %%DPOTRF2 %DPOTRF2) + ("DPOTRI" "dpotri_" %%DPOTRI %DPOTRI) + ("DPOTRS" "dpotrs_" %%DPOTRS %DPOTRS) + ("DPPCON" "dppcon_" %%DPPCON %DPPCON) + ("DPPEQU" "dppequ_" %%DPPEQU %DPPEQU) + ("DPPRFS" "dpprfs_" %%DPPRFS %DPPRFS) + ("DPPSV" "dppsv_" %%DPPSV %DPPSV) + ("DPPSVX" "dppsvx_" %%DPPSVX %DPPSVX) + ("DPPTRF" "dpptrf_" %%DPPTRF %DPPTRF) + ("DPPTRI" "dpptri_" %%DPPTRI %DPPTRI) + ("DPPTRS" "dpptrs_" %%DPPTRS %DPPTRS) + ("DPSTF2" "dpstf2_" %%DPSTF2 %DPSTF2) + ("DPSTRF" "dpstrf_" %%DPSTRF %DPSTRF) + ("DPTCON" "dptcon_" %%DPTCON %DPTCON) + ("DPTEQR" "dpteqr_" %%DPTEQR %DPTEQR) + ("DPTRFS" "dptrfs_" %%DPTRFS %DPTRFS) + ("DPTSV" "dptsv_" %%DPTSV %DPTSV) + ("DPTSVX" "dptsvx_" %%DPTSVX %DPTSVX) + ("DPTTRF" "dpttrf_" %%DPTTRF %DPTTRF) + ("DPTTRS" "dpttrs_" %%DPTTRS %DPTTRS) + ("DPTTS2" "dptts2_" %%DPTTS2 %DPTTS2) + ("DRSCL" "drscl_" %%DRSCL %DRSCL) + ("DSB2ST_KERNELS" "dsb2st_kernels_" %%DSB2ST_KERNELS + %DSB2ST_KERNELS) + ("DSBEV" "dsbev_" %%DSBEV %DSBEV) + ("DSBEV_2STAGE" "dsbev_2stage_" %%DSBEV_2STAGE + %DSBEV_2STAGE) + ("DSBEVD" "dsbevd_" %%DSBEVD %DSBEVD) + ("DSBEVD_2STAGE" "dsbevd_2stage_" %%DSBEVD_2STAGE + %DSBEVD_2STAGE) + ("DSBEVX" "dsbevx_" %%DSBEVX %DSBEVX) + ("DSBEVX_2STAGE" "dsbevx_2stage_" %%DSBEVX_2STAGE + %DSBEVX_2STAGE) + ("DSBGST" "dsbgst_" %%DSBGST %DSBGST) + ("DSBGV" "dsbgv_" %%DSBGV %DSBGV) + ("DSBGVD" "dsbgvd_" %%DSBGVD %DSBGVD) + ("DSBGVX" "dsbgvx_" %%DSBGVX %DSBGVX) + ("DSBTRD" "dsbtrd_" %%DSBTRD %DSBTRD) + ("DSFRK" "dsfrk_" %%DSFRK %DSFRK) + ("DSGESV" "dsgesv_" %%DSGESV %DSGESV) + ("DSPCON" "dspcon_" %%DSPCON %DSPCON) + ("DSPEV" "dspev_" %%DSPEV %DSPEV) + ("DSPEVD" "dspevd_" %%DSPEVD %DSPEVD) + ("DSPEVX" "dspevx_" %%DSPEVX %DSPEVX) + ("DSPGST" "dspgst_" %%DSPGST %DSPGST) + ("DSPGV" "dspgv_" %%DSPGV %DSPGV) + ("DSPGVD" "dspgvd_" %%DSPGVD %DSPGVD) + ("DSPGVX" "dspgvx_" %%DSPGVX %DSPGVX) + ("DSPOSV" "dsposv_" %%DSPOSV %DSPOSV) + ("DSPRFS" "dsprfs_" %%DSPRFS %DSPRFS) + ("DSPSV" "dspsv_" %%DSPSV %DSPSV) + ("DSPSVX" "dspsvx_" %%DSPSVX %DSPSVX) + ("DSPTRD" "dsptrd_" %%DSPTRD %DSPTRD) + ("DSPTRF" "dsptrf_" %%DSPTRF %DSPTRF) + ("DSPTRI" "dsptri_" %%DSPTRI %DSPTRI) + ("DSPTRS" "dsptrs_" %%DSPTRS %DSPTRS) + ("DSTEBZ" "dstebz_" %%DSTEBZ %DSTEBZ) + ("DSTEDC" "dstedc_" %%DSTEDC %DSTEDC) + ("DSTEGR" "dstegr_" %%DSTEGR %DSTEGR) + ("DSTEIN" "dstein_" %%DSTEIN %DSTEIN) + ("DSTEMR" "dstemr_" %%DSTEMR %DSTEMR) + ("DSTEQR" "dsteqr_" %%DSTEQR %DSTEQR) + ("DSTERF" "dsterf_" %%DSTERF %DSTERF) + ("DSTEV" "dstev_" %%DSTEV %DSTEV) + ("DSTEVD" "dstevd_" %%DSTEVD %DSTEVD) + ("DSTEVR" "dstevr_" %%DSTEVR %DSTEVR) + ("DSTEVX" "dstevx_" %%DSTEVX %DSTEVX) + ("DSYCON" "dsycon_" %%DSYCON %DSYCON) + ("DSYCON_3" "dsycon_3_" %%DSYCON_3 %DSYCON_3) + ("DSYCON_ROOK" "dsycon_rook_" %%DSYCON_ROOK %DSYCON_ROOK) + ("DSYCONV" "dsyconv_" %%DSYCONV %DSYCONV) + ("DSYCONVF" "dsyconvf_" %%DSYCONVF %DSYCONVF) + ("DSYCONVF_ROOK" "dsyconvf_rook_" %%DSYCONVF_ROOK + %DSYCONVF_ROOK) + ("DSYEQUB" "dsyequb_" %%DSYEQUB %DSYEQUB) + ("DSYEV" "dsyev_" %%DSYEV %DSYEV) + ("DSYEV_2STAGE" "dsyev_2stage_" %%DSYEV_2STAGE + %DSYEV_2STAGE) + ("DSYEVD" "dsyevd_" %%DSYEVD %DSYEVD) + ("DSYEVD_2STAGE" "dsyevd_2stage_" %%DSYEVD_2STAGE + %DSYEVD_2STAGE) + ("DSYEVR" "dsyevr_" %%DSYEVR %DSYEVR) + ("DSYEVR_2STAGE" "dsyevr_2stage_" %%DSYEVR_2STAGE + %DSYEVR_2STAGE) + ("DSYEVX" "dsyevx_" %%DSYEVX %DSYEVX) + ("DSYEVX_2STAGE" "dsyevx_2stage_" %%DSYEVX_2STAGE + %DSYEVX_2STAGE) + ("DSYGS2" "dsygs2_" %%DSYGS2 %DSYGS2) + ("DSYGST" "dsygst_" %%DSYGST %DSYGST) + ("DSYGV" "dsygv_" %%DSYGV %DSYGV) + ("DSYGV_2STAGE" "dsygv_2stage_" %%DSYGV_2STAGE + %DSYGV_2STAGE) + ("DSYGVD" "dsygvd_" %%DSYGVD %DSYGVD) + ("DSYGVX" "dsygvx_" %%DSYGVX %DSYGVX) + ("DSYRFS" "dsyrfs_" %%DSYRFS %DSYRFS) + ("DSYRFSX" "dsyrfsx_" %%DSYRFSX %DSYRFSX) + ("DSYSV" "dsysv_" %%DSYSV %DSYSV) + ("DSYSV_AA" "dsysv_aa_" %%DSYSV_AA %DSYSV_AA) + ("DSYSV_AA_2STAGE" "dsysv_aa_2stage_" %%DSYSV_AA_2STAGE + %DSYSV_AA_2STAGE) + ("DSYSV_RK" "dsysv_rk_" %%DSYSV_RK %DSYSV_RK) + ("DSYSV_ROOK" "dsysv_rook_" %%DSYSV_ROOK %DSYSV_ROOK) + ("DSYSVX" "dsysvx_" %%DSYSVX %DSYSVX) + ("DSYSVXX" "dsysvxx_" %%DSYSVXX %DSYSVXX) + ("DSYSWAPR" "dsyswapr_" %%DSYSWAPR %DSYSWAPR) + ("DSYTD2" "dsytd2_" %%DSYTD2 %DSYTD2) + ("DSYTF2" "dsytf2_" %%DSYTF2 %DSYTF2) + ("DSYTF2_RK" "dsytf2_rk_" %%DSYTF2_RK %DSYTF2_RK) + ("DSYTF2_ROOK" "dsytf2_rook_" %%DSYTF2_ROOK %DSYTF2_ROOK) + ("DSYTRD" "dsytrd_" %%DSYTRD %DSYTRD) + ("DSYTRD_2STAGE" "dsytrd_2stage_" %%DSYTRD_2STAGE + %DSYTRD_2STAGE) + ("DSYTRD_SY2SB" "dsytrd_sy2sb_" %%DSYTRD_SY2SB + %DSYTRD_SY2SB) + ("DSYTRF" "dsytrf_" %%DSYTRF %DSYTRF) + ("DSYTRF_AA" "dsytrf_aa_" %%DSYTRF_AA %DSYTRF_AA) + ("DSYTRF_AA_2STAGE" "dsytrf_aa_2stage_" + %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE) + ("DSYTRF_RK" "dsytrf_rk_" %%DSYTRF_RK %DSYTRF_RK) + ("DSYTRF_ROOK" "dsytrf_rook_" %%DSYTRF_ROOK %DSYTRF_ROOK) + ("DSYTRI" "dsytri_" %%DSYTRI %DSYTRI) + ("DSYTRI2" "dsytri2_" %%DSYTRI2 %DSYTRI2) + ("DSYTRI2X" "dsytri2x_" %%DSYTRI2X %DSYTRI2X) + ("DSYTRI_3" "dsytri_3_" %%DSYTRI_3 %DSYTRI_3) + ("DSYTRI_3X" "dsytri_3x_" %%DSYTRI_3X %DSYTRI_3X) + ("DSYTRI_ROOK" "dsytri_rook_" %%DSYTRI_ROOK %DSYTRI_ROOK) + ("DSYTRS" "dsytrs_" %%DSYTRS %DSYTRS) + ("DSYTRS2" "dsytrs2_" %%DSYTRS2 %DSYTRS2) + ("DSYTRS_3" "dsytrs_3_" %%DSYTRS_3 %DSYTRS_3) + ("DSYTRS_AA" "dsytrs_aa_" %%DSYTRS_AA %DSYTRS_AA) + ("DSYTRS_AA_2STAGE" "dsytrs_aa_2stage_" + %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE) + ("DSYTRS_ROOK" "dsytrs_rook_" %%DSYTRS_ROOK %DSYTRS_ROOK) + ("DTBCON" "dtbcon_" %%DTBCON %DTBCON) + ("DTBRFS" "dtbrfs_" %%DTBRFS %DTBRFS) + ("DTBTRS" "dtbtrs_" %%DTBTRS %DTBTRS) + ("DTFSM" "dtfsm_" %%DTFSM %DTFSM) + ("DTFTRI" "dtftri_" %%DTFTRI %DTFTRI) + ("DTFTTP" "dtfttp_" %%DTFTTP %DTFTTP) + ("DTFTTR" "dtfttr_" %%DTFTTR %DTFTTR) + ("DTGEVC" "dtgevc_" %%DTGEVC %DTGEVC) + ("DTGEX2" "dtgex2_" %%DTGEX2 %DTGEX2) + ("DTGEXC" "dtgexc_" %%DTGEXC %DTGEXC) + ("DTGSEN" "dtgsen_" %%DTGSEN %DTGSEN) + ("DTGSJA" "dtgsja_" %%DTGSJA %DTGSJA) + ("DTGSNA" "dtgsna_" %%DTGSNA %DTGSNA) + ("DTGSY2" "dtgsy2_" %%DTGSY2 %DTGSY2) + ("DTGSYL" "dtgsyl_" %%DTGSYL %DTGSYL) + ("DTPCON" "dtpcon_" %%DTPCON %DTPCON) + ("DTPLQT" "dtplqt_" %%DTPLQT %DTPLQT) + ("DTPLQT2" "dtplqt2_" %%DTPLQT2 %DTPLQT2) + ("DTPMLQT" "dtpmlqt_" %%DTPMLQT %DTPMLQT) + ("DTPMQRT" "dtpmqrt_" %%DTPMQRT %DTPMQRT) + ("DTPQRT" "dtpqrt_" %%DTPQRT %DTPQRT) + ("DTPQRT2" "dtpqrt2_" %%DTPQRT2 %DTPQRT2) + ("DTPRFB" "dtprfb_" %%DTPRFB %DTPRFB) + ("DTPRFS" "dtprfs_" %%DTPRFS %DTPRFS) + ("DTPTRI" "dtptri_" %%DTPTRI %DTPTRI) + ("DTPTRS" "dtptrs_" %%DTPTRS %DTPTRS) + ("DTPTTF" "dtpttf_" %%DTPTTF %DTPTTF) + ("DTPTTR" "dtpttr_" %%DTPTTR %DTPTTR) + ("DTRCON" "dtrcon_" %%DTRCON %DTRCON) + ("DTREVC" "dtrevc_" %%DTREVC %DTREVC) + ("DTREVC3" "dtrevc3_" %%DTREVC3 %DTREVC3) + ("DTREXC" "dtrexc_" %%DTREXC %DTREXC) + ("DTRRFS" "dtrrfs_" %%DTRRFS %DTRRFS) + ("DTRSEN" "dtrsen_" %%DTRSEN %DTRSEN) + ("DTRSNA" "dtrsna_" %%DTRSNA %DTRSNA) + ("DTRSYL" "dtrsyl_" %%DTRSYL %DTRSYL) + ("DTRTI2" "dtrti2_" %%DTRTI2 %DTRTI2) + ("DTRTRI" "dtrtri_" %%DTRTRI %DTRTRI) + ("DTRTRS" "dtrtrs_" %%DTRTRS %DTRTRS) + ("DTRTTF" "dtrttf_" %%DTRTTF %DTRTTF) + ("DTRTTP" "dtrttp_" %%DTRTTP %DTRTTP) + ("DTZRZF" "dtzrzf_" %%DTZRZF %DTZRZF) + ("DZSUM1" "dzsum1_" %%DZSUM1 %DZSUM1) + ("ICMAX1" "icmax1_" %%ICMAX1 %ICMAX1) + ("IEEECK" "ieeeck_" %%IEEECK %IEEECK) + ("ILACLC" "ilaclc_" %%ILACLC %ILACLC) + ("ILACLR" "ilaclr_" %%ILACLR %ILACLR) + ("ILADIAG" "iladiag_" %%ILADIAG %ILADIAG) + ("ILADLC" "iladlc_" %%ILADLC %ILADLC) + ("ILADLR" "iladlr_" %%ILADLR %ILADLR) + ("ILAENV" "ilaenv_" %%ILAENV %ILAENV) + ("ILAENV2STAGE" "ilaenv2stage_" %%ILAENV2STAGE + %ILAENV2STAGE) + ("ILAPREC" "ilaprec_" %%ILAPREC %ILAPREC) + ("ILASLC" "ilaslc_" %%ILASLC %ILASLC))) (COMMON-LISP:EXPORT '(%DLASWP %DLASY2 %DLASYF %DLASYF_AA %DLASYF_RK %DLASYF_ROOK %DLAT2S %DLATBS diff --git a/src/bindings/lapack04-cffi.lisp b/src/bindings/lapack04-cffi.lisp index 330f640c..7d3bdd8a 100644 --- a/src/bindings/lapack04-cffi.lisp +++ b/src/bindings/lapack04-cffi.lisp @@ -13629,265 +13629,263 @@ %%SLASD2 %SLASD2 %%SLASD3 %SLASD3 %%SLASD4 %SLASD4 %%SLASD5 %SLASD5 %%SLASD6 %SLASD6 %%SLASD7 %SLASD7 %%SLASD8 %SLASD8)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - ':MAGICL) - '(("ILASLR" "ilaslr_" %%ILASLR %ILASLR) - ("ILATRANS" "ilatrans_" %%ILATRANS %ILATRANS) - ("ILAUPLO" "ilauplo_" %%ILAUPLO %ILAUPLO) - ("ILAZLC" "ilazlc_" %%ILAZLC %ILAZLC) - ("ILAZLR" "ilazlr_" %%ILAZLR %ILAZLR) - ("IPARMQ" "iparmq_" %%IPARMQ %IPARMQ) - ("IZMAX1" "izmax1_" %%IZMAX1 %IZMAX1) - ("LSAMEN" "lsamen_" %%LSAMEN %LSAMEN) - ("SBBCSD" "sbbcsd_" %%SBBCSD %SBBCSD) - ("SBDSDC" "sbdsdc_" %%SBDSDC %SBDSDC) - ("SBDSQR" "sbdsqr_" %%SBDSQR %SBDSQR) - ("SBDSVDX" "sbdsvdx_" %%SBDSVDX %SBDSVDX) - ("SCOMBSSQ" "scombssq_" %%SCOMBSSQ %SCOMBSSQ) - ("SCSUM1" "scsum1_" %%SCSUM1 %SCSUM1) - ("SDISNA" "sdisna_" %%SDISNA %SDISNA) - ("SGBBRD" "sgbbrd_" %%SGBBRD %SGBBRD) - ("SGBCON" "sgbcon_" %%SGBCON %SGBCON) - ("SGBEQU" "sgbequ_" %%SGBEQU %SGBEQU) - ("SGBEQUB" "sgbequb_" %%SGBEQUB %SGBEQUB) - ("SGBRFS" "sgbrfs_" %%SGBRFS %SGBRFS) - ("SGBRFSX" "sgbrfsx_" %%SGBRFSX %SGBRFSX) - ("SGBSV" "sgbsv_" %%SGBSV %SGBSV) - ("SGBSVX" "sgbsvx_" %%SGBSVX %SGBSVX) - ("SGBSVXX" "sgbsvxx_" %%SGBSVXX %SGBSVXX) - ("SGBTF2" "sgbtf2_" %%SGBTF2 %SGBTF2) - ("SGBTRF" "sgbtrf_" %%SGBTRF %SGBTRF) - ("SGBTRS" "sgbtrs_" %%SGBTRS %SGBTRS) - ("SGEBAK" "sgebak_" %%SGEBAK %SGEBAK) - ("SGEBAL" "sgebal_" %%SGEBAL %SGEBAL) - ("SGEBD2" "sgebd2_" %%SGEBD2 %SGEBD2) - ("SGEBRD" "sgebrd_" %%SGEBRD %SGEBRD) - ("SGECON" "sgecon_" %%SGECON %SGECON) - ("SGEEQU" "sgeequ_" %%SGEEQU %SGEEQU) - ("SGEEQUB" "sgeequb_" %%SGEEQUB %SGEEQUB) - ("SGEES" "sgees_" %%SGEES %SGEES) - ("SGEESX" "sgeesx_" %%SGEESX %SGEESX) - ("SGEEV" "sgeev_" %%SGEEV %SGEEV) - ("SGEEVX" "sgeevx_" %%SGEEVX %SGEEVX) - ("SGEHD2" "sgehd2_" %%SGEHD2 %SGEHD2) - ("SGEHRD" "sgehrd_" %%SGEHRD %SGEHRD) - ("SGEJSV" "sgejsv_" %%SGEJSV %SGEJSV) - ("SGELQ" "sgelq_" %%SGELQ %SGELQ) - ("SGELQ2" "sgelq2_" %%SGELQ2 %SGELQ2) - ("SGELQF" "sgelqf_" %%SGELQF %SGELQF) - ("SGELQT" "sgelqt_" %%SGELQT %SGELQT) - ("SGELQT3" "sgelqt3_" %%SGELQT3 %SGELQT3) - ("SGELS" "sgels_" %%SGELS %SGELS) - ("SGELSD" "sgelsd_" %%SGELSD %SGELSD) - ("SGELSS" "sgelss_" %%SGELSS %SGELSS) - ("SGELSY" "sgelsy_" %%SGELSY %SGELSY) - ("SGEMLQ" "sgemlq_" %%SGEMLQ %SGEMLQ) - ("SGEMLQT" "sgemlqt_" %%SGEMLQT %SGEMLQT) - ("SGEMQR" "sgemqr_" %%SGEMQR %SGEMQR) - ("SGEMQRT" "sgemqrt_" %%SGEMQRT %SGEMQRT) - ("SGEQL2" "sgeql2_" %%SGEQL2 %SGEQL2) - ("SGEQLF" "sgeqlf_" %%SGEQLF %SGEQLF) - ("SGEQP3" "sgeqp3_" %%SGEQP3 %SGEQP3) - ("SGEQR" "sgeqr_" %%SGEQR %SGEQR) - ("SGEQR2" "sgeqr2_" %%SGEQR2 %SGEQR2) - ("SGEQR2P" "sgeqr2p_" %%SGEQR2P %SGEQR2P) - ("SGEQRF" "sgeqrf_" %%SGEQRF %SGEQRF) - ("SGEQRFP" "sgeqrfp_" %%SGEQRFP %SGEQRFP) - ("SGEQRT" "sgeqrt_" %%SGEQRT %SGEQRT) - ("SGEQRT2" "sgeqrt2_" %%SGEQRT2 %SGEQRT2) - ("SGEQRT3" "sgeqrt3_" %%SGEQRT3 %SGEQRT3) - ("SGERFS" "sgerfs_" %%SGERFS %SGERFS) - ("SGERFSX" "sgerfsx_" %%SGERFSX %SGERFSX) - ("SGERQ2" "sgerq2_" %%SGERQ2 %SGERQ2) - ("SGERQF" "sgerqf_" %%SGERQF %SGERQF) - ("SGESC2" "sgesc2_" %%SGESC2 %SGESC2) - ("SGESDD" "sgesdd_" %%SGESDD %SGESDD) - ("SGESV" "sgesv_" %%SGESV %SGESV) - ("SGESVD" "sgesvd_" %%SGESVD %SGESVD) - ("SGESVDQ" "sgesvdq_" %%SGESVDQ %SGESVDQ) - ("SGESVDX" "sgesvdx_" %%SGESVDX %SGESVDX) - ("SGESVJ" "sgesvj_" %%SGESVJ %SGESVJ) - ("SGESVX" "sgesvx_" %%SGESVX %SGESVX) - ("SGESVXX" "sgesvxx_" %%SGESVXX %SGESVXX) - ("SGETC2" "sgetc2_" %%SGETC2 %SGETC2) - ("SGETF2" "sgetf2_" %%SGETF2 %SGETF2) - ("SGETRF" "sgetrf_" %%SGETRF %SGETRF) - ("SGETRF2" "sgetrf2_" %%SGETRF2 %SGETRF2) - ("SGETRI" "sgetri_" %%SGETRI %SGETRI) - ("SGETRS" "sgetrs_" %%SGETRS %SGETRS) - ("SGETSLS" "sgetsls_" %%SGETSLS %SGETSLS) - ("SGGBAK" "sggbak_" %%SGGBAK %SGGBAK) - ("SGGBAL" "sggbal_" %%SGGBAL %SGGBAL) - ("SGGES" "sgges_" %%SGGES %SGGES) - ("SGGES3" "sgges3_" %%SGGES3 %SGGES3) - ("SGGESX" "sggesx_" %%SGGESX %SGGESX) - ("SGGEV" "sggev_" %%SGGEV %SGGEV) - ("SGGEV3" "sggev3_" %%SGGEV3 %SGGEV3) - ("SGGEVX" "sggevx_" %%SGGEVX %SGGEVX) - ("SGGGLM" "sggglm_" %%SGGGLM %SGGGLM) - ("SGGHD3" "sgghd3_" %%SGGHD3 %SGGHD3) - ("SGGHRD" "sgghrd_" %%SGGHRD %SGGHRD) - ("SGGLSE" "sgglse_" %%SGGLSE %SGGLSE) - ("SGGQRF" "sggqrf_" %%SGGQRF %SGGQRF) - ("SGGRQF" "sggrqf_" %%SGGRQF %SGGRQF) - ("SGGSVD3" "sggsvd3_" %%SGGSVD3 %SGGSVD3) - ("SGGSVP3" "sggsvp3_" %%SGGSVP3 %SGGSVP3) - ("SGSVJ0" "sgsvj0_" %%SGSVJ0 %SGSVJ0) - ("SGSVJ1" "sgsvj1_" %%SGSVJ1 %SGSVJ1) - ("SGTCON" "sgtcon_" %%SGTCON %SGTCON) - ("SGTRFS" "sgtrfs_" %%SGTRFS %SGTRFS) - ("SGTSV" "sgtsv_" %%SGTSV %SGTSV) - ("SGTSVX" "sgtsvx_" %%SGTSVX %SGTSVX) - ("SGTTRF" "sgttrf_" %%SGTTRF %SGTTRF) - ("SGTTRS" "sgttrs_" %%SGTTRS %SGTTRS) - ("SGTTS2" "sgtts2_" %%SGTTS2 %SGTTS2) - ("SHGEQZ" "shgeqz_" %%SHGEQZ %SHGEQZ) - ("SHSEIN" "shsein_" %%SHSEIN %SHSEIN) - ("SHSEQR" "shseqr_" %%SHSEQR %SHSEQR) - ("SISNAN" "sisnan_" %%SISNAN %SISNAN) - ("SLA_GBAMV" "sla_gbamv_" %%SLA_GBAMV %SLA_GBAMV) - ("SLA_GBRCOND" "sla_gbrcond_" %%SLA_GBRCOND %SLA_GBRCOND) - ("SLA_GBRFSX_EXTENDED" "sla_gbrfsx_extended_" - %%SLA_GBRFSX_EXTENDED %SLA_GBRFSX_EXTENDED) - ("SLA_GBRPVGRW" "sla_gbrpvgrw_" %%SLA_GBRPVGRW - %SLA_GBRPVGRW) - ("SLA_GEAMV" "sla_geamv_" %%SLA_GEAMV %SLA_GEAMV) - ("SLA_GERCOND" "sla_gercond_" %%SLA_GERCOND %SLA_GERCOND) - ("SLA_GERFSX_EXTENDED" "sla_gerfsx_extended_" - %%SLA_GERFSX_EXTENDED %SLA_GERFSX_EXTENDED) - ("SLA_GERPVGRW" "sla_gerpvgrw_" %%SLA_GERPVGRW - %SLA_GERPVGRW) - ("SLA_LIN_BERR" "sla_lin_berr_" %%SLA_LIN_BERR - %SLA_LIN_BERR) - ("SLA_PORCOND" "sla_porcond_" %%SLA_PORCOND %SLA_PORCOND) - ("SLA_PORFSX_EXTENDED" "sla_porfsx_extended_" - %%SLA_PORFSX_EXTENDED %SLA_PORFSX_EXTENDED) - ("SLA_PORPVGRW" "sla_porpvgrw_" %%SLA_PORPVGRW - %SLA_PORPVGRW) - ("SLA_SYAMV" "sla_syamv_" %%SLA_SYAMV %SLA_SYAMV) - ("SLA_SYRCOND" "sla_syrcond_" %%SLA_SYRCOND %SLA_SYRCOND) - ("SLA_SYRFSX_EXTENDED" "sla_syrfsx_extended_" - %%SLA_SYRFSX_EXTENDED %SLA_SYRFSX_EXTENDED) - ("SLA_SYRPVGRW" "sla_syrpvgrw_" %%SLA_SYRPVGRW - %SLA_SYRPVGRW) - ("SLA_WWADDW" "sla_wwaddw_" %%SLA_WWADDW %SLA_WWADDW) - ("SLABAD" "slabad_" %%SLABAD %SLABAD) - ("SLABRD" "slabrd_" %%SLABRD %SLABRD) - ("SLACN2" "slacn2_" %%SLACN2 %SLACN2) - ("SLACON" "slacon_" %%SLACON %SLACON) - ("SLACPY" "slacpy_" %%SLACPY %SLACPY) - ("SLADIV" "sladiv_" %%SLADIV %SLADIV) - ("SLAE2" "slae2_" %%SLAE2 %SLAE2) - ("SLAEBZ" "slaebz_" %%SLAEBZ %SLAEBZ) - ("SLAED0" "slaed0_" %%SLAED0 %SLAED0) - ("SLAED1" "slaed1_" %%SLAED1 %SLAED1) - ("SLAED2" "slaed2_" %%SLAED2 %SLAED2) - ("SLAED3" "slaed3_" %%SLAED3 %SLAED3) - ("SLAED4" "slaed4_" %%SLAED4 %SLAED4) - ("SLAED5" "slaed5_" %%SLAED5 %SLAED5) - ("SLAED6" "slaed6_" %%SLAED6 %SLAED6) - ("SLAED7" "slaed7_" %%SLAED7 %SLAED7) - ("SLAED8" "slaed8_" %%SLAED8 %SLAED8) - ("SLAED9" "slaed9_" %%SLAED9 %SLAED9) - ("SLAEDA" "slaeda_" %%SLAEDA %SLAEDA) - ("SLAEIN" "slaein_" %%SLAEIN %SLAEIN) - ("SLAEV2" "slaev2_" %%SLAEV2 %SLAEV2) - ("SLAEXC" "slaexc_" %%SLAEXC %SLAEXC) - ("SLAG2" "slag2_" %%SLAG2 %SLAG2) - ("SLAG2D" "slag2d_" %%SLAG2D %SLAG2D) - ("SLAGS2" "slags2_" %%SLAGS2 %SLAGS2) - ("SLAGTF" "slagtf_" %%SLAGTF %SLAGTF) - ("SLAGTM" "slagtm_" %%SLAGTM %SLAGTM) - ("SLAGTS" "slagts_" %%SLAGTS %SLAGTS) - ("SLAGV2" "slagv2_" %%SLAGV2 %SLAGV2) - ("SLAHQR" "slahqr_" %%SLAHQR %SLAHQR) - ("SLAHR2" "slahr2_" %%SLAHR2 %SLAHR2) - ("SLAIC1" "slaic1_" %%SLAIC1 %SLAIC1) - ("SLAISNAN" "slaisnan_" %%SLAISNAN %SLAISNAN) - ("SLALN2" "slaln2_" %%SLALN2 %SLALN2) - ("SLALS0" "slals0_" %%SLALS0 %SLALS0) - ("SLALSA" "slalsa_" %%SLALSA %SLALSA) - ("SLALSD" "slalsd_" %%SLALSD %SLALSD) - ("SLAMRG" "slamrg_" %%SLAMRG %SLAMRG) - ("SLAMSWLQ" "slamswlq_" %%SLAMSWLQ %SLAMSWLQ) - ("SLAMTSQR" "slamtsqr_" %%SLAMTSQR %SLAMTSQR) - ("SLANEG" "slaneg_" %%SLANEG %SLANEG) - ("SLANGB" "slangb_" %%SLANGB %SLANGB) - ("SLANGE" "slange_" %%SLANGE %SLANGE) - ("SLANGT" "slangt_" %%SLANGT %SLANGT) - ("SLANHS" "slanhs_" %%SLANHS %SLANHS) - ("SLANSB" "slansb_" %%SLANSB %SLANSB) - ("SLANSF" "slansf_" %%SLANSF %SLANSF) - ("SLANSP" "slansp_" %%SLANSP %SLANSP) - ("SLANST" "slanst_" %%SLANST %SLANST) - ("SLANSY" "slansy_" %%SLANSY %SLANSY) - ("SLANTB" "slantb_" %%SLANTB %SLANTB) - ("SLANTP" "slantp_" %%SLANTP %SLANTP) - ("SLANTR" "slantr_" %%SLANTR %SLANTR) - ("SLANV2" "slanv2_" %%SLANV2 %SLANV2) - ("SLAPLL" "slapll_" %%SLAPLL %SLAPLL) - ("SLAPMR" "slapmr_" %%SLAPMR %SLAPMR) - ("SLAPMT" "slapmt_" %%SLAPMT %SLAPMT) - ("SLAPY2" "slapy2_" %%SLAPY2 %SLAPY2) - ("SLAPY3" "slapy3_" %%SLAPY3 %SLAPY3) - ("SLAQGB" "slaqgb_" %%SLAQGB %SLAQGB) - ("SLAQGE" "slaqge_" %%SLAQGE %SLAQGE) - ("SLAQP2" "slaqp2_" %%SLAQP2 %SLAQP2) - ("SLAQPS" "slaqps_" %%SLAQPS %SLAQPS) - ("SLAQR0" "slaqr0_" %%SLAQR0 %SLAQR0) - ("SLAQR1" "slaqr1_" %%SLAQR1 %SLAQR1) - ("SLAQR2" "slaqr2_" %%SLAQR2 %SLAQR2) - ("SLAQR3" "slaqr3_" %%SLAQR3 %SLAQR3) - ("SLAQR4" "slaqr4_" %%SLAQR4 %SLAQR4) - ("SLAQR5" "slaqr5_" %%SLAQR5 %SLAQR5) - ("SLAQSB" "slaqsb_" %%SLAQSB %SLAQSB) - ("SLAQSP" "slaqsp_" %%SLAQSP %SLAQSP) - ("SLAQSY" "slaqsy_" %%SLAQSY %SLAQSY) - ("SLAQTR" "slaqtr_" %%SLAQTR %SLAQTR) - ("SLAR1V" "slar1v_" %%SLAR1V %SLAR1V) - ("SLAR2V" "slar2v_" %%SLAR2V %SLAR2V) - ("SLARF" "slarf_" %%SLARF %SLARF) - ("SLARFB" "slarfb_" %%SLARFB %SLARFB) - ("SLARFG" "slarfg_" %%SLARFG %SLARFG) - ("SLARFGP" "slarfgp_" %%SLARFGP %SLARFGP) - ("SLARFT" "slarft_" %%SLARFT %SLARFT) - ("SLARFX" "slarfx_" %%SLARFX %SLARFX) - ("SLARFY" "slarfy_" %%SLARFY %SLARFY) - ("SLARGV" "slargv_" %%SLARGV %SLARGV) - ("SLARNV" "slarnv_" %%SLARNV %SLARNV) - ("SLARRA" "slarra_" %%SLARRA %SLARRA) - ("SLARRB" "slarrb_" %%SLARRB %SLARRB) - ("SLARRC" "slarrc_" %%SLARRC %SLARRC) - ("SLARRD" "slarrd_" %%SLARRD %SLARRD) - ("SLARRE" "slarre_" %%SLARRE %SLARRE) - ("SLARRF" "slarrf_" %%SLARRF %SLARRF) - ("SLARRJ" "slarrj_" %%SLARRJ %SLARRJ) - ("SLARRK" "slarrk_" %%SLARRK %SLARRK) - ("SLARRR" "slarrr_" %%SLARRR %SLARRR) - ("SLARRV" "slarrv_" %%SLARRV %SLARRV) - ("SLARSCL2" "slarscl2_" %%SLARSCL2 %SLARSCL2) - ("SLARTG" "slartg_" %%SLARTG %SLARTG) - ("SLARTGP" "slartgp_" %%SLARTGP %SLARTGP) - ("SLARTGS" "slartgs_" %%SLARTGS %SLARTGS) - ("SLARTV" "slartv_" %%SLARTV %SLARTV) - ("SLARUV" "slaruv_" %%SLARUV %SLARUV) - ("SLARZ" "slarz_" %%SLARZ %SLARZ) - ("SLARZB" "slarzb_" %%SLARZB %SLARZB) - ("SLARZT" "slarzt_" %%SLARZT %SLARZT) - ("SLAS2" "slas2_" %%SLAS2 %SLAS2) - ("SLASCL" "slascl_" %%SLASCL %SLASCL) - ("SLASCL2" "slascl2_" %%SLASCL2 %SLASCL2) - ("SLASD0" "slasd0_" %%SLASD0 %SLASD0) - ("SLASD1" "slasd1_" %%SLASD1 %SLASD1) - ("SLASD2" "slasd2_" %%SLASD2 %SLASD2) - ("SLASD3" "slasd3_" %%SLASD3 %SLASD3) - ("SLASD4" "slasd4_" %%SLASD4 %SLASD4) - ("SLASD5" "slasd5_" %%SLASD5 %SLASD5) - ("SLASD6" "slasd6_" %%SLASD6 %SLASD6) - ("SLASD7" "slasd7_" %%SLASD7 %SLASD7) - ("SLASD8" "slasd8_" %%SLASD8 %SLASD8))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK + '(("ILASLR" "ilaslr_" %%ILASLR %ILASLR) + ("ILATRANS" "ilatrans_" %%ILATRANS %ILATRANS) + ("ILAUPLO" "ilauplo_" %%ILAUPLO %ILAUPLO) + ("ILAZLC" "ilazlc_" %%ILAZLC %ILAZLC) + ("ILAZLR" "ilazlr_" %%ILAZLR %ILAZLR) + ("IPARMQ" "iparmq_" %%IPARMQ %IPARMQ) + ("IZMAX1" "izmax1_" %%IZMAX1 %IZMAX1) + ("LSAMEN" "lsamen_" %%LSAMEN %LSAMEN) + ("SBBCSD" "sbbcsd_" %%SBBCSD %SBBCSD) + ("SBDSDC" "sbdsdc_" %%SBDSDC %SBDSDC) + ("SBDSQR" "sbdsqr_" %%SBDSQR %SBDSQR) + ("SBDSVDX" "sbdsvdx_" %%SBDSVDX %SBDSVDX) + ("SCOMBSSQ" "scombssq_" %%SCOMBSSQ %SCOMBSSQ) + ("SCSUM1" "scsum1_" %%SCSUM1 %SCSUM1) + ("SDISNA" "sdisna_" %%SDISNA %SDISNA) + ("SGBBRD" "sgbbrd_" %%SGBBRD %SGBBRD) + ("SGBCON" "sgbcon_" %%SGBCON %SGBCON) + ("SGBEQU" "sgbequ_" %%SGBEQU %SGBEQU) + ("SGBEQUB" "sgbequb_" %%SGBEQUB %SGBEQUB) + ("SGBRFS" "sgbrfs_" %%SGBRFS %SGBRFS) + ("SGBRFSX" "sgbrfsx_" %%SGBRFSX %SGBRFSX) + ("SGBSV" "sgbsv_" %%SGBSV %SGBSV) + ("SGBSVX" "sgbsvx_" %%SGBSVX %SGBSVX) + ("SGBSVXX" "sgbsvxx_" %%SGBSVXX %SGBSVXX) + ("SGBTF2" "sgbtf2_" %%SGBTF2 %SGBTF2) + ("SGBTRF" "sgbtrf_" %%SGBTRF %SGBTRF) + ("SGBTRS" "sgbtrs_" %%SGBTRS %SGBTRS) + ("SGEBAK" "sgebak_" %%SGEBAK %SGEBAK) + ("SGEBAL" "sgebal_" %%SGEBAL %SGEBAL) + ("SGEBD2" "sgebd2_" %%SGEBD2 %SGEBD2) + ("SGEBRD" "sgebrd_" %%SGEBRD %SGEBRD) + ("SGECON" "sgecon_" %%SGECON %SGECON) + ("SGEEQU" "sgeequ_" %%SGEEQU %SGEEQU) + ("SGEEQUB" "sgeequb_" %%SGEEQUB %SGEEQUB) + ("SGEES" "sgees_" %%SGEES %SGEES) + ("SGEESX" "sgeesx_" %%SGEESX %SGEESX) + ("SGEEV" "sgeev_" %%SGEEV %SGEEV) + ("SGEEVX" "sgeevx_" %%SGEEVX %SGEEVX) + ("SGEHD2" "sgehd2_" %%SGEHD2 %SGEHD2) + ("SGEHRD" "sgehrd_" %%SGEHRD %SGEHRD) + ("SGEJSV" "sgejsv_" %%SGEJSV %SGEJSV) + ("SGELQ" "sgelq_" %%SGELQ %SGELQ) + ("SGELQ2" "sgelq2_" %%SGELQ2 %SGELQ2) + ("SGELQF" "sgelqf_" %%SGELQF %SGELQF) + ("SGELQT" "sgelqt_" %%SGELQT %SGELQT) + ("SGELQT3" "sgelqt3_" %%SGELQT3 %SGELQT3) + ("SGELS" "sgels_" %%SGELS %SGELS) + ("SGELSD" "sgelsd_" %%SGELSD %SGELSD) + ("SGELSS" "sgelss_" %%SGELSS %SGELSS) + ("SGELSY" "sgelsy_" %%SGELSY %SGELSY) + ("SGEMLQ" "sgemlq_" %%SGEMLQ %SGEMLQ) + ("SGEMLQT" "sgemlqt_" %%SGEMLQT %SGEMLQT) + ("SGEMQR" "sgemqr_" %%SGEMQR %SGEMQR) + ("SGEMQRT" "sgemqrt_" %%SGEMQRT %SGEMQRT) + ("SGEQL2" "sgeql2_" %%SGEQL2 %SGEQL2) + ("SGEQLF" "sgeqlf_" %%SGEQLF %SGEQLF) + ("SGEQP3" "sgeqp3_" %%SGEQP3 %SGEQP3) + ("SGEQR" "sgeqr_" %%SGEQR %SGEQR) + ("SGEQR2" "sgeqr2_" %%SGEQR2 %SGEQR2) + ("SGEQR2P" "sgeqr2p_" %%SGEQR2P %SGEQR2P) + ("SGEQRF" "sgeqrf_" %%SGEQRF %SGEQRF) + ("SGEQRFP" "sgeqrfp_" %%SGEQRFP %SGEQRFP) + ("SGEQRT" "sgeqrt_" %%SGEQRT %SGEQRT) + ("SGEQRT2" "sgeqrt2_" %%SGEQRT2 %SGEQRT2) + ("SGEQRT3" "sgeqrt3_" %%SGEQRT3 %SGEQRT3) + ("SGERFS" "sgerfs_" %%SGERFS %SGERFS) + ("SGERFSX" "sgerfsx_" %%SGERFSX %SGERFSX) + ("SGERQ2" "sgerq2_" %%SGERQ2 %SGERQ2) + ("SGERQF" "sgerqf_" %%SGERQF %SGERQF) + ("SGESC2" "sgesc2_" %%SGESC2 %SGESC2) + ("SGESDD" "sgesdd_" %%SGESDD %SGESDD) + ("SGESV" "sgesv_" %%SGESV %SGESV) + ("SGESVD" "sgesvd_" %%SGESVD %SGESVD) + ("SGESVDQ" "sgesvdq_" %%SGESVDQ %SGESVDQ) + ("SGESVDX" "sgesvdx_" %%SGESVDX %SGESVDX) + ("SGESVJ" "sgesvj_" %%SGESVJ %SGESVJ) + ("SGESVX" "sgesvx_" %%SGESVX %SGESVX) + ("SGESVXX" "sgesvxx_" %%SGESVXX %SGESVXX) + ("SGETC2" "sgetc2_" %%SGETC2 %SGETC2) + ("SGETF2" "sgetf2_" %%SGETF2 %SGETF2) + ("SGETRF" "sgetrf_" %%SGETRF %SGETRF) + ("SGETRF2" "sgetrf2_" %%SGETRF2 %SGETRF2) + ("SGETRI" "sgetri_" %%SGETRI %SGETRI) + ("SGETRS" "sgetrs_" %%SGETRS %SGETRS) + ("SGETSLS" "sgetsls_" %%SGETSLS %SGETSLS) + ("SGGBAK" "sggbak_" %%SGGBAK %SGGBAK) + ("SGGBAL" "sggbal_" %%SGGBAL %SGGBAL) + ("SGGES" "sgges_" %%SGGES %SGGES) + ("SGGES3" "sgges3_" %%SGGES3 %SGGES3) + ("SGGESX" "sggesx_" %%SGGESX %SGGESX) + ("SGGEV" "sggev_" %%SGGEV %SGGEV) + ("SGGEV3" "sggev3_" %%SGGEV3 %SGGEV3) + ("SGGEVX" "sggevx_" %%SGGEVX %SGGEVX) + ("SGGGLM" "sggglm_" %%SGGGLM %SGGGLM) + ("SGGHD3" "sgghd3_" %%SGGHD3 %SGGHD3) + ("SGGHRD" "sgghrd_" %%SGGHRD %SGGHRD) + ("SGGLSE" "sgglse_" %%SGGLSE %SGGLSE) + ("SGGQRF" "sggqrf_" %%SGGQRF %SGGQRF) + ("SGGRQF" "sggrqf_" %%SGGRQF %SGGRQF) + ("SGGSVD3" "sggsvd3_" %%SGGSVD3 %SGGSVD3) + ("SGGSVP3" "sggsvp3_" %%SGGSVP3 %SGGSVP3) + ("SGSVJ0" "sgsvj0_" %%SGSVJ0 %SGSVJ0) + ("SGSVJ1" "sgsvj1_" %%SGSVJ1 %SGSVJ1) + ("SGTCON" "sgtcon_" %%SGTCON %SGTCON) + ("SGTRFS" "sgtrfs_" %%SGTRFS %SGTRFS) + ("SGTSV" "sgtsv_" %%SGTSV %SGTSV) + ("SGTSVX" "sgtsvx_" %%SGTSVX %SGTSVX) + ("SGTTRF" "sgttrf_" %%SGTTRF %SGTTRF) + ("SGTTRS" "sgttrs_" %%SGTTRS %SGTTRS) + ("SGTTS2" "sgtts2_" %%SGTTS2 %SGTTS2) + ("SHGEQZ" "shgeqz_" %%SHGEQZ %SHGEQZ) + ("SHSEIN" "shsein_" %%SHSEIN %SHSEIN) + ("SHSEQR" "shseqr_" %%SHSEQR %SHSEQR) + ("SISNAN" "sisnan_" %%SISNAN %SISNAN) + ("SLA_GBAMV" "sla_gbamv_" %%SLA_GBAMV %SLA_GBAMV) + ("SLA_GBRCOND" "sla_gbrcond_" %%SLA_GBRCOND %SLA_GBRCOND) + ("SLA_GBRFSX_EXTENDED" "sla_gbrfsx_extended_" + %%SLA_GBRFSX_EXTENDED %SLA_GBRFSX_EXTENDED) + ("SLA_GBRPVGRW" "sla_gbrpvgrw_" %%SLA_GBRPVGRW + %SLA_GBRPVGRW) + ("SLA_GEAMV" "sla_geamv_" %%SLA_GEAMV %SLA_GEAMV) + ("SLA_GERCOND" "sla_gercond_" %%SLA_GERCOND %SLA_GERCOND) + ("SLA_GERFSX_EXTENDED" "sla_gerfsx_extended_" + %%SLA_GERFSX_EXTENDED %SLA_GERFSX_EXTENDED) + ("SLA_GERPVGRW" "sla_gerpvgrw_" %%SLA_GERPVGRW + %SLA_GERPVGRW) + ("SLA_LIN_BERR" "sla_lin_berr_" %%SLA_LIN_BERR + %SLA_LIN_BERR) + ("SLA_PORCOND" "sla_porcond_" %%SLA_PORCOND %SLA_PORCOND) + ("SLA_PORFSX_EXTENDED" "sla_porfsx_extended_" + %%SLA_PORFSX_EXTENDED %SLA_PORFSX_EXTENDED) + ("SLA_PORPVGRW" "sla_porpvgrw_" %%SLA_PORPVGRW + %SLA_PORPVGRW) + ("SLA_SYAMV" "sla_syamv_" %%SLA_SYAMV %SLA_SYAMV) + ("SLA_SYRCOND" "sla_syrcond_" %%SLA_SYRCOND %SLA_SYRCOND) + ("SLA_SYRFSX_EXTENDED" "sla_syrfsx_extended_" + %%SLA_SYRFSX_EXTENDED %SLA_SYRFSX_EXTENDED) + ("SLA_SYRPVGRW" "sla_syrpvgrw_" %%SLA_SYRPVGRW + %SLA_SYRPVGRW) + ("SLA_WWADDW" "sla_wwaddw_" %%SLA_WWADDW %SLA_WWADDW) + ("SLABAD" "slabad_" %%SLABAD %SLABAD) + ("SLABRD" "slabrd_" %%SLABRD %SLABRD) + ("SLACN2" "slacn2_" %%SLACN2 %SLACN2) + ("SLACON" "slacon_" %%SLACON %SLACON) + ("SLACPY" "slacpy_" %%SLACPY %SLACPY) + ("SLADIV" "sladiv_" %%SLADIV %SLADIV) + ("SLAE2" "slae2_" %%SLAE2 %SLAE2) + ("SLAEBZ" "slaebz_" %%SLAEBZ %SLAEBZ) + ("SLAED0" "slaed0_" %%SLAED0 %SLAED0) + ("SLAED1" "slaed1_" %%SLAED1 %SLAED1) + ("SLAED2" "slaed2_" %%SLAED2 %SLAED2) + ("SLAED3" "slaed3_" %%SLAED3 %SLAED3) + ("SLAED4" "slaed4_" %%SLAED4 %SLAED4) + ("SLAED5" "slaed5_" %%SLAED5 %SLAED5) + ("SLAED6" "slaed6_" %%SLAED6 %SLAED6) + ("SLAED7" "slaed7_" %%SLAED7 %SLAED7) + ("SLAED8" "slaed8_" %%SLAED8 %SLAED8) + ("SLAED9" "slaed9_" %%SLAED9 %SLAED9) + ("SLAEDA" "slaeda_" %%SLAEDA %SLAEDA) + ("SLAEIN" "slaein_" %%SLAEIN %SLAEIN) + ("SLAEV2" "slaev2_" %%SLAEV2 %SLAEV2) + ("SLAEXC" "slaexc_" %%SLAEXC %SLAEXC) + ("SLAG2" "slag2_" %%SLAG2 %SLAG2) + ("SLAG2D" "slag2d_" %%SLAG2D %SLAG2D) + ("SLAGS2" "slags2_" %%SLAGS2 %SLAGS2) + ("SLAGTF" "slagtf_" %%SLAGTF %SLAGTF) + ("SLAGTM" "slagtm_" %%SLAGTM %SLAGTM) + ("SLAGTS" "slagts_" %%SLAGTS %SLAGTS) + ("SLAGV2" "slagv2_" %%SLAGV2 %SLAGV2) + ("SLAHQR" "slahqr_" %%SLAHQR %SLAHQR) + ("SLAHR2" "slahr2_" %%SLAHR2 %SLAHR2) + ("SLAIC1" "slaic1_" %%SLAIC1 %SLAIC1) + ("SLAISNAN" "slaisnan_" %%SLAISNAN %SLAISNAN) + ("SLALN2" "slaln2_" %%SLALN2 %SLALN2) + ("SLALS0" "slals0_" %%SLALS0 %SLALS0) + ("SLALSA" "slalsa_" %%SLALSA %SLALSA) + ("SLALSD" "slalsd_" %%SLALSD %SLALSD) + ("SLAMRG" "slamrg_" %%SLAMRG %SLAMRG) + ("SLAMSWLQ" "slamswlq_" %%SLAMSWLQ %SLAMSWLQ) + ("SLAMTSQR" "slamtsqr_" %%SLAMTSQR %SLAMTSQR) + ("SLANEG" "slaneg_" %%SLANEG %SLANEG) + ("SLANGB" "slangb_" %%SLANGB %SLANGB) + ("SLANGE" "slange_" %%SLANGE %SLANGE) + ("SLANGT" "slangt_" %%SLANGT %SLANGT) + ("SLANHS" "slanhs_" %%SLANHS %SLANHS) + ("SLANSB" "slansb_" %%SLANSB %SLANSB) + ("SLANSF" "slansf_" %%SLANSF %SLANSF) + ("SLANSP" "slansp_" %%SLANSP %SLANSP) + ("SLANST" "slanst_" %%SLANST %SLANST) + ("SLANSY" "slansy_" %%SLANSY %SLANSY) + ("SLANTB" "slantb_" %%SLANTB %SLANTB) + ("SLANTP" "slantp_" %%SLANTP %SLANTP) + ("SLANTR" "slantr_" %%SLANTR %SLANTR) + ("SLANV2" "slanv2_" %%SLANV2 %SLANV2) + ("SLAPLL" "slapll_" %%SLAPLL %SLAPLL) + ("SLAPMR" "slapmr_" %%SLAPMR %SLAPMR) + ("SLAPMT" "slapmt_" %%SLAPMT %SLAPMT) + ("SLAPY2" "slapy2_" %%SLAPY2 %SLAPY2) + ("SLAPY3" "slapy3_" %%SLAPY3 %SLAPY3) + ("SLAQGB" "slaqgb_" %%SLAQGB %SLAQGB) + ("SLAQGE" "slaqge_" %%SLAQGE %SLAQGE) + ("SLAQP2" "slaqp2_" %%SLAQP2 %SLAQP2) + ("SLAQPS" "slaqps_" %%SLAQPS %SLAQPS) + ("SLAQR0" "slaqr0_" %%SLAQR0 %SLAQR0) + ("SLAQR1" "slaqr1_" %%SLAQR1 %SLAQR1) + ("SLAQR2" "slaqr2_" %%SLAQR2 %SLAQR2) + ("SLAQR3" "slaqr3_" %%SLAQR3 %SLAQR3) + ("SLAQR4" "slaqr4_" %%SLAQR4 %SLAQR4) + ("SLAQR5" "slaqr5_" %%SLAQR5 %SLAQR5) + ("SLAQSB" "slaqsb_" %%SLAQSB %SLAQSB) + ("SLAQSP" "slaqsp_" %%SLAQSP %SLAQSP) + ("SLAQSY" "slaqsy_" %%SLAQSY %SLAQSY) + ("SLAQTR" "slaqtr_" %%SLAQTR %SLAQTR) + ("SLAR1V" "slar1v_" %%SLAR1V %SLAR1V) + ("SLAR2V" "slar2v_" %%SLAR2V %SLAR2V) + ("SLARF" "slarf_" %%SLARF %SLARF) + ("SLARFB" "slarfb_" %%SLARFB %SLARFB) + ("SLARFG" "slarfg_" %%SLARFG %SLARFG) + ("SLARFGP" "slarfgp_" %%SLARFGP %SLARFGP) + ("SLARFT" "slarft_" %%SLARFT %SLARFT) + ("SLARFX" "slarfx_" %%SLARFX %SLARFX) + ("SLARFY" "slarfy_" %%SLARFY %SLARFY) + ("SLARGV" "slargv_" %%SLARGV %SLARGV) + ("SLARNV" "slarnv_" %%SLARNV %SLARNV) + ("SLARRA" "slarra_" %%SLARRA %SLARRA) + ("SLARRB" "slarrb_" %%SLARRB %SLARRB) + ("SLARRC" "slarrc_" %%SLARRC %SLARRC) + ("SLARRD" "slarrd_" %%SLARRD %SLARRD) + ("SLARRE" "slarre_" %%SLARRE %SLARRE) + ("SLARRF" "slarrf_" %%SLARRF %SLARRF) + ("SLARRJ" "slarrj_" %%SLARRJ %SLARRJ) + ("SLARRK" "slarrk_" %%SLARRK %SLARRK) + ("SLARRR" "slarrr_" %%SLARRR %SLARRR) + ("SLARRV" "slarrv_" %%SLARRV %SLARRV) + ("SLARSCL2" "slarscl2_" %%SLARSCL2 %SLARSCL2) + ("SLARTG" "slartg_" %%SLARTG %SLARTG) + ("SLARTGP" "slartgp_" %%SLARTGP %SLARTGP) + ("SLARTGS" "slartgs_" %%SLARTGS %SLARTGS) + ("SLARTV" "slartv_" %%SLARTV %SLARTV) + ("SLARUV" "slaruv_" %%SLARUV %SLARUV) + ("SLARZ" "slarz_" %%SLARZ %SLARZ) + ("SLARZB" "slarzb_" %%SLARZB %SLARZB) + ("SLARZT" "slarzt_" %%SLARZT %SLARZT) + ("SLAS2" "slas2_" %%SLAS2 %SLAS2) + ("SLASCL" "slascl_" %%SLASCL %SLASCL) + ("SLASCL2" "slascl2_" %%SLASCL2 %SLASCL2) + ("SLASD0" "slasd0_" %%SLASD0 %SLASD0) + ("SLASD1" "slasd1_" %%SLASD1 %SLASD1) + ("SLASD2" "slasd2_" %%SLASD2 %SLASD2) + ("SLASD3" "slasd3_" %%SLASD3 %SLASD3) + ("SLASD4" "slasd4_" %%SLASD4 %SLASD4) + ("SLASD5" "slasd5_" %%SLASD5 %SLASD5) + ("SLASD6" "slasd6_" %%SLASD6 %SLASD6) + ("SLASD7" "slasd7_" %%SLASD7 %SLASD7) + ("SLASD8" "slasd8_" %%SLASD8 %SLASD8))) (COMMON-LISP:EXPORT '(%ILASLR %ILATRANS %ILAUPLO %ILAZLC %ILAZLR %IPARMQ %IZMAX1 %LSAMEN %SBBCSD diff --git a/src/bindings/lapack05-cffi.lisp b/src/bindings/lapack05-cffi.lisp index 48fcf8a8..26eeac6b 100644 --- a/src/bindings/lapack05-cffi.lisp +++ b/src/bindings/lapack05-cffi.lisp @@ -12856,271 +12856,269 @@ %%STRSNA %STRSNA %%STRSYL %STRSYL %%STRTI2 %STRTI2 %%STRTRI %STRTRI %%STRTRS %STRTRS %%STRTTF %STRTTF %%STRTTP %STRTTP %%STZRZF %STZRZF)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - ':MAGICL) - '(("SLASDA" "slasda_" %%SLASDA %SLASDA) - ("SLASDQ" "slasdq_" %%SLASDQ %SLASDQ) - ("SLASDT" "slasdt_" %%SLASDT %SLASDT) - ("SLASET" "slaset_" %%SLASET %SLASET) - ("SLASQ1" "slasq1_" %%SLASQ1 %SLASQ1) - ("SLASQ2" "slasq2_" %%SLASQ2 %SLASQ2) - ("SLASQ3" "slasq3_" %%SLASQ3 %SLASQ3) - ("SLASQ4" "slasq4_" %%SLASQ4 %SLASQ4) - ("SLASQ5" "slasq5_" %%SLASQ5 %SLASQ5) - ("SLASQ6" "slasq6_" %%SLASQ6 %SLASQ6) - ("SLASR" "slasr_" %%SLASR %SLASR) - ("SLASRT" "slasrt_" %%SLASRT %SLASRT) - ("SLASSQ" "slassq_" %%SLASSQ %SLASSQ) - ("SLASV2" "slasv2_" %%SLASV2 %SLASV2) - ("SLASWLQ" "slaswlq_" %%SLASWLQ %SLASWLQ) - ("SLASWP" "slaswp_" %%SLASWP %SLASWP) - ("SLASY2" "slasy2_" %%SLASY2 %SLASY2) - ("SLASYF" "slasyf_" %%SLASYF %SLASYF) - ("SLASYF_AA" "slasyf_aa_" %%SLASYF_AA %SLASYF_AA) - ("SLASYF_RK" "slasyf_rk_" %%SLASYF_RK %SLASYF_RK) - ("SLASYF_ROOK" "slasyf_rook_" %%SLASYF_ROOK %SLASYF_ROOK) - ("SLATBS" "slatbs_" %%SLATBS %SLATBS) - ("SLATDF" "slatdf_" %%SLATDF %SLATDF) - ("SLATPS" "slatps_" %%SLATPS %SLATPS) - ("SLATRD" "slatrd_" %%SLATRD %SLATRD) - ("SLATRS" "slatrs_" %%SLATRS %SLATRS) - ("SLATRZ" "slatrz_" %%SLATRZ %SLATRZ) - ("SLATSQR" "slatsqr_" %%SLATSQR %SLATSQR) - ("SLAUU2" "slauu2_" %%SLAUU2 %SLAUU2) - ("SLAUUM" "slauum_" %%SLAUUM %SLAUUM) - ("SOPGTR" "sopgtr_" %%SOPGTR %SOPGTR) - ("SOPMTR" "sopmtr_" %%SOPMTR %SOPMTR) - ("SORBDB" "sorbdb_" %%SORBDB %SORBDB) - ("SORBDB1" "sorbdb1_" %%SORBDB1 %SORBDB1) - ("SORBDB2" "sorbdb2_" %%SORBDB2 %SORBDB2) - ("SORBDB3" "sorbdb3_" %%SORBDB3 %SORBDB3) - ("SORBDB4" "sorbdb4_" %%SORBDB4 %SORBDB4) - ("SORBDB5" "sorbdb5_" %%SORBDB5 %SORBDB5) - ("SORBDB6" "sorbdb6_" %%SORBDB6 %SORBDB6) - ("SORCSD" "sorcsd_" %%SORCSD %SORCSD) - ("SORCSD2BY1" "sorcsd2by1_" %%SORCSD2BY1 %SORCSD2BY1) - ("SORG2L" "sorg2l_" %%SORG2L %SORG2L) - ("SORG2R" "sorg2r_" %%SORG2R %SORG2R) - ("SORGBR" "sorgbr_" %%SORGBR %SORGBR) - ("SORGHR" "sorghr_" %%SORGHR %SORGHR) - ("SORGL2" "sorgl2_" %%SORGL2 %SORGL2) - ("SORGLQ" "sorglq_" %%SORGLQ %SORGLQ) - ("SORGQL" "sorgql_" %%SORGQL %SORGQL) - ("SORGQR" "sorgqr_" %%SORGQR %SORGQR) - ("SORGR2" "sorgr2_" %%SORGR2 %SORGR2) - ("SORGRQ" "sorgrq_" %%SORGRQ %SORGRQ) - ("SORGTR" "sorgtr_" %%SORGTR %SORGTR) - ("SORM22" "sorm22_" %%SORM22 %SORM22) - ("SORM2L" "sorm2l_" %%SORM2L %SORM2L) - ("SORM2R" "sorm2r_" %%SORM2R %SORM2R) - ("SORMBR" "sormbr_" %%SORMBR %SORMBR) - ("SORMHR" "sormhr_" %%SORMHR %SORMHR) - ("SORML2" "sorml2_" %%SORML2 %SORML2) - ("SORMLQ" "sormlq_" %%SORMLQ %SORMLQ) - ("SORMQL" "sormql_" %%SORMQL %SORMQL) - ("SORMQR" "sormqr_" %%SORMQR %SORMQR) - ("SORMR2" "sormr2_" %%SORMR2 %SORMR2) - ("SORMR3" "sormr3_" %%SORMR3 %SORMR3) - ("SORMRQ" "sormrq_" %%SORMRQ %SORMRQ) - ("SORMRZ" "sormrz_" %%SORMRZ %SORMRZ) - ("SORMTR" "sormtr_" %%SORMTR %SORMTR) - ("SPBCON" "spbcon_" %%SPBCON %SPBCON) - ("SPBEQU" "spbequ_" %%SPBEQU %SPBEQU) - ("SPBRFS" "spbrfs_" %%SPBRFS %SPBRFS) - ("SPBSTF" "spbstf_" %%SPBSTF %SPBSTF) - ("SPBSV" "spbsv_" %%SPBSV %SPBSV) - ("SPBSVX" "spbsvx_" %%SPBSVX %SPBSVX) - ("SPBTF2" "spbtf2_" %%SPBTF2 %SPBTF2) - ("SPBTRF" "spbtrf_" %%SPBTRF %SPBTRF) - ("SPBTRS" "spbtrs_" %%SPBTRS %SPBTRS) - ("SPFTRF" "spftrf_" %%SPFTRF %SPFTRF) - ("SPFTRI" "spftri_" %%SPFTRI %SPFTRI) - ("SPFTRS" "spftrs_" %%SPFTRS %SPFTRS) - ("SPOCON" "spocon_" %%SPOCON %SPOCON) - ("SPOEQU" "spoequ_" %%SPOEQU %SPOEQU) - ("SPOEQUB" "spoequb_" %%SPOEQUB %SPOEQUB) - ("SPORFS" "sporfs_" %%SPORFS %SPORFS) - ("SPORFSX" "sporfsx_" %%SPORFSX %SPORFSX) - ("SPOSV" "sposv_" %%SPOSV %SPOSV) - ("SPOSVX" "sposvx_" %%SPOSVX %SPOSVX) - ("SPOSVXX" "sposvxx_" %%SPOSVXX %SPOSVXX) - ("SPOTF2" "spotf2_" %%SPOTF2 %SPOTF2) - ("SPOTRF" "spotrf_" %%SPOTRF %SPOTRF) - ("SPOTRF2" "spotrf2_" %%SPOTRF2 %SPOTRF2) - ("SPOTRI" "spotri_" %%SPOTRI %SPOTRI) - ("SPOTRS" "spotrs_" %%SPOTRS %SPOTRS) - ("SPPCON" "sppcon_" %%SPPCON %SPPCON) - ("SPPEQU" "sppequ_" %%SPPEQU %SPPEQU) - ("SPPRFS" "spprfs_" %%SPPRFS %SPPRFS) - ("SPPSV" "sppsv_" %%SPPSV %SPPSV) - ("SPPSVX" "sppsvx_" %%SPPSVX %SPPSVX) - ("SPPTRF" "spptrf_" %%SPPTRF %SPPTRF) - ("SPPTRI" "spptri_" %%SPPTRI %SPPTRI) - ("SPPTRS" "spptrs_" %%SPPTRS %SPPTRS) - ("SPSTF2" "spstf2_" %%SPSTF2 %SPSTF2) - ("SPSTRF" "spstrf_" %%SPSTRF %SPSTRF) - ("SPTCON" "sptcon_" %%SPTCON %SPTCON) - ("SPTEQR" "spteqr_" %%SPTEQR %SPTEQR) - ("SPTRFS" "sptrfs_" %%SPTRFS %SPTRFS) - ("SPTSV" "sptsv_" %%SPTSV %SPTSV) - ("SPTSVX" "sptsvx_" %%SPTSVX %SPTSVX) - ("SPTTRF" "spttrf_" %%SPTTRF %SPTTRF) - ("SPTTRS" "spttrs_" %%SPTTRS %SPTTRS) - ("SPTTS2" "sptts2_" %%SPTTS2 %SPTTS2) - ("SRSCL" "srscl_" %%SRSCL %SRSCL) - ("SSB2ST_KERNELS" "ssb2st_kernels_" %%SSB2ST_KERNELS - %SSB2ST_KERNELS) - ("SSBEV" "ssbev_" %%SSBEV %SSBEV) - ("SSBEV_2STAGE" "ssbev_2stage_" %%SSBEV_2STAGE - %SSBEV_2STAGE) - ("SSBEVD" "ssbevd_" %%SSBEVD %SSBEVD) - ("SSBEVD_2STAGE" "ssbevd_2stage_" %%SSBEVD_2STAGE - %SSBEVD_2STAGE) - ("SSBEVX" "ssbevx_" %%SSBEVX %SSBEVX) - ("SSBEVX_2STAGE" "ssbevx_2stage_" %%SSBEVX_2STAGE - %SSBEVX_2STAGE) - ("SSBGST" "ssbgst_" %%SSBGST %SSBGST) - ("SSBGV" "ssbgv_" %%SSBGV %SSBGV) - ("SSBGVD" "ssbgvd_" %%SSBGVD %SSBGVD) - ("SSBGVX" "ssbgvx_" %%SSBGVX %SSBGVX) - ("SSBTRD" "ssbtrd_" %%SSBTRD %SSBTRD) - ("SSFRK" "ssfrk_" %%SSFRK %SSFRK) - ("SSPCON" "sspcon_" %%SSPCON %SSPCON) - ("SSPEV" "sspev_" %%SSPEV %SSPEV) - ("SSPEVD" "sspevd_" %%SSPEVD %SSPEVD) - ("SSPEVX" "sspevx_" %%SSPEVX %SSPEVX) - ("SSPGST" "sspgst_" %%SSPGST %SSPGST) - ("SSPGV" "sspgv_" %%SSPGV %SSPGV) - ("SSPGVD" "sspgvd_" %%SSPGVD %SSPGVD) - ("SSPGVX" "sspgvx_" %%SSPGVX %SSPGVX) - ("SSPRFS" "ssprfs_" %%SSPRFS %SSPRFS) - ("SSPSV" "sspsv_" %%SSPSV %SSPSV) - ("SSPSVX" "sspsvx_" %%SSPSVX %SSPSVX) - ("SSPTRD" "ssptrd_" %%SSPTRD %SSPTRD) - ("SSPTRF" "ssptrf_" %%SSPTRF %SSPTRF) - ("SSPTRI" "ssptri_" %%SSPTRI %SSPTRI) - ("SSPTRS" "ssptrs_" %%SSPTRS %SSPTRS) - ("SSTEBZ" "sstebz_" %%SSTEBZ %SSTEBZ) - ("SSTEDC" "sstedc_" %%SSTEDC %SSTEDC) - ("SSTEGR" "sstegr_" %%SSTEGR %SSTEGR) - ("SSTEIN" "sstein_" %%SSTEIN %SSTEIN) - ("SSTEMR" "sstemr_" %%SSTEMR %SSTEMR) - ("SSTEQR" "ssteqr_" %%SSTEQR %SSTEQR) - ("SSTERF" "ssterf_" %%SSTERF %SSTERF) - ("SSTEV" "sstev_" %%SSTEV %SSTEV) - ("SSTEVD" "sstevd_" %%SSTEVD %SSTEVD) - ("SSTEVR" "sstevr_" %%SSTEVR %SSTEVR) - ("SSTEVX" "sstevx_" %%SSTEVX %SSTEVX) - ("SSYCON" "ssycon_" %%SSYCON %SSYCON) - ("SSYCON_3" "ssycon_3_" %%SSYCON_3 %SSYCON_3) - ("SSYCON_ROOK" "ssycon_rook_" %%SSYCON_ROOK %SSYCON_ROOK) - ("SSYCONV" "ssyconv_" %%SSYCONV %SSYCONV) - ("SSYCONVF" "ssyconvf_" %%SSYCONVF %SSYCONVF) - ("SSYCONVF_ROOK" "ssyconvf_rook_" %%SSYCONVF_ROOK - %SSYCONVF_ROOK) - ("SSYEQUB" "ssyequb_" %%SSYEQUB %SSYEQUB) - ("SSYEV" "ssyev_" %%SSYEV %SSYEV) - ("SSYEV_2STAGE" "ssyev_2stage_" %%SSYEV_2STAGE - %SSYEV_2STAGE) - ("SSYEVD" "ssyevd_" %%SSYEVD %SSYEVD) - ("SSYEVD_2STAGE" "ssyevd_2stage_" %%SSYEVD_2STAGE - %SSYEVD_2STAGE) - ("SSYEVR" "ssyevr_" %%SSYEVR %SSYEVR) - ("SSYEVR_2STAGE" "ssyevr_2stage_" %%SSYEVR_2STAGE - %SSYEVR_2STAGE) - ("SSYEVX" "ssyevx_" %%SSYEVX %SSYEVX) - ("SSYEVX_2STAGE" "ssyevx_2stage_" %%SSYEVX_2STAGE - %SSYEVX_2STAGE) - ("SSYGS2" "ssygs2_" %%SSYGS2 %SSYGS2) - ("SSYGST" "ssygst_" %%SSYGST %SSYGST) - ("SSYGV" "ssygv_" %%SSYGV %SSYGV) - ("SSYGV_2STAGE" "ssygv_2stage_" %%SSYGV_2STAGE - %SSYGV_2STAGE) - ("SSYGVD" "ssygvd_" %%SSYGVD %SSYGVD) - ("SSYGVX" "ssygvx_" %%SSYGVX %SSYGVX) - ("SSYRFS" "ssyrfs_" %%SSYRFS %SSYRFS) - ("SSYRFSX" "ssyrfsx_" %%SSYRFSX %SSYRFSX) - ("SSYSV" "ssysv_" %%SSYSV %SSYSV) - ("SSYSV_AA" "ssysv_aa_" %%SSYSV_AA %SSYSV_AA) - ("SSYSV_AA_2STAGE" "ssysv_aa_2stage_" %%SSYSV_AA_2STAGE - %SSYSV_AA_2STAGE) - ("SSYSV_RK" "ssysv_rk_" %%SSYSV_RK %SSYSV_RK) - ("SSYSV_ROOK" "ssysv_rook_" %%SSYSV_ROOK %SSYSV_ROOK) - ("SSYSVX" "ssysvx_" %%SSYSVX %SSYSVX) - ("SSYSVXX" "ssysvxx_" %%SSYSVXX %SSYSVXX) - ("SSYSWAPR" "ssyswapr_" %%SSYSWAPR %SSYSWAPR) - ("SSYTD2" "ssytd2_" %%SSYTD2 %SSYTD2) - ("SSYTF2" "ssytf2_" %%SSYTF2 %SSYTF2) - ("SSYTF2_RK" "ssytf2_rk_" %%SSYTF2_RK %SSYTF2_RK) - ("SSYTF2_ROOK" "ssytf2_rook_" %%SSYTF2_ROOK %SSYTF2_ROOK) - ("SSYTRD" "ssytrd_" %%SSYTRD %SSYTRD) - ("SSYTRD_2STAGE" "ssytrd_2stage_" %%SSYTRD_2STAGE - %SSYTRD_2STAGE) - ("SSYTRD_SY2SB" "ssytrd_sy2sb_" %%SSYTRD_SY2SB - %SSYTRD_SY2SB) - ("SSYTRF" "ssytrf_" %%SSYTRF %SSYTRF) - ("SSYTRF_AA" "ssytrf_aa_" %%SSYTRF_AA %SSYTRF_AA) - ("SSYTRF_AA_2STAGE" "ssytrf_aa_2stage_" - %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE) - ("SSYTRF_RK" "ssytrf_rk_" %%SSYTRF_RK %SSYTRF_RK) - ("SSYTRF_ROOK" "ssytrf_rook_" %%SSYTRF_ROOK %SSYTRF_ROOK) - ("SSYTRI" "ssytri_" %%SSYTRI %SSYTRI) - ("SSYTRI2" "ssytri2_" %%SSYTRI2 %SSYTRI2) - ("SSYTRI2X" "ssytri2x_" %%SSYTRI2X %SSYTRI2X) - ("SSYTRI_3" "ssytri_3_" %%SSYTRI_3 %SSYTRI_3) - ("SSYTRI_3X" "ssytri_3x_" %%SSYTRI_3X %SSYTRI_3X) - ("SSYTRI_ROOK" "ssytri_rook_" %%SSYTRI_ROOK %SSYTRI_ROOK) - ("SSYTRS" "ssytrs_" %%SSYTRS %SSYTRS) - ("SSYTRS2" "ssytrs2_" %%SSYTRS2 %SSYTRS2) - ("SSYTRS_3" "ssytrs_3_" %%SSYTRS_3 %SSYTRS_3) - ("SSYTRS_AA" "ssytrs_aa_" %%SSYTRS_AA %SSYTRS_AA) - ("SSYTRS_AA_2STAGE" "ssytrs_aa_2stage_" - %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE) - ("SSYTRS_ROOK" "ssytrs_rook_" %%SSYTRS_ROOK %SSYTRS_ROOK) - ("STBCON" "stbcon_" %%STBCON %STBCON) - ("STBRFS" "stbrfs_" %%STBRFS %STBRFS) - ("STBTRS" "stbtrs_" %%STBTRS %STBTRS) - ("STFSM" "stfsm_" %%STFSM %STFSM) - ("STFTRI" "stftri_" %%STFTRI %STFTRI) - ("STFTTP" "stfttp_" %%STFTTP %STFTTP) - ("STFTTR" "stfttr_" %%STFTTR %STFTTR) - ("STGEVC" "stgevc_" %%STGEVC %STGEVC) - ("STGEX2" "stgex2_" %%STGEX2 %STGEX2) - ("STGEXC" "stgexc_" %%STGEXC %STGEXC) - ("STGSEN" "stgsen_" %%STGSEN %STGSEN) - ("STGSJA" "stgsja_" %%STGSJA %STGSJA) - ("STGSNA" "stgsna_" %%STGSNA %STGSNA) - ("STGSY2" "stgsy2_" %%STGSY2 %STGSY2) - ("STGSYL" "stgsyl_" %%STGSYL %STGSYL) - ("STPCON" "stpcon_" %%STPCON %STPCON) - ("STPLQT" "stplqt_" %%STPLQT %STPLQT) - ("STPLQT2" "stplqt2_" %%STPLQT2 %STPLQT2) - ("STPMLQT" "stpmlqt_" %%STPMLQT %STPMLQT) - ("STPMQRT" "stpmqrt_" %%STPMQRT %STPMQRT) - ("STPQRT" "stpqrt_" %%STPQRT %STPQRT) - ("STPQRT2" "stpqrt2_" %%STPQRT2 %STPQRT2) - ("STPRFB" "stprfb_" %%STPRFB %STPRFB) - ("STPRFS" "stprfs_" %%STPRFS %STPRFS) - ("STPTRI" "stptri_" %%STPTRI %STPTRI) - ("STPTRS" "stptrs_" %%STPTRS %STPTRS) - ("STPTTF" "stpttf_" %%STPTTF %STPTTF) - ("STPTTR" "stpttr_" %%STPTTR %STPTTR) - ("STRCON" "strcon_" %%STRCON %STRCON) - ("STREVC" "strevc_" %%STREVC %STREVC) - ("STREVC3" "strevc3_" %%STREVC3 %STREVC3) - ("STREXC" "strexc_" %%STREXC %STREXC) - ("STRRFS" "strrfs_" %%STRRFS %STRRFS) - ("STRSEN" "strsen_" %%STRSEN %STRSEN) - ("STRSNA" "strsna_" %%STRSNA %STRSNA) - ("STRSYL" "strsyl_" %%STRSYL %STRSYL) - ("STRTI2" "strti2_" %%STRTI2 %STRTI2) - ("STRTRI" "strtri_" %%STRTRI %STRTRI) - ("STRTRS" "strtrs_" %%STRTRS %STRTRS) - ("STRTTF" "strttf_" %%STRTTF %STRTTF) - ("STRTTP" "strttp_" %%STRTTP %STRTTP) - ("STZRZF" "stzrzf_" %%STZRZF %STZRZF))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK + '(("SLASDA" "slasda_" %%SLASDA %SLASDA) + ("SLASDQ" "slasdq_" %%SLASDQ %SLASDQ) + ("SLASDT" "slasdt_" %%SLASDT %SLASDT) + ("SLASET" "slaset_" %%SLASET %SLASET) + ("SLASQ1" "slasq1_" %%SLASQ1 %SLASQ1) + ("SLASQ2" "slasq2_" %%SLASQ2 %SLASQ2) + ("SLASQ3" "slasq3_" %%SLASQ3 %SLASQ3) + ("SLASQ4" "slasq4_" %%SLASQ4 %SLASQ4) + ("SLASQ5" "slasq5_" %%SLASQ5 %SLASQ5) + ("SLASQ6" "slasq6_" %%SLASQ6 %SLASQ6) + ("SLASR" "slasr_" %%SLASR %SLASR) + ("SLASRT" "slasrt_" %%SLASRT %SLASRT) + ("SLASSQ" "slassq_" %%SLASSQ %SLASSQ) + ("SLASV2" "slasv2_" %%SLASV2 %SLASV2) + ("SLASWLQ" "slaswlq_" %%SLASWLQ %SLASWLQ) + ("SLASWP" "slaswp_" %%SLASWP %SLASWP) + ("SLASY2" "slasy2_" %%SLASY2 %SLASY2) + ("SLASYF" "slasyf_" %%SLASYF %SLASYF) + ("SLASYF_AA" "slasyf_aa_" %%SLASYF_AA %SLASYF_AA) + ("SLASYF_RK" "slasyf_rk_" %%SLASYF_RK %SLASYF_RK) + ("SLASYF_ROOK" "slasyf_rook_" %%SLASYF_ROOK %SLASYF_ROOK) + ("SLATBS" "slatbs_" %%SLATBS %SLATBS) + ("SLATDF" "slatdf_" %%SLATDF %SLATDF) + ("SLATPS" "slatps_" %%SLATPS %SLATPS) + ("SLATRD" "slatrd_" %%SLATRD %SLATRD) + ("SLATRS" "slatrs_" %%SLATRS %SLATRS) + ("SLATRZ" "slatrz_" %%SLATRZ %SLATRZ) + ("SLATSQR" "slatsqr_" %%SLATSQR %SLATSQR) + ("SLAUU2" "slauu2_" %%SLAUU2 %SLAUU2) + ("SLAUUM" "slauum_" %%SLAUUM %SLAUUM) + ("SOPGTR" "sopgtr_" %%SOPGTR %SOPGTR) + ("SOPMTR" "sopmtr_" %%SOPMTR %SOPMTR) + ("SORBDB" "sorbdb_" %%SORBDB %SORBDB) + ("SORBDB1" "sorbdb1_" %%SORBDB1 %SORBDB1) + ("SORBDB2" "sorbdb2_" %%SORBDB2 %SORBDB2) + ("SORBDB3" "sorbdb3_" %%SORBDB3 %SORBDB3) + ("SORBDB4" "sorbdb4_" %%SORBDB4 %SORBDB4) + ("SORBDB5" "sorbdb5_" %%SORBDB5 %SORBDB5) + ("SORBDB6" "sorbdb6_" %%SORBDB6 %SORBDB6) + ("SORCSD" "sorcsd_" %%SORCSD %SORCSD) + ("SORCSD2BY1" "sorcsd2by1_" %%SORCSD2BY1 %SORCSD2BY1) + ("SORG2L" "sorg2l_" %%SORG2L %SORG2L) + ("SORG2R" "sorg2r_" %%SORG2R %SORG2R) + ("SORGBR" "sorgbr_" %%SORGBR %SORGBR) + ("SORGHR" "sorghr_" %%SORGHR %SORGHR) + ("SORGL2" "sorgl2_" %%SORGL2 %SORGL2) + ("SORGLQ" "sorglq_" %%SORGLQ %SORGLQ) + ("SORGQL" "sorgql_" %%SORGQL %SORGQL) + ("SORGQR" "sorgqr_" %%SORGQR %SORGQR) + ("SORGR2" "sorgr2_" %%SORGR2 %SORGR2) + ("SORGRQ" "sorgrq_" %%SORGRQ %SORGRQ) + ("SORGTR" "sorgtr_" %%SORGTR %SORGTR) + ("SORM22" "sorm22_" %%SORM22 %SORM22) + ("SORM2L" "sorm2l_" %%SORM2L %SORM2L) + ("SORM2R" "sorm2r_" %%SORM2R %SORM2R) + ("SORMBR" "sormbr_" %%SORMBR %SORMBR) + ("SORMHR" "sormhr_" %%SORMHR %SORMHR) + ("SORML2" "sorml2_" %%SORML2 %SORML2) + ("SORMLQ" "sormlq_" %%SORMLQ %SORMLQ) + ("SORMQL" "sormql_" %%SORMQL %SORMQL) + ("SORMQR" "sormqr_" %%SORMQR %SORMQR) + ("SORMR2" "sormr2_" %%SORMR2 %SORMR2) + ("SORMR3" "sormr3_" %%SORMR3 %SORMR3) + ("SORMRQ" "sormrq_" %%SORMRQ %SORMRQ) + ("SORMRZ" "sormrz_" %%SORMRZ %SORMRZ) + ("SORMTR" "sormtr_" %%SORMTR %SORMTR) + ("SPBCON" "spbcon_" %%SPBCON %SPBCON) + ("SPBEQU" "spbequ_" %%SPBEQU %SPBEQU) + ("SPBRFS" "spbrfs_" %%SPBRFS %SPBRFS) + ("SPBSTF" "spbstf_" %%SPBSTF %SPBSTF) + ("SPBSV" "spbsv_" %%SPBSV %SPBSV) + ("SPBSVX" "spbsvx_" %%SPBSVX %SPBSVX) + ("SPBTF2" "spbtf2_" %%SPBTF2 %SPBTF2) + ("SPBTRF" "spbtrf_" %%SPBTRF %SPBTRF) + ("SPBTRS" "spbtrs_" %%SPBTRS %SPBTRS) + ("SPFTRF" "spftrf_" %%SPFTRF %SPFTRF) + ("SPFTRI" "spftri_" %%SPFTRI %SPFTRI) + ("SPFTRS" "spftrs_" %%SPFTRS %SPFTRS) + ("SPOCON" "spocon_" %%SPOCON %SPOCON) + ("SPOEQU" "spoequ_" %%SPOEQU %SPOEQU) + ("SPOEQUB" "spoequb_" %%SPOEQUB %SPOEQUB) + ("SPORFS" "sporfs_" %%SPORFS %SPORFS) + ("SPORFSX" "sporfsx_" %%SPORFSX %SPORFSX) + ("SPOSV" "sposv_" %%SPOSV %SPOSV) + ("SPOSVX" "sposvx_" %%SPOSVX %SPOSVX) + ("SPOSVXX" "sposvxx_" %%SPOSVXX %SPOSVXX) + ("SPOTF2" "spotf2_" %%SPOTF2 %SPOTF2) + ("SPOTRF" "spotrf_" %%SPOTRF %SPOTRF) + ("SPOTRF2" "spotrf2_" %%SPOTRF2 %SPOTRF2) + ("SPOTRI" "spotri_" %%SPOTRI %SPOTRI) + ("SPOTRS" "spotrs_" %%SPOTRS %SPOTRS) + ("SPPCON" "sppcon_" %%SPPCON %SPPCON) + ("SPPEQU" "sppequ_" %%SPPEQU %SPPEQU) + ("SPPRFS" "spprfs_" %%SPPRFS %SPPRFS) + ("SPPSV" "sppsv_" %%SPPSV %SPPSV) + ("SPPSVX" "sppsvx_" %%SPPSVX %SPPSVX) + ("SPPTRF" "spptrf_" %%SPPTRF %SPPTRF) + ("SPPTRI" "spptri_" %%SPPTRI %SPPTRI) + ("SPPTRS" "spptrs_" %%SPPTRS %SPPTRS) + ("SPSTF2" "spstf2_" %%SPSTF2 %SPSTF2) + ("SPSTRF" "spstrf_" %%SPSTRF %SPSTRF) + ("SPTCON" "sptcon_" %%SPTCON %SPTCON) + ("SPTEQR" "spteqr_" %%SPTEQR %SPTEQR) + ("SPTRFS" "sptrfs_" %%SPTRFS %SPTRFS) + ("SPTSV" "sptsv_" %%SPTSV %SPTSV) + ("SPTSVX" "sptsvx_" %%SPTSVX %SPTSVX) + ("SPTTRF" "spttrf_" %%SPTTRF %SPTTRF) + ("SPTTRS" "spttrs_" %%SPTTRS %SPTTRS) + ("SPTTS2" "sptts2_" %%SPTTS2 %SPTTS2) + ("SRSCL" "srscl_" %%SRSCL %SRSCL) + ("SSB2ST_KERNELS" "ssb2st_kernels_" %%SSB2ST_KERNELS + %SSB2ST_KERNELS) + ("SSBEV" "ssbev_" %%SSBEV %SSBEV) + ("SSBEV_2STAGE" "ssbev_2stage_" %%SSBEV_2STAGE + %SSBEV_2STAGE) + ("SSBEVD" "ssbevd_" %%SSBEVD %SSBEVD) + ("SSBEVD_2STAGE" "ssbevd_2stage_" %%SSBEVD_2STAGE + %SSBEVD_2STAGE) + ("SSBEVX" "ssbevx_" %%SSBEVX %SSBEVX) + ("SSBEVX_2STAGE" "ssbevx_2stage_" %%SSBEVX_2STAGE + %SSBEVX_2STAGE) + ("SSBGST" "ssbgst_" %%SSBGST %SSBGST) + ("SSBGV" "ssbgv_" %%SSBGV %SSBGV) + ("SSBGVD" "ssbgvd_" %%SSBGVD %SSBGVD) + ("SSBGVX" "ssbgvx_" %%SSBGVX %SSBGVX) + ("SSBTRD" "ssbtrd_" %%SSBTRD %SSBTRD) + ("SSFRK" "ssfrk_" %%SSFRK %SSFRK) + ("SSPCON" "sspcon_" %%SSPCON %SSPCON) + ("SSPEV" "sspev_" %%SSPEV %SSPEV) + ("SSPEVD" "sspevd_" %%SSPEVD %SSPEVD) + ("SSPEVX" "sspevx_" %%SSPEVX %SSPEVX) + ("SSPGST" "sspgst_" %%SSPGST %SSPGST) + ("SSPGV" "sspgv_" %%SSPGV %SSPGV) + ("SSPGVD" "sspgvd_" %%SSPGVD %SSPGVD) + ("SSPGVX" "sspgvx_" %%SSPGVX %SSPGVX) + ("SSPRFS" "ssprfs_" %%SSPRFS %SSPRFS) + ("SSPSV" "sspsv_" %%SSPSV %SSPSV) + ("SSPSVX" "sspsvx_" %%SSPSVX %SSPSVX) + ("SSPTRD" "ssptrd_" %%SSPTRD %SSPTRD) + ("SSPTRF" "ssptrf_" %%SSPTRF %SSPTRF) + ("SSPTRI" "ssptri_" %%SSPTRI %SSPTRI) + ("SSPTRS" "ssptrs_" %%SSPTRS %SSPTRS) + ("SSTEBZ" "sstebz_" %%SSTEBZ %SSTEBZ) + ("SSTEDC" "sstedc_" %%SSTEDC %SSTEDC) + ("SSTEGR" "sstegr_" %%SSTEGR %SSTEGR) + ("SSTEIN" "sstein_" %%SSTEIN %SSTEIN) + ("SSTEMR" "sstemr_" %%SSTEMR %SSTEMR) + ("SSTEQR" "ssteqr_" %%SSTEQR %SSTEQR) + ("SSTERF" "ssterf_" %%SSTERF %SSTERF) + ("SSTEV" "sstev_" %%SSTEV %SSTEV) + ("SSTEVD" "sstevd_" %%SSTEVD %SSTEVD) + ("SSTEVR" "sstevr_" %%SSTEVR %SSTEVR) + ("SSTEVX" "sstevx_" %%SSTEVX %SSTEVX) + ("SSYCON" "ssycon_" %%SSYCON %SSYCON) + ("SSYCON_3" "ssycon_3_" %%SSYCON_3 %SSYCON_3) + ("SSYCON_ROOK" "ssycon_rook_" %%SSYCON_ROOK %SSYCON_ROOK) + ("SSYCONV" "ssyconv_" %%SSYCONV %SSYCONV) + ("SSYCONVF" "ssyconvf_" %%SSYCONVF %SSYCONVF) + ("SSYCONVF_ROOK" "ssyconvf_rook_" %%SSYCONVF_ROOK + %SSYCONVF_ROOK) + ("SSYEQUB" "ssyequb_" %%SSYEQUB %SSYEQUB) + ("SSYEV" "ssyev_" %%SSYEV %SSYEV) + ("SSYEV_2STAGE" "ssyev_2stage_" %%SSYEV_2STAGE + %SSYEV_2STAGE) + ("SSYEVD" "ssyevd_" %%SSYEVD %SSYEVD) + ("SSYEVD_2STAGE" "ssyevd_2stage_" %%SSYEVD_2STAGE + %SSYEVD_2STAGE) + ("SSYEVR" "ssyevr_" %%SSYEVR %SSYEVR) + ("SSYEVR_2STAGE" "ssyevr_2stage_" %%SSYEVR_2STAGE + %SSYEVR_2STAGE) + ("SSYEVX" "ssyevx_" %%SSYEVX %SSYEVX) + ("SSYEVX_2STAGE" "ssyevx_2stage_" %%SSYEVX_2STAGE + %SSYEVX_2STAGE) + ("SSYGS2" "ssygs2_" %%SSYGS2 %SSYGS2) + ("SSYGST" "ssygst_" %%SSYGST %SSYGST) + ("SSYGV" "ssygv_" %%SSYGV %SSYGV) + ("SSYGV_2STAGE" "ssygv_2stage_" %%SSYGV_2STAGE + %SSYGV_2STAGE) + ("SSYGVD" "ssygvd_" %%SSYGVD %SSYGVD) + ("SSYGVX" "ssygvx_" %%SSYGVX %SSYGVX) + ("SSYRFS" "ssyrfs_" %%SSYRFS %SSYRFS) + ("SSYRFSX" "ssyrfsx_" %%SSYRFSX %SSYRFSX) + ("SSYSV" "ssysv_" %%SSYSV %SSYSV) + ("SSYSV_AA" "ssysv_aa_" %%SSYSV_AA %SSYSV_AA) + ("SSYSV_AA_2STAGE" "ssysv_aa_2stage_" %%SSYSV_AA_2STAGE + %SSYSV_AA_2STAGE) + ("SSYSV_RK" "ssysv_rk_" %%SSYSV_RK %SSYSV_RK) + ("SSYSV_ROOK" "ssysv_rook_" %%SSYSV_ROOK %SSYSV_ROOK) + ("SSYSVX" "ssysvx_" %%SSYSVX %SSYSVX) + ("SSYSVXX" "ssysvxx_" %%SSYSVXX %SSYSVXX) + ("SSYSWAPR" "ssyswapr_" %%SSYSWAPR %SSYSWAPR) + ("SSYTD2" "ssytd2_" %%SSYTD2 %SSYTD2) + ("SSYTF2" "ssytf2_" %%SSYTF2 %SSYTF2) + ("SSYTF2_RK" "ssytf2_rk_" %%SSYTF2_RK %SSYTF2_RK) + ("SSYTF2_ROOK" "ssytf2_rook_" %%SSYTF2_ROOK %SSYTF2_ROOK) + ("SSYTRD" "ssytrd_" %%SSYTRD %SSYTRD) + ("SSYTRD_2STAGE" "ssytrd_2stage_" %%SSYTRD_2STAGE + %SSYTRD_2STAGE) + ("SSYTRD_SY2SB" "ssytrd_sy2sb_" %%SSYTRD_SY2SB + %SSYTRD_SY2SB) + ("SSYTRF" "ssytrf_" %%SSYTRF %SSYTRF) + ("SSYTRF_AA" "ssytrf_aa_" %%SSYTRF_AA %SSYTRF_AA) + ("SSYTRF_AA_2STAGE" "ssytrf_aa_2stage_" + %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE) + ("SSYTRF_RK" "ssytrf_rk_" %%SSYTRF_RK %SSYTRF_RK) + ("SSYTRF_ROOK" "ssytrf_rook_" %%SSYTRF_ROOK %SSYTRF_ROOK) + ("SSYTRI" "ssytri_" %%SSYTRI %SSYTRI) + ("SSYTRI2" "ssytri2_" %%SSYTRI2 %SSYTRI2) + ("SSYTRI2X" "ssytri2x_" %%SSYTRI2X %SSYTRI2X) + ("SSYTRI_3" "ssytri_3_" %%SSYTRI_3 %SSYTRI_3) + ("SSYTRI_3X" "ssytri_3x_" %%SSYTRI_3X %SSYTRI_3X) + ("SSYTRI_ROOK" "ssytri_rook_" %%SSYTRI_ROOK %SSYTRI_ROOK) + ("SSYTRS" "ssytrs_" %%SSYTRS %SSYTRS) + ("SSYTRS2" "ssytrs2_" %%SSYTRS2 %SSYTRS2) + ("SSYTRS_3" "ssytrs_3_" %%SSYTRS_3 %SSYTRS_3) + ("SSYTRS_AA" "ssytrs_aa_" %%SSYTRS_AA %SSYTRS_AA) + ("SSYTRS_AA_2STAGE" "ssytrs_aa_2stage_" + %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE) + ("SSYTRS_ROOK" "ssytrs_rook_" %%SSYTRS_ROOK %SSYTRS_ROOK) + ("STBCON" "stbcon_" %%STBCON %STBCON) + ("STBRFS" "stbrfs_" %%STBRFS %STBRFS) + ("STBTRS" "stbtrs_" %%STBTRS %STBTRS) + ("STFSM" "stfsm_" %%STFSM %STFSM) + ("STFTRI" "stftri_" %%STFTRI %STFTRI) + ("STFTTP" "stfttp_" %%STFTTP %STFTTP) + ("STFTTR" "stfttr_" %%STFTTR %STFTTR) + ("STGEVC" "stgevc_" %%STGEVC %STGEVC) + ("STGEX2" "stgex2_" %%STGEX2 %STGEX2) + ("STGEXC" "stgexc_" %%STGEXC %STGEXC) + ("STGSEN" "stgsen_" %%STGSEN %STGSEN) + ("STGSJA" "stgsja_" %%STGSJA %STGSJA) + ("STGSNA" "stgsna_" %%STGSNA %STGSNA) + ("STGSY2" "stgsy2_" %%STGSY2 %STGSY2) + ("STGSYL" "stgsyl_" %%STGSYL %STGSYL) + ("STPCON" "stpcon_" %%STPCON %STPCON) + ("STPLQT" "stplqt_" %%STPLQT %STPLQT) + ("STPLQT2" "stplqt2_" %%STPLQT2 %STPLQT2) + ("STPMLQT" "stpmlqt_" %%STPMLQT %STPMLQT) + ("STPMQRT" "stpmqrt_" %%STPMQRT %STPMQRT) + ("STPQRT" "stpqrt_" %%STPQRT %STPQRT) + ("STPQRT2" "stpqrt2_" %%STPQRT2 %STPQRT2) + ("STPRFB" "stprfb_" %%STPRFB %STPRFB) + ("STPRFS" "stprfs_" %%STPRFS %STPRFS) + ("STPTRI" "stptri_" %%STPTRI %STPTRI) + ("STPTRS" "stptrs_" %%STPTRS %STPTRS) + ("STPTTF" "stpttf_" %%STPTTF %STPTTF) + ("STPTTR" "stpttr_" %%STPTTR %STPTTR) + ("STRCON" "strcon_" %%STRCON %STRCON) + ("STREVC" "strevc_" %%STREVC %STREVC) + ("STREVC3" "strevc3_" %%STREVC3 %STREVC3) + ("STREXC" "strexc_" %%STREXC %STREXC) + ("STRRFS" "strrfs_" %%STRRFS %STRRFS) + ("STRSEN" "strsen_" %%STRSEN %STRSEN) + ("STRSNA" "strsna_" %%STRSNA %STRSNA) + ("STRSYL" "strsyl_" %%STRSYL %STRSYL) + ("STRTI2" "strti2_" %%STRTI2 %STRTI2) + ("STRTRI" "strtri_" %%STRTRI %STRTRI) + ("STRTRS" "strtrs_" %%STRTRS %STRTRS) + ("STRTTF" "strttf_" %%STRTTF %STRTTF) + ("STRTTP" "strttp_" %%STRTTP %STRTTP) + ("STZRZF" "stzrzf_" %%STZRZF %STZRZF))) (COMMON-LISP:EXPORT '(%SLASDA %SLASDQ %SLASDT %SLASET %SLASQ1 %SLASQ2 %SLASQ3 %SLASQ4 %SLASQ5 diff --git a/src/bindings/lapack06-cffi.lisp b/src/bindings/lapack06-cffi.lisp index 2480c54d..f93dc6c1 100644 --- a/src/bindings/lapack06-cffi.lisp +++ b/src/bindings/lapack06-cffi.lisp @@ -16651,292 +16651,290 @@ %%ZLAMSWLQ %ZLAMSWLQ %%ZLAMTSQR %ZLAMTSQR %%ZLANGB %ZLANGB %%ZLANGE %ZLANGE %%ZLANGT %ZLANGT %%ZLANHB %ZLANHB %%ZLANHE %ZLANHE)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - ':MAGICL) - '(("XERBLA" "xerbla_" %%XERBLA %XERBLA) - ("XERBLA_ARRAY" "xerbla_array_" %%XERBLA_ARRAY - %XERBLA_ARRAY) - ("ZBBCSD" "zbbcsd_" %%ZBBCSD %ZBBCSD) - ("ZBDSQR" "zbdsqr_" %%ZBDSQR %ZBDSQR) - ("ZCGESV" "zcgesv_" %%ZCGESV %ZCGESV) - ("ZCPOSV" "zcposv_" %%ZCPOSV %ZCPOSV) - ("ZDRSCL" "zdrscl_" %%ZDRSCL %ZDRSCL) - ("ZGBBRD" "zgbbrd_" %%ZGBBRD %ZGBBRD) - ("ZGBCON" "zgbcon_" %%ZGBCON %ZGBCON) - ("ZGBEQU" "zgbequ_" %%ZGBEQU %ZGBEQU) - ("ZGBEQUB" "zgbequb_" %%ZGBEQUB %ZGBEQUB) - ("ZGBRFS" "zgbrfs_" %%ZGBRFS %ZGBRFS) - ("ZGBRFSX" "zgbrfsx_" %%ZGBRFSX %ZGBRFSX) - ("ZGBSV" "zgbsv_" %%ZGBSV %ZGBSV) - ("ZGBSVX" "zgbsvx_" %%ZGBSVX %ZGBSVX) - ("ZGBSVXX" "zgbsvxx_" %%ZGBSVXX %ZGBSVXX) - ("ZGBTF2" "zgbtf2_" %%ZGBTF2 %ZGBTF2) - ("ZGBTRF" "zgbtrf_" %%ZGBTRF %ZGBTRF) - ("ZGBTRS" "zgbtrs_" %%ZGBTRS %ZGBTRS) - ("ZGEBAK" "zgebak_" %%ZGEBAK %ZGEBAK) - ("ZGEBAL" "zgebal_" %%ZGEBAL %ZGEBAL) - ("ZGEBD2" "zgebd2_" %%ZGEBD2 %ZGEBD2) - ("ZGEBRD" "zgebrd_" %%ZGEBRD %ZGEBRD) - ("ZGECON" "zgecon_" %%ZGECON %ZGECON) - ("ZGEEQU" "zgeequ_" %%ZGEEQU %ZGEEQU) - ("ZGEEQUB" "zgeequb_" %%ZGEEQUB %ZGEEQUB) - ("ZGEES" "zgees_" %%ZGEES %ZGEES) - ("ZGEESX" "zgeesx_" %%ZGEESX %ZGEESX) - ("ZGEEV" "zgeev_" %%ZGEEV %ZGEEV) - ("ZGEEVX" "zgeevx_" %%ZGEEVX %ZGEEVX) - ("ZGEHD2" "zgehd2_" %%ZGEHD2 %ZGEHD2) - ("ZGEHRD" "zgehrd_" %%ZGEHRD %ZGEHRD) - ("ZGEJSV" "zgejsv_" %%ZGEJSV %ZGEJSV) - ("ZGELQ" "zgelq_" %%ZGELQ %ZGELQ) - ("ZGELQ2" "zgelq2_" %%ZGELQ2 %ZGELQ2) - ("ZGELQF" "zgelqf_" %%ZGELQF %ZGELQF) - ("ZGELQT" "zgelqt_" %%ZGELQT %ZGELQT) - ("ZGELQT3" "zgelqt3_" %%ZGELQT3 %ZGELQT3) - ("ZGELS" "zgels_" %%ZGELS %ZGELS) - ("ZGELSD" "zgelsd_" %%ZGELSD %ZGELSD) - ("ZGELSS" "zgelss_" %%ZGELSS %ZGELSS) - ("ZGELSY" "zgelsy_" %%ZGELSY %ZGELSY) - ("ZGEMLQ" "zgemlq_" %%ZGEMLQ %ZGEMLQ) - ("ZGEMLQT" "zgemlqt_" %%ZGEMLQT %ZGEMLQT) - ("ZGEMQR" "zgemqr_" %%ZGEMQR %ZGEMQR) - ("ZGEMQRT" "zgemqrt_" %%ZGEMQRT %ZGEMQRT) - ("ZGEQL2" "zgeql2_" %%ZGEQL2 %ZGEQL2) - ("ZGEQLF" "zgeqlf_" %%ZGEQLF %ZGEQLF) - ("ZGEQP3" "zgeqp3_" %%ZGEQP3 %ZGEQP3) - ("ZGEQR" "zgeqr_" %%ZGEQR %ZGEQR) - ("ZGEQR2" "zgeqr2_" %%ZGEQR2 %ZGEQR2) - ("ZGEQR2P" "zgeqr2p_" %%ZGEQR2P %ZGEQR2P) - ("ZGEQRF" "zgeqrf_" %%ZGEQRF %ZGEQRF) - ("ZGEQRFP" "zgeqrfp_" %%ZGEQRFP %ZGEQRFP) - ("ZGEQRT" "zgeqrt_" %%ZGEQRT %ZGEQRT) - ("ZGEQRT2" "zgeqrt2_" %%ZGEQRT2 %ZGEQRT2) - ("ZGEQRT3" "zgeqrt3_" %%ZGEQRT3 %ZGEQRT3) - ("ZGERFS" "zgerfs_" %%ZGERFS %ZGERFS) - ("ZGERFSX" "zgerfsx_" %%ZGERFSX %ZGERFSX) - ("ZGERQ2" "zgerq2_" %%ZGERQ2 %ZGERQ2) - ("ZGERQF" "zgerqf_" %%ZGERQF %ZGERQF) - ("ZGESC2" "zgesc2_" %%ZGESC2 %ZGESC2) - ("ZGESDD" "zgesdd_" %%ZGESDD %ZGESDD) - ("ZGESV" "zgesv_" %%ZGESV %ZGESV) - ("ZGESVD" "zgesvd_" %%ZGESVD %ZGESVD) - ("ZGESVDQ" "zgesvdq_" %%ZGESVDQ %ZGESVDQ) - ("ZGESVDX" "zgesvdx_" %%ZGESVDX %ZGESVDX) - ("ZGESVJ" "zgesvj_" %%ZGESVJ %ZGESVJ) - ("ZGESVX" "zgesvx_" %%ZGESVX %ZGESVX) - ("ZGESVXX" "zgesvxx_" %%ZGESVXX %ZGESVXX) - ("ZGETC2" "zgetc2_" %%ZGETC2 %ZGETC2) - ("ZGETF2" "zgetf2_" %%ZGETF2 %ZGETF2) - ("ZGETRF" "zgetrf_" %%ZGETRF %ZGETRF) - ("ZGETRF2" "zgetrf2_" %%ZGETRF2 %ZGETRF2) - ("ZGETRI" "zgetri_" %%ZGETRI %ZGETRI) - ("ZGETRS" "zgetrs_" %%ZGETRS %ZGETRS) - ("ZGETSLS" "zgetsls_" %%ZGETSLS %ZGETSLS) - ("ZGGBAK" "zggbak_" %%ZGGBAK %ZGGBAK) - ("ZGGBAL" "zggbal_" %%ZGGBAL %ZGGBAL) - ("ZGGES" "zgges_" %%ZGGES %ZGGES) - ("ZGGES3" "zgges3_" %%ZGGES3 %ZGGES3) - ("ZGGESX" "zggesx_" %%ZGGESX %ZGGESX) - ("ZGGEV" "zggev_" %%ZGGEV %ZGGEV) - ("ZGGEV3" "zggev3_" %%ZGGEV3 %ZGGEV3) - ("ZGGEVX" "zggevx_" %%ZGGEVX %ZGGEVX) - ("ZGGGLM" "zggglm_" %%ZGGGLM %ZGGGLM) - ("ZGGHD3" "zgghd3_" %%ZGGHD3 %ZGGHD3) - ("ZGGHRD" "zgghrd_" %%ZGGHRD %ZGGHRD) - ("ZGGLSE" "zgglse_" %%ZGGLSE %ZGGLSE) - ("ZGGQRF" "zggqrf_" %%ZGGQRF %ZGGQRF) - ("ZGGRQF" "zggrqf_" %%ZGGRQF %ZGGRQF) - ("ZGGSVD3" "zggsvd3_" %%ZGGSVD3 %ZGGSVD3) - ("ZGGSVP3" "zggsvp3_" %%ZGGSVP3 %ZGGSVP3) - ("ZGSVJ0" "zgsvj0_" %%ZGSVJ0 %ZGSVJ0) - ("ZGSVJ1" "zgsvj1_" %%ZGSVJ1 %ZGSVJ1) - ("ZGTCON" "zgtcon_" %%ZGTCON %ZGTCON) - ("ZGTRFS" "zgtrfs_" %%ZGTRFS %ZGTRFS) - ("ZGTSV" "zgtsv_" %%ZGTSV %ZGTSV) - ("ZGTSVX" "zgtsvx_" %%ZGTSVX %ZGTSVX) - ("ZGTTRF" "zgttrf_" %%ZGTTRF %ZGTTRF) - ("ZGTTRS" "zgttrs_" %%ZGTTRS %ZGTTRS) - ("ZGTTS2" "zgtts2_" %%ZGTTS2 %ZGTTS2) - ("ZHB2ST_KERNELS" "zhb2st_kernels_" %%ZHB2ST_KERNELS - %ZHB2ST_KERNELS) - ("ZHBEV" "zhbev_" %%ZHBEV %ZHBEV) - ("ZHBEV_2STAGE" "zhbev_2stage_" %%ZHBEV_2STAGE - %ZHBEV_2STAGE) - ("ZHBEVD" "zhbevd_" %%ZHBEVD %ZHBEVD) - ("ZHBEVD_2STAGE" "zhbevd_2stage_" %%ZHBEVD_2STAGE - %ZHBEVD_2STAGE) - ("ZHBEVX" "zhbevx_" %%ZHBEVX %ZHBEVX) - ("ZHBEVX_2STAGE" "zhbevx_2stage_" %%ZHBEVX_2STAGE - %ZHBEVX_2STAGE) - ("ZHBGST" "zhbgst_" %%ZHBGST %ZHBGST) - ("ZHBGV" "zhbgv_" %%ZHBGV %ZHBGV) - ("ZHBGVD" "zhbgvd_" %%ZHBGVD %ZHBGVD) - ("ZHBGVX" "zhbgvx_" %%ZHBGVX %ZHBGVX) - ("ZHBTRD" "zhbtrd_" %%ZHBTRD %ZHBTRD) - ("ZHECON" "zhecon_" %%ZHECON %ZHECON) - ("ZHECON_3" "zhecon_3_" %%ZHECON_3 %ZHECON_3) - ("ZHECON_ROOK" "zhecon_rook_" %%ZHECON_ROOK %ZHECON_ROOK) - ("ZHEEQUB" "zheequb_" %%ZHEEQUB %ZHEEQUB) - ("ZHEEV" "zheev_" %%ZHEEV %ZHEEV) - ("ZHEEV_2STAGE" "zheev_2stage_" %%ZHEEV_2STAGE - %ZHEEV_2STAGE) - ("ZHEEVD" "zheevd_" %%ZHEEVD %ZHEEVD) - ("ZHEEVD_2STAGE" "zheevd_2stage_" %%ZHEEVD_2STAGE - %ZHEEVD_2STAGE) - ("ZHEEVR" "zheevr_" %%ZHEEVR %ZHEEVR) - ("ZHEEVR_2STAGE" "zheevr_2stage_" %%ZHEEVR_2STAGE - %ZHEEVR_2STAGE) - ("ZHEEVX" "zheevx_" %%ZHEEVX %ZHEEVX) - ("ZHEEVX_2STAGE" "zheevx_2stage_" %%ZHEEVX_2STAGE - %ZHEEVX_2STAGE) - ("ZHEGS2" "zhegs2_" %%ZHEGS2 %ZHEGS2) - ("ZHEGST" "zhegst_" %%ZHEGST %ZHEGST) - ("ZHEGV" "zhegv_" %%ZHEGV %ZHEGV) - ("ZHEGV_2STAGE" "zhegv_2stage_" %%ZHEGV_2STAGE - %ZHEGV_2STAGE) - ("ZHEGVD" "zhegvd_" %%ZHEGVD %ZHEGVD) - ("ZHEGVX" "zhegvx_" %%ZHEGVX %ZHEGVX) - ("ZHERFS" "zherfs_" %%ZHERFS %ZHERFS) - ("ZHERFSX" "zherfsx_" %%ZHERFSX %ZHERFSX) - ("ZHESV" "zhesv_" %%ZHESV %ZHESV) - ("ZHESV_AA" "zhesv_aa_" %%ZHESV_AA %ZHESV_AA) - ("ZHESV_AA_2STAGE" "zhesv_aa_2stage_" %%ZHESV_AA_2STAGE - %ZHESV_AA_2STAGE) - ("ZHESV_RK" "zhesv_rk_" %%ZHESV_RK %ZHESV_RK) - ("ZHESV_ROOK" "zhesv_rook_" %%ZHESV_ROOK %ZHESV_ROOK) - ("ZHESVX" "zhesvx_" %%ZHESVX %ZHESVX) - ("ZHESVXX" "zhesvxx_" %%ZHESVXX %ZHESVXX) - ("ZHESWAPR" "zheswapr_" %%ZHESWAPR %ZHESWAPR) - ("ZHETD2" "zhetd2_" %%ZHETD2 %ZHETD2) - ("ZHETF2" "zhetf2_" %%ZHETF2 %ZHETF2) - ("ZHETF2_RK" "zhetf2_rk_" %%ZHETF2_RK %ZHETF2_RK) - ("ZHETF2_ROOK" "zhetf2_rook_" %%ZHETF2_ROOK %ZHETF2_ROOK) - ("ZHETRD" "zhetrd_" %%ZHETRD %ZHETRD) - ("ZHETRD_2STAGE" "zhetrd_2stage_" %%ZHETRD_2STAGE - %ZHETRD_2STAGE) - ("ZHETRD_HE2HB" "zhetrd_he2hb_" %%ZHETRD_HE2HB - %ZHETRD_HE2HB) - ("ZHETRF" "zhetrf_" %%ZHETRF %ZHETRF) - ("ZHETRF_AA" "zhetrf_aa_" %%ZHETRF_AA %ZHETRF_AA) - ("ZHETRF_AA_2STAGE" "zhetrf_aa_2stage_" - %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE) - ("ZHETRF_RK" "zhetrf_rk_" %%ZHETRF_RK %ZHETRF_RK) - ("ZHETRF_ROOK" "zhetrf_rook_" %%ZHETRF_ROOK %ZHETRF_ROOK) - ("ZHETRI" "zhetri_" %%ZHETRI %ZHETRI) - ("ZHETRI2" "zhetri2_" %%ZHETRI2 %ZHETRI2) - ("ZHETRI2X" "zhetri2x_" %%ZHETRI2X %ZHETRI2X) - ("ZHETRI_3" "zhetri_3_" %%ZHETRI_3 %ZHETRI_3) - ("ZHETRI_3X" "zhetri_3x_" %%ZHETRI_3X %ZHETRI_3X) - ("ZHETRI_ROOK" "zhetri_rook_" %%ZHETRI_ROOK %ZHETRI_ROOK) - ("ZHETRS" "zhetrs_" %%ZHETRS %ZHETRS) - ("ZHETRS2" "zhetrs2_" %%ZHETRS2 %ZHETRS2) - ("ZHETRS_3" "zhetrs_3_" %%ZHETRS_3 %ZHETRS_3) - ("ZHETRS_AA" "zhetrs_aa_" %%ZHETRS_AA %ZHETRS_AA) - ("ZHETRS_AA_2STAGE" "zhetrs_aa_2stage_" - %%ZHETRS_AA_2STAGE %ZHETRS_AA_2STAGE) - ("ZHETRS_ROOK" "zhetrs_rook_" %%ZHETRS_ROOK %ZHETRS_ROOK) - ("ZHFRK" "zhfrk_" %%ZHFRK %ZHFRK) - ("ZHGEQZ" "zhgeqz_" %%ZHGEQZ %ZHGEQZ) - ("ZHPCON" "zhpcon_" %%ZHPCON %ZHPCON) - ("ZHPEV" "zhpev_" %%ZHPEV %ZHPEV) - ("ZHPEVD" "zhpevd_" %%ZHPEVD %ZHPEVD) - ("ZHPEVX" "zhpevx_" %%ZHPEVX %ZHPEVX) - ("ZHPGST" "zhpgst_" %%ZHPGST %ZHPGST) - ("ZHPGV" "zhpgv_" %%ZHPGV %ZHPGV) - ("ZHPGVD" "zhpgvd_" %%ZHPGVD %ZHPGVD) - ("ZHPGVX" "zhpgvx_" %%ZHPGVX %ZHPGVX) - ("ZHPRFS" "zhprfs_" %%ZHPRFS %ZHPRFS) - ("ZHPSV" "zhpsv_" %%ZHPSV %ZHPSV) - ("ZHPSVX" "zhpsvx_" %%ZHPSVX %ZHPSVX) - ("ZHPTRD" "zhptrd_" %%ZHPTRD %ZHPTRD) - ("ZHPTRF" "zhptrf_" %%ZHPTRF %ZHPTRF) - ("ZHPTRI" "zhptri_" %%ZHPTRI %ZHPTRI) - ("ZHPTRS" "zhptrs_" %%ZHPTRS %ZHPTRS) - ("ZHSEIN" "zhsein_" %%ZHSEIN %ZHSEIN) - ("ZHSEQR" "zhseqr_" %%ZHSEQR %ZHSEQR) - ("ZLA_GBAMV" "zla_gbamv_" %%ZLA_GBAMV %ZLA_GBAMV) - ("ZLA_GBRCOND_C" "zla_gbrcond_c_" %%ZLA_GBRCOND_C - %ZLA_GBRCOND_C) - ("ZLA_GBRCOND_X" "zla_gbrcond_x_" %%ZLA_GBRCOND_X - %ZLA_GBRCOND_X) - ("ZLA_GBRFSX_EXTENDED" "zla_gbrfsx_extended_" - %%ZLA_GBRFSX_EXTENDED %ZLA_GBRFSX_EXTENDED) - ("ZLA_GBRPVGRW" "zla_gbrpvgrw_" %%ZLA_GBRPVGRW - %ZLA_GBRPVGRW) - ("ZLA_GEAMV" "zla_geamv_" %%ZLA_GEAMV %ZLA_GEAMV) - ("ZLA_GERCOND_C" "zla_gercond_c_" %%ZLA_GERCOND_C - %ZLA_GERCOND_C) - ("ZLA_GERCOND_X" "zla_gercond_x_" %%ZLA_GERCOND_X - %ZLA_GERCOND_X) - ("ZLA_GERFSX_EXTENDED" "zla_gerfsx_extended_" - %%ZLA_GERFSX_EXTENDED %ZLA_GERFSX_EXTENDED) - ("ZLA_GERPVGRW" "zla_gerpvgrw_" %%ZLA_GERPVGRW - %ZLA_GERPVGRW) - ("ZLA_HEAMV" "zla_heamv_" %%ZLA_HEAMV %ZLA_HEAMV) - ("ZLA_HERCOND_C" "zla_hercond_c_" %%ZLA_HERCOND_C - %ZLA_HERCOND_C) - ("ZLA_HERCOND_X" "zla_hercond_x_" %%ZLA_HERCOND_X - %ZLA_HERCOND_X) - ("ZLA_HERFSX_EXTENDED" "zla_herfsx_extended_" - %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED) - ("ZLA_HERPVGRW" "zla_herpvgrw_" %%ZLA_HERPVGRW - %ZLA_HERPVGRW) - ("ZLA_LIN_BERR" "zla_lin_berr_" %%ZLA_LIN_BERR - %ZLA_LIN_BERR) - ("ZLA_PORCOND_C" "zla_porcond_c_" %%ZLA_PORCOND_C - %ZLA_PORCOND_C) - ("ZLA_PORCOND_X" "zla_porcond_x_" %%ZLA_PORCOND_X - %ZLA_PORCOND_X) - ("ZLA_PORFSX_EXTENDED" "zla_porfsx_extended_" - %%ZLA_PORFSX_EXTENDED %ZLA_PORFSX_EXTENDED) - ("ZLA_PORPVGRW" "zla_porpvgrw_" %%ZLA_PORPVGRW - %ZLA_PORPVGRW) - ("ZLA_SYAMV" "zla_syamv_" %%ZLA_SYAMV %ZLA_SYAMV) - ("ZLA_SYRCOND_C" "zla_syrcond_c_" %%ZLA_SYRCOND_C - %ZLA_SYRCOND_C) - ("ZLA_SYRCOND_X" "zla_syrcond_x_" %%ZLA_SYRCOND_X - %ZLA_SYRCOND_X) - ("ZLA_SYRFSX_EXTENDED" "zla_syrfsx_extended_" - %%ZLA_SYRFSX_EXTENDED %ZLA_SYRFSX_EXTENDED) - ("ZLA_SYRPVGRW" "zla_syrpvgrw_" %%ZLA_SYRPVGRW - %ZLA_SYRPVGRW) - ("ZLA_WWADDW" "zla_wwaddw_" %%ZLA_WWADDW %ZLA_WWADDW) - ("ZLABRD" "zlabrd_" %%ZLABRD %ZLABRD) - ("ZLACGV" "zlacgv_" %%ZLACGV %ZLACGV) - ("ZLACN2" "zlacn2_" %%ZLACN2 %ZLACN2) - ("ZLACON" "zlacon_" %%ZLACON %ZLACON) - ("ZLACP2" "zlacp2_" %%ZLACP2 %ZLACP2) - ("ZLACPY" "zlacpy_" %%ZLACPY %ZLACPY) - ("ZLACRM" "zlacrm_" %%ZLACRM %ZLACRM) - ("ZLACRT" "zlacrt_" %%ZLACRT %ZLACRT) - ("ZLADIV" "zladiv_" %%ZLADIV %ZLADIV) - ("ZLAED0" "zlaed0_" %%ZLAED0 %ZLAED0) - ("ZLAED7" "zlaed7_" %%ZLAED7 %ZLAED7) - ("ZLAED8" "zlaed8_" %%ZLAED8 %ZLAED8) - ("ZLAEIN" "zlaein_" %%ZLAEIN %ZLAEIN) - ("ZLAESY" "zlaesy_" %%ZLAESY %ZLAESY) - ("ZLAEV2" "zlaev2_" %%ZLAEV2 %ZLAEV2) - ("ZLAG2C" "zlag2c_" %%ZLAG2C %ZLAG2C) - ("ZLAGS2" "zlags2_" %%ZLAGS2 %ZLAGS2) - ("ZLAGTM" "zlagtm_" %%ZLAGTM %ZLAGTM) - ("ZLAHEF" "zlahef_" %%ZLAHEF %ZLAHEF) - ("ZLAHEF_AA" "zlahef_aa_" %%ZLAHEF_AA %ZLAHEF_AA) - ("ZLAHEF_RK" "zlahef_rk_" %%ZLAHEF_RK %ZLAHEF_RK) - ("ZLAHEF_ROOK" "zlahef_rook_" %%ZLAHEF_ROOK %ZLAHEF_ROOK) - ("ZLAHQR" "zlahqr_" %%ZLAHQR %ZLAHQR) - ("ZLAHR2" "zlahr2_" %%ZLAHR2 %ZLAHR2) - ("ZLAIC1" "zlaic1_" %%ZLAIC1 %ZLAIC1) - ("ZLALS0" "zlals0_" %%ZLALS0 %ZLALS0) - ("ZLALSA" "zlalsa_" %%ZLALSA %ZLALSA) - ("ZLALSD" "zlalsd_" %%ZLALSD %ZLALSD) - ("ZLAMSWLQ" "zlamswlq_" %%ZLAMSWLQ %ZLAMSWLQ) - ("ZLAMTSQR" "zlamtsqr_" %%ZLAMTSQR %ZLAMTSQR) - ("ZLANGB" "zlangb_" %%ZLANGB %ZLANGB) - ("ZLANGE" "zlange_" %%ZLANGE %ZLANGE) - ("ZLANGT" "zlangt_" %%ZLANGT %ZLANGT) - ("ZLANHB" "zlanhb_" %%ZLANHB %ZLANHB) - ("ZLANHE" "zlanhe_" %%ZLANHE %ZLANHE))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK + '(("XERBLA" "xerbla_" %%XERBLA %XERBLA) + ("XERBLA_ARRAY" "xerbla_array_" %%XERBLA_ARRAY + %XERBLA_ARRAY) + ("ZBBCSD" "zbbcsd_" %%ZBBCSD %ZBBCSD) + ("ZBDSQR" "zbdsqr_" %%ZBDSQR %ZBDSQR) + ("ZCGESV" "zcgesv_" %%ZCGESV %ZCGESV) + ("ZCPOSV" "zcposv_" %%ZCPOSV %ZCPOSV) + ("ZDRSCL" "zdrscl_" %%ZDRSCL %ZDRSCL) + ("ZGBBRD" "zgbbrd_" %%ZGBBRD %ZGBBRD) + ("ZGBCON" "zgbcon_" %%ZGBCON %ZGBCON) + ("ZGBEQU" "zgbequ_" %%ZGBEQU %ZGBEQU) + ("ZGBEQUB" "zgbequb_" %%ZGBEQUB %ZGBEQUB) + ("ZGBRFS" "zgbrfs_" %%ZGBRFS %ZGBRFS) + ("ZGBRFSX" "zgbrfsx_" %%ZGBRFSX %ZGBRFSX) + ("ZGBSV" "zgbsv_" %%ZGBSV %ZGBSV) + ("ZGBSVX" "zgbsvx_" %%ZGBSVX %ZGBSVX) + ("ZGBSVXX" "zgbsvxx_" %%ZGBSVXX %ZGBSVXX) + ("ZGBTF2" "zgbtf2_" %%ZGBTF2 %ZGBTF2) + ("ZGBTRF" "zgbtrf_" %%ZGBTRF %ZGBTRF) + ("ZGBTRS" "zgbtrs_" %%ZGBTRS %ZGBTRS) + ("ZGEBAK" "zgebak_" %%ZGEBAK %ZGEBAK) + ("ZGEBAL" "zgebal_" %%ZGEBAL %ZGEBAL) + ("ZGEBD2" "zgebd2_" %%ZGEBD2 %ZGEBD2) + ("ZGEBRD" "zgebrd_" %%ZGEBRD %ZGEBRD) + ("ZGECON" "zgecon_" %%ZGECON %ZGECON) + ("ZGEEQU" "zgeequ_" %%ZGEEQU %ZGEEQU) + ("ZGEEQUB" "zgeequb_" %%ZGEEQUB %ZGEEQUB) + ("ZGEES" "zgees_" %%ZGEES %ZGEES) + ("ZGEESX" "zgeesx_" %%ZGEESX %ZGEESX) + ("ZGEEV" "zgeev_" %%ZGEEV %ZGEEV) + ("ZGEEVX" "zgeevx_" %%ZGEEVX %ZGEEVX) + ("ZGEHD2" "zgehd2_" %%ZGEHD2 %ZGEHD2) + ("ZGEHRD" "zgehrd_" %%ZGEHRD %ZGEHRD) + ("ZGEJSV" "zgejsv_" %%ZGEJSV %ZGEJSV) + ("ZGELQ" "zgelq_" %%ZGELQ %ZGELQ) + ("ZGELQ2" "zgelq2_" %%ZGELQ2 %ZGELQ2) + ("ZGELQF" "zgelqf_" %%ZGELQF %ZGELQF) + ("ZGELQT" "zgelqt_" %%ZGELQT %ZGELQT) + ("ZGELQT3" "zgelqt3_" %%ZGELQT3 %ZGELQT3) + ("ZGELS" "zgels_" %%ZGELS %ZGELS) + ("ZGELSD" "zgelsd_" %%ZGELSD %ZGELSD) + ("ZGELSS" "zgelss_" %%ZGELSS %ZGELSS) + ("ZGELSY" "zgelsy_" %%ZGELSY %ZGELSY) + ("ZGEMLQ" "zgemlq_" %%ZGEMLQ %ZGEMLQ) + ("ZGEMLQT" "zgemlqt_" %%ZGEMLQT %ZGEMLQT) + ("ZGEMQR" "zgemqr_" %%ZGEMQR %ZGEMQR) + ("ZGEMQRT" "zgemqrt_" %%ZGEMQRT %ZGEMQRT) + ("ZGEQL2" "zgeql2_" %%ZGEQL2 %ZGEQL2) + ("ZGEQLF" "zgeqlf_" %%ZGEQLF %ZGEQLF) + ("ZGEQP3" "zgeqp3_" %%ZGEQP3 %ZGEQP3) + ("ZGEQR" "zgeqr_" %%ZGEQR %ZGEQR) + ("ZGEQR2" "zgeqr2_" %%ZGEQR2 %ZGEQR2) + ("ZGEQR2P" "zgeqr2p_" %%ZGEQR2P %ZGEQR2P) + ("ZGEQRF" "zgeqrf_" %%ZGEQRF %ZGEQRF) + ("ZGEQRFP" "zgeqrfp_" %%ZGEQRFP %ZGEQRFP) + ("ZGEQRT" "zgeqrt_" %%ZGEQRT %ZGEQRT) + ("ZGEQRT2" "zgeqrt2_" %%ZGEQRT2 %ZGEQRT2) + ("ZGEQRT3" "zgeqrt3_" %%ZGEQRT3 %ZGEQRT3) + ("ZGERFS" "zgerfs_" %%ZGERFS %ZGERFS) + ("ZGERFSX" "zgerfsx_" %%ZGERFSX %ZGERFSX) + ("ZGERQ2" "zgerq2_" %%ZGERQ2 %ZGERQ2) + ("ZGERQF" "zgerqf_" %%ZGERQF %ZGERQF) + ("ZGESC2" "zgesc2_" %%ZGESC2 %ZGESC2) + ("ZGESDD" "zgesdd_" %%ZGESDD %ZGESDD) + ("ZGESV" "zgesv_" %%ZGESV %ZGESV) + ("ZGESVD" "zgesvd_" %%ZGESVD %ZGESVD) + ("ZGESVDQ" "zgesvdq_" %%ZGESVDQ %ZGESVDQ) + ("ZGESVDX" "zgesvdx_" %%ZGESVDX %ZGESVDX) + ("ZGESVJ" "zgesvj_" %%ZGESVJ %ZGESVJ) + ("ZGESVX" "zgesvx_" %%ZGESVX %ZGESVX) + ("ZGESVXX" "zgesvxx_" %%ZGESVXX %ZGESVXX) + ("ZGETC2" "zgetc2_" %%ZGETC2 %ZGETC2) + ("ZGETF2" "zgetf2_" %%ZGETF2 %ZGETF2) + ("ZGETRF" "zgetrf_" %%ZGETRF %ZGETRF) + ("ZGETRF2" "zgetrf2_" %%ZGETRF2 %ZGETRF2) + ("ZGETRI" "zgetri_" %%ZGETRI %ZGETRI) + ("ZGETRS" "zgetrs_" %%ZGETRS %ZGETRS) + ("ZGETSLS" "zgetsls_" %%ZGETSLS %ZGETSLS) + ("ZGGBAK" "zggbak_" %%ZGGBAK %ZGGBAK) + ("ZGGBAL" "zggbal_" %%ZGGBAL %ZGGBAL) + ("ZGGES" "zgges_" %%ZGGES %ZGGES) + ("ZGGES3" "zgges3_" %%ZGGES3 %ZGGES3) + ("ZGGESX" "zggesx_" %%ZGGESX %ZGGESX) + ("ZGGEV" "zggev_" %%ZGGEV %ZGGEV) + ("ZGGEV3" "zggev3_" %%ZGGEV3 %ZGGEV3) + ("ZGGEVX" "zggevx_" %%ZGGEVX %ZGGEVX) + ("ZGGGLM" "zggglm_" %%ZGGGLM %ZGGGLM) + ("ZGGHD3" "zgghd3_" %%ZGGHD3 %ZGGHD3) + ("ZGGHRD" "zgghrd_" %%ZGGHRD %ZGGHRD) + ("ZGGLSE" "zgglse_" %%ZGGLSE %ZGGLSE) + ("ZGGQRF" "zggqrf_" %%ZGGQRF %ZGGQRF) + ("ZGGRQF" "zggrqf_" %%ZGGRQF %ZGGRQF) + ("ZGGSVD3" "zggsvd3_" %%ZGGSVD3 %ZGGSVD3) + ("ZGGSVP3" "zggsvp3_" %%ZGGSVP3 %ZGGSVP3) + ("ZGSVJ0" "zgsvj0_" %%ZGSVJ0 %ZGSVJ0) + ("ZGSVJ1" "zgsvj1_" %%ZGSVJ1 %ZGSVJ1) + ("ZGTCON" "zgtcon_" %%ZGTCON %ZGTCON) + ("ZGTRFS" "zgtrfs_" %%ZGTRFS %ZGTRFS) + ("ZGTSV" "zgtsv_" %%ZGTSV %ZGTSV) + ("ZGTSVX" "zgtsvx_" %%ZGTSVX %ZGTSVX) + ("ZGTTRF" "zgttrf_" %%ZGTTRF %ZGTTRF) + ("ZGTTRS" "zgttrs_" %%ZGTTRS %ZGTTRS) + ("ZGTTS2" "zgtts2_" %%ZGTTS2 %ZGTTS2) + ("ZHB2ST_KERNELS" "zhb2st_kernels_" %%ZHB2ST_KERNELS + %ZHB2ST_KERNELS) + ("ZHBEV" "zhbev_" %%ZHBEV %ZHBEV) + ("ZHBEV_2STAGE" "zhbev_2stage_" %%ZHBEV_2STAGE + %ZHBEV_2STAGE) + ("ZHBEVD" "zhbevd_" %%ZHBEVD %ZHBEVD) + ("ZHBEVD_2STAGE" "zhbevd_2stage_" %%ZHBEVD_2STAGE + %ZHBEVD_2STAGE) + ("ZHBEVX" "zhbevx_" %%ZHBEVX %ZHBEVX) + ("ZHBEVX_2STAGE" "zhbevx_2stage_" %%ZHBEVX_2STAGE + %ZHBEVX_2STAGE) + ("ZHBGST" "zhbgst_" %%ZHBGST %ZHBGST) + ("ZHBGV" "zhbgv_" %%ZHBGV %ZHBGV) + ("ZHBGVD" "zhbgvd_" %%ZHBGVD %ZHBGVD) + ("ZHBGVX" "zhbgvx_" %%ZHBGVX %ZHBGVX) + ("ZHBTRD" "zhbtrd_" %%ZHBTRD %ZHBTRD) + ("ZHECON" "zhecon_" %%ZHECON %ZHECON) + ("ZHECON_3" "zhecon_3_" %%ZHECON_3 %ZHECON_3) + ("ZHECON_ROOK" "zhecon_rook_" %%ZHECON_ROOK %ZHECON_ROOK) + ("ZHEEQUB" "zheequb_" %%ZHEEQUB %ZHEEQUB) + ("ZHEEV" "zheev_" %%ZHEEV %ZHEEV) + ("ZHEEV_2STAGE" "zheev_2stage_" %%ZHEEV_2STAGE + %ZHEEV_2STAGE) + ("ZHEEVD" "zheevd_" %%ZHEEVD %ZHEEVD) + ("ZHEEVD_2STAGE" "zheevd_2stage_" %%ZHEEVD_2STAGE + %ZHEEVD_2STAGE) + ("ZHEEVR" "zheevr_" %%ZHEEVR %ZHEEVR) + ("ZHEEVR_2STAGE" "zheevr_2stage_" %%ZHEEVR_2STAGE + %ZHEEVR_2STAGE) + ("ZHEEVX" "zheevx_" %%ZHEEVX %ZHEEVX) + ("ZHEEVX_2STAGE" "zheevx_2stage_" %%ZHEEVX_2STAGE + %ZHEEVX_2STAGE) + ("ZHEGS2" "zhegs2_" %%ZHEGS2 %ZHEGS2) + ("ZHEGST" "zhegst_" %%ZHEGST %ZHEGST) + ("ZHEGV" "zhegv_" %%ZHEGV %ZHEGV) + ("ZHEGV_2STAGE" "zhegv_2stage_" %%ZHEGV_2STAGE + %ZHEGV_2STAGE) + ("ZHEGVD" "zhegvd_" %%ZHEGVD %ZHEGVD) + ("ZHEGVX" "zhegvx_" %%ZHEGVX %ZHEGVX) + ("ZHERFS" "zherfs_" %%ZHERFS %ZHERFS) + ("ZHERFSX" "zherfsx_" %%ZHERFSX %ZHERFSX) + ("ZHESV" "zhesv_" %%ZHESV %ZHESV) + ("ZHESV_AA" "zhesv_aa_" %%ZHESV_AA %ZHESV_AA) + ("ZHESV_AA_2STAGE" "zhesv_aa_2stage_" %%ZHESV_AA_2STAGE + %ZHESV_AA_2STAGE) + ("ZHESV_RK" "zhesv_rk_" %%ZHESV_RK %ZHESV_RK) + ("ZHESV_ROOK" "zhesv_rook_" %%ZHESV_ROOK %ZHESV_ROOK) + ("ZHESVX" "zhesvx_" %%ZHESVX %ZHESVX) + ("ZHESVXX" "zhesvxx_" %%ZHESVXX %ZHESVXX) + ("ZHESWAPR" "zheswapr_" %%ZHESWAPR %ZHESWAPR) + ("ZHETD2" "zhetd2_" %%ZHETD2 %ZHETD2) + ("ZHETF2" "zhetf2_" %%ZHETF2 %ZHETF2) + ("ZHETF2_RK" "zhetf2_rk_" %%ZHETF2_RK %ZHETF2_RK) + ("ZHETF2_ROOK" "zhetf2_rook_" %%ZHETF2_ROOK %ZHETF2_ROOK) + ("ZHETRD" "zhetrd_" %%ZHETRD %ZHETRD) + ("ZHETRD_2STAGE" "zhetrd_2stage_" %%ZHETRD_2STAGE + %ZHETRD_2STAGE) + ("ZHETRD_HE2HB" "zhetrd_he2hb_" %%ZHETRD_HE2HB + %ZHETRD_HE2HB) + ("ZHETRF" "zhetrf_" %%ZHETRF %ZHETRF) + ("ZHETRF_AA" "zhetrf_aa_" %%ZHETRF_AA %ZHETRF_AA) + ("ZHETRF_AA_2STAGE" "zhetrf_aa_2stage_" + %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE) + ("ZHETRF_RK" "zhetrf_rk_" %%ZHETRF_RK %ZHETRF_RK) + ("ZHETRF_ROOK" "zhetrf_rook_" %%ZHETRF_ROOK %ZHETRF_ROOK) + ("ZHETRI" "zhetri_" %%ZHETRI %ZHETRI) + ("ZHETRI2" "zhetri2_" %%ZHETRI2 %ZHETRI2) + ("ZHETRI2X" "zhetri2x_" %%ZHETRI2X %ZHETRI2X) + ("ZHETRI_3" "zhetri_3_" %%ZHETRI_3 %ZHETRI_3) + ("ZHETRI_3X" "zhetri_3x_" %%ZHETRI_3X %ZHETRI_3X) + ("ZHETRI_ROOK" "zhetri_rook_" %%ZHETRI_ROOK %ZHETRI_ROOK) + ("ZHETRS" "zhetrs_" %%ZHETRS %ZHETRS) + ("ZHETRS2" "zhetrs2_" %%ZHETRS2 %ZHETRS2) + ("ZHETRS_3" "zhetrs_3_" %%ZHETRS_3 %ZHETRS_3) + ("ZHETRS_AA" "zhetrs_aa_" %%ZHETRS_AA %ZHETRS_AA) + ("ZHETRS_AA_2STAGE" "zhetrs_aa_2stage_" + %%ZHETRS_AA_2STAGE %ZHETRS_AA_2STAGE) + ("ZHETRS_ROOK" "zhetrs_rook_" %%ZHETRS_ROOK %ZHETRS_ROOK) + ("ZHFRK" "zhfrk_" %%ZHFRK %ZHFRK) + ("ZHGEQZ" "zhgeqz_" %%ZHGEQZ %ZHGEQZ) + ("ZHPCON" "zhpcon_" %%ZHPCON %ZHPCON) + ("ZHPEV" "zhpev_" %%ZHPEV %ZHPEV) + ("ZHPEVD" "zhpevd_" %%ZHPEVD %ZHPEVD) + ("ZHPEVX" "zhpevx_" %%ZHPEVX %ZHPEVX) + ("ZHPGST" "zhpgst_" %%ZHPGST %ZHPGST) + ("ZHPGV" "zhpgv_" %%ZHPGV %ZHPGV) + ("ZHPGVD" "zhpgvd_" %%ZHPGVD %ZHPGVD) + ("ZHPGVX" "zhpgvx_" %%ZHPGVX %ZHPGVX) + ("ZHPRFS" "zhprfs_" %%ZHPRFS %ZHPRFS) + ("ZHPSV" "zhpsv_" %%ZHPSV %ZHPSV) + ("ZHPSVX" "zhpsvx_" %%ZHPSVX %ZHPSVX) + ("ZHPTRD" "zhptrd_" %%ZHPTRD %ZHPTRD) + ("ZHPTRF" "zhptrf_" %%ZHPTRF %ZHPTRF) + ("ZHPTRI" "zhptri_" %%ZHPTRI %ZHPTRI) + ("ZHPTRS" "zhptrs_" %%ZHPTRS %ZHPTRS) + ("ZHSEIN" "zhsein_" %%ZHSEIN %ZHSEIN) + ("ZHSEQR" "zhseqr_" %%ZHSEQR %ZHSEQR) + ("ZLA_GBAMV" "zla_gbamv_" %%ZLA_GBAMV %ZLA_GBAMV) + ("ZLA_GBRCOND_C" "zla_gbrcond_c_" %%ZLA_GBRCOND_C + %ZLA_GBRCOND_C) + ("ZLA_GBRCOND_X" "zla_gbrcond_x_" %%ZLA_GBRCOND_X + %ZLA_GBRCOND_X) + ("ZLA_GBRFSX_EXTENDED" "zla_gbrfsx_extended_" + %%ZLA_GBRFSX_EXTENDED %ZLA_GBRFSX_EXTENDED) + ("ZLA_GBRPVGRW" "zla_gbrpvgrw_" %%ZLA_GBRPVGRW + %ZLA_GBRPVGRW) + ("ZLA_GEAMV" "zla_geamv_" %%ZLA_GEAMV %ZLA_GEAMV) + ("ZLA_GERCOND_C" "zla_gercond_c_" %%ZLA_GERCOND_C + %ZLA_GERCOND_C) + ("ZLA_GERCOND_X" "zla_gercond_x_" %%ZLA_GERCOND_X + %ZLA_GERCOND_X) + ("ZLA_GERFSX_EXTENDED" "zla_gerfsx_extended_" + %%ZLA_GERFSX_EXTENDED %ZLA_GERFSX_EXTENDED) + ("ZLA_GERPVGRW" "zla_gerpvgrw_" %%ZLA_GERPVGRW + %ZLA_GERPVGRW) + ("ZLA_HEAMV" "zla_heamv_" %%ZLA_HEAMV %ZLA_HEAMV) + ("ZLA_HERCOND_C" "zla_hercond_c_" %%ZLA_HERCOND_C + %ZLA_HERCOND_C) + ("ZLA_HERCOND_X" "zla_hercond_x_" %%ZLA_HERCOND_X + %ZLA_HERCOND_X) + ("ZLA_HERFSX_EXTENDED" "zla_herfsx_extended_" + %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED) + ("ZLA_HERPVGRW" "zla_herpvgrw_" %%ZLA_HERPVGRW + %ZLA_HERPVGRW) + ("ZLA_LIN_BERR" "zla_lin_berr_" %%ZLA_LIN_BERR + %ZLA_LIN_BERR) + ("ZLA_PORCOND_C" "zla_porcond_c_" %%ZLA_PORCOND_C + %ZLA_PORCOND_C) + ("ZLA_PORCOND_X" "zla_porcond_x_" %%ZLA_PORCOND_X + %ZLA_PORCOND_X) + ("ZLA_PORFSX_EXTENDED" "zla_porfsx_extended_" + %%ZLA_PORFSX_EXTENDED %ZLA_PORFSX_EXTENDED) + ("ZLA_PORPVGRW" "zla_porpvgrw_" %%ZLA_PORPVGRW + %ZLA_PORPVGRW) + ("ZLA_SYAMV" "zla_syamv_" %%ZLA_SYAMV %ZLA_SYAMV) + ("ZLA_SYRCOND_C" "zla_syrcond_c_" %%ZLA_SYRCOND_C + %ZLA_SYRCOND_C) + ("ZLA_SYRCOND_X" "zla_syrcond_x_" %%ZLA_SYRCOND_X + %ZLA_SYRCOND_X) + ("ZLA_SYRFSX_EXTENDED" "zla_syrfsx_extended_" + %%ZLA_SYRFSX_EXTENDED %ZLA_SYRFSX_EXTENDED) + ("ZLA_SYRPVGRW" "zla_syrpvgrw_" %%ZLA_SYRPVGRW + %ZLA_SYRPVGRW) + ("ZLA_WWADDW" "zla_wwaddw_" %%ZLA_WWADDW %ZLA_WWADDW) + ("ZLABRD" "zlabrd_" %%ZLABRD %ZLABRD) + ("ZLACGV" "zlacgv_" %%ZLACGV %ZLACGV) + ("ZLACN2" "zlacn2_" %%ZLACN2 %ZLACN2) + ("ZLACON" "zlacon_" %%ZLACON %ZLACON) + ("ZLACP2" "zlacp2_" %%ZLACP2 %ZLACP2) + ("ZLACPY" "zlacpy_" %%ZLACPY %ZLACPY) + ("ZLACRM" "zlacrm_" %%ZLACRM %ZLACRM) + ("ZLACRT" "zlacrt_" %%ZLACRT %ZLACRT) + ("ZLADIV" "zladiv_" %%ZLADIV %ZLADIV) + ("ZLAED0" "zlaed0_" %%ZLAED0 %ZLAED0) + ("ZLAED7" "zlaed7_" %%ZLAED7 %ZLAED7) + ("ZLAED8" "zlaed8_" %%ZLAED8 %ZLAED8) + ("ZLAEIN" "zlaein_" %%ZLAEIN %ZLAEIN) + ("ZLAESY" "zlaesy_" %%ZLAESY %ZLAESY) + ("ZLAEV2" "zlaev2_" %%ZLAEV2 %ZLAEV2) + ("ZLAG2C" "zlag2c_" %%ZLAG2C %ZLAG2C) + ("ZLAGS2" "zlags2_" %%ZLAGS2 %ZLAGS2) + ("ZLAGTM" "zlagtm_" %%ZLAGTM %ZLAGTM) + ("ZLAHEF" "zlahef_" %%ZLAHEF %ZLAHEF) + ("ZLAHEF_AA" "zlahef_aa_" %%ZLAHEF_AA %ZLAHEF_AA) + ("ZLAHEF_RK" "zlahef_rk_" %%ZLAHEF_RK %ZLAHEF_RK) + ("ZLAHEF_ROOK" "zlahef_rook_" %%ZLAHEF_ROOK %ZLAHEF_ROOK) + ("ZLAHQR" "zlahqr_" %%ZLAHQR %ZLAHQR) + ("ZLAHR2" "zlahr2_" %%ZLAHR2 %ZLAHR2) + ("ZLAIC1" "zlaic1_" %%ZLAIC1 %ZLAIC1) + ("ZLALS0" "zlals0_" %%ZLALS0 %ZLALS0) + ("ZLALSA" "zlalsa_" %%ZLALSA %ZLALSA) + ("ZLALSD" "zlalsd_" %%ZLALSD %ZLALSD) + ("ZLAMSWLQ" "zlamswlq_" %%ZLAMSWLQ %ZLAMSWLQ) + ("ZLAMTSQR" "zlamtsqr_" %%ZLAMTSQR %ZLAMTSQR) + ("ZLANGB" "zlangb_" %%ZLANGB %ZLANGB) + ("ZLANGE" "zlange_" %%ZLANGE %ZLANGE) + ("ZLANGT" "zlangt_" %%ZLANGT %ZLANGT) + ("ZLANHB" "zlanhb_" %%ZLANHB %ZLANHB) + ("ZLANHE" "zlanhe_" %%ZLANHE %ZLANHE))) (COMMON-LISP:EXPORT '(%XERBLA %XERBLA_ARRAY %ZBBCSD %ZBDSQR %ZCGESV %ZCPOSV %ZDRSCL %ZGBBRD diff --git a/src/bindings/lapack07-cffi.lisp b/src/bindings/lapack07-cffi.lisp index a12dc4db..2a2ea449 100644 --- a/src/bindings/lapack07-cffi.lisp +++ b/src/bindings/lapack07-cffi.lisp @@ -13791,258 +13791,256 @@ %ZUNMR3 %%ZUNMRQ %ZUNMRQ %%ZUNMRZ %ZUNMRZ %%ZUNMTR %ZUNMTR %%ZUPGTR %ZUPGTR %%ZUPMTR %ZUPMTR)) -(COMMON-LISP:SETF (COMMON-LISP:GETF - (COMMON-LISP:SYMBOL-PLIST - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - ':MAGICL) - '(("ZLANHF" "zlanhf_" %%ZLANHF %ZLANHF) - ("ZLANHP" "zlanhp_" %%ZLANHP %ZLANHP) - ("ZLANHS" "zlanhs_" %%ZLANHS %ZLANHS) - ("ZLANHT" "zlanht_" %%ZLANHT %ZLANHT) - ("ZLANSB" "zlansb_" %%ZLANSB %ZLANSB) - ("ZLANSP" "zlansp_" %%ZLANSP %ZLANSP) - ("ZLANSY" "zlansy_" %%ZLANSY %ZLANSY) - ("ZLANTB" "zlantb_" %%ZLANTB %ZLANTB) - ("ZLANTP" "zlantp_" %%ZLANTP %ZLANTP) - ("ZLANTR" "zlantr_" %%ZLANTR %ZLANTR) - ("ZLAPLL" "zlapll_" %%ZLAPLL %ZLAPLL) - ("ZLAPMR" "zlapmr_" %%ZLAPMR %ZLAPMR) - ("ZLAPMT" "zlapmt_" %%ZLAPMT %ZLAPMT) - ("ZLAQGB" "zlaqgb_" %%ZLAQGB %ZLAQGB) - ("ZLAQGE" "zlaqge_" %%ZLAQGE %ZLAQGE) - ("ZLAQHB" "zlaqhb_" %%ZLAQHB %ZLAQHB) - ("ZLAQHE" "zlaqhe_" %%ZLAQHE %ZLAQHE) - ("ZLAQHP" "zlaqhp_" %%ZLAQHP %ZLAQHP) - ("ZLAQP2" "zlaqp2_" %%ZLAQP2 %ZLAQP2) - ("ZLAQPS" "zlaqps_" %%ZLAQPS %ZLAQPS) - ("ZLAQR0" "zlaqr0_" %%ZLAQR0 %ZLAQR0) - ("ZLAQR1" "zlaqr1_" %%ZLAQR1 %ZLAQR1) - ("ZLAQR2" "zlaqr2_" %%ZLAQR2 %ZLAQR2) - ("ZLAQR3" "zlaqr3_" %%ZLAQR3 %ZLAQR3) - ("ZLAQR4" "zlaqr4_" %%ZLAQR4 %ZLAQR4) - ("ZLAQR5" "zlaqr5_" %%ZLAQR5 %ZLAQR5) - ("ZLAQSB" "zlaqsb_" %%ZLAQSB %ZLAQSB) - ("ZLAQSP" "zlaqsp_" %%ZLAQSP %ZLAQSP) - ("ZLAQSY" "zlaqsy_" %%ZLAQSY %ZLAQSY) - ("ZLAR1V" "zlar1v_" %%ZLAR1V %ZLAR1V) - ("ZLAR2V" "zlar2v_" %%ZLAR2V %ZLAR2V) - ("ZLARCM" "zlarcm_" %%ZLARCM %ZLARCM) - ("ZLARF" "zlarf_" %%ZLARF %ZLARF) - ("ZLARFB" "zlarfb_" %%ZLARFB %ZLARFB) - ("ZLARFG" "zlarfg_" %%ZLARFG %ZLARFG) - ("ZLARFGP" "zlarfgp_" %%ZLARFGP %ZLARFGP) - ("ZLARFT" "zlarft_" %%ZLARFT %ZLARFT) - ("ZLARFX" "zlarfx_" %%ZLARFX %ZLARFX) - ("ZLARFY" "zlarfy_" %%ZLARFY %ZLARFY) - ("ZLARGV" "zlargv_" %%ZLARGV %ZLARGV) - ("ZLARNV" "zlarnv_" %%ZLARNV %ZLARNV) - ("ZLARRV" "zlarrv_" %%ZLARRV %ZLARRV) - ("ZLARSCL2" "zlarscl2_" %%ZLARSCL2 %ZLARSCL2) - ("ZLARTG" "zlartg_" %%ZLARTG %ZLARTG) - ("ZLARTV" "zlartv_" %%ZLARTV %ZLARTV) - ("ZLARZ" "zlarz_" %%ZLARZ %ZLARZ) - ("ZLARZB" "zlarzb_" %%ZLARZB %ZLARZB) - ("ZLARZT" "zlarzt_" %%ZLARZT %ZLARZT) - ("ZLASCL" "zlascl_" %%ZLASCL %ZLASCL) - ("ZLASCL2" "zlascl2_" %%ZLASCL2 %ZLASCL2) - ("ZLASET" "zlaset_" %%ZLASET %ZLASET) - ("ZLASR" "zlasr_" %%ZLASR %ZLASR) - ("ZLASSQ" "zlassq_" %%ZLASSQ %ZLASSQ) - ("ZLASWLQ" "zlaswlq_" %%ZLASWLQ %ZLASWLQ) - ("ZLASWP" "zlaswp_" %%ZLASWP %ZLASWP) - ("ZLASYF" "zlasyf_" %%ZLASYF %ZLASYF) - ("ZLASYF_AA" "zlasyf_aa_" %%ZLASYF_AA %ZLASYF_AA) - ("ZLASYF_RK" "zlasyf_rk_" %%ZLASYF_RK %ZLASYF_RK) - ("ZLASYF_ROOK" "zlasyf_rook_" %%ZLASYF_ROOK %ZLASYF_ROOK) - ("ZLAT2C" "zlat2c_" %%ZLAT2C %ZLAT2C) - ("ZLATBS" "zlatbs_" %%ZLATBS %ZLATBS) - ("ZLATDF" "zlatdf_" %%ZLATDF %ZLATDF) - ("ZLATPS" "zlatps_" %%ZLATPS %ZLATPS) - ("ZLATRD" "zlatrd_" %%ZLATRD %ZLATRD) - ("ZLATRS" "zlatrs_" %%ZLATRS %ZLATRS) - ("ZLATRZ" "zlatrz_" %%ZLATRZ %ZLATRZ) - ("ZLATSQR" "zlatsqr_" %%ZLATSQR %ZLATSQR) - ("ZLAUU2" "zlauu2_" %%ZLAUU2 %ZLAUU2) - ("ZLAUUM" "zlauum_" %%ZLAUUM %ZLAUUM) - ("ZPBCON" "zpbcon_" %%ZPBCON %ZPBCON) - ("ZPBEQU" "zpbequ_" %%ZPBEQU %ZPBEQU) - ("ZPBRFS" "zpbrfs_" %%ZPBRFS %ZPBRFS) - ("ZPBSTF" "zpbstf_" %%ZPBSTF %ZPBSTF) - ("ZPBSV" "zpbsv_" %%ZPBSV %ZPBSV) - ("ZPBSVX" "zpbsvx_" %%ZPBSVX %ZPBSVX) - ("ZPBTF2" "zpbtf2_" %%ZPBTF2 %ZPBTF2) - ("ZPBTRF" "zpbtrf_" %%ZPBTRF %ZPBTRF) - ("ZPBTRS" "zpbtrs_" %%ZPBTRS %ZPBTRS) - ("ZPFTRF" "zpftrf_" %%ZPFTRF %ZPFTRF) - ("ZPFTRI" "zpftri_" %%ZPFTRI %ZPFTRI) - ("ZPFTRS" "zpftrs_" %%ZPFTRS %ZPFTRS) - ("ZPOCON" "zpocon_" %%ZPOCON %ZPOCON) - ("ZPOEQU" "zpoequ_" %%ZPOEQU %ZPOEQU) - ("ZPOEQUB" "zpoequb_" %%ZPOEQUB %ZPOEQUB) - ("ZPORFS" "zporfs_" %%ZPORFS %ZPORFS) - ("ZPORFSX" "zporfsx_" %%ZPORFSX %ZPORFSX) - ("ZPOSV" "zposv_" %%ZPOSV %ZPOSV) - ("ZPOSVX" "zposvx_" %%ZPOSVX %ZPOSVX) - ("ZPOSVXX" "zposvxx_" %%ZPOSVXX %ZPOSVXX) - ("ZPOTF2" "zpotf2_" %%ZPOTF2 %ZPOTF2) - ("ZPOTRF" "zpotrf_" %%ZPOTRF %ZPOTRF) - ("ZPOTRF2" "zpotrf2_" %%ZPOTRF2 %ZPOTRF2) - ("ZPOTRI" "zpotri_" %%ZPOTRI %ZPOTRI) - ("ZPOTRS" "zpotrs_" %%ZPOTRS %ZPOTRS) - ("ZPPCON" "zppcon_" %%ZPPCON %ZPPCON) - ("ZPPEQU" "zppequ_" %%ZPPEQU %ZPPEQU) - ("ZPPRFS" "zpprfs_" %%ZPPRFS %ZPPRFS) - ("ZPPSV" "zppsv_" %%ZPPSV %ZPPSV) - ("ZPPSVX" "zppsvx_" %%ZPPSVX %ZPPSVX) - ("ZPPTRF" "zpptrf_" %%ZPPTRF %ZPPTRF) - ("ZPPTRI" "zpptri_" %%ZPPTRI %ZPPTRI) - ("ZPPTRS" "zpptrs_" %%ZPPTRS %ZPPTRS) - ("ZPSTF2" "zpstf2_" %%ZPSTF2 %ZPSTF2) - ("ZPSTRF" "zpstrf_" %%ZPSTRF %ZPSTRF) - ("ZPTCON" "zptcon_" %%ZPTCON %ZPTCON) - ("ZPTEQR" "zpteqr_" %%ZPTEQR %ZPTEQR) - ("ZPTRFS" "zptrfs_" %%ZPTRFS %ZPTRFS) - ("ZPTSV" "zptsv_" %%ZPTSV %ZPTSV) - ("ZPTSVX" "zptsvx_" %%ZPTSVX %ZPTSVX) - ("ZPTTRF" "zpttrf_" %%ZPTTRF %ZPTTRF) - ("ZPTTRS" "zpttrs_" %%ZPTTRS %ZPTTRS) - ("ZPTTS2" "zptts2_" %%ZPTTS2 %ZPTTS2) - ("ZROT" "zrot_" %%ZROT %ZROT) - ("ZSPCON" "zspcon_" %%ZSPCON %ZSPCON) - ("ZSPMV" "zspmv_" %%ZSPMV %ZSPMV) - ("ZSPR" "zspr_" %%ZSPR %ZSPR) - ("ZSPRFS" "zsprfs_" %%ZSPRFS %ZSPRFS) - ("ZSPSV" "zspsv_" %%ZSPSV %ZSPSV) - ("ZSPSVX" "zspsvx_" %%ZSPSVX %ZSPSVX) - ("ZSPTRF" "zsptrf_" %%ZSPTRF %ZSPTRF) - ("ZSPTRI" "zsptri_" %%ZSPTRI %ZSPTRI) - ("ZSPTRS" "zsptrs_" %%ZSPTRS %ZSPTRS) - ("ZSTEDC" "zstedc_" %%ZSTEDC %ZSTEDC) - ("ZSTEGR" "zstegr_" %%ZSTEGR %ZSTEGR) - ("ZSTEIN" "zstein_" %%ZSTEIN %ZSTEIN) - ("ZSTEMR" "zstemr_" %%ZSTEMR %ZSTEMR) - ("ZSTEQR" "zsteqr_" %%ZSTEQR %ZSTEQR) - ("ZSYCON" "zsycon_" %%ZSYCON %ZSYCON) - ("ZSYCON_3" "zsycon_3_" %%ZSYCON_3 %ZSYCON_3) - ("ZSYCON_ROOK" "zsycon_rook_" %%ZSYCON_ROOK %ZSYCON_ROOK) - ("ZSYCONV" "zsyconv_" %%ZSYCONV %ZSYCONV) - ("ZSYCONVF" "zsyconvf_" %%ZSYCONVF %ZSYCONVF) - ("ZSYCONVF_ROOK" "zsyconvf_rook_" %%ZSYCONVF_ROOK - %ZSYCONVF_ROOK) - ("ZSYEQUB" "zsyequb_" %%ZSYEQUB %ZSYEQUB) - ("ZSYMV" "zsymv_" %%ZSYMV %ZSYMV) - ("ZSYR" "zsyr_" %%ZSYR %ZSYR) - ("ZSYRFS" "zsyrfs_" %%ZSYRFS %ZSYRFS) - ("ZSYRFSX" "zsyrfsx_" %%ZSYRFSX %ZSYRFSX) - ("ZSYSV" "zsysv_" %%ZSYSV %ZSYSV) - ("ZSYSV_AA" "zsysv_aa_" %%ZSYSV_AA %ZSYSV_AA) - ("ZSYSV_AA_2STAGE" "zsysv_aa_2stage_" %%ZSYSV_AA_2STAGE - %ZSYSV_AA_2STAGE) - ("ZSYSV_RK" "zsysv_rk_" %%ZSYSV_RK %ZSYSV_RK) - ("ZSYSV_ROOK" "zsysv_rook_" %%ZSYSV_ROOK %ZSYSV_ROOK) - ("ZSYSVX" "zsysvx_" %%ZSYSVX %ZSYSVX) - ("ZSYSVXX" "zsysvxx_" %%ZSYSVXX %ZSYSVXX) - ("ZSYSWAPR" "zsyswapr_" %%ZSYSWAPR %ZSYSWAPR) - ("ZSYTF2" "zsytf2_" %%ZSYTF2 %ZSYTF2) - ("ZSYTF2_RK" "zsytf2_rk_" %%ZSYTF2_RK %ZSYTF2_RK) - ("ZSYTF2_ROOK" "zsytf2_rook_" %%ZSYTF2_ROOK %ZSYTF2_ROOK) - ("ZSYTRF" "zsytrf_" %%ZSYTRF %ZSYTRF) - ("ZSYTRF_AA" "zsytrf_aa_" %%ZSYTRF_AA %ZSYTRF_AA) - ("ZSYTRF_AA_2STAGE" "zsytrf_aa_2stage_" - %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE) - ("ZSYTRF_RK" "zsytrf_rk_" %%ZSYTRF_RK %ZSYTRF_RK) - ("ZSYTRF_ROOK" "zsytrf_rook_" %%ZSYTRF_ROOK %ZSYTRF_ROOK) - ("ZSYTRI" "zsytri_" %%ZSYTRI %ZSYTRI) - ("ZSYTRI2" "zsytri2_" %%ZSYTRI2 %ZSYTRI2) - ("ZSYTRI2X" "zsytri2x_" %%ZSYTRI2X %ZSYTRI2X) - ("ZSYTRI_3" "zsytri_3_" %%ZSYTRI_3 %ZSYTRI_3) - ("ZSYTRI_3X" "zsytri_3x_" %%ZSYTRI_3X %ZSYTRI_3X) - ("ZSYTRI_ROOK" "zsytri_rook_" %%ZSYTRI_ROOK %ZSYTRI_ROOK) - ("ZSYTRS" "zsytrs_" %%ZSYTRS %ZSYTRS) - ("ZSYTRS2" "zsytrs2_" %%ZSYTRS2 %ZSYTRS2) - ("ZSYTRS_3" "zsytrs_3_" %%ZSYTRS_3 %ZSYTRS_3) - ("ZSYTRS_AA" "zsytrs_aa_" %%ZSYTRS_AA %ZSYTRS_AA) - ("ZSYTRS_AA_2STAGE" "zsytrs_aa_2stage_" - %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE) - ("ZSYTRS_ROOK" "zsytrs_rook_" %%ZSYTRS_ROOK %ZSYTRS_ROOK) - ("ZTBCON" "ztbcon_" %%ZTBCON %ZTBCON) - ("ZTBRFS" "ztbrfs_" %%ZTBRFS %ZTBRFS) - ("ZTBTRS" "ztbtrs_" %%ZTBTRS %ZTBTRS) - ("ZTFSM" "ztfsm_" %%ZTFSM %ZTFSM) - ("ZTFTRI" "ztftri_" %%ZTFTRI %ZTFTRI) - ("ZTFTTP" "ztfttp_" %%ZTFTTP %ZTFTTP) - ("ZTFTTR" "ztfttr_" %%ZTFTTR %ZTFTTR) - ("ZTGEVC" "ztgevc_" %%ZTGEVC %ZTGEVC) - ("ZTGEX2" "ztgex2_" %%ZTGEX2 %ZTGEX2) - ("ZTGEXC" "ztgexc_" %%ZTGEXC %ZTGEXC) - ("ZTGSEN" "ztgsen_" %%ZTGSEN %ZTGSEN) - ("ZTGSJA" "ztgsja_" %%ZTGSJA %ZTGSJA) - ("ZTGSNA" "ztgsna_" %%ZTGSNA %ZTGSNA) - ("ZTGSY2" "ztgsy2_" %%ZTGSY2 %ZTGSY2) - ("ZTGSYL" "ztgsyl_" %%ZTGSYL %ZTGSYL) - ("ZTPCON" "ztpcon_" %%ZTPCON %ZTPCON) - ("ZTPLQT" "ztplqt_" %%ZTPLQT %ZTPLQT) - ("ZTPLQT2" "ztplqt2_" %%ZTPLQT2 %ZTPLQT2) - ("ZTPMLQT" "ztpmlqt_" %%ZTPMLQT %ZTPMLQT) - ("ZTPMQRT" "ztpmqrt_" %%ZTPMQRT %ZTPMQRT) - ("ZTPQRT" "ztpqrt_" %%ZTPQRT %ZTPQRT) - ("ZTPQRT2" "ztpqrt2_" %%ZTPQRT2 %ZTPQRT2) - ("ZTPRFB" "ztprfb_" %%ZTPRFB %ZTPRFB) - ("ZTPRFS" "ztprfs_" %%ZTPRFS %ZTPRFS) - ("ZTPTRI" "ztptri_" %%ZTPTRI %ZTPTRI) - ("ZTPTRS" "ztptrs_" %%ZTPTRS %ZTPTRS) - ("ZTPTTF" "ztpttf_" %%ZTPTTF %ZTPTTF) - ("ZTPTTR" "ztpttr_" %%ZTPTTR %ZTPTTR) - ("ZTRCON" "ztrcon_" %%ZTRCON %ZTRCON) - ("ZTREVC" "ztrevc_" %%ZTREVC %ZTREVC) - ("ZTREVC3" "ztrevc3_" %%ZTREVC3 %ZTREVC3) - ("ZTREXC" "ztrexc_" %%ZTREXC %ZTREXC) - ("ZTRRFS" "ztrrfs_" %%ZTRRFS %ZTRRFS) - ("ZTRSEN" "ztrsen_" %%ZTRSEN %ZTRSEN) - ("ZTRSNA" "ztrsna_" %%ZTRSNA %ZTRSNA) - ("ZTRSYL" "ztrsyl_" %%ZTRSYL %ZTRSYL) - ("ZTRTI2" "ztrti2_" %%ZTRTI2 %ZTRTI2) - ("ZTRTRI" "ztrtri_" %%ZTRTRI %ZTRTRI) - ("ZTRTRS" "ztrtrs_" %%ZTRTRS %ZTRTRS) - ("ZTRTTF" "ztrttf_" %%ZTRTTF %ZTRTTF) - ("ZTRTTP" "ztrttp_" %%ZTRTTP %ZTRTTP) - ("ZTZRZF" "ztzrzf_" %%ZTZRZF %ZTZRZF) - ("ZUNBDB" "zunbdb_" %%ZUNBDB %ZUNBDB) - ("ZUNBDB1" "zunbdb1_" %%ZUNBDB1 %ZUNBDB1) - ("ZUNBDB2" "zunbdb2_" %%ZUNBDB2 %ZUNBDB2) - ("ZUNBDB3" "zunbdb3_" %%ZUNBDB3 %ZUNBDB3) - ("ZUNBDB4" "zunbdb4_" %%ZUNBDB4 %ZUNBDB4) - ("ZUNBDB5" "zunbdb5_" %%ZUNBDB5 %ZUNBDB5) - ("ZUNBDB6" "zunbdb6_" %%ZUNBDB6 %ZUNBDB6) - ("ZUNCSD" "zuncsd_" %%ZUNCSD %ZUNCSD) - ("ZUNCSD2BY1" "zuncsd2by1_" %%ZUNCSD2BY1 %ZUNCSD2BY1) - ("ZUNG2L" "zung2l_" %%ZUNG2L %ZUNG2L) - ("ZUNG2R" "zung2r_" %%ZUNG2R %ZUNG2R) - ("ZUNGBR" "zungbr_" %%ZUNGBR %ZUNGBR) - ("ZUNGHR" "zunghr_" %%ZUNGHR %ZUNGHR) - ("ZUNGL2" "zungl2_" %%ZUNGL2 %ZUNGL2) - ("ZUNGLQ" "zunglq_" %%ZUNGLQ %ZUNGLQ) - ("ZUNGQL" "zungql_" %%ZUNGQL %ZUNGQL) - ("ZUNGQR" "zungqr_" %%ZUNGQR %ZUNGQR) - ("ZUNGR2" "zungr2_" %%ZUNGR2 %ZUNGR2) - ("ZUNGRQ" "zungrq_" %%ZUNGRQ %ZUNGRQ) - ("ZUNGTR" "zungtr_" %%ZUNGTR %ZUNGTR) - ("ZUNM22" "zunm22_" %%ZUNM22 %ZUNM22) - ("ZUNM2L" "zunm2l_" %%ZUNM2L %ZUNM2L) - ("ZUNM2R" "zunm2r_" %%ZUNM2R %ZUNM2R) - ("ZUNMBR" "zunmbr_" %%ZUNMBR %ZUNMBR) - ("ZUNMHR" "zunmhr_" %%ZUNMHR %ZUNMHR) - ("ZUNML2" "zunml2_" %%ZUNML2 %ZUNML2) - ("ZUNMLQ" "zunmlq_" %%ZUNMLQ %ZUNMLQ) - ("ZUNMQL" "zunmql_" %%ZUNMQL %ZUNMQL) - ("ZUNMQR" "zunmqr_" %%ZUNMQR %ZUNMQR) - ("ZUNMR2" "zunmr2_" %%ZUNMR2 %ZUNMR2) - ("ZUNMR3" "zunmr3_" %%ZUNMR3 %ZUNMR3) - ("ZUNMRQ" "zunmrq_" %%ZUNMRQ %ZUNMRQ) - ("ZUNMRZ" "zunmrz_" %%ZUNMRZ %ZUNMRZ) - ("ZUNMTR" "zunmtr_" %%ZUNMTR %ZUNMTR) - ("ZUPGTR" "zupgtr_" %%ZUPGTR %ZUPGTR) - ("ZUPMTR" "zupmtr_" %%ZUPMTR %ZUPMTR))) +(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS + 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK + '(("ZLANHF" "zlanhf_" %%ZLANHF %ZLANHF) + ("ZLANHP" "zlanhp_" %%ZLANHP %ZLANHP) + ("ZLANHS" "zlanhs_" %%ZLANHS %ZLANHS) + ("ZLANHT" "zlanht_" %%ZLANHT %ZLANHT) + ("ZLANSB" "zlansb_" %%ZLANSB %ZLANSB) + ("ZLANSP" "zlansp_" %%ZLANSP %ZLANSP) + ("ZLANSY" "zlansy_" %%ZLANSY %ZLANSY) + ("ZLANTB" "zlantb_" %%ZLANTB %ZLANTB) + ("ZLANTP" "zlantp_" %%ZLANTP %ZLANTP) + ("ZLANTR" "zlantr_" %%ZLANTR %ZLANTR) + ("ZLAPLL" "zlapll_" %%ZLAPLL %ZLAPLL) + ("ZLAPMR" "zlapmr_" %%ZLAPMR %ZLAPMR) + ("ZLAPMT" "zlapmt_" %%ZLAPMT %ZLAPMT) + ("ZLAQGB" "zlaqgb_" %%ZLAQGB %ZLAQGB) + ("ZLAQGE" "zlaqge_" %%ZLAQGE %ZLAQGE) + ("ZLAQHB" "zlaqhb_" %%ZLAQHB %ZLAQHB) + ("ZLAQHE" "zlaqhe_" %%ZLAQHE %ZLAQHE) + ("ZLAQHP" "zlaqhp_" %%ZLAQHP %ZLAQHP) + ("ZLAQP2" "zlaqp2_" %%ZLAQP2 %ZLAQP2) + ("ZLAQPS" "zlaqps_" %%ZLAQPS %ZLAQPS) + ("ZLAQR0" "zlaqr0_" %%ZLAQR0 %ZLAQR0) + ("ZLAQR1" "zlaqr1_" %%ZLAQR1 %ZLAQR1) + ("ZLAQR2" "zlaqr2_" %%ZLAQR2 %ZLAQR2) + ("ZLAQR3" "zlaqr3_" %%ZLAQR3 %ZLAQR3) + ("ZLAQR4" "zlaqr4_" %%ZLAQR4 %ZLAQR4) + ("ZLAQR5" "zlaqr5_" %%ZLAQR5 %ZLAQR5) + ("ZLAQSB" "zlaqsb_" %%ZLAQSB %ZLAQSB) + ("ZLAQSP" "zlaqsp_" %%ZLAQSP %ZLAQSP) + ("ZLAQSY" "zlaqsy_" %%ZLAQSY %ZLAQSY) + ("ZLAR1V" "zlar1v_" %%ZLAR1V %ZLAR1V) + ("ZLAR2V" "zlar2v_" %%ZLAR2V %ZLAR2V) + ("ZLARCM" "zlarcm_" %%ZLARCM %ZLARCM) + ("ZLARF" "zlarf_" %%ZLARF %ZLARF) + ("ZLARFB" "zlarfb_" %%ZLARFB %ZLARFB) + ("ZLARFG" "zlarfg_" %%ZLARFG %ZLARFG) + ("ZLARFGP" "zlarfgp_" %%ZLARFGP %ZLARFGP) + ("ZLARFT" "zlarft_" %%ZLARFT %ZLARFT) + ("ZLARFX" "zlarfx_" %%ZLARFX %ZLARFX) + ("ZLARFY" "zlarfy_" %%ZLARFY %ZLARFY) + ("ZLARGV" "zlargv_" %%ZLARGV %ZLARGV) + ("ZLARNV" "zlarnv_" %%ZLARNV %ZLARNV) + ("ZLARRV" "zlarrv_" %%ZLARRV %ZLARRV) + ("ZLARSCL2" "zlarscl2_" %%ZLARSCL2 %ZLARSCL2) + ("ZLARTG" "zlartg_" %%ZLARTG %ZLARTG) + ("ZLARTV" "zlartv_" %%ZLARTV %ZLARTV) + ("ZLARZ" "zlarz_" %%ZLARZ %ZLARZ) + ("ZLARZB" "zlarzb_" %%ZLARZB %ZLARZB) + ("ZLARZT" "zlarzt_" %%ZLARZT %ZLARZT) + ("ZLASCL" "zlascl_" %%ZLASCL %ZLASCL) + ("ZLASCL2" "zlascl2_" %%ZLASCL2 %ZLASCL2) + ("ZLASET" "zlaset_" %%ZLASET %ZLASET) + ("ZLASR" "zlasr_" %%ZLASR %ZLASR) + ("ZLASSQ" "zlassq_" %%ZLASSQ %ZLASSQ) + ("ZLASWLQ" "zlaswlq_" %%ZLASWLQ %ZLASWLQ) + ("ZLASWP" "zlaswp_" %%ZLASWP %ZLASWP) + ("ZLASYF" "zlasyf_" %%ZLASYF %ZLASYF) + ("ZLASYF_AA" "zlasyf_aa_" %%ZLASYF_AA %ZLASYF_AA) + ("ZLASYF_RK" "zlasyf_rk_" %%ZLASYF_RK %ZLASYF_RK) + ("ZLASYF_ROOK" "zlasyf_rook_" %%ZLASYF_ROOK %ZLASYF_ROOK) + ("ZLAT2C" "zlat2c_" %%ZLAT2C %ZLAT2C) + ("ZLATBS" "zlatbs_" %%ZLATBS %ZLATBS) + ("ZLATDF" "zlatdf_" %%ZLATDF %ZLATDF) + ("ZLATPS" "zlatps_" %%ZLATPS %ZLATPS) + ("ZLATRD" "zlatrd_" %%ZLATRD %ZLATRD) + ("ZLATRS" "zlatrs_" %%ZLATRS %ZLATRS) + ("ZLATRZ" "zlatrz_" %%ZLATRZ %ZLATRZ) + ("ZLATSQR" "zlatsqr_" %%ZLATSQR %ZLATSQR) + ("ZLAUU2" "zlauu2_" %%ZLAUU2 %ZLAUU2) + ("ZLAUUM" "zlauum_" %%ZLAUUM %ZLAUUM) + ("ZPBCON" "zpbcon_" %%ZPBCON %ZPBCON) + ("ZPBEQU" "zpbequ_" %%ZPBEQU %ZPBEQU) + ("ZPBRFS" "zpbrfs_" %%ZPBRFS %ZPBRFS) + ("ZPBSTF" "zpbstf_" %%ZPBSTF %ZPBSTF) + ("ZPBSV" "zpbsv_" %%ZPBSV %ZPBSV) + ("ZPBSVX" "zpbsvx_" %%ZPBSVX %ZPBSVX) + ("ZPBTF2" "zpbtf2_" %%ZPBTF2 %ZPBTF2) + ("ZPBTRF" "zpbtrf_" %%ZPBTRF %ZPBTRF) + ("ZPBTRS" "zpbtrs_" %%ZPBTRS %ZPBTRS) + ("ZPFTRF" "zpftrf_" %%ZPFTRF %ZPFTRF) + ("ZPFTRI" "zpftri_" %%ZPFTRI %ZPFTRI) + ("ZPFTRS" "zpftrs_" %%ZPFTRS %ZPFTRS) + ("ZPOCON" "zpocon_" %%ZPOCON %ZPOCON) + ("ZPOEQU" "zpoequ_" %%ZPOEQU %ZPOEQU) + ("ZPOEQUB" "zpoequb_" %%ZPOEQUB %ZPOEQUB) + ("ZPORFS" "zporfs_" %%ZPORFS %ZPORFS) + ("ZPORFSX" "zporfsx_" %%ZPORFSX %ZPORFSX) + ("ZPOSV" "zposv_" %%ZPOSV %ZPOSV) + ("ZPOSVX" "zposvx_" %%ZPOSVX %ZPOSVX) + ("ZPOSVXX" "zposvxx_" %%ZPOSVXX %ZPOSVXX) + ("ZPOTF2" "zpotf2_" %%ZPOTF2 %ZPOTF2) + ("ZPOTRF" "zpotrf_" %%ZPOTRF %ZPOTRF) + ("ZPOTRF2" "zpotrf2_" %%ZPOTRF2 %ZPOTRF2) + ("ZPOTRI" "zpotri_" %%ZPOTRI %ZPOTRI) + ("ZPOTRS" "zpotrs_" %%ZPOTRS %ZPOTRS) + ("ZPPCON" "zppcon_" %%ZPPCON %ZPPCON) + ("ZPPEQU" "zppequ_" %%ZPPEQU %ZPPEQU) + ("ZPPRFS" "zpprfs_" %%ZPPRFS %ZPPRFS) + ("ZPPSV" "zppsv_" %%ZPPSV %ZPPSV) + ("ZPPSVX" "zppsvx_" %%ZPPSVX %ZPPSVX) + ("ZPPTRF" "zpptrf_" %%ZPPTRF %ZPPTRF) + ("ZPPTRI" "zpptri_" %%ZPPTRI %ZPPTRI) + ("ZPPTRS" "zpptrs_" %%ZPPTRS %ZPPTRS) + ("ZPSTF2" "zpstf2_" %%ZPSTF2 %ZPSTF2) + ("ZPSTRF" "zpstrf_" %%ZPSTRF %ZPSTRF) + ("ZPTCON" "zptcon_" %%ZPTCON %ZPTCON) + ("ZPTEQR" "zpteqr_" %%ZPTEQR %ZPTEQR) + ("ZPTRFS" "zptrfs_" %%ZPTRFS %ZPTRFS) + ("ZPTSV" "zptsv_" %%ZPTSV %ZPTSV) + ("ZPTSVX" "zptsvx_" %%ZPTSVX %ZPTSVX) + ("ZPTTRF" "zpttrf_" %%ZPTTRF %ZPTTRF) + ("ZPTTRS" "zpttrs_" %%ZPTTRS %ZPTTRS) + ("ZPTTS2" "zptts2_" %%ZPTTS2 %ZPTTS2) + ("ZROT" "zrot_" %%ZROT %ZROT) + ("ZSPCON" "zspcon_" %%ZSPCON %ZSPCON) + ("ZSPMV" "zspmv_" %%ZSPMV %ZSPMV) + ("ZSPR" "zspr_" %%ZSPR %ZSPR) + ("ZSPRFS" "zsprfs_" %%ZSPRFS %ZSPRFS) + ("ZSPSV" "zspsv_" %%ZSPSV %ZSPSV) + ("ZSPSVX" "zspsvx_" %%ZSPSVX %ZSPSVX) + ("ZSPTRF" "zsptrf_" %%ZSPTRF %ZSPTRF) + ("ZSPTRI" "zsptri_" %%ZSPTRI %ZSPTRI) + ("ZSPTRS" "zsptrs_" %%ZSPTRS %ZSPTRS) + ("ZSTEDC" "zstedc_" %%ZSTEDC %ZSTEDC) + ("ZSTEGR" "zstegr_" %%ZSTEGR %ZSTEGR) + ("ZSTEIN" "zstein_" %%ZSTEIN %ZSTEIN) + ("ZSTEMR" "zstemr_" %%ZSTEMR %ZSTEMR) + ("ZSTEQR" "zsteqr_" %%ZSTEQR %ZSTEQR) + ("ZSYCON" "zsycon_" %%ZSYCON %ZSYCON) + ("ZSYCON_3" "zsycon_3_" %%ZSYCON_3 %ZSYCON_3) + ("ZSYCON_ROOK" "zsycon_rook_" %%ZSYCON_ROOK %ZSYCON_ROOK) + ("ZSYCONV" "zsyconv_" %%ZSYCONV %ZSYCONV) + ("ZSYCONVF" "zsyconvf_" %%ZSYCONVF %ZSYCONVF) + ("ZSYCONVF_ROOK" "zsyconvf_rook_" %%ZSYCONVF_ROOK + %ZSYCONVF_ROOK) + ("ZSYEQUB" "zsyequb_" %%ZSYEQUB %ZSYEQUB) + ("ZSYMV" "zsymv_" %%ZSYMV %ZSYMV) + ("ZSYR" "zsyr_" %%ZSYR %ZSYR) + ("ZSYRFS" "zsyrfs_" %%ZSYRFS %ZSYRFS) + ("ZSYRFSX" "zsyrfsx_" %%ZSYRFSX %ZSYRFSX) + ("ZSYSV" "zsysv_" %%ZSYSV %ZSYSV) + ("ZSYSV_AA" "zsysv_aa_" %%ZSYSV_AA %ZSYSV_AA) + ("ZSYSV_AA_2STAGE" "zsysv_aa_2stage_" %%ZSYSV_AA_2STAGE + %ZSYSV_AA_2STAGE) + ("ZSYSV_RK" "zsysv_rk_" %%ZSYSV_RK %ZSYSV_RK) + ("ZSYSV_ROOK" "zsysv_rook_" %%ZSYSV_ROOK %ZSYSV_ROOK) + ("ZSYSVX" "zsysvx_" %%ZSYSVX %ZSYSVX) + ("ZSYSVXX" "zsysvxx_" %%ZSYSVXX %ZSYSVXX) + ("ZSYSWAPR" "zsyswapr_" %%ZSYSWAPR %ZSYSWAPR) + ("ZSYTF2" "zsytf2_" %%ZSYTF2 %ZSYTF2) + ("ZSYTF2_RK" "zsytf2_rk_" %%ZSYTF2_RK %ZSYTF2_RK) + ("ZSYTF2_ROOK" "zsytf2_rook_" %%ZSYTF2_ROOK %ZSYTF2_ROOK) + ("ZSYTRF" "zsytrf_" %%ZSYTRF %ZSYTRF) + ("ZSYTRF_AA" "zsytrf_aa_" %%ZSYTRF_AA %ZSYTRF_AA) + ("ZSYTRF_AA_2STAGE" "zsytrf_aa_2stage_" + %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE) + ("ZSYTRF_RK" "zsytrf_rk_" %%ZSYTRF_RK %ZSYTRF_RK) + ("ZSYTRF_ROOK" "zsytrf_rook_" %%ZSYTRF_ROOK %ZSYTRF_ROOK) + ("ZSYTRI" "zsytri_" %%ZSYTRI %ZSYTRI) + ("ZSYTRI2" "zsytri2_" %%ZSYTRI2 %ZSYTRI2) + ("ZSYTRI2X" "zsytri2x_" %%ZSYTRI2X %ZSYTRI2X) + ("ZSYTRI_3" "zsytri_3_" %%ZSYTRI_3 %ZSYTRI_3) + ("ZSYTRI_3X" "zsytri_3x_" %%ZSYTRI_3X %ZSYTRI_3X) + ("ZSYTRI_ROOK" "zsytri_rook_" %%ZSYTRI_ROOK %ZSYTRI_ROOK) + ("ZSYTRS" "zsytrs_" %%ZSYTRS %ZSYTRS) + ("ZSYTRS2" "zsytrs2_" %%ZSYTRS2 %ZSYTRS2) + ("ZSYTRS_3" "zsytrs_3_" %%ZSYTRS_3 %ZSYTRS_3) + ("ZSYTRS_AA" "zsytrs_aa_" %%ZSYTRS_AA %ZSYTRS_AA) + ("ZSYTRS_AA_2STAGE" "zsytrs_aa_2stage_" + %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE) + ("ZSYTRS_ROOK" "zsytrs_rook_" %%ZSYTRS_ROOK %ZSYTRS_ROOK) + ("ZTBCON" "ztbcon_" %%ZTBCON %ZTBCON) + ("ZTBRFS" "ztbrfs_" %%ZTBRFS %ZTBRFS) + ("ZTBTRS" "ztbtrs_" %%ZTBTRS %ZTBTRS) + ("ZTFSM" "ztfsm_" %%ZTFSM %ZTFSM) + ("ZTFTRI" "ztftri_" %%ZTFTRI %ZTFTRI) + ("ZTFTTP" "ztfttp_" %%ZTFTTP %ZTFTTP) + ("ZTFTTR" "ztfttr_" %%ZTFTTR %ZTFTTR) + ("ZTGEVC" "ztgevc_" %%ZTGEVC %ZTGEVC) + ("ZTGEX2" "ztgex2_" %%ZTGEX2 %ZTGEX2) + ("ZTGEXC" "ztgexc_" %%ZTGEXC %ZTGEXC) + ("ZTGSEN" "ztgsen_" %%ZTGSEN %ZTGSEN) + ("ZTGSJA" "ztgsja_" %%ZTGSJA %ZTGSJA) + ("ZTGSNA" "ztgsna_" %%ZTGSNA %ZTGSNA) + ("ZTGSY2" "ztgsy2_" %%ZTGSY2 %ZTGSY2) + ("ZTGSYL" "ztgsyl_" %%ZTGSYL %ZTGSYL) + ("ZTPCON" "ztpcon_" %%ZTPCON %ZTPCON) + ("ZTPLQT" "ztplqt_" %%ZTPLQT %ZTPLQT) + ("ZTPLQT2" "ztplqt2_" %%ZTPLQT2 %ZTPLQT2) + ("ZTPMLQT" "ztpmlqt_" %%ZTPMLQT %ZTPMLQT) + ("ZTPMQRT" "ztpmqrt_" %%ZTPMQRT %ZTPMQRT) + ("ZTPQRT" "ztpqrt_" %%ZTPQRT %ZTPQRT) + ("ZTPQRT2" "ztpqrt2_" %%ZTPQRT2 %ZTPQRT2) + ("ZTPRFB" "ztprfb_" %%ZTPRFB %ZTPRFB) + ("ZTPRFS" "ztprfs_" %%ZTPRFS %ZTPRFS) + ("ZTPTRI" "ztptri_" %%ZTPTRI %ZTPTRI) + ("ZTPTRS" "ztptrs_" %%ZTPTRS %ZTPTRS) + ("ZTPTTF" "ztpttf_" %%ZTPTTF %ZTPTTF) + ("ZTPTTR" "ztpttr_" %%ZTPTTR %ZTPTTR) + ("ZTRCON" "ztrcon_" %%ZTRCON %ZTRCON) + ("ZTREVC" "ztrevc_" %%ZTREVC %ZTREVC) + ("ZTREVC3" "ztrevc3_" %%ZTREVC3 %ZTREVC3) + ("ZTREXC" "ztrexc_" %%ZTREXC %ZTREXC) + ("ZTRRFS" "ztrrfs_" %%ZTRRFS %ZTRRFS) + ("ZTRSEN" "ztrsen_" %%ZTRSEN %ZTRSEN) + ("ZTRSNA" "ztrsna_" %%ZTRSNA %ZTRSNA) + ("ZTRSYL" "ztrsyl_" %%ZTRSYL %ZTRSYL) + ("ZTRTI2" "ztrti2_" %%ZTRTI2 %ZTRTI2) + ("ZTRTRI" "ztrtri_" %%ZTRTRI %ZTRTRI) + ("ZTRTRS" "ztrtrs_" %%ZTRTRS %ZTRTRS) + ("ZTRTTF" "ztrttf_" %%ZTRTTF %ZTRTTF) + ("ZTRTTP" "ztrttp_" %%ZTRTTP %ZTRTTP) + ("ZTZRZF" "ztzrzf_" %%ZTZRZF %ZTZRZF) + ("ZUNBDB" "zunbdb_" %%ZUNBDB %ZUNBDB) + ("ZUNBDB1" "zunbdb1_" %%ZUNBDB1 %ZUNBDB1) + ("ZUNBDB2" "zunbdb2_" %%ZUNBDB2 %ZUNBDB2) + ("ZUNBDB3" "zunbdb3_" %%ZUNBDB3 %ZUNBDB3) + ("ZUNBDB4" "zunbdb4_" %%ZUNBDB4 %ZUNBDB4) + ("ZUNBDB5" "zunbdb5_" %%ZUNBDB5 %ZUNBDB5) + ("ZUNBDB6" "zunbdb6_" %%ZUNBDB6 %ZUNBDB6) + ("ZUNCSD" "zuncsd_" %%ZUNCSD %ZUNCSD) + ("ZUNCSD2BY1" "zuncsd2by1_" %%ZUNCSD2BY1 %ZUNCSD2BY1) + ("ZUNG2L" "zung2l_" %%ZUNG2L %ZUNG2L) + ("ZUNG2R" "zung2r_" %%ZUNG2R %ZUNG2R) + ("ZUNGBR" "zungbr_" %%ZUNGBR %ZUNGBR) + ("ZUNGHR" "zunghr_" %%ZUNGHR %ZUNGHR) + ("ZUNGL2" "zungl2_" %%ZUNGL2 %ZUNGL2) + ("ZUNGLQ" "zunglq_" %%ZUNGLQ %ZUNGLQ) + ("ZUNGQL" "zungql_" %%ZUNGQL %ZUNGQL) + ("ZUNGQR" "zungqr_" %%ZUNGQR %ZUNGQR) + ("ZUNGR2" "zungr2_" %%ZUNGR2 %ZUNGR2) + ("ZUNGRQ" "zungrq_" %%ZUNGRQ %ZUNGRQ) + ("ZUNGTR" "zungtr_" %%ZUNGTR %ZUNGTR) + ("ZUNM22" "zunm22_" %%ZUNM22 %ZUNM22) + ("ZUNM2L" "zunm2l_" %%ZUNM2L %ZUNM2L) + ("ZUNM2R" "zunm2r_" %%ZUNM2R %ZUNM2R) + ("ZUNMBR" "zunmbr_" %%ZUNMBR %ZUNMBR) + ("ZUNMHR" "zunmhr_" %%ZUNMHR %ZUNMHR) + ("ZUNML2" "zunml2_" %%ZUNML2 %ZUNML2) + ("ZUNMLQ" "zunmlq_" %%ZUNMLQ %ZUNMLQ) + ("ZUNMQL" "zunmql_" %%ZUNMQL %ZUNMQL) + ("ZUNMQR" "zunmqr_" %%ZUNMQR %ZUNMQR) + ("ZUNMR2" "zunmr2_" %%ZUNMR2 %ZUNMR2) + ("ZUNMR3" "zunmr3_" %%ZUNMR3 %ZUNMR3) + ("ZUNMRQ" "zunmrq_" %%ZUNMRQ %ZUNMRQ) + ("ZUNMRZ" "zunmrz_" %%ZUNMRZ %ZUNMRZ) + ("ZUNMTR" "zunmtr_" %%ZUNMTR %ZUNMTR) + ("ZUPGTR" "zupgtr_" %%ZUPGTR %ZUPGTR) + ("ZUPMTR" "zupmtr_" %%ZUPMTR %ZUPMTR))) (COMMON-LISP:EXPORT '(%ZLANHF %ZLANHP %ZLANHS %ZLANHT %ZLANSB %ZLANSP %ZLANSY %ZLANTB %ZLANTP diff --git a/src/extensions/common/library-tracking.lisp b/src/extensions/common/library-tracking.lisp index c44c7122..8ea89458 100644 --- a/src/extensions/common/library-tracking.lisp +++ b/src/extensions/common/library-tracking.lisp @@ -14,6 +14,12 @@ Each new MAGICL extension is expected to PUSHNEW the library symbols to this var (not (cffi:null-pointer-p found)) t))) +(defun track-symbols (library symbol-quadruples) + (dolist (quad symbol-quadruples) + (pushnew quad (getf (symbol-plist library) ':magicl) + :test #'string= + :key #'first))) + (defun print-availability-report (&key (stream *standard-output*) (show-available t) (show-unavailable t) diff --git a/src/generate-interface/generate-interface.lisp b/src/generate-interface/generate-interface.lisp index 0f7eac89..6d6cb2e1 100644 --- a/src/generate-interface/generate-interface.lisp +++ b/src/generate-interface/generate-interface.lisp @@ -526,8 +526,9 @@ the CFFI binding file." (fortran-function-name ff)) (raw-call-name ff) (lisp-fun-name ff))))) - `(setf (cl:getf (cl:symbol-plist ',originating-library) ':magicl) - ',entries))) + `(magicl.foreign-libraries::track-sybmols + ',originating-library + ',entries))) ;; Exports (list From c17bdb93598ab74141188fc9b665032175ffc77d Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 17:43:07 -0700 Subject: [PATCH 44/46] fix more magicl-gen bugs --- doc/fortran-functions.md | 2 +- magicl-gen.asd | 3 ++- src/extensions/common/package.lisp | 1 + src/generate-interface/generate-interface.lisp | 12 ++++++------ 4 files changed, 10 insertions(+), 8 deletions(-) diff --git a/doc/fortran-functions.md b/doc/fortran-functions.md index 8ae35b46..9ef2a51a 100644 --- a/doc/fortran-functions.md +++ b/doc/fortran-functions.md @@ -17,7 +17,7 @@ bindings with the following commands: (ql:quickload :magicl-gen) (in-package :magicl.generate-interface) (generate-blas-files #P"/path/to/lapack-3.7.1/") -(generate-lapack-files* #P"/path/to/lapack-3.7.1/") +(generate-lapack-files* #P"/path/to/lapack-3.7.1/") ; note the '*'! (generate-expokit-files #P"/path/to/expokit/") ``` diff --git a/magicl-gen.asd b/magicl-gen.asd index 48b96f5f..8dba1f81 100755 --- a/magicl-gen.asd +++ b/magicl-gen.asd @@ -9,7 +9,8 @@ :author "Rigetti Computing" :depends-on (#:abstract-classes #:cffi - #:cffi-libffi) + #:cffi-libffi + #:magicl/ext) :serial t :components ((:file "src/extensions/common/package") diff --git a/src/extensions/common/package.lisp b/src/extensions/common/package.lisp index 25dae9da..80dc30a7 100644 --- a/src/extensions/common/package.lisp +++ b/src/extensions/common/package.lisp @@ -15,5 +15,6 @@ (defpackage #:magicl.foreign-libraries (:use #:common-lisp) (:export #:*foreign-libraries* + #:track-symbols ; used in MAGICL-GEN #:foreign-symbol-available-p #:print-availability-report)) diff --git a/src/generate-interface/generate-interface.lisp b/src/generate-interface/generate-interface.lisp index 6d6cb2e1..03a5d67f 100644 --- a/src/generate-interface/generate-interface.lisp +++ b/src/generate-interface/generate-interface.lisp @@ -526,7 +526,7 @@ the CFFI binding file." (fortran-function-name ff)) (raw-call-name ff) (lisp-fun-name ff))))) - `(magicl.foreign-libraries::track-sybmols + `(magicl.foreign-libraries:track-symbols ',originating-library ',entries))) @@ -542,7 +542,7 @@ the CFFI binding file." (defun generate-blas-file () (generate-file "blas-cffi" '#:magicl.blas-cffi - 'magicl.foreign-libraries:libblas + 'magicl.foreign-libraries::libblas #'parse-blas-files)) (defun generate-blas-files (lapack-dir) @@ -552,13 +552,13 @@ the CFFI binding file." (defun generate-lapack-file () (generate-file "lapack-cffi" '#:magicl.lapack-cffi - 'magicl.foreign-libraries:liblapack + 'magicl.foreign-libraries::liblapack #'parse-lapack-files)) (defun generate-lapack-files (file-name parser) (generate-file file-name '#:magicl.lapack-cffi - 'magicl.foreign-libraries:liblapack + 'magicl.foreign-libraries::liblapack parser)) (defun generate-lapack-files* (lapack-dir) @@ -570,7 +570,7 @@ the CFFI binding file." for file-name = (format nil "lapack~2,'0d-cffi" i) do (generate-file file-name '#:magicl.lapack-cffi - 'magicl.foreign-libraries:liblapack + 'magicl.foreign-libraries::liblapack parser))) (defun parse-expokit-files (&optional (basedir *basedir*)) @@ -583,7 +583,7 @@ the CFFI binding file." (defun generate-expokit-file () (generate-file "expokit-cffi" '#:magicl.expokit-cffi - 'magicl-expokit.foreign-libraries:libexpokit + 'magicl.foreign-libraries::libexpokit #'parse-expokit-files)) (defun generate-expokit-files (expokit-dir) From 205e019faa768b7c4b13cd119e5cb245c1347670 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 17:56:47 -0700 Subject: [PATCH 45/46] regenerate BLAS/LAPACK bindings from 3.9.0 sources --- doc/fortran-functions.md | 4 +- src/bindings/blas-cffi.lisp | 3840 ++++++------ src/bindings/expokit-cffi.lisp | 2 +- src/bindings/lapack00-cffi.lisp | 9629 +++++++++++++++--------------- src/bindings/lapack01-cffi.lisp | 8583 +++++++++++++------------- src/bindings/lapack02-cffi.lisp | 9651 +++++++++++++++--------------- src/bindings/lapack03-cffi.lisp | 8683 ++++++++++++++------------- src/bindings/lapack04-cffi.lisp | 9613 +++++++++++++++--------------- src/bindings/lapack05-cffi.lisp | 8986 ++++++++++++++-------------- src/bindings/lapack06-cffi.lisp | 9933 ++++++++++++++++--------------- src/bindings/lapack07-cffi.lisp | 8599 +++++++++++++------------- 11 files changed, 39286 insertions(+), 38237 deletions(-) diff --git a/doc/fortran-functions.md b/doc/fortran-functions.md index 9ef2a51a..c91f5adc 100644 --- a/doc/fortran-functions.md +++ b/doc/fortran-functions.md @@ -16,8 +16,8 @@ bindings with the following commands: ``` (ql:quickload :magicl-gen) (in-package :magicl.generate-interface) -(generate-blas-files #P"/path/to/lapack-3.7.1/") -(generate-lapack-files* #P"/path/to/lapack-3.7.1/") ; note the '*'! +(generate-blas-files #P"/path/to/lapack-3.9.0/") +(generate-lapack-files* #P"/path/to/lapack-3.9.0/") ; note the '*'! (generate-expokit-files #P"/path/to/expokit/") ``` diff --git a/src/bindings/blas-cffi.lisp b/src/bindings/blas-cffi.lisp index 1d99b498..dc1b76b5 100644 --- a/src/bindings/blas-cffi.lisp +++ b/src/bindings/blas-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 10/01/2017 at 18:20:41 (UTC-8). +;;;; Generated on 3/22/2021 at 17:54:24 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -39,7 +39,7 @@ %%ZSYRK %ZSYRK %%ZTBMV %ZTBMV %%ZTBSV %ZTBSV %%ZTPMV %ZTPMV %%ZTPSV %ZTPSV %%ZTRMM %ZTRMM %%ZTRMV %ZTRMV %%ZTRSM %ZTRSM %%ZTRSV %ZTRSV)) -(CFFI:DEFCFUN ("caxpy_" %%CAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("caxpy_" %%CAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (CA :POINTER) @@ -65,20 +65,23 @@ (COMMON-LISP:*)) CY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1 ':INT32) - (CA-REF2 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF4 ':INT32) (INCY-REF6 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1 :INT32) N) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23260 ':INT32) + (CA-REF23261 + 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + (INCX-REF23263 ':INT32) (INCY-REF23265 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23260 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - CA-REF2 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + CA-REF23261 + MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF6 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF3 CX) (CY-REF5 CY)) - (%%CAXPY N-REF1 CA-REF2 CX-REF3 INCX-REF4 CY-REF5 INCY-REF6)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23263 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23265 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23262 CX) (CY-REF23264 CY)) + (%%CAXPY N-REF23260 CA-REF23261 CX-REF23262 INCX-REF23263 CY-REF23264 + INCY-REF23265)))) -(CFFI:DEFCFUN ("ccopy_" %%CCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ccopy_" %%CCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (CX :POINTER) @@ -101,15 +104,16 @@ (COMMON-LISP:*)) CY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7 ':INT32) (INCX-REF9 ':INT32) - (INCY-REF11 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF9 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF11 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF8 CX) (CY-REF10 CY)) - (%%CCOPY N-REF7 CX-REF8 INCX-REF9 CY-REF10 INCY-REF11)))) - -(CFFI:DEFCFUN ("cdotc_" %%CDOTC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23266 ':INT32) (INCX-REF23268 ':INT32) + (INCY-REF23270 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23266 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23268 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23270 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23267 CX) (CY-REF23269 CY)) + (%%CCOPY N-REF23266 CX-REF23267 INCX-REF23268 CY-REF23269 + INCY-REF23270)))) + +(CFFI:DEFCFUN ("cdotc_" %%CDOTC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT (N :POINTER) (CX :POINTER) @@ -132,15 +136,16 @@ (COMMON-LISP:*)) CY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12 ':INT32) (INCX-REF14 ':INT32) - (INCY-REF16 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF16 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF13 CX) (CY-REF15 CY)) - (%%CDOTC N-REF12 CX-REF13 INCX-REF14 CY-REF15 INCY-REF16)))) - -(CFFI:DEFCFUN ("cdotu_" %%CDOTU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23271 ':INT32) (INCX-REF23273 ':INT32) + (INCY-REF23275 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23271 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23273 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23275 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23272 CX) (CY-REF23274 CY)) + (%%CDOTC N-REF23271 CX-REF23272 INCX-REF23273 CY-REF23274 + INCY-REF23275)))) + +(CFFI:DEFCFUN ("cdotu_" %%CDOTU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT (N :POINTER) (CX :POINTER) @@ -163,15 +168,16 @@ (COMMON-LISP:*)) CY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17 ':INT32) (INCX-REF19 ':INT32) - (INCY-REF21 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF18 CX) (CY-REF20 CY)) - (%%CDOTU N-REF17 CX-REF18 INCX-REF19 CY-REF20 INCY-REF21)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23276 ':INT32) (INCX-REF23278 ':INT32) + (INCY-REF23280 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23276 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23278 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23280 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23277 CX) (CY-REF23279 CY)) + (%%CDOTU N-REF23276 CX-REF23277 INCX-REF23278 CY-REF23279 + INCY-REF23280)))) -(CFFI:DEFCFUN ("cgbmv_" %%CGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("cgbmv_" %%CGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANS :STRING) (M :POINTER) @@ -216,36 +222,38 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23 ':INT32) (N-REF24 ':INT32) - (KL-REF25 ':INT32) (KU-REF26 ':INT32) - (ALPHA-REF27 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23282 ':INT32) (N-REF23283 ':INT32) + (KL-REF23284 ':INT32) (KU-REF23285 ':INT32) + (ALPHA-REF23286 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF29 ':INT32) (INCX-REF31 ':INT32) - (BETA-REF32 + (LDA-REF23288 ':INT32) (INCX-REF23290 ':INT32) + (BETA-REF23291 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCY-REF34 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF25 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF26 :INT32) KU) + (INCY-REF23293 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23282 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23283 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF23284 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF23285 :INT32) KU) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF27 + ALPHA-REF23286 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF29 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF31 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23288 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23290 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF32 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + BETA-REF23291 + MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF34 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF28 A) (X-REF30 X) (Y-REF33 Y)) - (%%CGBMV TRANS M-REF23 N-REF24 KL-REF25 KU-REF26 ALPHA-REF27 A-REF28 - LDA-REF29 X-REF30 INCX-REF31 BETA-REF32 Y-REF33 INCY-REF34)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23293 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23287 A) (X-REF23289 X) + (Y-REF23292 Y)) + (%%CGBMV TRANS M-REF23282 N-REF23283 KL-REF23284 KU-REF23285 + ALPHA-REF23286 A-REF23287 LDA-REF23288 X-REF23289 INCX-REF23290 + BETA-REF23291 Y-REF23292 INCY-REF23293)))) -(CFFI:DEFCFUN ("cgemm_" %%CGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("cgemm_" %%CGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANSA :STRING) (TRANSB :STRING) @@ -290,35 +298,37 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF37 ':INT32) (N-REF38 ':INT32) - (K-REF39 ':INT32) - (ALPHA-REF40 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23296 ':INT32) (N-REF23297 ':INT32) + (K-REF23298 ':INT32) + (ALPHA-REF23299 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF42 ':INT32) (LDB-REF44 ':INT32) - (BETA-REF45 + (LDA-REF23301 ':INT32) (LDB-REF23303 ':INT32) + (BETA-REF23304 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDC-REF47 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF37 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF38 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF39 :INT32) K) + (LDC-REF23306 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23296 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23297 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23298 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF40 + ALPHA-REF23299 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF42 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF44 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23301 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23303 :INT32) LDB) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF45 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + BETA-REF23304 + MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF47 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF41 A) (B-REF43 B) (C-REF46 C)) - (%%CGEMM TRANSA TRANSB M-REF37 N-REF38 K-REF39 ALPHA-REF40 A-REF41 - LDA-REF42 B-REF43 LDB-REF44 BETA-REF45 C-REF46 LDC-REF47)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23306 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23300 A) (B-REF23302 B) + (C-REF23305 C)) + (%%CGEMM TRANSA TRANSB M-REF23296 N-REF23297 K-REF23298 ALPHA-REF23299 + A-REF23300 LDA-REF23301 B-REF23302 LDB-REF23303 BETA-REF23304 C-REF23305 + LDC-REF23306)))) -(CFFI:DEFCFUN ("cgemv_" %%CGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("cgemv_" %%CGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANS :STRING) (M :POINTER) @@ -359,33 +369,35 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF49 ':INT32) (N-REF50 ':INT32) - (ALPHA-REF51 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23308 ':INT32) (N-REF23309 ':INT32) + (ALPHA-REF23310 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF53 ':INT32) (INCX-REF55 ':INT32) - (BETA-REF56 + (LDA-REF23312 ':INT32) (INCX-REF23314 ':INT32) + (BETA-REF23315 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCY-REF58 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF49 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF50 :INT32) N) + (INCY-REF23317 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23308 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23309 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF51 + ALPHA-REF23310 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF53 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF55 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23312 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23314 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF56 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + BETA-REF23315 + MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF58 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF52 A) (X-REF54 X) (Y-REF57 Y)) - (%%CGEMV TRANS M-REF49 N-REF50 ALPHA-REF51 A-REF52 LDA-REF53 X-REF54 - INCX-REF55 BETA-REF56 Y-REF57 INCY-REF58)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23317 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23311 A) (X-REF23313 X) + (Y-REF23316 Y)) + (%%CGEMV TRANS M-REF23308 N-REF23309 ALPHA-REF23310 A-REF23311 + LDA-REF23312 X-REF23313 INCX-REF23314 BETA-REF23315 Y-REF23316 + INCY-REF23317)))) -(CFFI:DEFCFUN ("cgerc_" %%CGERC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("cgerc_" %%CGERC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (M :POINTER) (N :POINTER) @@ -421,27 +433,27 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF59 ':INT32) (N-REF60 ':INT32) - (ALPHA-REF61 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23318 ':INT32) (N-REF23319 ':INT32) + (ALPHA-REF23320 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF63 ':INT32) (INCY-REF65 ':INT32) - (LDA-REF67 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF59 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF60 :INT32) N) + (INCX-REF23322 ':INT32) (INCY-REF23324 ':INT32) + (LDA-REF23326 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23318 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23319 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF61 + ALPHA-REF23320 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF63 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF65 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF67 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF62 X) (Y-REF64 Y) (A-REF66 A)) - (%%CGERC M-REF59 N-REF60 ALPHA-REF61 X-REF62 INCX-REF63 Y-REF64 INCY-REF65 - A-REF66 LDA-REF67)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23322 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23324 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23326 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23321 X) (Y-REF23323 Y) + (A-REF23325 A)) + (%%CGERC M-REF23318 N-REF23319 ALPHA-REF23320 X-REF23321 INCX-REF23322 + Y-REF23323 INCY-REF23324 A-REF23325 LDA-REF23326)))) -(CFFI:DEFCFUN ("cgeru_" %%CGERU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("cgeru_" %%CGERU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (M :POINTER) (N :POINTER) @@ -477,27 +489,27 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF68 ':INT32) (N-REF69 ':INT32) - (ALPHA-REF70 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23327 ':INT32) (N-REF23328 ':INT32) + (ALPHA-REF23329 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF72 ':INT32) (INCY-REF74 ':INT32) - (LDA-REF76 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF68 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF69 :INT32) N) + (INCX-REF23331 ':INT32) (INCY-REF23333 ':INT32) + (LDA-REF23335 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23327 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23328 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF70 + ALPHA-REF23329 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF72 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF74 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF76 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF71 X) (Y-REF73 Y) (A-REF75 A)) - (%%CGERU M-REF68 N-REF69 ALPHA-REF70 X-REF71 INCX-REF72 Y-REF73 INCY-REF74 - A-REF75 LDA-REF76)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23331 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23333 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23335 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23330 X) (Y-REF23332 Y) + (A-REF23334 A)) + (%%CGERU M-REF23327 N-REF23328 ALPHA-REF23329 X-REF23330 INCX-REF23331 + Y-REF23332 INCY-REF23333 A-REF23334 LDA-REF23335)))) -(CFFI:DEFCFUN ("chbmv_" %%CHBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("chbmv_" %%CHBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -538,33 +550,35 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF78 ':INT32) (K-REF79 ':INT32) - (ALPHA-REF80 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23337 ':INT32) (K-REF23338 ':INT32) + (ALPHA-REF23339 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF82 ':INT32) (INCX-REF84 ':INT32) - (BETA-REF85 + (LDA-REF23341 ':INT32) (INCX-REF23343 ':INT32) + (BETA-REF23344 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCY-REF87 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF78 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF79 :INT32) K) + (INCY-REF23346 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23337 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23338 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF80 + ALPHA-REF23339 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF82 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF84 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23341 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23343 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF85 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + BETA-REF23344 + MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF87 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF81 A) (X-REF83 X) (Y-REF86 Y)) - (%%CHBMV UPLO N-REF78 K-REF79 ALPHA-REF80 A-REF81 LDA-REF82 X-REF83 - INCX-REF84 BETA-REF85 Y-REF86 INCY-REF87)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23346 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23340 A) (X-REF23342 X) + (Y-REF23345 Y)) + (%%CHBMV UPLO N-REF23337 K-REF23338 ALPHA-REF23339 A-REF23340 + LDA-REF23341 X-REF23342 INCX-REF23343 BETA-REF23344 Y-REF23345 + INCY-REF23346)))) -(CFFI:DEFCFUN ("chemm_" %%CHEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("chemm_" %%CHEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -607,33 +621,35 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF90 ':INT32) (N-REF91 ':INT32) - (ALPHA-REF92 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23349 ':INT32) (N-REF23350 ':INT32) + (ALPHA-REF23351 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF94 ':INT32) (LDB-REF96 ':INT32) - (BETA-REF97 + (LDA-REF23353 ':INT32) (LDB-REF23355 ':INT32) + (BETA-REF23356 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDC-REF99 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF90 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF91 :INT32) N) + (LDC-REF23358 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23349 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23350 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF92 + ALPHA-REF23351 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF94 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF96 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23353 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23355 :INT32) LDB) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF97 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + BETA-REF23356 + MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF99 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF93 A) (B-REF95 B) (C-REF98 C)) - (%%CHEMM SIDE UPLO M-REF90 N-REF91 ALPHA-REF92 A-REF93 LDA-REF94 B-REF95 - LDB-REF96 BETA-REF97 C-REF98 LDC-REF99)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23358 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23352 A) (B-REF23354 B) + (C-REF23357 C)) + (%%CHEMM SIDE UPLO M-REF23349 N-REF23350 ALPHA-REF23351 A-REF23352 + LDA-REF23353 B-REF23354 LDB-REF23355 BETA-REF23356 C-REF23357 + LDC-REF23358)))) -(CFFI:DEFCFUN ("chemv_" %%CHEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("chemv_" %%CHEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -672,33 +688,33 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF101 ':INT32) - (ALPHA-REF102 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23360 ':INT32) + (ALPHA-REF23361 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF104 ':INT32) (INCX-REF106 ':INT32) - (BETA-REF107 + (LDA-REF23363 ':INT32) (INCX-REF23365 ':INT32) + (BETA-REF23366 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCY-REF109 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF101 :INT32) N) + (INCY-REF23368 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23360 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF102 + ALPHA-REF23361 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF104 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF106 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23363 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23365 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF107 + BETA-REF23366 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF109 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF103 A) (X-REF105 X) (Y-REF108 Y)) - (%%CHEMV UPLO N-REF101 ALPHA-REF102 A-REF103 LDA-REF104 X-REF105 - INCX-REF106 BETA-REF107 Y-REF108 INCY-REF109)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23368 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23362 A) (X-REF23364 X) + (Y-REF23367 Y)) + (%%CHEMV UPLO N-REF23360 ALPHA-REF23361 A-REF23362 LDA-REF23363 + X-REF23364 INCX-REF23365 BETA-REF23366 Y-REF23367 INCY-REF23368)))) -(CFFI:DEFCFUN ("cher_" %%CHER :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("cher_" %%CHER :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -725,17 +741,17 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF111 ':INT32) (ALPHA-REF112 ':FLOAT) - (INCX-REF114 ':INT32) (LDA-REF116 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF111 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF112 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF114 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF116 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF113 X) (A-REF115 A)) - (%%CHER UPLO N-REF111 ALPHA-REF112 X-REF113 INCX-REF114 A-REF115 - LDA-REF116)))) - -(CFFI:DEFCFUN ("cher2_" %%CHER2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23370 ':INT32) (ALPHA-REF23371 ':FLOAT) + (INCX-REF23373 ':INT32) (LDA-REF23375 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23370 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23371 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23373 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23375 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23372 X) (A-REF23374 A)) + (%%CHER UPLO N-REF23370 ALPHA-REF23371 X-REF23372 INCX-REF23373 + A-REF23374 LDA-REF23375)))) + +(CFFI:DEFCFUN ("cher2_" %%CHER2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -771,26 +787,26 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF118 ':INT32) - (ALPHA-REF119 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23377 ':INT32) + (ALPHA-REF23378 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF121 ':INT32) (INCY-REF123 ':INT32) - (LDA-REF125 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF118 :INT32) N) + (INCX-REF23380 ':INT32) (INCY-REF23382 ':INT32) + (LDA-REF23384 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23377 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF119 + ALPHA-REF23378 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF121 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF123 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF125 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF120 X) (Y-REF122 Y) (A-REF124 A)) - (%%CHER2 UPLO N-REF118 ALPHA-REF119 X-REF120 INCX-REF121 Y-REF122 - INCY-REF123 A-REF124 LDA-REF125)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23380 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23382 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23384 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23379 X) (Y-REF23381 Y) + (A-REF23383 A)) + (%%CHER2 UPLO N-REF23377 ALPHA-REF23378 X-REF23379 INCX-REF23380 + Y-REF23381 INCY-REF23382 A-REF23383 LDA-REF23384)))) -(CFFI:DEFCFUN ("cher2k_" %%CHER2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("cher2k_" %%CHER2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -832,28 +848,29 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF128 ':INT32) (K-REF129 ':INT32) - (ALPHA-REF130 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23387 ':INT32) (K-REF23388 ':INT32) + (ALPHA-REF23389 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF132 ':INT32) (LDB-REF134 ':INT32) - (BETA-REF135 ':FLOAT) (LDC-REF137 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF128 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF129 :INT32) K) + (LDA-REF23391 ':INT32) (LDB-REF23393 ':INT32) + (BETA-REF23394 ':FLOAT) (LDC-REF23396 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23387 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23388 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF130 + ALPHA-REF23389 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF132 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF134 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF135 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF137 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF131 A) (B-REF133 B) (C-REF136 C)) - (%%CHER2K UPLO TRANS N-REF128 K-REF129 ALPHA-REF130 A-REF131 LDA-REF132 - B-REF133 LDB-REF134 BETA-REF135 C-REF136 LDC-REF137)))) - -(CFFI:DEFCFUN ("cherk_" %%CHERK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23391 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23393 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23394 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23396 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23390 A) (B-REF23392 B) + (C-REF23395 C)) + (%%CHER2K UPLO TRANS N-REF23387 K-REF23388 ALPHA-REF23389 A-REF23390 + LDA-REF23391 B-REF23392 LDB-REF23393 BETA-REF23394 C-REF23395 + LDC-REF23396)))) + +(CFFI:DEFCFUN ("cherk_" %%CHERK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -886,20 +903,20 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF140 ':INT32) (K-REF141 ':INT32) - (ALPHA-REF142 ':FLOAT) (LDA-REF144 ':INT32) - (BETA-REF145 ':FLOAT) (LDC-REF147 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF140 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF141 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF142 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF144 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF145 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF147 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF143 A) (C-REF146 C)) - (%%CHERK UPLO TRANS N-REF140 K-REF141 ALPHA-REF142 A-REF143 LDA-REF144 - BETA-REF145 C-REF146 LDC-REF147)))) - -(CFFI:DEFCFUN ("chpmv_" %%CHPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23399 ':INT32) (K-REF23400 ':INT32) + (ALPHA-REF23401 ':FLOAT) (LDA-REF23403 ':INT32) + (BETA-REF23404 ':FLOAT) (LDC-REF23406 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23399 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23400 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23401 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23403 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23404 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23406 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23402 A) (C-REF23405 C)) + (%%CHERK UPLO TRANS N-REF23399 K-REF23400 ALPHA-REF23401 A-REF23402 + LDA-REF23403 BETA-REF23404 C-REF23405 LDC-REF23406)))) + +(CFFI:DEFCFUN ("chpmv_" %%CHPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -936,32 +953,32 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF149 ':INT32) - (ALPHA-REF150 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23408 ':INT32) + (ALPHA-REF23409 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF153 ':INT32) - (BETA-REF154 + (INCX-REF23412 ':INT32) + (BETA-REF23413 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCY-REF156 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF149 :INT32) N) + (INCY-REF23415 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23408 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF150 + ALPHA-REF23409 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF153 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23412 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF154 + BETA-REF23413 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF156 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((AP-REF151 AP) (X-REF152 X) (Y-REF155 Y)) - (%%CHPMV UPLO N-REF149 ALPHA-REF150 AP-REF151 X-REF152 INCX-REF153 - BETA-REF154 Y-REF155 INCY-REF156)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23415 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23410 AP) (X-REF23411 X) + (Y-REF23414 Y)) + (%%CHPMV UPLO N-REF23408 ALPHA-REF23409 AP-REF23410 X-REF23411 + INCX-REF23412 BETA-REF23413 Y-REF23414 INCY-REF23415)))) -(CFFI:DEFCFUN ("chpr_" %%CHPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("chpr_" %%CHPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -986,15 +1003,16 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF158 ':INT32) (ALPHA-REF159 ':FLOAT) - (INCX-REF161 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF158 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF159 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF161 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF160 X) (AP-REF162 AP)) - (%%CHPR UPLO N-REF158 ALPHA-REF159 X-REF160 INCX-REF161 AP-REF162)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23417 ':INT32) (ALPHA-REF23418 ':FLOAT) + (INCX-REF23420 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23417 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23418 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23420 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23419 X) (AP-REF23421 AP)) + (%%CHPR UPLO N-REF23417 ALPHA-REF23418 X-REF23419 INCX-REF23420 + AP-REF23421)))) -(CFFI:DEFCFUN ("chpr2_" %%CHPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("chpr2_" %%CHPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -1028,24 +1046,24 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF164 ':INT32) - (ALPHA-REF165 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23423 ':INT32) + (ALPHA-REF23424 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF167 ':INT32) (INCY-REF169 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF164 :INT32) N) + (INCX-REF23426 ':INT32) (INCY-REF23428 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23423 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF165 + ALPHA-REF23424 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF167 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF169 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF166 X) (Y-REF168 Y) (AP-REF170 AP)) - (%%CHPR2 UPLO N-REF164 ALPHA-REF165 X-REF166 INCX-REF167 Y-REF168 - INCY-REF169 AP-REF170)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23426 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23428 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23425 X) (Y-REF23427 Y) + (AP-REF23429 AP)) + (%%CHPR2 UPLO N-REF23423 ALPHA-REF23424 X-REF23425 INCX-REF23426 + Y-REF23427 INCY-REF23428 AP-REF23429)))) -(CFFI:DEFCFUN ("crotg_" %%CROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("crotg_" %%CROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (CA :POINTER) (CB :POINTER) @@ -1061,30 +1079,32 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S)) - (CFFI:WITH-FOREIGN-OBJECTS ((CA-REF171 + (CFFI:WITH-FOREIGN-OBJECTS ((CA-REF23430 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (CB-REF172 + (CB-REF23431 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (C-REF173 ':FLOAT) - (S-REF174 + (C-REF23432 ':FLOAT) + (S-REF23433 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - CA-REF171 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + CA-REF23430 + MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - CB-REF172 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + CB-REF23431 + MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CB) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CB))) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF173 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23432 :FLOAT) C) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S-REF174 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + S-REF23433 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%CROTG CA-REF171 CB-REF172 C-REF173 S-REF174)))) + (%%CROTG CA-REF23430 CB-REF23431 C-REF23432 S-REF23433)))) -(CFFI:DEFCFUN ("cscal_" %%CSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("cscal_" %%CSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (CA :POINTER) @@ -1102,20 +1122,21 @@ (COMMON-LISP:*)) CX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF175 ':INT32) - (CA-REF176 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23434 ':INT32) + (CA-REF23435 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF178 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF175 :INT32) N) + (INCX-REF23437 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23434 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - CA-REF176 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + CA-REF23435 + MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF178 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF177 CX)) - (%%CSCAL N-REF175 CA-REF176 CX-REF177 INCX-REF178)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23437 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23436 CX)) + (%%CSCAL N-REF23434 CA-REF23435 CX-REF23436 INCX-REF23437)))) -(CFFI:DEFCFUN ("csrot_" %%CSROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("csrot_" %%CSROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (CX :POINTER) @@ -1142,19 +1163,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF179 ':INT32) (INCX-REF181 ':INT32) - (INCY-REF183 ':INT32) (C-REF184 ':FLOAT) - (S-REF185 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF179 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF181 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF183 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF184 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF185 :FLOAT) S) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF180 CX) (CY-REF182 CY)) - (%%CSROT N-REF179 CX-REF180 INCX-REF181 CY-REF182 INCY-REF183 C-REF184 - S-REF185)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23438 ':INT32) (INCX-REF23440 ':INT32) + (INCY-REF23442 ':INT32) (C-REF23443 ':FLOAT) + (S-REF23444 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23438 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23440 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23442 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23443 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23444 :FLOAT) S) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23439 CX) (CY-REF23441 CY)) + (%%CSROT N-REF23438 CX-REF23439 INCX-REF23440 CY-REF23441 INCY-REF23442 + C-REF23443 S-REF23444)))) -(CFFI:DEFCFUN ("csscal_" %%CSSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("csscal_" %%CSSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (SA :POINTER) @@ -1171,15 +1192,15 @@ (COMMON-LISP:*)) CX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF186 ':INT32) (SA-REF187 ':FLOAT) - (INCX-REF189 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF186 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF187 :FLOAT) SA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF189 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF188 CX)) - (%%CSSCAL N-REF186 SA-REF187 CX-REF188 INCX-REF189)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23445 ':INT32) (SA-REF23446 ':FLOAT) + (INCX-REF23448 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23445 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF23446 :FLOAT) SA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23448 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23447 CX)) + (%%CSSCAL N-REF23445 SA-REF23446 CX-REF23447 INCX-REF23448)))) -(CFFI:DEFCFUN ("cswap_" %%CSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("cswap_" %%CSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (CX :POINTER) @@ -1202,15 +1223,16 @@ (COMMON-LISP:*)) CY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF190 ':INT32) (INCX-REF192 ':INT32) - (INCY-REF194 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF190 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF192 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF194 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF191 CX) (CY-REF193 CY)) - (%%CSWAP N-REF190 CX-REF191 INCX-REF192 CY-REF193 INCY-REF194)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23449 ':INT32) (INCX-REF23451 ':INT32) + (INCY-REF23453 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23449 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23451 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23453 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23450 CX) (CY-REF23452 CY)) + (%%CSWAP N-REF23449 CX-REF23450 INCX-REF23451 CY-REF23452 + INCY-REF23453)))) -(CFFI:DEFCFUN ("csymm_" %%CSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("csymm_" %%CSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -1253,34 +1275,35 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF197 ':INT32) (N-REF198 ':INT32) - (ALPHA-REF199 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23456 ':INT32) (N-REF23457 ':INT32) + (ALPHA-REF23458 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF201 ':INT32) (LDB-REF203 ':INT32) - (BETA-REF204 + (LDA-REF23460 ':INT32) (LDB-REF23462 ':INT32) + (BETA-REF23463 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDC-REF206 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF197 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF198 :INT32) N) + (LDC-REF23465 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23456 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23457 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF199 + ALPHA-REF23458 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF201 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF203 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23460 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23462 :INT32) LDB) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF204 + BETA-REF23463 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF206 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF200 A) (B-REF202 B) (C-REF205 C)) - (%%CSYMM SIDE UPLO M-REF197 N-REF198 ALPHA-REF199 A-REF200 LDA-REF201 - B-REF202 LDB-REF203 BETA-REF204 C-REF205 LDC-REF206)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23465 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23459 A) (B-REF23461 B) + (C-REF23464 C)) + (%%CSYMM SIDE UPLO M-REF23456 N-REF23457 ALPHA-REF23458 A-REF23459 + LDA-REF23460 B-REF23461 LDB-REF23462 BETA-REF23463 C-REF23464 + LDC-REF23465)))) -(CFFI:DEFCFUN ("csyr2k_" %%CSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("csyr2k_" %%CSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1323,34 +1346,35 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF209 ':INT32) (K-REF210 ':INT32) - (ALPHA-REF211 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23468 ':INT32) (K-REF23469 ':INT32) + (ALPHA-REF23470 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF213 ':INT32) (LDB-REF215 ':INT32) - (BETA-REF216 + (LDA-REF23472 ':INT32) (LDB-REF23474 ':INT32) + (BETA-REF23475 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDC-REF218 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF209 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF210 :INT32) K) + (LDC-REF23477 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23468 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23469 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF211 + ALPHA-REF23470 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF213 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF215 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23472 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23474 :INT32) LDB) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF216 + BETA-REF23475 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF218 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF212 A) (B-REF214 B) (C-REF217 C)) - (%%CSYR2K UPLO TRANS N-REF209 K-REF210 ALPHA-REF211 A-REF212 LDA-REF213 - B-REF214 LDB-REF215 BETA-REF216 C-REF217 LDC-REF218)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23477 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23471 A) (B-REF23473 B) + (C-REF23476 C)) + (%%CSYR2K UPLO TRANS N-REF23468 K-REF23469 ALPHA-REF23470 A-REF23471 + LDA-REF23472 B-REF23473 LDB-REF23474 BETA-REF23475 C-REF23476 + LDC-REF23477)))) -(CFFI:DEFCFUN ("csyrk_" %%CSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("csyrk_" %%CSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1385,32 +1409,32 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF221 ':INT32) (K-REF222 ':INT32) - (ALPHA-REF223 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23480 ':INT32) (K-REF23481 ':INT32) + (ALPHA-REF23482 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF225 ':INT32) - (BETA-REF226 + (LDA-REF23484 ':INT32) + (BETA-REF23485 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDC-REF228 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF221 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF222 :INT32) K) + (LDC-REF23487 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23480 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23481 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF223 + ALPHA-REF23482 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF225 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23484 :INT32) LDA) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF226 + BETA-REF23485 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF228 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF224 A) (C-REF227 C)) - (%%CSYRK UPLO TRANS N-REF221 K-REF222 ALPHA-REF223 A-REF224 LDA-REF225 - BETA-REF226 C-REF227 LDC-REF228)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23487 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23483 A) (C-REF23486 C)) + (%%CSYRK UPLO TRANS N-REF23480 K-REF23481 ALPHA-REF23482 A-REF23483 + LDA-REF23484 BETA-REF23485 C-REF23486 LDC-REF23487)))) -(CFFI:DEFCFUN ("ctbmv_" %%CTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ctbmv_" %%CTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1441,17 +1465,17 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF232 ':INT32) (K-REF233 ':INT32) - (LDA-REF235 ':INT32) (INCX-REF237 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF232 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF233 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF235 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF237 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF234 A) (X-REF236 X)) - (%%CTBMV UPLO TRANS DIAG N-REF232 K-REF233 A-REF234 LDA-REF235 X-REF236 - INCX-REF237)))) - -(CFFI:DEFCFUN ("ctbsv_" %%CTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23491 ':INT32) (K-REF23492 ':INT32) + (LDA-REF23494 ':INT32) (INCX-REF23496 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23491 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23492 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23494 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23496 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23493 A) (X-REF23495 X)) + (%%CTBMV UPLO TRANS DIAG N-REF23491 K-REF23492 A-REF23493 LDA-REF23494 + X-REF23495 INCX-REF23496)))) + +(CFFI:DEFCFUN ("ctbsv_" %%CTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1482,17 +1506,17 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF241 ':INT32) (K-REF242 ':INT32) - (LDA-REF244 ':INT32) (INCX-REF246 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF241 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF242 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF244 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF246 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF243 A) (X-REF245 X)) - (%%CTBSV UPLO TRANS DIAG N-REF241 K-REF242 A-REF243 LDA-REF244 X-REF245 - INCX-REF246)))) - -(CFFI:DEFCFUN ("ctpmv_" %%CTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23500 ':INT32) (K-REF23501 ':INT32) + (LDA-REF23503 ':INT32) (INCX-REF23505 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23500 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23501 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23503 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23505 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23502 A) (X-REF23504 X)) + (%%CTBSV UPLO TRANS DIAG N-REF23500 K-REF23501 A-REF23502 LDA-REF23503 + X-REF23504 INCX-REF23505)))) + +(CFFI:DEFCFUN ("ctpmv_" %%CTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1519,13 +1543,14 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF250 ':INT32) (INCX-REF253 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF250 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF253 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF251 AP) (X-REF252 X)) - (%%CTPMV UPLO TRANS DIAG N-REF250 AP-REF251 X-REF252 INCX-REF253)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23509 ':INT32) (INCX-REF23512 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23509 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23512 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23510 AP) (X-REF23511 X)) + (%%CTPMV UPLO TRANS DIAG N-REF23509 AP-REF23510 X-REF23511 + INCX-REF23512)))) -(CFFI:DEFCFUN ("ctpsv_" %%CTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ctpsv_" %%CTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1552,13 +1577,14 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF257 ':INT32) (INCX-REF260 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF257 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF260 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF258 AP) (X-REF259 X)) - (%%CTPSV UPLO TRANS DIAG N-REF257 AP-REF258 X-REF259 INCX-REF260)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23516 ':INT32) (INCX-REF23519 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23516 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23519 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23517 AP) (X-REF23518 X)) + (%%CTPSV UPLO TRANS DIAG N-REF23516 AP-REF23517 X-REF23518 + INCX-REF23519)))) -(CFFI:DEFCFUN ("ctrmm_" %%CTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ctrmm_" %%CTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -1594,24 +1620,24 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF265 ':INT32) (N-REF266 ':INT32) - (ALPHA-REF267 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23524 ':INT32) (N-REF23525 ':INT32) + (ALPHA-REF23526 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF269 ':INT32) (LDB-REF271 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF265 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF266 :INT32) N) + (LDA-REF23528 ':INT32) (LDB-REF23530 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23524 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23525 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF267 + ALPHA-REF23526 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF269 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF271 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF268 A) (B-REF270 B)) - (%%CTRMM SIDE UPLO TRANSA DIAG M-REF265 N-REF266 ALPHA-REF267 A-REF268 - LDA-REF269 B-REF270 LDB-REF271)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23528 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23530 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23527 A) (B-REF23529 B)) + (%%CTRMM SIDE UPLO TRANSA DIAG M-REF23524 N-REF23525 ALPHA-REF23526 + A-REF23527 LDA-REF23528 B-REF23529 LDB-REF23530)))) -(CFFI:DEFCFUN ("ctrmv_" %%CTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ctrmv_" %%CTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1640,16 +1666,16 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF275 ':INT32) (LDA-REF277 ':INT32) - (INCX-REF279 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF275 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF277 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF279 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF276 A) (X-REF278 X)) - (%%CTRMV UPLO TRANS DIAG N-REF275 A-REF276 LDA-REF277 X-REF278 - INCX-REF279)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23534 ':INT32) (LDA-REF23536 ':INT32) + (INCX-REF23538 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23534 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23536 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23538 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23535 A) (X-REF23537 X)) + (%%CTRMV UPLO TRANS DIAG N-REF23534 A-REF23535 LDA-REF23536 X-REF23537 + INCX-REF23538)))) -(CFFI:DEFCFUN ("ctrsm_" %%CTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ctrsm_" %%CTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -1685,24 +1711,24 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF284 ':INT32) (N-REF285 ':INT32) - (ALPHA-REF286 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23543 ':INT32) (N-REF23544 ':INT32) + (ALPHA-REF23545 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF288 ':INT32) (LDB-REF290 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF284 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF285 :INT32) N) + (LDA-REF23547 ':INT32) (LDB-REF23549 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23543 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23544 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF286 + ALPHA-REF23545 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF288 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF290 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF287 A) (B-REF289 B)) - (%%CTRSM SIDE UPLO TRANSA DIAG M-REF284 N-REF285 ALPHA-REF286 A-REF287 - LDA-REF288 B-REF289 LDB-REF290)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23547 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23549 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23546 A) (B-REF23548 B)) + (%%CTRSM SIDE UPLO TRANSA DIAG M-REF23543 N-REF23544 ALPHA-REF23545 + A-REF23546 LDA-REF23547 B-REF23548 LDB-REF23549)))) -(CFFI:DEFCFUN ("ctrsv_" %%CTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ctrsv_" %%CTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1731,16 +1757,16 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF294 ':INT32) (LDA-REF296 ':INT32) - (INCX-REF298 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF294 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF296 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF298 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF295 A) (X-REF297 X)) - (%%CTRSV UPLO TRANS DIAG N-REF294 A-REF295 LDA-REF296 X-REF297 - INCX-REF298)))) - -(CFFI:DEFCFUN ("dasum_" %%DASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23553 ':INT32) (LDA-REF23555 ':INT32) + (INCX-REF23557 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23553 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23555 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23557 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23554 A) (X-REF23556 X)) + (%%CTRSV UPLO TRANS DIAG N-REF23553 A-REF23554 LDA-REF23555 X-REF23556 + INCX-REF23557)))) + +(CFFI:DEFCFUN ("dasum_" %%DASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :DOUBLE (N :POINTER) (DX :POINTER) @@ -1752,13 +1778,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF299 ':INT32) (INCX-REF301 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF299 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF301 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF300 DX)) - (%%DASUM N-REF299 DX-REF300 INCX-REF301)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23558 ':INT32) (INCX-REF23560 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23558 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23560 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23559 DX)) + (%%DASUM N-REF23558 DX-REF23559 INCX-REF23560)))) -(CFFI:DEFCFUN ("daxpy_" %%DAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("daxpy_" %%DAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (DA :POINTER) @@ -1777,16 +1803,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF302 ':INT32) (DA-REF303 ':DOUBLE) - (INCX-REF305 ':INT32) (INCY-REF307 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF302 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF303 :DOUBLE) DA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF305 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF307 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF304 DX) (DY-REF306 DY)) - (%%DAXPY N-REF302 DA-REF303 DX-REF304 INCX-REF305 DY-REF306 INCY-REF307)))) - -(CFFI:DEFCFUN ("dcabs1_" %%DCABS1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23561 ':INT32) (DA-REF23562 ':DOUBLE) + (INCX-REF23564 ':INT32) (INCY-REF23566 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23561 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF23562 :DOUBLE) DA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23564 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23566 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23563 DX) (DY-REF23565 DY)) + (%%DAXPY N-REF23561 DA-REF23562 DX-REF23563 INCX-REF23564 DY-REF23565 + INCY-REF23566)))) + +(CFFI:DEFCFUN ("dcabs1_" %%DCABS1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :DOUBLE (Z :POINTER)) @@ -1794,16 +1821,16 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DCABS1) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) Z)) - (CFFI:WITH-FOREIGN-OBJECTS ((Z-REF308 + (CFFI:WITH-FOREIGN-OBJECTS ((Z-REF23567 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - Z-REF308 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + Z-REF23567 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Z) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Z))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DCABS1 Z-REF308)))) + (%%DCABS1 Z-REF23567)))) -(CFFI:DEFCFUN ("dcopy_" %%DCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dcopy_" %%DCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (DX :POINTER) @@ -1820,15 +1847,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF309 ':INT32) (INCX-REF311 ':INT32) - (INCY-REF313 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF309 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF311 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF313 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF310 DX) (DY-REF312 DY)) - (%%DCOPY N-REF309 DX-REF310 INCX-REF311 DY-REF312 INCY-REF313)))) - -(CFFI:DEFCFUN ("ddot_" %%DDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23568 ':INT32) (INCX-REF23570 ':INT32) + (INCY-REF23572 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23568 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23570 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23572 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23569 DX) (DY-REF23571 DY)) + (%%DCOPY N-REF23568 DX-REF23569 INCX-REF23570 DY-REF23571 + INCY-REF23572)))) + +(CFFI:DEFCFUN ("ddot_" %%DDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :DOUBLE (N :POINTER) (DX :POINTER) @@ -1845,15 +1873,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF314 ':INT32) (INCX-REF316 ':INT32) - (INCY-REF318 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF314 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF316 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF318 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF315 DX) (DY-REF317 DY)) - (%%DDOT N-REF314 DX-REF315 INCX-REF316 DY-REF317 INCY-REF318)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23573 ':INT32) (INCX-REF23575 ':INT32) + (INCY-REF23577 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23573 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23575 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23577 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23574 DX) (DY-REF23576 DY)) + (%%DDOT N-REF23573 DX-REF23574 INCX-REF23575 DY-REF23576 INCY-REF23577)))) -(CFFI:DEFCFUN ("dgbmv_" %%DGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dgbmv_" %%DGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANS :STRING) (M :POINTER) @@ -1887,26 +1915,27 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF320 ':INT32) (N-REF321 ':INT32) - (KL-REF322 ':INT32) (KU-REF323 ':INT32) - (ALPHA-REF324 ':DOUBLE) (LDA-REF326 ':INT32) - (INCX-REF328 ':INT32) (BETA-REF329 ':DOUBLE) - (INCY-REF331 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF320 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF321 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF322 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF323 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF324 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF326 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF328 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF329 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF331 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF325 A) (X-REF327 X) (Y-REF330 Y)) - (%%DGBMV TRANS M-REF320 N-REF321 KL-REF322 KU-REF323 ALPHA-REF324 A-REF325 - LDA-REF326 X-REF327 INCX-REF328 BETA-REF329 Y-REF330 INCY-REF331)))) - -(CFFI:DEFCFUN ("dgemm_" %%DGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23579 ':INT32) (N-REF23580 ':INT32) + (KL-REF23581 ':INT32) (KU-REF23582 ':INT32) + (ALPHA-REF23583 ':DOUBLE) (LDA-REF23585 ':INT32) + (INCX-REF23587 ':INT32) (BETA-REF23588 ':DOUBLE) + (INCY-REF23590 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23579 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23580 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF23581 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF23582 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23583 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23585 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23587 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23588 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23590 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23584 A) (X-REF23586 X) + (Y-REF23589 Y)) + (%%DGBMV TRANS M-REF23579 N-REF23580 KL-REF23581 KU-REF23582 + ALPHA-REF23583 A-REF23584 LDA-REF23585 X-REF23586 INCX-REF23587 + BETA-REF23588 Y-REF23589 INCY-REF23590)))) + +(CFFI:DEFCFUN ("dgemm_" %%DGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANSA :STRING) (TRANSB :STRING) @@ -1940,24 +1969,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF334 ':INT32) (N-REF335 ':INT32) - (K-REF336 ':INT32) (ALPHA-REF337 ':DOUBLE) - (LDA-REF339 ':INT32) (LDB-REF341 ':INT32) - (BETA-REF342 ':DOUBLE) (LDC-REF344 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF334 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF335 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF336 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF337 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF339 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF341 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF342 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF344 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF338 A) (B-REF340 B) (C-REF343 C)) - (%%DGEMM TRANSA TRANSB M-REF334 N-REF335 K-REF336 ALPHA-REF337 A-REF338 - LDA-REF339 B-REF340 LDB-REF341 BETA-REF342 C-REF343 LDC-REF344)))) - -(CFFI:DEFCFUN ("dgemv_" %%DGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23593 ':INT32) (N-REF23594 ':INT32) + (K-REF23595 ':INT32) (ALPHA-REF23596 ':DOUBLE) + (LDA-REF23598 ':INT32) (LDB-REF23600 ':INT32) + (BETA-REF23601 ':DOUBLE) (LDC-REF23603 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23593 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23594 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23595 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23596 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23598 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23600 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23601 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23603 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23597 A) (B-REF23599 B) + (C-REF23602 C)) + (%%DGEMM TRANSA TRANSB M-REF23593 N-REF23594 K-REF23595 ALPHA-REF23596 + A-REF23597 LDA-REF23598 B-REF23599 LDB-REF23600 BETA-REF23601 C-REF23602 + LDC-REF23603)))) + +(CFFI:DEFCFUN ("dgemv_" %%DGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANS :STRING) (M :POINTER) @@ -1987,23 +2017,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF346 ':INT32) (N-REF347 ':INT32) - (ALPHA-REF348 ':DOUBLE) (LDA-REF350 ':INT32) - (INCX-REF352 ':INT32) (BETA-REF353 ':DOUBLE) - (INCY-REF355 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF346 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF347 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF348 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF350 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF352 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF353 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF355 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF349 A) (X-REF351 X) (Y-REF354 Y)) - (%%DGEMV TRANS M-REF346 N-REF347 ALPHA-REF348 A-REF349 LDA-REF350 X-REF351 - INCX-REF352 BETA-REF353 Y-REF354 INCY-REF355)))) - -(CFFI:DEFCFUN ("dger_" %%DGER :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23605 ':INT32) (N-REF23606 ':INT32) + (ALPHA-REF23607 ':DOUBLE) (LDA-REF23609 ':INT32) + (INCX-REF23611 ':INT32) (BETA-REF23612 ':DOUBLE) + (INCY-REF23614 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23605 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23606 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23607 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23609 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23611 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23612 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23614 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23608 A) (X-REF23610 X) + (Y-REF23613 Y)) + (%%DGEMV TRANS M-REF23605 N-REF23606 ALPHA-REF23607 A-REF23608 + LDA-REF23609 X-REF23610 INCX-REF23611 BETA-REF23612 Y-REF23613 + INCY-REF23614)))) + +(CFFI:DEFCFUN ("dger_" %%DGER :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (M :POINTER) (N :POINTER) @@ -2029,21 +2060,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF356 ':INT32) (N-REF357 ':INT32) - (ALPHA-REF358 ':DOUBLE) (INCX-REF360 ':INT32) - (INCY-REF362 ':INT32) (LDA-REF364 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF356 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF357 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF358 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF360 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF362 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF364 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF359 X) (Y-REF361 Y) (A-REF363 A)) - (%%DGER M-REF356 N-REF357 ALPHA-REF358 X-REF359 INCX-REF360 Y-REF361 - INCY-REF362 A-REF363 LDA-REF364)))) - -(CFFI:DEFCFUN ("dnrm2_" %%DNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23615 ':INT32) (N-REF23616 ':INT32) + (ALPHA-REF23617 ':DOUBLE) (INCX-REF23619 ':INT32) + (INCY-REF23621 ':INT32) (LDA-REF23623 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23615 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23616 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23617 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23619 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23621 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23623 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23618 X) (Y-REF23620 Y) + (A-REF23622 A)) + (%%DGER M-REF23615 N-REF23616 ALPHA-REF23617 X-REF23618 INCX-REF23619 + Y-REF23620 INCY-REF23621 A-REF23622 LDA-REF23623)))) + +(CFFI:DEFCFUN ("dnrm2_" %%DNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :DOUBLE (N :POINTER) (X :POINTER) @@ -2055,13 +2086,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF365 ':INT32) (INCX-REF367 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF365 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF367 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF366 X)) - (%%DNRM2 N-REF365 X-REF366 INCX-REF367)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23624 ':INT32) (INCX-REF23626 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23624 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23626 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23625 X)) + (%%DNRM2 N-REF23624 X-REF23625 INCX-REF23626)))) -(CFFI:DEFCFUN ("drot_" %%DROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("drot_" %%DROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (DX :POINTER) @@ -2082,19 +2113,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF368 ':INT32) (INCX-REF370 ':INT32) - (INCY-REF372 ':INT32) (C-REF373 ':DOUBLE) - (S-REF374 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF368 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF370 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF372 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF373 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF374 :DOUBLE) S) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF369 DX) (DY-REF371 DY)) - (%%DROT N-REF368 DX-REF369 INCX-REF370 DY-REF371 INCY-REF372 C-REF373 - S-REF374)))) - -(CFFI:DEFCFUN ("drotg_" %%DROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23627 ':INT32) (INCX-REF23629 ':INT32) + (INCY-REF23631 ':INT32) (C-REF23632 ':DOUBLE) + (S-REF23633 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23627 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23629 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23631 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23632 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23633 :DOUBLE) S) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23628 DX) (DY-REF23630 DY)) + (%%DROT N-REF23627 DX-REF23628 INCX-REF23629 DY-REF23630 INCY-REF23631 + C-REF23632 S-REF23633)))) + +(CFFI:DEFCFUN ("drotg_" %%DROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (DA :POINTER) (DB :POINTER) @@ -2107,16 +2138,16 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DB) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)) - (CFFI:WITH-FOREIGN-OBJECTS ((DA-REF375 ':DOUBLE) (DB-REF376 ':DOUBLE) - (C-REF377 ':DOUBLE) (S-REF378 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF375 :DOUBLE) DA) - (COMMON-LISP:SETF (CFFI:MEM-REF DB-REF376 :DOUBLE) DB) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF377 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF378 :DOUBLE) S) + (CFFI:WITH-FOREIGN-OBJECTS ((DA-REF23634 ':DOUBLE) (DB-REF23635 ':DOUBLE) + (C-REF23636 ':DOUBLE) (S-REF23637 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF23634 :DOUBLE) DA) + (COMMON-LISP:SETF (CFFI:MEM-REF DB-REF23635 :DOUBLE) DB) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23636 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23637 :DOUBLE) S) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DROTG DA-REF375 DB-REF376 C-REF377 S-REF378)))) + (%%DROTG DA-REF23634 DB-REF23635 C-REF23636 S-REF23637)))) -(CFFI:DEFCFUN ("drotm_" %%DROTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("drotm_" %%DROTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (DX :POINTER) @@ -2137,17 +2168,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DPARAM)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF379 ':INT32) (INCX-REF381 ':INT32) - (INCY-REF383 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF379 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF381 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF383 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((DX-REF380 DX) (DY-REF382 DY) (DPARAM-REF384 DPARAM)) - (%%DROTM N-REF379 DX-REF380 INCX-REF381 DY-REF382 INCY-REF383 - DPARAM-REF384)))) - -(CFFI:DEFCFUN ("drotmg_" %%DROTMG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23638 ':INT32) (INCX-REF23640 ':INT32) + (INCY-REF23642 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23638 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23640 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23642 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23639 DX) (DY-REF23641 DY) + (DPARAM-REF23643 DPARAM)) + (%%DROTM N-REF23638 DX-REF23639 INCX-REF23640 DY-REF23641 INCY-REF23642 + DPARAM-REF23643)))) + +(CFFI:DEFCFUN ("drotmg_" %%DROTMG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (DD1 :POINTER) (DD2 :POINTER) @@ -2164,16 +2195,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DPARAM)) - (CFFI:WITH-FOREIGN-OBJECTS ((DD1-REF385 ':DOUBLE) (DD2-REF386 ':DOUBLE) - (DX1-REF387 ':DOUBLE) (DY1-REF388 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF DD1-REF385 :DOUBLE) DD1) - (COMMON-LISP:SETF (CFFI:MEM-REF DD2-REF386 :DOUBLE) DD2) - (COMMON-LISP:SETF (CFFI:MEM-REF DX1-REF387 :DOUBLE) DX1) - (COMMON-LISP:SETF (CFFI:MEM-REF DY1-REF388 :DOUBLE) DY1) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DPARAM-REF389 DPARAM)) - (%%DROTMG DD1-REF385 DD2-REF386 DX1-REF387 DY1-REF388 DPARAM-REF389)))) - -(CFFI:DEFCFUN ("dsbmv_" %%DSBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((DD1-REF23644 ':DOUBLE) (DD2-REF23645 ':DOUBLE) + (DX1-REF23646 ':DOUBLE) (DY1-REF23647 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF DD1-REF23644 :DOUBLE) DD1) + (COMMON-LISP:SETF (CFFI:MEM-REF DD2-REF23645 :DOUBLE) DD2) + (COMMON-LISP:SETF (CFFI:MEM-REF DX1-REF23646 :DOUBLE) DX1) + (COMMON-LISP:SETF (CFFI:MEM-REF DY1-REF23647 :DOUBLE) DY1) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DPARAM-REF23648 DPARAM)) + (%%DROTMG DD1-REF23644 DD2-REF23645 DX1-REF23646 DY1-REF23647 + DPARAM-REF23648)))) + +(CFFI:DEFCFUN ("dsbmv_" %%DSBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -2203,23 +2235,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF391 ':INT32) (K-REF392 ':INT32) - (ALPHA-REF393 ':DOUBLE) (LDA-REF395 ':INT32) - (INCX-REF397 ':INT32) (BETA-REF398 ':DOUBLE) - (INCY-REF400 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF391 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF392 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF393 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF395 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF397 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF398 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF400 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF394 A) (X-REF396 X) (Y-REF399 Y)) - (%%DSBMV UPLO N-REF391 K-REF392 ALPHA-REF393 A-REF394 LDA-REF395 X-REF396 - INCX-REF397 BETA-REF398 Y-REF399 INCY-REF400)))) - -(CFFI:DEFCFUN ("dscal_" %%DSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23650 ':INT32) (K-REF23651 ':INT32) + (ALPHA-REF23652 ':DOUBLE) (LDA-REF23654 ':INT32) + (INCX-REF23656 ':INT32) (BETA-REF23657 ':DOUBLE) + (INCY-REF23659 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23650 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23651 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23652 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23654 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23656 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23657 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23659 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23653 A) (X-REF23655 X) + (Y-REF23658 Y)) + (%%DSBMV UPLO N-REF23650 K-REF23651 ALPHA-REF23652 A-REF23653 + LDA-REF23654 X-REF23655 INCX-REF23656 BETA-REF23657 Y-REF23658 + INCY-REF23659)))) + +(CFFI:DEFCFUN ("dscal_" %%DSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (DA :POINTER) @@ -2233,15 +2266,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF401 ':INT32) (DA-REF402 ':DOUBLE) - (INCX-REF404 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF401 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF402 :DOUBLE) DA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF404 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF403 DX)) - (%%DSCAL N-REF401 DA-REF402 DX-REF403 INCX-REF404)))) - -(CFFI:DEFCFUN ("dsdot_" %%DSDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23660 ':INT32) (DA-REF23661 ':DOUBLE) + (INCX-REF23663 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23660 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF23661 :DOUBLE) DA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23663 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23662 DX)) + (%%DSCAL N-REF23660 DA-REF23661 DX-REF23662 INCX-REF23663)))) + +(CFFI:DEFCFUN ("dsdot_" %%DSDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :DOUBLE (N :POINTER) (SX :POINTER) @@ -2258,15 +2291,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF405 ':INT32) (INCX-REF407 ':INT32) - (INCY-REF409 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF405 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF407 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF409 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF406 SX) (SY-REF408 SY)) - (%%DSDOT N-REF405 SX-REF406 INCX-REF407 SY-REF408 INCY-REF409)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23664 ':INT32) (INCX-REF23666 ':INT32) + (INCY-REF23668 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23664 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23666 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23668 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23665 SX) (SY-REF23667 SY)) + (%%DSDOT N-REF23664 SX-REF23665 INCX-REF23666 SY-REF23667 + INCY-REF23668)))) -(CFFI:DEFCFUN ("dspmv_" %%DSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dspmv_" %%DSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -2292,20 +2326,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF411 ':INT32) (ALPHA-REF412 ':DOUBLE) - (INCX-REF415 ':INT32) (BETA-REF416 ':DOUBLE) - (INCY-REF418 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF411 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF412 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF415 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF416 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF418 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((AP-REF413 AP) (X-REF414 X) (Y-REF417 Y)) - (%%DSPMV UPLO N-REF411 ALPHA-REF412 AP-REF413 X-REF414 INCX-REF415 - BETA-REF416 Y-REF417 INCY-REF418)))) - -(CFFI:DEFCFUN ("dspr_" %%DSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23670 ':INT32) (ALPHA-REF23671 ':DOUBLE) + (INCX-REF23674 ':INT32) (BETA-REF23675 ':DOUBLE) + (INCY-REF23677 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23670 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23671 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23674 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23675 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23677 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23672 AP) (X-REF23673 X) + (Y-REF23676 Y)) + (%%DSPMV UPLO N-REF23670 ALPHA-REF23671 AP-REF23672 X-REF23673 + INCX-REF23674 BETA-REF23675 Y-REF23676 INCY-REF23677)))) + +(CFFI:DEFCFUN ("dspr_" %%DSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -2325,15 +2359,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF420 ':INT32) (ALPHA-REF421 ':DOUBLE) - (INCX-REF423 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF420 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF421 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF423 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF422 X) (AP-REF424 AP)) - (%%DSPR UPLO N-REF420 ALPHA-REF421 X-REF422 INCX-REF423 AP-REF424)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23679 ':INT32) (ALPHA-REF23680 ':DOUBLE) + (INCX-REF23682 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23679 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23680 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23682 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23681 X) (AP-REF23683 AP)) + (%%DSPR UPLO N-REF23679 ALPHA-REF23680 X-REF23681 INCX-REF23682 + AP-REF23683)))) -(CFFI:DEFCFUN ("dspr2_" %%DSPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dspr2_" %%DSPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -2358,18 +2393,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF426 ':INT32) (ALPHA-REF427 ':DOUBLE) - (INCX-REF429 ':INT32) (INCY-REF431 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF426 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF427 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF429 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF431 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF428 X) (Y-REF430 Y) (AP-REF432 AP)) - (%%DSPR2 UPLO N-REF426 ALPHA-REF427 X-REF428 INCX-REF429 Y-REF430 - INCY-REF431 AP-REF432)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23685 ':INT32) (ALPHA-REF23686 ':DOUBLE) + (INCX-REF23688 ':INT32) (INCY-REF23690 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23685 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23686 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23688 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23690 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23687 X) (Y-REF23689 Y) + (AP-REF23691 AP)) + (%%DSPR2 UPLO N-REF23685 ALPHA-REF23686 X-REF23687 INCX-REF23688 + Y-REF23689 INCY-REF23690 AP-REF23691)))) -(CFFI:DEFCFUN ("dswap_" %%DSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dswap_" %%DSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (DX :POINTER) @@ -2386,15 +2421,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF433 ':INT32) (INCX-REF435 ':INT32) - (INCY-REF437 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF433 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF435 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF437 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF434 DX) (DY-REF436 DY)) - (%%DSWAP N-REF433 DX-REF434 INCX-REF435 DY-REF436 INCY-REF437)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23692 ':INT32) (INCX-REF23694 ':INT32) + (INCY-REF23696 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23692 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23694 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23696 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23693 DX) (DY-REF23695 DY)) + (%%DSWAP N-REF23692 DX-REF23693 INCX-REF23694 DY-REF23695 + INCY-REF23696)))) -(CFFI:DEFCFUN ("dsymm_" %%DSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dsymm_" %%DSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -2426,23 +2462,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF440 ':INT32) (N-REF441 ':INT32) - (ALPHA-REF442 ':DOUBLE) (LDA-REF444 ':INT32) - (LDB-REF446 ':INT32) (BETA-REF447 ':DOUBLE) - (LDC-REF449 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF440 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF441 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF442 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF444 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF446 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF447 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF449 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF443 A) (B-REF445 B) (C-REF448 C)) - (%%DSYMM SIDE UPLO M-REF440 N-REF441 ALPHA-REF442 A-REF443 LDA-REF444 - B-REF445 LDB-REF446 BETA-REF447 C-REF448 LDC-REF449)))) - -(CFFI:DEFCFUN ("dsymv_" %%DSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23699 ':INT32) (N-REF23700 ':INT32) + (ALPHA-REF23701 ':DOUBLE) (LDA-REF23703 ':INT32) + (LDB-REF23705 ':INT32) (BETA-REF23706 ':DOUBLE) + (LDC-REF23708 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23699 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23700 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23701 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23703 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23705 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23706 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23708 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23702 A) (B-REF23704 B) + (C-REF23707 C)) + (%%DSYMM SIDE UPLO M-REF23699 N-REF23700 ALPHA-REF23701 A-REF23702 + LDA-REF23703 B-REF23704 LDB-REF23705 BETA-REF23706 C-REF23707 + LDC-REF23708)))) + +(CFFI:DEFCFUN ("dsymv_" %%DSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -2470,21 +2507,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF451 ':INT32) (ALPHA-REF452 ':DOUBLE) - (LDA-REF454 ':INT32) (INCX-REF456 ':INT32) - (BETA-REF457 ':DOUBLE) (INCY-REF459 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF451 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF452 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF454 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF456 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF457 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF459 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF453 A) (X-REF455 X) (Y-REF458 Y)) - (%%DSYMV UPLO N-REF451 ALPHA-REF452 A-REF453 LDA-REF454 X-REF455 - INCX-REF456 BETA-REF457 Y-REF458 INCY-REF459)))) - -(CFFI:DEFCFUN ("dsyr_" %%DSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23710 ':INT32) (ALPHA-REF23711 ':DOUBLE) + (LDA-REF23713 ':INT32) (INCX-REF23715 ':INT32) + (BETA-REF23716 ':DOUBLE) (INCY-REF23718 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23710 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23711 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23713 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23715 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23716 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23718 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23712 A) (X-REF23714 X) + (Y-REF23717 Y)) + (%%DSYMV UPLO N-REF23710 ALPHA-REF23711 A-REF23712 LDA-REF23713 + X-REF23714 INCX-REF23715 BETA-REF23716 Y-REF23717 INCY-REF23718)))) + +(CFFI:DEFCFUN ("dsyr_" %%DSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -2505,17 +2542,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF461 ':INT32) (ALPHA-REF462 ':DOUBLE) - (INCX-REF464 ':INT32) (LDA-REF466 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF461 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF462 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF464 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF466 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF463 X) (A-REF465 A)) - (%%DSYR UPLO N-REF461 ALPHA-REF462 X-REF463 INCX-REF464 A-REF465 - LDA-REF466)))) - -(CFFI:DEFCFUN ("dsyr2_" %%DSYR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23720 ':INT32) (ALPHA-REF23721 ':DOUBLE) + (INCX-REF23723 ':INT32) (LDA-REF23725 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23720 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23721 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23723 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23725 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23722 X) (A-REF23724 A)) + (%%DSYR UPLO N-REF23720 ALPHA-REF23721 X-REF23722 INCX-REF23723 + A-REF23724 LDA-REF23725)))) + +(CFFI:DEFCFUN ("dsyr2_" %%DSYR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -2541,20 +2578,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF468 ':INT32) (ALPHA-REF469 ':DOUBLE) - (INCX-REF471 ':INT32) (INCY-REF473 ':INT32) - (LDA-REF475 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF468 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF469 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF471 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF473 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF475 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF470 X) (Y-REF472 Y) (A-REF474 A)) - (%%DSYR2 UPLO N-REF468 ALPHA-REF469 X-REF470 INCX-REF471 Y-REF472 - INCY-REF473 A-REF474 LDA-REF475)))) - -(CFFI:DEFCFUN ("dsyr2k_" %%DSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23727 ':INT32) (ALPHA-REF23728 ':DOUBLE) + (INCX-REF23730 ':INT32) (INCY-REF23732 ':INT32) + (LDA-REF23734 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23727 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23728 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23730 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23732 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23734 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23729 X) (Y-REF23731 Y) + (A-REF23733 A)) + (%%DSYR2 UPLO N-REF23727 ALPHA-REF23728 X-REF23729 INCX-REF23730 + Y-REF23731 INCY-REF23732 A-REF23733 LDA-REF23734)))) + +(CFFI:DEFCFUN ("dsyr2k_" %%DSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -2586,23 +2623,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF478 ':INT32) (K-REF479 ':INT32) - (ALPHA-REF480 ':DOUBLE) (LDA-REF482 ':INT32) - (LDB-REF484 ':INT32) (BETA-REF485 ':DOUBLE) - (LDC-REF487 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF478 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF479 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF480 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF482 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF484 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF485 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF487 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF481 A) (B-REF483 B) (C-REF486 C)) - (%%DSYR2K UPLO TRANS N-REF478 K-REF479 ALPHA-REF480 A-REF481 LDA-REF482 - B-REF483 LDB-REF484 BETA-REF485 C-REF486 LDC-REF487)))) - -(CFFI:DEFCFUN ("dsyrk_" %%DSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23737 ':INT32) (K-REF23738 ':INT32) + (ALPHA-REF23739 ':DOUBLE) (LDA-REF23741 ':INT32) + (LDB-REF23743 ':INT32) (BETA-REF23744 ':DOUBLE) + (LDC-REF23746 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23737 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23738 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23739 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23741 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23743 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23744 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23746 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23740 A) (B-REF23742 B) + (C-REF23745 C)) + (%%DSYR2K UPLO TRANS N-REF23737 K-REF23738 ALPHA-REF23739 A-REF23740 + LDA-REF23741 B-REF23742 LDB-REF23743 BETA-REF23744 C-REF23745 + LDC-REF23746)))) + +(CFFI:DEFCFUN ("dsyrk_" %%DSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -2629,20 +2667,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF490 ':INT32) (K-REF491 ':INT32) - (ALPHA-REF492 ':DOUBLE) (LDA-REF494 ':INT32) - (BETA-REF495 ':DOUBLE) (LDC-REF497 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF490 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF491 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF492 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF494 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF495 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF497 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF493 A) (C-REF496 C)) - (%%DSYRK UPLO TRANS N-REF490 K-REF491 ALPHA-REF492 A-REF493 LDA-REF494 - BETA-REF495 C-REF496 LDC-REF497)))) - -(CFFI:DEFCFUN ("dtbmv_" %%DTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23749 ':INT32) (K-REF23750 ':INT32) + (ALPHA-REF23751 ':DOUBLE) (LDA-REF23753 ':INT32) + (BETA-REF23754 ':DOUBLE) (LDC-REF23756 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23749 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23750 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23751 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23753 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23754 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23756 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23752 A) (C-REF23755 C)) + (%%DSYRK UPLO TRANS N-REF23749 K-REF23750 ALPHA-REF23751 A-REF23752 + LDA-REF23753 BETA-REF23754 C-REF23755 LDC-REF23756)))) + +(CFFI:DEFCFUN ("dtbmv_" %%DTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -2667,17 +2705,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF501 ':INT32) (K-REF502 ':INT32) - (LDA-REF504 ':INT32) (INCX-REF506 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF501 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF502 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF504 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF506 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF503 A) (X-REF505 X)) - (%%DTBMV UPLO TRANS DIAG N-REF501 K-REF502 A-REF503 LDA-REF504 X-REF505 - INCX-REF506)))) - -(CFFI:DEFCFUN ("dtbsv_" %%DTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23760 ':INT32) (K-REF23761 ':INT32) + (LDA-REF23763 ':INT32) (INCX-REF23765 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23760 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23761 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23763 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23765 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23762 A) (X-REF23764 X)) + (%%DTBMV UPLO TRANS DIAG N-REF23760 K-REF23761 A-REF23762 LDA-REF23763 + X-REF23764 INCX-REF23765)))) + +(CFFI:DEFCFUN ("dtbsv_" %%DTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -2702,17 +2740,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF510 ':INT32) (K-REF511 ':INT32) - (LDA-REF513 ':INT32) (INCX-REF515 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF510 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF511 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF513 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF515 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF512 A) (X-REF514 X)) - (%%DTBSV UPLO TRANS DIAG N-REF510 K-REF511 A-REF512 LDA-REF513 X-REF514 - INCX-REF515)))) - -(CFFI:DEFCFUN ("dtpmv_" %%DTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23769 ':INT32) (K-REF23770 ':INT32) + (LDA-REF23772 ':INT32) (INCX-REF23774 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23769 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23770 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23772 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23774 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23771 A) (X-REF23773 X)) + (%%DTBSV UPLO TRANS DIAG N-REF23769 K-REF23770 A-REF23771 LDA-REF23772 + X-REF23773 INCX-REF23774)))) + +(CFFI:DEFCFUN ("dtpmv_" %%DTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -2733,13 +2771,14 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF519 ':INT32) (INCX-REF522 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF519 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF522 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF520 AP) (X-REF521 X)) - (%%DTPMV UPLO TRANS DIAG N-REF519 AP-REF520 X-REF521 INCX-REF522)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23778 ':INT32) (INCX-REF23781 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23778 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23781 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23779 AP) (X-REF23780 X)) + (%%DTPMV UPLO TRANS DIAG N-REF23778 AP-REF23779 X-REF23780 + INCX-REF23781)))) -(CFFI:DEFCFUN ("dtpsv_" %%DTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dtpsv_" %%DTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -2760,13 +2799,14 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF526 ':INT32) (INCX-REF529 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF526 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF529 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF527 AP) (X-REF528 X)) - (%%DTPSV UPLO TRANS DIAG N-REF526 AP-REF527 X-REF528 INCX-REF529)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23785 ':INT32) (INCX-REF23788 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23785 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23788 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23786 AP) (X-REF23787 X)) + (%%DTPSV UPLO TRANS DIAG N-REF23785 AP-REF23786 X-REF23787 + INCX-REF23788)))) -(CFFI:DEFCFUN ("dtrmm_" %%DTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dtrmm_" %%DTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -2795,19 +2835,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF534 ':INT32) (N-REF535 ':INT32) - (ALPHA-REF536 ':DOUBLE) (LDA-REF538 ':INT32) - (LDB-REF540 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF534 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF535 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF536 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF538 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF540 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF537 A) (B-REF539 B)) - (%%DTRMM SIDE UPLO TRANSA DIAG M-REF534 N-REF535 ALPHA-REF536 A-REF537 - LDA-REF538 B-REF539 LDB-REF540)))) - -(CFFI:DEFCFUN ("dtrmv_" %%DTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23793 ':INT32) (N-REF23794 ':INT32) + (ALPHA-REF23795 ':DOUBLE) (LDA-REF23797 ':INT32) + (LDB-REF23799 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23793 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23794 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23795 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23797 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23799 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23796 A) (B-REF23798 B)) + (%%DTRMM SIDE UPLO TRANSA DIAG M-REF23793 N-REF23794 ALPHA-REF23795 + A-REF23796 LDA-REF23797 B-REF23798 LDB-REF23799)))) + +(CFFI:DEFCFUN ("dtrmv_" %%DTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -2830,16 +2870,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF544 ':INT32) (LDA-REF546 ':INT32) - (INCX-REF548 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF544 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF546 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF548 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF545 A) (X-REF547 X)) - (%%DTRMV UPLO TRANS DIAG N-REF544 A-REF545 LDA-REF546 X-REF547 - INCX-REF548)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23803 ':INT32) (LDA-REF23805 ':INT32) + (INCX-REF23807 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23803 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23805 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23807 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23804 A) (X-REF23806 X)) + (%%DTRMV UPLO TRANS DIAG N-REF23803 A-REF23804 LDA-REF23805 X-REF23806 + INCX-REF23807)))) -(CFFI:DEFCFUN ("dtrsm_" %%DTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dtrsm_" %%DTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -2868,19 +2908,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF553 ':INT32) (N-REF554 ':INT32) - (ALPHA-REF555 ':DOUBLE) (LDA-REF557 ':INT32) - (LDB-REF559 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF553 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF554 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF555 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF557 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF559 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF556 A) (B-REF558 B)) - (%%DTRSM SIDE UPLO TRANSA DIAG M-REF553 N-REF554 ALPHA-REF555 A-REF556 - LDA-REF557 B-REF558 LDB-REF559)))) - -(CFFI:DEFCFUN ("dtrsv_" %%DTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23812 ':INT32) (N-REF23813 ':INT32) + (ALPHA-REF23814 ':DOUBLE) (LDA-REF23816 ':INT32) + (LDB-REF23818 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23812 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23813 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23814 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23816 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23818 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23815 A) (B-REF23817 B)) + (%%DTRSM SIDE UPLO TRANSA DIAG M-REF23812 N-REF23813 ALPHA-REF23814 + A-REF23815 LDA-REF23816 B-REF23817 LDB-REF23818)))) + +(CFFI:DEFCFUN ("dtrsv_" %%DTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -2903,16 +2943,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF563 ':INT32) (LDA-REF565 ':INT32) - (INCX-REF567 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF563 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF565 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF567 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF564 A) (X-REF566 X)) - (%%DTRSV UPLO TRANS DIAG N-REF563 A-REF564 LDA-REF565 X-REF566 - INCX-REF567)))) - -(CFFI:DEFCFUN ("dzasum_" %%DZASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23822 ':INT32) (LDA-REF23824 ':INT32) + (INCX-REF23826 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23822 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23824 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23826 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23823 A) (X-REF23825 X)) + (%%DTRSV UPLO TRANS DIAG N-REF23822 A-REF23823 LDA-REF23824 X-REF23825 + INCX-REF23826)))) + +(CFFI:DEFCFUN ("dzasum_" %%DZASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :DOUBLE (N :POINTER) (ZX :POINTER) @@ -2927,13 +2967,13 @@ (COMMON-LISP:*)) ZX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF568 ':INT32) (INCX-REF570 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF568 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF570 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF569 ZX)) - (%%DZASUM N-REF568 ZX-REF569 INCX-REF570)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23827 ':INT32) (INCX-REF23829 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23827 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23829 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF23828 ZX)) + (%%DZASUM N-REF23827 ZX-REF23828 INCX-REF23829)))) -(CFFI:DEFCFUN ("dznrm2_" %%DZNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("dznrm2_" %%DZNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :DOUBLE (N :POINTER) (X :POINTER) @@ -2948,13 +2988,13 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF571 ':INT32) (INCX-REF573 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF571 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF573 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF572 X)) - (%%DZNRM2 N-REF571 X-REF572 INCX-REF573)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23830 ':INT32) (INCX-REF23832 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23830 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23832 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23831 X)) + (%%DZNRM2 N-REF23830 X-REF23831 INCX-REF23832)))) -(CFFI:DEFCFUN ("icamax_" %%ICAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("icamax_" %%ICAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :INT32 (N :POINTER) (CX :POINTER) @@ -2969,13 +3009,13 @@ (COMMON-LISP:*)) CX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF574 ':INT32) (INCX-REF576 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF574 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF576 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF575 CX)) - (%%ICAMAX N-REF574 CX-REF575 INCX-REF576)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23833 ':INT32) (INCX-REF23835 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23833 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23835 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23834 CX)) + (%%ICAMAX N-REF23833 CX-REF23834 INCX-REF23835)))) -(CFFI:DEFCFUN ("idamax_" %%IDAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("idamax_" %%IDAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :INT32 (N :POINTER) (DX :POINTER) @@ -2987,13 +3027,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF577 ':INT32) (INCX-REF579 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF577 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF579 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF578 DX)) - (%%IDAMAX N-REF577 DX-REF578 INCX-REF579)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23836 ':INT32) (INCX-REF23838 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23836 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23838 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23837 DX)) + (%%IDAMAX N-REF23836 DX-REF23837 INCX-REF23838)))) -(CFFI:DEFCFUN ("isamax_" %%ISAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("isamax_" %%ISAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :INT32 (N :POINTER) (SX :POINTER) @@ -3005,13 +3045,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF580 ':INT32) (INCX-REF582 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF580 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF582 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF581 SX)) - (%%ISAMAX N-REF580 SX-REF581 INCX-REF582)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23839 ':INT32) (INCX-REF23841 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23839 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23841 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23840 SX)) + (%%ISAMAX N-REF23839 SX-REF23840 INCX-REF23841)))) -(CFFI:DEFCFUN ("izamax_" %%IZAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("izamax_" %%IZAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :INT32 (N :POINTER) (ZX :POINTER) @@ -3026,13 +3066,13 @@ (COMMON-LISP:*)) ZX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF583 ':INT32) (INCX-REF585 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF583 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF585 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF584 ZX)) - (%%IZAMAX N-REF583 ZX-REF584 INCX-REF585)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23842 ':INT32) (INCX-REF23844 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23842 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23844 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF23843 ZX)) + (%%IZAMAX N-REF23842 ZX-REF23843 INCX-REF23844)))) -(CFFI:DEFCFUN ("lsame_" %%LSAME :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("lsame_" %%LSAME :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :INT32 (CA :STRING) (CB :STRING)) @@ -3042,9 +3082,10 @@ (COMMON-LISP:TYPE COMMON-LISP:STRING CA) (COMMON-LISP:TYPE COMMON-LISP:STRING CB)) (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL (%%LSAME CA CB)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL + (%%LSAME CA CB)))) -(CFFI:DEFCFUN ("sasum_" %%SASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("sasum_" %%SASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :FLOAT (N :POINTER) (SX :POINTER) @@ -3056,13 +3097,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF588 ':INT32) (INCX-REF590 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF588 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF590 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF589 SX)) - (%%SASUM N-REF588 SX-REF589 INCX-REF590)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23847 ':INT32) (INCX-REF23849 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23847 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23849 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23848 SX)) + (%%SASUM N-REF23847 SX-REF23848 INCX-REF23849)))) -(CFFI:DEFCFUN ("saxpy_" %%SAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("saxpy_" %%SAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (SA :POINTER) @@ -3081,16 +3122,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF591 ':INT32) (SA-REF592 ':FLOAT) - (INCX-REF594 ':INT32) (INCY-REF596 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF591 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF592 :FLOAT) SA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF594 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF596 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF593 SX) (SY-REF595 SY)) - (%%SAXPY N-REF591 SA-REF592 SX-REF593 INCX-REF594 SY-REF595 INCY-REF596)))) - -(CFFI:DEFCFUN ("scabs1_" %%SCABS1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23850 ':INT32) (SA-REF23851 ':FLOAT) + (INCX-REF23853 ':INT32) (INCY-REF23855 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23850 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF23851 :FLOAT) SA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23853 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23855 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23852 SX) (SY-REF23854 SY)) + (%%SAXPY N-REF23850 SA-REF23851 SX-REF23852 INCX-REF23853 SY-REF23854 + INCY-REF23855)))) + +(CFFI:DEFCFUN ("scabs1_" %%SCABS1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :FLOAT (Z :POINTER)) @@ -3098,16 +3140,16 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCABS1) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) Z)) - (CFFI:WITH-FOREIGN-OBJECTS ((Z-REF597 + (CFFI:WITH-FOREIGN-OBJECTS ((Z-REF23856 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - Z-REF597 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + Z-REF23856 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Z) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Z))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SCABS1 Z-REF597)))) + (%%SCABS1 Z-REF23856)))) -(CFFI:DEFCFUN ("scasum_" %%SCASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("scasum_" %%SCASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :FLOAT (N :POINTER) (CX :POINTER) @@ -3122,13 +3164,13 @@ (COMMON-LISP:*)) CX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF598 ':INT32) (INCX-REF600 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF598 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF600 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF599 CX)) - (%%SCASUM N-REF598 CX-REF599 INCX-REF600)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23857 ':INT32) (INCX-REF23859 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23857 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23859 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23858 CX)) + (%%SCASUM N-REF23857 CX-REF23858 INCX-REF23859)))) -(CFFI:DEFCFUN ("scnrm2_" %%SCNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("scnrm2_" %%SCNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :FLOAT (N :POINTER) (X :POINTER) @@ -3143,13 +3185,13 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF601 ':INT32) (INCX-REF603 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF601 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF603 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF602 X)) - (%%SCNRM2 N-REF601 X-REF602 INCX-REF603)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23860 ':INT32) (INCX-REF23862 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23860 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23862 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23861 X)) + (%%SCNRM2 N-REF23860 X-REF23861 INCX-REF23862)))) -(CFFI:DEFCFUN ("scopy_" %%SCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("scopy_" %%SCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (SX :POINTER) @@ -3166,15 +3208,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF604 ':INT32) (INCX-REF606 ':INT32) - (INCY-REF608 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF604 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF606 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF608 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF605 SX) (SY-REF607 SY)) - (%%SCOPY N-REF604 SX-REF605 INCX-REF606 SY-REF607 INCY-REF608)))) - -(CFFI:DEFCFUN ("sdot_" %%SDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23863 ':INT32) (INCX-REF23865 ':INT32) + (INCY-REF23867 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23863 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23865 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23867 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23864 SX) (SY-REF23866 SY)) + (%%SCOPY N-REF23863 SX-REF23864 INCX-REF23865 SY-REF23866 + INCY-REF23867)))) + +(CFFI:DEFCFUN ("sdot_" %%SDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :FLOAT (N :POINTER) (SX :POINTER) @@ -3191,15 +3234,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF609 ':INT32) (INCX-REF611 ':INT32) - (INCY-REF613 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF609 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF611 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF613 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF610 SX) (SY-REF612 SY)) - (%%SDOT N-REF609 SX-REF610 INCX-REF611 SY-REF612 INCY-REF613)))) - -(CFFI:DEFCFUN ("sdsdot_" %%SDSDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23868 ':INT32) (INCX-REF23870 ':INT32) + (INCY-REF23872 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23868 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23870 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23872 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23869 SX) (SY-REF23871 SY)) + (%%SDOT N-REF23868 SX-REF23869 INCX-REF23870 SY-REF23871 INCY-REF23872)))) + +(CFFI:DEFCFUN ("sdsdot_" %%SDSDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :FLOAT (N :POINTER) (SB :POINTER) @@ -3218,17 +3261,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF614 ':INT32) (SB-REF615 ':FLOAT) - (INCX-REF617 ':INT32) (INCY-REF619 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF614 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SB-REF615 :FLOAT) SB) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF617 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF619 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF616 SX) (SY-REF618 SY)) - (%%SDSDOT N-REF614 SB-REF615 SX-REF616 INCX-REF617 SY-REF618 - INCY-REF619)))) - -(CFFI:DEFCFUN ("sgbmv_" %%SGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23873 ':INT32) (SB-REF23874 ':FLOAT) + (INCX-REF23876 ':INT32) (INCY-REF23878 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23873 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SB-REF23874 :FLOAT) SB) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23876 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23878 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23875 SX) (SY-REF23877 SY)) + (%%SDSDOT N-REF23873 SB-REF23874 SX-REF23875 INCX-REF23876 SY-REF23877 + INCY-REF23878)))) + +(CFFI:DEFCFUN ("sgbmv_" %%SGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANS :STRING) (M :POINTER) @@ -3262,26 +3305,27 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF621 ':INT32) (N-REF622 ':INT32) - (KL-REF623 ':INT32) (KU-REF624 ':INT32) - (ALPHA-REF625 ':FLOAT) (LDA-REF627 ':INT32) - (INCX-REF629 ':INT32) (BETA-REF630 ':FLOAT) - (INCY-REF632 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF621 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF622 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF623 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF624 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF625 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF627 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF629 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF630 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF632 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF626 A) (X-REF628 X) (Y-REF631 Y)) - (%%SGBMV TRANS M-REF621 N-REF622 KL-REF623 KU-REF624 ALPHA-REF625 A-REF626 - LDA-REF627 X-REF628 INCX-REF629 BETA-REF630 Y-REF631 INCY-REF632)))) - -(CFFI:DEFCFUN ("sgemm_" %%SGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23880 ':INT32) (N-REF23881 ':INT32) + (KL-REF23882 ':INT32) (KU-REF23883 ':INT32) + (ALPHA-REF23884 ':FLOAT) (LDA-REF23886 ':INT32) + (INCX-REF23888 ':INT32) (BETA-REF23889 ':FLOAT) + (INCY-REF23891 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23880 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23881 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF23882 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF23883 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23884 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23886 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23888 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23889 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23891 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23885 A) (X-REF23887 X) + (Y-REF23890 Y)) + (%%SGBMV TRANS M-REF23880 N-REF23881 KL-REF23882 KU-REF23883 + ALPHA-REF23884 A-REF23885 LDA-REF23886 X-REF23887 INCX-REF23888 + BETA-REF23889 Y-REF23890 INCY-REF23891)))) + +(CFFI:DEFCFUN ("sgemm_" %%SGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANSA :STRING) (TRANSB :STRING) @@ -3315,24 +3359,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF635 ':INT32) (N-REF636 ':INT32) - (K-REF637 ':INT32) (ALPHA-REF638 ':FLOAT) - (LDA-REF640 ':INT32) (LDB-REF642 ':INT32) - (BETA-REF643 ':FLOAT) (LDC-REF645 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF635 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF636 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF637 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF638 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF640 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF642 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF643 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF645 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF639 A) (B-REF641 B) (C-REF644 C)) - (%%SGEMM TRANSA TRANSB M-REF635 N-REF636 K-REF637 ALPHA-REF638 A-REF639 - LDA-REF640 B-REF641 LDB-REF642 BETA-REF643 C-REF644 LDC-REF645)))) - -(CFFI:DEFCFUN ("sgemv_" %%SGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23894 ':INT32) (N-REF23895 ':INT32) + (K-REF23896 ':INT32) (ALPHA-REF23897 ':FLOAT) + (LDA-REF23899 ':INT32) (LDB-REF23901 ':INT32) + (BETA-REF23902 ':FLOAT) (LDC-REF23904 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23894 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23895 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23896 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23897 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23899 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23901 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23902 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23904 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23898 A) (B-REF23900 B) + (C-REF23903 C)) + (%%SGEMM TRANSA TRANSB M-REF23894 N-REF23895 K-REF23896 ALPHA-REF23897 + A-REF23898 LDA-REF23899 B-REF23900 LDB-REF23901 BETA-REF23902 C-REF23903 + LDC-REF23904)))) + +(CFFI:DEFCFUN ("sgemv_" %%SGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANS :STRING) (M :POINTER) @@ -3362,23 +3407,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF647 ':INT32) (N-REF648 ':INT32) - (ALPHA-REF649 ':FLOAT) (LDA-REF651 ':INT32) - (INCX-REF653 ':INT32) (BETA-REF654 ':FLOAT) - (INCY-REF656 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF647 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF648 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF649 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF651 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF653 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF654 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF656 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF650 A) (X-REF652 X) (Y-REF655 Y)) - (%%SGEMV TRANS M-REF647 N-REF648 ALPHA-REF649 A-REF650 LDA-REF651 X-REF652 - INCX-REF653 BETA-REF654 Y-REF655 INCY-REF656)))) - -(CFFI:DEFCFUN ("sger_" %%SGER :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23906 ':INT32) (N-REF23907 ':INT32) + (ALPHA-REF23908 ':FLOAT) (LDA-REF23910 ':INT32) + (INCX-REF23912 ':INT32) (BETA-REF23913 ':FLOAT) + (INCY-REF23915 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23906 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23907 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23908 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23910 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23912 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23913 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23915 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23909 A) (X-REF23911 X) + (Y-REF23914 Y)) + (%%SGEMV TRANS M-REF23906 N-REF23907 ALPHA-REF23908 A-REF23909 + LDA-REF23910 X-REF23911 INCX-REF23912 BETA-REF23913 Y-REF23914 + INCY-REF23915)))) + +(CFFI:DEFCFUN ("sger_" %%SGER :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (M :POINTER) (N :POINTER) @@ -3404,21 +3450,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF657 ':INT32) (N-REF658 ':INT32) - (ALPHA-REF659 ':FLOAT) (INCX-REF661 ':INT32) - (INCY-REF663 ':INT32) (LDA-REF665 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF657 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF658 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF659 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF661 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF663 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF665 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF660 X) (Y-REF662 Y) (A-REF664 A)) - (%%SGER M-REF657 N-REF658 ALPHA-REF659 X-REF660 INCX-REF661 Y-REF662 - INCY-REF663 A-REF664 LDA-REF665)))) - -(CFFI:DEFCFUN ("snrm2_" %%SNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23916 ':INT32) (N-REF23917 ':INT32) + (ALPHA-REF23918 ':FLOAT) (INCX-REF23920 ':INT32) + (INCY-REF23922 ':INT32) (LDA-REF23924 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23916 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23917 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23918 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23920 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23922 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23924 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23919 X) (Y-REF23921 Y) + (A-REF23923 A)) + (%%SGER M-REF23916 N-REF23917 ALPHA-REF23918 X-REF23919 INCX-REF23920 + Y-REF23921 INCY-REF23922 A-REF23923 LDA-REF23924)))) + +(CFFI:DEFCFUN ("snrm2_" %%SNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :FLOAT (N :POINTER) (X :POINTER) @@ -3430,13 +3476,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF666 ':INT32) (INCX-REF668 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF666 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF668 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF667 X)) - (%%SNRM2 N-REF666 X-REF667 INCX-REF668)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23925 ':INT32) (INCX-REF23927 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23925 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23927 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23926 X)) + (%%SNRM2 N-REF23925 X-REF23926 INCX-REF23927)))) -(CFFI:DEFCFUN ("srot_" %%SROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("srot_" %%SROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (SX :POINTER) @@ -3457,19 +3503,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF669 ':INT32) (INCX-REF671 ':INT32) - (INCY-REF673 ':INT32) (C-REF674 ':FLOAT) - (S-REF675 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF669 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF671 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF673 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF674 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF675 :FLOAT) S) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF670 SX) (SY-REF672 SY)) - (%%SROT N-REF669 SX-REF670 INCX-REF671 SY-REF672 INCY-REF673 C-REF674 - S-REF675)))) - -(CFFI:DEFCFUN ("srotg_" %%SROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23928 ':INT32) (INCX-REF23930 ':INT32) + (INCY-REF23932 ':INT32) (C-REF23933 ':FLOAT) + (S-REF23934 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23928 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23930 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23932 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23933 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23934 :FLOAT) S) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23929 SX) (SY-REF23931 SY)) + (%%SROT N-REF23928 SX-REF23929 INCX-REF23930 SY-REF23931 INCY-REF23932 + C-REF23933 S-REF23934)))) + +(CFFI:DEFCFUN ("srotg_" %%SROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SA :POINTER) (SB :POINTER) @@ -3482,16 +3528,16 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SB) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)) - (CFFI:WITH-FOREIGN-OBJECTS ((SA-REF676 ':FLOAT) (SB-REF677 ':FLOAT) - (C-REF678 ':FLOAT) (S-REF679 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF676 :FLOAT) SA) - (COMMON-LISP:SETF (CFFI:MEM-REF SB-REF677 :FLOAT) SB) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF678 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF679 :FLOAT) S) + (CFFI:WITH-FOREIGN-OBJECTS ((SA-REF23935 ':FLOAT) (SB-REF23936 ':FLOAT) + (C-REF23937 ':FLOAT) (S-REF23938 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF23935 :FLOAT) SA) + (COMMON-LISP:SETF (CFFI:MEM-REF SB-REF23936 :FLOAT) SB) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23937 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23938 :FLOAT) S) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SROTG SA-REF676 SB-REF677 C-REF678 S-REF679)))) + (%%SROTG SA-REF23935 SB-REF23936 C-REF23937 S-REF23938)))) -(CFFI:DEFCFUN ("srotm_" %%SROTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("srotm_" %%SROTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (SX :POINTER) @@ -3512,17 +3558,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SPARAM)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF680 ':INT32) (INCX-REF682 ':INT32) - (INCY-REF684 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF680 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF682 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF684 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((SX-REF681 SX) (SY-REF683 SY) (SPARAM-REF685 SPARAM)) - (%%SROTM N-REF680 SX-REF681 INCX-REF682 SY-REF683 INCY-REF684 - SPARAM-REF685)))) - -(CFFI:DEFCFUN ("srotmg_" %%SROTMG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23939 ':INT32) (INCX-REF23941 ':INT32) + (INCY-REF23943 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23939 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23941 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23943 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23940 SX) (SY-REF23942 SY) + (SPARAM-REF23944 SPARAM)) + (%%SROTM N-REF23939 SX-REF23940 INCX-REF23941 SY-REF23942 INCY-REF23943 + SPARAM-REF23944)))) + +(CFFI:DEFCFUN ("srotmg_" %%SROTMG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SD1 :POINTER) (SD2 :POINTER) @@ -3539,16 +3585,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SPARAM)) - (CFFI:WITH-FOREIGN-OBJECTS ((SD1-REF686 ':FLOAT) (SD2-REF687 ':FLOAT) - (SX1-REF688 ':FLOAT) (SY1-REF689 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF SD1-REF686 :FLOAT) SD1) - (COMMON-LISP:SETF (CFFI:MEM-REF SD2-REF687 :FLOAT) SD2) - (COMMON-LISP:SETF (CFFI:MEM-REF SX1-REF688 :FLOAT) SX1) - (COMMON-LISP:SETF (CFFI:MEM-REF SY1-REF689 :FLOAT) SY1) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SPARAM-REF690 SPARAM)) - (%%SROTMG SD1-REF686 SD2-REF687 SX1-REF688 SY1-REF689 SPARAM-REF690)))) - -(CFFI:DEFCFUN ("ssbmv_" %%SSBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((SD1-REF23945 ':FLOAT) (SD2-REF23946 ':FLOAT) + (SX1-REF23947 ':FLOAT) (SY1-REF23948 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF SD1-REF23945 :FLOAT) SD1) + (COMMON-LISP:SETF (CFFI:MEM-REF SD2-REF23946 :FLOAT) SD2) + (COMMON-LISP:SETF (CFFI:MEM-REF SX1-REF23947 :FLOAT) SX1) + (COMMON-LISP:SETF (CFFI:MEM-REF SY1-REF23948 :FLOAT) SY1) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SPARAM-REF23949 SPARAM)) + (%%SROTMG SD1-REF23945 SD2-REF23946 SX1-REF23947 SY1-REF23948 + SPARAM-REF23949)))) + +(CFFI:DEFCFUN ("ssbmv_" %%SSBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -3578,23 +3625,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF692 ':INT32) (K-REF693 ':INT32) - (ALPHA-REF694 ':FLOAT) (LDA-REF696 ':INT32) - (INCX-REF698 ':INT32) (BETA-REF699 ':FLOAT) - (INCY-REF701 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF692 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF693 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF694 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF696 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF698 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF699 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF701 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF695 A) (X-REF697 X) (Y-REF700 Y)) - (%%SSBMV UPLO N-REF692 K-REF693 ALPHA-REF694 A-REF695 LDA-REF696 X-REF697 - INCX-REF698 BETA-REF699 Y-REF700 INCY-REF701)))) - -(CFFI:DEFCFUN ("sscal_" %%SSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23951 ':INT32) (K-REF23952 ':INT32) + (ALPHA-REF23953 ':FLOAT) (LDA-REF23955 ':INT32) + (INCX-REF23957 ':INT32) (BETA-REF23958 ':FLOAT) + (INCY-REF23960 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23951 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23952 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23953 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23955 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23957 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23958 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23960 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23954 A) (X-REF23956 X) + (Y-REF23959 Y)) + (%%SSBMV UPLO N-REF23951 K-REF23952 ALPHA-REF23953 A-REF23954 + LDA-REF23955 X-REF23956 INCX-REF23957 BETA-REF23958 Y-REF23959 + INCY-REF23960)))) + +(CFFI:DEFCFUN ("sscal_" %%SSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (SA :POINTER) @@ -3608,15 +3656,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF702 ':INT32) (SA-REF703 ':FLOAT) - (INCX-REF705 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF702 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF703 :FLOAT) SA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF705 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF704 SX)) - (%%SSCAL N-REF702 SA-REF703 SX-REF704 INCX-REF705)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23961 ':INT32) (SA-REF23962 ':FLOAT) + (INCX-REF23964 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23961 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF23962 :FLOAT) SA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23964 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23963 SX)) + (%%SSCAL N-REF23961 SA-REF23962 SX-REF23963 INCX-REF23964)))) -(CFFI:DEFCFUN ("sspmv_" %%SSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("sspmv_" %%SSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -3642,20 +3690,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF707 ':INT32) (ALPHA-REF708 ':FLOAT) - (INCX-REF711 ':INT32) (BETA-REF712 ':FLOAT) - (INCY-REF714 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF707 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF708 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF711 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF712 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF714 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((AP-REF709 AP) (X-REF710 X) (Y-REF713 Y)) - (%%SSPMV UPLO N-REF707 ALPHA-REF708 AP-REF709 X-REF710 INCX-REF711 - BETA-REF712 Y-REF713 INCY-REF714)))) - -(CFFI:DEFCFUN ("sspr_" %%SSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23966 ':INT32) (ALPHA-REF23967 ':FLOAT) + (INCX-REF23970 ':INT32) (BETA-REF23971 ':FLOAT) + (INCY-REF23973 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23966 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23967 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23970 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23971 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23973 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23968 AP) (X-REF23969 X) + (Y-REF23972 Y)) + (%%SSPMV UPLO N-REF23966 ALPHA-REF23967 AP-REF23968 X-REF23969 + INCX-REF23970 BETA-REF23971 Y-REF23972 INCY-REF23973)))) + +(CFFI:DEFCFUN ("sspr_" %%SSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -3675,15 +3723,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF716 ':INT32) (ALPHA-REF717 ':FLOAT) - (INCX-REF719 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF716 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF717 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF719 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF718 X) (AP-REF720 AP)) - (%%SSPR UPLO N-REF716 ALPHA-REF717 X-REF718 INCX-REF719 AP-REF720)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23975 ':INT32) (ALPHA-REF23976 ':FLOAT) + (INCX-REF23978 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23975 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23976 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23978 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23977 X) (AP-REF23979 AP)) + (%%SSPR UPLO N-REF23975 ALPHA-REF23976 X-REF23977 INCX-REF23978 + AP-REF23979)))) -(CFFI:DEFCFUN ("sspr2_" %%SSPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("sspr2_" %%SSPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -3708,18 +3757,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF722 ':INT32) (ALPHA-REF723 ':FLOAT) - (INCX-REF725 ':INT32) (INCY-REF727 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF722 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF723 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF725 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF727 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF724 X) (Y-REF726 Y) (AP-REF728 AP)) - (%%SSPR2 UPLO N-REF722 ALPHA-REF723 X-REF724 INCX-REF725 Y-REF726 - INCY-REF727 AP-REF728)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23981 ':INT32) (ALPHA-REF23982 ':FLOAT) + (INCX-REF23984 ':INT32) (INCY-REF23986 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23981 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23982 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23984 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23986 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23983 X) (Y-REF23985 Y) + (AP-REF23987 AP)) + (%%SSPR2 UPLO N-REF23981 ALPHA-REF23982 X-REF23983 INCX-REF23984 + Y-REF23985 INCY-REF23986 AP-REF23987)))) -(CFFI:DEFCFUN ("sswap_" %%SSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("sswap_" %%SSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (SX :POINTER) @@ -3736,15 +3785,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF729 ':INT32) (INCX-REF731 ':INT32) - (INCY-REF733 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF729 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF731 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF733 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF730 SX) (SY-REF732 SY)) - (%%SSWAP N-REF729 SX-REF730 INCX-REF731 SY-REF732 INCY-REF733)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23988 ':INT32) (INCX-REF23990 ':INT32) + (INCY-REF23992 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23988 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23990 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23992 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23989 SX) (SY-REF23991 SY)) + (%%SSWAP N-REF23988 SX-REF23989 INCX-REF23990 SY-REF23991 + INCY-REF23992)))) -(CFFI:DEFCFUN ("ssymm_" %%SSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ssymm_" %%SSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -3776,23 +3826,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF736 ':INT32) (N-REF737 ':INT32) - (ALPHA-REF738 ':FLOAT) (LDA-REF740 ':INT32) - (LDB-REF742 ':INT32) (BETA-REF743 ':FLOAT) - (LDC-REF745 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF736 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF737 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF738 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF740 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF742 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF743 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF745 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF739 A) (B-REF741 B) (C-REF744 C)) - (%%SSYMM SIDE UPLO M-REF736 N-REF737 ALPHA-REF738 A-REF739 LDA-REF740 - B-REF741 LDB-REF742 BETA-REF743 C-REF744 LDC-REF745)))) - -(CFFI:DEFCFUN ("ssymv_" %%SSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23995 ':INT32) (N-REF23996 ':INT32) + (ALPHA-REF23997 ':FLOAT) (LDA-REF23999 ':INT32) + (LDB-REF24001 ':INT32) (BETA-REF24002 ':FLOAT) + (LDC-REF24004 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23995 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23996 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23997 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23999 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24001 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24002 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24004 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23998 A) (B-REF24000 B) + (C-REF24003 C)) + (%%SSYMM SIDE UPLO M-REF23995 N-REF23996 ALPHA-REF23997 A-REF23998 + LDA-REF23999 B-REF24000 LDB-REF24001 BETA-REF24002 C-REF24003 + LDC-REF24004)))) + +(CFFI:DEFCFUN ("ssymv_" %%SSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -3820,21 +3871,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF747 ':INT32) (ALPHA-REF748 ':FLOAT) - (LDA-REF750 ':INT32) (INCX-REF752 ':INT32) - (BETA-REF753 ':FLOAT) (INCY-REF755 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF747 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF748 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF750 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF752 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF753 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF755 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF749 A) (X-REF751 X) (Y-REF754 Y)) - (%%SSYMV UPLO N-REF747 ALPHA-REF748 A-REF749 LDA-REF750 X-REF751 - INCX-REF752 BETA-REF753 Y-REF754 INCY-REF755)))) - -(CFFI:DEFCFUN ("ssyr_" %%SSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24006 ':INT32) (ALPHA-REF24007 ':FLOAT) + (LDA-REF24009 ':INT32) (INCX-REF24011 ':INT32) + (BETA-REF24012 ':FLOAT) (INCY-REF24014 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24006 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24007 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24009 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24011 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24012 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24014 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24008 A) (X-REF24010 X) + (Y-REF24013 Y)) + (%%SSYMV UPLO N-REF24006 ALPHA-REF24007 A-REF24008 LDA-REF24009 + X-REF24010 INCX-REF24011 BETA-REF24012 Y-REF24013 INCY-REF24014)))) + +(CFFI:DEFCFUN ("ssyr_" %%SSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -3855,17 +3906,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF757 ':INT32) (ALPHA-REF758 ':FLOAT) - (INCX-REF760 ':INT32) (LDA-REF762 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF757 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF758 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF760 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF762 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF759 X) (A-REF761 A)) - (%%SSYR UPLO N-REF757 ALPHA-REF758 X-REF759 INCX-REF760 A-REF761 - LDA-REF762)))) - -(CFFI:DEFCFUN ("ssyr2_" %%SSYR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24016 ':INT32) (ALPHA-REF24017 ':FLOAT) + (INCX-REF24019 ':INT32) (LDA-REF24021 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24016 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24017 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24019 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24021 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24018 X) (A-REF24020 A)) + (%%SSYR UPLO N-REF24016 ALPHA-REF24017 X-REF24018 INCX-REF24019 + A-REF24020 LDA-REF24021)))) + +(CFFI:DEFCFUN ("ssyr2_" %%SSYR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -3891,20 +3942,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF764 ':INT32) (ALPHA-REF765 ':FLOAT) - (INCX-REF767 ':INT32) (INCY-REF769 ':INT32) - (LDA-REF771 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF764 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF765 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF767 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF769 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF771 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF766 X) (Y-REF768 Y) (A-REF770 A)) - (%%SSYR2 UPLO N-REF764 ALPHA-REF765 X-REF766 INCX-REF767 Y-REF768 - INCY-REF769 A-REF770 LDA-REF771)))) - -(CFFI:DEFCFUN ("ssyr2k_" %%SSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24023 ':INT32) (ALPHA-REF24024 ':FLOAT) + (INCX-REF24026 ':INT32) (INCY-REF24028 ':INT32) + (LDA-REF24030 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24023 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24024 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24026 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24028 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24030 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24025 X) (Y-REF24027 Y) + (A-REF24029 A)) + (%%SSYR2 UPLO N-REF24023 ALPHA-REF24024 X-REF24025 INCX-REF24026 + Y-REF24027 INCY-REF24028 A-REF24029 LDA-REF24030)))) + +(CFFI:DEFCFUN ("ssyr2k_" %%SSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -3936,23 +3987,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF774 ':INT32) (K-REF775 ':INT32) - (ALPHA-REF776 ':FLOAT) (LDA-REF778 ':INT32) - (LDB-REF780 ':INT32) (BETA-REF781 ':FLOAT) - (LDC-REF783 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF774 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF775 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF776 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF778 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF780 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF781 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF783 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF777 A) (B-REF779 B) (C-REF782 C)) - (%%SSYR2K UPLO TRANS N-REF774 K-REF775 ALPHA-REF776 A-REF777 LDA-REF778 - B-REF779 LDB-REF780 BETA-REF781 C-REF782 LDC-REF783)))) - -(CFFI:DEFCFUN ("ssyrk_" %%SSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24033 ':INT32) (K-REF24034 ':INT32) + (ALPHA-REF24035 ':FLOAT) (LDA-REF24037 ':INT32) + (LDB-REF24039 ':INT32) (BETA-REF24040 ':FLOAT) + (LDC-REF24042 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24033 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24034 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24035 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24037 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24039 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24040 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24042 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24036 A) (B-REF24038 B) + (C-REF24041 C)) + (%%SSYR2K UPLO TRANS N-REF24033 K-REF24034 ALPHA-REF24035 A-REF24036 + LDA-REF24037 B-REF24038 LDB-REF24039 BETA-REF24040 C-REF24041 + LDC-REF24042)))) + +(CFFI:DEFCFUN ("ssyrk_" %%SSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -3979,20 +4031,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF786 ':INT32) (K-REF787 ':INT32) - (ALPHA-REF788 ':FLOAT) (LDA-REF790 ':INT32) - (BETA-REF791 ':FLOAT) (LDC-REF793 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF786 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF787 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF788 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF790 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF791 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF793 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF789 A) (C-REF792 C)) - (%%SSYRK UPLO TRANS N-REF786 K-REF787 ALPHA-REF788 A-REF789 LDA-REF790 - BETA-REF791 C-REF792 LDC-REF793)))) - -(CFFI:DEFCFUN ("stbmv_" %%STBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24045 ':INT32) (K-REF24046 ':INT32) + (ALPHA-REF24047 ':FLOAT) (LDA-REF24049 ':INT32) + (BETA-REF24050 ':FLOAT) (LDC-REF24052 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24045 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24046 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24047 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24049 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24050 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24052 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24048 A) (C-REF24051 C)) + (%%SSYRK UPLO TRANS N-REF24045 K-REF24046 ALPHA-REF24047 A-REF24048 + LDA-REF24049 BETA-REF24050 C-REF24051 LDC-REF24052)))) + +(CFFI:DEFCFUN ("stbmv_" %%STBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -4017,17 +4069,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF797 ':INT32) (K-REF798 ':INT32) - (LDA-REF800 ':INT32) (INCX-REF802 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF797 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF798 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF800 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF802 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF799 A) (X-REF801 X)) - (%%STBMV UPLO TRANS DIAG N-REF797 K-REF798 A-REF799 LDA-REF800 X-REF801 - INCX-REF802)))) - -(CFFI:DEFCFUN ("stbsv_" %%STBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24056 ':INT32) (K-REF24057 ':INT32) + (LDA-REF24059 ':INT32) (INCX-REF24061 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24056 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24057 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24059 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24061 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24058 A) (X-REF24060 X)) + (%%STBMV UPLO TRANS DIAG N-REF24056 K-REF24057 A-REF24058 LDA-REF24059 + X-REF24060 INCX-REF24061)))) + +(CFFI:DEFCFUN ("stbsv_" %%STBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -4052,17 +4104,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF806 ':INT32) (K-REF807 ':INT32) - (LDA-REF809 ':INT32) (INCX-REF811 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF806 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF807 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF809 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF811 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF808 A) (X-REF810 X)) - (%%STBSV UPLO TRANS DIAG N-REF806 K-REF807 A-REF808 LDA-REF809 X-REF810 - INCX-REF811)))) - -(CFFI:DEFCFUN ("stpmv_" %%STPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24065 ':INT32) (K-REF24066 ':INT32) + (LDA-REF24068 ':INT32) (INCX-REF24070 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24065 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24066 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24068 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24070 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24067 A) (X-REF24069 X)) + (%%STBSV UPLO TRANS DIAG N-REF24065 K-REF24066 A-REF24067 LDA-REF24068 + X-REF24069 INCX-REF24070)))) + +(CFFI:DEFCFUN ("stpmv_" %%STPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -4083,13 +4135,14 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF815 ':INT32) (INCX-REF818 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF815 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF818 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF816 AP) (X-REF817 X)) - (%%STPMV UPLO TRANS DIAG N-REF815 AP-REF816 X-REF817 INCX-REF818)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24074 ':INT32) (INCX-REF24077 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24074 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24077 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24075 AP) (X-REF24076 X)) + (%%STPMV UPLO TRANS DIAG N-REF24074 AP-REF24075 X-REF24076 + INCX-REF24077)))) -(CFFI:DEFCFUN ("stpsv_" %%STPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("stpsv_" %%STPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -4110,13 +4163,14 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF822 ':INT32) (INCX-REF825 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF822 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF825 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF823 AP) (X-REF824 X)) - (%%STPSV UPLO TRANS DIAG N-REF822 AP-REF823 X-REF824 INCX-REF825)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24081 ':INT32) (INCX-REF24084 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24081 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24084 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24082 AP) (X-REF24083 X)) + (%%STPSV UPLO TRANS DIAG N-REF24081 AP-REF24082 X-REF24083 + INCX-REF24084)))) -(CFFI:DEFCFUN ("strmm_" %%STRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("strmm_" %%STRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -4145,19 +4199,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF830 ':INT32) (N-REF831 ':INT32) - (ALPHA-REF832 ':FLOAT) (LDA-REF834 ':INT32) - (LDB-REF836 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF830 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF831 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF832 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF834 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF836 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF833 A) (B-REF835 B)) - (%%STRMM SIDE UPLO TRANSA DIAG M-REF830 N-REF831 ALPHA-REF832 A-REF833 - LDA-REF834 B-REF835 LDB-REF836)))) - -(CFFI:DEFCFUN ("strmv_" %%STRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24089 ':INT32) (N-REF24090 ':INT32) + (ALPHA-REF24091 ':FLOAT) (LDA-REF24093 ':INT32) + (LDB-REF24095 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24089 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24090 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24091 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24093 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24095 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24092 A) (B-REF24094 B)) + (%%STRMM SIDE UPLO TRANSA DIAG M-REF24089 N-REF24090 ALPHA-REF24091 + A-REF24092 LDA-REF24093 B-REF24094 LDB-REF24095)))) + +(CFFI:DEFCFUN ("strmv_" %%STRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -4180,16 +4234,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF840 ':INT32) (LDA-REF842 ':INT32) - (INCX-REF844 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF840 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF842 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF844 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF841 A) (X-REF843 X)) - (%%STRMV UPLO TRANS DIAG N-REF840 A-REF841 LDA-REF842 X-REF843 - INCX-REF844)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24099 ':INT32) (LDA-REF24101 ':INT32) + (INCX-REF24103 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24099 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24101 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24103 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24100 A) (X-REF24102 X)) + (%%STRMV UPLO TRANS DIAG N-REF24099 A-REF24100 LDA-REF24101 X-REF24102 + INCX-REF24103)))) -(CFFI:DEFCFUN ("strsm_" %%STRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("strsm_" %%STRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -4218,19 +4272,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF849 ':INT32) (N-REF850 ':INT32) - (ALPHA-REF851 ':FLOAT) (LDA-REF853 ':INT32) - (LDB-REF855 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF849 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF850 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF851 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF853 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF855 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF852 A) (B-REF854 B)) - (%%STRSM SIDE UPLO TRANSA DIAG M-REF849 N-REF850 ALPHA-REF851 A-REF852 - LDA-REF853 B-REF854 LDB-REF855)))) - -(CFFI:DEFCFUN ("strsv_" %%STRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24108 ':INT32) (N-REF24109 ':INT32) + (ALPHA-REF24110 ':FLOAT) (LDA-REF24112 ':INT32) + (LDB-REF24114 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24108 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24109 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24110 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24112 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24114 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24111 A) (B-REF24113 B)) + (%%STRSM SIDE UPLO TRANSA DIAG M-REF24108 N-REF24109 ALPHA-REF24110 + A-REF24111 LDA-REF24112 B-REF24113 LDB-REF24114)))) + +(CFFI:DEFCFUN ("strsv_" %%STRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -4253,16 +4307,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF859 ':INT32) (LDA-REF861 ':INT32) - (INCX-REF863 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF859 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF861 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF863 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF860 A) (X-REF862 X)) - (%%STRSV UPLO TRANS DIAG N-REF859 A-REF860 LDA-REF861 X-REF862 - INCX-REF863)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24118 ':INT32) (LDA-REF24120 ':INT32) + (INCX-REF24122 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24118 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24120 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24122 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24119 A) (X-REF24121 X)) + (%%STRSV UPLO TRANS DIAG N-REF24118 A-REF24119 LDA-REF24120 X-REF24121 + INCX-REF24122)))) -(CFFI:DEFCFUN ("xerbla_" %%XERBLA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("xerbla_" %%XERBLA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SRNAME :STRING) (INFO :POINTER)) @@ -4271,13 +4325,13 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA) (COMMON-LISP:TYPE COMMON-LISP:STRING SRNAME) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((INFO-REF865 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF865 :INT32) INFO) + (CFFI:WITH-FOREIGN-OBJECTS ((INFO-REF24124 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24124 :INT32) INFO) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%XERBLA SRNAME INFO-REF865)))) + (%%XERBLA SRNAME INFO-REF24124)))) (CFFI:DEFCFUN ("xerbla_array_" %%XERBLA_ARRAY :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SRNAME_ARRAY :POINTER) (SRNAME_LEN :POINTER) @@ -4289,13 +4343,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SRNAME_LEN) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SRNAME_LEN-REF867 ':INT32) (INFO-REF868 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SRNAME_LEN-REF867 :INT32) SRNAME_LEN) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF868 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SRNAME_ARRAY-REF866 SRNAME_ARRAY)) - (%%XERBLA_ARRAY SRNAME_ARRAY-REF866 SRNAME_LEN-REF867 INFO-REF868)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SRNAME_LEN-REF24126 ':INT32) + (INFO-REF24127 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SRNAME_LEN-REF24126 :INT32) SRNAME_LEN) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24127 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SRNAME_ARRAY-REF24125 + SRNAME_ARRAY)) + (%%XERBLA_ARRAY SRNAME_ARRAY-REF24125 SRNAME_LEN-REF24126 + INFO-REF24127)))) -(CFFI:DEFCFUN ("zaxpy_" %%ZAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zaxpy_" %%ZAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (ZA :POINTER) @@ -4321,21 +4378,23 @@ (COMMON-LISP:*)) ZY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF869 ':INT32) - (ZA-REF870 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24128 ':INT32) + (ZA-REF24129 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF872 ':INT32) (INCY-REF874 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF869 :INT32) N) + (INCX-REF24131 ':INT32) (INCY-REF24133 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24128 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ZA-REF870 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + ZA-REF24129 + MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ZA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ZA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF872 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF874 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF871 ZX) (ZY-REF873 ZY)) - (%%ZAXPY N-REF869 ZA-REF870 ZX-REF871 INCX-REF872 ZY-REF873 INCY-REF874)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24131 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24133 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24130 ZX) (ZY-REF24132 ZY)) + (%%ZAXPY N-REF24128 ZA-REF24129 ZX-REF24130 INCX-REF24131 ZY-REF24132 + INCY-REF24133)))) -(CFFI:DEFCFUN ("zcopy_" %%ZCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zcopy_" %%ZCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (ZX :POINTER) @@ -4358,15 +4417,16 @@ (COMMON-LISP:*)) ZY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF875 ':INT32) (INCX-REF877 ':INT32) - (INCY-REF879 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF875 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF877 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF879 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF876 ZX) (ZY-REF878 ZY)) - (%%ZCOPY N-REF875 ZX-REF876 INCX-REF877 ZY-REF878 INCY-REF879)))) - -(CFFI:DEFCFUN ("zdotc_" %%ZDOTC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24134 ':INT32) (INCX-REF24136 ':INT32) + (INCY-REF24138 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24134 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24136 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24138 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24135 ZX) (ZY-REF24137 ZY)) + (%%ZCOPY N-REF24134 ZX-REF24135 INCX-REF24136 ZY-REF24137 + INCY-REF24138)))) + +(CFFI:DEFCFUN ("zdotc_" %%ZDOTC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT (N :POINTER) (ZX :POINTER) @@ -4389,15 +4449,16 @@ (COMMON-LISP:*)) ZY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF880 ':INT32) (INCX-REF882 ':INT32) - (INCY-REF884 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF880 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF882 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF884 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF881 ZX) (ZY-REF883 ZY)) - (%%ZDOTC N-REF880 ZX-REF881 INCX-REF882 ZY-REF883 INCY-REF884)))) - -(CFFI:DEFCFUN ("zdotu_" %%ZDOTU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24139 ':INT32) (INCX-REF24141 ':INT32) + (INCY-REF24143 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24139 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24141 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24143 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24140 ZX) (ZY-REF24142 ZY)) + (%%ZDOTC N-REF24139 ZX-REF24140 INCX-REF24141 ZY-REF24142 + INCY-REF24143)))) + +(CFFI:DEFCFUN ("zdotu_" %%ZDOTU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT (N :POINTER) (ZX :POINTER) @@ -4420,15 +4481,16 @@ (COMMON-LISP:*)) ZY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF885 ':INT32) (INCX-REF887 ':INT32) - (INCY-REF889 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF885 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF887 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF889 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF886 ZX) (ZY-REF888 ZY)) - (%%ZDOTU N-REF885 ZX-REF886 INCX-REF887 ZY-REF888 INCY-REF889)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24144 ':INT32) (INCX-REF24146 ':INT32) + (INCY-REF24148 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24144 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24146 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24148 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24145 ZX) (ZY-REF24147 ZY)) + (%%ZDOTU N-REF24144 ZX-REF24145 INCX-REF24146 ZY-REF24147 + INCY-REF24148)))) -(CFFI:DEFCFUN ("zdrot_" %%ZDROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zdrot_" %%ZDROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (CX :POINTER) @@ -4455,19 +4517,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF890 ':INT32) (INCX-REF892 ':INT32) - (INCY-REF894 ':INT32) (C-REF895 ':DOUBLE) - (S-REF896 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF890 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF892 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF894 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF895 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF896 :DOUBLE) S) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF891 CX) (CY-REF893 CY)) - (%%ZDROT N-REF890 CX-REF891 INCX-REF892 CY-REF893 INCY-REF894 C-REF895 - S-REF896)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24149 ':INT32) (INCX-REF24151 ':INT32) + (INCY-REF24153 ':INT32) (C-REF24154 ':DOUBLE) + (S-REF24155 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24149 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24151 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24153 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF24154 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF24155 :DOUBLE) S) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF24150 CX) (CY-REF24152 CY)) + (%%ZDROT N-REF24149 CX-REF24150 INCX-REF24151 CY-REF24152 INCY-REF24153 + C-REF24154 S-REF24155)))) -(CFFI:DEFCFUN ("zdscal_" %%ZDSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zdscal_" %%ZDSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (DA :POINTER) @@ -4484,15 +4546,15 @@ (COMMON-LISP:*)) ZX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF897 ':INT32) (DA-REF898 ':DOUBLE) - (INCX-REF900 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF897 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF898 :DOUBLE) DA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF900 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF899 ZX)) - (%%ZDSCAL N-REF897 DA-REF898 ZX-REF899 INCX-REF900)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24156 ':INT32) (DA-REF24157 ':DOUBLE) + (INCX-REF24159 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24156 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF24157 :DOUBLE) DA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24159 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24158 ZX)) + (%%ZDSCAL N-REF24156 DA-REF24157 ZX-REF24158 INCX-REF24159)))) -(CFFI:DEFCFUN ("zgbmv_" %%ZGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zgbmv_" %%ZGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANS :STRING) (M :POINTER) @@ -4537,37 +4599,38 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF902 ':INT32) (N-REF903 ':INT32) - (KL-REF904 ':INT32) (KU-REF905 ':INT32) - (ALPHA-REF906 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24161 ':INT32) (N-REF24162 ':INT32) + (KL-REF24163 ':INT32) (KU-REF24164 ':INT32) + (ALPHA-REF24165 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF908 ':INT32) (INCX-REF910 ':INT32) - (BETA-REF911 + (LDA-REF24167 ':INT32) (INCX-REF24169 ':INT32) + (BETA-REF24170 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCY-REF913 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF902 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF903 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF904 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF905 :INT32) KU) + (INCY-REF24172 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24161 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24162 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF24163 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF24164 :INT32) KU) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF906 + ALPHA-REF24165 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF908 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF910 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24167 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24169 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF911 + BETA-REF24170 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF913 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF907 A) (X-REF909 X) (Y-REF912 Y)) - (%%ZGBMV TRANS M-REF902 N-REF903 KL-REF904 KU-REF905 ALPHA-REF906 A-REF907 - LDA-REF908 X-REF909 INCX-REF910 BETA-REF911 Y-REF912 INCY-REF913)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24172 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24166 A) (X-REF24168 X) + (Y-REF24171 Y)) + (%%ZGBMV TRANS M-REF24161 N-REF24162 KL-REF24163 KU-REF24164 + ALPHA-REF24165 A-REF24166 LDA-REF24167 X-REF24168 INCX-REF24169 + BETA-REF24170 Y-REF24171 INCY-REF24172)))) -(CFFI:DEFCFUN ("zgemm_" %%ZGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zgemm_" %%ZGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANSA :STRING) (TRANSB :STRING) @@ -4612,36 +4675,37 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF916 ':INT32) (N-REF917 ':INT32) - (K-REF918 ':INT32) - (ALPHA-REF919 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24175 ':INT32) (N-REF24176 ':INT32) + (K-REF24177 ':INT32) + (ALPHA-REF24178 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF921 ':INT32) (LDB-REF923 ':INT32) - (BETA-REF924 + (LDA-REF24180 ':INT32) (LDB-REF24182 ':INT32) + (BETA-REF24183 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDC-REF926 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF916 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF917 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF918 :INT32) K) + (LDC-REF24185 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24175 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24176 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24177 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF919 + ALPHA-REF24178 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF921 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF923 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24180 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24182 :INT32) LDB) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF924 + BETA-REF24183 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF926 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF920 A) (B-REF922 B) (C-REF925 C)) - (%%ZGEMM TRANSA TRANSB M-REF916 N-REF917 K-REF918 ALPHA-REF919 A-REF920 - LDA-REF921 B-REF922 LDB-REF923 BETA-REF924 C-REF925 LDC-REF926)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24185 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24179 A) (B-REF24181 B) + (C-REF24184 C)) + (%%ZGEMM TRANSA TRANSB M-REF24175 N-REF24176 K-REF24177 ALPHA-REF24178 + A-REF24179 LDA-REF24180 B-REF24181 LDB-REF24182 BETA-REF24183 C-REF24184 + LDC-REF24185)))) -(CFFI:DEFCFUN ("zgemv_" %%ZGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zgemv_" %%ZGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (TRANS :STRING) (M :POINTER) @@ -4682,34 +4746,35 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF928 ':INT32) (N-REF929 ':INT32) - (ALPHA-REF930 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24187 ':INT32) (N-REF24188 ':INT32) + (ALPHA-REF24189 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF932 ':INT32) (INCX-REF934 ':INT32) - (BETA-REF935 + (LDA-REF24191 ':INT32) (INCX-REF24193 ':INT32) + (BETA-REF24194 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCY-REF937 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF928 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF929 :INT32) N) + (INCY-REF24196 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24187 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24188 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF930 + ALPHA-REF24189 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF932 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF934 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24191 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24193 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF935 + BETA-REF24194 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF937 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF931 A) (X-REF933 X) (Y-REF936 Y)) - (%%ZGEMV TRANS M-REF928 N-REF929 ALPHA-REF930 A-REF931 LDA-REF932 X-REF933 - INCX-REF934 BETA-REF935 Y-REF936 INCY-REF937)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24196 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24190 A) (X-REF24192 X) + (Y-REF24195 Y)) + (%%ZGEMV TRANS M-REF24187 N-REF24188 ALPHA-REF24189 A-REF24190 + LDA-REF24191 X-REF24192 INCX-REF24193 BETA-REF24194 Y-REF24195 + INCY-REF24196)))) -(CFFI:DEFCFUN ("zgerc_" %%ZGERC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zgerc_" %%ZGERC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (M :POINTER) (N :POINTER) @@ -4745,27 +4810,27 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF938 ':INT32) (N-REF939 ':INT32) - (ALPHA-REF940 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24197 ':INT32) (N-REF24198 ':INT32) + (ALPHA-REF24199 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF942 ':INT32) (INCY-REF944 ':INT32) - (LDA-REF946 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF938 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF939 :INT32) N) + (INCX-REF24201 ':INT32) (INCY-REF24203 ':INT32) + (LDA-REF24205 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24197 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24198 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF940 + ALPHA-REF24199 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF942 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF944 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF946 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF941 X) (Y-REF943 Y) (A-REF945 A)) - (%%ZGERC M-REF938 N-REF939 ALPHA-REF940 X-REF941 INCX-REF942 Y-REF943 - INCY-REF944 A-REF945 LDA-REF946)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24201 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24203 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24205 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24200 X) (Y-REF24202 Y) + (A-REF24204 A)) + (%%ZGERC M-REF24197 N-REF24198 ALPHA-REF24199 X-REF24200 INCX-REF24201 + Y-REF24202 INCY-REF24203 A-REF24204 LDA-REF24205)))) -(CFFI:DEFCFUN ("zgeru_" %%ZGERU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zgeru_" %%ZGERU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (M :POINTER) (N :POINTER) @@ -4801,27 +4866,27 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF947 ':INT32) (N-REF948 ':INT32) - (ALPHA-REF949 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24206 ':INT32) (N-REF24207 ':INT32) + (ALPHA-REF24208 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF951 ':INT32) (INCY-REF953 ':INT32) - (LDA-REF955 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF947 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF948 :INT32) N) + (INCX-REF24210 ':INT32) (INCY-REF24212 ':INT32) + (LDA-REF24214 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24206 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24207 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF949 + ALPHA-REF24208 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF951 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF953 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF955 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF950 X) (Y-REF952 Y) (A-REF954 A)) - (%%ZGERU M-REF947 N-REF948 ALPHA-REF949 X-REF950 INCX-REF951 Y-REF952 - INCY-REF953 A-REF954 LDA-REF955)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24210 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24212 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24214 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24209 X) (Y-REF24211 Y) + (A-REF24213 A)) + (%%ZGERU M-REF24206 N-REF24207 ALPHA-REF24208 X-REF24209 INCX-REF24210 + Y-REF24211 INCY-REF24212 A-REF24213 LDA-REF24214)))) -(CFFI:DEFCFUN ("zhbmv_" %%ZHBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zhbmv_" %%ZHBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -4862,34 +4927,35 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF957 ':INT32) (K-REF958 ':INT32) - (ALPHA-REF959 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24216 ':INT32) (K-REF24217 ':INT32) + (ALPHA-REF24218 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF961 ':INT32) (INCX-REF963 ':INT32) - (BETA-REF964 + (LDA-REF24220 ':INT32) (INCX-REF24222 ':INT32) + (BETA-REF24223 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCY-REF966 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF957 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF958 :INT32) K) + (INCY-REF24225 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24216 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24217 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF959 + ALPHA-REF24218 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF961 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF963 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24220 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24222 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF964 + BETA-REF24223 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF966 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF960 A) (X-REF962 X) (Y-REF965 Y)) - (%%ZHBMV UPLO N-REF957 K-REF958 ALPHA-REF959 A-REF960 LDA-REF961 X-REF962 - INCX-REF963 BETA-REF964 Y-REF965 INCY-REF966)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24225 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24219 A) (X-REF24221 X) + (Y-REF24224 Y)) + (%%ZHBMV UPLO N-REF24216 K-REF24217 ALPHA-REF24218 A-REF24219 + LDA-REF24220 X-REF24221 INCX-REF24222 BETA-REF24223 Y-REF24224 + INCY-REF24225)))) -(CFFI:DEFCFUN ("zhemm_" %%ZHEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zhemm_" %%ZHEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -4932,34 +4998,35 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF969 ':INT32) (N-REF970 ':INT32) - (ALPHA-REF971 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24228 ':INT32) (N-REF24229 ':INT32) + (ALPHA-REF24230 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF973 ':INT32) (LDB-REF975 ':INT32) - (BETA-REF976 + (LDA-REF24232 ':INT32) (LDB-REF24234 ':INT32) + (BETA-REF24235 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDC-REF978 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF969 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF970 :INT32) N) + (LDC-REF24237 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24228 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24229 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF971 + ALPHA-REF24230 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF973 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF975 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24232 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24234 :INT32) LDB) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF976 + BETA-REF24235 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF978 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF972 A) (B-REF974 B) (C-REF977 C)) - (%%ZHEMM SIDE UPLO M-REF969 N-REF970 ALPHA-REF971 A-REF972 LDA-REF973 - B-REF974 LDB-REF975 BETA-REF976 C-REF977 LDC-REF978)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24237 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24231 A) (B-REF24233 B) + (C-REF24236 C)) + (%%ZHEMM SIDE UPLO M-REF24228 N-REF24229 ALPHA-REF24230 A-REF24231 + LDA-REF24232 B-REF24233 LDB-REF24234 BETA-REF24235 C-REF24236 + LDC-REF24237)))) -(CFFI:DEFCFUN ("zhemv_" %%ZHEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zhemv_" %%ZHEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -4998,33 +5065,33 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF980 ':INT32) - (ALPHA-REF981 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24239 ':INT32) + (ALPHA-REF24240 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF983 ':INT32) (INCX-REF985 ':INT32) - (BETA-REF986 + (LDA-REF24242 ':INT32) (INCX-REF24244 ':INT32) + (BETA-REF24245 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCY-REF988 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF980 :INT32) N) + (INCY-REF24247 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24239 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF981 + ALPHA-REF24240 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF983 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF985 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24242 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24244 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF986 + BETA-REF24245 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF988 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF982 A) (X-REF984 X) (Y-REF987 Y)) - (%%ZHEMV UPLO N-REF980 ALPHA-REF981 A-REF982 LDA-REF983 X-REF984 - INCX-REF985 BETA-REF986 Y-REF987 INCY-REF988)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24247 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24241 A) (X-REF24243 X) + (Y-REF24246 Y)) + (%%ZHEMV UPLO N-REF24239 ALPHA-REF24240 A-REF24241 LDA-REF24242 + X-REF24243 INCX-REF24244 BETA-REF24245 Y-REF24246 INCY-REF24247)))) -(CFFI:DEFCFUN ("zher_" %%ZHER :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zher_" %%ZHER :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -5051,17 +5118,17 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF990 ':INT32) (ALPHA-REF991 ':DOUBLE) - (INCX-REF993 ':INT32) (LDA-REF995 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF990 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF991 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF993 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF995 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF992 X) (A-REF994 A)) - (%%ZHER UPLO N-REF990 ALPHA-REF991 X-REF992 INCX-REF993 A-REF994 - LDA-REF995)))) - -(CFFI:DEFCFUN ("zher2_" %%ZHER2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24249 ':INT32) (ALPHA-REF24250 ':DOUBLE) + (INCX-REF24252 ':INT32) (LDA-REF24254 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24249 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24250 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24252 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24254 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24251 X) (A-REF24253 A)) + (%%ZHER UPLO N-REF24249 ALPHA-REF24250 X-REF24251 INCX-REF24252 + A-REF24253 LDA-REF24254)))) + +(CFFI:DEFCFUN ("zher2_" %%ZHER2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -5097,26 +5164,26 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF997 ':INT32) - (ALPHA-REF998 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24256 ':INT32) + (ALPHA-REF24257 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF1000 ':INT32) (INCY-REF1002 ':INT32) - (LDA-REF1004 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF997 :INT32) N) + (INCX-REF24259 ':INT32) (INCY-REF24261 ':INT32) + (LDA-REF24263 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24256 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF998 + ALPHA-REF24257 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1000 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1002 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1004 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF999 X) (Y-REF1001 Y) (A-REF1003 A)) - (%%ZHER2 UPLO N-REF997 ALPHA-REF998 X-REF999 INCX-REF1000 Y-REF1001 - INCY-REF1002 A-REF1003 LDA-REF1004)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24259 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24261 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24263 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24258 X) (Y-REF24260 Y) + (A-REF24262 A)) + (%%ZHER2 UPLO N-REF24256 ALPHA-REF24257 X-REF24258 INCX-REF24259 + Y-REF24260 INCY-REF24261 A-REF24262 LDA-REF24263)))) -(CFFI:DEFCFUN ("zher2k_" %%ZHER2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zher2k_" %%ZHER2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5158,28 +5225,29 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1007 ':INT32) (K-REF1008 ':INT32) - (ALPHA-REF1009 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24266 ':INT32) (K-REF24267 ':INT32) + (ALPHA-REF24268 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF1011 ':INT32) (LDB-REF1013 ':INT32) - (BETA-REF1014 ':DOUBLE) (LDC-REF1016 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1007 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1008 :INT32) K) + (LDA-REF24270 ':INT32) (LDB-REF24272 ':INT32) + (BETA-REF24273 ':DOUBLE) (LDC-REF24275 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24266 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24267 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF1009 + ALPHA-REF24268 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1011 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1013 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF1014 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1016 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF1010 A) (B-REF1012 B) (C-REF1015 C)) - (%%ZHER2K UPLO TRANS N-REF1007 K-REF1008 ALPHA-REF1009 A-REF1010 - LDA-REF1011 B-REF1012 LDB-REF1013 BETA-REF1014 C-REF1015 LDC-REF1016)))) - -(CFFI:DEFCFUN ("zherk_" %%ZHERK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24270 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24272 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24273 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24275 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24269 A) (B-REF24271 B) + (C-REF24274 C)) + (%%ZHER2K UPLO TRANS N-REF24266 K-REF24267 ALPHA-REF24268 A-REF24269 + LDA-REF24270 B-REF24271 LDB-REF24272 BETA-REF24273 C-REF24274 + LDC-REF24275)))) + +(CFFI:DEFCFUN ("zherk_" %%ZHERK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5212,20 +5280,20 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1019 ':INT32) (K-REF1020 ':INT32) - (ALPHA-REF1021 ':DOUBLE) (LDA-REF1023 ':INT32) - (BETA-REF1024 ':DOUBLE) (LDC-REF1026 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1019 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1020 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF1021 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1023 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF1024 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1026 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1022 A) (C-REF1025 C)) - (%%ZHERK UPLO TRANS N-REF1019 K-REF1020 ALPHA-REF1021 A-REF1022 - LDA-REF1023 BETA-REF1024 C-REF1025 LDC-REF1026)))) - -(CFFI:DEFCFUN ("zhpmv_" %%ZHPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24278 ':INT32) (K-REF24279 ':INT32) + (ALPHA-REF24280 ':DOUBLE) (LDA-REF24282 ':INT32) + (BETA-REF24283 ':DOUBLE) (LDC-REF24285 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24278 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24279 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24280 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24282 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24283 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24285 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24281 A) (C-REF24284 C)) + (%%ZHERK UPLO TRANS N-REF24278 K-REF24279 ALPHA-REF24280 A-REF24281 + LDA-REF24282 BETA-REF24283 C-REF24284 LDC-REF24285)))) + +(CFFI:DEFCFUN ("zhpmv_" %%ZHPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -5262,32 +5330,32 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1028 ':INT32) - (ALPHA-REF1029 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24287 ':INT32) + (ALPHA-REF24288 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF1032 ':INT32) - (BETA-REF1033 + (INCX-REF24291 ':INT32) + (BETA-REF24292 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCY-REF1035 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1028 :INT32) N) + (INCY-REF24294 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24287 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF1029 + ALPHA-REF24288 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1032 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24291 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF1033 + BETA-REF24292 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1035 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((AP-REF1030 AP) (X-REF1031 X) (Y-REF1034 Y)) - (%%ZHPMV UPLO N-REF1028 ALPHA-REF1029 AP-REF1030 X-REF1031 INCX-REF1032 - BETA-REF1033 Y-REF1034 INCY-REF1035)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24294 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24289 AP) (X-REF24290 X) + (Y-REF24293 Y)) + (%%ZHPMV UPLO N-REF24287 ALPHA-REF24288 AP-REF24289 X-REF24290 + INCX-REF24291 BETA-REF24292 Y-REF24293 INCY-REF24294)))) -(CFFI:DEFCFUN ("zhpr_" %%ZHPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zhpr_" %%ZHPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -5312,15 +5380,16 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1037 ':INT32) (ALPHA-REF1038 ':DOUBLE) - (INCX-REF1040 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1037 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF1038 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1040 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF1039 X) (AP-REF1041 AP)) - (%%ZHPR UPLO N-REF1037 ALPHA-REF1038 X-REF1039 INCX-REF1040 AP-REF1041)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24296 ':INT32) (ALPHA-REF24297 ':DOUBLE) + (INCX-REF24299 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24296 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24297 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24299 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24298 X) (AP-REF24300 AP)) + (%%ZHPR UPLO N-REF24296 ALPHA-REF24297 X-REF24298 INCX-REF24299 + AP-REF24300)))) -(CFFI:DEFCFUN ("zhpr2_" %%ZHPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zhpr2_" %%ZHPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (N :POINTER) @@ -5354,24 +5423,24 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1043 ':INT32) - (ALPHA-REF1044 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24302 ':INT32) + (ALPHA-REF24303 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF1046 ':INT32) (INCY-REF1048 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1043 :INT32) N) + (INCX-REF24305 ':INT32) (INCY-REF24307 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24302 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF1044 + ALPHA-REF24303 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1046 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1048 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((X-REF1045 X) (Y-REF1047 Y) (AP-REF1049 AP)) - (%%ZHPR2 UPLO N-REF1043 ALPHA-REF1044 X-REF1045 INCX-REF1046 Y-REF1047 - INCY-REF1048 AP-REF1049)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24305 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24307 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24304 X) (Y-REF24306 Y) + (AP-REF24308 AP)) + (%%ZHPR2 UPLO N-REF24302 ALPHA-REF24303 X-REF24304 INCX-REF24305 + Y-REF24306 INCY-REF24307 AP-REF24308)))) -(CFFI:DEFCFUN ("zrotg_" %%ZROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zrotg_" %%ZROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (CA :POINTER) (CB :POINTER) @@ -5387,30 +5456,32 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S)) - (CFFI:WITH-FOREIGN-OBJECTS ((CA-REF1050 + (CFFI:WITH-FOREIGN-OBJECTS ((CA-REF24309 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (CB-REF1051 + (CB-REF24310 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (C-REF1052 ':DOUBLE) - (S-REF1053 + (C-REF24311 ':DOUBLE) + (S-REF24312 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - CA-REF1050 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + CA-REF24309 + MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - CB-REF1051 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + CB-REF24310 + MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CB) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CB))) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF1052 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF24311 :DOUBLE) C) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S-REF1053 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + S-REF24312 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%ZROTG CA-REF1050 CB-REF1051 C-REF1052 S-REF1053)))) + (%%ZROTG CA-REF24309 CB-REF24310 C-REF24311 S-REF24312)))) -(CFFI:DEFCFUN ("zscal_" %%ZSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zscal_" %%ZSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (ZA :POINTER) @@ -5428,20 +5499,21 @@ (COMMON-LISP:*)) ZX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1054 ':INT32) - (ZA-REF1055 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24313 ':INT32) + (ZA-REF24314 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF1057 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1054 :INT32) N) + (INCX-REF24316 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24313 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ZA-REF1055 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + ZA-REF24314 + MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ZA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ZA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1057 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF1056 ZX)) - (%%ZSCAL N-REF1054 ZA-REF1055 ZX-REF1056 INCX-REF1057)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24316 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24315 ZX)) + (%%ZSCAL N-REF24313 ZA-REF24314 ZX-REF24315 INCX-REF24316)))) -(CFFI:DEFCFUN ("zswap_" %%ZSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zswap_" %%ZSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (N :POINTER) (ZX :POINTER) @@ -5464,15 +5536,16 @@ (COMMON-LISP:*)) ZY) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1058 ':INT32) (INCX-REF1060 ':INT32) - (INCY-REF1062 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1058 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1060 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF1062 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF1059 ZX) (ZY-REF1061 ZY)) - (%%ZSWAP N-REF1058 ZX-REF1059 INCX-REF1060 ZY-REF1061 INCY-REF1062)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24317 ':INT32) (INCX-REF24319 ':INT32) + (INCY-REF24321 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24317 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24319 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24321 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24318 ZX) (ZY-REF24320 ZY)) + (%%ZSWAP N-REF24317 ZX-REF24318 INCX-REF24319 ZY-REF24320 + INCY-REF24321)))) -(CFFI:DEFCFUN ("zsymm_" %%ZSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zsymm_" %%ZSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -5515,34 +5588,35 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1065 ':INT32) (N-REF1066 ':INT32) - (ALPHA-REF1067 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24324 ':INT32) (N-REF24325 ':INT32) + (ALPHA-REF24326 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF1069 ':INT32) (LDB-REF1071 ':INT32) - (BETA-REF1072 + (LDA-REF24328 ':INT32) (LDB-REF24330 ':INT32) + (BETA-REF24331 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDC-REF1074 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1065 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1066 :INT32) N) + (LDC-REF24333 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24324 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24325 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF1067 + ALPHA-REF24326 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1069 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1071 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24328 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24330 :INT32) LDB) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF1072 + BETA-REF24331 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1074 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF1068 A) (B-REF1070 B) (C-REF1073 C)) - (%%ZSYMM SIDE UPLO M-REF1065 N-REF1066 ALPHA-REF1067 A-REF1068 LDA-REF1069 - B-REF1070 LDB-REF1071 BETA-REF1072 C-REF1073 LDC-REF1074)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24333 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24327 A) (B-REF24329 B) + (C-REF24332 C)) + (%%ZSYMM SIDE UPLO M-REF24324 N-REF24325 ALPHA-REF24326 A-REF24327 + LDA-REF24328 B-REF24329 LDB-REF24330 BETA-REF24331 C-REF24332 + LDC-REF24333)))) -(CFFI:DEFCFUN ("zsyr2k_" %%ZSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zsyr2k_" %%ZSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5585,34 +5659,35 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1077 ':INT32) (K-REF1078 ':INT32) - (ALPHA-REF1079 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24336 ':INT32) (K-REF24337 ':INT32) + (ALPHA-REF24338 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF1081 ':INT32) (LDB-REF1083 ':INT32) - (BETA-REF1084 + (LDA-REF24340 ':INT32) (LDB-REF24342 ':INT32) + (BETA-REF24343 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDC-REF1086 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1077 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1078 :INT32) K) + (LDC-REF24345 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24336 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24337 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF1079 + ALPHA-REF24338 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1081 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1083 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24340 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24342 :INT32) LDB) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF1084 + BETA-REF24343 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1086 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS - ((A-REF1080 A) (B-REF1082 B) (C-REF1085 C)) - (%%ZSYR2K UPLO TRANS N-REF1077 K-REF1078 ALPHA-REF1079 A-REF1080 - LDA-REF1081 B-REF1082 LDB-REF1083 BETA-REF1084 C-REF1085 LDC-REF1086)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24345 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24339 A) (B-REF24341 B) + (C-REF24344 C)) + (%%ZSYR2K UPLO TRANS N-REF24336 K-REF24337 ALPHA-REF24338 A-REF24339 + LDA-REF24340 B-REF24341 LDB-REF24342 BETA-REF24343 C-REF24344 + LDC-REF24345)))) -(CFFI:DEFCFUN ("zsyrk_" %%ZSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("zsyrk_" %%ZSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5647,32 +5722,32 @@ (COMMON-LISP:*)) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1089 ':INT32) (K-REF1090 ':INT32) - (ALPHA-REF1091 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24348 ':INT32) (K-REF24349 ':INT32) + (ALPHA-REF24350 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF1093 ':INT32) - (BETA-REF1094 + (LDA-REF24352 ':INT32) + (BETA-REF24353 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDC-REF1096 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1089 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1090 :INT32) K) + (LDC-REF24355 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24348 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24349 :INT32) K) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF1091 + ALPHA-REF24350 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1093 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24352 :INT32) LDA) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF1094 + BETA-REF24353 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF1096 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1092 A) (C-REF1095 C)) - (%%ZSYRK UPLO TRANS N-REF1089 K-REF1090 ALPHA-REF1091 A-REF1092 - LDA-REF1093 BETA-REF1094 C-REF1095 LDC-REF1096)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24355 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24351 A) (C-REF24354 C)) + (%%ZSYRK UPLO TRANS N-REF24348 K-REF24349 ALPHA-REF24350 A-REF24351 + LDA-REF24352 BETA-REF24353 C-REF24354 LDC-REF24355)))) -(CFFI:DEFCFUN ("ztbmv_" %%ZTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ztbmv_" %%ZTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5703,17 +5778,17 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1100 ':INT32) (K-REF1101 ':INT32) - (LDA-REF1103 ':INT32) (INCX-REF1105 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1100 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1101 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1103 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1105 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1102 A) (X-REF1104 X)) - (%%ZTBMV UPLO TRANS DIAG N-REF1100 K-REF1101 A-REF1102 LDA-REF1103 - X-REF1104 INCX-REF1105)))) - -(CFFI:DEFCFUN ("ztbsv_" %%ZTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24359 ':INT32) (K-REF24360 ':INT32) + (LDA-REF24362 ':INT32) (INCX-REF24364 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24359 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24360 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24362 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24364 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24361 A) (X-REF24363 X)) + (%%ZTBMV UPLO TRANS DIAG N-REF24359 K-REF24360 A-REF24361 LDA-REF24362 + X-REF24363 INCX-REF24364)))) + +(CFFI:DEFCFUN ("ztbsv_" %%ZTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5744,17 +5819,17 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1109 ':INT32) (K-REF1110 ':INT32) - (LDA-REF1112 ':INT32) (INCX-REF1114 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1109 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1110 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1112 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1114 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1111 A) (X-REF1113 X)) - (%%ZTBSV UPLO TRANS DIAG N-REF1109 K-REF1110 A-REF1111 LDA-REF1112 - X-REF1113 INCX-REF1114)))) - -(CFFI:DEFCFUN ("ztpmv_" %%ZTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24368 ':INT32) (K-REF24369 ':INT32) + (LDA-REF24371 ':INT32) (INCX-REF24373 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24368 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24369 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24371 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24373 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24370 A) (X-REF24372 X)) + (%%ZTBSV UPLO TRANS DIAG N-REF24368 K-REF24369 A-REF24370 LDA-REF24371 + X-REF24372 INCX-REF24373)))) + +(CFFI:DEFCFUN ("ztpmv_" %%ZTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5781,13 +5856,14 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1118 ':INT32) (INCX-REF1121 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1118 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1121 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF1119 AP) (X-REF1120 X)) - (%%ZTPMV UPLO TRANS DIAG N-REF1118 AP-REF1119 X-REF1120 INCX-REF1121)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24377 ':INT32) (INCX-REF24380 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24377 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24380 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24378 AP) (X-REF24379 X)) + (%%ZTPMV UPLO TRANS DIAG N-REF24377 AP-REF24378 X-REF24379 + INCX-REF24380)))) -(CFFI:DEFCFUN ("ztpsv_" %%ZTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ztpsv_" %%ZTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5814,13 +5890,14 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1125 ':INT32) (INCX-REF1128 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1125 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1128 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF1126 AP) (X-REF1127 X)) - (%%ZTPSV UPLO TRANS DIAG N-REF1125 AP-REF1126 X-REF1127 INCX-REF1128)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24384 ':INT32) (INCX-REF24387 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24384 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24387 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24385 AP) (X-REF24386 X)) + (%%ZTPSV UPLO TRANS DIAG N-REF24384 AP-REF24385 X-REF24386 + INCX-REF24387)))) -(CFFI:DEFCFUN ("ztrmm_" %%ZTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ztrmm_" %%ZTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -5856,24 +5933,24 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1133 ':INT32) (N-REF1134 ':INT32) - (ALPHA-REF1135 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24392 ':INT32) (N-REF24393 ':INT32) + (ALPHA-REF24394 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF1137 ':INT32) (LDB-REF1139 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1133 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1134 :INT32) N) + (LDA-REF24396 ':INT32) (LDB-REF24398 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24392 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24393 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF1135 + ALPHA-REF24394 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1137 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1139 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1136 A) (B-REF1138 B)) - (%%ZTRMM SIDE UPLO TRANSA DIAG M-REF1133 N-REF1134 ALPHA-REF1135 A-REF1136 - LDA-REF1137 B-REF1138 LDB-REF1139)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24396 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24398 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24395 A) (B-REF24397 B)) + (%%ZTRMM SIDE UPLO TRANSA DIAG M-REF24392 N-REF24393 ALPHA-REF24394 + A-REF24395 LDA-REF24396 B-REF24397 LDB-REF24398)))) -(CFFI:DEFCFUN ("ztrmv_" %%ZTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ztrmv_" %%ZTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5902,16 +5979,16 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1143 ':INT32) (LDA-REF1145 ':INT32) - (INCX-REF1147 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1143 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1145 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1147 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1144 A) (X-REF1146 X)) - (%%ZTRMV UPLO TRANS DIAG N-REF1143 A-REF1144 LDA-REF1145 X-REF1146 - INCX-REF1147)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24402 ':INT32) (LDA-REF24404 ':INT32) + (INCX-REF24406 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24402 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24404 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24406 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24403 A) (X-REF24405 X)) + (%%ZTRMV UPLO TRANS DIAG N-REF24402 A-REF24403 LDA-REF24404 X-REF24405 + INCX-REF24406)))) -(CFFI:DEFCFUN ("ztrsm_" %%ZTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ztrsm_" %%ZTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (SIDE :STRING) (UPLO :STRING) @@ -5947,24 +6024,24 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1152 ':INT32) (N-REF1153 ':INT32) - (ALPHA-REF1154 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24411 ':INT32) (N-REF24412 ':INT32) + (ALPHA-REF24413 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF1156 ':INT32) (LDB-REF1158 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1152 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1153 :INT32) N) + (LDA-REF24415 ':INT32) (LDB-REF24417 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24411 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24412 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF1154 + ALPHA-REF24413 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1156 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1158 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1155 A) (B-REF1157 B)) - (%%ZTRSM SIDE UPLO TRANSA DIAG M-REF1152 N-REF1153 ALPHA-REF1154 A-REF1155 - LDA-REF1156 B-REF1157 LDB-REF1158)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24415 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24417 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24414 A) (B-REF24416 B)) + (%%ZTRSM SIDE UPLO TRANSA DIAG M-REF24411 N-REF24412 ALPHA-REF24413 + A-REF24414 LDA-REF24415 B-REF24416 LDB-REF24417)))) -(CFFI:DEFCFUN ("ztrsv_" %%ZTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBBLAS) +(CFFI:DEFCFUN ("ztrsv_" %%ZTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS) :VOID (UPLO :STRING) (TRANS :STRING) @@ -5993,14 +6070,14 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1162 ':INT32) (LDA-REF1164 ':INT32) - (INCX-REF1166 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1162 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1164 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF1166 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1163 A) (X-REF1165 X)) - (%%ZTRSV UPLO TRANS DIAG N-REF1162 A-REF1163 LDA-REF1164 X-REF1165 - INCX-REF1166)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24421 ':INT32) (LDA-REF24423 ':INT32) + (INCX-REF24425 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24421 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24423 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24425 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24422 A) (X-REF24424 X)) + (%%ZTRSV UPLO TRANS DIAG N-REF24421 A-REF24422 LDA-REF24423 X-REF24424 + INCX-REF24425)))) (COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%CAXPY %CAXPY %%CCOPY %CCOPY %%CDOTC %CDOTC %%CDOTU @@ -6035,160 +6112,159 @@ %%ZSYRK %ZSYRK %%ZTBMV %ZTBMV %%ZTBSV %ZTBSV %%ZTPMV %ZTPMV %%ZTPSV %ZTPSV %%ZTRMM %ZTRMM %%ZTRMV %ZTRMV %%ZTRSM %ZTRSM %%ZTRSV %ZTRSV)) -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS - 'MAGICL.FOREIGN-LIBRARIES:LIBBLAS - '(("CAXPY" "caxpy_" %%CAXPY %CAXPY) - ("CCOPY" "ccopy_" %%CCOPY %CCOPY) - ("CDOTC" "cdotc_" %%CDOTC %CDOTC) - ("CDOTU" "cdotu_" %%CDOTU %CDOTU) - ("CGBMV" "cgbmv_" %%CGBMV %CGBMV) - ("CGEMM" "cgemm_" %%CGEMM %CGEMM) - ("CGEMV" "cgemv_" %%CGEMV %CGEMV) - ("CGERC" "cgerc_" %%CGERC %CGERC) - ("CGERU" "cgeru_" %%CGERU %CGERU) - ("CHBMV" "chbmv_" %%CHBMV %CHBMV) - ("CHEMM" "chemm_" %%CHEMM %CHEMM) - ("CHEMV" "chemv_" %%CHEMV %CHEMV) - ("CHER" "cher_" %%CHER %CHER) - ("CHER2" "cher2_" %%CHER2 %CHER2) - ("CHER2K" "cher2k_" %%CHER2K %CHER2K) - ("CHERK" "cherk_" %%CHERK %CHERK) - ("CHPMV" "chpmv_" %%CHPMV %CHPMV) - ("CHPR" "chpr_" %%CHPR %CHPR) - ("CHPR2" "chpr2_" %%CHPR2 %CHPR2) - ("CROTG" "crotg_" %%CROTG %CROTG) - ("CSCAL" "cscal_" %%CSCAL %CSCAL) - ("CSROT" "csrot_" %%CSROT %CSROT) - ("CSSCAL" "csscal_" %%CSSCAL %CSSCAL) - ("CSWAP" "cswap_" %%CSWAP %CSWAP) - ("CSYMM" "csymm_" %%CSYMM %CSYMM) - ("CSYR2K" "csyr2k_" %%CSYR2K %CSYR2K) - ("CSYRK" "csyrk_" %%CSYRK %CSYRK) - ("CTBMV" "ctbmv_" %%CTBMV %CTBMV) - ("CTBSV" "ctbsv_" %%CTBSV %CTBSV) - ("CTPMV" "ctpmv_" %%CTPMV %CTPMV) - ("CTPSV" "ctpsv_" %%CTPSV %CTPSV) - ("CTRMM" "ctrmm_" %%CTRMM %CTRMM) - ("CTRMV" "ctrmv_" %%CTRMV %CTRMV) - ("CTRSM" "ctrsm_" %%CTRSM %CTRSM) - ("CTRSV" "ctrsv_" %%CTRSV %CTRSV) - ("DASUM" "dasum_" %%DASUM %DASUM) - ("DAXPY" "daxpy_" %%DAXPY %DAXPY) - ("DCABS1" "dcabs1_" %%DCABS1 %DCABS1) - ("DCOPY" "dcopy_" %%DCOPY %DCOPY) - ("DDOT" "ddot_" %%DDOT %DDOT) - ("DGBMV" "dgbmv_" %%DGBMV %DGBMV) - ("DGEMM" "dgemm_" %%DGEMM %DGEMM) - ("DGEMV" "dgemv_" %%DGEMV %DGEMV) - ("DGER" "dger_" %%DGER %DGER) - ("DNRM2" "dnrm2_" %%DNRM2 %DNRM2) - ("DROT" "drot_" %%DROT %DROT) - ("DROTG" "drotg_" %%DROTG %DROTG) - ("DROTM" "drotm_" %%DROTM %DROTM) - ("DROTMG" "drotmg_" %%DROTMG %DROTMG) - ("DSBMV" "dsbmv_" %%DSBMV %DSBMV) - ("DSCAL" "dscal_" %%DSCAL %DSCAL) - ("DSDOT" "dsdot_" %%DSDOT %DSDOT) - ("DSPMV" "dspmv_" %%DSPMV %DSPMV) - ("DSPR" "dspr_" %%DSPR %DSPR) - ("DSPR2" "dspr2_" %%DSPR2 %DSPR2) - ("DSWAP" "dswap_" %%DSWAP %DSWAP) - ("DSYMM" "dsymm_" %%DSYMM %DSYMM) - ("DSYMV" "dsymv_" %%DSYMV %DSYMV) - ("DSYR" "dsyr_" %%DSYR %DSYR) - ("DSYR2" "dsyr2_" %%DSYR2 %DSYR2) - ("DSYR2K" "dsyr2k_" %%DSYR2K %DSYR2K) - ("DSYRK" "dsyrk_" %%DSYRK %DSYRK) - ("DTBMV" "dtbmv_" %%DTBMV %DTBMV) - ("DTBSV" "dtbsv_" %%DTBSV %DTBSV) - ("DTPMV" "dtpmv_" %%DTPMV %DTPMV) - ("DTPSV" "dtpsv_" %%DTPSV %DTPSV) - ("DTRMM" "dtrmm_" %%DTRMM %DTRMM) - ("DTRMV" "dtrmv_" %%DTRMV %DTRMV) - ("DTRSM" "dtrsm_" %%DTRSM %DTRSM) - ("DTRSV" "dtrsv_" %%DTRSV %DTRSV) - ("DZASUM" "dzasum_" %%DZASUM %DZASUM) - ("DZNRM2" "dznrm2_" %%DZNRM2 %DZNRM2) - ("ICAMAX" "icamax_" %%ICAMAX %ICAMAX) - ("IDAMAX" "idamax_" %%IDAMAX %IDAMAX) - ("ISAMAX" "isamax_" %%ISAMAX %ISAMAX) - ("IZAMAX" "izamax_" %%IZAMAX %IZAMAX) - ("LSAME" "lsame_" %%LSAME %LSAME) - ("SASUM" "sasum_" %%SASUM %SASUM) - ("SAXPY" "saxpy_" %%SAXPY %SAXPY) - ("SCABS1" "scabs1_" %%SCABS1 %SCABS1) - ("SCASUM" "scasum_" %%SCASUM %SCASUM) - ("SCNRM2" "scnrm2_" %%SCNRM2 %SCNRM2) - ("SCOPY" "scopy_" %%SCOPY %SCOPY) - ("SDOT" "sdot_" %%SDOT %SDOT) - ("SDSDOT" "sdsdot_" %%SDSDOT %SDSDOT) - ("SGBMV" "sgbmv_" %%SGBMV %SGBMV) - ("SGEMM" "sgemm_" %%SGEMM %SGEMM) - ("SGEMV" "sgemv_" %%SGEMV %SGEMV) - ("SGER" "sger_" %%SGER %SGER) - ("SNRM2" "snrm2_" %%SNRM2 %SNRM2) - ("SROT" "srot_" %%SROT %SROT) - ("SROTG" "srotg_" %%SROTG %SROTG) - ("SROTM" "srotm_" %%SROTM %SROTM) - ("SROTMG" "srotmg_" %%SROTMG %SROTMG) - ("SSBMV" "ssbmv_" %%SSBMV %SSBMV) - ("SSCAL" "sscal_" %%SSCAL %SSCAL) - ("SSPMV" "sspmv_" %%SSPMV %SSPMV) - ("SSPR" "sspr_" %%SSPR %SSPR) - ("SSPR2" "sspr2_" %%SSPR2 %SSPR2) - ("SSWAP" "sswap_" %%SSWAP %SSWAP) - ("SSYMM" "ssymm_" %%SSYMM %SSYMM) - ("SSYMV" "ssymv_" %%SSYMV %SSYMV) - ("SSYR" "ssyr_" %%SSYR %SSYR) - ("SSYR2" "ssyr2_" %%SSYR2 %SSYR2) - ("SSYR2K" "ssyr2k_" %%SSYR2K %SSYR2K) - ("SSYRK" "ssyrk_" %%SSYRK %SSYRK) - ("STBMV" "stbmv_" %%STBMV %STBMV) - ("STBSV" "stbsv_" %%STBSV %STBSV) - ("STPMV" "stpmv_" %%STPMV %STPMV) - ("STPSV" "stpsv_" %%STPSV %STPSV) - ("STRMM" "strmm_" %%STRMM %STRMM) - ("STRMV" "strmv_" %%STRMV %STRMV) - ("STRSM" "strsm_" %%STRSM %STRSM) - ("STRSV" "strsv_" %%STRSV %STRSV) - ("XERBLA" "xerbla_" %%XERBLA %XERBLA) - ("XERBLA_ARRAY" "xerbla_array_" %%XERBLA_ARRAY - %XERBLA_ARRAY) - ("ZAXPY" "zaxpy_" %%ZAXPY %ZAXPY) - ("ZCOPY" "zcopy_" %%ZCOPY %ZCOPY) - ("ZDOTC" "zdotc_" %%ZDOTC %ZDOTC) - ("ZDOTU" "zdotu_" %%ZDOTU %ZDOTU) - ("ZDROT" "zdrot_" %%ZDROT %ZDROT) - ("ZDSCAL" "zdscal_" %%ZDSCAL %ZDSCAL) - ("ZGBMV" "zgbmv_" %%ZGBMV %ZGBMV) - ("ZGEMM" "zgemm_" %%ZGEMM %ZGEMM) - ("ZGEMV" "zgemv_" %%ZGEMV %ZGEMV) - ("ZGERC" "zgerc_" %%ZGERC %ZGERC) - ("ZGERU" "zgeru_" %%ZGERU %ZGERU) - ("ZHBMV" "zhbmv_" %%ZHBMV %ZHBMV) - ("ZHEMM" "zhemm_" %%ZHEMM %ZHEMM) - ("ZHEMV" "zhemv_" %%ZHEMV %ZHEMV) - ("ZHER" "zher_" %%ZHER %ZHER) - ("ZHER2" "zher2_" %%ZHER2 %ZHER2) - ("ZHER2K" "zher2k_" %%ZHER2K %ZHER2K) - ("ZHERK" "zherk_" %%ZHERK %ZHERK) - ("ZHPMV" "zhpmv_" %%ZHPMV %ZHPMV) - ("ZHPR" "zhpr_" %%ZHPR %ZHPR) - ("ZHPR2" "zhpr2_" %%ZHPR2 %ZHPR2) - ("ZROTG" "zrotg_" %%ZROTG %ZROTG) - ("ZSCAL" "zscal_" %%ZSCAL %ZSCAL) - ("ZSWAP" "zswap_" %%ZSWAP %ZSWAP) - ("ZSYMM" "zsymm_" %%ZSYMM %ZSYMM) - ("ZSYR2K" "zsyr2k_" %%ZSYR2K %ZSYR2K) - ("ZSYRK" "zsyrk_" %%ZSYRK %ZSYRK) - ("ZTBMV" "ztbmv_" %%ZTBMV %ZTBMV) - ("ZTBSV" "ztbsv_" %%ZTBSV %ZTBSV) - ("ZTPMV" "ztpmv_" %%ZTPMV %ZTPMV) - ("ZTPSV" "ztpsv_" %%ZTPSV %ZTPSV) - ("ZTRMM" "ztrmm_" %%ZTRMM %ZTRMM) - ("ZTRMV" "ztrmv_" %%ZTRMV %ZTRMV) - ("ZTRSM" "ztrsm_" %%ZTRSM %ZTRSM) - ("ZTRSV" "ztrsv_" %%ZTRSV %ZTRSV))) +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBBLAS + '(("CAXPY" "caxpy_" %%CAXPY %CAXPY) + ("CCOPY" "ccopy_" %%CCOPY %CCOPY) + ("CDOTC" "cdotc_" %%CDOTC %CDOTC) + ("CDOTU" "cdotu_" %%CDOTU %CDOTU) + ("CGBMV" "cgbmv_" %%CGBMV %CGBMV) + ("CGEMM" "cgemm_" %%CGEMM %CGEMM) + ("CGEMV" "cgemv_" %%CGEMV %CGEMV) + ("CGERC" "cgerc_" %%CGERC %CGERC) + ("CGERU" "cgeru_" %%CGERU %CGERU) + ("CHBMV" "chbmv_" %%CHBMV %CHBMV) + ("CHEMM" "chemm_" %%CHEMM %CHEMM) + ("CHEMV" "chemv_" %%CHEMV %CHEMV) + ("CHER" "cher_" %%CHER %CHER) + ("CHER2" "cher2_" %%CHER2 %CHER2) + ("CHER2K" "cher2k_" %%CHER2K %CHER2K) + ("CHERK" "cherk_" %%CHERK %CHERK) + ("CHPMV" "chpmv_" %%CHPMV %CHPMV) + ("CHPR" "chpr_" %%CHPR %CHPR) + ("CHPR2" "chpr2_" %%CHPR2 %CHPR2) + ("CROTG" "crotg_" %%CROTG %CROTG) + ("CSCAL" "cscal_" %%CSCAL %CSCAL) + ("CSROT" "csrot_" %%CSROT %CSROT) + ("CSSCAL" "csscal_" %%CSSCAL %CSSCAL) + ("CSWAP" "cswap_" %%CSWAP %CSWAP) + ("CSYMM" "csymm_" %%CSYMM %CSYMM) + ("CSYR2K" "csyr2k_" %%CSYR2K %CSYR2K) + ("CSYRK" "csyrk_" %%CSYRK %CSYRK) + ("CTBMV" "ctbmv_" %%CTBMV %CTBMV) + ("CTBSV" "ctbsv_" %%CTBSV %CTBSV) + ("CTPMV" "ctpmv_" %%CTPMV %CTPMV) + ("CTPSV" "ctpsv_" %%CTPSV %CTPSV) + ("CTRMM" "ctrmm_" %%CTRMM %CTRMM) + ("CTRMV" "ctrmv_" %%CTRMV %CTRMV) + ("CTRSM" "ctrsm_" %%CTRSM %CTRSM) + ("CTRSV" "ctrsv_" %%CTRSV %CTRSV) + ("DASUM" "dasum_" %%DASUM %DASUM) + ("DAXPY" "daxpy_" %%DAXPY %DAXPY) + ("DCABS1" "dcabs1_" %%DCABS1 %DCABS1) + ("DCOPY" "dcopy_" %%DCOPY %DCOPY) + ("DDOT" "ddot_" %%DDOT %DDOT) + ("DGBMV" "dgbmv_" %%DGBMV %DGBMV) + ("DGEMM" "dgemm_" %%DGEMM %DGEMM) + ("DGEMV" "dgemv_" %%DGEMV %DGEMV) + ("DGER" "dger_" %%DGER %DGER) + ("DNRM2" "dnrm2_" %%DNRM2 %DNRM2) + ("DROT" "drot_" %%DROT %DROT) + ("DROTG" "drotg_" %%DROTG %DROTG) + ("DROTM" "drotm_" %%DROTM %DROTM) + ("DROTMG" "drotmg_" %%DROTMG %DROTMG) + ("DSBMV" "dsbmv_" %%DSBMV %DSBMV) + ("DSCAL" "dscal_" %%DSCAL %DSCAL) + ("DSDOT" "dsdot_" %%DSDOT %DSDOT) + ("DSPMV" "dspmv_" %%DSPMV %DSPMV) + ("DSPR" "dspr_" %%DSPR %DSPR) + ("DSPR2" "dspr2_" %%DSPR2 %DSPR2) + ("DSWAP" "dswap_" %%DSWAP %DSWAP) + ("DSYMM" "dsymm_" %%DSYMM %DSYMM) + ("DSYMV" "dsymv_" %%DSYMV %DSYMV) + ("DSYR" "dsyr_" %%DSYR %DSYR) + ("DSYR2" "dsyr2_" %%DSYR2 %DSYR2) + ("DSYR2K" "dsyr2k_" %%DSYR2K %DSYR2K) + ("DSYRK" "dsyrk_" %%DSYRK %DSYRK) + ("DTBMV" "dtbmv_" %%DTBMV %DTBMV) + ("DTBSV" "dtbsv_" %%DTBSV %DTBSV) + ("DTPMV" "dtpmv_" %%DTPMV %DTPMV) + ("DTPSV" "dtpsv_" %%DTPSV %DTPSV) + ("DTRMM" "dtrmm_" %%DTRMM %DTRMM) + ("DTRMV" "dtrmv_" %%DTRMV %DTRMV) + ("DTRSM" "dtrsm_" %%DTRSM %DTRSM) + ("DTRSV" "dtrsv_" %%DTRSV %DTRSV) + ("DZASUM" "dzasum_" %%DZASUM %DZASUM) + ("DZNRM2" "dznrm2_" %%DZNRM2 %DZNRM2) + ("ICAMAX" "icamax_" %%ICAMAX %ICAMAX) + ("IDAMAX" "idamax_" %%IDAMAX %IDAMAX) + ("ISAMAX" "isamax_" %%ISAMAX %ISAMAX) + ("IZAMAX" "izamax_" %%IZAMAX %IZAMAX) + ("LSAME" "lsame_" %%LSAME %LSAME) + ("SASUM" "sasum_" %%SASUM %SASUM) + ("SAXPY" "saxpy_" %%SAXPY %SAXPY) + ("SCABS1" "scabs1_" %%SCABS1 %SCABS1) + ("SCASUM" "scasum_" %%SCASUM %SCASUM) + ("SCNRM2" "scnrm2_" %%SCNRM2 %SCNRM2) + ("SCOPY" "scopy_" %%SCOPY %SCOPY) + ("SDOT" "sdot_" %%SDOT %SDOT) + ("SDSDOT" "sdsdot_" %%SDSDOT %SDSDOT) + ("SGBMV" "sgbmv_" %%SGBMV %SGBMV) + ("SGEMM" "sgemm_" %%SGEMM %SGEMM) + ("SGEMV" "sgemv_" %%SGEMV %SGEMV) + ("SGER" "sger_" %%SGER %SGER) + ("SNRM2" "snrm2_" %%SNRM2 %SNRM2) + ("SROT" "srot_" %%SROT %SROT) + ("SROTG" "srotg_" %%SROTG %SROTG) + ("SROTM" "srotm_" %%SROTM %SROTM) + ("SROTMG" "srotmg_" %%SROTMG %SROTMG) + ("SSBMV" "ssbmv_" %%SSBMV %SSBMV) + ("SSCAL" "sscal_" %%SSCAL %SSCAL) + ("SSPMV" "sspmv_" %%SSPMV %SSPMV) + ("SSPR" "sspr_" %%SSPR %SSPR) + ("SSPR2" "sspr2_" %%SSPR2 %SSPR2) + ("SSWAP" "sswap_" %%SSWAP %SSWAP) + ("SSYMM" "ssymm_" %%SSYMM %SSYMM) + ("SSYMV" "ssymv_" %%SSYMV %SSYMV) + ("SSYR" "ssyr_" %%SSYR %SSYR) + ("SSYR2" "ssyr2_" %%SSYR2 %SSYR2) + ("SSYR2K" "ssyr2k_" %%SSYR2K %SSYR2K) + ("SSYRK" "ssyrk_" %%SSYRK %SSYRK) + ("STBMV" "stbmv_" %%STBMV %STBMV) + ("STBSV" "stbsv_" %%STBSV %STBSV) + ("STPMV" "stpmv_" %%STPMV %STPMV) + ("STPSV" "stpsv_" %%STPSV %STPSV) + ("STRMM" "strmm_" %%STRMM %STRMM) + ("STRMV" "strmv_" %%STRMV %STRMV) + ("STRSM" "strsm_" %%STRSM %STRSM) + ("STRSV" "strsv_" %%STRSV %STRSV) + ("XERBLA" "xerbla_" %%XERBLA %XERBLA) + ("XERBLA_ARRAY" "xerbla_array_" + %%XERBLA_ARRAY %XERBLA_ARRAY) + ("ZAXPY" "zaxpy_" %%ZAXPY %ZAXPY) + ("ZCOPY" "zcopy_" %%ZCOPY %ZCOPY) + ("ZDOTC" "zdotc_" %%ZDOTC %ZDOTC) + ("ZDOTU" "zdotu_" %%ZDOTU %ZDOTU) + ("ZDROT" "zdrot_" %%ZDROT %ZDROT) + ("ZDSCAL" "zdscal_" %%ZDSCAL %ZDSCAL) + ("ZGBMV" "zgbmv_" %%ZGBMV %ZGBMV) + ("ZGEMM" "zgemm_" %%ZGEMM %ZGEMM) + ("ZGEMV" "zgemv_" %%ZGEMV %ZGEMV) + ("ZGERC" "zgerc_" %%ZGERC %ZGERC) + ("ZGERU" "zgeru_" %%ZGERU %ZGERU) + ("ZHBMV" "zhbmv_" %%ZHBMV %ZHBMV) + ("ZHEMM" "zhemm_" %%ZHEMM %ZHEMM) + ("ZHEMV" "zhemv_" %%ZHEMV %ZHEMV) + ("ZHER" "zher_" %%ZHER %ZHER) + ("ZHER2" "zher2_" %%ZHER2 %ZHER2) + ("ZHER2K" "zher2k_" %%ZHER2K %ZHER2K) + ("ZHERK" "zherk_" %%ZHERK %ZHERK) + ("ZHPMV" "zhpmv_" %%ZHPMV %ZHPMV) + ("ZHPR" "zhpr_" %%ZHPR %ZHPR) + ("ZHPR2" "zhpr2_" %%ZHPR2 %ZHPR2) + ("ZROTG" "zrotg_" %%ZROTG %ZROTG) + ("ZSCAL" "zscal_" %%ZSCAL %ZSCAL) + ("ZSWAP" "zswap_" %%ZSWAP %ZSWAP) + ("ZSYMM" "zsymm_" %%ZSYMM %ZSYMM) + ("ZSYR2K" "zsyr2k_" %%ZSYR2K %ZSYR2K) + ("ZSYRK" "zsyrk_" %%ZSYRK %ZSYRK) + ("ZTBMV" "ztbmv_" %%ZTBMV %ZTBMV) + ("ZTBSV" "ztbsv_" %%ZTBSV %ZTBSV) + ("ZTPMV" "ztpmv_" %%ZTPMV %ZTPMV) + ("ZTPSV" "ztpsv_" %%ZTPSV %ZTPSV) + ("ZTRMM" "ztrmm_" %%ZTRMM %ZTRMM) + ("ZTRMV" "ztrmv_" %%ZTRMV %ZTRMV) + ("ZTRSM" "ztrsm_" %%ZTRSM %ZTRSM) + ("ZTRSV" "ztrsv_" %%ZTRSV %ZTRSV))) (COMMON-LISP:EXPORT '(%CAXPY %CCOPY %CDOTC %CDOTU %CGBMV %CGEMM %CGEMV %CGERC %CGERU %CHBMV %CHEMM diff --git a/src/bindings/expokit-cffi.lisp b/src/bindings/expokit-cffi.lisp index ca27687a..6945588a 100644 --- a/src/bindings/expokit-cffi.lisp +++ b/src/bindings/expokit-cffi.lisp @@ -431,7 +431,7 @@ %%ZHPADM %ZHPADM %%DGCHBV %DGCHBV %%DNCHBV %DNCHBV %%DSCHBV %DSCHBV %%ZGCHBV %ZGCHBV %%ZNCHBV %ZNCHBV)) -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES:LIBEXPOKIT '(("DGPADM" "dgpadm_" %%DGPADM %DGPADM) ("DSPADM" "dspadm_" %%DSPADM %DSPADM) diff --git a/src/bindings/lapack00-cffi.lisp b/src/bindings/lapack00-cffi.lisp index 2b1d7bf0..f726a19f 100644 --- a/src/bindings/lapack00-cffi.lisp +++ b/src/bindings/lapack00-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 5/21/2019 at 13:37:08 (UTC+1). +;;;; Generated on 3/22/2021 at 17:54:18 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -74,9 +74,10 @@ %%CLAHR2 %CLAHR2 %%CLAIC1 %CLAIC1 %%CLALS0 %CLALS0 %%CLALSA %CLALSA %%CLALSD %CLALSD %%CLAMSWLQ %CLAMSWLQ %%CLAMTSQR %CLAMTSQR %%CLANGB %CLANGB %%CLANGE %CLANGE %%CLANGT %CLANGT %%CLANHB %CLANHB %%CLANHE %CLANHE %%CLANHF %CLANHF - %%CLANHP %CLANHP %%CLANHS %CLANHS %%CLANHT %CLANHT)) + %%CLANHP %CLANHP %%CLANHS %CLANHS %%CLANHT %CLANHT %%CLANSB %CLANSB %%CLANSP + %CLANSP)) -(CFFI:DEFCFUN ("cbbcsd_" %%CBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cbbcsd_" %%CBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -180,40 +181,35 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF87 ':INT32) (P-REF88 ':INT32) - (Q-REF89 ':INT32) (LDU1-REF93 ':INT32) - (LDU2-REF95 ':INT32) (LDV1T-REF97 ':INT32) - (LDV2T-REF99 ':INT32) (LRWORK-REF109 ':INT32) - (INFO-REF110 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF87 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF88 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF89 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF93 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF95 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF97 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF99 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF109 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF110 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF90 THETA) (PHI-REF91 PHI) - (U1-REF92 U1) (U2-REF94 U2) - (V1T-REF96 V1T) (V2T-REF98 V2T) - (B11D-REF100 B11D) - (B11E-REF101 B11E) - (B12D-REF102 B12D) - (B12E-REF103 B12E) - (B21D-REF104 B21D) - (B21E-REF105 B21E) - (B22D-REF106 B22D) - (B22E-REF107 B22E) - (RWORK-REF108 RWORK)) - (%%CBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF87 P-REF88 Q-REF89 - THETA-REF90 PHI-REF91 U1-REF92 LDU1-REF93 U2-REF94 LDU2-REF95 - V1T-REF96 LDV1T-REF97 V2T-REF98 LDV2T-REF99 B11D-REF100 - B11E-REF101 B12D-REF102 B12E-REF103 B21D-REF104 B21E-REF105 - B22D-REF106 B22E-REF107 RWORK-REF108 LRWORK-REF109 - INFO-REF110)))) - -(CFFI:DEFCFUN ("cbdsqr_" %%CBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6 ':INT32) (P-REF7 ':INT32) + (Q-REF8 ':INT32) (LDU1-REF12 ':INT32) + (LDU2-REF14 ':INT32) (LDV1T-REF16 ':INT32) + (LDV2T-REF18 ':INT32) (LRWORK-REF28 ':INT32) + (INFO-REF29 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF8 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF12 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF16 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF18 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF28 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF29 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF9 THETA) (PHI-REF10 PHI) + (U1-REF11 U1) (U2-REF13 U2) + (V1T-REF15 V1T) (V2T-REF17 V2T) + (B11D-REF19 B11D) (B11E-REF20 B11E) + (B12D-REF21 B12D) (B12E-REF22 B12E) + (B21D-REF23 B21D) (B21E-REF24 B21E) + (B22D-REF25 B22D) (B22E-REF26 B22E) + (RWORK-REF27 RWORK)) + (%%CBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF6 P-REF7 Q-REF8 THETA-REF9 + PHI-REF10 U1-REF11 LDU1-REF12 U2-REF13 LDU2-REF14 V1T-REF15 LDV1T-REF16 + V2T-REF17 LDV2T-REF18 B11D-REF19 B11E-REF20 B12D-REF21 B12E-REF22 + B21D-REF23 B21E-REF24 B22D-REF25 B22E-REF26 RWORK-REF27 LRWORK-REF28 + INFO-REF29)))) + +(CFFI:DEFCFUN ("cbdsqr_" %%CBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -265,26 +261,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF112 ':INT32) (NCVT-REF113 ':INT32) - (NRU-REF114 ':INT32) (NCC-REF115 ':INT32) - (LDVT-REF119 ':INT32) (LDU-REF121 ':INT32) - (LDC-REF123 ':INT32) (INFO-REF125 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF112 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF113 :INT32) NCVT) - (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF114 :INT32) NRU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF115 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF119 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF121 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF123 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF125 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF116 D) (E-REF117 E) - (VT-REF118 VT) (U-REF120 U) - (C-REF122 C) (RWORK-REF124 RWORK)) - (%%CBDSQR UPLO N-REF112 NCVT-REF113 NRU-REF114 NCC-REF115 D-REF116 - E-REF117 VT-REF118 LDVT-REF119 U-REF120 LDU-REF121 C-REF122 - LDC-REF123 RWORK-REF124 INFO-REF125)))) - -(CFFI:DEFCFUN ("cgbbrd_" %%CGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF31 ':INT32) (NCVT-REF32 ':INT32) + (NRU-REF33 ':INT32) (NCC-REF34 ':INT32) + (LDVT-REF38 ':INT32) (LDU-REF40 ':INT32) + (LDC-REF42 ':INT32) (INFO-REF44 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF31 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF32 :INT32) NCVT) + (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF33 :INT32) NRU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF34 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF38 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF40 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF42 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF44 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF35 D) (E-REF36 E) + (VT-REF37 VT) (U-REF39 U) + (C-REF41 C) (RWORK-REF43 RWORK)) + (%%CBDSQR UPLO N-REF31 NCVT-REF32 NRU-REF33 NCC-REF34 D-REF35 E-REF36 + VT-REF37 LDVT-REF38 U-REF39 LDU-REF40 C-REF41 LDC-REF42 RWORK-REF43 + INFO-REF44)))) + +(CFFI:DEFCFUN ("cgbbrd_" %%CGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (M :POINTER) @@ -353,32 +349,31 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF127 ':INT32) (N-REF128 ':INT32) - (NCC-REF129 ':INT32) (KL-REF130 ':INT32) - (KU-REF131 ':INT32) (LDAB-REF133 ':INT32) - (LDQ-REF137 ':INT32) (LDPT-REF139 ':INT32) - (LDC-REF141 ':INT32) (INFO-REF144 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF127 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF128 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF129 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF130 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF131 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF133 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF137 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF139 :INT32) LDPT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF141 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF144 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF132 AB) (D-REF134 D) - (E-REF135 E) (Q-REF136 Q) - (PT-REF138 PT) (C-REF140 C) - (WORK-REF142 WORK) - (RWORK-REF143 RWORK)) - (%%CGBBRD VECT M-REF127 N-REF128 NCC-REF129 KL-REF130 KU-REF131 AB-REF132 - LDAB-REF133 D-REF134 E-REF135 Q-REF136 LDQ-REF137 PT-REF138 - LDPT-REF139 C-REF140 LDC-REF141 WORK-REF142 RWORK-REF143 - INFO-REF144)))) - -(CFFI:DEFCFUN ("cgbcon_" %%CGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF46 ':INT32) (N-REF47 ':INT32) + (NCC-REF48 ':INT32) (KL-REF49 ':INT32) + (KU-REF50 ':INT32) (LDAB-REF52 ':INT32) + (LDQ-REF56 ':INT32) (LDPT-REF58 ':INT32) + (LDC-REF60 ':INT32) (INFO-REF63 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF46 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF47 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF48 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF49 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF50 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF52 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF56 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF58 :INT32) LDPT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF60 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF63 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF51 AB) (D-REF53 D) + (E-REF54 E) (Q-REF55 Q) + (PT-REF57 PT) (C-REF59 C) + (WORK-REF61 WORK) + (RWORK-REF62 RWORK)) + (%%CGBBRD VECT M-REF46 N-REF47 NCC-REF48 KL-REF49 KU-REF50 AB-REF51 + LDAB-REF52 D-REF53 E-REF54 Q-REF55 LDQ-REF56 PT-REF57 LDPT-REF58 C-REF59 + LDC-REF60 WORK-REF61 RWORK-REF62 INFO-REF63)))) + +(CFFI:DEFCFUN ("cgbcon_" %%CGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -421,25 +416,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF146 ':INT32) (KL-REF147 ':INT32) - (KU-REF148 ':INT32) (LDAB-REF150 ':INT32) - (ANORM-REF152 ':FLOAT) (RCOND-REF153 ':FLOAT) - (INFO-REF156 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF146 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF147 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF148 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF150 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF152 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF153 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF156 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF149 AB) (IPIV-REF151 IPIV) - (WORK-REF154 WORK) - (RWORK-REF155 RWORK)) - (%%CGBCON NORM N-REF146 KL-REF147 KU-REF148 AB-REF149 LDAB-REF150 - IPIV-REF151 ANORM-REF152 RCOND-REF153 WORK-REF154 RWORK-REF155 - INFO-REF156)))) - -(CFFI:DEFCFUN ("cgbequ_" %%CGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF65 ':INT32) (KL-REF66 ':INT32) + (KU-REF67 ':INT32) (LDAB-REF69 ':INT32) + (ANORM-REF71 ':FLOAT) (RCOND-REF72 ':FLOAT) + (INFO-REF75 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF65 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF66 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF67 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF69 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF71 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF72 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF75 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF68 AB) (IPIV-REF70 IPIV) + (WORK-REF73 WORK) + (RWORK-REF74 RWORK)) + (%%CGBCON NORM N-REF65 KL-REF66 KU-REF67 AB-REF68 LDAB-REF69 IPIV-REF70 + ANORM-REF71 RCOND-REF72 WORK-REF73 RWORK-REF74 INFO-REF75)))) + +(CFFI:DEFCFUN ("cgbequ_" %%CGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -474,27 +468,27 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF157 ':INT32) (N-REF158 ':INT32) - (KL-REF159 ':INT32) (KU-REF160 ':INT32) - (LDAB-REF162 ':INT32) (ROWCND-REF165 ':FLOAT) - (COLCND-REF166 ':FLOAT) (AMAX-REF167 ':FLOAT) - (INFO-REF168 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF157 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF158 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF159 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF160 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF162 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF165 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF166 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF167 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF168 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF161 AB) (R-REF163 R) - (C-REF164 C)) - (%%CGBEQU M-REF157 N-REF158 KL-REF159 KU-REF160 AB-REF161 LDAB-REF162 - R-REF163 C-REF164 ROWCND-REF165 COLCND-REF166 AMAX-REF167 - INFO-REF168)))) - -(CFFI:DEFCFUN ("cgbequb_" %%CGBEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF76 ':INT32) (N-REF77 ':INT32) + (KL-REF78 ':INT32) (KU-REF79 ':INT32) + (LDAB-REF81 ':INT32) (ROWCND-REF84 ':FLOAT) + (COLCND-REF85 ':FLOAT) (AMAX-REF86 ':FLOAT) + (INFO-REF87 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF76 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF77 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF78 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF79 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF81 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF84 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF85 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF86 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF87 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF80 AB) (R-REF82 R) + (C-REF83 C)) + (%%CGBEQU M-REF76 N-REF77 KL-REF78 KU-REF79 AB-REF80 LDAB-REF81 R-REF82 + C-REF83 ROWCND-REF84 COLCND-REF85 AMAX-REF86 INFO-REF87)))) + +(CFFI:DEFCFUN ("cgbequb_" %%CGBEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -529,27 +523,26 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF169 ':INT32) (N-REF170 ':INT32) - (KL-REF171 ':INT32) (KU-REF172 ':INT32) - (LDAB-REF174 ':INT32) (ROWCND-REF177 ':FLOAT) - (COLCND-REF178 ':FLOAT) (AMAX-REF179 ':FLOAT) - (INFO-REF180 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF169 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF170 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF171 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF172 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF174 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF177 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF178 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF179 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF180 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF173 AB) (R-REF175 R) - (C-REF176 C)) - (%%CGBEQUB M-REF169 N-REF170 KL-REF171 KU-REF172 AB-REF173 LDAB-REF174 - R-REF175 C-REF176 ROWCND-REF177 COLCND-REF178 AMAX-REF179 - INFO-REF180)))) - -(CFFI:DEFCFUN ("cgbrfs_" %%CGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF88 ':INT32) (N-REF89 ':INT32) + (KL-REF90 ':INT32) (KU-REF91 ':INT32) + (LDAB-REF93 ':INT32) (ROWCND-REF96 ':FLOAT) + (COLCND-REF97 ':FLOAT) (AMAX-REF98 ':FLOAT) + (INFO-REF99 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF88 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF89 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF90 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF91 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF93 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF96 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF97 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF98 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF99 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF92 AB) (R-REF94 R) + (C-REF95 C)) + (%%CGBEQUB M-REF88 N-REF89 KL-REF90 KU-REF91 AB-REF92 LDAB-REF93 R-REF94 + C-REF95 ROWCND-REF96 COLCND-REF97 AMAX-REF98 INFO-REF99)))) + +(CFFI:DEFCFUN ("cgbrfs_" %%CGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -623,32 +616,33 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF182 ':INT32) (KL-REF183 ':INT32) - (KU-REF184 ':INT32) (NRHS-REF185 ':INT32) - (LDAB-REF187 ':INT32) (LDAFB-REF189 ':INT32) - (LDB-REF192 ':INT32) (LDX-REF194 ':INT32) - (INFO-REF199 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF182 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF183 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF184 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF185 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF187 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF189 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF192 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF194 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF199 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF186 AB) (AFB-REF188 AFB) - (IPIV-REF190 IPIV) (B-REF191 B) - (X-REF193 X) (FERR-REF195 FERR) - (BERR-REF196 BERR) - (WORK-REF197 WORK) - (RWORK-REF198 RWORK)) - (%%CGBRFS TRANS N-REF182 KL-REF183 KU-REF184 NRHS-REF185 AB-REF186 - LDAB-REF187 AFB-REF188 LDAFB-REF189 IPIV-REF190 B-REF191 - LDB-REF192 X-REF193 LDX-REF194 FERR-REF195 BERR-REF196 - WORK-REF197 RWORK-REF198 INFO-REF199)))) - -(CFFI:DEFCFUN ("cgbrfsx_" %%CGBRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF101 ':INT32) (KL-REF102 ':INT32) + (KU-REF103 ':INT32) (NRHS-REF104 ':INT32) + (LDAB-REF106 ':INT32) (LDAFB-REF108 ':INT32) + (LDB-REF111 ':INT32) (LDX-REF113 ':INT32) + (INFO-REF118 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF101 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF102 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF103 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF104 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF106 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF108 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF111 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF113 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF118 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF105 AB) (AFB-REF107 AFB) + (IPIV-REF109 IPIV) (B-REF110 B) + (X-REF112 X) (FERR-REF114 FERR) + (BERR-REF115 BERR) + (WORK-REF116 WORK) + (RWORK-REF117 RWORK)) + (%%CGBRFS TRANS N-REF101 KL-REF102 KU-REF103 NRHS-REF104 AB-REF105 + LDAB-REF106 AFB-REF107 LDAFB-REF108 IPIV-REF109 B-REF110 LDB-REF111 + X-REF112 LDX-REF113 FERR-REF114 BERR-REF115 WORK-REF116 RWORK-REF117 + INFO-REF118)))) + +(CFFI:DEFCFUN ("cgbrfsx_" %%CGBRFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (EQUED :STRING) @@ -746,44 +740,43 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF202 ':INT32) (KL-REF203 ':INT32) - (KU-REF204 ':INT32) (NRHS-REF205 ':INT32) - (LDAB-REF207 ':INT32) (LDAFB-REF209 ':INT32) - (LDB-REF214 ':INT32) (LDX-REF216 ':INT32) - (RCOND-REF217 ':FLOAT) - (N_ERR_BNDS-REF219 ':INT32) - (NPARAMS-REF222 ':INT32) (INFO-REF226 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF202 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF203 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF204 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF205 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF207 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF209 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF214 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF216 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF217 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF219 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF222 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF226 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF206 AB) (AFB-REF208 AFB) - (IPIV-REF210 IPIV) (R-REF211 R) - (C-REF212 C) (B-REF213 B) - (X-REF215 X) (BERR-REF218 BERR) - (ERR_BNDS_NORM-REF220 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF121 ':INT32) (KL-REF122 ':INT32) + (KU-REF123 ':INT32) (NRHS-REF124 ':INT32) + (LDAB-REF126 ':INT32) (LDAFB-REF128 ':INT32) + (LDB-REF133 ':INT32) (LDX-REF135 ':INT32) + (RCOND-REF136 ':FLOAT) + (N_ERR_BNDS-REF138 ':INT32) + (NPARAMS-REF141 ':INT32) (INFO-REF145 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF121 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF122 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF123 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF124 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF126 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF128 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF133 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF135 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF136 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF138 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF141 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF145 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF125 AB) (AFB-REF127 AFB) + (IPIV-REF129 IPIV) (R-REF130 R) + (C-REF131 C) (B-REF132 B) + (X-REF134 X) (BERR-REF137 BERR) + (ERR_BNDS_NORM-REF139 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF221 + (ERR_BNDS_COMP-REF140 ERR_BNDS_COMP) - (PARAMS-REF223 PARAMS) - (WORK-REF224 WORK) - (RWORK-REF225 RWORK)) - (%%CGBRFSX TRANS EQUED N-REF202 KL-REF203 KU-REF204 NRHS-REF205 AB-REF206 - LDAB-REF207 AFB-REF208 LDAFB-REF209 IPIV-REF210 R-REF211 - C-REF212 B-REF213 LDB-REF214 X-REF215 LDX-REF216 RCOND-REF217 - BERR-REF218 N_ERR_BNDS-REF219 ERR_BNDS_NORM-REF220 - ERR_BNDS_COMP-REF221 NPARAMS-REF222 PARAMS-REF223 WORK-REF224 - RWORK-REF225 INFO-REF226)))) - -(CFFI:DEFCFUN ("cgbsv_" %%CGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF142 PARAMS) + (WORK-REF143 WORK) + (RWORK-REF144 RWORK)) + (%%CGBRFSX TRANS EQUED N-REF121 KL-REF122 KU-REF123 NRHS-REF124 AB-REF125 + LDAB-REF126 AFB-REF127 LDAFB-REF128 IPIV-REF129 R-REF130 C-REF131 + B-REF132 LDB-REF133 X-REF134 LDX-REF135 RCOND-REF136 BERR-REF137 + N_ERR_BNDS-REF138 ERR_BNDS_NORM-REF139 ERR_BNDS_COMP-REF140 + NPARAMS-REF141 PARAMS-REF142 WORK-REF143 RWORK-REF144 INFO-REF145)))) + +(CFFI:DEFCFUN ("cgbsv_" %%CGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (KL :POINTER) @@ -819,23 +812,23 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF227 ':INT32) (KL-REF228 ':INT32) - (KU-REF229 ':INT32) (NRHS-REF230 ':INT32) - (LDAB-REF232 ':INT32) (LDB-REF235 ':INT32) - (INFO-REF236 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF227 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF228 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF229 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF230 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF232 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF235 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF236 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF231 AB) (IPIV-REF233 IPIV) - (B-REF234 B)) - (%%CGBSV N-REF227 KL-REF228 KU-REF229 NRHS-REF230 AB-REF231 LDAB-REF232 - IPIV-REF233 B-REF234 LDB-REF235 INFO-REF236)))) - -(CFFI:DEFCFUN ("cgbsvx_" %%CGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF146 ':INT32) (KL-REF147 ':INT32) + (KU-REF148 ':INT32) (NRHS-REF149 ':INT32) + (LDAB-REF151 ':INT32) (LDB-REF154 ':INT32) + (INFO-REF155 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF146 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF147 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF148 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF149 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF151 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF154 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF155 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF150 AB) (IPIV-REF152 IPIV) + (B-REF153 B)) + (%%CGBSV N-REF146 KL-REF147 KU-REF148 NRHS-REF149 AB-REF150 LDAB-REF151 + IPIV-REF152 B-REF153 LDB-REF154 INFO-REF155)))) + +(CFFI:DEFCFUN ("cgbsvx_" %%CGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -921,34 +914,35 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF239 ':INT32) (KL-REF240 ':INT32) - (KU-REF241 ':INT32) (NRHS-REF242 ':INT32) - (LDAB-REF244 ':INT32) (LDAFB-REF246 ':INT32) - (LDB-REF252 ':INT32) (LDX-REF254 ':INT32) - (RCOND-REF255 ':FLOAT) (INFO-REF260 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF239 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF240 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF241 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF242 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF244 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF246 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF252 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF254 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF255 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF260 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF243 AB) (AFB-REF245 AFB) - (IPIV-REF247 IPIV) (R-REF249 R) - (C-REF250 C) (B-REF251 B) - (X-REF253 X) (FERR-REF256 FERR) - (BERR-REF257 BERR) - (WORK-REF258 WORK) - (RWORK-REF259 RWORK)) - (%%CGBSVX FACT TRANS N-REF239 KL-REF240 KU-REF241 NRHS-REF242 AB-REF243 - LDAB-REF244 AFB-REF245 LDAFB-REF246 IPIV-REF247 EQUED R-REF249 - C-REF250 B-REF251 LDB-REF252 X-REF253 LDX-REF254 RCOND-REF255 - FERR-REF256 BERR-REF257 WORK-REF258 RWORK-REF259 INFO-REF260)))) - -(CFFI:DEFCFUN ("cgbsvxx_" %%CGBSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF158 ':INT32) (KL-REF159 ':INT32) + (KU-REF160 ':INT32) (NRHS-REF161 ':INT32) + (LDAB-REF163 ':INT32) (LDAFB-REF165 ':INT32) + (LDB-REF171 ':INT32) (LDX-REF173 ':INT32) + (RCOND-REF174 ':FLOAT) (INFO-REF179 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF158 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF159 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF160 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF161 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF163 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF165 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF171 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF173 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF174 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF179 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF162 AB) (AFB-REF164 AFB) + (IPIV-REF166 IPIV) (R-REF168 R) + (C-REF169 C) (B-REF170 B) + (X-REF172 X) (FERR-REF175 FERR) + (BERR-REF176 BERR) + (WORK-REF177 WORK) + (RWORK-REF178 RWORK)) + (%%CGBSVX FACT TRANS N-REF158 KL-REF159 KU-REF160 NRHS-REF161 AB-REF162 + LDAB-REF163 AFB-REF164 LDAFB-REF165 IPIV-REF166 EQUED R-REF168 C-REF169 + B-REF170 LDB-REF171 X-REF172 LDX-REF173 RCOND-REF174 FERR-REF175 + BERR-REF176 WORK-REF177 RWORK-REF178 INFO-REF179)))) + +(CFFI:DEFCFUN ("cgbsvxx_" %%CGBSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -1050,45 +1044,44 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF263 ':INT32) (KL-REF264 ':INT32) - (KU-REF265 ':INT32) (NRHS-REF266 ':INT32) - (LDAB-REF268 ':INT32) (LDAFB-REF270 ':INT32) - (LDB-REF276 ':INT32) (LDX-REF278 ':INT32) - (RCOND-REF279 ':FLOAT) (RPVGRW-REF280 ':FLOAT) - (N_ERR_BNDS-REF282 ':INT32) - (NPARAMS-REF285 ':INT32) (INFO-REF289 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF263 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF264 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF265 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF266 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF268 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF270 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF276 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF278 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF279 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF280 :FLOAT) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF282 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF285 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF289 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF267 AB) (AFB-REF269 AFB) - (IPIV-REF271 IPIV) (R-REF273 R) - (C-REF274 C) (B-REF275 B) - (X-REF277 X) (BERR-REF281 BERR) - (ERR_BNDS_NORM-REF283 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF182 ':INT32) (KL-REF183 ':INT32) + (KU-REF184 ':INT32) (NRHS-REF185 ':INT32) + (LDAB-REF187 ':INT32) (LDAFB-REF189 ':INT32) + (LDB-REF195 ':INT32) (LDX-REF197 ':INT32) + (RCOND-REF198 ':FLOAT) (RPVGRW-REF199 ':FLOAT) + (N_ERR_BNDS-REF201 ':INT32) + (NPARAMS-REF204 ':INT32) (INFO-REF208 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF182 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF183 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF184 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF185 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF187 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF189 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF195 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF197 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF198 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF199 :FLOAT) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF201 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF204 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF208 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF186 AB) (AFB-REF188 AFB) + (IPIV-REF190 IPIV) (R-REF192 R) + (C-REF193 C) (B-REF194 B) + (X-REF196 X) (BERR-REF200 BERR) + (ERR_BNDS_NORM-REF202 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF284 + (ERR_BNDS_COMP-REF203 ERR_BNDS_COMP) - (PARAMS-REF286 PARAMS) - (WORK-REF287 WORK) - (RWORK-REF288 RWORK)) - (%%CGBSVXX FACT TRANS N-REF263 KL-REF264 KU-REF265 NRHS-REF266 AB-REF267 - LDAB-REF268 AFB-REF269 LDAFB-REF270 IPIV-REF271 EQUED R-REF273 - C-REF274 B-REF275 LDB-REF276 X-REF277 LDX-REF278 RCOND-REF279 - RPVGRW-REF280 BERR-REF281 N_ERR_BNDS-REF282 - ERR_BNDS_NORM-REF283 ERR_BNDS_COMP-REF284 NPARAMS-REF285 - PARAMS-REF286 WORK-REF287 RWORK-REF288 INFO-REF289)))) - -(CFFI:DEFCFUN ("cgbtf2_" %%CGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF205 PARAMS) + (WORK-REF206 WORK) + (RWORK-REF207 RWORK)) + (%%CGBSVXX FACT TRANS N-REF182 KL-REF183 KU-REF184 NRHS-REF185 AB-REF186 + LDAB-REF187 AFB-REF188 LDAFB-REF189 IPIV-REF190 EQUED R-REF192 C-REF193 + B-REF194 LDB-REF195 X-REF196 LDX-REF197 RCOND-REF198 RPVGRW-REF199 + BERR-REF200 N_ERR_BNDS-REF201 ERR_BNDS_NORM-REF202 ERR_BNDS_COMP-REF203 + NPARAMS-REF204 PARAMS-REF205 WORK-REF206 RWORK-REF207 INFO-REF208)))) + +(CFFI:DEFCFUN ("cgbtf2_" %%CGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1116,20 +1109,20 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF290 ':INT32) (N-REF291 ':INT32) - (KL-REF292 ':INT32) (KU-REF293 ':INT32) - (LDAB-REF295 ':INT32) (INFO-REF297 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF290 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF291 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF292 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF293 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF295 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF297 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF294 AB) (IPIV-REF296 IPIV)) - (%%CGBTF2 M-REF290 N-REF291 KL-REF292 KU-REF293 AB-REF294 LDAB-REF295 - IPIV-REF296 INFO-REF297)))) - -(CFFI:DEFCFUN ("cgbtrf_" %%CGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF209 ':INT32) (N-REF210 ':INT32) + (KL-REF211 ':INT32) (KU-REF212 ':INT32) + (LDAB-REF214 ':INT32) (INFO-REF216 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF209 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF210 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF211 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF212 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF214 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF216 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF213 AB) (IPIV-REF215 IPIV)) + (%%CGBTF2 M-REF209 N-REF210 KL-REF211 KU-REF212 AB-REF213 LDAB-REF214 + IPIV-REF215 INFO-REF216)))) + +(CFFI:DEFCFUN ("cgbtrf_" %%CGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1157,20 +1150,20 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF298 ':INT32) (N-REF299 ':INT32) - (KL-REF300 ':INT32) (KU-REF301 ':INT32) - (LDAB-REF303 ':INT32) (INFO-REF305 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF298 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF299 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF300 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF301 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF303 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF305 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF302 AB) (IPIV-REF304 IPIV)) - (%%CGBTRF M-REF298 N-REF299 KL-REF300 KU-REF301 AB-REF302 LDAB-REF303 - IPIV-REF304 INFO-REF305)))) - -(CFFI:DEFCFUN ("cgbtrs_" %%CGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF217 ':INT32) (N-REF218 ':INT32) + (KL-REF219 ':INT32) (KU-REF220 ':INT32) + (LDAB-REF222 ':INT32) (INFO-REF224 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF217 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF218 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF219 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF220 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF222 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF224 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF221 AB) (IPIV-REF223 IPIV)) + (%%CGBTRF M-REF217 N-REF218 KL-REF219 KU-REF220 AB-REF221 LDAB-REF222 + IPIV-REF223 INFO-REF224)))) + +(CFFI:DEFCFUN ("cgbtrs_" %%CGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -1208,23 +1201,23 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF307 ':INT32) (KL-REF308 ':INT32) - (KU-REF309 ':INT32) (NRHS-REF310 ':INT32) - (LDAB-REF312 ':INT32) (LDB-REF315 ':INT32) - (INFO-REF316 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF307 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF308 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF309 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF310 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF312 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF315 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF316 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF311 AB) (IPIV-REF313 IPIV) - (B-REF314 B)) - (%%CGBTRS TRANS N-REF307 KL-REF308 KU-REF309 NRHS-REF310 AB-REF311 - LDAB-REF312 IPIV-REF313 B-REF314 LDB-REF315 INFO-REF316)))) - -(CFFI:DEFCFUN ("cgebak_" %%CGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF226 ':INT32) (KL-REF227 ':INT32) + (KU-REF228 ':INT32) (NRHS-REF229 ':INT32) + (LDAB-REF231 ':INT32) (LDB-REF234 ':INT32) + (INFO-REF235 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF226 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF227 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF228 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF229 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF231 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF234 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF235 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF230 AB) (IPIV-REF232 IPIV) + (B-REF233 B)) + (%%CGBTRS TRANS N-REF226 KL-REF227 KU-REF228 NRHS-REF229 AB-REF230 + LDAB-REF231 IPIV-REF232 B-REF233 LDB-REF234 INFO-REF235)))) + +(CFFI:DEFCFUN ("cgebak_" %%CGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (SIDE :STRING) @@ -1255,20 +1248,20 @@ V) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF319 ':INT32) (ILO-REF320 ':INT32) - (IHI-REF321 ':INT32) (M-REF323 ':INT32) - (LDV-REF325 ':INT32) (INFO-REF326 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF319 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF320 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF321 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF323 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF325 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF326 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF322 SCALE) (V-REF324 V)) - (%%CGEBAK JOB SIDE N-REF319 ILO-REF320 IHI-REF321 SCALE-REF322 M-REF323 - V-REF324 LDV-REF325 INFO-REF326)))) - -(CFFI:DEFCFUN ("cgebal_" %%CGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF238 ':INT32) (ILO-REF239 ':INT32) + (IHI-REF240 ':INT32) (M-REF242 ':INT32) + (LDV-REF244 ':INT32) (INFO-REF245 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF238 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF239 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF240 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF242 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF244 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF245 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF241 SCALE) (V-REF243 V)) + (%%CGEBAK JOB SIDE N-REF238 ILO-REF239 IHI-REF240 SCALE-REF241 M-REF242 + V-REF243 LDV-REF244 INFO-REF245)))) + +(CFFI:DEFCFUN ("cgebal_" %%CGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (N :POINTER) @@ -1295,19 +1288,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SCALE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF328 ':INT32) (LDA-REF330 ':INT32) - (ILO-REF331 ':INT32) (IHI-REF332 ':INT32) - (INFO-REF334 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF328 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF330 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF331 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF332 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF334 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF329 A) (SCALE-REF333 SCALE)) - (%%CGEBAL JOB N-REF328 A-REF329 LDA-REF330 ILO-REF331 IHI-REF332 - SCALE-REF333 INFO-REF334)))) - -(CFFI:DEFCFUN ("cgebd2_" %%CGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF247 ':INT32) (LDA-REF249 ':INT32) + (ILO-REF250 ':INT32) (IHI-REF251 ':INT32) + (INFO-REF253 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF247 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF249 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF250 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF251 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF253 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF248 A) (SCALE-REF252 SCALE)) + (%%CGEBAL JOB N-REF247 A-REF248 LDA-REF249 ILO-REF250 IHI-REF251 + SCALE-REF252 INFO-REF253)))) + +(CFFI:DEFCFUN ("cgebd2_" %%CGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1350,20 +1343,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF335 ':INT32) (N-REF336 ':INT32) - (LDA-REF338 ':INT32) (INFO-REF344 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF335 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF336 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF338 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF344 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF337 A) (D-REF339 D) - (E-REF340 E) (TAUQ-REF341 TAUQ) - (TAUP-REF342 TAUP) - (WORK-REF343 WORK)) - (%%CGEBD2 M-REF335 N-REF336 A-REF337 LDA-REF338 D-REF339 E-REF340 - TAUQ-REF341 TAUP-REF342 WORK-REF343 INFO-REF344)))) - -(CFFI:DEFCFUN ("cgebrd_" %%CGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF254 ':INT32) (N-REF255 ':INT32) + (LDA-REF257 ':INT32) (INFO-REF263 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF254 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF255 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF257 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF263 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF256 A) (D-REF258 D) + (E-REF259 E) (TAUQ-REF260 TAUQ) + (TAUP-REF261 TAUP) + (WORK-REF262 WORK)) + (%%CGEBD2 M-REF254 N-REF255 A-REF256 LDA-REF257 D-REF258 E-REF259 + TAUQ-REF260 TAUP-REF261 WORK-REF262 INFO-REF263)))) + +(CFFI:DEFCFUN ("cgebrd_" %%CGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1408,22 +1401,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF345 ':INT32) (N-REF346 ':INT32) - (LDA-REF348 ':INT32) (LWORK-REF354 ':INT32) - (INFO-REF355 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF345 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF346 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF348 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF354 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF355 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF347 A) (D-REF349 D) - (E-REF350 E) (TAUQ-REF351 TAUQ) - (TAUP-REF352 TAUP) - (WORK-REF353 WORK)) - (%%CGEBRD M-REF345 N-REF346 A-REF347 LDA-REF348 D-REF349 E-REF350 - TAUQ-REF351 TAUP-REF352 WORK-REF353 LWORK-REF354 INFO-REF355)))) - -(CFFI:DEFCFUN ("cgecon_" %%CGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF264 ':INT32) (N-REF265 ':INT32) + (LDA-REF267 ':INT32) (LWORK-REF273 ':INT32) + (INFO-REF274 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF264 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF265 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF267 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF273 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF274 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF266 A) (D-REF268 D) + (E-REF269 E) (TAUQ-REF270 TAUQ) + (TAUP-REF271 TAUP) + (WORK-REF272 WORK)) + (%%CGEBRD M-REF264 N-REF265 A-REF266 LDA-REF267 D-REF268 E-REF269 + TAUQ-REF270 TAUP-REF271 WORK-REF272 LWORK-REF273 INFO-REF274)))) + +(CFFI:DEFCFUN ("cgecon_" %%CGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -1456,20 +1449,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF357 ':INT32) (LDA-REF359 ':INT32) - (ANORM-REF360 ':FLOAT) (RCOND-REF361 ':FLOAT) - (INFO-REF364 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF357 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF359 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF360 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF361 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF364 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF358 A) (WORK-REF362 WORK) - (RWORK-REF363 RWORK)) - (%%CGECON NORM N-REF357 A-REF358 LDA-REF359 ANORM-REF360 RCOND-REF361 - WORK-REF362 RWORK-REF363 INFO-REF364)))) - -(CFFI:DEFCFUN ("cgeequ_" %%CGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF276 ':INT32) (LDA-REF278 ':INT32) + (ANORM-REF279 ':FLOAT) (RCOND-REF280 ':FLOAT) + (INFO-REF283 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF276 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF278 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF279 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF280 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF283 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF277 A) (WORK-REF281 WORK) + (RWORK-REF282 RWORK)) + (%%CGECON NORM N-REF276 A-REF277 LDA-REF278 ANORM-REF279 RCOND-REF280 + WORK-REF281 RWORK-REF282 INFO-REF283)))) + +(CFFI:DEFCFUN ("cgeequ_" %%CGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1500,23 +1493,24 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF365 ':INT32) (N-REF366 ':INT32) - (LDA-REF368 ':INT32) (ROWCND-REF371 ':FLOAT) - (COLCND-REF372 ':FLOAT) (AMAX-REF373 ':FLOAT) - (INFO-REF374 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF365 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF366 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF368 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF371 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF372 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF373 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF374 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF367 A) (R-REF369 R) - (C-REF370 C)) - (%%CGEEQU M-REF365 N-REF366 A-REF367 LDA-REF368 R-REF369 C-REF370 - ROWCND-REF371 COLCND-REF372 AMAX-REF373 INFO-REF374)))) - -(CFFI:DEFCFUN ("cgeequb_" %%CGEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF284 ':INT32) (N-REF285 ':INT32) + (LDA-REF287 ':INT32) (ROWCND-REF290 ':FLOAT) + (COLCND-REF291 ':FLOAT) (AMAX-REF292 ':FLOAT) + (INFO-REF293 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF284 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF285 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF287 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF290 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF291 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF292 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF293 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF286 A) (R-REF288 R) + (C-REF289 C)) + (%%CGEEQU M-REF284 N-REF285 A-REF286 LDA-REF287 R-REF288 C-REF289 + ROWCND-REF290 COLCND-REF291 AMAX-REF292 INFO-REF293)))) + +(CFFI:DEFCFUN ("cgeequb_" %%CGEEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1547,23 +1541,23 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF375 ':INT32) (N-REF376 ':INT32) - (LDA-REF378 ':INT32) (ROWCND-REF381 ':FLOAT) - (COLCND-REF382 ':FLOAT) (AMAX-REF383 ':FLOAT) - (INFO-REF384 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF375 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF376 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF378 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF381 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF382 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF383 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF384 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF377 A) (R-REF379 R) - (C-REF380 C)) - (%%CGEEQUB M-REF375 N-REF376 A-REF377 LDA-REF378 R-REF379 C-REF380 - ROWCND-REF381 COLCND-REF382 AMAX-REF383 INFO-REF384)))) - -(CFFI:DEFCFUN ("cgees_" %%CGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF294 ':INT32) (N-REF295 ':INT32) + (LDA-REF297 ':INT32) (ROWCND-REF300 ':FLOAT) + (COLCND-REF301 ':FLOAT) (AMAX-REF302 ':FLOAT) + (INFO-REF303 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF294 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF295 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF297 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF300 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF301 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF302 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF303 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF296 A) (R-REF298 R) + (C-REF299 C)) + (%%CGEEQUB M-REF294 N-REF295 A-REF296 LDA-REF297 R-REF298 C-REF299 + ROWCND-REF300 COLCND-REF301 AMAX-REF302 INFO-REF303)))) + +(CFFI:DEFCFUN ("cgees_" %%CGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVS :STRING) (SORT :STRING) @@ -1621,26 +1615,26 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF387 ':INT32) (N-REF388 ':INT32) - (LDA-REF390 ':INT32) (SDIM-REF391 ':INT32) - (LDVS-REF394 ':INT32) (LWORK-REF396 ':INT32) - (INFO-REF399 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF387 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF388 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF390 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF391 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF394 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF396 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF399 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF389 A) (W-REF392 W) - (VS-REF393 VS) (WORK-REF395 WORK) - (RWORK-REF397 RWORK) - (BWORK-REF398 BWORK)) - (%%CGEES JOBVS SORT SELECT-REF387 N-REF388 A-REF389 LDA-REF390 - SDIM-REF391 W-REF392 VS-REF393 LDVS-REF394 WORK-REF395 - LWORK-REF396 RWORK-REF397 BWORK-REF398 INFO-REF399)))) - -(CFFI:DEFCFUN ("cgeesx_" %%CGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF306 ':INT32) (N-REF307 ':INT32) + (LDA-REF309 ':INT32) (SDIM-REF310 ':INT32) + (LDVS-REF313 ':INT32) (LWORK-REF315 ':INT32) + (INFO-REF318 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF306 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF307 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF309 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF310 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF313 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF315 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF318 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF308 A) (W-REF311 W) + (VS-REF312 VS) (WORK-REF314 WORK) + (RWORK-REF316 RWORK) + (BWORK-REF317 BWORK)) + (%%CGEES JOBVS SORT SELECT-REF306 N-REF307 A-REF308 LDA-REF309 + SDIM-REF310 W-REF311 VS-REF312 LDVS-REF313 WORK-REF314 LWORK-REF315 + RWORK-REF316 BWORK-REF317 INFO-REF318)))) + +(CFFI:DEFCFUN ("cgeesx_" %%CGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVS :STRING) (SORT :STRING) @@ -1704,30 +1698,29 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF402 ':INT32) (N-REF404 ':INT32) - (LDA-REF406 ':INT32) (SDIM-REF407 ':INT32) - (LDVS-REF410 ':INT32) (RCONDE-REF411 ':FLOAT) - (RCONDV-REF412 ':FLOAT) (LWORK-REF414 ':INT32) - (INFO-REF417 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF402 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF404 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF406 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF407 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF410 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF411 :FLOAT) RCONDE) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF412 :FLOAT) RCONDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF414 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF417 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF405 A) (W-REF408 W) - (VS-REF409 VS) (WORK-REF413 WORK) - (RWORK-REF415 RWORK) - (BWORK-REF416 BWORK)) - (%%CGEESX JOBVS SORT SELECT-REF402 SENSE N-REF404 A-REF405 LDA-REF406 - SDIM-REF407 W-REF408 VS-REF409 LDVS-REF410 RCONDE-REF411 - RCONDV-REF412 WORK-REF413 LWORK-REF414 RWORK-REF415 - BWORK-REF416 INFO-REF417)))) - -(CFFI:DEFCFUN ("cgeev_" %%CGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF321 ':INT32) (N-REF323 ':INT32) + (LDA-REF325 ':INT32) (SDIM-REF326 ':INT32) + (LDVS-REF329 ':INT32) (RCONDE-REF330 ':FLOAT) + (RCONDV-REF331 ':FLOAT) (LWORK-REF333 ':INT32) + (INFO-REF336 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF321 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF323 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF325 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF326 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF329 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF330 :FLOAT) RCONDE) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF331 :FLOAT) RCONDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF333 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF336 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF324 A) (W-REF327 W) + (VS-REF328 VS) (WORK-REF332 WORK) + (RWORK-REF334 RWORK) + (BWORK-REF335 BWORK)) + (%%CGEESX JOBVS SORT SELECT-REF321 SENSE N-REF323 A-REF324 LDA-REF325 + SDIM-REF326 W-REF327 VS-REF328 LDVS-REF329 RCONDE-REF330 RCONDV-REF331 + WORK-REF332 LWORK-REF333 RWORK-REF334 BWORK-REF335 INFO-REF336)))) + +(CFFI:DEFCFUN ("cgeev_" %%CGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -1784,24 +1777,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF420 ':INT32) (LDA-REF422 ':INT32) - (LDVL-REF425 ':INT32) (LDVR-REF427 ':INT32) - (LWORK-REF429 ':INT32) (INFO-REF431 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF420 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF422 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF425 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF427 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF429 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF431 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF421 A) (W-REF423 W) - (VL-REF424 VL) (VR-REF426 VR) - (WORK-REF428 WORK) - (RWORK-REF430 RWORK)) - (%%CGEEV JOBVL JOBVR N-REF420 A-REF421 LDA-REF422 W-REF423 VL-REF424 - LDVL-REF425 VR-REF426 LDVR-REF427 WORK-REF428 LWORK-REF429 - RWORK-REF430 INFO-REF431)))) - -(CFFI:DEFCFUN ("cgeevx_" %%CGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF339 ':INT32) (LDA-REF341 ':INT32) + (LDVL-REF344 ':INT32) (LDVR-REF346 ':INT32) + (LWORK-REF348 ':INT32) (INFO-REF350 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF339 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF341 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF344 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF346 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF348 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF350 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF340 A) (W-REF342 W) + (VL-REF343 VL) (VR-REF345 VR) + (WORK-REF347 WORK) + (RWORK-REF349 RWORK)) + (%%CGEEV JOBVL JOBVR N-REF339 A-REF340 LDA-REF341 W-REF342 VL-REF343 + LDVL-REF344 VR-REF345 LDVR-REF346 WORK-REF347 LWORK-REF348 RWORK-REF349 + INFO-REF350)))) + +(CFFI:DEFCFUN ("cgeevx_" %%CGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (BALANC :STRING) (JOBVL :STRING) @@ -1880,34 +1873,33 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF436 ':INT32) (LDA-REF438 ':INT32) - (LDVL-REF441 ':INT32) (LDVR-REF443 ':INT32) - (ILO-REF444 ':INT32) (IHI-REF445 ':INT32) - (ABNRM-REF447 ':FLOAT) (LWORK-REF451 ':INT32) - (INFO-REF453 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF436 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF438 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF441 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF443 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF444 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF445 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF447 :FLOAT) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF451 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF453 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF437 A) (W-REF439 W) - (VL-REF440 VL) (VR-REF442 VR) - (SCALE-REF446 SCALE) - (RCONDE-REF448 RCONDE) - (RCONDV-REF449 RCONDV) - (WORK-REF450 WORK) - (RWORK-REF452 RWORK)) - (%%CGEEVX BALANC JOBVL JOBVR SENSE N-REF436 A-REF437 LDA-REF438 W-REF439 - VL-REF440 LDVL-REF441 VR-REF442 LDVR-REF443 ILO-REF444 - IHI-REF445 SCALE-REF446 ABNRM-REF447 RCONDE-REF448 - RCONDV-REF449 WORK-REF450 LWORK-REF451 RWORK-REF452 - INFO-REF453)))) - -(CFFI:DEFCFUN ("cgehd2_" %%CGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF355 ':INT32) (LDA-REF357 ':INT32) + (LDVL-REF360 ':INT32) (LDVR-REF362 ':INT32) + (ILO-REF363 ':INT32) (IHI-REF364 ':INT32) + (ABNRM-REF366 ':FLOAT) (LWORK-REF370 ':INT32) + (INFO-REF372 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF355 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF357 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF360 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF362 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF363 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF364 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF366 :FLOAT) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF370 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF372 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF356 A) (W-REF358 W) + (VL-REF359 VL) (VR-REF361 VR) + (SCALE-REF365 SCALE) + (RCONDE-REF367 RCONDE) + (RCONDV-REF368 RCONDV) + (WORK-REF369 WORK) + (RWORK-REF371 RWORK)) + (%%CGEEVX BALANC JOBVL JOBVR SENSE N-REF355 A-REF356 LDA-REF357 W-REF358 + VL-REF359 LDVL-REF360 VR-REF361 LDVR-REF362 ILO-REF363 IHI-REF364 + SCALE-REF365 ABNRM-REF366 RCONDE-REF367 RCONDV-REF368 WORK-REF369 + LWORK-REF370 RWORK-REF371 INFO-REF372)))) + +(CFFI:DEFCFUN ("cgehd2_" %%CGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -1940,20 +1932,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF454 ':INT32) (ILO-REF455 ':INT32) - (IHI-REF456 ':INT32) (LDA-REF458 ':INT32) - (INFO-REF461 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF454 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF455 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF456 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF458 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF461 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF457 A) (TAU-REF459 TAU) - (WORK-REF460 WORK)) - (%%CGEHD2 N-REF454 ILO-REF455 IHI-REF456 A-REF457 LDA-REF458 TAU-REF459 - WORK-REF460 INFO-REF461)))) - -(CFFI:DEFCFUN ("cgehrd_" %%CGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF373 ':INT32) (ILO-REF374 ':INT32) + (IHI-REF375 ':INT32) (LDA-REF377 ':INT32) + (INFO-REF380 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF373 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF374 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF375 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF377 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF380 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF376 A) (TAU-REF378 TAU) + (WORK-REF379 WORK)) + (%%CGEHD2 N-REF373 ILO-REF374 IHI-REF375 A-REF376 LDA-REF377 TAU-REF378 + WORK-REF379 INFO-REF380)))) + +(CFFI:DEFCFUN ("cgehrd_" %%CGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -1988,21 +1980,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF462 ':INT32) (ILO-REF463 ':INT32) - (IHI-REF464 ':INT32) (LDA-REF466 ':INT32) - (LWORK-REF469 ':INT32) (INFO-REF470 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF462 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF463 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF464 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF466 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF469 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF470 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF465 A) (TAU-REF467 TAU) - (WORK-REF468 WORK)) - (%%CGEHRD N-REF462 ILO-REF463 IHI-REF464 A-REF465 LDA-REF466 TAU-REF467 - WORK-REF468 LWORK-REF469 INFO-REF470)))) - -(CFFI:DEFCFUN ("cgejsv_" %%CGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF381 ':INT32) (ILO-REF382 ':INT32) + (IHI-REF383 ':INT32) (LDA-REF385 ':INT32) + (LWORK-REF388 ':INT32) (INFO-REF389 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF381 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF382 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF383 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF385 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF388 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF389 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF384 A) (TAU-REF386 TAU) + (WORK-REF387 WORK)) + (%%CGEHRD N-REF381 ILO-REF382 IHI-REF383 A-REF384 LDA-REF385 TAU-REF386 + WORK-REF387 LWORK-REF388 INFO-REF389)))) + +(CFFI:DEFCFUN ("cgejsv_" %%CGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBU :STRING) @@ -2074,29 +2066,29 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF477 ':INT32) (N-REF478 ':INT32) - (LDA-REF480 ':INT32) (LDU-REF483 ':INT32) - (LDV-REF485 ':INT32) (LWORK-REF487 ':INT32) - (LRWORK-REF489 ':INT32) (INFO-REF491 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF477 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF478 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF480 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF483 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF485 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF487 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF489 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF491 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF479 A) (SVA-REF481 SVA) - (U-REF482 U) (V-REF484 V) - (CWORK-REF486 CWORK) - (RWORK-REF488 RWORK) - (IWORK-REF490 IWORK)) - (%%CGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF477 N-REF478 A-REF479 - LDA-REF480 SVA-REF481 U-REF482 LDU-REF483 V-REF484 LDV-REF485 - CWORK-REF486 LWORK-REF487 RWORK-REF488 LRWORK-REF489 - IWORK-REF490 INFO-REF491)))) - -(CFFI:DEFCFUN ("cgelq_" %%CGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF396 ':INT32) (N-REF397 ':INT32) + (LDA-REF399 ':INT32) (LDU-REF402 ':INT32) + (LDV-REF404 ':INT32) (LWORK-REF406 ':INT32) + (LRWORK-REF408 ':INT32) (INFO-REF410 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF396 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF397 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF399 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF402 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF404 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF406 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF408 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF410 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF398 A) (SVA-REF400 SVA) + (U-REF401 U) (V-REF403 V) + (CWORK-REF405 CWORK) + (RWORK-REF407 RWORK) + (IWORK-REF409 IWORK)) + (%%CGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF396 N-REF397 A-REF398 + LDA-REF399 SVA-REF400 U-REF401 LDU-REF402 V-REF403 LDV-REF404 + CWORK-REF405 LWORK-REF406 RWORK-REF407 LRWORK-REF408 IWORK-REF409 + INFO-REF410)))) + +(CFFI:DEFCFUN ("cgelq_" %%CGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2131,21 +2123,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF492 ':INT32) (N-REF493 ':INT32) - (LDA-REF495 ':INT32) (TSIZE-REF497 ':INT32) - (LWORK-REF499 ':INT32) (INFO-REF500 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF492 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF493 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF495 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF497 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF499 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF500 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF494 A) (T-REF496 T) - (WORK-REF498 WORK)) - (%%CGELQ M-REF492 N-REF493 A-REF494 LDA-REF495 T-REF496 TSIZE-REF497 - WORK-REF498 LWORK-REF499 INFO-REF500)))) - -(CFFI:DEFCFUN ("cgelq2_" %%CGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF411 ':INT32) (N-REF412 ':INT32) + (LDA-REF414 ':INT32) (TSIZE-REF416 ':INT32) + (LWORK-REF418 ':INT32) (INFO-REF419 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF411 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF412 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF414 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF416 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF418 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF419 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF413 A) (T-REF415 T) + (WORK-REF417 WORK)) + (%%CGELQ M-REF411 N-REF412 A-REF413 LDA-REF414 T-REF415 TSIZE-REF416 + WORK-REF417 LWORK-REF418 INFO-REF419)))) + +(CFFI:DEFCFUN ("cgelq2_" %%CGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2176,18 +2168,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF501 ':INT32) (N-REF502 ':INT32) - (LDA-REF504 ':INT32) (INFO-REF507 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF501 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF502 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF504 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF507 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF503 A) (TAU-REF505 TAU) - (WORK-REF506 WORK)) - (%%CGELQ2 M-REF501 N-REF502 A-REF503 LDA-REF504 TAU-REF505 WORK-REF506 - INFO-REF507)))) - -(CFFI:DEFCFUN ("cgelqf_" %%CGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF420 ':INT32) (N-REF421 ':INT32) + (LDA-REF423 ':INT32) (INFO-REF426 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF420 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF421 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF423 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF426 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF422 A) (TAU-REF424 TAU) + (WORK-REF425 WORK)) + (%%CGELQ2 M-REF420 N-REF421 A-REF422 LDA-REF423 TAU-REF424 WORK-REF425 + INFO-REF426)))) + +(CFFI:DEFCFUN ("cgelqf_" %%CGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2220,20 +2212,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF508 ':INT32) (N-REF509 ':INT32) - (LDA-REF511 ':INT32) (LWORK-REF514 ':INT32) - (INFO-REF515 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF508 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF509 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF511 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF514 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF515 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF510 A) (TAU-REF512 TAU) - (WORK-REF513 WORK)) - (%%CGELQF M-REF508 N-REF509 A-REF510 LDA-REF511 TAU-REF512 WORK-REF513 - LWORK-REF514 INFO-REF515)))) - -(CFFI:DEFCFUN ("cgelqt_" %%CGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF427 ':INT32) (N-REF428 ':INT32) + (LDA-REF430 ':INT32) (LWORK-REF433 ':INT32) + (INFO-REF434 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF427 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF428 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF430 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF433 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF434 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF429 A) (TAU-REF431 TAU) + (WORK-REF432 WORK)) + (%%CGELQF M-REF427 N-REF428 A-REF429 LDA-REF430 TAU-REF431 WORK-REF432 + LWORK-REF433 INFO-REF434)))) + +(CFFI:DEFCFUN ("cgelqt_" %%CGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2268,21 +2260,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF516 ':INT32) (N-REF517 ':INT32) - (MB-REF518 ':INT32) (LDA-REF520 ':INT32) - (LDT-REF522 ':INT32) (INFO-REF524 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF516 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF517 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF518 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF520 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF522 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF524 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF519 A) (T-REF521 T) - (WORK-REF523 WORK)) - (%%CGELQT M-REF516 N-REF517 MB-REF518 A-REF519 LDA-REF520 T-REF521 - LDT-REF522 WORK-REF523 INFO-REF524)))) - -(CFFI:DEFCFUN ("cgelqt3_" %%CGELQT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF435 ':INT32) (N-REF436 ':INT32) + (MB-REF437 ':INT32) (LDA-REF439 ':INT32) + (LDT-REF441 ':INT32) (INFO-REF443 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF435 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF436 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF437 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF439 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF441 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF443 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF438 A) (T-REF440 T) + (WORK-REF442 WORK)) + (%%CGELQT M-REF435 N-REF436 MB-REF437 A-REF438 LDA-REF439 T-REF440 + LDT-REF441 WORK-REF442 INFO-REF443)))) + +(CFFI:DEFCFUN ("cgelqt3_" %%CGELQT3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2309,19 +2302,19 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF525 ':INT32) (N-REF526 ':INT32) - (LDA-REF528 ':INT32) (LDT-REF530 ':INT32) - (INFO-REF531 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF525 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF526 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF528 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF530 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF531 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF527 A) (T-REF529 T)) - (%%CGELQT3 M-REF525 N-REF526 A-REF527 LDA-REF528 T-REF529 LDT-REF530 - INFO-REF531)))) - -(CFFI:DEFCFUN ("cgels_" %%CGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF444 ':INT32) (N-REF445 ':INT32) + (LDA-REF447 ':INT32) (LDT-REF449 ':INT32) + (INFO-REF450 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF444 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF445 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF447 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF449 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF450 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF446 A) (T-REF448 T)) + (%%CGELQT3 M-REF444 N-REF445 A-REF446 LDA-REF447 T-REF448 LDT-REF449 + INFO-REF450)))) + +(CFFI:DEFCFUN ("cgels_" %%CGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (M :POINTER) @@ -2360,23 +2353,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF533 ':INT32) (N-REF534 ':INT32) - (NRHS-REF535 ':INT32) (LDA-REF537 ':INT32) - (LDB-REF539 ':INT32) (LWORK-REF541 ':INT32) - (INFO-REF542 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF533 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF534 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF535 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF537 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF539 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF541 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF542 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF536 A) (B-REF538 B) - (WORK-REF540 WORK)) - (%%CGELS TRANS M-REF533 N-REF534 NRHS-REF535 A-REF536 LDA-REF537 B-REF538 - LDB-REF539 WORK-REF540 LWORK-REF541 INFO-REF542)))) - -(CFFI:DEFCFUN ("cgelsd_" %%CGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF452 ':INT32) (N-REF453 ':INT32) + (NRHS-REF454 ':INT32) (LDA-REF456 ':INT32) + (LDB-REF458 ':INT32) (LWORK-REF460 ':INT32) + (INFO-REF461 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF452 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF453 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF454 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF456 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF458 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF460 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF461 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF455 A) (B-REF457 B) + (WORK-REF459 WORK)) + (%%CGELS TRANS M-REF452 N-REF453 NRHS-REF454 A-REF455 LDA-REF456 B-REF457 + LDB-REF458 WORK-REF459 LWORK-REF460 INFO-REF461)))) + +(CFFI:DEFCFUN ("cgelsd_" %%CGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2431,29 +2424,29 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF543 ':INT32) (N-REF544 ':INT32) - (NRHS-REF545 ':INT32) (LDA-REF547 ':INT32) - (LDB-REF549 ':INT32) (RCOND-REF551 ':FLOAT) - (RANK-REF552 ':INT32) (LWORK-REF554 ':INT32) - (INFO-REF557 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF543 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF544 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF545 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF547 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF549 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF551 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF552 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF554 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF557 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF546 A) (B-REF548 B) - (S-REF550 S) (WORK-REF553 WORK) - (RWORK-REF555 RWORK) - (IWORK-REF556 IWORK)) - (%%CGELSD M-REF543 N-REF544 NRHS-REF545 A-REF546 LDA-REF547 B-REF548 - LDB-REF549 S-REF550 RCOND-REF551 RANK-REF552 WORK-REF553 - LWORK-REF554 RWORK-REF555 IWORK-REF556 INFO-REF557)))) - -(CFFI:DEFCFUN ("cgelss_" %%CGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF462 ':INT32) (N-REF463 ':INT32) + (NRHS-REF464 ':INT32) (LDA-REF466 ':INT32) + (LDB-REF468 ':INT32) (RCOND-REF470 ':FLOAT) + (RANK-REF471 ':INT32) (LWORK-REF473 ':INT32) + (INFO-REF476 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF462 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF463 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF464 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF466 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF468 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF470 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF471 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF473 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF476 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF465 A) (B-REF467 B) + (S-REF469 S) (WORK-REF472 WORK) + (RWORK-REF474 RWORK) + (IWORK-REF475 IWORK)) + (%%CGELSD M-REF462 N-REF463 NRHS-REF464 A-REF465 LDA-REF466 B-REF467 + LDB-REF468 S-REF469 RCOND-REF470 RANK-REF471 WORK-REF472 LWORK-REF473 + RWORK-REF474 IWORK-REF475 INFO-REF476)))) + +(CFFI:DEFCFUN ("cgelss_" %%CGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2502,28 +2495,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF558 ':INT32) (N-REF559 ':INT32) - (NRHS-REF560 ':INT32) (LDA-REF562 ':INT32) - (LDB-REF564 ':INT32) (RCOND-REF566 ':FLOAT) - (RANK-REF567 ':INT32) (LWORK-REF569 ':INT32) - (INFO-REF571 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF558 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF559 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF560 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF562 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF564 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF566 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF567 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF569 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF571 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF561 A) (B-REF563 B) - (S-REF565 S) (WORK-REF568 WORK) - (RWORK-REF570 RWORK)) - (%%CGELSS M-REF558 N-REF559 NRHS-REF560 A-REF561 LDA-REF562 B-REF563 - LDB-REF564 S-REF565 RCOND-REF566 RANK-REF567 WORK-REF568 - LWORK-REF569 RWORK-REF570 INFO-REF571)))) - -(CFFI:DEFCFUN ("cgelsy_" %%CGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF477 ':INT32) (N-REF478 ':INT32) + (NRHS-REF479 ':INT32) (LDA-REF481 ':INT32) + (LDB-REF483 ':INT32) (RCOND-REF485 ':FLOAT) + (RANK-REF486 ':INT32) (LWORK-REF488 ':INT32) + (INFO-REF490 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF477 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF478 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF479 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF481 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF483 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF485 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF486 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF488 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF490 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF480 A) (B-REF482 B) + (S-REF484 S) (WORK-REF487 WORK) + (RWORK-REF489 RWORK)) + (%%CGELSS M-REF477 N-REF478 NRHS-REF479 A-REF480 LDA-REF481 B-REF482 + LDB-REF483 S-REF484 RCOND-REF485 RANK-REF486 WORK-REF487 LWORK-REF488 + RWORK-REF489 INFO-REF490)))) + +(CFFI:DEFCFUN ("cgelsy_" %%CGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2574,29 +2567,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF572 ':INT32) (N-REF573 ':INT32) - (NRHS-REF574 ':INT32) (LDA-REF576 ':INT32) - (LDB-REF578 ':INT32) (RCOND-REF580 ':FLOAT) - (RANK-REF581 ':INT32) (LWORK-REF583 ':INT32) - (INFO-REF585 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF572 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF573 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF574 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF576 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF578 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF580 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF581 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF583 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF585 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF575 A) (B-REF577 B) - (JPVT-REF579 JPVT) - (WORK-REF582 WORK) - (RWORK-REF584 RWORK)) - (%%CGELSY M-REF572 N-REF573 NRHS-REF574 A-REF575 LDA-REF576 B-REF577 - LDB-REF578 JPVT-REF579 RCOND-REF580 RANK-REF581 WORK-REF582 - LWORK-REF583 RWORK-REF584 INFO-REF585)))) - -(CFFI:DEFCFUN ("cgemlq_" %%CGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF491 ':INT32) (N-REF492 ':INT32) + (NRHS-REF493 ':INT32) (LDA-REF495 ':INT32) + (LDB-REF497 ':INT32) (RCOND-REF499 ':FLOAT) + (RANK-REF500 ':INT32) (LWORK-REF502 ':INT32) + (INFO-REF504 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF491 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF492 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF493 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF495 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF497 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF499 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF500 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF502 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF504 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF494 A) (B-REF496 B) + (JPVT-REF498 JPVT) + (WORK-REF501 WORK) + (RWORK-REF503 RWORK)) + (%%CGELSY M-REF491 N-REF492 NRHS-REF493 A-REF494 LDA-REF495 B-REF496 + LDB-REF497 JPVT-REF498 RCOND-REF499 RANK-REF500 WORK-REF501 LWORK-REF502 + RWORK-REF503 INFO-REF504)))) + +(CFFI:DEFCFUN ("cgemlq_" %%CGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2646,25 +2639,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF588 ':INT32) (N-REF589 ':INT32) - (K-REF590 ':INT32) (LDA-REF592 ':INT32) - (TSIZE-REF594 ':INT32) (LDC-REF596 ':INT32) - (LWORK-REF598 ':INT32) (INFO-REF599 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF588 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF589 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF590 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF592 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF594 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF596 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF598 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF599 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF591 A) (T-REF593 T) - (C-REF595 C) (WORK-REF597 WORK)) - (%%CGEMLQ SIDE TRANS M-REF588 N-REF589 K-REF590 A-REF591 LDA-REF592 - T-REF593 TSIZE-REF594 C-REF595 LDC-REF596 WORK-REF597 - LWORK-REF598 INFO-REF599)))) - -(CFFI:DEFCFUN ("cgemlqt_" %%CGEMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF507 ':INT32) (N-REF508 ':INT32) + (K-REF509 ':INT32) (LDA-REF511 ':INT32) + (TSIZE-REF513 ':INT32) (LDC-REF515 ':INT32) + (LWORK-REF517 ':INT32) (INFO-REF518 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF507 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF508 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF509 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF511 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF513 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF515 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF517 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF518 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF510 A) (T-REF512 T) + (C-REF514 C) (WORK-REF516 WORK)) + (%%CGEMLQ SIDE TRANS M-REF507 N-REF508 K-REF509 A-REF510 LDA-REF511 + T-REF512 TSIZE-REF513 C-REF514 LDC-REF515 WORK-REF516 LWORK-REF517 + INFO-REF518)))) + +(CFFI:DEFCFUN ("cgemlqt_" %%CGEMLQT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2713,25 +2707,25 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF602 ':INT32) (N-REF603 ':INT32) - (K-REF604 ':INT32) (MB-REF605 ':INT32) - (LDV-REF607 ':INT32) (LDT-REF609 ':INT32) - (LDC-REF611 ':INT32) (INFO-REF613 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF602 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF603 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF604 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF605 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF607 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF609 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF611 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF613 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF606 V) (T-REF608 T) - (C-REF610 C) (WORK-REF612 WORK)) - (%%CGEMLQT SIDE TRANS M-REF602 N-REF603 K-REF604 MB-REF605 V-REF606 - LDV-REF607 T-REF608 LDT-REF609 C-REF610 LDC-REF611 WORK-REF612 - INFO-REF613)))) - -(CFFI:DEFCFUN ("cgemqr_" %%CGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF521 ':INT32) (N-REF522 ':INT32) + (K-REF523 ':INT32) (MB-REF524 ':INT32) + (LDV-REF526 ':INT32) (LDT-REF528 ':INT32) + (LDC-REF530 ':INT32) (INFO-REF532 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF521 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF522 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF523 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF524 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF526 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF528 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF530 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF532 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF525 V) (T-REF527 T) + (C-REF529 C) (WORK-REF531 WORK)) + (%%CGEMLQT SIDE TRANS M-REF521 N-REF522 K-REF523 MB-REF524 V-REF525 + LDV-REF526 T-REF527 LDT-REF528 C-REF529 LDC-REF530 WORK-REF531 + INFO-REF532)))) + +(CFFI:DEFCFUN ("cgemqr_" %%CGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2781,25 +2775,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF616 ':INT32) (N-REF617 ':INT32) - (K-REF618 ':INT32) (LDA-REF620 ':INT32) - (TSIZE-REF622 ':INT32) (LDC-REF624 ':INT32) - (LWORK-REF626 ':INT32) (INFO-REF627 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF616 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF617 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF618 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF620 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF622 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF624 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF626 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF627 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF619 A) (T-REF621 T) - (C-REF623 C) (WORK-REF625 WORK)) - (%%CGEMQR SIDE TRANS M-REF616 N-REF617 K-REF618 A-REF619 LDA-REF620 - T-REF621 TSIZE-REF622 C-REF623 LDC-REF624 WORK-REF625 - LWORK-REF626 INFO-REF627)))) - -(CFFI:DEFCFUN ("cgemqrt_" %%CGEMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF535 ':INT32) (N-REF536 ':INT32) + (K-REF537 ':INT32) (LDA-REF539 ':INT32) + (TSIZE-REF541 ':INT32) (LDC-REF543 ':INT32) + (LWORK-REF545 ':INT32) (INFO-REF546 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF535 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF536 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF537 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF539 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF541 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF543 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF545 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF546 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF538 A) (T-REF540 T) + (C-REF542 C) (WORK-REF544 WORK)) + (%%CGEMQR SIDE TRANS M-REF535 N-REF536 K-REF537 A-REF538 LDA-REF539 + T-REF540 TSIZE-REF541 C-REF542 LDC-REF543 WORK-REF544 LWORK-REF545 + INFO-REF546)))) + +(CFFI:DEFCFUN ("cgemqrt_" %%CGEMQRT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2848,25 +2843,25 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF630 ':INT32) (N-REF631 ':INT32) - (K-REF632 ':INT32) (NB-REF633 ':INT32) - (LDV-REF635 ':INT32) (LDT-REF637 ':INT32) - (LDC-REF639 ':INT32) (INFO-REF641 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF630 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF631 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF632 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF633 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF635 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF637 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF639 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF641 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF634 V) (T-REF636 T) - (C-REF638 C) (WORK-REF640 WORK)) - (%%CGEMQRT SIDE TRANS M-REF630 N-REF631 K-REF632 NB-REF633 V-REF634 - LDV-REF635 T-REF636 LDT-REF637 C-REF638 LDC-REF639 WORK-REF640 - INFO-REF641)))) - -(CFFI:DEFCFUN ("cgeql2_" %%CGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF549 ':INT32) (N-REF550 ':INT32) + (K-REF551 ':INT32) (NB-REF552 ':INT32) + (LDV-REF554 ':INT32) (LDT-REF556 ':INT32) + (LDC-REF558 ':INT32) (INFO-REF560 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF549 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF550 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF551 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF552 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF554 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF556 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF558 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF560 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF553 V) (T-REF555 T) + (C-REF557 C) (WORK-REF559 WORK)) + (%%CGEMQRT SIDE TRANS M-REF549 N-REF550 K-REF551 NB-REF552 V-REF553 + LDV-REF554 T-REF555 LDT-REF556 C-REF557 LDC-REF558 WORK-REF559 + INFO-REF560)))) + +(CFFI:DEFCFUN ("cgeql2_" %%CGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2897,18 +2892,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF642 ':INT32) (N-REF643 ':INT32) - (LDA-REF645 ':INT32) (INFO-REF648 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF642 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF643 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF645 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF648 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF644 A) (TAU-REF646 TAU) - (WORK-REF647 WORK)) - (%%CGEQL2 M-REF642 N-REF643 A-REF644 LDA-REF645 TAU-REF646 WORK-REF647 - INFO-REF648)))) - -(CFFI:DEFCFUN ("cgeqlf_" %%CGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF561 ':INT32) (N-REF562 ':INT32) + (LDA-REF564 ':INT32) (INFO-REF567 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF561 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF562 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF564 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF567 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF563 A) (TAU-REF565 TAU) + (WORK-REF566 WORK)) + (%%CGEQL2 M-REF561 N-REF562 A-REF563 LDA-REF564 TAU-REF565 WORK-REF566 + INFO-REF567)))) + +(CFFI:DEFCFUN ("cgeqlf_" %%CGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2941,20 +2936,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF649 ':INT32) (N-REF650 ':INT32) - (LDA-REF652 ':INT32) (LWORK-REF655 ':INT32) - (INFO-REF656 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF649 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF650 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF652 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF655 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF656 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF651 A) (TAU-REF653 TAU) - (WORK-REF654 WORK)) - (%%CGEQLF M-REF649 N-REF650 A-REF651 LDA-REF652 TAU-REF653 WORK-REF654 - LWORK-REF655 INFO-REF656)))) - -(CFFI:DEFCFUN ("cgeqp3_" %%CGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF568 ':INT32) (N-REF569 ':INT32) + (LDA-REF571 ':INT32) (LWORK-REF574 ':INT32) + (INFO-REF575 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF568 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF569 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF571 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF574 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF575 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF570 A) (TAU-REF572 TAU) + (WORK-REF573 WORK)) + (%%CGEQLF M-REF568 N-REF569 A-REF570 LDA-REF571 TAU-REF572 WORK-REF573 + LWORK-REF574 INFO-REF575)))) + +(CFFI:DEFCFUN ("cgeqp3_" %%CGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2996,21 +2991,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF657 ':INT32) (N-REF658 ':INT32) - (LDA-REF660 ':INT32) (LWORK-REF664 ':INT32) - (INFO-REF666 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF657 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF658 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF660 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF664 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF666 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF659 A) (JPVT-REF661 JPVT) - (TAU-REF662 TAU) (WORK-REF663 WORK) - (RWORK-REF665 RWORK)) - (%%CGEQP3 M-REF657 N-REF658 A-REF659 LDA-REF660 JPVT-REF661 TAU-REF662 - WORK-REF663 LWORK-REF664 RWORK-REF665 INFO-REF666)))) - -(CFFI:DEFCFUN ("cgeqr_" %%CGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF576 ':INT32) (N-REF577 ':INT32) + (LDA-REF579 ':INT32) (LWORK-REF583 ':INT32) + (INFO-REF585 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF576 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF577 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF579 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF583 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF585 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF578 A) (JPVT-REF580 JPVT) + (TAU-REF581 TAU) (WORK-REF582 WORK) + (RWORK-REF584 RWORK)) + (%%CGEQP3 M-REF576 N-REF577 A-REF578 LDA-REF579 JPVT-REF580 TAU-REF581 + WORK-REF582 LWORK-REF583 RWORK-REF584 INFO-REF585)))) + +(CFFI:DEFCFUN ("cgeqr_" %%CGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3045,21 +3040,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF667 ':INT32) (N-REF668 ':INT32) - (LDA-REF670 ':INT32) (TSIZE-REF672 ':INT32) - (LWORK-REF674 ':INT32) (INFO-REF675 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF667 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF668 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF670 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF672 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF674 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF675 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF669 A) (T-REF671 T) - (WORK-REF673 WORK)) - (%%CGEQR M-REF667 N-REF668 A-REF669 LDA-REF670 T-REF671 TSIZE-REF672 - WORK-REF673 LWORK-REF674 INFO-REF675)))) - -(CFFI:DEFCFUN ("cgeqr2_" %%CGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF586 ':INT32) (N-REF587 ':INT32) + (LDA-REF589 ':INT32) (TSIZE-REF591 ':INT32) + (LWORK-REF593 ':INT32) (INFO-REF594 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF586 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF587 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF589 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF591 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF593 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF594 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF588 A) (T-REF590 T) + (WORK-REF592 WORK)) + (%%CGEQR M-REF586 N-REF587 A-REF588 LDA-REF589 T-REF590 TSIZE-REF591 + WORK-REF592 LWORK-REF593 INFO-REF594)))) + +(CFFI:DEFCFUN ("cgeqr2_" %%CGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3090,18 +3085,19 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF676 ':INT32) (N-REF677 ':INT32) - (LDA-REF679 ':INT32) (INFO-REF682 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF676 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF677 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF679 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF682 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF678 A) (TAU-REF680 TAU) - (WORK-REF681 WORK)) - (%%CGEQR2 M-REF676 N-REF677 A-REF678 LDA-REF679 TAU-REF680 WORK-REF681 - INFO-REF682)))) - -(CFFI:DEFCFUN ("cgeqr2p_" %%CGEQR2P :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF595 ':INT32) (N-REF596 ':INT32) + (LDA-REF598 ':INT32) (INFO-REF601 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF595 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF596 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF598 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF601 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF597 A) (TAU-REF599 TAU) + (WORK-REF600 WORK)) + (%%CGEQR2 M-REF595 N-REF596 A-REF597 LDA-REF598 TAU-REF599 WORK-REF600 + INFO-REF601)))) + +(CFFI:DEFCFUN ("cgeqr2p_" %%CGEQR2P :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3132,18 +3128,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF683 ':INT32) (N-REF684 ':INT32) - (LDA-REF686 ':INT32) (INFO-REF689 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF683 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF684 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF686 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF689 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF685 A) (TAU-REF687 TAU) - (WORK-REF688 WORK)) - (%%CGEQR2P M-REF683 N-REF684 A-REF685 LDA-REF686 TAU-REF687 WORK-REF688 - INFO-REF689)))) - -(CFFI:DEFCFUN ("cgeqrf_" %%CGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF602 ':INT32) (N-REF603 ':INT32) + (LDA-REF605 ':INT32) (INFO-REF608 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF602 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF603 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF605 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF608 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF604 A) (TAU-REF606 TAU) + (WORK-REF607 WORK)) + (%%CGEQR2P M-REF602 N-REF603 A-REF604 LDA-REF605 TAU-REF606 WORK-REF607 + INFO-REF608)))) + +(CFFI:DEFCFUN ("cgeqrf_" %%CGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3176,20 +3172,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF690 ':INT32) (N-REF691 ':INT32) - (LDA-REF693 ':INT32) (LWORK-REF696 ':INT32) - (INFO-REF697 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF690 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF691 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF693 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF696 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF697 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF692 A) (TAU-REF694 TAU) - (WORK-REF695 WORK)) - (%%CGEQRF M-REF690 N-REF691 A-REF692 LDA-REF693 TAU-REF694 WORK-REF695 - LWORK-REF696 INFO-REF697)))) - -(CFFI:DEFCFUN ("cgeqrfp_" %%CGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF609 ':INT32) (N-REF610 ':INT32) + (LDA-REF612 ':INT32) (LWORK-REF615 ':INT32) + (INFO-REF616 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF609 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF610 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF612 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF615 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF616 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF611 A) (TAU-REF613 TAU) + (WORK-REF614 WORK)) + (%%CGEQRF M-REF609 N-REF610 A-REF611 LDA-REF612 TAU-REF613 WORK-REF614 + LWORK-REF615 INFO-REF616)))) + +(CFFI:DEFCFUN ("cgeqrfp_" %%CGEQRFP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3222,20 +3219,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF698 ':INT32) (N-REF699 ':INT32) - (LDA-REF701 ':INT32) (LWORK-REF704 ':INT32) - (INFO-REF705 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF698 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF699 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF701 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF704 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF705 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF700 A) (TAU-REF702 TAU) - (WORK-REF703 WORK)) - (%%CGEQRFP M-REF698 N-REF699 A-REF700 LDA-REF701 TAU-REF702 WORK-REF703 - LWORK-REF704 INFO-REF705)))) - -(CFFI:DEFCFUN ("cgeqrt_" %%CGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF617 ':INT32) (N-REF618 ':INT32) + (LDA-REF620 ':INT32) (LWORK-REF623 ':INT32) + (INFO-REF624 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF617 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF618 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF620 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF623 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF624 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF619 A) (TAU-REF621 TAU) + (WORK-REF622 WORK)) + (%%CGEQRFP M-REF617 N-REF618 A-REF619 LDA-REF620 TAU-REF621 WORK-REF622 + LWORK-REF623 INFO-REF624)))) + +(CFFI:DEFCFUN ("cgeqrt_" %%CGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3270,21 +3267,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF706 ':INT32) (N-REF707 ':INT32) - (NB-REF708 ':INT32) (LDA-REF710 ':INT32) - (LDT-REF712 ':INT32) (INFO-REF714 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF706 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF707 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF708 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF710 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF712 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF714 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF709 A) (T-REF711 T) - (WORK-REF713 WORK)) - (%%CGEQRT M-REF706 N-REF707 NB-REF708 A-REF709 LDA-REF710 T-REF711 - LDT-REF712 WORK-REF713 INFO-REF714)))) - -(CFFI:DEFCFUN ("cgeqrt2_" %%CGEQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF625 ':INT32) (N-REF626 ':INT32) + (NB-REF627 ':INT32) (LDA-REF629 ':INT32) + (LDT-REF631 ':INT32) (INFO-REF633 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF625 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF626 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF627 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF629 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF631 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF633 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF628 A) (T-REF630 T) + (WORK-REF632 WORK)) + (%%CGEQRT M-REF625 N-REF626 NB-REF627 A-REF628 LDA-REF629 T-REF630 + LDT-REF631 WORK-REF632 INFO-REF633)))) + +(CFFI:DEFCFUN ("cgeqrt2_" %%CGEQRT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3311,19 +3309,20 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF715 ':INT32) (N-REF716 ':INT32) - (LDA-REF718 ':INT32) (LDT-REF720 ':INT32) - (INFO-REF721 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF715 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF716 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF718 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF720 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF721 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF717 A) (T-REF719 T)) - (%%CGEQRT2 M-REF715 N-REF716 A-REF717 LDA-REF718 T-REF719 LDT-REF720 - INFO-REF721)))) - -(CFFI:DEFCFUN ("cgeqrt3_" %%CGEQRT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF634 ':INT32) (N-REF635 ':INT32) + (LDA-REF637 ':INT32) (LDT-REF639 ':INT32) + (INFO-REF640 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF634 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF635 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF637 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF639 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF640 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF636 A) (T-REF638 T)) + (%%CGEQRT2 M-REF634 N-REF635 A-REF636 LDA-REF637 T-REF638 LDT-REF639 + INFO-REF640)))) + +(CFFI:DEFCFUN ("cgeqrt3_" %%CGEQRT3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3350,19 +3349,19 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF722 ':INT32) (N-REF723 ':INT32) - (LDA-REF725 ':INT32) (LDT-REF727 ':INT32) - (INFO-REF728 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF722 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF723 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF725 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF727 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF728 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF724 A) (T-REF726 T)) - (%%CGEQRT3 M-REF722 N-REF723 A-REF724 LDA-REF725 T-REF726 LDT-REF727 - INFO-REF728)))) - -(CFFI:DEFCFUN ("cgerfs_" %%CGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF641 ':INT32) (N-REF642 ':INT32) + (LDA-REF644 ':INT32) (LDT-REF646 ':INT32) + (INFO-REF647 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF641 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF642 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF644 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF646 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF647 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF643 A) (T-REF645 T)) + (%%CGEQRT3 M-REF641 N-REF642 A-REF643 LDA-REF644 T-REF645 LDT-REF646 + INFO-REF647)))) + +(CFFI:DEFCFUN ("cgerfs_" %%CGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -3432,28 +3431,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF730 ':INT32) (NRHS-REF731 ':INT32) - (LDA-REF733 ':INT32) (LDAF-REF735 ':INT32) - (LDB-REF738 ':INT32) (LDX-REF740 ':INT32) - (INFO-REF745 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF730 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF731 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF733 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF735 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF738 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF740 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF745 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF732 A) (AF-REF734 AF) - (IPIV-REF736 IPIV) (B-REF737 B) - (X-REF739 X) (FERR-REF741 FERR) - (BERR-REF742 BERR) - (WORK-REF743 WORK) - (RWORK-REF744 RWORK)) - (%%CGERFS TRANS N-REF730 NRHS-REF731 A-REF732 LDA-REF733 AF-REF734 - LDAF-REF735 IPIV-REF736 B-REF737 LDB-REF738 X-REF739 LDX-REF740 - FERR-REF741 BERR-REF742 WORK-REF743 RWORK-REF744 INFO-REF745)))) - -(CFFI:DEFCFUN ("cgerfsx_" %%CGERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF649 ':INT32) (NRHS-REF650 ':INT32) + (LDA-REF652 ':INT32) (LDAF-REF654 ':INT32) + (LDB-REF657 ':INT32) (LDX-REF659 ':INT32) + (INFO-REF664 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF649 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF650 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF652 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF654 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF657 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF659 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF664 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF651 A) (AF-REF653 AF) + (IPIV-REF655 IPIV) (B-REF656 B) + (X-REF658 X) (FERR-REF660 FERR) + (BERR-REF661 BERR) + (WORK-REF662 WORK) + (RWORK-REF663 RWORK)) + (%%CGERFS TRANS N-REF649 NRHS-REF650 A-REF651 LDA-REF652 AF-REF653 + LDAF-REF654 IPIV-REF655 B-REF656 LDB-REF657 X-REF658 LDX-REF659 + FERR-REF660 BERR-REF661 WORK-REF662 RWORK-REF663 INFO-REF664)))) + +(CFFI:DEFCFUN ("cgerfsx_" %%CGERFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (EQUED :STRING) @@ -3547,40 +3547,40 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF748 ':INT32) (NRHS-REF749 ':INT32) - (LDA-REF751 ':INT32) (LDAF-REF753 ':INT32) - (LDB-REF758 ':INT32) (LDX-REF760 ':INT32) - (RCOND-REF761 ':FLOAT) - (N_ERR_BNDS-REF763 ':INT32) - (NPARAMS-REF766 ':INT32) (INFO-REF770 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF748 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF749 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF751 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF753 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF758 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF760 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF761 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF763 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF766 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF770 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF750 A) (AF-REF752 AF) - (IPIV-REF754 IPIV) (R-REF755 R) - (C-REF756 C) (B-REF757 B) - (X-REF759 X) (BERR-REF762 BERR) - (ERR_BNDS_NORM-REF764 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF667 ':INT32) (NRHS-REF668 ':INT32) + (LDA-REF670 ':INT32) (LDAF-REF672 ':INT32) + (LDB-REF677 ':INT32) (LDX-REF679 ':INT32) + (RCOND-REF680 ':FLOAT) + (N_ERR_BNDS-REF682 ':INT32) + (NPARAMS-REF685 ':INT32) (INFO-REF689 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF667 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF668 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF670 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF672 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF677 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF679 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF680 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF682 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF685 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF689 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF669 A) (AF-REF671 AF) + (IPIV-REF673 IPIV) (R-REF674 R) + (C-REF675 C) (B-REF676 B) + (X-REF678 X) (BERR-REF681 BERR) + (ERR_BNDS_NORM-REF683 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF765 + (ERR_BNDS_COMP-REF684 ERR_BNDS_COMP) - (PARAMS-REF767 PARAMS) - (WORK-REF768 WORK) - (RWORK-REF769 RWORK)) - (%%CGERFSX TRANS EQUED N-REF748 NRHS-REF749 A-REF750 LDA-REF751 AF-REF752 - LDAF-REF753 IPIV-REF754 R-REF755 C-REF756 B-REF757 LDB-REF758 - X-REF759 LDX-REF760 RCOND-REF761 BERR-REF762 N_ERR_BNDS-REF763 - ERR_BNDS_NORM-REF764 ERR_BNDS_COMP-REF765 NPARAMS-REF766 - PARAMS-REF767 WORK-REF768 RWORK-REF769 INFO-REF770)))) - -(CFFI:DEFCFUN ("cgerq2_" %%CGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF686 PARAMS) + (WORK-REF687 WORK) + (RWORK-REF688 RWORK)) + (%%CGERFSX TRANS EQUED N-REF667 NRHS-REF668 A-REF669 LDA-REF670 AF-REF671 + LDAF-REF672 IPIV-REF673 R-REF674 C-REF675 B-REF676 LDB-REF677 X-REF678 + LDX-REF679 RCOND-REF680 BERR-REF681 N_ERR_BNDS-REF682 + ERR_BNDS_NORM-REF683 ERR_BNDS_COMP-REF684 NPARAMS-REF685 PARAMS-REF686 + WORK-REF687 RWORK-REF688 INFO-REF689)))) + +(CFFI:DEFCFUN ("cgerq2_" %%CGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3611,18 +3611,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF771 ':INT32) (N-REF772 ':INT32) - (LDA-REF774 ':INT32) (INFO-REF777 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF771 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF772 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF774 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF777 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF773 A) (TAU-REF775 TAU) - (WORK-REF776 WORK)) - (%%CGERQ2 M-REF771 N-REF772 A-REF773 LDA-REF774 TAU-REF775 WORK-REF776 - INFO-REF777)))) - -(CFFI:DEFCFUN ("cgerqf_" %%CGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF690 ':INT32) (N-REF691 ':INT32) + (LDA-REF693 ':INT32) (INFO-REF696 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF690 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF691 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF693 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF696 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF692 A) (TAU-REF694 TAU) + (WORK-REF695 WORK)) + (%%CGERQ2 M-REF690 N-REF691 A-REF692 LDA-REF693 TAU-REF694 WORK-REF695 + INFO-REF696)))) + +(CFFI:DEFCFUN ("cgerqf_" %%CGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3655,20 +3655,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF778 ':INT32) (N-REF779 ':INT32) - (LDA-REF781 ':INT32) (LWORK-REF784 ':INT32) - (INFO-REF785 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF778 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF779 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF781 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF784 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF785 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF780 A) (TAU-REF782 TAU) - (WORK-REF783 WORK)) - (%%CGERQF M-REF778 N-REF779 A-REF780 LDA-REF781 TAU-REF782 WORK-REF783 - LWORK-REF784 INFO-REF785)))) - -(CFFI:DEFCFUN ("cgesc2_" %%CGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF697 ':INT32) (N-REF698 ':INT32) + (LDA-REF700 ':INT32) (LWORK-REF703 ':INT32) + (INFO-REF704 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF697 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF698 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF700 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF703 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF704 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF699 A) (TAU-REF701 TAU) + (WORK-REF702 WORK)) + (%%CGERQF M-REF697 N-REF698 A-REF699 LDA-REF700 TAU-REF701 WORK-REF702 + LWORK-REF703 INFO-REF704)))) + +(CFFI:DEFCFUN ("cgesc2_" %%CGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3701,18 +3701,18 @@ (COMMON-LISP:*)) JPIV) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF786 ':INT32) (LDA-REF788 ':INT32) - (SCALE-REF792 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF786 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF788 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF792 :FLOAT) SCALE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF787 A) (RHS-REF789 RHS) - (IPIV-REF790 IPIV) - (JPIV-REF791 JPIV)) - (%%CGESC2 N-REF786 A-REF787 LDA-REF788 RHS-REF789 IPIV-REF790 JPIV-REF791 - SCALE-REF792)))) - -(CFFI:DEFCFUN ("cgesdd_" %%CGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF705 ':INT32) (LDA-REF707 ':INT32) + (SCALE-REF711 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF705 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF707 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF711 :FLOAT) SCALE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF706 A) (RHS-REF708 RHS) + (IPIV-REF709 IPIV) + (JPIV-REF710 JPIV)) + (%%CGESC2 N-REF705 A-REF706 LDA-REF707 RHS-REF708 IPIV-REF709 JPIV-REF710 + SCALE-REF711)))) + +(CFFI:DEFCFUN ("cgesdd_" %%CGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (M :POINTER) @@ -3770,27 +3770,27 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF794 ':INT32) (N-REF795 ':INT32) - (LDA-REF797 ':INT32) (LDU-REF800 ':INT32) - (LDVT-REF802 ':INT32) (LWORK-REF804 ':INT32) - (INFO-REF807 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF794 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF795 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF797 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF800 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF802 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF804 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF807 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF796 A) (S-REF798 S) - (U-REF799 U) (VT-REF801 VT) - (WORK-REF803 WORK) - (RWORK-REF805 RWORK) - (IWORK-REF806 IWORK)) - (%%CGESDD JOBZ M-REF794 N-REF795 A-REF796 LDA-REF797 S-REF798 U-REF799 - LDU-REF800 VT-REF801 LDVT-REF802 WORK-REF803 LWORK-REF804 - RWORK-REF805 IWORK-REF806 INFO-REF807)))) - -(CFFI:DEFCFUN ("cgesv_" %%CGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF713 ':INT32) (N-REF714 ':INT32) + (LDA-REF716 ':INT32) (LDU-REF719 ':INT32) + (LDVT-REF721 ':INT32) (LWORK-REF723 ':INT32) + (INFO-REF726 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF713 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF714 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF716 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF719 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF721 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF723 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF726 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF715 A) (S-REF717 S) + (U-REF718 U) (VT-REF720 VT) + (WORK-REF722 WORK) + (RWORK-REF724 RWORK) + (IWORK-REF725 IWORK)) + (%%CGESDD JOBZ M-REF713 N-REF714 A-REF715 LDA-REF716 S-REF717 U-REF718 + LDU-REF719 VT-REF720 LDVT-REF721 WORK-REF722 LWORK-REF723 RWORK-REF724 + IWORK-REF725 INFO-REF726)))) + +(CFFI:DEFCFUN ("cgesv_" %%CGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -3822,20 +3822,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF808 ':INT32) (NRHS-REF809 ':INT32) - (LDA-REF811 ':INT32) (LDB-REF814 ':INT32) - (INFO-REF815 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF808 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF809 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF811 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF814 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF815 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF810 A) (IPIV-REF812 IPIV) - (B-REF813 B)) - (%%CGESV N-REF808 NRHS-REF809 A-REF810 LDA-REF811 IPIV-REF812 B-REF813 - LDB-REF814 INFO-REF815)))) - -(CFFI:DEFCFUN ("cgesvd_" %%CGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF727 ':INT32) (NRHS-REF728 ':INT32) + (LDA-REF730 ':INT32) (LDB-REF733 ':INT32) + (INFO-REF734 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF727 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF728 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF730 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF733 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF734 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF729 A) (IPIV-REF731 IPIV) + (B-REF732 B)) + (%%CGESV N-REF727 NRHS-REF728 A-REF729 LDA-REF730 IPIV-REF731 B-REF732 + LDB-REF733 INFO-REF734)))) + +(CFFI:DEFCFUN ("cgesvd_" %%CGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBVT :STRING) @@ -3890,26 +3890,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF818 ':INT32) (N-REF819 ':INT32) - (LDA-REF821 ':INT32) (LDU-REF824 ':INT32) - (LDVT-REF826 ':INT32) (LWORK-REF828 ':INT32) - (INFO-REF830 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF818 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF819 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF821 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF824 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF826 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF828 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF830 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF820 A) (S-REF822 S) - (U-REF823 U) (VT-REF825 VT) - (WORK-REF827 WORK) - (RWORK-REF829 RWORK)) - (%%CGESVD JOBU JOBVT M-REF818 N-REF819 A-REF820 LDA-REF821 S-REF822 - U-REF823 LDU-REF824 VT-REF825 LDVT-REF826 WORK-REF827 - LWORK-REF828 RWORK-REF829 INFO-REF830)))) - -(CFFI:DEFCFUN ("cgesvdq_" %%CGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF737 ':INT32) (N-REF738 ':INT32) + (LDA-REF740 ':INT32) (LDU-REF743 ':INT32) + (LDVT-REF745 ':INT32) (LWORK-REF747 ':INT32) + (INFO-REF749 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF737 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF738 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF740 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF743 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF745 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF747 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF749 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF739 A) (S-REF741 S) + (U-REF742 U) (VT-REF744 VT) + (WORK-REF746 WORK) + (RWORK-REF748 RWORK)) + (%%CGESVD JOBU JOBVT M-REF737 N-REF738 A-REF739 LDA-REF740 S-REF741 + U-REF742 LDU-REF743 VT-REF744 LDVT-REF745 WORK-REF746 LWORK-REF747 + RWORK-REF748 INFO-REF749)))) + +(CFFI:DEFCFUN ("cgesvdq_" %%CGESVDQ :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBP :STRING) @@ -3982,32 +3983,33 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF836 ':INT32) (N-REF837 ':INT32) - (LDA-REF839 ':INT32) (LDU-REF842 ':INT32) - (LDV-REF844 ':INT32) (NUMRANK-REF845 ':INT32) - (LIWORK-REF847 ':INT32) (LCWORK-REF849 ':INT32) - (LRWORK-REF851 ':INT32) (INFO-REF852 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF836 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF837 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF839 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF842 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF844 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF845 :INT32) NUMRANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF847 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF849 :INT32) LCWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF851 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF852 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF838 A) (S-REF840 S) - (U-REF841 U) (V-REF843 V) - (IWORK-REF846 IWORK) - (CWORK-REF848 CWORK) - (RWORK-REF850 RWORK)) - (%%CGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF836 N-REF837 A-REF838 LDA-REF839 - S-REF840 U-REF841 LDU-REF842 V-REF843 LDV-REF844 - NUMRANK-REF845 IWORK-REF846 LIWORK-REF847 CWORK-REF848 - LCWORK-REF849 RWORK-REF850 LRWORK-REF851 INFO-REF852)))) - -(CFFI:DEFCFUN ("cgesvdx_" %%CGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF755 ':INT32) (N-REF756 ':INT32) + (LDA-REF758 ':INT32) (LDU-REF761 ':INT32) + (LDV-REF763 ':INT32) (NUMRANK-REF764 ':INT32) + (LIWORK-REF766 ':INT32) (LCWORK-REF768 ':INT32) + (LRWORK-REF770 ':INT32) (INFO-REF771 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF755 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF756 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF758 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF761 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF763 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF764 :INT32) NUMRANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF766 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF768 :INT32) LCWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF770 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF771 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF757 A) (S-REF759 S) + (U-REF760 U) (V-REF762 V) + (IWORK-REF765 IWORK) + (CWORK-REF767 CWORK) + (RWORK-REF769 RWORK)) + (%%CGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF755 N-REF756 A-REF757 LDA-REF758 + S-REF759 U-REF760 LDU-REF761 V-REF762 LDV-REF763 NUMRANK-REF764 + IWORK-REF765 LIWORK-REF766 CWORK-REF767 LCWORK-REF768 RWORK-REF769 + LRWORK-REF770 INFO-REF771)))) + +(CFFI:DEFCFUN ("cgesvdx_" %%CGESVDX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBVT :STRING) @@ -4080,35 +4082,35 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF856 ':INT32) (N-REF857 ':INT32) - (LDA-REF859 ':INT32) (VL-REF860 ':FLOAT) - (VU-REF861 ':FLOAT) (IL-REF862 ':INT32) - (IU-REF863 ':INT32) (NS-REF864 ':INT32) - (LDU-REF867 ':INT32) (LDVT-REF869 ':INT32) - (LWORK-REF871 ':INT32) (INFO-REF874 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF856 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF857 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF859 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF860 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF861 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF862 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF863 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF864 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF867 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF869 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF871 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF874 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF858 A) (S-REF865 S) - (U-REF866 U) (VT-REF868 VT) - (WORK-REF870 WORK) - (RWORK-REF872 RWORK) - (IWORK-REF873 IWORK)) - (%%CGESVDX JOBU JOBVT RANGE M-REF856 N-REF857 A-REF858 LDA-REF859 - VL-REF860 VU-REF861 IL-REF862 IU-REF863 NS-REF864 S-REF865 - U-REF866 LDU-REF867 VT-REF868 LDVT-REF869 WORK-REF870 - LWORK-REF871 RWORK-REF872 IWORK-REF873 INFO-REF874)))) - -(CFFI:DEFCFUN ("cgesvj_" %%CGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF775 ':INT32) (N-REF776 ':INT32) + (LDA-REF778 ':INT32) (VL-REF779 ':FLOAT) + (VU-REF780 ':FLOAT) (IL-REF781 ':INT32) + (IU-REF782 ':INT32) (NS-REF783 ':INT32) + (LDU-REF786 ':INT32) (LDVT-REF788 ':INT32) + (LWORK-REF790 ':INT32) (INFO-REF793 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF775 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF776 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF778 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF779 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF780 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF781 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF782 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF783 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF786 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF788 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF790 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF793 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF777 A) (S-REF784 S) + (U-REF785 U) (VT-REF787 VT) + (WORK-REF789 WORK) + (RWORK-REF791 RWORK) + (IWORK-REF792 IWORK)) + (%%CGESVDX JOBU JOBVT RANGE M-REF775 N-REF776 A-REF777 LDA-REF778 + VL-REF779 VU-REF780 IL-REF781 IU-REF782 NS-REF783 S-REF784 U-REF785 + LDU-REF786 VT-REF787 LDVT-REF788 WORK-REF789 LWORK-REF790 RWORK-REF791 + IWORK-REF792 INFO-REF793)))) + +(CFFI:DEFCFUN ("cgesvj_" %%CGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBU :STRING) @@ -4163,26 +4165,26 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF878 ':INT32) (N-REF879 ':INT32) - (LDA-REF881 ':INT32) (MV-REF883 ':INT32) - (LDV-REF885 ':INT32) (LWORK-REF887 ':INT32) - (LRWORK-REF889 ':INT32) (INFO-REF890 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF878 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF879 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF881 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF883 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF885 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF887 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF889 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF890 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF880 A) (SVA-REF882 SVA) - (V-REF884 V) (CWORK-REF886 CWORK) - (RWORK-REF888 RWORK)) - (%%CGESVJ JOBA JOBU JOBV M-REF878 N-REF879 A-REF880 LDA-REF881 SVA-REF882 - MV-REF883 V-REF884 LDV-REF885 CWORK-REF886 LWORK-REF887 - RWORK-REF888 LRWORK-REF889 INFO-REF890)))) - -(CFFI:DEFCFUN ("cgesvx_" %%CGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF797 ':INT32) (N-REF798 ':INT32) + (LDA-REF800 ':INT32) (MV-REF802 ':INT32) + (LDV-REF804 ':INT32) (LWORK-REF806 ':INT32) + (LRWORK-REF808 ':INT32) (INFO-REF809 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF797 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF798 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF800 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF802 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF804 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF806 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF808 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF809 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF799 A) (SVA-REF801 SVA) + (V-REF803 V) (CWORK-REF805 CWORK) + (RWORK-REF807 RWORK)) + (%%CGESVJ JOBA JOBU JOBV M-REF797 N-REF798 A-REF799 LDA-REF800 SVA-REF801 + MV-REF802 V-REF803 LDV-REF804 CWORK-REF805 LWORK-REF806 RWORK-REF807 + LRWORK-REF808 INFO-REF809)))) + +(CFFI:DEFCFUN ("cgesvx_" %%CGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -4264,31 +4266,32 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF893 ':INT32) (NRHS-REF894 ':INT32) - (LDA-REF896 ':INT32) (LDAF-REF898 ':INT32) - (LDB-REF904 ':INT32) (LDX-REF906 ':INT32) - (RCOND-REF907 ':FLOAT) (INFO-REF912 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF893 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF894 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF896 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF898 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF904 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF906 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF907 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF912 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF895 A) (AF-REF897 AF) - (IPIV-REF899 IPIV) (R-REF901 R) - (C-REF902 C) (B-REF903 B) - (X-REF905 X) (FERR-REF908 FERR) - (BERR-REF909 BERR) - (WORK-REF910 WORK) - (RWORK-REF911 RWORK)) - (%%CGESVX FACT TRANS N-REF893 NRHS-REF894 A-REF895 LDA-REF896 AF-REF897 - LDAF-REF898 IPIV-REF899 EQUED R-REF901 C-REF902 B-REF903 - LDB-REF904 X-REF905 LDX-REF906 RCOND-REF907 FERR-REF908 - BERR-REF909 WORK-REF910 RWORK-REF911 INFO-REF912)))) - -(CFFI:DEFCFUN ("cgesvxx_" %%CGESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF812 ':INT32) (NRHS-REF813 ':INT32) + (LDA-REF815 ':INT32) (LDAF-REF817 ':INT32) + (LDB-REF823 ':INT32) (LDX-REF825 ':INT32) + (RCOND-REF826 ':FLOAT) (INFO-REF831 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF812 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF813 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF815 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF817 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF823 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF825 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF826 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF831 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF814 A) (AF-REF816 AF) + (IPIV-REF818 IPIV) (R-REF820 R) + (C-REF821 C) (B-REF822 B) + (X-REF824 X) (FERR-REF827 FERR) + (BERR-REF828 BERR) + (WORK-REF829 WORK) + (RWORK-REF830 RWORK)) + (%%CGESVX FACT TRANS N-REF812 NRHS-REF813 A-REF814 LDA-REF815 AF-REF816 + LDAF-REF817 IPIV-REF818 EQUED R-REF820 C-REF821 B-REF822 LDB-REF823 + X-REF824 LDX-REF825 RCOND-REF826 FERR-REF827 BERR-REF828 WORK-REF829 + RWORK-REF830 INFO-REF831)))) + +(CFFI:DEFCFUN ("cgesvxx_" %%CGESVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -4386,42 +4389,41 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF915 ':INT32) (NRHS-REF916 ':INT32) - (LDA-REF918 ':INT32) (LDAF-REF920 ':INT32) - (LDB-REF926 ':INT32) (LDX-REF928 ':INT32) - (RCOND-REF929 ':FLOAT) (RPVGRW-REF930 ':FLOAT) - (N_ERR_BNDS-REF932 ':INT32) - (NPARAMS-REF935 ':INT32) (INFO-REF939 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF915 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF916 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF918 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF920 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF926 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF928 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF929 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF930 :FLOAT) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF932 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF935 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF939 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF917 A) (AF-REF919 AF) - (IPIV-REF921 IPIV) (R-REF923 R) - (C-REF924 C) (B-REF925 B) - (X-REF927 X) (BERR-REF931 BERR) - (ERR_BNDS_NORM-REF933 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF834 ':INT32) (NRHS-REF835 ':INT32) + (LDA-REF837 ':INT32) (LDAF-REF839 ':INT32) + (LDB-REF845 ':INT32) (LDX-REF847 ':INT32) + (RCOND-REF848 ':FLOAT) (RPVGRW-REF849 ':FLOAT) + (N_ERR_BNDS-REF851 ':INT32) + (NPARAMS-REF854 ':INT32) (INFO-REF858 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF834 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF835 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF837 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF839 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF845 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF847 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF848 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF849 :FLOAT) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF851 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF854 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF858 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF836 A) (AF-REF838 AF) + (IPIV-REF840 IPIV) (R-REF842 R) + (C-REF843 C) (B-REF844 B) + (X-REF846 X) (BERR-REF850 BERR) + (ERR_BNDS_NORM-REF852 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF934 + (ERR_BNDS_COMP-REF853 ERR_BNDS_COMP) - (PARAMS-REF936 PARAMS) - (WORK-REF937 WORK) - (RWORK-REF938 RWORK)) - (%%CGESVXX FACT TRANS N-REF915 NRHS-REF916 A-REF917 LDA-REF918 AF-REF919 - LDAF-REF920 IPIV-REF921 EQUED R-REF923 C-REF924 B-REF925 - LDB-REF926 X-REF927 LDX-REF928 RCOND-REF929 RPVGRW-REF930 - BERR-REF931 N_ERR_BNDS-REF932 ERR_BNDS_NORM-REF933 - ERR_BNDS_COMP-REF934 NPARAMS-REF935 PARAMS-REF936 WORK-REF937 - RWORK-REF938 INFO-REF939)))) - -(CFFI:DEFCFUN ("cgetc2_" %%CGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF855 PARAMS) + (WORK-REF856 WORK) + (RWORK-REF857 RWORK)) + (%%CGESVXX FACT TRANS N-REF834 NRHS-REF835 A-REF836 LDA-REF837 AF-REF838 + LDAF-REF839 IPIV-REF840 EQUED R-REF842 C-REF843 B-REF844 LDB-REF845 + X-REF846 LDX-REF847 RCOND-REF848 RPVGRW-REF849 BERR-REF850 + N_ERR_BNDS-REF851 ERR_BNDS_NORM-REF852 ERR_BNDS_COMP-REF853 + NPARAMS-REF854 PARAMS-REF855 WORK-REF856 RWORK-REF857 INFO-REF858)))) + +(CFFI:DEFCFUN ("cgetc2_" %%CGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4448,17 +4450,17 @@ (COMMON-LISP:*)) JPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF940 ':INT32) (LDA-REF942 ':INT32) - (INFO-REF945 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF940 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF942 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF945 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF941 A) (IPIV-REF943 IPIV) - (JPIV-REF944 JPIV)) - (%%CGETC2 N-REF940 A-REF941 LDA-REF942 IPIV-REF943 JPIV-REF944 - INFO-REF945)))) - -(CFFI:DEFCFUN ("cgetf2_" %%CGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF859 ':INT32) (LDA-REF861 ':INT32) + (INFO-REF864 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF859 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF861 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF864 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF860 A) (IPIV-REF862 IPIV) + (JPIV-REF863 JPIV)) + (%%CGETC2 N-REF859 A-REF860 LDA-REF861 IPIV-REF862 JPIV-REF863 + INFO-REF864)))) + +(CFFI:DEFCFUN ("cgetf2_" %%CGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4482,17 +4484,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF946 ':INT32) (N-REF947 ':INT32) - (LDA-REF949 ':INT32) (INFO-REF951 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF946 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF947 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF949 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF951 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF948 A) (IPIV-REF950 IPIV)) - (%%CGETF2 M-REF946 N-REF947 A-REF948 LDA-REF949 IPIV-REF950 - INFO-REF951)))) - -(CFFI:DEFCFUN ("cgetrf_" %%CGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF865 ':INT32) (N-REF866 ':INT32) + (LDA-REF868 ':INT32) (INFO-REF870 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF865 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF866 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF868 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF870 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF867 A) (IPIV-REF869 IPIV)) + (%%CGETF2 M-REF865 N-REF866 A-REF867 LDA-REF868 IPIV-REF869 + INFO-REF870)))) + +(CFFI:DEFCFUN ("cgetrf_" %%CGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4516,17 +4518,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF952 ':INT32) (N-REF953 ':INT32) - (LDA-REF955 ':INT32) (INFO-REF957 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF952 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF953 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF955 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF957 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF954 A) (IPIV-REF956 IPIV)) - (%%CGETRF M-REF952 N-REF953 A-REF954 LDA-REF955 IPIV-REF956 - INFO-REF957)))) - -(CFFI:DEFCFUN ("cgetrf2_" %%CGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF871 ':INT32) (N-REF872 ':INT32) + (LDA-REF874 ':INT32) (INFO-REF876 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF871 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF872 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF874 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF876 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF873 A) (IPIV-REF875 IPIV)) + (%%CGETRF M-REF871 N-REF872 A-REF873 LDA-REF874 IPIV-REF875 + INFO-REF876)))) + +(CFFI:DEFCFUN ("cgetrf2_" %%CGETRF2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4550,17 +4553,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF958 ':INT32) (N-REF959 ':INT32) - (LDA-REF961 ':INT32) (INFO-REF963 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF958 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF959 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF961 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF963 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF960 A) (IPIV-REF962 IPIV)) - (%%CGETRF2 M-REF958 N-REF959 A-REF960 LDA-REF961 IPIV-REF962 - INFO-REF963)))) - -(CFFI:DEFCFUN ("cgetri_" %%CGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF877 ':INT32) (N-REF878 ':INT32) + (LDA-REF880 ':INT32) (INFO-REF882 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF877 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF878 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF880 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF882 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF879 A) (IPIV-REF881 IPIV)) + (%%CGETRF2 M-REF877 N-REF878 A-REF879 LDA-REF880 IPIV-REF881 + INFO-REF882)))) + +(CFFI:DEFCFUN ("cgetri_" %%CGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4590,18 +4593,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF964 ':INT32) (LDA-REF966 ':INT32) - (LWORK-REF969 ':INT32) (INFO-REF970 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF964 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF966 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF969 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF970 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF965 A) (IPIV-REF967 IPIV) - (WORK-REF968 WORK)) - (%%CGETRI N-REF964 A-REF965 LDA-REF966 IPIV-REF967 WORK-REF968 - LWORK-REF969 INFO-REF970)))) - -(CFFI:DEFCFUN ("cgetrs_" %%CGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF883 ':INT32) (LDA-REF885 ':INT32) + (LWORK-REF888 ':INT32) (INFO-REF889 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF883 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF885 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF888 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF889 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF884 A) (IPIV-REF886 IPIV) + (WORK-REF887 WORK)) + (%%CGETRI N-REF883 A-REF884 LDA-REF885 IPIV-REF886 WORK-REF887 + LWORK-REF888 INFO-REF889)))) + +(CFFI:DEFCFUN ("cgetrs_" %%CGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -4635,20 +4638,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF972 ':INT32) (NRHS-REF973 ':INT32) - (LDA-REF975 ':INT32) (LDB-REF978 ':INT32) - (INFO-REF979 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF972 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF973 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF975 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF978 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF979 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF974 A) (IPIV-REF976 IPIV) - (B-REF977 B)) - (%%CGETRS TRANS N-REF972 NRHS-REF973 A-REF974 LDA-REF975 IPIV-REF976 - B-REF977 LDB-REF978 INFO-REF979)))) - -(CFFI:DEFCFUN ("cgetsls_" %%CGETSLS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF891 ':INT32) (NRHS-REF892 ':INT32) + (LDA-REF894 ':INT32) (LDB-REF897 ':INT32) + (INFO-REF898 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF891 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF892 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF894 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF897 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF898 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF893 A) (IPIV-REF895 IPIV) + (B-REF896 B)) + (%%CGETRS TRANS N-REF891 NRHS-REF892 A-REF893 LDA-REF894 IPIV-REF895 + B-REF896 LDB-REF897 INFO-REF898)))) + +(CFFI:DEFCFUN ("cgetsls_" %%CGETSLS :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (M :POINTER) @@ -4687,23 +4691,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF981 ':INT32) (N-REF982 ':INT32) - (NRHS-REF983 ':INT32) (LDA-REF985 ':INT32) - (LDB-REF987 ':INT32) (LWORK-REF989 ':INT32) - (INFO-REF990 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF981 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF982 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF983 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF985 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF987 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF989 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF990 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF984 A) (B-REF986 B) - (WORK-REF988 WORK)) - (%%CGETSLS TRANS M-REF981 N-REF982 NRHS-REF983 A-REF984 LDA-REF985 - B-REF986 LDB-REF987 WORK-REF988 LWORK-REF989 INFO-REF990)))) - -(CFFI:DEFCFUN ("cggbak_" %%CGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF900 ':INT32) (N-REF901 ':INT32) + (NRHS-REF902 ':INT32) (LDA-REF904 ':INT32) + (LDB-REF906 ':INT32) (LWORK-REF908 ':INT32) + (INFO-REF909 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF900 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF901 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF902 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF904 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF906 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF908 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF909 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF903 A) (B-REF905 B) + (WORK-REF907 WORK)) + (%%CGETSLS TRANS M-REF900 N-REF901 NRHS-REF902 A-REF903 LDA-REF904 + B-REF905 LDB-REF906 WORK-REF907 LWORK-REF908 INFO-REF909)))) + +(CFFI:DEFCFUN ("cggbak_" %%CGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (SIDE :STRING) @@ -4738,21 +4742,21 @@ V) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF993 ':INT32) (ILO-REF994 ':INT32) - (IHI-REF995 ':INT32) (M-REF998 ':INT32) - (LDV-REF1000 ':INT32) (INFO-REF1001 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF993 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF994 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF995 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF998 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1000 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1001 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF996 LSCALE) - (RSCALE-REF997 RSCALE) (V-REF999 V)) - (%%CGGBAK JOB SIDE N-REF993 ILO-REF994 IHI-REF995 LSCALE-REF996 - RSCALE-REF997 M-REF998 V-REF999 LDV-REF1000 INFO-REF1001)))) - -(CFFI:DEFCFUN ("cggbal_" %%CGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF912 ':INT32) (ILO-REF913 ':INT32) + (IHI-REF914 ':INT32) (M-REF917 ':INT32) + (LDV-REF919 ':INT32) (INFO-REF920 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF912 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF913 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF914 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF917 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF919 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF920 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF915 LSCALE) + (RSCALE-REF916 RSCALE) (V-REF918 V)) + (%%CGGBAK JOB SIDE N-REF912 ILO-REF913 IHI-REF914 LSCALE-REF915 + RSCALE-REF916 M-REF917 V-REF918 LDV-REF919 INFO-REF920)))) + +(CFFI:DEFCFUN ("cggbal_" %%CGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (N :POINTER) @@ -4795,24 +4799,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1003 ':INT32) (LDA-REF1005 ':INT32) - (LDB-REF1007 ':INT32) (ILO-REF1008 ':INT32) - (IHI-REF1009 ':INT32) (INFO-REF1013 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1003 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1005 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1007 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1008 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1009 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1013 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1004 A) (B-REF1006 B) - (LSCALE-REF1010 LSCALE) - (RSCALE-REF1011 RSCALE) - (WORK-REF1012 WORK)) - (%%CGGBAL JOB N-REF1003 A-REF1004 LDA-REF1005 B-REF1006 LDB-REF1007 - ILO-REF1008 IHI-REF1009 LSCALE-REF1010 RSCALE-REF1011 - WORK-REF1012 INFO-REF1013)))) - -(CFFI:DEFCFUN ("cgges_" %%CGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF922 ':INT32) (LDA-REF924 ':INT32) + (LDB-REF926 ':INT32) (ILO-REF927 ':INT32) + (IHI-REF928 ':INT32) (INFO-REF932 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF922 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF924 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF926 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF927 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF928 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF932 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF923 A) (B-REF925 B) + (LSCALE-REF929 LSCALE) + (RSCALE-REF930 RSCALE) + (WORK-REF931 WORK)) + (%%CGGBAL JOB N-REF922 A-REF923 LDA-REF924 B-REF925 LDB-REF926 ILO-REF927 + IHI-REF928 LSCALE-REF929 RSCALE-REF930 WORK-REF931 INFO-REF932)))) + +(CFFI:DEFCFUN ("cgges_" %%CGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -4894,34 +4897,32 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1017 ':INT32) (N-REF1018 ':INT32) - (LDA-REF1020 ':INT32) (LDB-REF1022 ':INT32) - (SDIM-REF1023 ':INT32) (LDVSL-REF1027 ':INT32) - (LDVSR-REF1029 ':INT32) (LWORK-REF1031 ':INT32) - (INFO-REF1034 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1017 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1018 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1020 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1022 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1023 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1027 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1029 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1031 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1034 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1019 A) (B-REF1021 B) - (ALPHA-REF1024 ALPHA) - (BETA-REF1025 BETA) - (VSL-REF1026 VSL) (VSR-REF1028 VSR) - (WORK-REF1030 WORK) - (RWORK-REF1032 RWORK) - (BWORK-REF1033 BWORK)) - (%%CGGES JOBVSL JOBVSR SORT SELCTG-REF1017 N-REF1018 A-REF1019 - LDA-REF1020 B-REF1021 LDB-REF1022 SDIM-REF1023 ALPHA-REF1024 - BETA-REF1025 VSL-REF1026 LDVSL-REF1027 VSR-REF1028 LDVSR-REF1029 - WORK-REF1030 LWORK-REF1031 RWORK-REF1032 BWORK-REF1033 - INFO-REF1034)))) - -(CFFI:DEFCFUN ("cgges3_" %%CGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF936 ':INT32) (N-REF937 ':INT32) + (LDA-REF939 ':INT32) (LDB-REF941 ':INT32) + (SDIM-REF942 ':INT32) (LDVSL-REF946 ':INT32) + (LDVSR-REF948 ':INT32) (LWORK-REF950 ':INT32) + (INFO-REF953 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF936 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF937 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF939 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF941 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF942 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF946 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF948 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF950 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF953 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF938 A) (B-REF940 B) + (ALPHA-REF943 ALPHA) + (BETA-REF944 BETA) (VSL-REF945 VSL) + (VSR-REF947 VSR) (WORK-REF949 WORK) + (RWORK-REF951 RWORK) + (BWORK-REF952 BWORK)) + (%%CGGES JOBVSL JOBVSR SORT SELCTG-REF936 N-REF937 A-REF938 LDA-REF939 + B-REF940 LDB-REF941 SDIM-REF942 ALPHA-REF943 BETA-REF944 VSL-REF945 + LDVSL-REF946 VSR-REF947 LDVSR-REF948 WORK-REF949 LWORK-REF950 + RWORK-REF951 BWORK-REF952 INFO-REF953)))) + +(CFFI:DEFCFUN ("cgges3_" %%CGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -5003,34 +5004,32 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1038 ':INT32) (N-REF1039 ':INT32) - (LDA-REF1041 ':INT32) (LDB-REF1043 ':INT32) - (SDIM-REF1044 ':INT32) (LDVSL-REF1048 ':INT32) - (LDVSR-REF1050 ':INT32) (LWORK-REF1052 ':INT32) - (INFO-REF1055 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1038 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1039 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1041 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1043 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1044 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1048 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1050 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1052 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1055 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1040 A) (B-REF1042 B) - (ALPHA-REF1045 ALPHA) - (BETA-REF1046 BETA) - (VSL-REF1047 VSL) (VSR-REF1049 VSR) - (WORK-REF1051 WORK) - (RWORK-REF1053 RWORK) - (BWORK-REF1054 BWORK)) - (%%CGGES3 JOBVSL JOBVSR SORT SELCTG-REF1038 N-REF1039 A-REF1040 - LDA-REF1041 B-REF1042 LDB-REF1043 SDIM-REF1044 ALPHA-REF1045 - BETA-REF1046 VSL-REF1047 LDVSL-REF1048 VSR-REF1049 - LDVSR-REF1050 WORK-REF1051 LWORK-REF1052 RWORK-REF1053 - BWORK-REF1054 INFO-REF1055)))) - -(CFFI:DEFCFUN ("cggesx_" %%CGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF957 ':INT32) (N-REF958 ':INT32) + (LDA-REF960 ':INT32) (LDB-REF962 ':INT32) + (SDIM-REF963 ':INT32) (LDVSL-REF967 ':INT32) + (LDVSR-REF969 ':INT32) (LWORK-REF971 ':INT32) + (INFO-REF974 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF957 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF958 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF960 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF962 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF963 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF967 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF969 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF971 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF974 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF959 A) (B-REF961 B) + (ALPHA-REF964 ALPHA) + (BETA-REF965 BETA) (VSL-REF966 VSL) + (VSR-REF968 VSR) (WORK-REF970 WORK) + (RWORK-REF972 RWORK) + (BWORK-REF973 BWORK)) + (%%CGGES3 JOBVSL JOBVSR SORT SELCTG-REF957 N-REF958 A-REF959 LDA-REF960 + B-REF961 LDB-REF962 SDIM-REF963 ALPHA-REF964 BETA-REF965 VSL-REF966 + LDVSL-REF967 VSR-REF968 LDVSR-REF969 WORK-REF970 LWORK-REF971 + RWORK-REF972 BWORK-REF973 INFO-REF974)))) + +(CFFI:DEFCFUN ("cggesx_" %%CGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -5130,39 +5129,38 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF1059 ':INT32) (N-REF1061 ':INT32) - (LDA-REF1063 ':INT32) (LDB-REF1065 ':INT32) - (SDIM-REF1066 ':INT32) (LDVSL-REF1070 ':INT32) - (LDVSR-REF1072 ':INT32) (LWORK-REF1076 ':INT32) - (LIWORK-REF1079 ':INT32) (INFO-REF1081 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF1059 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1061 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1063 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1065 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF1066 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF1070 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF1072 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1076 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1079 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1081 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1062 A) (B-REF1064 B) - (ALPHA-REF1067 ALPHA) - (BETA-REF1068 BETA) - (VSL-REF1069 VSL) (VSR-REF1071 VSR) - (RCONDE-REF1073 RCONDE) - (RCONDV-REF1074 RCONDV) - (WORK-REF1075 WORK) - (RWORK-REF1077 RWORK) - (IWORK-REF1078 IWORK) - (BWORK-REF1080 BWORK)) - (%%CGGESX JOBVSL JOBVSR SORT SELCTG-REF1059 SENSE N-REF1061 A-REF1062 - LDA-REF1063 B-REF1064 LDB-REF1065 SDIM-REF1066 ALPHA-REF1067 - BETA-REF1068 VSL-REF1069 LDVSL-REF1070 VSR-REF1071 - LDVSR-REF1072 RCONDE-REF1073 RCONDV-REF1074 WORK-REF1075 - LWORK-REF1076 RWORK-REF1077 IWORK-REF1078 LIWORK-REF1079 - BWORK-REF1080 INFO-REF1081)))) - -(CFFI:DEFCFUN ("cggev_" %%CGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF978 ':INT32) (N-REF980 ':INT32) + (LDA-REF982 ':INT32) (LDB-REF984 ':INT32) + (SDIM-REF985 ':INT32) (LDVSL-REF989 ':INT32) + (LDVSR-REF991 ':INT32) (LWORK-REF995 ':INT32) + (LIWORK-REF998 ':INT32) (INFO-REF1000 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF978 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF980 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF982 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF984 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF985 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF989 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF991 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF995 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF998 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1000 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF981 A) (B-REF983 B) + (ALPHA-REF986 ALPHA) + (BETA-REF987 BETA) (VSL-REF988 VSL) + (VSR-REF990 VSR) + (RCONDE-REF992 RCONDE) + (RCONDV-REF993 RCONDV) + (WORK-REF994 WORK) + (RWORK-REF996 RWORK) + (IWORK-REF997 IWORK) + (BWORK-REF999 BWORK)) + (%%CGGESX JOBVSL JOBVSR SORT SELCTG-REF978 SENSE N-REF980 A-REF981 + LDA-REF982 B-REF983 LDB-REF984 SDIM-REF985 ALPHA-REF986 BETA-REF987 + VSL-REF988 LDVSL-REF989 VSR-REF990 LDVSR-REF991 RCONDE-REF992 + RCONDV-REF993 WORK-REF994 LWORK-REF995 RWORK-REF996 IWORK-REF997 + LIWORK-REF998 BWORK-REF999 INFO-REF1000)))) + +(CFFI:DEFCFUN ("cggev_" %%CGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -5233,28 +5231,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1084 ':INT32) (LDA-REF1086 ':INT32) - (LDB-REF1088 ':INT32) (LDVL-REF1092 ':INT32) - (LDVR-REF1094 ':INT32) (LWORK-REF1096 ':INT32) - (INFO-REF1098 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1084 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1086 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1088 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1092 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1094 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1096 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1098 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1085 A) (B-REF1087 B) - (ALPHA-REF1089 ALPHA) - (BETA-REF1090 BETA) (VL-REF1091 VL) - (VR-REF1093 VR) (WORK-REF1095 WORK) - (RWORK-REF1097 RWORK)) - (%%CGGEV JOBVL JOBVR N-REF1084 A-REF1085 LDA-REF1086 B-REF1087 - LDB-REF1088 ALPHA-REF1089 BETA-REF1090 VL-REF1091 LDVL-REF1092 - VR-REF1093 LDVR-REF1094 WORK-REF1095 LWORK-REF1096 RWORK-REF1097 - INFO-REF1098)))) - -(CFFI:DEFCFUN ("cggev3_" %%CGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1003 ':INT32) (LDA-REF1005 ':INT32) + (LDB-REF1007 ':INT32) (LDVL-REF1011 ':INT32) + (LDVR-REF1013 ':INT32) (LWORK-REF1015 ':INT32) + (INFO-REF1017 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1003 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1005 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1007 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1011 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1013 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1015 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1017 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1004 A) (B-REF1006 B) + (ALPHA-REF1008 ALPHA) + (BETA-REF1009 BETA) (VL-REF1010 VL) + (VR-REF1012 VR) (WORK-REF1014 WORK) + (RWORK-REF1016 RWORK)) + (%%CGGEV JOBVL JOBVR N-REF1003 A-REF1004 LDA-REF1005 B-REF1006 + LDB-REF1007 ALPHA-REF1008 BETA-REF1009 VL-REF1010 LDVL-REF1011 + VR-REF1012 LDVR-REF1013 WORK-REF1014 LWORK-REF1015 RWORK-REF1016 + INFO-REF1017)))) + +(CFFI:DEFCFUN ("cggev3_" %%CGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -5325,28 +5323,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1101 ':INT32) (LDA-REF1103 ':INT32) - (LDB-REF1105 ':INT32) (LDVL-REF1109 ':INT32) - (LDVR-REF1111 ':INT32) (LWORK-REF1113 ':INT32) - (INFO-REF1115 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1101 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1103 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1105 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1109 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1111 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1113 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1115 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1102 A) (B-REF1104 B) - (ALPHA-REF1106 ALPHA) - (BETA-REF1107 BETA) (VL-REF1108 VL) - (VR-REF1110 VR) (WORK-REF1112 WORK) - (RWORK-REF1114 RWORK)) - (%%CGGEV3 JOBVL JOBVR N-REF1101 A-REF1102 LDA-REF1103 B-REF1104 - LDB-REF1105 ALPHA-REF1106 BETA-REF1107 VL-REF1108 LDVL-REF1109 - VR-REF1110 LDVR-REF1111 WORK-REF1112 LWORK-REF1113 - RWORK-REF1114 INFO-REF1115)))) - -(CFFI:DEFCFUN ("cggevx_" %%CGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1020 ':INT32) (LDA-REF1022 ':INT32) + (LDB-REF1024 ':INT32) (LDVL-REF1028 ':INT32) + (LDVR-REF1030 ':INT32) (LWORK-REF1032 ':INT32) + (INFO-REF1034 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1020 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1022 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1024 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1028 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1030 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1032 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1034 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1021 A) (B-REF1023 B) + (ALPHA-REF1025 ALPHA) + (BETA-REF1026 BETA) (VL-REF1027 VL) + (VR-REF1029 VR) (WORK-REF1031 WORK) + (RWORK-REF1033 RWORK)) + (%%CGGEV3 JOBVL JOBVR N-REF1020 A-REF1021 LDA-REF1022 B-REF1023 + LDB-REF1024 ALPHA-REF1025 BETA-REF1026 VL-REF1027 LDVL-REF1028 + VR-REF1029 LDVR-REF1030 WORK-REF1031 LWORK-REF1032 RWORK-REF1033 + INFO-REF1034)))) + +(CFFI:DEFCFUN ("cggevx_" %%CGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (BALANC :STRING) (JOBVL :STRING) @@ -5456,43 +5454,43 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1120 ':INT32) (LDA-REF1122 ':INT32) - (LDB-REF1124 ':INT32) (LDVL-REF1128 ':INT32) - (LDVR-REF1130 ':INT32) (ILO-REF1131 ':INT32) - (IHI-REF1132 ':INT32) (ABNRM-REF1135 ':FLOAT) - (BBNRM-REF1136 ':FLOAT) (LWORK-REF1140 ':INT32) - (INFO-REF1144 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1120 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1122 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1124 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1128 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1130 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1131 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1132 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF1135 :FLOAT) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF1136 :FLOAT) BBNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1140 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1144 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1121 A) (B-REF1123 B) - (ALPHA-REF1125 ALPHA) - (BETA-REF1126 BETA) (VL-REF1127 VL) - (VR-REF1129 VR) - (LSCALE-REF1133 LSCALE) - (RSCALE-REF1134 RSCALE) - (RCONDE-REF1137 RCONDE) - (RCONDV-REF1138 RCONDV) - (WORK-REF1139 WORK) - (RWORK-REF1141 RWORK) - (IWORK-REF1142 IWORK) - (BWORK-REF1143 BWORK)) - (%%CGGEVX BALANC JOBVL JOBVR SENSE N-REF1120 A-REF1121 LDA-REF1122 - B-REF1123 LDB-REF1124 ALPHA-REF1125 BETA-REF1126 VL-REF1127 - LDVL-REF1128 VR-REF1129 LDVR-REF1130 ILO-REF1131 IHI-REF1132 - LSCALE-REF1133 RSCALE-REF1134 ABNRM-REF1135 BBNRM-REF1136 - RCONDE-REF1137 RCONDV-REF1138 WORK-REF1139 LWORK-REF1140 - RWORK-REF1141 IWORK-REF1142 BWORK-REF1143 INFO-REF1144)))) - -(CFFI:DEFCFUN ("cggglm_" %%CGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1039 ':INT32) (LDA-REF1041 ':INT32) + (LDB-REF1043 ':INT32) (LDVL-REF1047 ':INT32) + (LDVR-REF1049 ':INT32) (ILO-REF1050 ':INT32) + (IHI-REF1051 ':INT32) (ABNRM-REF1054 ':FLOAT) + (BBNRM-REF1055 ':FLOAT) (LWORK-REF1059 ':INT32) + (INFO-REF1063 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1039 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1041 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1043 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF1047 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF1049 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1050 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1051 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF1054 :FLOAT) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF1055 :FLOAT) BBNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1059 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1063 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1040 A) (B-REF1042 B) + (ALPHA-REF1044 ALPHA) + (BETA-REF1045 BETA) (VL-REF1046 VL) + (VR-REF1048 VR) + (LSCALE-REF1052 LSCALE) + (RSCALE-REF1053 RSCALE) + (RCONDE-REF1056 RCONDE) + (RCONDV-REF1057 RCONDV) + (WORK-REF1058 WORK) + (RWORK-REF1060 RWORK) + (IWORK-REF1061 IWORK) + (BWORK-REF1062 BWORK)) + (%%CGGEVX BALANC JOBVL JOBVR SENSE N-REF1039 A-REF1040 LDA-REF1041 + B-REF1042 LDB-REF1043 ALPHA-REF1044 BETA-REF1045 VL-REF1046 LDVL-REF1047 + VR-REF1048 LDVR-REF1049 ILO-REF1050 IHI-REF1051 LSCALE-REF1052 + RSCALE-REF1053 ABNRM-REF1054 BBNRM-REF1055 RCONDE-REF1056 RCONDV-REF1057 + WORK-REF1058 LWORK-REF1059 RWORK-REF1060 IWORK-REF1061 BWORK-REF1062 + INFO-REF1063)))) + +(CFFI:DEFCFUN ("cggglm_" %%CGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (M :POINTER) @@ -5547,25 +5545,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1145 ':INT32) (M-REF1146 ':INT32) - (P-REF1147 ':INT32) (LDA-REF1149 ':INT32) - (LDB-REF1151 ':INT32) (LWORK-REF1156 ':INT32) - (INFO-REF1157 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1145 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1146 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1147 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1149 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1151 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1156 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1157 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1148 A) (B-REF1150 B) - (D-REF1152 D) (X-REF1153 X) - (Y-REF1154 Y) (WORK-REF1155 WORK)) - (%%CGGGLM N-REF1145 M-REF1146 P-REF1147 A-REF1148 LDA-REF1149 B-REF1150 - LDB-REF1151 D-REF1152 X-REF1153 Y-REF1154 WORK-REF1155 - LWORK-REF1156 INFO-REF1157)))) - -(CFFI:DEFCFUN ("cgghd3_" %%CGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1064 ':INT32) (M-REF1065 ':INT32) + (P-REF1066 ':INT32) (LDA-REF1068 ':INT32) + (LDB-REF1070 ':INT32) (LWORK-REF1075 ':INT32) + (INFO-REF1076 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1064 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1065 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1066 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1068 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1070 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1075 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1076 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1067 A) (B-REF1069 B) + (D-REF1071 D) (X-REF1072 X) + (Y-REF1073 Y) (WORK-REF1074 WORK)) + (%%CGGGLM N-REF1064 M-REF1065 P-REF1066 A-REF1067 LDA-REF1068 B-REF1069 + LDB-REF1070 D-REF1071 X-REF1072 Y-REF1073 WORK-REF1074 LWORK-REF1075 + INFO-REF1076)))) + +(CFFI:DEFCFUN ("cgghd3_" %%CGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (COMPZ :STRING) @@ -5624,29 +5622,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1160 ':INT32) (ILO-REF1161 ':INT32) - (IHI-REF1162 ':INT32) (LDA-REF1164 ':INT32) - (LDB-REF1166 ':INT32) (LDQ-REF1168 ':INT32) - (LDZ-REF1170 ':INT32) (LWORK-REF1172 ':INT32) - (INFO-REF1173 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1160 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1161 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1162 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1164 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1166 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1168 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1170 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1172 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1173 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1163 A) (B-REF1165 B) - (Q-REF1167 Q) (Z-REF1169 Z) - (WORK-REF1171 WORK)) - (%%CGGHD3 COMPQ COMPZ N-REF1160 ILO-REF1161 IHI-REF1162 A-REF1163 - LDA-REF1164 B-REF1165 LDB-REF1166 Q-REF1167 LDQ-REF1168 - Z-REF1169 LDZ-REF1170 WORK-REF1171 LWORK-REF1172 - INFO-REF1173)))) - -(CFFI:DEFCFUN ("cgghrd_" %%CGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1079 ':INT32) (ILO-REF1080 ':INT32) + (IHI-REF1081 ':INT32) (LDA-REF1083 ':INT32) + (LDB-REF1085 ':INT32) (LDQ-REF1087 ':INT32) + (LDZ-REF1089 ':INT32) (LWORK-REF1091 ':INT32) + (INFO-REF1092 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1079 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1080 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1081 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1083 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1085 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1087 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1089 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1091 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1092 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1082 A) (B-REF1084 B) + (Q-REF1086 Q) (Z-REF1088 Z) + (WORK-REF1090 WORK)) + (%%CGGHD3 COMPQ COMPZ N-REF1079 ILO-REF1080 IHI-REF1081 A-REF1082 + LDA-REF1083 B-REF1084 LDB-REF1085 Q-REF1086 LDQ-REF1087 Z-REF1088 + LDZ-REF1089 WORK-REF1090 LWORK-REF1091 INFO-REF1092)))) + +(CFFI:DEFCFUN ("cgghrd_" %%CGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (COMPZ :STRING) @@ -5695,25 +5692,25 @@ Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1176 ':INT32) (ILO-REF1177 ':INT32) - (IHI-REF1178 ':INT32) (LDA-REF1180 ':INT32) - (LDB-REF1182 ':INT32) (LDQ-REF1184 ':INT32) - (LDZ-REF1186 ':INT32) (INFO-REF1187 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1176 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1177 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1178 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1180 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1182 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1184 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1186 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1187 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1179 A) (B-REF1181 B) - (Q-REF1183 Q) (Z-REF1185 Z)) - (%%CGGHRD COMPQ COMPZ N-REF1176 ILO-REF1177 IHI-REF1178 A-REF1179 - LDA-REF1180 B-REF1181 LDB-REF1182 Q-REF1183 LDQ-REF1184 - Z-REF1185 LDZ-REF1186 INFO-REF1187)))) - -(CFFI:DEFCFUN ("cgglse_" %%CGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1095 ':INT32) (ILO-REF1096 ':INT32) + (IHI-REF1097 ':INT32) (LDA-REF1099 ':INT32) + (LDB-REF1101 ':INT32) (LDQ-REF1103 ':INT32) + (LDZ-REF1105 ':INT32) (INFO-REF1106 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1095 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF1096 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF1097 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1099 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1101 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1103 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1105 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1106 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1098 A) (B-REF1100 B) + (Q-REF1102 Q) (Z-REF1104 Z)) + (%%CGGHRD COMPQ COMPZ N-REF1095 ILO-REF1096 IHI-REF1097 A-REF1098 + LDA-REF1099 B-REF1100 LDB-REF1101 Q-REF1102 LDQ-REF1103 Z-REF1104 + LDZ-REF1105 INFO-REF1106)))) + +(CFFI:DEFCFUN ("cgglse_" %%CGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -5768,25 +5765,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1188 ':INT32) (N-REF1189 ':INT32) - (P-REF1190 ':INT32) (LDA-REF1192 ':INT32) - (LDB-REF1194 ':INT32) (LWORK-REF1199 ':INT32) - (INFO-REF1200 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1188 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1189 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1190 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1192 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1194 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1199 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1200 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1191 A) (B-REF1193 B) - (C-REF1195 C) (D-REF1196 D) - (X-REF1197 X) (WORK-REF1198 WORK)) - (%%CGGLSE M-REF1188 N-REF1189 P-REF1190 A-REF1191 LDA-REF1192 B-REF1193 - LDB-REF1194 C-REF1195 D-REF1196 X-REF1197 WORK-REF1198 - LWORK-REF1199 INFO-REF1200)))) - -(CFFI:DEFCFUN ("cggqrf_" %%CGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1107 ':INT32) (N-REF1108 ':INT32) + (P-REF1109 ':INT32) (LDA-REF1111 ':INT32) + (LDB-REF1113 ':INT32) (LWORK-REF1118 ':INT32) + (INFO-REF1119 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1107 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1108 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1109 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1111 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1113 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1118 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1119 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1110 A) (B-REF1112 B) + (C-REF1114 C) (D-REF1115 D) + (X-REF1116 X) (WORK-REF1117 WORK)) + (%%CGGLSE M-REF1107 N-REF1108 P-REF1109 A-REF1110 LDA-REF1111 B-REF1112 + LDB-REF1113 C-REF1114 D-REF1115 X-REF1116 WORK-REF1117 LWORK-REF1118 + INFO-REF1119)))) + +(CFFI:DEFCFUN ("cggqrf_" %%CGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (M :POINTER) @@ -5835,25 +5832,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1201 ':INT32) (M-REF1202 ':INT32) - (P-REF1203 ':INT32) (LDA-REF1205 ':INT32) - (LDB-REF1208 ':INT32) (LWORK-REF1211 ':INT32) - (INFO-REF1212 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1201 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1202 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1203 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1205 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1208 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1211 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1212 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1204 A) (TAUA-REF1206 TAUA) - (B-REF1207 B) (TAUB-REF1209 TAUB) - (WORK-REF1210 WORK)) - (%%CGGQRF N-REF1201 M-REF1202 P-REF1203 A-REF1204 LDA-REF1205 - TAUA-REF1206 B-REF1207 LDB-REF1208 TAUB-REF1209 WORK-REF1210 - LWORK-REF1211 INFO-REF1212)))) - -(CFFI:DEFCFUN ("cggrqf_" %%CGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1120 ':INT32) (M-REF1121 ':INT32) + (P-REF1122 ':INT32) (LDA-REF1124 ':INT32) + (LDB-REF1127 ':INT32) (LWORK-REF1130 ':INT32) + (INFO-REF1131 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1120 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1121 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1122 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1124 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1127 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1130 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1131 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1123 A) (TAUA-REF1125 TAUA) + (B-REF1126 B) (TAUB-REF1128 TAUB) + (WORK-REF1129 WORK)) + (%%CGGQRF N-REF1120 M-REF1121 P-REF1122 A-REF1123 LDA-REF1124 + TAUA-REF1125 B-REF1126 LDB-REF1127 TAUB-REF1128 WORK-REF1129 + LWORK-REF1130 INFO-REF1131)))) + +(CFFI:DEFCFUN ("cggrqf_" %%CGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -5902,25 +5899,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1213 ':INT32) (P-REF1214 ':INT32) - (N-REF1215 ':INT32) (LDA-REF1217 ':INT32) - (LDB-REF1220 ':INT32) (LWORK-REF1223 ':INT32) - (INFO-REF1224 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1213 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1214 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1215 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1217 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1220 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1223 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1224 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1216 A) (TAUA-REF1218 TAUA) - (B-REF1219 B) (TAUB-REF1221 TAUB) - (WORK-REF1222 WORK)) - (%%CGGRQF M-REF1213 P-REF1214 N-REF1215 A-REF1216 LDA-REF1217 - TAUA-REF1218 B-REF1219 LDB-REF1220 TAUB-REF1221 WORK-REF1222 - LWORK-REF1223 INFO-REF1224)))) - -(CFFI:DEFCFUN ("cggsvd3_" %%CGGSVD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1132 ':INT32) (P-REF1133 ':INT32) + (N-REF1134 ':INT32) (LDA-REF1136 ':INT32) + (LDB-REF1139 ':INT32) (LWORK-REF1142 ':INT32) + (INFO-REF1143 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1132 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1133 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1134 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1136 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1139 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1142 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1143 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1135 A) (TAUA-REF1137 TAUA) + (B-REF1138 B) (TAUB-REF1140 TAUB) + (WORK-REF1141 WORK)) + (%%CGGRQF M-REF1132 P-REF1133 N-REF1134 A-REF1135 LDA-REF1136 + TAUA-REF1137 B-REF1138 LDB-REF1139 TAUB-REF1140 WORK-REF1141 + LWORK-REF1142 INFO-REF1143)))) + +(CFFI:DEFCFUN ("cggsvd3_" %%CGGSVD3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -6010,38 +6008,39 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1228 ':INT32) (N-REF1229 ':INT32) - (P-REF1230 ':INT32) (K-REF1231 ':INT32) - (L-REF1232 ':INT32) (LDA-REF1234 ':INT32) - (LDB-REF1236 ':INT32) (LDU-REF1240 ':INT32) - (LDV-REF1242 ':INT32) (LDQ-REF1244 ':INT32) - (LWORK-REF1246 ':INT32) (INFO-REF1249 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1228 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1229 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1230 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1231 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1232 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1234 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1236 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1240 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1242 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1244 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1246 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1249 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1233 A) (B-REF1235 B) - (ALPHA-REF1237 ALPHA) - (BETA-REF1238 BETA) (U-REF1239 U) - (V-REF1241 V) (Q-REF1243 Q) - (WORK-REF1245 WORK) - (RWORK-REF1247 RWORK) - (IWORK-REF1248 IWORK)) - (%%CGGSVD3 JOBU JOBV JOBQ M-REF1228 N-REF1229 P-REF1230 K-REF1231 - L-REF1232 A-REF1233 LDA-REF1234 B-REF1235 LDB-REF1236 - ALPHA-REF1237 BETA-REF1238 U-REF1239 LDU-REF1240 V-REF1241 - LDV-REF1242 Q-REF1243 LDQ-REF1244 WORK-REF1245 LWORK-REF1246 - RWORK-REF1247 IWORK-REF1248 INFO-REF1249)))) - -(CFFI:DEFCFUN ("cggsvp3_" %%CGGSVP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1147 ':INT32) (N-REF1148 ':INT32) + (P-REF1149 ':INT32) (K-REF1150 ':INT32) + (L-REF1151 ':INT32) (LDA-REF1153 ':INT32) + (LDB-REF1155 ':INT32) (LDU-REF1159 ':INT32) + (LDV-REF1161 ':INT32) (LDQ-REF1163 ':INT32) + (LWORK-REF1165 ':INT32) (INFO-REF1168 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1147 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1148 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1149 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1150 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1151 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1153 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1155 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1159 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1161 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1163 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1165 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1168 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1152 A) (B-REF1154 B) + (ALPHA-REF1156 ALPHA) + (BETA-REF1157 BETA) (U-REF1158 U) + (V-REF1160 V) (Q-REF1162 Q) + (WORK-REF1164 WORK) + (RWORK-REF1166 RWORK) + (IWORK-REF1167 IWORK)) + (%%CGGSVD3 JOBU JOBV JOBQ M-REF1147 N-REF1148 P-REF1149 K-REF1150 + L-REF1151 A-REF1152 LDA-REF1153 B-REF1154 LDB-REF1155 ALPHA-REF1156 + BETA-REF1157 U-REF1158 LDU-REF1159 V-REF1160 LDV-REF1161 Q-REF1162 + LDQ-REF1163 WORK-REF1164 LWORK-REF1165 RWORK-REF1166 IWORK-REF1167 + INFO-REF1168)))) + +(CFFI:DEFCFUN ("cggsvp3_" %%CGGSVP3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -6133,40 +6132,40 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1253 ':INT32) (P-REF1254 ':INT32) - (N-REF1255 ':INT32) (LDA-REF1257 ':INT32) - (LDB-REF1259 ':INT32) (TOLA-REF1260 ':FLOAT) - (TOLB-REF1261 ':FLOAT) (K-REF1262 ':INT32) - (L-REF1263 ':INT32) (LDU-REF1265 ':INT32) - (LDV-REF1267 ':INT32) (LDQ-REF1269 ':INT32) - (LWORK-REF1274 ':INT32) (INFO-REF1275 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1253 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1254 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1255 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1257 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1259 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF1260 :FLOAT) TOLA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF1261 :FLOAT) TOLB) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1262 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1263 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1265 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1267 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1269 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1274 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1275 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1256 A) (B-REF1258 B) - (U-REF1264 U) (V-REF1266 V) - (Q-REF1268 Q) (IWORK-REF1270 IWORK) - (RWORK-REF1271 RWORK) - (TAU-REF1272 TAU) - (WORK-REF1273 WORK)) - (%%CGGSVP3 JOBU JOBV JOBQ M-REF1253 P-REF1254 N-REF1255 A-REF1256 - LDA-REF1257 B-REF1258 LDB-REF1259 TOLA-REF1260 TOLB-REF1261 - K-REF1262 L-REF1263 U-REF1264 LDU-REF1265 V-REF1266 - LDV-REF1267 Q-REF1268 LDQ-REF1269 IWORK-REF1270 RWORK-REF1271 - TAU-REF1272 WORK-REF1273 LWORK-REF1274 INFO-REF1275)))) - -(CFFI:DEFCFUN ("cgsvj0_" %%CGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1172 ':INT32) (P-REF1173 ':INT32) + (N-REF1174 ':INT32) (LDA-REF1176 ':INT32) + (LDB-REF1178 ':INT32) (TOLA-REF1179 ':FLOAT) + (TOLB-REF1180 ':FLOAT) (K-REF1181 ':INT32) + (L-REF1182 ':INT32) (LDU-REF1184 ':INT32) + (LDV-REF1186 ':INT32) (LDQ-REF1188 ':INT32) + (LWORK-REF1193 ':INT32) (INFO-REF1194 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1172 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF1173 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1174 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1176 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1178 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF1179 :FLOAT) TOLA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF1180 :FLOAT) TOLB) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF1181 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF1182 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF1184 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1186 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1188 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1193 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1194 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1175 A) (B-REF1177 B) + (U-REF1183 U) (V-REF1185 V) + (Q-REF1187 Q) (IWORK-REF1189 IWORK) + (RWORK-REF1190 RWORK) + (TAU-REF1191 TAU) + (WORK-REF1192 WORK)) + (%%CGGSVP3 JOBU JOBV JOBQ M-REF1172 P-REF1173 N-REF1174 A-REF1175 + LDA-REF1176 B-REF1177 LDB-REF1178 TOLA-REF1179 TOLB-REF1180 K-REF1181 + L-REF1182 U-REF1183 LDU-REF1184 V-REF1185 LDV-REF1186 Q-REF1187 + LDQ-REF1188 IWORK-REF1189 RWORK-REF1190 TAU-REF1191 WORK-REF1192 + LWORK-REF1193 INFO-REF1194)))) + +(CFFI:DEFCFUN ("cgsvj0_" %%CGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBV :STRING) (M :POINTER) @@ -6225,32 +6224,31 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1277 ':INT32) (N-REF1278 ':INT32) - (LDA-REF1280 ':INT32) (MV-REF1283 ':INT32) - (LDV-REF1285 ':INT32) (EPS-REF1286 ':FLOAT) - (SFMIN-REF1287 ':FLOAT) (TOL-REF1288 ':FLOAT) - (NSWEEP-REF1289 ':INT32) (LWORK-REF1291 ':INT32) - (INFO-REF1292 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1277 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1278 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1280 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF1283 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1285 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF1286 :FLOAT) EPS) - (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF1287 :FLOAT) SFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF1288 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF1289 :INT32) NSWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1291 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1292 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1279 A) (D-REF1281 D) - (SVA-REF1282 SVA) (V-REF1284 V) - (WORK-REF1290 WORK)) - (%%CGSVJ0 JOBV M-REF1277 N-REF1278 A-REF1279 LDA-REF1280 D-REF1281 - SVA-REF1282 MV-REF1283 V-REF1284 LDV-REF1285 EPS-REF1286 - SFMIN-REF1287 TOL-REF1288 NSWEEP-REF1289 WORK-REF1290 - LWORK-REF1291 INFO-REF1292)))) - -(CFFI:DEFCFUN ("cgsvj1_" %%CGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1196 ':INT32) (N-REF1197 ':INT32) + (LDA-REF1199 ':INT32) (MV-REF1202 ':INT32) + (LDV-REF1204 ':INT32) (EPS-REF1205 ':FLOAT) + (SFMIN-REF1206 ':FLOAT) (TOL-REF1207 ':FLOAT) + (NSWEEP-REF1208 ':INT32) (LWORK-REF1210 ':INT32) + (INFO-REF1211 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1196 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1197 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1199 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF1202 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1204 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF1205 :FLOAT) EPS) + (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF1206 :FLOAT) SFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF1207 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF1208 :INT32) NSWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1210 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1211 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1198 A) (D-REF1200 D) + (SVA-REF1201 SVA) (V-REF1203 V) + (WORK-REF1209 WORK)) + (%%CGSVJ0 JOBV M-REF1196 N-REF1197 A-REF1198 LDA-REF1199 D-REF1200 + SVA-REF1201 MV-REF1202 V-REF1203 LDV-REF1204 EPS-REF1205 SFMIN-REF1206 + TOL-REF1207 NSWEEP-REF1208 WORK-REF1209 LWORK-REF1210 INFO-REF1211)))) + +(CFFI:DEFCFUN ("cgsvj1_" %%CGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBV :STRING) (M :POINTER) @@ -6311,33 +6309,33 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1294 ':INT32) (N-REF1295 ':INT32) - (N1-REF1296 ':INT32) (LDA-REF1298 ':INT32) - (MV-REF1301 ':INT32) (LDV-REF1303 ':INT32) - (EPS-REF1304 ':FLOAT) (SFMIN-REF1305 ':FLOAT) - (TOL-REF1306 ':FLOAT) (NSWEEP-REF1307 ':INT32) - (LWORK-REF1309 ':INT32) (INFO-REF1310 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1294 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1295 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF1296 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1298 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF1301 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1303 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF1304 :FLOAT) EPS) - (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF1305 :FLOAT) SFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF1306 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF1307 :INT32) NSWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1309 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1310 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1297 A) (D-REF1299 D) - (SVA-REF1300 SVA) (V-REF1302 V) - (WORK-REF1308 WORK)) - (%%CGSVJ1 JOBV M-REF1294 N-REF1295 N1-REF1296 A-REF1297 LDA-REF1298 - D-REF1299 SVA-REF1300 MV-REF1301 V-REF1302 LDV-REF1303 - EPS-REF1304 SFMIN-REF1305 TOL-REF1306 NSWEEP-REF1307 - WORK-REF1308 LWORK-REF1309 INFO-REF1310)))) - -(CFFI:DEFCFUN ("cgtcon_" %%CGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF1213 ':INT32) (N-REF1214 ':INT32) + (N1-REF1215 ':INT32) (LDA-REF1217 ':INT32) + (MV-REF1220 ':INT32) (LDV-REF1222 ':INT32) + (EPS-REF1223 ':FLOAT) (SFMIN-REF1224 ':FLOAT) + (TOL-REF1225 ':FLOAT) (NSWEEP-REF1226 ':INT32) + (LWORK-REF1228 ':INT32) (INFO-REF1229 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1213 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1214 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF1215 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1217 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF1220 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF1222 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF1223 :FLOAT) EPS) + (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF1224 :FLOAT) SFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF1225 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF1226 :INT32) NSWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1228 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1229 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1216 A) (D-REF1218 D) + (SVA-REF1219 SVA) (V-REF1221 V) + (WORK-REF1227 WORK)) + (%%CGSVJ1 JOBV M-REF1213 N-REF1214 N1-REF1215 A-REF1216 LDA-REF1217 + D-REF1218 SVA-REF1219 MV-REF1220 V-REF1221 LDV-REF1222 EPS-REF1223 + SFMIN-REF1224 TOL-REF1225 NSWEEP-REF1226 WORK-REF1227 LWORK-REF1228 + INFO-REF1229)))) + +(CFFI:DEFCFUN ("cgtcon_" %%CGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -6387,21 +6385,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1312 ':INT32) (ANORM-REF1318 ':FLOAT) - (RCOND-REF1319 ':FLOAT) (INFO-REF1321 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1312 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1318 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1319 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1321 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1313 DL) (D-REF1314 D) - (DU-REF1315 DU) (DU2-REF1316 DU2) - (IPIV-REF1317 IPIV) - (WORK-REF1320 WORK)) - (%%CGTCON NORM N-REF1312 DL-REF1313 D-REF1314 DU-REF1315 DU2-REF1316 - IPIV-REF1317 ANORM-REF1318 RCOND-REF1319 WORK-REF1320 - INFO-REF1321)))) - -(CFFI:DEFCFUN ("cgtrfs_" %%CGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1231 ':INT32) (ANORM-REF1237 ':FLOAT) + (RCOND-REF1238 ':FLOAT) (INFO-REF1240 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1231 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1237 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1238 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1240 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1232 DL) (D-REF1233 D) + (DU-REF1234 DU) (DU2-REF1235 DU2) + (IPIV-REF1236 IPIV) + (WORK-REF1239 WORK)) + (%%CGTCON NORM N-REF1231 DL-REF1232 D-REF1233 DU-REF1234 DU2-REF1235 + IPIV-REF1236 ANORM-REF1237 RCOND-REF1238 WORK-REF1239 INFO-REF1240)))) + +(CFFI:DEFCFUN ("cgtrfs_" %%CGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -6497,29 +6494,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1323 ':INT32) (NRHS-REF1324 ':INT32) - (LDB-REF1334 ':INT32) (LDX-REF1336 ':INT32) - (INFO-REF1341 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1323 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1324 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1334 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1336 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1341 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1325 DL) (D-REF1326 D) - (DU-REF1327 DU) (DLF-REF1328 DLF) - (DF-REF1329 DF) (DUF-REF1330 DUF) - (DU2-REF1331 DU2) - (IPIV-REF1332 IPIV) (B-REF1333 B) - (X-REF1335 X) (FERR-REF1337 FERR) - (BERR-REF1338 BERR) - (WORK-REF1339 WORK) - (RWORK-REF1340 RWORK)) - (%%CGTRFS TRANS N-REF1323 NRHS-REF1324 DL-REF1325 D-REF1326 DU-REF1327 - DLF-REF1328 DF-REF1329 DUF-REF1330 DU2-REF1331 IPIV-REF1332 - B-REF1333 LDB-REF1334 X-REF1335 LDX-REF1336 FERR-REF1337 - BERR-REF1338 WORK-REF1339 RWORK-REF1340 INFO-REF1341)))) - -(CFFI:DEFCFUN ("cgtsv_" %%CGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1242 ':INT32) (NRHS-REF1243 ':INT32) + (LDB-REF1253 ':INT32) (LDX-REF1255 ':INT32) + (INFO-REF1260 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1242 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1243 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1253 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1255 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1260 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1244 DL) (D-REF1245 D) + (DU-REF1246 DU) (DLF-REF1247 DLF) + (DF-REF1248 DF) (DUF-REF1249 DUF) + (DU2-REF1250 DU2) + (IPIV-REF1251 IPIV) (B-REF1252 B) + (X-REF1254 X) (FERR-REF1256 FERR) + (BERR-REF1257 BERR) + (WORK-REF1258 WORK) + (RWORK-REF1259 RWORK)) + (%%CGTRFS TRANS N-REF1242 NRHS-REF1243 DL-REF1244 D-REF1245 DU-REF1246 + DLF-REF1247 DF-REF1248 DUF-REF1249 DU2-REF1250 IPIV-REF1251 B-REF1252 + LDB-REF1253 X-REF1254 LDX-REF1255 FERR-REF1256 BERR-REF1257 WORK-REF1258 + RWORK-REF1259 INFO-REF1260)))) + +(CFFI:DEFCFUN ("cgtsv_" %%CGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -6556,18 +6553,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1342 ':INT32) (NRHS-REF1343 ':INT32) - (LDB-REF1348 ':INT32) (INFO-REF1349 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1342 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1343 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1348 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1349 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1344 DL) (D-REF1345 D) - (DU-REF1346 DU) (B-REF1347 B)) - (%%CGTSV N-REF1342 NRHS-REF1343 DL-REF1344 D-REF1345 DU-REF1346 B-REF1347 - LDB-REF1348 INFO-REF1349)))) - -(CFFI:DEFCFUN ("cgtsvx_" %%CGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1261 ':INT32) (NRHS-REF1262 ':INT32) + (LDB-REF1267 ':INT32) (INFO-REF1268 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1261 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1262 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1267 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1268 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1263 DL) (D-REF1264 D) + (DU-REF1265 DU) (B-REF1266 B)) + (%%CGTSV N-REF1261 NRHS-REF1262 DL-REF1263 D-REF1264 DU-REF1265 B-REF1266 + LDB-REF1267 INFO-REF1268)))) + +(CFFI:DEFCFUN ("cgtsvx_" %%CGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -6667,31 +6664,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1352 ':INT32) (NRHS-REF1353 ':INT32) - (LDB-REF1363 ':INT32) (LDX-REF1365 ':INT32) - (RCOND-REF1366 ':FLOAT) (INFO-REF1371 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1352 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1353 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1363 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1365 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1366 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1371 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1354 DL) (D-REF1355 D) - (DU-REF1356 DU) (DLF-REF1357 DLF) - (DF-REF1358 DF) (DUF-REF1359 DUF) - (DU2-REF1360 DU2) - (IPIV-REF1361 IPIV) (B-REF1362 B) - (X-REF1364 X) (FERR-REF1367 FERR) - (BERR-REF1368 BERR) - (WORK-REF1369 WORK) - (RWORK-REF1370 RWORK)) - (%%CGTSVX FACT TRANS N-REF1352 NRHS-REF1353 DL-REF1354 D-REF1355 - DU-REF1356 DLF-REF1357 DF-REF1358 DUF-REF1359 DU2-REF1360 - IPIV-REF1361 B-REF1362 LDB-REF1363 X-REF1364 LDX-REF1365 - RCOND-REF1366 FERR-REF1367 BERR-REF1368 WORK-REF1369 - RWORK-REF1370 INFO-REF1371)))) - -(CFFI:DEFCFUN ("cgttrf_" %%CGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1271 ':INT32) (NRHS-REF1272 ':INT32) + (LDB-REF1282 ':INT32) (LDX-REF1284 ':INT32) + (RCOND-REF1285 ':FLOAT) (INFO-REF1290 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1271 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1272 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1282 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1284 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1285 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1290 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1273 DL) (D-REF1274 D) + (DU-REF1275 DU) (DLF-REF1276 DLF) + (DF-REF1277 DF) (DUF-REF1278 DUF) + (DU2-REF1279 DU2) + (IPIV-REF1280 IPIV) (B-REF1281 B) + (X-REF1283 X) (FERR-REF1286 FERR) + (BERR-REF1287 BERR) + (WORK-REF1288 WORK) + (RWORK-REF1289 RWORK)) + (%%CGTSVX FACT TRANS N-REF1271 NRHS-REF1272 DL-REF1273 D-REF1274 + DU-REF1275 DLF-REF1276 DF-REF1277 DUF-REF1278 DU2-REF1279 IPIV-REF1280 + B-REF1281 LDB-REF1282 X-REF1283 LDX-REF1284 RCOND-REF1285 FERR-REF1286 + BERR-REF1287 WORK-REF1288 RWORK-REF1289 INFO-REF1290)))) + +(CFFI:DEFCFUN ("cgttrf_" %%CGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (DL :POINTER) @@ -6729,16 +6725,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1372 ':INT32) (INFO-REF1378 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1372 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1378 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1373 DL) (D-REF1374 D) - (DU-REF1375 DU) (DU2-REF1376 DU2) - (IPIV-REF1377 IPIV)) - (%%CGTTRF N-REF1372 DL-REF1373 D-REF1374 DU-REF1375 DU2-REF1376 - IPIV-REF1377 INFO-REF1378)))) - -(CFFI:DEFCFUN ("cgttrs_" %%CGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1291 ':INT32) (INFO-REF1297 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1291 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1297 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1292 DL) (D-REF1293 D) + (DU-REF1294 DU) (DU2-REF1295 DU2) + (IPIV-REF1296 IPIV)) + (%%CGTTRF N-REF1291 DL-REF1292 D-REF1293 DU-REF1294 DU2-REF1295 + IPIV-REF1296 INFO-REF1297)))) + +(CFFI:DEFCFUN ("cgttrs_" %%CGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -6788,19 +6784,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1380 ':INT32) (NRHS-REF1381 ':INT32) - (LDB-REF1388 ':INT32) (INFO-REF1389 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1380 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1381 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1388 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1389 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1382 DL) (D-REF1383 D) - (DU-REF1384 DU) (DU2-REF1385 DU2) - (IPIV-REF1386 IPIV) (B-REF1387 B)) - (%%CGTTRS TRANS N-REF1380 NRHS-REF1381 DL-REF1382 D-REF1383 DU-REF1384 - DU2-REF1385 IPIV-REF1386 B-REF1387 LDB-REF1388 INFO-REF1389)))) - -(CFFI:DEFCFUN ("cgtts2_" %%CGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1299 ':INT32) (NRHS-REF1300 ':INT32) + (LDB-REF1307 ':INT32) (INFO-REF1308 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1299 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1300 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1307 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1308 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1301 DL) (D-REF1302 D) + (DU-REF1303 DU) (DU2-REF1304 DU2) + (IPIV-REF1305 IPIV) (B-REF1306 B)) + (%%CGTTRS TRANS N-REF1299 NRHS-REF1300 DL-REF1301 D-REF1302 DU-REF1303 + DU2-REF1304 IPIV-REF1305 B-REF1306 LDB-REF1307 INFO-REF1308)))) + +(CFFI:DEFCFUN ("cgtts2_" %%CGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITRANS :POINTER) (N :POINTER) @@ -6848,20 +6844,20 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF1390 ':INT32) (N-REF1391 ':INT32) - (NRHS-REF1392 ':INT32) (LDB-REF1399 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF1390 :INT32) ITRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1391 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1392 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1399 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1393 DL) (D-REF1394 D) - (DU-REF1395 DU) (DU2-REF1396 DU2) - (IPIV-REF1397 IPIV) (B-REF1398 B)) - (%%CGTTS2 ITRANS-REF1390 N-REF1391 NRHS-REF1392 DL-REF1393 D-REF1394 - DU-REF1395 DU2-REF1396 IPIV-REF1397 B-REF1398 LDB-REF1399)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF1309 ':INT32) (N-REF1310 ':INT32) + (NRHS-REF1311 ':INT32) (LDB-REF1318 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF1309 :INT32) ITRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1310 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1311 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1318 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF1312 DL) (D-REF1313 D) + (DU-REF1314 DU) (DU2-REF1315 DU2) + (IPIV-REF1316 IPIV) (B-REF1317 B)) + (%%CGTTS2 ITRANS-REF1309 N-REF1310 NRHS-REF1311 DL-REF1312 D-REF1313 + DU-REF1314 DU2-REF1315 IPIV-REF1316 B-REF1317 LDB-REF1318)))) (CFFI:DEFCFUN ("chb2st_kernels_" %%CHB2ST_KERNELS :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WANTZ :POINTER) @@ -6913,30 +6909,29 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF1401 ':INT32) (TTYPE-REF1402 ':INT32) - (ST-REF1403 ':INT32) (ED-REF1404 ':INT32) - (SWEEP-REF1405 ':INT32) (N-REF1406 ':INT32) - (NB-REF1407 ':INT32) (IB-REF1408 ':INT32) - (LDA-REF1410 ':INT32) (LDVT-REF1413 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF1401 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF1402 :INT32) TTYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF1403 :INT32) ST) - (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF1404 :INT32) ED) - (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF1405 :INT32) SWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1406 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1407 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF1408 :INT32) IB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1410 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF1413 :INT32) LDVT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1409 A) (V-REF1411 V) - (TAU-REF1412 TAU) - (WORK-REF1414 WORK)) - (%%CHB2ST_KERNELS UPLO WANTZ-REF1401 TTYPE-REF1402 ST-REF1403 ED-REF1404 - SWEEP-REF1405 N-REF1406 NB-REF1407 IB-REF1408 A-REF1409 - LDA-REF1410 V-REF1411 TAU-REF1412 LDVT-REF1413 - WORK-REF1414)))) - -(CFFI:DEFCFUN ("chbev_" %%CHBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF1320 ':INT32) (TTYPE-REF1321 ':INT32) + (ST-REF1322 ':INT32) (ED-REF1323 ':INT32) + (SWEEP-REF1324 ':INT32) (N-REF1325 ':INT32) + (NB-REF1326 ':INT32) (IB-REF1327 ':INT32) + (LDA-REF1329 ':INT32) (LDVT-REF1332 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF1320 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF1321 :INT32) TTYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF1322 :INT32) ST) + (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF1323 :INT32) ED) + (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF1324 :INT32) SWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1325 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF1326 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF1327 :INT32) IB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1329 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF1332 :INT32) LDVT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1328 A) (V-REF1330 V) + (TAU-REF1331 TAU) + (WORK-REF1333 WORK)) + (%%CHB2ST_KERNELS UPLO WANTZ-REF1320 TTYPE-REF1321 ST-REF1322 ED-REF1323 + SWEEP-REF1324 N-REF1325 NB-REF1326 IB-REF1327 A-REF1328 LDA-REF1329 + V-REF1330 TAU-REF1331 LDVT-REF1332 WORK-REF1333)))) + +(CFFI:DEFCFUN ("chbev_" %%CHBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -6980,22 +6975,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1417 ':INT32) (KD-REF1418 ':INT32) - (LDAB-REF1420 ':INT32) (LDZ-REF1423 ':INT32) - (INFO-REF1426 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1417 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1418 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1420 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1423 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1426 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1419 AB) (W-REF1421 W) - (Z-REF1422 Z) (WORK-REF1424 WORK) - (RWORK-REF1425 RWORK)) - (%%CHBEV JOBZ UPLO N-REF1417 KD-REF1418 AB-REF1419 LDAB-REF1420 W-REF1421 - Z-REF1422 LDZ-REF1423 WORK-REF1424 RWORK-REF1425 INFO-REF1426)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1336 ':INT32) (KD-REF1337 ':INT32) + (LDAB-REF1339 ':INT32) (LDZ-REF1342 ':INT32) + (INFO-REF1345 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1336 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1337 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1339 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1342 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1345 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1338 AB) (W-REF1340 W) + (Z-REF1341 Z) (WORK-REF1343 WORK) + (RWORK-REF1344 RWORK)) + (%%CHBEV JOBZ UPLO N-REF1336 KD-REF1337 AB-REF1338 LDAB-REF1339 W-REF1340 + Z-REF1341 LDZ-REF1342 WORK-REF1343 RWORK-REF1344 INFO-REF1345)))) (CFFI:DEFCFUN ("chbev_2stage_" %%CHBEV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7042,23 +7037,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1429 ':INT32) (KD-REF1430 ':INT32) - (LDAB-REF1432 ':INT32) (LDZ-REF1435 ':INT32) - (LWORK-REF1437 ':INT32) (INFO-REF1439 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1429 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1430 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1432 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1435 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1437 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1439 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1431 AB) (W-REF1433 W) - (Z-REF1434 Z) (WORK-REF1436 WORK) - (RWORK-REF1438 RWORK)) - (%%CHBEV_2STAGE JOBZ UPLO N-REF1429 KD-REF1430 AB-REF1431 LDAB-REF1432 - W-REF1433 Z-REF1434 LDZ-REF1435 WORK-REF1436 - LWORK-REF1437 RWORK-REF1438 INFO-REF1439)))) - -(CFFI:DEFCFUN ("chbevd_" %%CHBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1348 ':INT32) (KD-REF1349 ':INT32) + (LDAB-REF1351 ':INT32) (LDZ-REF1354 ':INT32) + (LWORK-REF1356 ':INT32) (INFO-REF1358 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1348 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1349 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1351 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1354 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1356 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1358 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1350 AB) (W-REF1352 W) + (Z-REF1353 Z) (WORK-REF1355 WORK) + (RWORK-REF1357 RWORK)) + (%%CHBEV_2STAGE JOBZ UPLO N-REF1348 KD-REF1349 AB-REF1350 LDAB-REF1351 + W-REF1352 Z-REF1353 LDZ-REF1354 WORK-REF1355 LWORK-REF1356 RWORK-REF1357 + INFO-REF1358)))) + +(CFFI:DEFCFUN ("chbevd_" %%CHBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7115,29 +7110,28 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1442 ':INT32) (KD-REF1443 ':INT32) - (LDAB-REF1445 ':INT32) (LDZ-REF1448 ':INT32) - (LWORK-REF1450 ':INT32) (LRWORK-REF1452 ':INT32) - (LIWORK-REF1454 ':INT32) (INFO-REF1455 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1442 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1443 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1445 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1448 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1450 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1452 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1454 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1455 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1444 AB) (W-REF1446 W) - (Z-REF1447 Z) (WORK-REF1449 WORK) - (RWORK-REF1451 RWORK) - (IWORK-REF1453 IWORK)) - (%%CHBEVD JOBZ UPLO N-REF1442 KD-REF1443 AB-REF1444 LDAB-REF1445 - W-REF1446 Z-REF1447 LDZ-REF1448 WORK-REF1449 LWORK-REF1450 - RWORK-REF1451 LRWORK-REF1452 IWORK-REF1453 LIWORK-REF1454 - INFO-REF1455)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1361 ':INT32) (KD-REF1362 ':INT32) + (LDAB-REF1364 ':INT32) (LDZ-REF1367 ':INT32) + (LWORK-REF1369 ':INT32) (LRWORK-REF1371 ':INT32) + (LIWORK-REF1373 ':INT32) (INFO-REF1374 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1361 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1362 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1364 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1367 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1369 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1371 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1373 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1374 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1363 AB) (W-REF1365 W) + (Z-REF1366 Z) (WORK-REF1368 WORK) + (RWORK-REF1370 RWORK) + (IWORK-REF1372 IWORK)) + (%%CHBEVD JOBZ UPLO N-REF1361 KD-REF1362 AB-REF1363 LDAB-REF1364 + W-REF1365 Z-REF1366 LDZ-REF1367 WORK-REF1368 LWORK-REF1369 RWORK-REF1370 + LRWORK-REF1371 IWORK-REF1372 LIWORK-REF1373 INFO-REF1374)))) (CFFI:DEFCFUN ("chbevd_2stage_" %%CHBEVD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7194,28 +7188,27 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1458 ':INT32) (KD-REF1459 ':INT32) - (LDAB-REF1461 ':INT32) (LDZ-REF1464 ':INT32) - (LWORK-REF1466 ':INT32) (LRWORK-REF1468 ':INT32) - (LIWORK-REF1470 ':INT32) (INFO-REF1471 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1458 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1459 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1461 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1464 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1466 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1468 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1470 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1471 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1460 AB) (W-REF1462 W) - (Z-REF1463 Z) (WORK-REF1465 WORK) - (RWORK-REF1467 RWORK) - (IWORK-REF1469 IWORK)) - (%%CHBEVD_2STAGE JOBZ UPLO N-REF1458 KD-REF1459 AB-REF1460 LDAB-REF1461 - W-REF1462 Z-REF1463 LDZ-REF1464 WORK-REF1465 - LWORK-REF1466 RWORK-REF1467 LRWORK-REF1468 IWORK-REF1469 - LIWORK-REF1470 INFO-REF1471)))) - -(CFFI:DEFCFUN ("chbevx_" %%CHBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1377 ':INT32) (KD-REF1378 ':INT32) + (LDAB-REF1380 ':INT32) (LDZ-REF1383 ':INT32) + (LWORK-REF1385 ':INT32) (LRWORK-REF1387 ':INT32) + (LIWORK-REF1389 ':INT32) (INFO-REF1390 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1377 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1378 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1380 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1383 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1385 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1387 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1389 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1390 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1379 AB) (W-REF1381 W) + (Z-REF1382 Z) (WORK-REF1384 WORK) + (RWORK-REF1386 RWORK) + (IWORK-REF1388 IWORK)) + (%%CHBEVD_2STAGE JOBZ UPLO N-REF1377 KD-REF1378 AB-REF1379 LDAB-REF1380 + W-REF1381 Z-REF1382 LDZ-REF1383 WORK-REF1384 LWORK-REF1385 RWORK-REF1386 + LRWORK-REF1387 IWORK-REF1388 LIWORK-REF1389 INFO-REF1390)))) + +(CFFI:DEFCFUN ("chbevx_" %%CHBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7293,38 +7286,37 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1475 ':INT32) (KD-REF1476 ':INT32) - (LDAB-REF1478 ':INT32) (LDQ-REF1480 ':INT32) - (VL-REF1481 ':FLOAT) (VU-REF1482 ':FLOAT) - (IL-REF1483 ':INT32) (IU-REF1484 ':INT32) - (ABSTOL-REF1485 ':FLOAT) (M-REF1486 ':INT32) - (LDZ-REF1489 ':INT32) (INFO-REF1494 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1475 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1476 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1478 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1480 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1481 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1482 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1483 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1484 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1485 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1486 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1489 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1494 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1477 AB) (Q-REF1479 Q) - (W-REF1487 W) (Z-REF1488 Z) - (WORK-REF1490 WORK) - (RWORK-REF1491 RWORK) - (IWORK-REF1492 IWORK) - (IFAIL-REF1493 IFAIL)) - (%%CHBEVX JOBZ RANGE UPLO N-REF1475 KD-REF1476 AB-REF1477 LDAB-REF1478 - Q-REF1479 LDQ-REF1480 VL-REF1481 VU-REF1482 IL-REF1483 - IU-REF1484 ABSTOL-REF1485 M-REF1486 W-REF1487 Z-REF1488 - LDZ-REF1489 WORK-REF1490 RWORK-REF1491 IWORK-REF1492 - IFAIL-REF1493 INFO-REF1494)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1394 ':INT32) (KD-REF1395 ':INT32) + (LDAB-REF1397 ':INT32) (LDQ-REF1399 ':INT32) + (VL-REF1400 ':FLOAT) (VU-REF1401 ':FLOAT) + (IL-REF1402 ':INT32) (IU-REF1403 ':INT32) + (ABSTOL-REF1404 ':FLOAT) (M-REF1405 ':INT32) + (LDZ-REF1408 ':INT32) (INFO-REF1413 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1394 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1395 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1397 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1399 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1400 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1401 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1402 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1403 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1404 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1405 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1408 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1413 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1396 AB) (Q-REF1398 Q) + (W-REF1406 W) (Z-REF1407 Z) + (WORK-REF1409 WORK) + (RWORK-REF1410 RWORK) + (IWORK-REF1411 IWORK) + (IFAIL-REF1412 IFAIL)) + (%%CHBEVX JOBZ RANGE UPLO N-REF1394 KD-REF1395 AB-REF1396 LDAB-REF1397 + Q-REF1398 LDQ-REF1399 VL-REF1400 VU-REF1401 IL-REF1402 IU-REF1403 + ABSTOL-REF1404 M-REF1405 W-REF1406 Z-REF1407 LDZ-REF1408 WORK-REF1409 + RWORK-REF1410 IWORK-REF1411 IFAIL-REF1412 INFO-REF1413)))) (CFFI:DEFCFUN ("chbevx_2stage_" %%CHBEVX_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7404,40 +7396,39 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1498 ':INT32) (KD-REF1499 ':INT32) - (LDAB-REF1501 ':INT32) (LDQ-REF1503 ':INT32) - (VL-REF1504 ':FLOAT) (VU-REF1505 ':FLOAT) - (IL-REF1506 ':INT32) (IU-REF1507 ':INT32) - (ABSTOL-REF1508 ':FLOAT) (M-REF1509 ':INT32) - (LDZ-REF1512 ':INT32) (LWORK-REF1514 ':INT32) - (INFO-REF1518 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1498 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1499 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1501 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1503 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1504 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1505 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1506 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1507 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1508 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1509 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1512 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1514 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1518 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1500 AB) (Q-REF1502 Q) - (W-REF1510 W) (Z-REF1511 Z) - (WORK-REF1513 WORK) - (RWORK-REF1515 RWORK) - (IWORK-REF1516 IWORK) - (IFAIL-REF1517 IFAIL)) - (%%CHBEVX_2STAGE JOBZ RANGE UPLO N-REF1498 KD-REF1499 AB-REF1500 - LDAB-REF1501 Q-REF1502 LDQ-REF1503 VL-REF1504 VU-REF1505 - IL-REF1506 IU-REF1507 ABSTOL-REF1508 M-REF1509 W-REF1510 - Z-REF1511 LDZ-REF1512 WORK-REF1513 LWORK-REF1514 - RWORK-REF1515 IWORK-REF1516 IFAIL-REF1517 - INFO-REF1518)))) - -(CFFI:DEFCFUN ("chbgst_" %%CHBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1417 ':INT32) (KD-REF1418 ':INT32) + (LDAB-REF1420 ':INT32) (LDQ-REF1422 ':INT32) + (VL-REF1423 ':FLOAT) (VU-REF1424 ':FLOAT) + (IL-REF1425 ':INT32) (IU-REF1426 ':INT32) + (ABSTOL-REF1427 ':FLOAT) (M-REF1428 ':INT32) + (LDZ-REF1431 ':INT32) (LWORK-REF1433 ':INT32) + (INFO-REF1437 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1417 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1418 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1420 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1422 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1423 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1424 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1425 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1426 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1427 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1428 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1431 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1433 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1437 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1419 AB) (Q-REF1421 Q) + (W-REF1429 W) (Z-REF1430 Z) + (WORK-REF1432 WORK) + (RWORK-REF1434 RWORK) + (IWORK-REF1435 IWORK) + (IFAIL-REF1436 IFAIL)) + (%%CHBEVX_2STAGE JOBZ RANGE UPLO N-REF1417 KD-REF1418 AB-REF1419 + LDAB-REF1420 Q-REF1421 LDQ-REF1422 VL-REF1423 VU-REF1424 IL-REF1425 + IU-REF1426 ABSTOL-REF1427 M-REF1428 W-REF1429 Z-REF1430 LDZ-REF1431 + WORK-REF1432 LWORK-REF1433 RWORK-REF1434 IWORK-REF1435 IFAIL-REF1436 + INFO-REF1437)))) + +(CFFI:DEFCFUN ("chbgst_" %%CHBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -7489,25 +7480,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1521 ':INT32) (KA-REF1522 ':INT32) - (KB-REF1523 ':INT32) (LDAB-REF1525 ':INT32) - (LDBB-REF1527 ':INT32) (LDX-REF1529 ':INT32) - (INFO-REF1532 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1521 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1522 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1523 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1525 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1527 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1529 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1532 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1524 AB) (BB-REF1526 BB) - (X-REF1528 X) (WORK-REF1530 WORK) - (RWORK-REF1531 RWORK)) - (%%CHBGST VECT UPLO N-REF1521 KA-REF1522 KB-REF1523 AB-REF1524 - LDAB-REF1525 BB-REF1526 LDBB-REF1527 X-REF1528 LDX-REF1529 - WORK-REF1530 RWORK-REF1531 INFO-REF1532)))) - -(CFFI:DEFCFUN ("chbgv_" %%CHBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1440 ':INT32) (KA-REF1441 ':INT32) + (KB-REF1442 ':INT32) (LDAB-REF1444 ':INT32) + (LDBB-REF1446 ':INT32) (LDX-REF1448 ':INT32) + (INFO-REF1451 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1440 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1441 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1442 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1444 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1446 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1448 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1451 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1443 AB) (BB-REF1445 BB) + (X-REF1447 X) (WORK-REF1449 WORK) + (RWORK-REF1450 RWORK)) + (%%CHBGST VECT UPLO N-REF1440 KA-REF1441 KB-REF1442 AB-REF1443 + LDAB-REF1444 BB-REF1445 LDBB-REF1446 X-REF1447 LDX-REF1448 WORK-REF1449 + RWORK-REF1450 INFO-REF1451)))) + +(CFFI:DEFCFUN ("chbgv_" %%CHBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7562,26 +7553,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1535 ':INT32) (KA-REF1536 ':INT32) - (KB-REF1537 ':INT32) (LDAB-REF1539 ':INT32) - (LDBB-REF1541 ':INT32) (LDZ-REF1544 ':INT32) - (INFO-REF1547 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1535 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1536 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1537 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1539 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1541 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1544 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1547 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1538 AB) (BB-REF1540 BB) - (W-REF1542 W) (Z-REF1543 Z) - (WORK-REF1545 WORK) - (RWORK-REF1546 RWORK)) - (%%CHBGV JOBZ UPLO N-REF1535 KA-REF1536 KB-REF1537 AB-REF1538 - LDAB-REF1539 BB-REF1540 LDBB-REF1541 W-REF1542 Z-REF1543 - LDZ-REF1544 WORK-REF1545 RWORK-REF1546 INFO-REF1547)))) - -(CFFI:DEFCFUN ("chbgvd_" %%CHBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1454 ':INT32) (KA-REF1455 ':INT32) + (KB-REF1456 ':INT32) (LDAB-REF1458 ':INT32) + (LDBB-REF1460 ':INT32) (LDZ-REF1463 ':INT32) + (INFO-REF1466 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1454 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1455 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1456 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1458 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1460 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1463 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1466 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1457 AB) (BB-REF1459 BB) + (W-REF1461 W) (Z-REF1462 Z) + (WORK-REF1464 WORK) + (RWORK-REF1465 RWORK)) + (%%CHBGV JOBZ UPLO N-REF1454 KA-REF1455 KB-REF1456 AB-REF1457 + LDAB-REF1458 BB-REF1459 LDBB-REF1460 W-REF1461 Z-REF1462 LDZ-REF1463 + WORK-REF1464 RWORK-REF1465 INFO-REF1466)))) + +(CFFI:DEFCFUN ("chbgvd_" %%CHBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7648,32 +7639,32 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1550 ':INT32) (KA-REF1551 ':INT32) - (KB-REF1552 ':INT32) (LDAB-REF1554 ':INT32) - (LDBB-REF1556 ':INT32) (LDZ-REF1559 ':INT32) - (LWORK-REF1561 ':INT32) (LRWORK-REF1563 ':INT32) - (LIWORK-REF1565 ':INT32) (INFO-REF1566 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1550 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1551 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1552 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1554 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1556 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1559 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1561 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1563 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1565 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1566 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1553 AB) (BB-REF1555 BB) - (W-REF1557 W) (Z-REF1558 Z) - (WORK-REF1560 WORK) - (RWORK-REF1562 RWORK) - (IWORK-REF1564 IWORK)) - (%%CHBGVD JOBZ UPLO N-REF1550 KA-REF1551 KB-REF1552 AB-REF1553 - LDAB-REF1554 BB-REF1555 LDBB-REF1556 W-REF1557 Z-REF1558 - LDZ-REF1559 WORK-REF1560 LWORK-REF1561 RWORK-REF1562 - LRWORK-REF1563 IWORK-REF1564 LIWORK-REF1565 INFO-REF1566)))) - -(CFFI:DEFCFUN ("chbgvx_" %%CHBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1469 ':INT32) (KA-REF1470 ':INT32) + (KB-REF1471 ':INT32) (LDAB-REF1473 ':INT32) + (LDBB-REF1475 ':INT32) (LDZ-REF1478 ':INT32) + (LWORK-REF1480 ':INT32) (LRWORK-REF1482 ':INT32) + (LIWORK-REF1484 ':INT32) (INFO-REF1485 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1469 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1470 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1471 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1473 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1475 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1478 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1480 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1482 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1484 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1485 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1472 AB) (BB-REF1474 BB) + (W-REF1476 W) (Z-REF1477 Z) + (WORK-REF1479 WORK) + (RWORK-REF1481 RWORK) + (IWORK-REF1483 IWORK)) + (%%CHBGVD JOBZ UPLO N-REF1469 KA-REF1470 KB-REF1471 AB-REF1472 + LDAB-REF1473 BB-REF1474 LDBB-REF1475 W-REF1476 Z-REF1477 LDZ-REF1478 + WORK-REF1479 LWORK-REF1480 RWORK-REF1481 LRWORK-REF1482 IWORK-REF1483 + LIWORK-REF1484 INFO-REF1485)))) + +(CFFI:DEFCFUN ("chbgvx_" %%CHBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7761,40 +7752,40 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1570 ':INT32) (KA-REF1571 ':INT32) - (KB-REF1572 ':INT32) (LDAB-REF1574 ':INT32) - (LDBB-REF1576 ':INT32) (LDQ-REF1578 ':INT32) - (VL-REF1579 ':FLOAT) (VU-REF1580 ':FLOAT) - (IL-REF1581 ':INT32) (IU-REF1582 ':INT32) - (ABSTOL-REF1583 ':FLOAT) (M-REF1584 ':INT32) - (LDZ-REF1587 ':INT32) (INFO-REF1592 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1570 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1571 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1572 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1574 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1576 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1578 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1579 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1580 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1581 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1582 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1583 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1584 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1587 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1592 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1573 AB) (BB-REF1575 BB) - (Q-REF1577 Q) (W-REF1585 W) - (Z-REF1586 Z) (WORK-REF1588 WORK) - (RWORK-REF1589 RWORK) - (IWORK-REF1590 IWORK) - (IFAIL-REF1591 IFAIL)) - (%%CHBGVX JOBZ RANGE UPLO N-REF1570 KA-REF1571 KB-REF1572 AB-REF1573 - LDAB-REF1574 BB-REF1575 LDBB-REF1576 Q-REF1577 LDQ-REF1578 - VL-REF1579 VU-REF1580 IL-REF1581 IU-REF1582 ABSTOL-REF1583 - M-REF1584 W-REF1585 Z-REF1586 LDZ-REF1587 WORK-REF1588 - RWORK-REF1589 IWORK-REF1590 IFAIL-REF1591 INFO-REF1592)))) - -(CFFI:DEFCFUN ("chbtrd_" %%CHBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1489 ':INT32) (KA-REF1490 ':INT32) + (KB-REF1491 ':INT32) (LDAB-REF1493 ':INT32) + (LDBB-REF1495 ':INT32) (LDQ-REF1497 ':INT32) + (VL-REF1498 ':FLOAT) (VU-REF1499 ':FLOAT) + (IL-REF1500 ':INT32) (IU-REF1501 ':INT32) + (ABSTOL-REF1502 ':FLOAT) (M-REF1503 ':INT32) + (LDZ-REF1506 ':INT32) (INFO-REF1511 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1489 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF1490 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF1491 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1493 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF1495 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1497 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1498 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1499 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1500 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1501 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1502 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1503 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1506 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1511 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1492 AB) (BB-REF1494 BB) + (Q-REF1496 Q) (W-REF1504 W) + (Z-REF1505 Z) (WORK-REF1507 WORK) + (RWORK-REF1508 RWORK) + (IWORK-REF1509 IWORK) + (IFAIL-REF1510 IFAIL)) + (%%CHBGVX JOBZ RANGE UPLO N-REF1489 KA-REF1490 KB-REF1491 AB-REF1492 + LDAB-REF1493 BB-REF1494 LDBB-REF1495 Q-REF1496 LDQ-REF1497 VL-REF1498 + VU-REF1499 IL-REF1500 IU-REF1501 ABSTOL-REF1502 M-REF1503 W-REF1504 + Z-REF1505 LDZ-REF1506 WORK-REF1507 RWORK-REF1508 IWORK-REF1509 + IFAIL-REF1510 INFO-REF1511)))) + +(CFFI:DEFCFUN ("chbtrd_" %%CHBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -7837,22 +7828,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1595 ':INT32) (KD-REF1596 ':INT32) - (LDAB-REF1598 ':INT32) (LDQ-REF1602 ':INT32) - (INFO-REF1604 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1595 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1596 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1598 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1602 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1604 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1597 AB) (D-REF1599 D) - (E-REF1600 E) (Q-REF1601 Q) - (WORK-REF1603 WORK)) - (%%CHBTRD VECT UPLO N-REF1595 KD-REF1596 AB-REF1597 LDAB-REF1598 - D-REF1599 E-REF1600 Q-REF1601 LDQ-REF1602 WORK-REF1603 - INFO-REF1604)))) - -(CFFI:DEFCFUN ("checon_" %%CHECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1514 ':INT32) (KD-REF1515 ':INT32) + (LDAB-REF1517 ':INT32) (LDQ-REF1521 ':INT32) + (INFO-REF1523 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1514 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1515 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1517 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF1521 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1523 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF1516 AB) (D-REF1518 D) + (E-REF1519 E) (Q-REF1520 Q) + (WORK-REF1522 WORK)) + (%%CHBTRD VECT UPLO N-REF1514 KD-REF1515 AB-REF1516 LDAB-REF1517 + D-REF1518 E-REF1519 Q-REF1520 LDQ-REF1521 WORK-REF1522 INFO-REF1523)))) + +(CFFI:DEFCFUN ("checon_" %%CHECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7886,21 +7876,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1606 ':INT32) (LDA-REF1608 ':INT32) - (ANORM-REF1610 ':FLOAT) (RCOND-REF1611 ':FLOAT) - (INFO-REF1613 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1606 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1608 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1610 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1611 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1613 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1607 A) (IPIV-REF1609 IPIV) - (WORK-REF1612 WORK)) - (%%CHECON UPLO N-REF1606 A-REF1607 LDA-REF1608 IPIV-REF1609 ANORM-REF1610 - RCOND-REF1611 WORK-REF1612 INFO-REF1613)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1525 ':INT32) (LDA-REF1527 ':INT32) + (ANORM-REF1529 ':FLOAT) (RCOND-REF1530 ':FLOAT) + (INFO-REF1532 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1525 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1527 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1529 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1530 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1532 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1526 A) (IPIV-REF1528 IPIV) + (WORK-REF1531 WORK)) + (%%CHECON UPLO N-REF1525 A-REF1526 LDA-REF1527 IPIV-REF1528 ANORM-REF1529 + RCOND-REF1530 WORK-REF1531 INFO-REF1532)))) (CFFI:DEFCFUN ("checon_3_" %%CHECON_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7940,22 +7930,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1615 ':INT32) (LDA-REF1617 ':INT32) - (ANORM-REF1620 ':FLOAT) (RCOND-REF1621 ':FLOAT) - (INFO-REF1623 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1615 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1617 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1620 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1621 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1623 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1616 A) (E-REF1618 E) - (IPIV-REF1619 IPIV) - (WORK-REF1622 WORK)) - (%%CHECON_3 UPLO N-REF1615 A-REF1616 LDA-REF1617 E-REF1618 IPIV-REF1619 - ANORM-REF1620 RCOND-REF1621 WORK-REF1622 INFO-REF1623)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1534 ':INT32) (LDA-REF1536 ':INT32) + (ANORM-REF1539 ':FLOAT) (RCOND-REF1540 ':FLOAT) + (INFO-REF1542 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1534 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1536 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1539 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1540 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1542 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1535 A) (E-REF1537 E) + (IPIV-REF1538 IPIV) + (WORK-REF1541 WORK)) + (%%CHECON_3 UPLO N-REF1534 A-REF1535 LDA-REF1536 E-REF1537 IPIV-REF1538 + ANORM-REF1539 RCOND-REF1540 WORK-REF1541 INFO-REF1542)))) (CFFI:DEFCFUN ("checon_rook_" %%CHECON_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7989,20 +7979,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1625 ':INT32) (LDA-REF1627 ':INT32) - (ANORM-REF1629 ':FLOAT) (RCOND-REF1630 ':FLOAT) - (INFO-REF1632 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1625 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1627 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1629 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1630 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1632 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1626 A) (IPIV-REF1628 IPIV) - (WORK-REF1631 WORK)) - (%%CHECON_ROOK UPLO N-REF1625 A-REF1626 LDA-REF1627 IPIV-REF1628 - ANORM-REF1629 RCOND-REF1630 WORK-REF1631 INFO-REF1632)))) - -(CFFI:DEFCFUN ("cheequb_" %%CHEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1544 ':INT32) (LDA-REF1546 ':INT32) + (ANORM-REF1548 ':FLOAT) (RCOND-REF1549 ':FLOAT) + (INFO-REF1551 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1544 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1546 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF1548 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1549 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1551 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1545 A) (IPIV-REF1547 IPIV) + (WORK-REF1550 WORK)) + (%%CHECON_ROOK UPLO N-REF1544 A-REF1545 LDA-REF1546 IPIV-REF1547 + ANORM-REF1548 RCOND-REF1549 WORK-REF1550 INFO-REF1551)))) + +(CFFI:DEFCFUN ("cheequb_" %%CHEEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8034,20 +8025,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1634 ':INT32) (LDA-REF1636 ':INT32) - (SCOND-REF1638 ':FLOAT) (AMAX-REF1639 ':FLOAT) - (INFO-REF1641 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1634 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1636 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF1638 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF1639 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1641 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1635 A) (S-REF1637 S) - (WORK-REF1640 WORK)) - (%%CHEEQUB UPLO N-REF1634 A-REF1635 LDA-REF1636 S-REF1637 SCOND-REF1638 - AMAX-REF1639 WORK-REF1640 INFO-REF1641)))) - -(CFFI:DEFCFUN ("cheev_" %%CHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1553 ':INT32) (LDA-REF1555 ':INT32) + (SCOND-REF1557 ':FLOAT) (AMAX-REF1558 ':FLOAT) + (INFO-REF1560 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1553 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1555 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF1557 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF1558 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1560 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1554 A) (S-REF1556 S) + (WORK-REF1559 WORK)) + (%%CHEEQUB UPLO N-REF1553 A-REF1554 LDA-REF1555 S-REF1556 SCOND-REF1557 + AMAX-REF1558 WORK-REF1559 INFO-REF1560)))) + +(CFFI:DEFCFUN ("cheev_" %%CHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8083,20 +8074,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1644 ':INT32) (LDA-REF1646 ':INT32) - (LWORK-REF1649 ':INT32) (INFO-REF1651 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1644 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1646 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1649 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1651 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1645 A) (W-REF1647 W) - (WORK-REF1648 WORK) - (RWORK-REF1650 RWORK)) - (%%CHEEV JOBZ UPLO N-REF1644 A-REF1645 LDA-REF1646 W-REF1647 WORK-REF1648 - LWORK-REF1649 RWORK-REF1650 INFO-REF1651)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1563 ':INT32) (LDA-REF1565 ':INT32) + (LWORK-REF1568 ':INT32) (INFO-REF1570 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1563 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1565 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1568 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1570 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1564 A) (W-REF1566 W) + (WORK-REF1567 WORK) + (RWORK-REF1569 RWORK)) + (%%CHEEV JOBZ UPLO N-REF1563 A-REF1564 LDA-REF1565 W-REF1566 WORK-REF1567 + LWORK-REF1568 RWORK-REF1569 INFO-REF1570)))) (CFFI:DEFCFUN ("cheev_2stage_" %%CHEEV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8132,19 +8123,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1654 ':INT32) (LDA-REF1656 ':INT32) - (LWORK-REF1659 ':INT32) (INFO-REF1661 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1654 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1656 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1659 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1661 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1655 A) (W-REF1657 W) - (WORK-REF1658 WORK) - (RWORK-REF1660 RWORK)) - (%%CHEEV_2STAGE JOBZ UPLO N-REF1654 A-REF1655 LDA-REF1656 W-REF1657 - WORK-REF1658 LWORK-REF1659 RWORK-REF1660 INFO-REF1661)))) - -(CFFI:DEFCFUN ("cheevd_" %%CHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1573 ':INT32) (LDA-REF1575 ':INT32) + (LWORK-REF1578 ':INT32) (INFO-REF1580 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1573 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1575 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1578 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1580 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1574 A) (W-REF1576 W) + (WORK-REF1577 WORK) + (RWORK-REF1579 RWORK)) + (%%CHEEV_2STAGE JOBZ UPLO N-REF1573 A-REF1574 LDA-REF1575 W-REF1576 + WORK-REF1577 LWORK-REF1578 RWORK-REF1579 INFO-REF1580)))) + +(CFFI:DEFCFUN ("cheevd_" %%CHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8191,25 +8182,25 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1664 ':INT32) (LDA-REF1666 ':INT32) - (LWORK-REF1669 ':INT32) (LRWORK-REF1671 ':INT32) - (LIWORK-REF1673 ':INT32) (INFO-REF1674 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1664 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1666 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1669 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1671 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1673 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1674 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1665 A) (W-REF1667 W) - (WORK-REF1668 WORK) - (RWORK-REF1670 RWORK) - (IWORK-REF1672 IWORK)) - (%%CHEEVD JOBZ UPLO N-REF1664 A-REF1665 LDA-REF1666 W-REF1667 - WORK-REF1668 LWORK-REF1669 RWORK-REF1670 LRWORK-REF1671 - IWORK-REF1672 LIWORK-REF1673 INFO-REF1674)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1583 ':INT32) (LDA-REF1585 ':INT32) + (LWORK-REF1588 ':INT32) (LRWORK-REF1590 ':INT32) + (LIWORK-REF1592 ':INT32) (INFO-REF1593 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1583 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1585 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1588 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1590 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1592 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1593 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1584 A) (W-REF1586 W) + (WORK-REF1587 WORK) + (RWORK-REF1589 RWORK) + (IWORK-REF1591 IWORK)) + (%%CHEEVD JOBZ UPLO N-REF1583 A-REF1584 LDA-REF1585 W-REF1586 + WORK-REF1587 LWORK-REF1588 RWORK-REF1589 LRWORK-REF1590 IWORK-REF1591 + LIWORK-REF1592 INFO-REF1593)))) (CFFI:DEFCFUN ("cheevd_2stage_" %%CHEEVD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8256,24 +8247,24 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1677 ':INT32) (LDA-REF1679 ':INT32) - (LWORK-REF1682 ':INT32) (LRWORK-REF1684 ':INT32) - (LIWORK-REF1686 ':INT32) (INFO-REF1687 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1677 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1679 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1682 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1684 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1686 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1687 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1678 A) (W-REF1680 W) - (WORK-REF1681 WORK) - (RWORK-REF1683 RWORK) - (IWORK-REF1685 IWORK)) - (%%CHEEVD_2STAGE JOBZ UPLO N-REF1677 A-REF1678 LDA-REF1679 W-REF1680 - WORK-REF1681 LWORK-REF1682 RWORK-REF1683 LRWORK-REF1684 - IWORK-REF1685 LIWORK-REF1686 INFO-REF1687)))) - -(CFFI:DEFCFUN ("cheevr_" %%CHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1596 ':INT32) (LDA-REF1598 ':INT32) + (LWORK-REF1601 ':INT32) (LRWORK-REF1603 ':INT32) + (LIWORK-REF1605 ':INT32) (INFO-REF1606 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1596 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1598 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1601 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1603 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1605 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1606 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1597 A) (W-REF1599 W) + (WORK-REF1600 WORK) + (RWORK-REF1602 RWORK) + (IWORK-REF1604 IWORK)) + (%%CHEEVD_2STAGE JOBZ UPLO N-REF1596 A-REF1597 LDA-REF1598 W-REF1599 + WORK-REF1600 LWORK-REF1601 RWORK-REF1602 LRWORK-REF1603 IWORK-REF1604 + LIWORK-REF1605 INFO-REF1606)))) + +(CFFI:DEFCFUN ("cheevr_" %%CHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8347,40 +8338,40 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1691 ':INT32) (LDA-REF1693 ':INT32) - (VL-REF1694 ':FLOAT) (VU-REF1695 ':FLOAT) - (IL-REF1696 ':INT32) (IU-REF1697 ':INT32) - (ABSTOL-REF1698 ':FLOAT) (M-REF1699 ':INT32) - (LDZ-REF1702 ':INT32) (LWORK-REF1705 ':INT32) - (LRWORK-REF1707 ':INT32) (LIWORK-REF1709 ':INT32) - (INFO-REF1710 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1691 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1693 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1694 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1695 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1696 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1697 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1698 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1699 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1702 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1705 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1707 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1709 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1710 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1692 A) (W-REF1700 W) - (Z-REF1701 Z) - (ISUPPZ-REF1703 ISUPPZ) - (WORK-REF1704 WORK) - (RWORK-REF1706 RWORK) - (IWORK-REF1708 IWORK)) - (%%CHEEVR JOBZ RANGE UPLO N-REF1691 A-REF1692 LDA-REF1693 VL-REF1694 - VU-REF1695 IL-REF1696 IU-REF1697 ABSTOL-REF1698 M-REF1699 - W-REF1700 Z-REF1701 LDZ-REF1702 ISUPPZ-REF1703 WORK-REF1704 - LWORK-REF1705 RWORK-REF1706 LRWORK-REF1707 IWORK-REF1708 - LIWORK-REF1709 INFO-REF1710)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1610 ':INT32) (LDA-REF1612 ':INT32) + (VL-REF1613 ':FLOAT) (VU-REF1614 ':FLOAT) + (IL-REF1615 ':INT32) (IU-REF1616 ':INT32) + (ABSTOL-REF1617 ':FLOAT) (M-REF1618 ':INT32) + (LDZ-REF1621 ':INT32) (LWORK-REF1624 ':INT32) + (LRWORK-REF1626 ':INT32) (LIWORK-REF1628 ':INT32) + (INFO-REF1629 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1610 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1612 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1613 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1614 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1615 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1616 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1617 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1618 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1621 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1624 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1626 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1628 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1629 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1611 A) (W-REF1619 W) + (Z-REF1620 Z) + (ISUPPZ-REF1622 ISUPPZ) + (WORK-REF1623 WORK) + (RWORK-REF1625 RWORK) + (IWORK-REF1627 IWORK)) + (%%CHEEVR JOBZ RANGE UPLO N-REF1610 A-REF1611 LDA-REF1612 VL-REF1613 + VU-REF1614 IL-REF1615 IU-REF1616 ABSTOL-REF1617 M-REF1618 W-REF1619 + Z-REF1620 LDZ-REF1621 ISUPPZ-REF1622 WORK-REF1623 LWORK-REF1624 + RWORK-REF1625 LRWORK-REF1626 IWORK-REF1627 LIWORK-REF1628 + INFO-REF1629)))) (CFFI:DEFCFUN ("cheevr_2stage_" %%CHEEVR_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8454,40 +8445,39 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1714 ':INT32) (LDA-REF1716 ':INT32) - (VL-REF1717 ':FLOAT) (VU-REF1718 ':FLOAT) - (IL-REF1719 ':INT32) (IU-REF1720 ':INT32) - (ABSTOL-REF1721 ':FLOAT) (M-REF1722 ':INT32) - (LDZ-REF1725 ':INT32) (LWORK-REF1728 ':INT32) - (LRWORK-REF1730 ':INT32) (LIWORK-REF1732 ':INT32) - (INFO-REF1733 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1714 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1716 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1717 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1718 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1719 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1720 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1721 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1722 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1725 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1728 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1730 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1732 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1733 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1715 A) (W-REF1723 W) - (Z-REF1724 Z) - (ISUPPZ-REF1726 ISUPPZ) - (WORK-REF1727 WORK) - (RWORK-REF1729 RWORK) - (IWORK-REF1731 IWORK)) - (%%CHEEVR_2STAGE JOBZ RANGE UPLO N-REF1714 A-REF1715 LDA-REF1716 - VL-REF1717 VU-REF1718 IL-REF1719 IU-REF1720 - ABSTOL-REF1721 M-REF1722 W-REF1723 Z-REF1724 LDZ-REF1725 - ISUPPZ-REF1726 WORK-REF1727 LWORK-REF1728 RWORK-REF1729 - LRWORK-REF1730 IWORK-REF1731 LIWORK-REF1732 - INFO-REF1733)))) - -(CFFI:DEFCFUN ("cheevx_" %%CHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1633 ':INT32) (LDA-REF1635 ':INT32) + (VL-REF1636 ':FLOAT) (VU-REF1637 ':FLOAT) + (IL-REF1638 ':INT32) (IU-REF1639 ':INT32) + (ABSTOL-REF1640 ':FLOAT) (M-REF1641 ':INT32) + (LDZ-REF1644 ':INT32) (LWORK-REF1647 ':INT32) + (LRWORK-REF1649 ':INT32) (LIWORK-REF1651 ':INT32) + (INFO-REF1652 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1633 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1635 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1636 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1637 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1638 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1639 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1640 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1641 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1644 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1647 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1649 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1651 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1652 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1634 A) (W-REF1642 W) + (Z-REF1643 Z) + (ISUPPZ-REF1645 ISUPPZ) + (WORK-REF1646 WORK) + (RWORK-REF1648 RWORK) + (IWORK-REF1650 IWORK)) + (%%CHEEVR_2STAGE JOBZ RANGE UPLO N-REF1633 A-REF1634 LDA-REF1635 + VL-REF1636 VU-REF1637 IL-REF1638 IU-REF1639 ABSTOL-REF1640 M-REF1641 + W-REF1642 Z-REF1643 LDZ-REF1644 ISUPPZ-REF1645 WORK-REF1646 + LWORK-REF1647 RWORK-REF1648 LRWORK-REF1649 IWORK-REF1650 LIWORK-REF1651 + INFO-REF1652)))) + +(CFFI:DEFCFUN ("cheevx_" %%CHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8557,35 +8547,35 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1737 ':INT32) (LDA-REF1739 ':INT32) - (VL-REF1740 ':FLOAT) (VU-REF1741 ':FLOAT) - (IL-REF1742 ':INT32) (IU-REF1743 ':INT32) - (ABSTOL-REF1744 ':FLOAT) (M-REF1745 ':INT32) - (LDZ-REF1748 ':INT32) (LWORK-REF1750 ':INT32) - (INFO-REF1754 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1737 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1739 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1740 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1741 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1742 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1743 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1744 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1745 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1748 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1750 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1754 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1738 A) (W-REF1746 W) - (Z-REF1747 Z) (WORK-REF1749 WORK) - (RWORK-REF1751 RWORK) - (IWORK-REF1752 IWORK) - (IFAIL-REF1753 IFAIL)) - (%%CHEEVX JOBZ RANGE UPLO N-REF1737 A-REF1738 LDA-REF1739 VL-REF1740 - VU-REF1741 IL-REF1742 IU-REF1743 ABSTOL-REF1744 M-REF1745 - W-REF1746 Z-REF1747 LDZ-REF1748 WORK-REF1749 LWORK-REF1750 - RWORK-REF1751 IWORK-REF1752 IFAIL-REF1753 INFO-REF1754)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1656 ':INT32) (LDA-REF1658 ':INT32) + (VL-REF1659 ':FLOAT) (VU-REF1660 ':FLOAT) + (IL-REF1661 ':INT32) (IU-REF1662 ':INT32) + (ABSTOL-REF1663 ':FLOAT) (M-REF1664 ':INT32) + (LDZ-REF1667 ':INT32) (LWORK-REF1669 ':INT32) + (INFO-REF1673 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1656 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1658 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1659 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1660 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1661 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1662 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1663 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1664 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1667 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1669 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1673 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1657 A) (W-REF1665 W) + (Z-REF1666 Z) (WORK-REF1668 WORK) + (RWORK-REF1670 RWORK) + (IWORK-REF1671 IWORK) + (IFAIL-REF1672 IFAIL)) + (%%CHEEVX JOBZ RANGE UPLO N-REF1656 A-REF1657 LDA-REF1658 VL-REF1659 + VU-REF1660 IL-REF1661 IU-REF1662 ABSTOL-REF1663 M-REF1664 W-REF1665 + Z-REF1666 LDZ-REF1667 WORK-REF1668 LWORK-REF1669 RWORK-REF1670 + IWORK-REF1671 IFAIL-REF1672 INFO-REF1673)))) (CFFI:DEFCFUN ("cheevx_2stage_" %%CHEEVX_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8655,35 +8645,34 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1758 ':INT32) (LDA-REF1760 ':INT32) - (VL-REF1761 ':FLOAT) (VU-REF1762 ':FLOAT) - (IL-REF1763 ':INT32) (IU-REF1764 ':INT32) - (ABSTOL-REF1765 ':FLOAT) (M-REF1766 ':INT32) - (LDZ-REF1769 ':INT32) (LWORK-REF1771 ':INT32) - (INFO-REF1775 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1758 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1760 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1761 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1762 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1763 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1764 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1765 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1766 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1769 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1771 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1775 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1759 A) (W-REF1767 W) - (Z-REF1768 Z) (WORK-REF1770 WORK) - (RWORK-REF1772 RWORK) - (IWORK-REF1773 IWORK) - (IFAIL-REF1774 IFAIL)) - (%%CHEEVX_2STAGE JOBZ RANGE UPLO N-REF1758 A-REF1759 LDA-REF1760 - VL-REF1761 VU-REF1762 IL-REF1763 IU-REF1764 - ABSTOL-REF1765 M-REF1766 W-REF1767 Z-REF1768 LDZ-REF1769 - WORK-REF1770 LWORK-REF1771 RWORK-REF1772 IWORK-REF1773 - IFAIL-REF1774 INFO-REF1775)))) - -(CFFI:DEFCFUN ("chegs2_" %%CHEGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1677 ':INT32) (LDA-REF1679 ':INT32) + (VL-REF1680 ':FLOAT) (VU-REF1681 ':FLOAT) + (IL-REF1682 ':INT32) (IU-REF1683 ':INT32) + (ABSTOL-REF1684 ':FLOAT) (M-REF1685 ':INT32) + (LDZ-REF1688 ':INT32) (LWORK-REF1690 ':INT32) + (INFO-REF1694 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1677 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1679 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1680 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1681 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1682 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1683 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1684 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1685 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1688 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1690 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1694 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1678 A) (W-REF1686 W) + (Z-REF1687 Z) (WORK-REF1689 WORK) + (RWORK-REF1691 RWORK) + (IWORK-REF1692 IWORK) + (IFAIL-REF1693 IFAIL)) + (%%CHEEVX_2STAGE JOBZ RANGE UPLO N-REF1677 A-REF1678 LDA-REF1679 + VL-REF1680 VU-REF1681 IL-REF1682 IU-REF1683 ABSTOL-REF1684 M-REF1685 + W-REF1686 Z-REF1687 LDZ-REF1688 WORK-REF1689 LWORK-REF1690 RWORK-REF1691 + IWORK-REF1692 IFAIL-REF1693 INFO-REF1694)))) + +(CFFI:DEFCFUN ("chegs2_" %%CHEGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -8712,19 +8701,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1776 ':INT32) (N-REF1778 ':INT32) - (LDA-REF1780 ':INT32) (LDB-REF1782 ':INT32) - (INFO-REF1783 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1776 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1778 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1780 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1782 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1783 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1779 A) (B-REF1781 B)) - (%%CHEGS2 ITYPE-REF1776 UPLO N-REF1778 A-REF1779 LDA-REF1780 B-REF1781 - LDB-REF1782 INFO-REF1783)))) - -(CFFI:DEFCFUN ("chegst_" %%CHEGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1695 ':INT32) (N-REF1697 ':INT32) + (LDA-REF1699 ':INT32) (LDB-REF1701 ':INT32) + (INFO-REF1702 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1695 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1697 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1699 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1701 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1702 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1698 A) (B-REF1700 B)) + (%%CHEGS2 ITYPE-REF1695 UPLO N-REF1697 A-REF1698 LDA-REF1699 B-REF1700 + LDB-REF1701 INFO-REF1702)))) + +(CFFI:DEFCFUN ("chegst_" %%CHEGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -8753,19 +8742,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1784 ':INT32) (N-REF1786 ':INT32) - (LDA-REF1788 ':INT32) (LDB-REF1790 ':INT32) - (INFO-REF1791 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1784 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1786 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1788 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1790 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1791 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1787 A) (B-REF1789 B)) - (%%CHEGST ITYPE-REF1784 UPLO N-REF1786 A-REF1787 LDA-REF1788 B-REF1789 - LDB-REF1790 INFO-REF1791)))) - -(CFFI:DEFCFUN ("chegv_" %%CHEGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1703 ':INT32) (N-REF1705 ':INT32) + (LDA-REF1707 ':INT32) (LDB-REF1709 ':INT32) + (INFO-REF1710 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1703 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1705 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1707 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1709 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1710 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1706 A) (B-REF1708 B)) + (%%CHEGST ITYPE-REF1703 UPLO N-REF1705 A-REF1706 LDA-REF1707 B-REF1708 + LDB-REF1709 INFO-REF1710)))) + +(CFFI:DEFCFUN ("chegv_" %%CHEGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8812,24 +8801,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1792 ':INT32) (N-REF1795 ':INT32) - (LDA-REF1797 ':INT32) (LDB-REF1799 ':INT32) - (LWORK-REF1802 ':INT32) (INFO-REF1804 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1792 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1795 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1797 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1799 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1802 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1804 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1796 A) (B-REF1798 B) - (W-REF1800 W) (WORK-REF1801 WORK) - (RWORK-REF1803 RWORK)) - (%%CHEGV ITYPE-REF1792 JOBZ UPLO N-REF1795 A-REF1796 LDA-REF1797 - B-REF1798 LDB-REF1799 W-REF1800 WORK-REF1801 LWORK-REF1802 - RWORK-REF1803 INFO-REF1804)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1711 ':INT32) (N-REF1714 ':INT32) + (LDA-REF1716 ':INT32) (LDB-REF1718 ':INT32) + (LWORK-REF1721 ':INT32) (INFO-REF1723 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1711 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1714 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1716 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1718 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1721 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1723 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1715 A) (B-REF1717 B) + (W-REF1719 W) (WORK-REF1720 WORK) + (RWORK-REF1722 RWORK)) + (%%CHEGV ITYPE-REF1711 JOBZ UPLO N-REF1714 A-REF1715 LDA-REF1716 + B-REF1717 LDB-REF1718 W-REF1719 WORK-REF1720 LWORK-REF1721 RWORK-REF1722 + INFO-REF1723)))) (CFFI:DEFCFUN ("chegv_2stage_" %%CHEGV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8876,23 +8865,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1805 ':INT32) (N-REF1808 ':INT32) - (LDA-REF1810 ':INT32) (LDB-REF1812 ':INT32) - (LWORK-REF1815 ':INT32) (INFO-REF1817 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1805 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1808 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1810 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1812 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1815 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1817 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1809 A) (B-REF1811 B) - (W-REF1813 W) (WORK-REF1814 WORK) - (RWORK-REF1816 RWORK)) - (%%CHEGV_2STAGE ITYPE-REF1805 JOBZ UPLO N-REF1808 A-REF1809 LDA-REF1810 - B-REF1811 LDB-REF1812 W-REF1813 WORK-REF1814 - LWORK-REF1815 RWORK-REF1816 INFO-REF1817)))) - -(CFFI:DEFCFUN ("chegvd_" %%CHEGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1724 ':INT32) (N-REF1727 ':INT32) + (LDA-REF1729 ':INT32) (LDB-REF1731 ':INT32) + (LWORK-REF1734 ':INT32) (INFO-REF1736 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1724 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1727 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1729 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1731 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1734 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1736 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1728 A) (B-REF1730 B) + (W-REF1732 W) (WORK-REF1733 WORK) + (RWORK-REF1735 RWORK)) + (%%CHEGV_2STAGE ITYPE-REF1724 JOBZ UPLO N-REF1727 A-REF1728 LDA-REF1729 + B-REF1730 LDB-REF1731 W-REF1732 WORK-REF1733 LWORK-REF1734 RWORK-REF1735 + INFO-REF1736)))) + +(CFFI:DEFCFUN ("chegvd_" %%CHEGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8949,28 +8938,27 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1818 ':INT32) (N-REF1821 ':INT32) - (LDA-REF1823 ':INT32) (LDB-REF1825 ':INT32) - (LWORK-REF1828 ':INT32) (LRWORK-REF1830 ':INT32) - (LIWORK-REF1832 ':INT32) (INFO-REF1833 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1818 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1821 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1823 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1825 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1828 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1830 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1832 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1833 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1822 A) (B-REF1824 B) - (W-REF1826 W) (WORK-REF1827 WORK) - (RWORK-REF1829 RWORK) - (IWORK-REF1831 IWORK)) - (%%CHEGVD ITYPE-REF1818 JOBZ UPLO N-REF1821 A-REF1822 LDA-REF1823 - B-REF1824 LDB-REF1825 W-REF1826 WORK-REF1827 LWORK-REF1828 - RWORK-REF1829 LRWORK-REF1830 IWORK-REF1831 LIWORK-REF1832 - INFO-REF1833)))) - -(CFFI:DEFCFUN ("chegvx_" %%CHEGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1737 ':INT32) (N-REF1740 ':INT32) + (LDA-REF1742 ':INT32) (LDB-REF1744 ':INT32) + (LWORK-REF1747 ':INT32) (LRWORK-REF1749 ':INT32) + (LIWORK-REF1751 ':INT32) (INFO-REF1752 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1737 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1740 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1742 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1744 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1747 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF1749 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF1751 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1752 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1741 A) (B-REF1743 B) + (W-REF1745 W) (WORK-REF1746 WORK) + (RWORK-REF1748 RWORK) + (IWORK-REF1750 IWORK)) + (%%CHEGVD ITYPE-REF1737 JOBZ UPLO N-REF1740 A-REF1741 LDA-REF1742 + B-REF1743 LDB-REF1744 W-REF1745 WORK-REF1746 LWORK-REF1747 RWORK-REF1748 + LRWORK-REF1749 IWORK-REF1750 LIWORK-REF1751 INFO-REF1752)))) + +(CFFI:DEFCFUN ("chegvx_" %%CHEGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -9050,39 +9038,38 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1834 ':INT32) (N-REF1838 ':INT32) - (LDA-REF1840 ':INT32) (LDB-REF1842 ':INT32) - (VL-REF1843 ':FLOAT) (VU-REF1844 ':FLOAT) - (IL-REF1845 ':INT32) (IU-REF1846 ':INT32) - (ABSTOL-REF1847 ':FLOAT) (M-REF1848 ':INT32) - (LDZ-REF1851 ':INT32) (LWORK-REF1853 ':INT32) - (INFO-REF1857 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1834 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1838 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1840 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1842 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1843 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1844 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1845 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1846 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1847 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1848 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1851 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1853 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1857 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1839 A) (B-REF1841 B) - (W-REF1849 W) (Z-REF1850 Z) - (WORK-REF1852 WORK) - (RWORK-REF1854 RWORK) - (IWORK-REF1855 IWORK) - (IFAIL-REF1856 IFAIL)) - (%%CHEGVX ITYPE-REF1834 JOBZ RANGE UPLO N-REF1838 A-REF1839 LDA-REF1840 - B-REF1841 LDB-REF1842 VL-REF1843 VU-REF1844 IL-REF1845 - IU-REF1846 ABSTOL-REF1847 M-REF1848 W-REF1849 Z-REF1850 - LDZ-REF1851 WORK-REF1852 LWORK-REF1853 RWORK-REF1854 - IWORK-REF1855 IFAIL-REF1856 INFO-REF1857)))) - -(CFFI:DEFCFUN ("cherfs_" %%CHERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF1753 ':INT32) (N-REF1757 ':INT32) + (LDA-REF1759 ':INT32) (LDB-REF1761 ':INT32) + (VL-REF1762 ':FLOAT) (VU-REF1763 ':FLOAT) + (IL-REF1764 ':INT32) (IU-REF1765 ':INT32) + (ABSTOL-REF1766 ':FLOAT) (M-REF1767 ':INT32) + (LDZ-REF1770 ':INT32) (LWORK-REF1772 ':INT32) + (INFO-REF1776 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF1753 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1757 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1759 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1761 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF1762 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF1763 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF1764 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF1765 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF1766 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF1767 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF1770 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1772 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1776 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1758 A) (B-REF1760 B) + (W-REF1768 W) (Z-REF1769 Z) + (WORK-REF1771 WORK) + (RWORK-REF1773 RWORK) + (IWORK-REF1774 IWORK) + (IFAIL-REF1775 IFAIL)) + (%%CHEGVX ITYPE-REF1753 JOBZ RANGE UPLO N-REF1757 A-REF1758 LDA-REF1759 + B-REF1760 LDB-REF1761 VL-REF1762 VU-REF1763 IL-REF1764 IU-REF1765 + ABSTOL-REF1766 M-REF1767 W-REF1768 Z-REF1769 LDZ-REF1770 WORK-REF1771 + LWORK-REF1772 RWORK-REF1773 IWORK-REF1774 IFAIL-REF1775 INFO-REF1776)))) + +(CFFI:DEFCFUN ("cherfs_" %%CHERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9152,29 +9139,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1859 ':INT32) (NRHS-REF1860 ':INT32) - (LDA-REF1862 ':INT32) (LDAF-REF1864 ':INT32) - (LDB-REF1867 ':INT32) (LDX-REF1869 ':INT32) - (INFO-REF1874 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1859 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1860 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1862 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1864 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1867 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1869 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1874 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1861 A) (AF-REF1863 AF) - (IPIV-REF1865 IPIV) (B-REF1866 B) - (X-REF1868 X) (FERR-REF1870 FERR) - (BERR-REF1871 BERR) - (WORK-REF1872 WORK) - (RWORK-REF1873 RWORK)) - (%%CHERFS UPLO N-REF1859 NRHS-REF1860 A-REF1861 LDA-REF1862 AF-REF1863 - LDAF-REF1864 IPIV-REF1865 B-REF1866 LDB-REF1867 X-REF1868 - LDX-REF1869 FERR-REF1870 BERR-REF1871 WORK-REF1872 - RWORK-REF1873 INFO-REF1874)))) - -(CFFI:DEFCFUN ("cherfsx_" %%CHERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1778 ':INT32) (NRHS-REF1779 ':INT32) + (LDA-REF1781 ':INT32) (LDAF-REF1783 ':INT32) + (LDB-REF1786 ':INT32) (LDX-REF1788 ':INT32) + (INFO-REF1793 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1778 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1779 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1781 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1783 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1786 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1788 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1793 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1780 A) (AF-REF1782 AF) + (IPIV-REF1784 IPIV) (B-REF1785 B) + (X-REF1787 X) (FERR-REF1789 FERR) + (BERR-REF1790 BERR) + (WORK-REF1791 WORK) + (RWORK-REF1792 RWORK)) + (%%CHERFS UPLO N-REF1778 NRHS-REF1779 A-REF1780 LDA-REF1781 AF-REF1782 + LDAF-REF1783 IPIV-REF1784 B-REF1785 LDB-REF1786 X-REF1787 LDX-REF1788 + FERR-REF1789 BERR-REF1790 WORK-REF1791 RWORK-REF1792 INFO-REF1793)))) + +(CFFI:DEFCFUN ("cherfsx_" %%CHERFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -9265,41 +9252,40 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1877 ':INT32) (NRHS-REF1878 ':INT32) - (LDA-REF1880 ':INT32) (LDAF-REF1882 ':INT32) - (LDB-REF1886 ':INT32) (LDX-REF1888 ':INT32) - (RCOND-REF1889 ':FLOAT) - (N_ERR_BNDS-REF1891 ':INT32) - (NPARAMS-REF1894 ':INT32) (INFO-REF1898 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1877 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1878 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1880 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1882 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1886 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1888 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1889 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF1891 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF1894 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1898 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1879 A) (AF-REF1881 AF) - (IPIV-REF1883 IPIV) (S-REF1884 S) - (B-REF1885 B) (X-REF1887 X) - (BERR-REF1890 BERR) - (ERR_BNDS_NORM-REF1892 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1796 ':INT32) (NRHS-REF1797 ':INT32) + (LDA-REF1799 ':INT32) (LDAF-REF1801 ':INT32) + (LDB-REF1805 ':INT32) (LDX-REF1807 ':INT32) + (RCOND-REF1808 ':FLOAT) + (N_ERR_BNDS-REF1810 ':INT32) + (NPARAMS-REF1813 ':INT32) (INFO-REF1817 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1796 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1797 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1799 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1801 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1805 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1807 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1808 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF1810 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF1813 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1817 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1798 A) (AF-REF1800 AF) + (IPIV-REF1802 IPIV) (S-REF1803 S) + (B-REF1804 B) (X-REF1806 X) + (BERR-REF1809 BERR) + (ERR_BNDS_NORM-REF1811 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF1893 + (ERR_BNDS_COMP-REF1812 ERR_BNDS_COMP) - (PARAMS-REF1895 PARAMS) - (WORK-REF1896 WORK) - (RWORK-REF1897 RWORK)) - (%%CHERFSX UPLO EQUED N-REF1877 NRHS-REF1878 A-REF1879 LDA-REF1880 - AF-REF1881 LDAF-REF1882 IPIV-REF1883 S-REF1884 B-REF1885 - LDB-REF1886 X-REF1887 LDX-REF1888 RCOND-REF1889 BERR-REF1890 - N_ERR_BNDS-REF1891 ERR_BNDS_NORM-REF1892 ERR_BNDS_COMP-REF1893 - NPARAMS-REF1894 PARAMS-REF1895 WORK-REF1896 RWORK-REF1897 - INFO-REF1898)))) - -(CFFI:DEFCFUN ("chesv_" %%CHESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF1814 PARAMS) + (WORK-REF1815 WORK) + (RWORK-REF1816 RWORK)) + (%%CHERFSX UPLO EQUED N-REF1796 NRHS-REF1797 A-REF1798 LDA-REF1799 + AF-REF1800 LDAF-REF1801 IPIV-REF1802 S-REF1803 B-REF1804 LDB-REF1805 + X-REF1806 LDX-REF1807 RCOND-REF1808 BERR-REF1809 N_ERR_BNDS-REF1810 + ERR_BNDS_NORM-REF1811 ERR_BNDS_COMP-REF1812 NPARAMS-REF1813 + PARAMS-REF1814 WORK-REF1815 RWORK-REF1816 INFO-REF1817)))) + +(CFFI:DEFCFUN ("chesv_" %%CHESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9341,22 +9327,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1900 ':INT32) (NRHS-REF1901 ':INT32) - (LDA-REF1903 ':INT32) (LDB-REF1906 ':INT32) - (LWORK-REF1908 ':INT32) (INFO-REF1909 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1900 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1901 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1903 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1906 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1908 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1909 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1902 A) (IPIV-REF1904 IPIV) - (B-REF1905 B) (WORK-REF1907 WORK)) - (%%CHESV UPLO N-REF1900 NRHS-REF1901 A-REF1902 LDA-REF1903 IPIV-REF1904 - B-REF1905 LDB-REF1906 WORK-REF1907 LWORK-REF1908 INFO-REF1909)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1819 ':INT32) (NRHS-REF1820 ':INT32) + (LDA-REF1822 ':INT32) (LDB-REF1825 ':INT32) + (LWORK-REF1827 ':INT32) (INFO-REF1828 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1819 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1820 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1822 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1825 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1827 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1828 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1821 A) (IPIV-REF1823 IPIV) + (B-REF1824 B) (WORK-REF1826 WORK)) + (%%CHESV UPLO N-REF1819 NRHS-REF1820 A-REF1821 LDA-REF1822 IPIV-REF1823 + B-REF1824 LDB-REF1825 WORK-REF1826 LWORK-REF1827 INFO-REF1828)))) (CFFI:DEFCFUN ("chesv_aa_" %%CHESV_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9398,23 +9384,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1911 ':INT32) (NRHS-REF1912 ':INT32) - (LDA-REF1914 ':INT32) (LDB-REF1917 ':INT32) - (LWORK-REF1919 ':INT32) (INFO-REF1920 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1911 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1912 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1914 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1917 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1919 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1920 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1913 A) (IPIV-REF1915 IPIV) - (B-REF1916 B) (WORK-REF1918 WORK)) - (%%CHESV_AA UPLO N-REF1911 NRHS-REF1912 A-REF1913 LDA-REF1914 - IPIV-REF1915 B-REF1916 LDB-REF1917 WORK-REF1918 LWORK-REF1919 - INFO-REF1920)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1830 ':INT32) (NRHS-REF1831 ':INT32) + (LDA-REF1833 ':INT32) (LDB-REF1836 ':INT32) + (LWORK-REF1838 ':INT32) (INFO-REF1839 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1830 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1831 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1833 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1836 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1838 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1839 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1832 A) (IPIV-REF1834 IPIV) + (B-REF1835 B) (WORK-REF1837 WORK)) + (%%CHESV_AA UPLO N-REF1830 NRHS-REF1831 A-REF1832 LDA-REF1833 + IPIV-REF1834 B-REF1835 LDB-REF1836 WORK-REF1837 LWORK-REF1838 + INFO-REF1839)))) (CFFI:DEFCFUN ("chesv_aa_2stage_" %%CHESV_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9470,28 +9456,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1922 ':INT32) (NRHS-REF1923 ':INT32) - (LDA-REF1925 ':INT32) (LTB-REF1927 ':INT32) - (LDB-REF1931 ':INT32) (LWORK-REF1933 ':INT32) - (INFO-REF1934 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1922 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1923 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1925 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF1927 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1931 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1933 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1934 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1924 A) (TB-REF1926 TB) - (IPIV-REF1928 IPIV) - (IPIV2-REF1929 IPIV2) (B-REF1930 B) - (WORK-REF1932 WORK)) - (%%CHESV_AA_2STAGE UPLO N-REF1922 NRHS-REF1923 A-REF1924 LDA-REF1925 - TB-REF1926 LTB-REF1927 IPIV-REF1928 IPIV2-REF1929 - B-REF1930 LDB-REF1931 WORK-REF1932 LWORK-REF1933 - INFO-REF1934)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1841 ':INT32) (NRHS-REF1842 ':INT32) + (LDA-REF1844 ':INT32) (LTB-REF1846 ':INT32) + (LDB-REF1850 ':INT32) (LWORK-REF1852 ':INT32) + (INFO-REF1853 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1841 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1842 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1844 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF1846 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1850 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1852 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1853 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1843 A) (TB-REF1845 TB) + (IPIV-REF1847 IPIV) + (IPIV2-REF1848 IPIV2) (B-REF1849 B) + (WORK-REF1851 WORK)) + (%%CHESV_AA_2STAGE UPLO N-REF1841 NRHS-REF1842 A-REF1843 LDA-REF1844 + TB-REF1845 LTB-REF1846 IPIV-REF1847 IPIV2-REF1848 B-REF1849 LDB-REF1850 + WORK-REF1851 LWORK-REF1852 INFO-REF1853)))) (CFFI:DEFCFUN ("chesv_rk_" %%CHESV_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9539,24 +9524,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1936 ':INT32) (NRHS-REF1937 ':INT32) - (LDA-REF1939 ':INT32) (LDB-REF1943 ':INT32) - (LWORK-REF1945 ':INT32) (INFO-REF1946 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1936 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1937 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1939 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1943 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1945 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1946 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1938 A) (E-REF1940 E) - (IPIV-REF1941 IPIV) (B-REF1942 B) - (WORK-REF1944 WORK)) - (%%CHESV_RK UPLO N-REF1936 NRHS-REF1937 A-REF1938 LDA-REF1939 E-REF1940 - IPIV-REF1941 B-REF1942 LDB-REF1943 WORK-REF1944 LWORK-REF1945 - INFO-REF1946)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1855 ':INT32) (NRHS-REF1856 ':INT32) + (LDA-REF1858 ':INT32) (LDB-REF1862 ':INT32) + (LWORK-REF1864 ':INT32) (INFO-REF1865 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1855 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1856 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1858 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1862 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1864 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1865 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1857 A) (E-REF1859 E) + (IPIV-REF1860 IPIV) (B-REF1861 B) + (WORK-REF1863 WORK)) + (%%CHESV_RK UPLO N-REF1855 NRHS-REF1856 A-REF1857 LDA-REF1858 E-REF1859 + IPIV-REF1860 B-REF1861 LDB-REF1862 WORK-REF1863 LWORK-REF1864 + INFO-REF1865)))) (CFFI:DEFCFUN ("chesv_rook_" %%CHESV_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9598,22 +9583,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1948 ':INT32) (NRHS-REF1949 ':INT32) - (LDA-REF1951 ':INT32) (LDB-REF1954 ':INT32) - (LWORK-REF1956 ':INT32) (INFO-REF1957 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1948 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1949 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1951 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1954 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1956 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1957 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1950 A) (IPIV-REF1952 IPIV) - (B-REF1953 B) (WORK-REF1955 WORK)) - (%%CHESV_ROOK UPLO N-REF1948 NRHS-REF1949 A-REF1950 LDA-REF1951 - IPIV-REF1952 B-REF1953 LDB-REF1954 WORK-REF1955 - LWORK-REF1956 INFO-REF1957)))) - -(CFFI:DEFCFUN ("chesvx_" %%CHESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1867 ':INT32) (NRHS-REF1868 ':INT32) + (LDA-REF1870 ':INT32) (LDB-REF1873 ':INT32) + (LWORK-REF1875 ':INT32) (INFO-REF1876 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1867 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1868 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1870 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1873 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1875 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1876 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1869 A) (IPIV-REF1871 IPIV) + (B-REF1872 B) (WORK-REF1874 WORK)) + (%%CHESV_ROOK UPLO N-REF1867 NRHS-REF1868 A-REF1869 LDA-REF1870 + IPIV-REF1871 B-REF1872 LDB-REF1873 WORK-REF1874 LWORK-REF1875 + INFO-REF1876)))) + +(CFFI:DEFCFUN ("chesvx_" %%CHESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -9689,32 +9674,33 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1960 ':INT32) (NRHS-REF1961 ':INT32) - (LDA-REF1963 ':INT32) (LDAF-REF1965 ':INT32) - (LDB-REF1968 ':INT32) (LDX-REF1970 ':INT32) - (RCOND-REF1971 ':FLOAT) (LWORK-REF1975 ':INT32) - (INFO-REF1977 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1960 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1961 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1963 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1965 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1968 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1970 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1971 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1975 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1977 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1962 A) (AF-REF1964 AF) - (IPIV-REF1966 IPIV) (B-REF1967 B) - (X-REF1969 X) (FERR-REF1972 FERR) - (BERR-REF1973 BERR) - (WORK-REF1974 WORK) - (RWORK-REF1976 RWORK)) - (%%CHESVX FACT UPLO N-REF1960 NRHS-REF1961 A-REF1962 LDA-REF1963 - AF-REF1964 LDAF-REF1965 IPIV-REF1966 B-REF1967 LDB-REF1968 - X-REF1969 LDX-REF1970 RCOND-REF1971 FERR-REF1972 BERR-REF1973 - WORK-REF1974 LWORK-REF1975 RWORK-REF1976 INFO-REF1977)))) - -(CFFI:DEFCFUN ("chesvxx_" %%CHESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1879 ':INT32) (NRHS-REF1880 ':INT32) + (LDA-REF1882 ':INT32) (LDAF-REF1884 ':INT32) + (LDB-REF1887 ':INT32) (LDX-REF1889 ':INT32) + (RCOND-REF1890 ':FLOAT) (LWORK-REF1894 ':INT32) + (INFO-REF1896 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1879 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1880 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1882 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1884 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1887 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1889 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1890 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1894 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1896 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1881 A) (AF-REF1883 AF) + (IPIV-REF1885 IPIV) (B-REF1886 B) + (X-REF1888 X) (FERR-REF1891 FERR) + (BERR-REF1892 BERR) + (WORK-REF1893 WORK) + (RWORK-REF1895 RWORK)) + (%%CHESVX FACT UPLO N-REF1879 NRHS-REF1880 A-REF1881 LDA-REF1882 + AF-REF1883 LDAF-REF1884 IPIV-REF1885 B-REF1886 LDB-REF1887 X-REF1888 + LDX-REF1889 RCOND-REF1890 FERR-REF1891 BERR-REF1892 WORK-REF1893 + LWORK-REF1894 RWORK-REF1895 INFO-REF1896)))) + +(CFFI:DEFCFUN ("chesvxx_" %%CHESVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -9809,43 +9795,43 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1980 ':INT32) (NRHS-REF1981 ':INT32) - (LDA-REF1983 ':INT32) (LDAF-REF1985 ':INT32) - (LDB-REF1990 ':INT32) (LDX-REF1992 ':INT32) - (RCOND-REF1993 ':FLOAT) (RPVGRW-REF1994 ':FLOAT) - (N_ERR_BNDS-REF1996 ':INT32) - (NPARAMS-REF1999 ':INT32) (INFO-REF2003 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1980 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1981 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1983 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1985 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1990 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1992 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1993 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF1994 :FLOAT) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF1996 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF1999 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2003 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1982 A) (AF-REF1984 AF) - (IPIV-REF1986 IPIV) (S-REF1988 S) - (B-REF1989 B) (X-REF1991 X) - (BERR-REF1995 BERR) - (ERR_BNDS_NORM-REF1997 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1899 ':INT32) (NRHS-REF1900 ':INT32) + (LDA-REF1902 ':INT32) (LDAF-REF1904 ':INT32) + (LDB-REF1909 ':INT32) (LDX-REF1911 ':INT32) + (RCOND-REF1912 ':FLOAT) (RPVGRW-REF1913 ':FLOAT) + (N_ERR_BNDS-REF1915 ':INT32) + (NPARAMS-REF1918 ':INT32) (INFO-REF1922 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1899 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF1900 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1902 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF1904 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF1909 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF1911 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF1912 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF1913 :FLOAT) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF1915 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF1918 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1922 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1901 A) (AF-REF1903 AF) + (IPIV-REF1905 IPIV) (S-REF1907 S) + (B-REF1908 B) (X-REF1910 X) + (BERR-REF1914 BERR) + (ERR_BNDS_NORM-REF1916 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF1998 + (ERR_BNDS_COMP-REF1917 ERR_BNDS_COMP) - (PARAMS-REF2000 PARAMS) - (WORK-REF2001 WORK) - (RWORK-REF2002 RWORK)) - (%%CHESVXX FACT UPLO N-REF1980 NRHS-REF1981 A-REF1982 LDA-REF1983 - AF-REF1984 LDAF-REF1985 IPIV-REF1986 EQUED S-REF1988 B-REF1989 - LDB-REF1990 X-REF1991 LDX-REF1992 RCOND-REF1993 RPVGRW-REF1994 - BERR-REF1995 N_ERR_BNDS-REF1996 ERR_BNDS_NORM-REF1997 - ERR_BNDS_COMP-REF1998 NPARAMS-REF1999 PARAMS-REF2000 - WORK-REF2001 RWORK-REF2002 INFO-REF2003)))) + (PARAMS-REF1919 PARAMS) + (WORK-REF1920 WORK) + (RWORK-REF1921 RWORK)) + (%%CHESVXX FACT UPLO N-REF1899 NRHS-REF1900 A-REF1901 LDA-REF1902 + AF-REF1903 LDAF-REF1904 IPIV-REF1905 EQUED S-REF1907 B-REF1908 + LDB-REF1909 X-REF1910 LDX-REF1911 RCOND-REF1912 RPVGRW-REF1913 + BERR-REF1914 N_ERR_BNDS-REF1915 ERR_BNDS_NORM-REF1916 + ERR_BNDS_COMP-REF1917 NPARAMS-REF1918 PARAMS-REF1919 WORK-REF1920 + RWORK-REF1921 INFO-REF1922)))) (CFFI:DEFCFUN ("cheswapr_" %%CHESWAPR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9866,16 +9852,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2005 ':INT32) (LDA-REF2007 ':INT32) - (I1-REF2008 ':INT32) (I2-REF2009 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2005 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2007 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF2008 :INT32) I1) - (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF2009 :INT32) I2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2006 A)) - (%%CHESWAPR UPLO N-REF2005 A-REF2006 LDA-REF2007 I1-REF2008 I2-REF2009)))) - -(CFFI:DEFCFUN ("chetd2_" %%CHETD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1924 ':INT32) (LDA-REF1926 ':INT32) + (I1-REF1927 ':INT32) (I2-REF1928 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1924 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1926 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF1927 :INT32) I1) + (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF1928 :INT32) I2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1925 A)) + (%%CHESWAPR UPLO N-REF1924 A-REF1925 LDA-REF1926 I1-REF1927 I2-REF1928)))) + +(CFFI:DEFCFUN ("chetd2_" %%CHETD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9906,17 +9892,17 @@ (COMMON-LISP:*)) TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2011 ':INT32) (LDA-REF2013 ':INT32) - (INFO-REF2017 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2011 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2013 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2017 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2012 A) (D-REF2014 D) - (E-REF2015 E) (TAU-REF2016 TAU)) - (%%CHETD2 UPLO N-REF2011 A-REF2012 LDA-REF2013 D-REF2014 E-REF2015 - TAU-REF2016 INFO-REF2017)))) - -(CFFI:DEFCFUN ("chetf2_" %%CHETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1930 ':INT32) (LDA-REF1932 ':INT32) + (INFO-REF1936 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1930 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1932 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1936 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1931 A) (D-REF1933 D) + (E-REF1934 E) (TAU-REF1935 TAU)) + (%%CHETD2 UPLO N-REF1930 A-REF1931 LDA-REF1932 D-REF1933 E-REF1934 + TAU-REF1935 INFO-REF1936)))) + +(CFFI:DEFCFUN ("chetf2_" %%CHETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9940,17 +9926,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2019 ':INT32) (LDA-REF2021 ':INT32) - (INFO-REF2023 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2019 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2021 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2023 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2020 A) (IPIV-REF2022 IPIV)) - (%%CHETF2 UPLO N-REF2019 A-REF2020 LDA-REF2021 IPIV-REF2022 - INFO-REF2023)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1938 ':INT32) (LDA-REF1940 ':INT32) + (INFO-REF1942 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1938 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1940 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1942 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1939 A) (IPIV-REF1941 IPIV)) + (%%CHETF2 UPLO N-REF1938 A-REF1939 LDA-REF1940 IPIV-REF1941 + INFO-REF1942)))) (CFFI:DEFCFUN ("chetf2_rk_" %%CHETF2_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9980,18 +9966,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2025 ':INT32) (LDA-REF2027 ':INT32) - (INFO-REF2030 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2025 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2027 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2030 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2026 A) (E-REF2028 E) - (IPIV-REF2029 IPIV)) - (%%CHETF2_RK UPLO N-REF2025 A-REF2026 LDA-REF2027 E-REF2028 IPIV-REF2029 - INFO-REF2030)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1944 ':INT32) (LDA-REF1946 ':INT32) + (INFO-REF1949 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1944 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1946 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1949 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1945 A) (E-REF1947 E) + (IPIV-REF1948 IPIV)) + (%%CHETF2_RK UPLO N-REF1944 A-REF1945 LDA-REF1946 E-REF1947 IPIV-REF1948 + INFO-REF1949)))) (CFFI:DEFCFUN ("chetf2_rook_" %%CHETF2_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10015,16 +10001,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2032 ':INT32) (LDA-REF2034 ':INT32) - (INFO-REF2036 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2032 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2034 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2036 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2033 A) (IPIV-REF2035 IPIV)) - (%%CHETF2_ROOK UPLO N-REF2032 A-REF2033 LDA-REF2034 IPIV-REF2035 - INFO-REF2036)))) - -(CFFI:DEFCFUN ("chetrd_" %%CHETRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1951 ':INT32) (LDA-REF1953 ':INT32) + (INFO-REF1955 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1951 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1953 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1955 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1952 A) (IPIV-REF1954 IPIV)) + (%%CHETF2_ROOK UPLO N-REF1951 A-REF1952 LDA-REF1953 IPIV-REF1954 + INFO-REF1955)))) + +(CFFI:DEFCFUN ("chetrd_" %%CHETRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10063,20 +10049,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2038 ':INT32) (LDA-REF2040 ':INT32) - (LWORK-REF2045 ':INT32) (INFO-REF2046 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2038 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2040 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2045 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2046 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2039 A) (D-REF2041 D) - (E-REF2042 E) (TAU-REF2043 TAU) - (WORK-REF2044 WORK)) - (%%CHETRD UPLO N-REF2038 A-REF2039 LDA-REF2040 D-REF2041 E-REF2042 - TAU-REF2043 WORK-REF2044 LWORK-REF2045 INFO-REF2046)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1957 ':INT32) (LDA-REF1959 ':INT32) + (LWORK-REF1964 ':INT32) (INFO-REF1965 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1957 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1959 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1964 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1965 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1958 A) (D-REF1960 D) + (E-REF1961 E) (TAU-REF1962 TAU) + (WORK-REF1963 WORK)) + (%%CHETRD UPLO N-REF1957 A-REF1958 LDA-REF1959 D-REF1960 E-REF1961 + TAU-REF1962 WORK-REF1963 LWORK-REF1964 INFO-REF1965)))) (CFFI:DEFCFUN ("chetrd_2stage_" %%CHETRD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -10126,24 +10112,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2049 ':INT32) (LDA-REF2051 ':INT32) - (LHOUS2-REF2056 ':INT32) (LWORK-REF2058 ':INT32) - (INFO-REF2059 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2049 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2051 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF2056 :INT32) LHOUS2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2058 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2059 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2050 A) (D-REF2052 D) - (E-REF2053 E) (TAU-REF2054 TAU) - (HOUS2-REF2055 HOUS2) - (WORK-REF2057 WORK)) - (%%CHETRD_2STAGE VECT UPLO N-REF2049 A-REF2050 LDA-REF2051 D-REF2052 - E-REF2053 TAU-REF2054 HOUS2-REF2055 LHOUS2-REF2056 - WORK-REF2057 LWORK-REF2058 INFO-REF2059)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1968 ':INT32) (LDA-REF1970 ':INT32) + (LHOUS2-REF1975 ':INT32) (LWORK-REF1977 ':INT32) + (INFO-REF1978 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1968 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1970 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF1975 :INT32) LHOUS2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1977 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1978 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1969 A) (D-REF1971 D) + (E-REF1972 E) (TAU-REF1973 TAU) + (HOUS2-REF1974 HOUS2) + (WORK-REF1976 WORK)) + (%%CHETRD_2STAGE VECT UPLO N-REF1968 A-REF1969 LDA-REF1970 D-REF1971 + E-REF1972 TAU-REF1973 HOUS2-REF1974 LHOUS2-REF1975 WORK-REF1976 + LWORK-REF1977 INFO-REF1978)))) (CFFI:DEFCFUN ("chetrd_he2hb_" %%CHETRD_HE2HB :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10186,23 +10172,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2061 ':INT32) (KD-REF2062 ':INT32) - (LDA-REF2064 ':INT32) (LDAB-REF2066 ':INT32) - (LWORK-REF2069 ':INT32) (INFO-REF2070 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2061 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF2062 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2064 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2066 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2069 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2070 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2063 A) (AB-REF2065 AB) - (TAU-REF2067 TAU) - (WORK-REF2068 WORK)) - (%%CHETRD_HE2HB UPLO N-REF2061 KD-REF2062 A-REF2063 LDA-REF2064 - AB-REF2065 LDAB-REF2066 TAU-REF2067 WORK-REF2068 - LWORK-REF2069 INFO-REF2070)))) - -(CFFI:DEFCFUN ("chetrf_" %%CHETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1980 ':INT32) (KD-REF1981 ':INT32) + (LDA-REF1983 ':INT32) (LDAB-REF1985 ':INT32) + (LWORK-REF1988 ':INT32) (INFO-REF1989 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1980 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF1981 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1983 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF1985 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1988 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1989 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1982 A) (AB-REF1984 AB) + (TAU-REF1986 TAU) + (WORK-REF1987 WORK)) + (%%CHETRD_HE2HB UPLO N-REF1980 KD-REF1981 A-REF1982 LDA-REF1983 + AB-REF1984 LDAB-REF1985 TAU-REF1986 WORK-REF1987 LWORK-REF1988 + INFO-REF1989)))) + +(CFFI:DEFCFUN ("chetrf_" %%CHETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10234,19 +10220,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2072 ':INT32) (LDA-REF2074 ':INT32) - (LWORK-REF2077 ':INT32) (INFO-REF2078 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2072 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2074 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2077 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2078 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2073 A) (IPIV-REF2075 IPIV) - (WORK-REF2076 WORK)) - (%%CHETRF UPLO N-REF2072 A-REF2073 LDA-REF2074 IPIV-REF2075 WORK-REF2076 - LWORK-REF2077 INFO-REF2078)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1991 ':INT32) (LDA-REF1993 ':INT32) + (LWORK-REF1996 ':INT32) (INFO-REF1997 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1991 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF1993 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF1996 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF1997 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF1992 A) (IPIV-REF1994 IPIV) + (WORK-REF1995 WORK)) + (%%CHETRF UPLO N-REF1991 A-REF1992 LDA-REF1993 IPIV-REF1994 WORK-REF1995 + LWORK-REF1996 INFO-REF1997)))) (CFFI:DEFCFUN ("chetrf_aa_" %%CHETRF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10278,19 +10264,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2080 ':INT32) (LDA-REF2082 ':INT32) - (LWORK-REF2085 ':INT32) (INFO-REF2086 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2080 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2082 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2085 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2086 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2081 A) (IPIV-REF2083 IPIV) - (WORK-REF2084 WORK)) - (%%CHETRF_AA UPLO N-REF2080 A-REF2081 LDA-REF2082 IPIV-REF2083 - WORK-REF2084 LWORK-REF2085 INFO-REF2086)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF1999 ':INT32) (LDA-REF2001 ':INT32) + (LWORK-REF2004 ':INT32) (INFO-REF2005 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF1999 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2001 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2004 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2005 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2000 A) (IPIV-REF2002 IPIV) + (WORK-REF2003 WORK)) + (%%CHETRF_AA UPLO N-REF1999 A-REF2000 LDA-REF2001 IPIV-REF2002 + WORK-REF2003 LWORK-REF2004 INFO-REF2005)))) (CFFI:DEFCFUN ("chetrf_aa_2stage_" %%CHETRF_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10336,24 +10322,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2088 ':INT32) (LDA-REF2090 ':INT32) - (LTB-REF2092 ':INT32) (LWORK-REF2096 ':INT32) - (INFO-REF2097 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2088 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2090 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF2092 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2096 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2097 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2089 A) (TB-REF2091 TB) - (IPIV-REF2093 IPIV) - (IPIV2-REF2094 IPIV2) - (WORK-REF2095 WORK)) - (%%CHETRF_AA_2STAGE UPLO N-REF2088 A-REF2089 LDA-REF2090 TB-REF2091 - LTB-REF2092 IPIV-REF2093 IPIV2-REF2094 WORK-REF2095 - LWORK-REF2096 INFO-REF2097)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2007 ':INT32) (LDA-REF2009 ':INT32) + (LTB-REF2011 ':INT32) (LWORK-REF2015 ':INT32) + (INFO-REF2016 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2007 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2009 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF2011 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2015 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2016 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2008 A) (TB-REF2010 TB) + (IPIV-REF2012 IPIV) + (IPIV2-REF2013 IPIV2) + (WORK-REF2014 WORK)) + (%%CHETRF_AA_2STAGE UPLO N-REF2007 A-REF2008 LDA-REF2009 TB-REF2010 + LTB-REF2011 IPIV-REF2012 IPIV2-REF2013 WORK-REF2014 LWORK-REF2015 + INFO-REF2016)))) (CFFI:DEFCFUN ("chetrf_rk_" %%CHETRF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10391,20 +10377,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2099 ':INT32) (LDA-REF2101 ':INT32) - (LWORK-REF2105 ':INT32) (INFO-REF2106 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2099 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2101 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2105 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2106 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2100 A) (E-REF2102 E) - (IPIV-REF2103 IPIV) - (WORK-REF2104 WORK)) - (%%CHETRF_RK UPLO N-REF2099 A-REF2100 LDA-REF2101 E-REF2102 IPIV-REF2103 - WORK-REF2104 LWORK-REF2105 INFO-REF2106)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2018 ':INT32) (LDA-REF2020 ':INT32) + (LWORK-REF2024 ':INT32) (INFO-REF2025 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2018 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2020 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2024 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2025 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2019 A) (E-REF2021 E) + (IPIV-REF2022 IPIV) + (WORK-REF2023 WORK)) + (%%CHETRF_RK UPLO N-REF2018 A-REF2019 LDA-REF2020 E-REF2021 IPIV-REF2022 + WORK-REF2023 LWORK-REF2024 INFO-REF2025)))) (CFFI:DEFCFUN ("chetrf_rook_" %%CHETRF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10436,18 +10422,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2108 ':INT32) (LDA-REF2110 ':INT32) - (LWORK-REF2113 ':INT32) (INFO-REF2114 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2108 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2110 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2113 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2114 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2109 A) (IPIV-REF2111 IPIV) - (WORK-REF2112 WORK)) - (%%CHETRF_ROOK UPLO N-REF2108 A-REF2109 LDA-REF2110 IPIV-REF2111 - WORK-REF2112 LWORK-REF2113 INFO-REF2114)))) - -(CFFI:DEFCFUN ("chetri_" %%CHETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2027 ':INT32) (LDA-REF2029 ':INT32) + (LWORK-REF2032 ':INT32) (INFO-REF2033 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2027 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2029 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2032 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2033 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2028 A) (IPIV-REF2030 IPIV) + (WORK-REF2031 WORK)) + (%%CHETRF_ROOK UPLO N-REF2027 A-REF2028 LDA-REF2029 IPIV-REF2030 + WORK-REF2031 LWORK-REF2032 INFO-REF2033)))) + +(CFFI:DEFCFUN ("chetri_" %%CHETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10477,17 +10463,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2116 ':INT32) (LDA-REF2118 ':INT32) - (INFO-REF2121 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2116 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2118 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2121 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2117 A) (IPIV-REF2119 IPIV) - (WORK-REF2120 WORK)) - (%%CHETRI UPLO N-REF2116 A-REF2117 LDA-REF2118 IPIV-REF2119 WORK-REF2120 - INFO-REF2121)))) - -(CFFI:DEFCFUN ("chetri2_" %%CHETRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2035 ':INT32) (LDA-REF2037 ':INT32) + (INFO-REF2040 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2035 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2037 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2040 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2036 A) (IPIV-REF2038 IPIV) + (WORK-REF2039 WORK)) + (%%CHETRI UPLO N-REF2035 A-REF2036 LDA-REF2037 IPIV-REF2038 WORK-REF2039 + INFO-REF2040)))) + +(CFFI:DEFCFUN ("chetri2_" %%CHETRI2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10519,19 +10506,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2123 ':INT32) (LDA-REF2125 ':INT32) - (LWORK-REF2128 ':INT32) (INFO-REF2129 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2123 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2125 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2128 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2129 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2124 A) (IPIV-REF2126 IPIV) - (WORK-REF2127 WORK)) - (%%CHETRI2 UPLO N-REF2123 A-REF2124 LDA-REF2125 IPIV-REF2126 WORK-REF2127 - LWORK-REF2128 INFO-REF2129)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2042 ':INT32) (LDA-REF2044 ':INT32) + (LWORK-REF2047 ':INT32) (INFO-REF2048 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2042 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2044 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2047 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2048 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2043 A) (IPIV-REF2045 IPIV) + (WORK-REF2046 WORK)) + (%%CHETRI2 UPLO N-REF2042 A-REF2043 LDA-REF2044 IPIV-REF2045 WORK-REF2046 + LWORK-REF2047 INFO-REF2048)))) (CFFI:DEFCFUN ("chetri2x_" %%CHETRI2X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10563,19 +10550,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2131 ':INT32) (LDA-REF2133 ':INT32) - (NB-REF2136 ':INT32) (INFO-REF2137 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2131 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2133 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2136 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2137 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2132 A) (IPIV-REF2134 IPIV) - (WORK-REF2135 WORK)) - (%%CHETRI2X UPLO N-REF2131 A-REF2132 LDA-REF2133 IPIV-REF2134 - WORK-REF2135 NB-REF2136 INFO-REF2137)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2050 ':INT32) (LDA-REF2052 ':INT32) + (NB-REF2055 ':INT32) (INFO-REF2056 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2050 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2052 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2055 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2056 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2051 A) (IPIV-REF2053 IPIV) + (WORK-REF2054 WORK)) + (%%CHETRI2X UPLO N-REF2050 A-REF2051 LDA-REF2052 IPIV-REF2053 + WORK-REF2054 NB-REF2055 INFO-REF2056)))) (CFFI:DEFCFUN ("chetri_3_" %%CHETRI_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10613,20 +10600,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2139 ':INT32) (LDA-REF2141 ':INT32) - (LWORK-REF2145 ':INT32) (INFO-REF2146 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2139 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2141 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2145 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2146 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2140 A) (E-REF2142 E) - (IPIV-REF2143 IPIV) - (WORK-REF2144 WORK)) - (%%CHETRI_3 UPLO N-REF2139 A-REF2140 LDA-REF2141 E-REF2142 IPIV-REF2143 - WORK-REF2144 LWORK-REF2145 INFO-REF2146)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2058 ':INT32) (LDA-REF2060 ':INT32) + (LWORK-REF2064 ':INT32) (INFO-REF2065 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2058 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2060 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2064 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2065 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2059 A) (E-REF2061 E) + (IPIV-REF2062 IPIV) + (WORK-REF2063 WORK)) + (%%CHETRI_3 UPLO N-REF2058 A-REF2059 LDA-REF2060 E-REF2061 IPIV-REF2062 + WORK-REF2063 LWORK-REF2064 INFO-REF2065)))) (CFFI:DEFCFUN ("chetri_3x_" %%CHETRI_3X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10664,20 +10651,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2148 ':INT32) (LDA-REF2150 ':INT32) - (NB-REF2154 ':INT32) (INFO-REF2155 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2148 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2150 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2154 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2155 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2149 A) (E-REF2151 E) - (IPIV-REF2152 IPIV) - (WORK-REF2153 WORK)) - (%%CHETRI_3X UPLO N-REF2148 A-REF2149 LDA-REF2150 E-REF2151 IPIV-REF2152 - WORK-REF2153 NB-REF2154 INFO-REF2155)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2067 ':INT32) (LDA-REF2069 ':INT32) + (NB-REF2073 ':INT32) (INFO-REF2074 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2067 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2069 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2073 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2074 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2068 A) (E-REF2070 E) + (IPIV-REF2071 IPIV) + (WORK-REF2072 WORK)) + (%%CHETRI_3X UPLO N-REF2067 A-REF2068 LDA-REF2069 E-REF2070 IPIV-REF2071 + WORK-REF2072 NB-REF2073 INFO-REF2074)))) (CFFI:DEFCFUN ("chetri_rook_" %%CHETRI_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10707,17 +10694,17 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2157 ':INT32) (LDA-REF2159 ':INT32) - (INFO-REF2162 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2157 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2159 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2162 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2158 A) (IPIV-REF2160 IPIV) - (WORK-REF2161 WORK)) - (%%CHETRI_ROOK UPLO N-REF2157 A-REF2158 LDA-REF2159 IPIV-REF2160 - WORK-REF2161 INFO-REF2162)))) - -(CFFI:DEFCFUN ("chetrs_" %%CHETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2076 ':INT32) (LDA-REF2078 ':INT32) + (INFO-REF2081 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2076 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2078 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2081 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2077 A) (IPIV-REF2079 IPIV) + (WORK-REF2080 WORK)) + (%%CHETRI_ROOK UPLO N-REF2076 A-REF2077 LDA-REF2078 IPIV-REF2079 + WORK-REF2080 INFO-REF2081)))) + +(CFFI:DEFCFUN ("chetrs_" %%CHETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10751,20 +10738,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2164 ':INT32) (NRHS-REF2165 ':INT32) - (LDA-REF2167 ':INT32) (LDB-REF2170 ':INT32) - (INFO-REF2171 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2164 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2165 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2167 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2170 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2171 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2166 A) (IPIV-REF2168 IPIV) - (B-REF2169 B)) - (%%CHETRS UPLO N-REF2164 NRHS-REF2165 A-REF2166 LDA-REF2167 IPIV-REF2168 - B-REF2169 LDB-REF2170 INFO-REF2171)))) - -(CFFI:DEFCFUN ("chetrs2_" %%CHETRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2083 ':INT32) (NRHS-REF2084 ':INT32) + (LDA-REF2086 ':INT32) (LDB-REF2089 ':INT32) + (INFO-REF2090 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2083 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2084 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2086 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2089 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2090 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2085 A) (IPIV-REF2087 IPIV) + (B-REF2088 B)) + (%%CHETRS UPLO N-REF2083 NRHS-REF2084 A-REF2085 LDA-REF2086 IPIV-REF2087 + B-REF2088 LDB-REF2089 INFO-REF2090)))) + +(CFFI:DEFCFUN ("chetrs2_" %%CHETRS2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10804,21 +10792,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2173 ':INT32) (NRHS-REF2174 ':INT32) - (LDA-REF2176 ':INT32) (LDB-REF2179 ':INT32) - (INFO-REF2181 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2173 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2174 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2176 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2179 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2181 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2175 A) (IPIV-REF2177 IPIV) - (B-REF2178 B) (WORK-REF2180 WORK)) - (%%CHETRS2 UPLO N-REF2173 NRHS-REF2174 A-REF2175 LDA-REF2176 IPIV-REF2177 - B-REF2178 LDB-REF2179 WORK-REF2180 INFO-REF2181)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2092 ':INT32) (NRHS-REF2093 ':INT32) + (LDA-REF2095 ':INT32) (LDB-REF2098 ':INT32) + (INFO-REF2100 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2092 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2093 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2095 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2098 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2100 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2094 A) (IPIV-REF2096 IPIV) + (B-REF2097 B) (WORK-REF2099 WORK)) + (%%CHETRS2 UPLO N-REF2092 NRHS-REF2093 A-REF2094 LDA-REF2095 IPIV-REF2096 + B-REF2097 LDB-REF2098 WORK-REF2099 INFO-REF2100)))) (CFFI:DEFCFUN ("chetrs_3_" %%CHETRS_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10858,21 +10846,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2183 ':INT32) (NRHS-REF2184 ':INT32) - (LDA-REF2186 ':INT32) (LDB-REF2190 ':INT32) - (INFO-REF2191 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2183 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2184 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2186 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2190 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2191 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2185 A) (E-REF2187 E) - (IPIV-REF2188 IPIV) (B-REF2189 B)) - (%%CHETRS_3 UPLO N-REF2183 NRHS-REF2184 A-REF2185 LDA-REF2186 E-REF2187 - IPIV-REF2188 B-REF2189 LDB-REF2190 INFO-REF2191)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2102 ':INT32) (NRHS-REF2103 ':INT32) + (LDA-REF2105 ':INT32) (LDB-REF2109 ':INT32) + (INFO-REF2110 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2102 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2103 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2105 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2109 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2110 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2104 A) (E-REF2106 E) + (IPIV-REF2107 IPIV) (B-REF2108 B)) + (%%CHETRS_3 UPLO N-REF2102 NRHS-REF2103 A-REF2104 LDA-REF2105 E-REF2106 + IPIV-REF2107 B-REF2108 LDB-REF2109 INFO-REF2110)))) (CFFI:DEFCFUN ("chetrs_aa_" %%CHETRS_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10914,23 +10902,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2193 ':INT32) (NRHS-REF2194 ':INT32) - (LDA-REF2196 ':INT32) (LDB-REF2199 ':INT32) - (LWORK-REF2201 ':INT32) (INFO-REF2202 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2193 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2194 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2196 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2199 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2201 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2202 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2195 A) (IPIV-REF2197 IPIV) - (B-REF2198 B) (WORK-REF2200 WORK)) - (%%CHETRS_AA UPLO N-REF2193 NRHS-REF2194 A-REF2195 LDA-REF2196 - IPIV-REF2197 B-REF2198 LDB-REF2199 WORK-REF2200 - LWORK-REF2201 INFO-REF2202)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2112 ':INT32) (NRHS-REF2113 ':INT32) + (LDA-REF2115 ':INT32) (LDB-REF2118 ':INT32) + (LWORK-REF2120 ':INT32) (INFO-REF2121 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2112 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2113 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2115 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2118 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2120 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2121 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2114 A) (IPIV-REF2116 IPIV) + (B-REF2117 B) (WORK-REF2119 WORK)) + (%%CHETRS_AA UPLO N-REF2112 NRHS-REF2113 A-REF2114 LDA-REF2115 + IPIV-REF2116 B-REF2117 LDB-REF2118 WORK-REF2119 LWORK-REF2120 + INFO-REF2121)))) (CFFI:DEFCFUN ("chetrs_aa_2stage_" %%CHETRS_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10978,24 +10966,24 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2204 ':INT32) (NRHS-REF2205 ':INT32) - (LDA-REF2207 ':INT32) (LTB-REF2209 ':INT32) - (LDB-REF2213 ':INT32) (INFO-REF2214 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2204 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2205 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2207 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF2209 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2213 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2214 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2206 A) (TB-REF2208 TB) - (IPIV-REF2210 IPIV) - (IPIV2-REF2211 IPIV2) (B-REF2212 B)) - (%%CHETRS_AA_2STAGE UPLO N-REF2204 NRHS-REF2205 A-REF2206 LDA-REF2207 - TB-REF2208 LTB-REF2209 IPIV-REF2210 IPIV2-REF2211 - B-REF2212 LDB-REF2213 INFO-REF2214)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2123 ':INT32) (NRHS-REF2124 ':INT32) + (LDA-REF2126 ':INT32) (LTB-REF2128 ':INT32) + (LDB-REF2132 ':INT32) (INFO-REF2133 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2123 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2124 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2126 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF2128 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2132 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2133 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2125 A) (TB-REF2127 TB) + (IPIV-REF2129 IPIV) + (IPIV2-REF2130 IPIV2) (B-REF2131 B)) + (%%CHETRS_AA_2STAGE UPLO N-REF2123 NRHS-REF2124 A-REF2125 LDA-REF2126 + TB-REF2127 LTB-REF2128 IPIV-REF2129 IPIV2-REF2130 B-REF2131 LDB-REF2132 + INFO-REF2133)))) (CFFI:DEFCFUN ("chetrs_rook_" %%CHETRS_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11029,20 +11017,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2216 ':INT32) (NRHS-REF2217 ':INT32) - (LDA-REF2219 ':INT32) (LDB-REF2222 ':INT32) - (INFO-REF2223 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2216 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2217 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2219 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2222 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2223 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2218 A) (IPIV-REF2220 IPIV) - (B-REF2221 B)) - (%%CHETRS_ROOK UPLO N-REF2216 NRHS-REF2217 A-REF2218 LDA-REF2219 - IPIV-REF2220 B-REF2221 LDB-REF2222 INFO-REF2223)))) - -(CFFI:DEFCFUN ("chfrk_" %%CHFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2135 ':INT32) (NRHS-REF2136 ':INT32) + (LDA-REF2138 ':INT32) (LDB-REF2141 ':INT32) + (INFO-REF2142 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2135 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2136 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2138 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2141 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2142 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2137 A) (IPIV-REF2139 IPIV) + (B-REF2140 B)) + (%%CHETRS_ROOK UPLO N-REF2135 NRHS-REF2136 A-REF2137 LDA-REF2138 + IPIV-REF2139 B-REF2140 LDB-REF2141 INFO-REF2142)))) + +(CFFI:DEFCFUN ("chfrk_" %%CHFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -11075,19 +11063,19 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) C)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2227 ':INT32) (K-REF2228 ':INT32) - (ALPHA-REF2229 ':FLOAT) (LDA-REF2231 ':INT32) - (BETA-REF2232 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2227 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2228 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2229 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2231 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2232 :FLOAT) BETA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2230 A) (C-REF2233 C)) - (%%CHFRK TRANSR UPLO TRANS N-REF2227 K-REF2228 ALPHA-REF2229 A-REF2230 - LDA-REF2231 BETA-REF2232 C-REF2233)))) - -(CFFI:DEFCFUN ("chgeqz_" %%CHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2146 ':INT32) (K-REF2147 ':INT32) + (ALPHA-REF2148 ':FLOAT) (LDA-REF2150 ':INT32) + (BETA-REF2151 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2146 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2147 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2148 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2150 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2151 :FLOAT) BETA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2149 A) (C-REF2152 C)) + (%%CHFRK TRANSR UPLO TRANS N-REF2146 K-REF2147 ALPHA-REF2148 A-REF2149 + LDA-REF2150 BETA-REF2151 C-REF2152)))) + +(CFFI:DEFCFUN ("chgeqz_" %%CHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPQ :STRING) @@ -11164,44 +11152,44 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2237 ':INT32) (ILO-REF2238 ':INT32) - (IHI-REF2239 ':INT32) (LDH-REF2241 ':INT32) - (LDT-REF2243 ':INT32) (LDQ-REF2247 ':INT32) - (LDZ-REF2249 ':INT32) (LWORK-REF2251 ':INT32) - (INFO-REF2253 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2237 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2238 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2239 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2241 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF2243 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2247 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2249 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2251 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2253 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2240 H) (T-REF2242 T) - (ALPHA-REF2244 ALPHA) - (BETA-REF2245 BETA) (Q-REF2246 Q) - (Z-REF2248 Z) (WORK-REF2250 WORK) - (RWORK-REF2252 RWORK)) - (%%CHGEQZ JOB COMPQ COMPZ N-REF2237 ILO-REF2238 IHI-REF2239 H-REF2240 - LDH-REF2241 T-REF2242 LDT-REF2243 ALPHA-REF2244 BETA-REF2245 - Q-REF2246 LDQ-REF2247 Z-REF2248 LDZ-REF2249 WORK-REF2250 - LWORK-REF2251 RWORK-REF2252 INFO-REF2253)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2156 ':INT32) (ILO-REF2157 ':INT32) + (IHI-REF2158 ':INT32) (LDH-REF2160 ':INT32) + (LDT-REF2162 ':INT32) (LDQ-REF2166 ':INT32) + (LDZ-REF2168 ':INT32) (LWORK-REF2170 ':INT32) + (INFO-REF2172 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2156 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2157 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2158 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2160 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF2162 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2166 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2168 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2170 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2172 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2159 H) (T-REF2161 T) + (ALPHA-REF2163 ALPHA) + (BETA-REF2164 BETA) (Q-REF2165 Q) + (Z-REF2167 Z) (WORK-REF2169 WORK) + (RWORK-REF2171 RWORK)) + (%%CHGEQZ JOB COMPQ COMPZ N-REF2156 ILO-REF2157 IHI-REF2158 H-REF2159 + LDH-REF2160 T-REF2161 LDT-REF2162 ALPHA-REF2163 BETA-REF2164 Q-REF2165 + LDQ-REF2166 Z-REF2167 LDZ-REF2168 WORK-REF2169 LWORK-REF2170 + RWORK-REF2171 INFO-REF2172)))) (CFFI:DEFCFUN ("chla_transtype_" %%CHLA_TRANSTYPE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :STRING (TRANS :POINTER)) (COMMON-LISP:DEFUN %CHLA_TRANSTYPE (TRANS) (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHLA_TRANSTYPE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)) - (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2254 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2254 :INT32) TRANS) + (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2173 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2173 :INT32) TRANS) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%CHLA_TRANSTYPE TRANS-REF2254)))) + (%%CHLA_TRANSTYPE TRANS-REF2173)))) -(CFFI:DEFCFUN ("chpcon_" %%CHPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("chpcon_" %%CHPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11233,18 +11221,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2256 ':INT32) (ANORM-REF2259 ':FLOAT) - (RCOND-REF2260 ':FLOAT) (INFO-REF2262 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2256 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF2259 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2260 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2262 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2257 AP) (IPIV-REF2258 IPIV) - (WORK-REF2261 WORK)) - (%%CHPCON UPLO N-REF2256 AP-REF2257 IPIV-REF2258 ANORM-REF2259 - RCOND-REF2260 WORK-REF2261 INFO-REF2262)))) - -(CFFI:DEFCFUN ("chpev_" %%CHPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2175 ':INT32) (ANORM-REF2178 ':FLOAT) + (RCOND-REF2179 ':FLOAT) (INFO-REF2181 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2175 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF2178 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2179 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2181 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2176 AP) (IPIV-REF2177 IPIV) + (WORK-REF2180 WORK)) + (%%CHPCON UPLO N-REF2175 AP-REF2176 IPIV-REF2177 ANORM-REF2178 + RCOND-REF2179 WORK-REF2180 INFO-REF2181)))) + +(CFFI:DEFCFUN ("chpev_" %%CHPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -11284,18 +11272,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2265 ':INT32) (LDZ-REF2269 ':INT32) - (INFO-REF2272 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2265 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2269 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2272 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2266 AP) (W-REF2267 W) - (Z-REF2268 Z) (WORK-REF2270 WORK) - (RWORK-REF2271 RWORK)) - (%%CHPEV JOBZ UPLO N-REF2265 AP-REF2266 W-REF2267 Z-REF2268 LDZ-REF2269 - WORK-REF2270 RWORK-REF2271 INFO-REF2272)))) - -(CFFI:DEFCFUN ("chpevd_" %%CHPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2184 ':INT32) (LDZ-REF2188 ':INT32) + (INFO-REF2191 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2184 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2188 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2191 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2185 AP) (W-REF2186 W) + (Z-REF2187 Z) (WORK-REF2189 WORK) + (RWORK-REF2190 RWORK)) + (%%CHPEV JOBZ UPLO N-REF2184 AP-REF2185 W-REF2186 Z-REF2187 LDZ-REF2188 + WORK-REF2189 RWORK-REF2190 INFO-REF2191)))) + +(CFFI:DEFCFUN ("chpevd_" %%CHPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -11348,24 +11336,24 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2275 ':INT32) (LDZ-REF2279 ':INT32) - (LWORK-REF2281 ':INT32) (LRWORK-REF2283 ':INT32) - (LIWORK-REF2285 ':INT32) (INFO-REF2286 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2275 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2279 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2281 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2283 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2285 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2286 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2276 AP) (W-REF2277 W) - (Z-REF2278 Z) (WORK-REF2280 WORK) - (RWORK-REF2282 RWORK) - (IWORK-REF2284 IWORK)) - (%%CHPEVD JOBZ UPLO N-REF2275 AP-REF2276 W-REF2277 Z-REF2278 LDZ-REF2279 - WORK-REF2280 LWORK-REF2281 RWORK-REF2282 LRWORK-REF2283 - IWORK-REF2284 LIWORK-REF2285 INFO-REF2286)))) - -(CFFI:DEFCFUN ("chpevx_" %%CHPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2194 ':INT32) (LDZ-REF2198 ':INT32) + (LWORK-REF2200 ':INT32) (LRWORK-REF2202 ':INT32) + (LIWORK-REF2204 ':INT32) (INFO-REF2205 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2194 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2198 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2200 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2202 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2204 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2205 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2195 AP) (W-REF2196 W) + (Z-REF2197 Z) (WORK-REF2199 WORK) + (RWORK-REF2201 RWORK) + (IWORK-REF2203 IWORK)) + (%%CHPEVD JOBZ UPLO N-REF2194 AP-REF2195 W-REF2196 Z-REF2197 LDZ-REF2198 + WORK-REF2199 LWORK-REF2200 RWORK-REF2201 LRWORK-REF2202 IWORK-REF2203 + LIWORK-REF2204 INFO-REF2205)))) + +(CFFI:DEFCFUN ("chpevx_" %%CHPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -11431,31 +11419,31 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2290 ':INT32) (VL-REF2292 ':FLOAT) - (VU-REF2293 ':FLOAT) (IL-REF2294 ':INT32) - (IU-REF2295 ':INT32) (ABSTOL-REF2296 ':FLOAT) - (M-REF2297 ':INT32) (LDZ-REF2300 ':INT32) - (INFO-REF2305 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2290 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2292 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2293 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2294 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2295 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2296 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2297 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2300 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2305 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2291 AP) (W-REF2298 W) - (Z-REF2299 Z) (WORK-REF2301 WORK) - (RWORK-REF2302 RWORK) - (IWORK-REF2303 IWORK) - (IFAIL-REF2304 IFAIL)) - (%%CHPEVX JOBZ RANGE UPLO N-REF2290 AP-REF2291 VL-REF2292 VU-REF2293 - IL-REF2294 IU-REF2295 ABSTOL-REF2296 M-REF2297 W-REF2298 - Z-REF2299 LDZ-REF2300 WORK-REF2301 RWORK-REF2302 IWORK-REF2303 - IFAIL-REF2304 INFO-REF2305)))) - -(CFFI:DEFCFUN ("chpgst_" %%CHPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2209 ':INT32) (VL-REF2211 ':FLOAT) + (VU-REF2212 ':FLOAT) (IL-REF2213 ':INT32) + (IU-REF2214 ':INT32) (ABSTOL-REF2215 ':FLOAT) + (M-REF2216 ':INT32) (LDZ-REF2219 ':INT32) + (INFO-REF2224 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2209 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2211 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2212 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2213 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2214 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2215 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2216 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2219 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2224 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2210 AP) (W-REF2217 W) + (Z-REF2218 Z) (WORK-REF2220 WORK) + (RWORK-REF2221 RWORK) + (IWORK-REF2222 IWORK) + (IFAIL-REF2223 IFAIL)) + (%%CHPEVX JOBZ RANGE UPLO N-REF2209 AP-REF2210 VL-REF2211 VU-REF2212 + IL-REF2213 IU-REF2214 ABSTOL-REF2215 M-REF2216 W-REF2217 Z-REF2218 + LDZ-REF2219 WORK-REF2220 RWORK-REF2221 IWORK-REF2222 IFAIL-REF2223 + INFO-REF2224)))) + +(CFFI:DEFCFUN ("chpgst_" %%CHPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -11480,16 +11468,16 @@ (COMMON-LISP:*)) BP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2306 ':INT32) (N-REF2308 ':INT32) - (INFO-REF2311 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2306 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2308 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2311 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2309 AP) (BP-REF2310 BP)) - (%%CHPGST ITYPE-REF2306 UPLO N-REF2308 AP-REF2309 BP-REF2310 - INFO-REF2311)))) - -(CFFI:DEFCFUN ("chpgv_" %%CHPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2225 ':INT32) (N-REF2227 ':INT32) + (INFO-REF2230 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2225 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2227 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2230 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2228 AP) (BP-REF2229 BP)) + (%%CHPGST ITYPE-REF2225 UPLO N-REF2227 AP-REF2228 BP-REF2229 + INFO-REF2230)))) + +(CFFI:DEFCFUN ("chpgv_" %%CHPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -11537,21 +11525,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2312 ':INT32) (N-REF2315 ':INT32) - (LDZ-REF2320 ':INT32) (INFO-REF2323 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2312 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2315 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2320 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2323 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2316 AP) (BP-REF2317 BP) - (W-REF2318 W) (Z-REF2319 Z) - (WORK-REF2321 WORK) - (RWORK-REF2322 RWORK)) - (%%CHPGV ITYPE-REF2312 JOBZ UPLO N-REF2315 AP-REF2316 BP-REF2317 - W-REF2318 Z-REF2319 LDZ-REF2320 WORK-REF2321 RWORK-REF2322 - INFO-REF2323)))) - -(CFFI:DEFCFUN ("chpgvd_" %%CHPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2231 ':INT32) (N-REF2234 ':INT32) + (LDZ-REF2239 ':INT32) (INFO-REF2242 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2231 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2234 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2239 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2242 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2235 AP) (BP-REF2236 BP) + (W-REF2237 W) (Z-REF2238 Z) + (WORK-REF2240 WORK) + (RWORK-REF2241 RWORK)) + (%%CHPGV ITYPE-REF2231 JOBZ UPLO N-REF2234 AP-REF2235 BP-REF2236 + W-REF2237 Z-REF2238 LDZ-REF2239 WORK-REF2240 RWORK-REF2241 + INFO-REF2242)))) + +(CFFI:DEFCFUN ("chpgvd_" %%CHPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -11612,28 +11600,27 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2324 ':INT32) (N-REF2327 ':INT32) - (LDZ-REF2332 ':INT32) (LWORK-REF2334 ':INT32) - (LRWORK-REF2336 ':INT32) (LIWORK-REF2338 ':INT32) - (INFO-REF2339 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2324 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2327 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2332 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2334 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2336 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2338 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2339 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2328 AP) (BP-REF2329 BP) - (W-REF2330 W) (Z-REF2331 Z) - (WORK-REF2333 WORK) - (RWORK-REF2335 RWORK) - (IWORK-REF2337 IWORK)) - (%%CHPGVD ITYPE-REF2324 JOBZ UPLO N-REF2327 AP-REF2328 BP-REF2329 - W-REF2330 Z-REF2331 LDZ-REF2332 WORK-REF2333 LWORK-REF2334 - RWORK-REF2335 LRWORK-REF2336 IWORK-REF2337 LIWORK-REF2338 - INFO-REF2339)))) - -(CFFI:DEFCFUN ("chpgvx_" %%CHPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2243 ':INT32) (N-REF2246 ':INT32) + (LDZ-REF2251 ':INT32) (LWORK-REF2253 ':INT32) + (LRWORK-REF2255 ':INT32) (LIWORK-REF2257 ':INT32) + (INFO-REF2258 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2243 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2246 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2251 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2253 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF2255 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF2257 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2258 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2247 AP) (BP-REF2248 BP) + (W-REF2249 W) (Z-REF2250 Z) + (WORK-REF2252 WORK) + (RWORK-REF2254 RWORK) + (IWORK-REF2256 IWORK)) + (%%CHPGVD ITYPE-REF2243 JOBZ UPLO N-REF2246 AP-REF2247 BP-REF2248 + W-REF2249 Z-REF2250 LDZ-REF2251 WORK-REF2252 LWORK-REF2253 RWORK-REF2254 + LRWORK-REF2255 IWORK-REF2256 LIWORK-REF2257 INFO-REF2258)))) + +(CFFI:DEFCFUN ("chpgvx_" %%CHPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -11707,33 +11694,33 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2340 ':INT32) (N-REF2344 ':INT32) - (VL-REF2347 ':FLOAT) (VU-REF2348 ':FLOAT) - (IL-REF2349 ':INT32) (IU-REF2350 ':INT32) - (ABSTOL-REF2351 ':FLOAT) (M-REF2352 ':INT32) - (LDZ-REF2355 ':INT32) (INFO-REF2360 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2340 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2344 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2347 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2348 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2349 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2350 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2351 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2352 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2355 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2360 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2345 AP) (BP-REF2346 BP) - (W-REF2353 W) (Z-REF2354 Z) - (WORK-REF2356 WORK) - (RWORK-REF2357 RWORK) - (IWORK-REF2358 IWORK) - (IFAIL-REF2359 IFAIL)) - (%%CHPGVX ITYPE-REF2340 JOBZ RANGE UPLO N-REF2344 AP-REF2345 BP-REF2346 - VL-REF2347 VU-REF2348 IL-REF2349 IU-REF2350 ABSTOL-REF2351 - M-REF2352 W-REF2353 Z-REF2354 LDZ-REF2355 WORK-REF2356 - RWORK-REF2357 IWORK-REF2358 IFAIL-REF2359 INFO-REF2360)))) - -(CFFI:DEFCFUN ("chprfs_" %%CHPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF2259 ':INT32) (N-REF2263 ':INT32) + (VL-REF2266 ':FLOAT) (VU-REF2267 ':FLOAT) + (IL-REF2268 ':INT32) (IU-REF2269 ':INT32) + (ABSTOL-REF2270 ':FLOAT) (M-REF2271 ':INT32) + (LDZ-REF2274 ':INT32) (INFO-REF2279 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF2259 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2263 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF2266 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF2267 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF2268 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF2269 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF2270 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2271 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2274 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2279 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2264 AP) (BP-REF2265 BP) + (W-REF2272 W) (Z-REF2273 Z) + (WORK-REF2275 WORK) + (RWORK-REF2276 RWORK) + (IWORK-REF2277 IWORK) + (IFAIL-REF2278 IFAIL)) + (%%CHPGVX ITYPE-REF2259 JOBZ RANGE UPLO N-REF2263 AP-REF2264 BP-REF2265 + VL-REF2266 VU-REF2267 IL-REF2268 IU-REF2269 ABSTOL-REF2270 M-REF2271 + W-REF2272 Z-REF2273 LDZ-REF2274 WORK-REF2275 RWORK-REF2276 IWORK-REF2277 + IFAIL-REF2278 INFO-REF2279)))) + +(CFFI:DEFCFUN ("chprfs_" %%CHPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11799,25 +11786,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2362 ':INT32) (NRHS-REF2363 ':INT32) - (LDB-REF2368 ':INT32) (LDX-REF2370 ':INT32) - (INFO-REF2375 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2362 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2363 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2368 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2370 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2375 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2364 AP) (AFP-REF2365 AFP) - (IPIV-REF2366 IPIV) (B-REF2367 B) - (X-REF2369 X) (FERR-REF2371 FERR) - (BERR-REF2372 BERR) - (WORK-REF2373 WORK) - (RWORK-REF2374 RWORK)) - (%%CHPRFS UPLO N-REF2362 NRHS-REF2363 AP-REF2364 AFP-REF2365 IPIV-REF2366 - B-REF2367 LDB-REF2368 X-REF2369 LDX-REF2370 FERR-REF2371 - BERR-REF2372 WORK-REF2373 RWORK-REF2374 INFO-REF2375)))) - -(CFFI:DEFCFUN ("chpsv_" %%CHPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2281 ':INT32) (NRHS-REF2282 ':INT32) + (LDB-REF2287 ':INT32) (LDX-REF2289 ':INT32) + (INFO-REF2294 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2281 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2282 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2287 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2289 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2294 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2283 AP) (AFP-REF2284 AFP) + (IPIV-REF2285 IPIV) (B-REF2286 B) + (X-REF2288 X) (FERR-REF2290 FERR) + (BERR-REF2291 BERR) + (WORK-REF2292 WORK) + (RWORK-REF2293 RWORK)) + (%%CHPRFS UPLO N-REF2281 NRHS-REF2282 AP-REF2283 AFP-REF2284 IPIV-REF2285 + B-REF2286 LDB-REF2287 X-REF2288 LDX-REF2289 FERR-REF2290 BERR-REF2291 + WORK-REF2292 RWORK-REF2293 INFO-REF2294)))) + +(CFFI:DEFCFUN ("chpsv_" %%CHPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11849,18 +11836,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2377 ':INT32) (NRHS-REF2378 ':INT32) - (LDB-REF2382 ':INT32) (INFO-REF2383 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2377 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2378 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2382 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2383 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2379 AP) (IPIV-REF2380 IPIV) - (B-REF2381 B)) - (%%CHPSV UPLO N-REF2377 NRHS-REF2378 AP-REF2379 IPIV-REF2380 B-REF2381 - LDB-REF2382 INFO-REF2383)))) - -(CFFI:DEFCFUN ("chpsvx_" %%CHPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2296 ':INT32) (NRHS-REF2297 ':INT32) + (LDB-REF2301 ':INT32) (INFO-REF2302 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2296 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2297 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2301 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2302 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2298 AP) (IPIV-REF2299 IPIV) + (B-REF2300 B)) + (%%CHPSV UPLO N-REF2296 NRHS-REF2297 AP-REF2298 IPIV-REF2299 B-REF2300 + LDB-REF2301 INFO-REF2302)))) + +(CFFI:DEFCFUN ("chpsvx_" %%CHPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -11930,27 +11917,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2386 ':INT32) (NRHS-REF2387 ':INT32) - (LDB-REF2392 ':INT32) (LDX-REF2394 ':INT32) - (RCOND-REF2395 ':FLOAT) (INFO-REF2400 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2386 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2387 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2392 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2394 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2395 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2400 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2388 AP) (AFP-REF2389 AFP) - (IPIV-REF2390 IPIV) (B-REF2391 B) - (X-REF2393 X) (FERR-REF2396 FERR) - (BERR-REF2397 BERR) - (WORK-REF2398 WORK) - (RWORK-REF2399 RWORK)) - (%%CHPSVX FACT UPLO N-REF2386 NRHS-REF2387 AP-REF2388 AFP-REF2389 - IPIV-REF2390 B-REF2391 LDB-REF2392 X-REF2393 LDX-REF2394 - RCOND-REF2395 FERR-REF2396 BERR-REF2397 WORK-REF2398 - RWORK-REF2399 INFO-REF2400)))) - -(CFFI:DEFCFUN ("chptrd_" %%CHPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2305 ':INT32) (NRHS-REF2306 ':INT32) + (LDB-REF2311 ':INT32) (LDX-REF2313 ':INT32) + (RCOND-REF2314 ':FLOAT) (INFO-REF2319 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2305 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2306 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2311 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2313 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2314 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2319 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2307 AP) (AFP-REF2308 AFP) + (IPIV-REF2309 IPIV) (B-REF2310 B) + (X-REF2312 X) (FERR-REF2315 FERR) + (BERR-REF2316 BERR) + (WORK-REF2317 WORK) + (RWORK-REF2318 RWORK)) + (%%CHPSVX FACT UPLO N-REF2305 NRHS-REF2306 AP-REF2307 AFP-REF2308 + IPIV-REF2309 B-REF2310 LDB-REF2311 X-REF2312 LDX-REF2313 RCOND-REF2314 + FERR-REF2315 BERR-REF2316 WORK-REF2317 RWORK-REF2318 INFO-REF2319)))) + +(CFFI:DEFCFUN ("chptrd_" %%CHPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11979,15 +11965,15 @@ (COMMON-LISP:*)) TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2402 ':INT32) (INFO-REF2407 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2402 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2407 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2403 AP) (D-REF2404 D) - (E-REF2405 E) (TAU-REF2406 TAU)) - (%%CHPTRD UPLO N-REF2402 AP-REF2403 D-REF2404 E-REF2405 TAU-REF2406 - INFO-REF2407)))) - -(CFFI:DEFCFUN ("chptrf_" %%CHPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2321 ':INT32) (INFO-REF2326 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2321 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2326 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2322 AP) (D-REF2323 D) + (E-REF2324 E) (TAU-REF2325 TAU)) + (%%CHPTRD UPLO N-REF2321 AP-REF2322 D-REF2323 E-REF2324 TAU-REF2325 + INFO-REF2326)))) + +(CFFI:DEFCFUN ("chptrf_" %%CHPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12009,13 +11995,13 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2409 ':INT32) (INFO-REF2412 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2409 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2412 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2410 AP) (IPIV-REF2411 IPIV)) - (%%CHPTRF UPLO N-REF2409 AP-REF2410 IPIV-REF2411 INFO-REF2412)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2328 ':INT32) (INFO-REF2331 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2328 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2331 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2329 AP) (IPIV-REF2330 IPIV)) + (%%CHPTRF UPLO N-REF2328 AP-REF2329 IPIV-REF2330 INFO-REF2331)))) -(CFFI:DEFCFUN ("chptri_" %%CHPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("chptri_" %%CHPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12043,15 +12029,15 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2414 ':INT32) (INFO-REF2418 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2414 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2418 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2415 AP) (IPIV-REF2416 IPIV) - (WORK-REF2417 WORK)) - (%%CHPTRI UPLO N-REF2414 AP-REF2415 IPIV-REF2416 WORK-REF2417 - INFO-REF2418)))) - -(CFFI:DEFCFUN ("chptrs_" %%CHPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2333 ':INT32) (INFO-REF2337 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2333 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2337 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2334 AP) (IPIV-REF2335 IPIV) + (WORK-REF2336 WORK)) + (%%CHPTRI UPLO N-REF2333 AP-REF2334 IPIV-REF2335 WORK-REF2336 + INFO-REF2337)))) + +(CFFI:DEFCFUN ("chptrs_" %%CHPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12083,18 +12069,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2420 ':INT32) (NRHS-REF2421 ':INT32) - (LDB-REF2425 ':INT32) (INFO-REF2426 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2420 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2421 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2425 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2426 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2422 AP) (IPIV-REF2423 IPIV) - (B-REF2424 B)) - (%%CHPTRS UPLO N-REF2420 NRHS-REF2421 AP-REF2422 IPIV-REF2423 B-REF2424 - LDB-REF2425 INFO-REF2426)))) - -(CFFI:DEFCFUN ("chsein_" %%CHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2339 ':INT32) (NRHS-REF2340 ':INT32) + (LDB-REF2344 ':INT32) (INFO-REF2345 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2339 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2340 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2344 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2345 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF2341 AP) (IPIV-REF2342 IPIV) + (B-REF2343 B)) + (%%CHPTRS UPLO N-REF2339 NRHS-REF2340 AP-REF2341 IPIV-REF2342 B-REF2343 + LDB-REF2344 INFO-REF2345)))) + +(CFFI:DEFCFUN ("chsein_" %%CHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (EIGSRC :STRING) @@ -12170,30 +12156,30 @@ (COMMON-LISP:*)) IFAILR) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2431 ':INT32) (LDH-REF2433 ':INT32) - (LDVL-REF2436 ':INT32) (LDVR-REF2438 ':INT32) - (MM-REF2439 ':INT32) (M-REF2440 ':INT32) - (INFO-REF2445 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2431 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2433 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2436 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2438 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF2439 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2440 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2445 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF2430 SELECT) - (H-REF2432 H) (W-REF2434 W) - (VL-REF2435 VL) (VR-REF2437 VR) - (WORK-REF2441 WORK) - (RWORK-REF2442 RWORK) - (IFAILL-REF2443 IFAILL) - (IFAILR-REF2444 IFAILR)) - (%%CHSEIN SIDE EIGSRC INITV SELECT-REF2430 N-REF2431 H-REF2432 - LDH-REF2433 W-REF2434 VL-REF2435 LDVL-REF2436 VR-REF2437 - LDVR-REF2438 MM-REF2439 M-REF2440 WORK-REF2441 RWORK-REF2442 - IFAILL-REF2443 IFAILR-REF2444 INFO-REF2445)))) - -(CFFI:DEFCFUN ("chseqr_" %%CHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2350 ':INT32) (LDH-REF2352 ':INT32) + (LDVL-REF2355 ':INT32) (LDVR-REF2357 ':INT32) + (MM-REF2358 ':INT32) (M-REF2359 ':INT32) + (INFO-REF2364 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2350 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2352 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF2355 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF2357 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF2358 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2359 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2364 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF2349 SELECT) + (H-REF2351 H) (W-REF2353 W) + (VL-REF2354 VL) (VR-REF2356 VR) + (WORK-REF2360 WORK) + (RWORK-REF2361 RWORK) + (IFAILL-REF2362 IFAILL) + (IFAILR-REF2363 IFAILR)) + (%%CHSEIN SIDE EIGSRC INITV SELECT-REF2349 N-REF2350 H-REF2351 + LDH-REF2352 W-REF2353 VL-REF2354 LDVL-REF2355 VR-REF2356 LDVR-REF2357 + MM-REF2358 M-REF2359 WORK-REF2360 RWORK-REF2361 IFAILL-REF2362 + IFAILR-REF2363 INFO-REF2364)))) + +(CFFI:DEFCFUN ("chseqr_" %%CHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPZ :STRING) @@ -12240,25 +12226,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2448 ':INT32) (ILO-REF2449 ':INT32) - (IHI-REF2450 ':INT32) (LDH-REF2452 ':INT32) - (LDZ-REF2455 ':INT32) (LWORK-REF2457 ':INT32) - (INFO-REF2458 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2448 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2449 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2450 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2452 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2455 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2457 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2458 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2451 H) (W-REF2453 W) - (Z-REF2454 Z) (WORK-REF2456 WORK)) - (%%CHSEQR JOB COMPZ N-REF2448 ILO-REF2449 IHI-REF2450 H-REF2451 - LDH-REF2452 W-REF2453 Z-REF2454 LDZ-REF2455 WORK-REF2456 - LWORK-REF2457 INFO-REF2458)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2367 ':INT32) (ILO-REF2368 ':INT32) + (IHI-REF2369 ':INT32) (LDH-REF2371 ':INT32) + (LDZ-REF2374 ':INT32) (LWORK-REF2376 ':INT32) + (INFO-REF2377 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2367 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2368 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2369 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2371 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2374 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF2376 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2377 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2370 H) (W-REF2372 W) + (Z-REF2373 Z) (WORK-REF2375 WORK)) + (%%CHSEQR JOB COMPZ N-REF2367 ILO-REF2368 IHI-REF2369 H-REF2370 + LDH-REF2371 W-REF2372 Z-REF2373 LDZ-REF2374 WORK-REF2375 LWORK-REF2376 + INFO-REF2377)))) (CFFI:DEFCFUN ("cla_gbamv_" %%CLA_GBAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :POINTER) (M :POINTER) @@ -12299,29 +12285,29 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2459 ':INT32) (M-REF2460 ':INT32) - (N-REF2461 ':INT32) (KL-REF2462 ':INT32) - (KU-REF2463 ':INT32) (ALPHA-REF2464 ':FLOAT) - (LDAB-REF2466 ':INT32) (INCX-REF2468 ':INT32) - (BETA-REF2469 ':FLOAT) (INCY-REF2471 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2459 :INT32) TRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2460 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2461 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2462 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2463 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2464 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2466 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2468 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2469 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2471 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2465 AB) (X-REF2467 X) - (Y-REF2470 Y)) - (%%CLA_GBAMV TRANS-REF2459 M-REF2460 N-REF2461 KL-REF2462 KU-REF2463 - ALPHA-REF2464 AB-REF2465 LDAB-REF2466 X-REF2467 INCX-REF2468 - BETA-REF2469 Y-REF2470 INCY-REF2471)))) + (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2378 ':INT32) (M-REF2379 ':INT32) + (N-REF2380 ':INT32) (KL-REF2381 ':INT32) + (KU-REF2382 ':INT32) (ALPHA-REF2383 ':FLOAT) + (LDAB-REF2385 ':INT32) (INCX-REF2387 ':INT32) + (BETA-REF2388 ':FLOAT) (INCY-REF2390 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2378 :INT32) TRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2379 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2380 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2381 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2382 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2383 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2385 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2387 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2388 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2390 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2384 AB) (X-REF2386 X) + (Y-REF2389 Y)) + (%%CLA_GBAMV TRANS-REF2378 M-REF2379 N-REF2380 KL-REF2381 KU-REF2382 + ALPHA-REF2383 AB-REF2384 LDAB-REF2385 X-REF2386 INCX-REF2387 + BETA-REF2388 Y-REF2389 INCY-REF2390)))) (CFFI:DEFCFUN ("cla_gbrcond_c_" %%CLA_GBRCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (TRANS :STRING) (N :POINTER) @@ -12374,28 +12360,27 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2473 ':INT32) (KL-REF2474 ':INT32) - (KU-REF2475 ':INT32) (LDAB-REF2477 ':INT32) - (LDAFB-REF2479 ':INT32) (CAPPLY-REF2482 ':INT32) - (INFO-REF2483 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2473 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2474 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2475 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2477 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2479 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2482 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2483 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2476 AB) (AFB-REF2478 AFB) - (IPIV-REF2480 IPIV) (C-REF2481 C) - (WORK-REF2484 WORK) - (RWORK-REF2485 RWORK)) - (%%CLA_GBRCOND_C TRANS N-REF2473 KL-REF2474 KU-REF2475 AB-REF2476 - LDAB-REF2477 AFB-REF2478 LDAFB-REF2479 IPIV-REF2480 - C-REF2481 CAPPLY-REF2482 INFO-REF2483 WORK-REF2484 - RWORK-REF2485)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2392 ':INT32) (KL-REF2393 ':INT32) + (KU-REF2394 ':INT32) (LDAB-REF2396 ':INT32) + (LDAFB-REF2398 ':INT32) (CAPPLY-REF2401 ':INT32) + (INFO-REF2402 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2392 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2393 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2394 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2396 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2398 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2401 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2402 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2395 AB) (AFB-REF2397 AFB) + (IPIV-REF2399 IPIV) (C-REF2400 C) + (WORK-REF2403 WORK) + (RWORK-REF2404 RWORK)) + (%%CLA_GBRCOND_C TRANS N-REF2392 KL-REF2393 KU-REF2394 AB-REF2395 + LDAB-REF2396 AFB-REF2397 LDAFB-REF2398 IPIV-REF2399 C-REF2400 + CAPPLY-REF2401 INFO-REF2402 WORK-REF2403 RWORK-REF2404)))) (CFFI:DEFCFUN ("cla_gbrcond_x_" %%CLA_GBRCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (TRANS :STRING) (N :POINTER) @@ -12448,25 +12433,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2487 ':INT32) (KL-REF2488 ':INT32) - (KU-REF2489 ':INT32) (LDAB-REF2491 ':INT32) - (LDAFB-REF2493 ':INT32) (INFO-REF2496 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2487 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2488 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2489 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2491 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2493 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2496 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2490 AB) (AFB-REF2492 AFB) - (IPIV-REF2494 IPIV) (X-REF2495 X) - (WORK-REF2497 WORK) - (RWORK-REF2498 RWORK)) - (%%CLA_GBRCOND_X TRANS N-REF2487 KL-REF2488 KU-REF2489 AB-REF2490 - LDAB-REF2491 AFB-REF2492 LDAFB-REF2493 IPIV-REF2494 - X-REF2495 INFO-REF2496 WORK-REF2497 RWORK-REF2498)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2406 ':INT32) (KL-REF2407 ':INT32) + (KU-REF2408 ':INT32) (LDAB-REF2410 ':INT32) + (LDAFB-REF2412 ':INT32) (INFO-REF2415 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2406 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2407 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2408 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2410 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2412 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2415 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2409 AB) (AFB-REF2411 AFB) + (IPIV-REF2413 IPIV) (X-REF2414 X) + (WORK-REF2416 WORK) + (RWORK-REF2417 RWORK)) + (%%CLA_GBRCOND_X TRANS N-REF2406 KL-REF2407 KU-REF2408 AB-REF2409 + LDAB-REF2410 AFB-REF2411 LDAFB-REF2412 IPIV-REF2413 X-REF2414 + INFO-REF2415 WORK-REF2416 RWORK-REF2417)))) (CFFI:DEFCFUN ("cla_gbrfsx_extended_" %%CLA_GBRFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (TRANS_TYPE :POINTER) @@ -12580,59 +12565,56 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2499 ':INT32) - (TRANS_TYPE-REF2500 ':INT32) (N-REF2501 ':INT32) - (KL-REF2502 ':INT32) (KU-REF2503 ':INT32) - (NRHS-REF2504 ':INT32) (LDAB-REF2506 ':INT32) - (LDAFB-REF2508 ':INT32) (COLEQU-REF2510 ':INT32) - (LDB-REF2513 ':INT32) (LDY-REF2515 ':INT32) - (N_NORMS-REF2517 ':INT32) (RCOND-REF2524 ':FLOAT) - (ITHRESH-REF2525 ':INT32) - (RTHRESH-REF2526 ':FLOAT) (DZ_UB-REF2527 ':FLOAT) - (IGNORE_CWISE-REF2528 ':INT32) - (INFO-REF2529 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2499 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF2500 :INT32) TRANS_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2501 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2502 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2503 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2504 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2506 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2508 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2510 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2513 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2515 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2517 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2524 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2525 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2526 :FLOAT) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2527 :FLOAT) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2528 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2529 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2505 AB) (AFB-REF2507 AFB) - (IPIV-REF2509 IPIV) (C-REF2511 C) - (B-REF2512 B) (Y-REF2514 Y) - (BERR_OUT-REF2516 BERR_OUT) - (ERR_BNDS_NORM-REF2518 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2418 ':INT32) + (TRANS_TYPE-REF2419 ':INT32) (N-REF2420 ':INT32) + (KL-REF2421 ':INT32) (KU-REF2422 ':INT32) + (NRHS-REF2423 ':INT32) (LDAB-REF2425 ':INT32) + (LDAFB-REF2427 ':INT32) (COLEQU-REF2429 ':INT32) + (LDB-REF2432 ':INT32) (LDY-REF2434 ':INT32) + (N_NORMS-REF2436 ':INT32) (RCOND-REF2443 ':FLOAT) + (ITHRESH-REF2444 ':INT32) + (RTHRESH-REF2445 ':FLOAT) (DZ_UB-REF2446 ':FLOAT) + (IGNORE_CWISE-REF2447 ':INT32) + (INFO-REF2448 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2418 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF2419 :INT32) TRANS_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2420 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2421 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2422 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2423 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2425 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2427 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2429 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2432 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2434 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2436 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2443 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2444 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2445 :FLOAT) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2446 :FLOAT) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2447 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2448 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2424 AB) (AFB-REF2426 AFB) + (IPIV-REF2428 IPIV) (C-REF2430 C) + (B-REF2431 B) (Y-REF2433 Y) + (BERR_OUT-REF2435 BERR_OUT) + (ERR_BNDS_NORM-REF2437 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF2519 + (ERR_BNDS_COMP-REF2438 ERR_BNDS_COMP) - (RES-REF2520 RES) (AYB-REF2521 AYB) - (DY-REF2522 DY) - (Y_TAIL-REF2523 Y_TAIL)) - (%%CLA_GBRFSX_EXTENDED PREC_TYPE-REF2499 TRANS_TYPE-REF2500 N-REF2501 - KL-REF2502 KU-REF2503 NRHS-REF2504 AB-REF2505 - LDAB-REF2506 AFB-REF2507 LDAFB-REF2508 - IPIV-REF2509 COLEQU-REF2510 C-REF2511 B-REF2512 - LDB-REF2513 Y-REF2514 LDY-REF2515 BERR_OUT-REF2516 - N_NORMS-REF2517 ERR_BNDS_NORM-REF2518 - ERR_BNDS_COMP-REF2519 RES-REF2520 AYB-REF2521 - DY-REF2522 Y_TAIL-REF2523 RCOND-REF2524 - ITHRESH-REF2525 RTHRESH-REF2526 DZ_UB-REF2527 - IGNORE_CWISE-REF2528 INFO-REF2529)))) + (RES-REF2439 RES) (AYB-REF2440 AYB) + (DY-REF2441 DY) + (Y_TAIL-REF2442 Y_TAIL)) + (%%CLA_GBRFSX_EXTENDED PREC_TYPE-REF2418 TRANS_TYPE-REF2419 N-REF2420 + KL-REF2421 KU-REF2422 NRHS-REF2423 AB-REF2424 LDAB-REF2425 AFB-REF2426 + LDAFB-REF2427 IPIV-REF2428 COLEQU-REF2429 C-REF2430 B-REF2431 + LDB-REF2432 Y-REF2433 LDY-REF2434 BERR_OUT-REF2435 N_NORMS-REF2436 + ERR_BNDS_NORM-REF2437 ERR_BNDS_COMP-REF2438 RES-REF2439 AYB-REF2440 + DY-REF2441 Y_TAIL-REF2442 RCOND-REF2443 ITHRESH-REF2444 RTHRESH-REF2445 + DZ_UB-REF2446 IGNORE_CWISE-REF2447 INFO-REF2448)))) (CFFI:DEFCFUN ("cla_gbrpvgrw_" %%CLA_GBRPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (N :POINTER) (KL :POINTER) @@ -12661,21 +12643,21 @@ (COMMON-LISP:*)) AFB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2530 ':INT32) (KL-REF2531 ':INT32) - (KU-REF2532 ':INT32) (NCOLS-REF2533 ':INT32) - (LDAB-REF2535 ':INT32) (LDAFB-REF2537 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2530 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2531 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2532 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2533 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2535 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2537 :INT32) LDAFB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2534 AB) (AFB-REF2536 AFB)) - (%%CLA_GBRPVGRW N-REF2530 KL-REF2531 KU-REF2532 NCOLS-REF2533 AB-REF2534 - LDAB-REF2535 AFB-REF2536 LDAFB-REF2537)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2449 ':INT32) (KL-REF2450 ':INT32) + (KU-REF2451 ':INT32) (NCOLS-REF2452 ':INT32) + (LDAB-REF2454 ':INT32) (LDAFB-REF2456 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2449 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF2450 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF2451 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2452 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF2454 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF2456 :INT32) LDAFB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF2453 AB) (AFB-REF2455 AFB)) + (%%CLA_GBRPVGRW N-REF2449 KL-REF2450 KU-REF2451 NCOLS-REF2452 AB-REF2453 + LDAB-REF2454 AFB-REF2455 LDAFB-REF2456)))) (CFFI:DEFCFUN ("cla_geamv_" %%CLA_GEAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :POINTER) (M :POINTER) @@ -12711,26 +12693,26 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2538 ':INT32) (M-REF2539 ':INT32) - (N-REF2540 ':INT32) (ALPHA-REF2541 ':FLOAT) - (LDA-REF2543 ':INT32) (INCX-REF2545 ':INT32) - (BETA-REF2546 ':FLOAT) (INCY-REF2548 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2538 :INT32) TRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2539 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2540 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2541 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2543 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2545 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2546 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2548 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2542 A) (X-REF2544 X) - (Y-REF2547 Y)) - (%%CLA_GEAMV TRANS-REF2538 M-REF2539 N-REF2540 ALPHA-REF2541 A-REF2542 - LDA-REF2543 X-REF2544 INCX-REF2545 BETA-REF2546 Y-REF2547 - INCY-REF2548)))) + (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF2457 ':INT32) (M-REF2458 ':INT32) + (N-REF2459 ':INT32) (ALPHA-REF2460 ':FLOAT) + (LDA-REF2462 ':INT32) (INCX-REF2464 ':INT32) + (BETA-REF2465 ':FLOAT) (INCY-REF2467 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF2457 :INT32) TRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2458 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2459 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2460 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2462 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2464 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2465 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2467 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2461 A) (X-REF2463 X) + (Y-REF2466 Y)) + (%%CLA_GEAMV TRANS-REF2457 M-REF2458 N-REF2459 ALPHA-REF2460 A-REF2461 + LDA-REF2462 X-REF2463 INCX-REF2464 BETA-REF2465 Y-REF2466 + INCY-REF2467)))) (CFFI:DEFCFUN ("cla_gercond_c_" %%CLA_GERCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (TRANS :STRING) (N :POINTER) @@ -12778,24 +12760,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2550 ':INT32) (LDA-REF2552 ':INT32) - (LDAF-REF2554 ':INT32) (CAPPLY-REF2557 ':INT32) - (INFO-REF2558 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2550 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2552 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2554 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2557 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2558 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2551 A) (AF-REF2553 AF) - (IPIV-REF2555 IPIV) (C-REF2556 C) - (WORK-REF2559 WORK) - (RWORK-REF2560 RWORK)) - (%%CLA_GERCOND_C TRANS N-REF2550 A-REF2551 LDA-REF2552 AF-REF2553 - LDAF-REF2554 IPIV-REF2555 C-REF2556 CAPPLY-REF2557 - INFO-REF2558 WORK-REF2559 RWORK-REF2560)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2469 ':INT32) (LDA-REF2471 ':INT32) + (LDAF-REF2473 ':INT32) (CAPPLY-REF2476 ':INT32) + (INFO-REF2477 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2469 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2471 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2473 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2476 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2477 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2470 A) (AF-REF2472 AF) + (IPIV-REF2474 IPIV) (C-REF2475 C) + (WORK-REF2478 WORK) + (RWORK-REF2479 RWORK)) + (%%CLA_GERCOND_C TRANS N-REF2469 A-REF2470 LDA-REF2471 AF-REF2472 + LDAF-REF2473 IPIV-REF2474 C-REF2475 CAPPLY-REF2476 INFO-REF2477 + WORK-REF2478 RWORK-REF2479)))) (CFFI:DEFCFUN ("cla_gercond_x_" %%CLA_GERCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (TRANS :STRING) (N :POINTER) @@ -12844,22 +12826,22 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2562 ':INT32) (LDA-REF2564 ':INT32) - (LDAF-REF2566 ':INT32) (INFO-REF2569 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2562 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2564 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2566 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2569 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2563 A) (AF-REF2565 AF) - (IPIV-REF2567 IPIV) (X-REF2568 X) - (WORK-REF2570 WORK) - (RWORK-REF2571 RWORK)) - (%%CLA_GERCOND_X TRANS N-REF2562 A-REF2563 LDA-REF2564 AF-REF2565 - LDAF-REF2566 IPIV-REF2567 X-REF2568 INFO-REF2569 - WORK-REF2570 RWORK-REF2571)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2481 ':INT32) (LDA-REF2483 ':INT32) + (LDAF-REF2485 ':INT32) (INFO-REF2488 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2481 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2483 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2485 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2488 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2482 A) (AF-REF2484 AF) + (IPIV-REF2486 IPIV) (X-REF2487 X) + (WORK-REF2489 WORK) + (RWORK-REF2490 RWORK)) + (%%CLA_GERCOND_X TRANS N-REF2481 A-REF2482 LDA-REF2483 AF-REF2484 + LDAF-REF2485 IPIV-REF2486 X-REF2487 INFO-REF2488 WORK-REF2489 + RWORK-REF2490)))) (CFFI:DEFCFUN ("cla_gerfsx_extended_" %%CLA_GERFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (TRANS_TYPE :POINTER) @@ -12968,53 +12950,51 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2572 ':INT32) - (TRANS_TYPE-REF2573 ':INT32) (N-REF2574 ':INT32) - (NRHS-REF2575 ':INT32) (LDA-REF2577 ':INT32) - (LDAF-REF2579 ':INT32) (COLEQU-REF2581 ':INT32) - (LDB-REF2584 ':INT32) (LDY-REF2586 ':INT32) - (N_NORMS-REF2588 ':INT32) (RCOND-REF2595 ':FLOAT) - (ITHRESH-REF2596 ':INT32) - (RTHRESH-REF2597 ':FLOAT) (DZ_UB-REF2598 ':FLOAT) - (IGNORE_CWISE-REF2599 ':INT32) - (INFO-REF2600 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2572 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF2573 :INT32) TRANS_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2574 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2575 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2577 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2579 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2581 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2584 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2586 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2588 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2595 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2596 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2597 :FLOAT) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2598 :FLOAT) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2599 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2600 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2576 A) (AF-REF2578 AF) - (IPIV-REF2580 IPIV) (C-REF2582 C) - (B-REF2583 B) (Y-REF2585 Y) - (BERR_OUT-REF2587 BERR_OUT) - (ERRS_N-REF2589 ERRS_N) - (ERRS_C-REF2590 ERRS_C) - (RES-REF2591 RES) (AYB-REF2592 AYB) - (DY-REF2593 DY) - (Y_TAIL-REF2594 Y_TAIL)) - (%%CLA_GERFSX_EXTENDED PREC_TYPE-REF2572 TRANS_TYPE-REF2573 N-REF2574 - NRHS-REF2575 A-REF2576 LDA-REF2577 AF-REF2578 - LDAF-REF2579 IPIV-REF2580 COLEQU-REF2581 C-REF2582 - B-REF2583 LDB-REF2584 Y-REF2585 LDY-REF2586 - BERR_OUT-REF2587 N_NORMS-REF2588 ERRS_N-REF2589 - ERRS_C-REF2590 RES-REF2591 AYB-REF2592 DY-REF2593 - Y_TAIL-REF2594 RCOND-REF2595 ITHRESH-REF2596 - RTHRESH-REF2597 DZ_UB-REF2598 IGNORE_CWISE-REF2599 - INFO-REF2600)))) + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2491 ':INT32) + (TRANS_TYPE-REF2492 ':INT32) (N-REF2493 ':INT32) + (NRHS-REF2494 ':INT32) (LDA-REF2496 ':INT32) + (LDAF-REF2498 ':INT32) (COLEQU-REF2500 ':INT32) + (LDB-REF2503 ':INT32) (LDY-REF2505 ':INT32) + (N_NORMS-REF2507 ':INT32) (RCOND-REF2514 ':FLOAT) + (ITHRESH-REF2515 ':INT32) + (RTHRESH-REF2516 ':FLOAT) (DZ_UB-REF2517 ':FLOAT) + (IGNORE_CWISE-REF2518 ':INT32) + (INFO-REF2519 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2491 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF2492 :INT32) TRANS_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2493 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2494 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2496 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2498 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2500 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2503 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2505 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2507 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2514 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2515 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2516 :FLOAT) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2517 :FLOAT) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2518 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2519 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2495 A) (AF-REF2497 AF) + (IPIV-REF2499 IPIV) (C-REF2501 C) + (B-REF2502 B) (Y-REF2504 Y) + (BERR_OUT-REF2506 BERR_OUT) + (ERRS_N-REF2508 ERRS_N) + (ERRS_C-REF2509 ERRS_C) + (RES-REF2510 RES) (AYB-REF2511 AYB) + (DY-REF2512 DY) + (Y_TAIL-REF2513 Y_TAIL)) + (%%CLA_GERFSX_EXTENDED PREC_TYPE-REF2491 TRANS_TYPE-REF2492 N-REF2493 + NRHS-REF2494 A-REF2495 LDA-REF2496 AF-REF2497 LDAF-REF2498 IPIV-REF2499 + COLEQU-REF2500 C-REF2501 B-REF2502 LDB-REF2503 Y-REF2504 LDY-REF2505 + BERR_OUT-REF2506 N_NORMS-REF2507 ERRS_N-REF2508 ERRS_C-REF2509 + RES-REF2510 AYB-REF2511 DY-REF2512 Y_TAIL-REF2513 RCOND-REF2514 + ITHRESH-REF2515 RTHRESH-REF2516 DZ_UB-REF2517 IGNORE_CWISE-REF2518 + INFO-REF2519)))) (CFFI:DEFCFUN ("cla_gerpvgrw_" %%CLA_GERPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (N :POINTER) (NCOLS :POINTER) @@ -13039,18 +13019,18 @@ (COMMON-LISP:*)) AF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2601 ':INT32) (NCOLS-REF2602 ':INT32) - (LDA-REF2604 ':INT32) (LDAF-REF2606 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2601 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2602 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2604 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2606 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2603 A) (AF-REF2605 AF)) - (%%CLA_GERPVGRW N-REF2601 NCOLS-REF2602 A-REF2603 LDA-REF2604 AF-REF2605 - LDAF-REF2606)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2520 ':INT32) (NCOLS-REF2521 ':INT32) + (LDA-REF2523 ':INT32) (LDAF-REF2525 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2520 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2521 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2523 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2525 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2522 A) (AF-REF2524 AF)) + (%%CLA_GERPVGRW N-REF2520 NCOLS-REF2521 A-REF2522 LDA-REF2523 AF-REF2524 + LDAF-REF2525)))) (CFFI:DEFCFUN ("cla_heamv_" %%CLA_HEAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :POINTER) (N :POINTER) @@ -13084,25 +13064,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF2607 ':INT32) (N-REF2608 ':INT32) - (ALPHA-REF2609 ':FLOAT) (LDA-REF2611 ':INT32) - (INCX-REF2613 ':INT32) (BETA-REF2614 ':FLOAT) - (INCY-REF2616 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF2607 :INT32) UPLO) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2608 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2609 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2611 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2613 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2614 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2616 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2610 A) (X-REF2612 X) - (Y-REF2615 Y)) - (%%CLA_HEAMV UPLO-REF2607 N-REF2608 ALPHA-REF2609 A-REF2610 LDA-REF2611 - X-REF2612 INCX-REF2613 BETA-REF2614 Y-REF2615 - INCY-REF2616)))) + (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF2526 ':INT32) (N-REF2527 ':INT32) + (ALPHA-REF2528 ':FLOAT) (LDA-REF2530 ':INT32) + (INCX-REF2532 ':INT32) (BETA-REF2533 ':FLOAT) + (INCY-REF2535 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF2526 :INT32) UPLO) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2527 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2528 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2530 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2532 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2533 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2535 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2529 A) (X-REF2531 X) + (Y-REF2534 Y)) + (%%CLA_HEAMV UPLO-REF2526 N-REF2527 ALPHA-REF2528 A-REF2529 LDA-REF2530 + X-REF2531 INCX-REF2532 BETA-REF2533 Y-REF2534 INCY-REF2535)))) (CFFI:DEFCFUN ("cla_hercond_c_" %%CLA_HERCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -13150,24 +13129,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2618 ':INT32) (LDA-REF2620 ':INT32) - (LDAF-REF2622 ':INT32) (CAPPLY-REF2625 ':INT32) - (INFO-REF2626 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2618 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2620 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2622 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2625 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2626 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2619 A) (AF-REF2621 AF) - (IPIV-REF2623 IPIV) (C-REF2624 C) - (WORK-REF2627 WORK) - (RWORK-REF2628 RWORK)) - (%%CLA_HERCOND_C UPLO N-REF2618 A-REF2619 LDA-REF2620 AF-REF2621 - LDAF-REF2622 IPIV-REF2623 C-REF2624 CAPPLY-REF2625 - INFO-REF2626 WORK-REF2627 RWORK-REF2628)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2537 ':INT32) (LDA-REF2539 ':INT32) + (LDAF-REF2541 ':INT32) (CAPPLY-REF2544 ':INT32) + (INFO-REF2545 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2537 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2539 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2541 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2544 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2545 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2538 A) (AF-REF2540 AF) + (IPIV-REF2542 IPIV) (C-REF2543 C) + (WORK-REF2546 WORK) + (RWORK-REF2547 RWORK)) + (%%CLA_HERCOND_C UPLO N-REF2537 A-REF2538 LDA-REF2539 AF-REF2540 + LDAF-REF2541 IPIV-REF2542 C-REF2543 CAPPLY-REF2544 INFO-REF2545 + WORK-REF2546 RWORK-REF2547)))) (CFFI:DEFCFUN ("cla_hercond_x_" %%CLA_HERCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -13215,22 +13194,22 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2630 ':INT32) (LDA-REF2632 ':INT32) - (LDAF-REF2634 ':INT32) (INFO-REF2637 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2630 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2632 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2634 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2637 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2631 A) (AF-REF2633 AF) - (IPIV-REF2635 IPIV) (X-REF2636 X) - (WORK-REF2638 WORK) - (RWORK-REF2639 RWORK)) - (%%CLA_HERCOND_X UPLO N-REF2630 A-REF2631 LDA-REF2632 AF-REF2633 - LDAF-REF2634 IPIV-REF2635 X-REF2636 INFO-REF2637 - WORK-REF2638 RWORK-REF2639)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2549 ':INT32) (LDA-REF2551 ':INT32) + (LDAF-REF2553 ':INT32) (INFO-REF2556 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2549 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2551 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2553 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2556 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2550 A) (AF-REF2552 AF) + (IPIV-REF2554 IPIV) (X-REF2555 X) + (WORK-REF2557 WORK) + (RWORK-REF2558 RWORK)) + (%%CLA_HERCOND_X UPLO N-REF2549 A-REF2550 LDA-REF2551 AF-REF2552 + LDAF-REF2553 IPIV-REF2554 X-REF2555 INFO-REF2556 WORK-REF2557 + RWORK-REF2558)))) (CFFI:DEFCFUN ("cla_herfsx_extended_" %%CLA_HERFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -13338,53 +13317,51 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2640 ':INT32) (N-REF2642 ':INT32) - (NRHS-REF2643 ':INT32) (LDA-REF2645 ':INT32) - (LDAF-REF2647 ':INT32) (COLEQU-REF2649 ':INT32) - (LDB-REF2652 ':INT32) (LDY-REF2654 ':INT32) - (N_NORMS-REF2656 ':INT32) (RCOND-REF2663 ':FLOAT) - (ITHRESH-REF2664 ':INT32) - (RTHRESH-REF2665 ':FLOAT) (DZ_UB-REF2666 ':FLOAT) - (IGNORE_CWISE-REF2667 ':INT32) - (INFO-REF2668 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2640 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2642 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2643 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2645 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2647 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2649 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2652 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2654 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2656 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2663 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2664 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2665 :FLOAT) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2666 :FLOAT) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2667 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2668 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2644 A) (AF-REF2646 AF) - (IPIV-REF2648 IPIV) (C-REF2650 C) - (B-REF2651 B) (Y-REF2653 Y) - (BERR_OUT-REF2655 BERR_OUT) - (ERR_BNDS_NORM-REF2657 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2559 ':INT32) (N-REF2561 ':INT32) + (NRHS-REF2562 ':INT32) (LDA-REF2564 ':INT32) + (LDAF-REF2566 ':INT32) (COLEQU-REF2568 ':INT32) + (LDB-REF2571 ':INT32) (LDY-REF2573 ':INT32) + (N_NORMS-REF2575 ':INT32) (RCOND-REF2582 ':FLOAT) + (ITHRESH-REF2583 ':INT32) + (RTHRESH-REF2584 ':FLOAT) (DZ_UB-REF2585 ':FLOAT) + (IGNORE_CWISE-REF2586 ':INT32) + (INFO-REF2587 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2559 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2561 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2562 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2564 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2566 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2568 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2571 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2573 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2575 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2582 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2583 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2584 :FLOAT) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2585 :FLOAT) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2586 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2587 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2563 A) (AF-REF2565 AF) + (IPIV-REF2567 IPIV) (C-REF2569 C) + (B-REF2570 B) (Y-REF2572 Y) + (BERR_OUT-REF2574 BERR_OUT) + (ERR_BNDS_NORM-REF2576 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF2658 + (ERR_BNDS_COMP-REF2577 ERR_BNDS_COMP) - (RES-REF2659 RES) (AYB-REF2660 AYB) - (DY-REF2661 DY) - (Y_TAIL-REF2662 Y_TAIL)) - (%%CLA_HERFSX_EXTENDED PREC_TYPE-REF2640 UPLO N-REF2642 NRHS-REF2643 - A-REF2644 LDA-REF2645 AF-REF2646 LDAF-REF2647 - IPIV-REF2648 COLEQU-REF2649 C-REF2650 B-REF2651 - LDB-REF2652 Y-REF2653 LDY-REF2654 BERR_OUT-REF2655 - N_NORMS-REF2656 ERR_BNDS_NORM-REF2657 - ERR_BNDS_COMP-REF2658 RES-REF2659 AYB-REF2660 - DY-REF2661 Y_TAIL-REF2662 RCOND-REF2663 - ITHRESH-REF2664 RTHRESH-REF2665 DZ_UB-REF2666 - IGNORE_CWISE-REF2667 INFO-REF2668)))) + (RES-REF2578 RES) (AYB-REF2579 AYB) + (DY-REF2580 DY) + (Y_TAIL-REF2581 Y_TAIL)) + (%%CLA_HERFSX_EXTENDED PREC_TYPE-REF2559 UPLO N-REF2561 NRHS-REF2562 + A-REF2563 LDA-REF2564 AF-REF2565 LDAF-REF2566 IPIV-REF2567 + COLEQU-REF2568 C-REF2569 B-REF2570 LDB-REF2571 Y-REF2572 LDY-REF2573 + BERR_OUT-REF2574 N_NORMS-REF2575 ERR_BNDS_NORM-REF2576 + ERR_BNDS_COMP-REF2577 RES-REF2578 AYB-REF2579 DY-REF2580 Y_TAIL-REF2581 + RCOND-REF2582 ITHRESH-REF2583 RTHRESH-REF2584 DZ_UB-REF2585 + IGNORE_CWISE-REF2586 INFO-REF2587)))) (CFFI:DEFCFUN ("cla_herpvgrw_" %%CLA_HERPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -13420,20 +13397,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2670 ':INT32) (INFO-REF2671 ':INT32) - (LDA-REF2673 ':INT32) (LDAF-REF2675 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2670 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2671 :INT32) INFO) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2673 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2675 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2672 A) (AF-REF2674 AF) - (IPIV-REF2676 IPIV) - (WORK-REF2677 WORK)) - (%%CLA_HERPVGRW UPLO N-REF2670 INFO-REF2671 A-REF2672 LDA-REF2673 - AF-REF2674 LDAF-REF2675 IPIV-REF2676 WORK-REF2677)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2589 ':INT32) (INFO-REF2590 ':INT32) + (LDA-REF2592 ':INT32) (LDAF-REF2594 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2589 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2590 :INT32) INFO) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2592 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2594 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2591 A) (AF-REF2593 AF) + (IPIV-REF2595 IPIV) + (WORK-REF2596 WORK)) + (%%CLA_HERPVGRW UPLO N-REF2589 INFO-REF2590 A-REF2591 LDA-REF2592 + AF-REF2593 LDAF-REF2594 IPIV-REF2595 WORK-REF2596)))) (CFFI:DEFCFUN ("cla_lin_berr_" %%CLA_LIN_BERR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NZ :POINTER) @@ -13458,18 +13435,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2678 ':INT32) (NZ-REF2679 ':INT32) - (NRHS-REF2680 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2678 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF2679 :INT32) NZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2680 :INT32) NRHS) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF2681 RES) (AYB-REF2682 AYB) - (BERR-REF2683 BERR)) - (%%CLA_LIN_BERR N-REF2678 NZ-REF2679 NRHS-REF2680 RES-REF2681 AYB-REF2682 - BERR-REF2683)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2597 ':INT32) (NZ-REF2598 ':INT32) + (NRHS-REF2599 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2597 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF2598 :INT32) NZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2599 :INT32) NRHS) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF2600 RES) (AYB-REF2601 AYB) + (BERR-REF2602 BERR)) + (%%CLA_LIN_BERR N-REF2597 NZ-REF2598 NRHS-REF2599 RES-REF2600 AYB-REF2601 + BERR-REF2602)))) (CFFI:DEFCFUN ("cla_porcond_c_" %%CLA_PORCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -13512,23 +13489,23 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2685 ':INT32) (LDA-REF2687 ':INT32) - (LDAF-REF2689 ':INT32) (CAPPLY-REF2691 ':INT32) - (INFO-REF2692 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2685 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2687 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2689 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2691 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2692 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2686 A) (AF-REF2688 AF) - (C-REF2690 C) (WORK-REF2693 WORK) - (RWORK-REF2694 RWORK)) - (%%CLA_PORCOND_C UPLO N-REF2685 A-REF2686 LDA-REF2687 AF-REF2688 - LDAF-REF2689 C-REF2690 CAPPLY-REF2691 INFO-REF2692 - WORK-REF2693 RWORK-REF2694)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2604 ':INT32) (LDA-REF2606 ':INT32) + (LDAF-REF2608 ':INT32) (CAPPLY-REF2610 ':INT32) + (INFO-REF2611 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2604 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2606 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2608 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2610 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2611 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2605 A) (AF-REF2607 AF) + (C-REF2609 C) (WORK-REF2612 WORK) + (RWORK-REF2613 RWORK)) + (%%CLA_PORCOND_C UPLO N-REF2604 A-REF2605 LDA-REF2606 AF-REF2607 + LDAF-REF2608 C-REF2609 CAPPLY-REF2610 INFO-REF2611 WORK-REF2612 + RWORK-REF2613)))) (CFFI:DEFCFUN ("cla_porcond_x_" %%CLA_PORCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -13571,21 +13548,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2696 ':INT32) (LDA-REF2698 ':INT32) - (LDAF-REF2700 ':INT32) (INFO-REF2702 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2696 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2698 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2700 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2702 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2697 A) (AF-REF2699 AF) - (X-REF2701 X) (WORK-REF2703 WORK) - (RWORK-REF2704 RWORK)) - (%%CLA_PORCOND_X UPLO N-REF2696 A-REF2697 LDA-REF2698 AF-REF2699 - LDAF-REF2700 X-REF2701 INFO-REF2702 WORK-REF2703 - RWORK-REF2704)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2615 ':INT32) (LDA-REF2617 ':INT32) + (LDAF-REF2619 ':INT32) (INFO-REF2621 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2615 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2617 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2619 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2621 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2616 A) (AF-REF2618 AF) + (X-REF2620 X) (WORK-REF2622 WORK) + (RWORK-REF2623 RWORK)) + (%%CLA_PORCOND_X UPLO N-REF2615 A-REF2616 LDA-REF2617 AF-REF2618 + LDAF-REF2619 X-REF2620 INFO-REF2621 WORK-REF2622 RWORK-REF2623)))) (CFFI:DEFCFUN ("cla_porfsx_extended_" %%CLA_PORFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -13688,53 +13664,50 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2705 ':INT32) (N-REF2707 ':INT32) - (NRHS-REF2708 ':INT32) (LDA-REF2710 ':INT32) - (LDAF-REF2712 ':INT32) (COLEQU-REF2713 ':INT32) - (LDB-REF2716 ':INT32) (LDY-REF2718 ':INT32) - (N_NORMS-REF2720 ':INT32) (RCOND-REF2727 ':FLOAT) - (ITHRESH-REF2728 ':INT32) - (RTHRESH-REF2729 ':FLOAT) (DZ_UB-REF2730 ':FLOAT) - (IGNORE_CWISE-REF2731 ':INT32) - (INFO-REF2732 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2705 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2707 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2708 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2710 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2712 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2713 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2716 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2718 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2720 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2727 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2728 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2729 :FLOAT) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2730 :FLOAT) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2731 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2732 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2709 A) (AF-REF2711 AF) - (C-REF2714 C) (B-REF2715 B) - (Y-REF2717 Y) - (BERR_OUT-REF2719 BERR_OUT) - (ERR_BNDS_NORM-REF2721 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2624 ':INT32) (N-REF2626 ':INT32) + (NRHS-REF2627 ':INT32) (LDA-REF2629 ':INT32) + (LDAF-REF2631 ':INT32) (COLEQU-REF2632 ':INT32) + (LDB-REF2635 ':INT32) (LDY-REF2637 ':INT32) + (N_NORMS-REF2639 ':INT32) (RCOND-REF2646 ':FLOAT) + (ITHRESH-REF2647 ':INT32) + (RTHRESH-REF2648 ':FLOAT) (DZ_UB-REF2649 ':FLOAT) + (IGNORE_CWISE-REF2650 ':INT32) + (INFO-REF2651 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2624 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2626 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2627 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2629 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2631 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2632 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2635 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2637 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2639 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2646 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2647 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2648 :FLOAT) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2649 :FLOAT) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2650 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2651 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2628 A) (AF-REF2630 AF) + (C-REF2633 C) (B-REF2634 B) + (Y-REF2636 Y) + (BERR_OUT-REF2638 BERR_OUT) + (ERR_BNDS_NORM-REF2640 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF2722 + (ERR_BNDS_COMP-REF2641 ERR_BNDS_COMP) - (RES-REF2723 RES) (AYB-REF2724 AYB) - (DY-REF2725 DY) - (Y_TAIL-REF2726 Y_TAIL)) - (%%CLA_PORFSX_EXTENDED PREC_TYPE-REF2705 UPLO N-REF2707 NRHS-REF2708 - A-REF2709 LDA-REF2710 AF-REF2711 LDAF-REF2712 - COLEQU-REF2713 C-REF2714 B-REF2715 LDB-REF2716 - Y-REF2717 LDY-REF2718 BERR_OUT-REF2719 - N_NORMS-REF2720 ERR_BNDS_NORM-REF2721 - ERR_BNDS_COMP-REF2722 RES-REF2723 AYB-REF2724 - DY-REF2725 Y_TAIL-REF2726 RCOND-REF2727 - ITHRESH-REF2728 RTHRESH-REF2729 DZ_UB-REF2730 - IGNORE_CWISE-REF2731 INFO-REF2732)))) + (RES-REF2642 RES) (AYB-REF2643 AYB) + (DY-REF2644 DY) + (Y_TAIL-REF2645 Y_TAIL)) + (%%CLA_PORFSX_EXTENDED PREC_TYPE-REF2624 UPLO N-REF2626 NRHS-REF2627 + A-REF2628 LDA-REF2629 AF-REF2630 LDAF-REF2631 COLEQU-REF2632 C-REF2633 + B-REF2634 LDB-REF2635 Y-REF2636 LDY-REF2637 BERR_OUT-REF2638 + N_NORMS-REF2639 ERR_BNDS_NORM-REF2640 ERR_BNDS_COMP-REF2641 RES-REF2642 + AYB-REF2643 DY-REF2644 Y_TAIL-REF2645 RCOND-REF2646 ITHRESH-REF2647 + RTHRESH-REF2648 DZ_UB-REF2649 IGNORE_CWISE-REF2650 INFO-REF2651)))) (CFFI:DEFCFUN ("cla_porpvgrw_" %%CLA_PORPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (NCOLS :POINTER) @@ -13763,18 +13736,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF2734 ':INT32) (LDA-REF2736 ':INT32) - (LDAF-REF2738 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2734 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2736 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2738 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2735 A) (AF-REF2737 AF) - (WORK-REF2739 WORK)) - (%%CLA_PORPVGRW UPLO NCOLS-REF2734 A-REF2735 LDA-REF2736 AF-REF2737 - LDAF-REF2738 WORK-REF2739)))) + (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF2653 ':INT32) (LDA-REF2655 ':INT32) + (LDAF-REF2657 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF2653 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2655 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2657 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2654 A) (AF-REF2656 AF) + (WORK-REF2658 WORK)) + (%%CLA_PORPVGRW UPLO NCOLS-REF2653 A-REF2654 LDA-REF2655 AF-REF2656 + LDAF-REF2657 WORK-REF2658)))) (CFFI:DEFCFUN ("cla_syamv_" %%CLA_SYAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :POINTER) (N :POINTER) @@ -13808,25 +13781,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF2740 ':INT32) (N-REF2741 ':INT32) - (ALPHA-REF2742 ':FLOAT) (LDA-REF2744 ':INT32) - (INCX-REF2746 ':INT32) (BETA-REF2747 ':FLOAT) - (INCY-REF2749 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF2740 :INT32) UPLO) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2741 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2742 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2744 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2746 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2747 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2749 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2743 A) (X-REF2745 X) - (Y-REF2748 Y)) - (%%CLA_SYAMV UPLO-REF2740 N-REF2741 ALPHA-REF2742 A-REF2743 LDA-REF2744 - X-REF2745 INCX-REF2746 BETA-REF2747 Y-REF2748 - INCY-REF2749)))) + (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF2659 ':INT32) (N-REF2660 ':INT32) + (ALPHA-REF2661 ':FLOAT) (LDA-REF2663 ':INT32) + (INCX-REF2665 ':INT32) (BETA-REF2666 ':FLOAT) + (INCY-REF2668 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF2659 :INT32) UPLO) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2660 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2661 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2663 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2665 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2666 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2668 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2662 A) (X-REF2664 X) + (Y-REF2667 Y)) + (%%CLA_SYAMV UPLO-REF2659 N-REF2660 ALPHA-REF2661 A-REF2662 LDA-REF2663 + X-REF2664 INCX-REF2665 BETA-REF2666 Y-REF2667 INCY-REF2668)))) (CFFI:DEFCFUN ("cla_syrcond_c_" %%CLA_SYRCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -13874,24 +13846,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2751 ':INT32) (LDA-REF2753 ':INT32) - (LDAF-REF2755 ':INT32) (CAPPLY-REF2758 ':INT32) - (INFO-REF2759 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2751 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2753 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2755 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2758 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2759 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2752 A) (AF-REF2754 AF) - (IPIV-REF2756 IPIV) (C-REF2757 C) - (WORK-REF2760 WORK) - (RWORK-REF2761 RWORK)) - (%%CLA_SYRCOND_C UPLO N-REF2751 A-REF2752 LDA-REF2753 AF-REF2754 - LDAF-REF2755 IPIV-REF2756 C-REF2757 CAPPLY-REF2758 - INFO-REF2759 WORK-REF2760 RWORK-REF2761)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2670 ':INT32) (LDA-REF2672 ':INT32) + (LDAF-REF2674 ':INT32) (CAPPLY-REF2677 ':INT32) + (INFO-REF2678 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2670 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2672 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2674 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF2677 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2678 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2671 A) (AF-REF2673 AF) + (IPIV-REF2675 IPIV) (C-REF2676 C) + (WORK-REF2679 WORK) + (RWORK-REF2680 RWORK)) + (%%CLA_SYRCOND_C UPLO N-REF2670 A-REF2671 LDA-REF2672 AF-REF2673 + LDAF-REF2674 IPIV-REF2675 C-REF2676 CAPPLY-REF2677 INFO-REF2678 + WORK-REF2679 RWORK-REF2680)))) (CFFI:DEFCFUN ("cla_syrcond_x_" %%CLA_SYRCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -13939,22 +13911,22 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2763 ':INT32) (LDA-REF2765 ':INT32) - (LDAF-REF2767 ':INT32) (INFO-REF2770 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2763 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2765 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2767 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2770 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2764 A) (AF-REF2766 AF) - (IPIV-REF2768 IPIV) (X-REF2769 X) - (WORK-REF2771 WORK) - (RWORK-REF2772 RWORK)) - (%%CLA_SYRCOND_X UPLO N-REF2763 A-REF2764 LDA-REF2765 AF-REF2766 - LDAF-REF2767 IPIV-REF2768 X-REF2769 INFO-REF2770 - WORK-REF2771 RWORK-REF2772)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2682 ':INT32) (LDA-REF2684 ':INT32) + (LDAF-REF2686 ':INT32) (INFO-REF2689 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2682 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2684 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2686 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2689 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2683 A) (AF-REF2685 AF) + (IPIV-REF2687 IPIV) (X-REF2688 X) + (WORK-REF2690 WORK) + (RWORK-REF2691 RWORK)) + (%%CLA_SYRCOND_X UPLO N-REF2682 A-REF2683 LDA-REF2684 AF-REF2685 + LDAF-REF2686 IPIV-REF2687 X-REF2688 INFO-REF2689 WORK-REF2690 + RWORK-REF2691)))) (CFFI:DEFCFUN ("cla_syrfsx_extended_" %%CLA_SYRFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -14062,53 +14034,51 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2773 ':INT32) (N-REF2775 ':INT32) - (NRHS-REF2776 ':INT32) (LDA-REF2778 ':INT32) - (LDAF-REF2780 ':INT32) (COLEQU-REF2782 ':INT32) - (LDB-REF2785 ':INT32) (LDY-REF2787 ':INT32) - (N_NORMS-REF2789 ':INT32) (RCOND-REF2796 ':FLOAT) - (ITHRESH-REF2797 ':INT32) - (RTHRESH-REF2798 ':FLOAT) (DZ_UB-REF2799 ':FLOAT) - (IGNORE_CWISE-REF2800 ':INT32) - (INFO-REF2801 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2773 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2775 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2776 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2778 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2780 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2782 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2785 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2787 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2789 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2796 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2797 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2798 :FLOAT) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2799 :FLOAT) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2800 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2801 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2777 A) (AF-REF2779 AF) - (IPIV-REF2781 IPIV) (C-REF2783 C) - (B-REF2784 B) (Y-REF2786 Y) - (BERR_OUT-REF2788 BERR_OUT) - (ERR_BNDS_NORM-REF2790 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF2692 ':INT32) (N-REF2694 ':INT32) + (NRHS-REF2695 ':INT32) (LDA-REF2697 ':INT32) + (LDAF-REF2699 ':INT32) (COLEQU-REF2701 ':INT32) + (LDB-REF2704 ':INT32) (LDY-REF2706 ':INT32) + (N_NORMS-REF2708 ':INT32) (RCOND-REF2715 ':FLOAT) + (ITHRESH-REF2716 ':INT32) + (RTHRESH-REF2717 ':FLOAT) (DZ_UB-REF2718 ':FLOAT) + (IGNORE_CWISE-REF2719 ':INT32) + (INFO-REF2720 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF2692 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2694 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2695 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2697 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2699 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF2701 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2704 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2706 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF2708 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF2715 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF2716 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF2717 :FLOAT) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF2718 :FLOAT) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF2719 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2720 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2696 A) (AF-REF2698 AF) + (IPIV-REF2700 IPIV) (C-REF2702 C) + (B-REF2703 B) (Y-REF2705 Y) + (BERR_OUT-REF2707 BERR_OUT) + (ERR_BNDS_NORM-REF2709 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF2791 + (ERR_BNDS_COMP-REF2710 ERR_BNDS_COMP) - (RES-REF2792 RES) (AYB-REF2793 AYB) - (DY-REF2794 DY) - (Y_TAIL-REF2795 Y_TAIL)) - (%%CLA_SYRFSX_EXTENDED PREC_TYPE-REF2773 UPLO N-REF2775 NRHS-REF2776 - A-REF2777 LDA-REF2778 AF-REF2779 LDAF-REF2780 - IPIV-REF2781 COLEQU-REF2782 C-REF2783 B-REF2784 - LDB-REF2785 Y-REF2786 LDY-REF2787 BERR_OUT-REF2788 - N_NORMS-REF2789 ERR_BNDS_NORM-REF2790 - ERR_BNDS_COMP-REF2791 RES-REF2792 AYB-REF2793 - DY-REF2794 Y_TAIL-REF2795 RCOND-REF2796 - ITHRESH-REF2797 RTHRESH-REF2798 DZ_UB-REF2799 - IGNORE_CWISE-REF2800 INFO-REF2801)))) + (RES-REF2711 RES) (AYB-REF2712 AYB) + (DY-REF2713 DY) + (Y_TAIL-REF2714 Y_TAIL)) + (%%CLA_SYRFSX_EXTENDED PREC_TYPE-REF2692 UPLO N-REF2694 NRHS-REF2695 + A-REF2696 LDA-REF2697 AF-REF2698 LDAF-REF2699 IPIV-REF2700 + COLEQU-REF2701 C-REF2702 B-REF2703 LDB-REF2704 Y-REF2705 LDY-REF2706 + BERR_OUT-REF2707 N_NORMS-REF2708 ERR_BNDS_NORM-REF2709 + ERR_BNDS_COMP-REF2710 RES-REF2711 AYB-REF2712 DY-REF2713 Y_TAIL-REF2714 + RCOND-REF2715 ITHRESH-REF2716 RTHRESH-REF2717 DZ_UB-REF2718 + IGNORE_CWISE-REF2719 INFO-REF2720)))) (CFFI:DEFCFUN ("cla_syrpvgrw_" %%CLA_SYRPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -14144,20 +14114,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2803 ':INT32) (INFO-REF2804 ':INT32) - (LDA-REF2806 ':INT32) (LDAF-REF2808 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2803 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2804 :INT32) INFO) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2806 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2808 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2805 A) (AF-REF2807 AF) - (IPIV-REF2809 IPIV) - (WORK-REF2810 WORK)) - (%%CLA_SYRPVGRW UPLO N-REF2803 INFO-REF2804 A-REF2805 LDA-REF2806 - AF-REF2807 LDAF-REF2808 IPIV-REF2809 WORK-REF2810)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2722 ':INT32) (INFO-REF2723 ':INT32) + (LDA-REF2725 ':INT32) (LDAF-REF2727 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2722 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2723 :INT32) INFO) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2725 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF2727 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2724 A) (AF-REF2726 AF) + (IPIV-REF2728 IPIV) + (WORK-REF2729 WORK)) + (%%CLA_SYRPVGRW UPLO N-REF2722 INFO-REF2723 A-REF2724 LDA-REF2725 + AF-REF2726 LDAF-REF2727 IPIV-REF2728 WORK-REF2729)))) (CFFI:DEFCFUN ("cla_wwaddw_" %%CLA_WWADDW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -14182,13 +14152,13 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) W)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2811 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2811 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2812 X) (Y-REF2813 Y) - (W-REF2814 W)) - (%%CLA_WWADDW N-REF2811 X-REF2812 Y-REF2813 W-REF2814)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2730 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2730 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2731 X) (Y-REF2732 Y) + (W-REF2733 W)) + (%%CLA_WWADDW N-REF2730 X-REF2731 Y-REF2732 W-REF2733)))) -(CFFI:DEFCFUN ("clabrd_" %%CLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clabrd_" %%CLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -14241,24 +14211,24 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2815 ':INT32) (N-REF2816 ':INT32) - (NB-REF2817 ':INT32) (LDA-REF2819 ':INT32) - (LDX-REF2825 ':INT32) (LDY-REF2827 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2815 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2816 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2817 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2819 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2825 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2827 :INT32) LDY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2818 A) (D-REF2820 D) - (E-REF2821 E) (TAUQ-REF2822 TAUQ) - (TAUP-REF2823 TAUP) (X-REF2824 X) - (Y-REF2826 Y)) - (%%CLABRD M-REF2815 N-REF2816 NB-REF2817 A-REF2818 LDA-REF2819 D-REF2820 - E-REF2821 TAUQ-REF2822 TAUP-REF2823 X-REF2824 LDX-REF2825 - Y-REF2826 LDY-REF2827)))) - -(CFFI:DEFCFUN ("clacgv_" %%CLACGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2734 ':INT32) (N-REF2735 ':INT32) + (NB-REF2736 ':INT32) (LDA-REF2738 ':INT32) + (LDX-REF2744 ':INT32) (LDY-REF2746 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2734 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2735 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2736 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2738 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2744 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2746 :INT32) LDY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2737 A) (D-REF2739 D) + (E-REF2740 E) (TAUQ-REF2741 TAUQ) + (TAUP-REF2742 TAUP) (X-REF2743 X) + (Y-REF2745 Y)) + (%%CLABRD M-REF2734 N-REF2735 NB-REF2736 A-REF2737 LDA-REF2738 D-REF2739 + E-REF2740 TAUQ-REF2741 TAUP-REF2742 X-REF2743 LDX-REF2744 Y-REF2745 + LDY-REF2746)))) + +(CFFI:DEFCFUN ("clacgv_" %%CLACGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -14273,13 +14243,13 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2828 ':INT32) (INCX-REF2830 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2828 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2830 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2829 X)) - (%%CLACGV N-REF2828 X-REF2829 INCX-REF2830)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2747 ':INT32) (INCX-REF2749 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2747 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2749 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2748 X)) + (%%CLACGV N-REF2747 X-REF2748 INCX-REF2749)))) -(CFFI:DEFCFUN ("clacn2_" %%CLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clacn2_" %%CLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (V :POINTER) @@ -14307,17 +14277,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) ISAVE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2831 ':INT32) (EST-REF2834 ':FLOAT) - (KASE-REF2835 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2831 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF2834 :FLOAT) EST) - (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF2835 :INT32) KASE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF2832 V) (X-REF2833 X) - (ISAVE-REF2836 ISAVE)) - (%%CLACN2 N-REF2831 V-REF2832 X-REF2833 EST-REF2834 KASE-REF2835 - ISAVE-REF2836)))) - -(CFFI:DEFCFUN ("clacon_" %%CLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2750 ':INT32) (EST-REF2753 ':FLOAT) + (KASE-REF2754 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2750 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF2753 :FLOAT) EST) + (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF2754 :INT32) KASE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF2751 V) (X-REF2752 X) + (ISAVE-REF2755 ISAVE)) + (%%CLACN2 N-REF2750 V-REF2751 X-REF2752 EST-REF2753 KASE-REF2754 + ISAVE-REF2755)))) + +(CFFI:DEFCFUN ("clacon_" %%CLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (V :POINTER) @@ -14340,15 +14310,15 @@ X) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2837 ':INT32) (EST-REF2840 ':FLOAT) - (KASE-REF2841 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2837 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF2840 :FLOAT) EST) - (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF2841 :INT32) KASE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF2838 V) (X-REF2839 X)) - (%%CLACON N-REF2837 V-REF2838 X-REF2839 EST-REF2840 KASE-REF2841)))) - -(CFFI:DEFCFUN ("clacp2_" %%CLACP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2756 ':INT32) (EST-REF2759 ':FLOAT) + (KASE-REF2760 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2756 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF2759 :FLOAT) EST) + (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF2760 :INT32) KASE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF2757 V) (X-REF2758 X)) + (%%CLACON N-REF2756 V-REF2757 X-REF2758 EST-REF2759 KASE-REF2760)))) + +(CFFI:DEFCFUN ("clacp2_" %%CLACP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -14372,17 +14342,17 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2843 ':INT32) (N-REF2844 ':INT32) - (LDA-REF2846 ':INT32) (LDB-REF2848 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2843 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2844 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2846 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2848 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2845 A) (B-REF2847 B)) - (%%CLACP2 UPLO M-REF2843 N-REF2844 A-REF2845 LDA-REF2846 B-REF2847 - LDB-REF2848)))) - -(CFFI:DEFCFUN ("clacpy_" %%CLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2762 ':INT32) (N-REF2763 ':INT32) + (LDA-REF2765 ':INT32) (LDB-REF2767 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2762 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2763 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2765 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2767 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2764 A) (B-REF2766 B)) + (%%CLACP2 UPLO M-REF2762 N-REF2763 A-REF2764 LDA-REF2765 B-REF2766 + LDB-REF2767)))) + +(CFFI:DEFCFUN ("clacpy_" %%CLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -14409,17 +14379,17 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2850 ':INT32) (N-REF2851 ':INT32) - (LDA-REF2853 ':INT32) (LDB-REF2855 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2850 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2851 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2853 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2855 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2852 A) (B-REF2854 B)) - (%%CLACPY UPLO M-REF2850 N-REF2851 A-REF2852 LDA-REF2853 B-REF2854 - LDB-REF2855)))) - -(CFFI:DEFCFUN ("clacrm_" %%CLACRM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2769 ':INT32) (N-REF2770 ':INT32) + (LDA-REF2772 ':INT32) (LDB-REF2774 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2769 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2770 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2772 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2774 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2771 A) (B-REF2773 B)) + (%%CLACPY UPLO M-REF2769 N-REF2770 A-REF2771 LDA-REF2772 B-REF2773 + LDB-REF2774)))) + +(CFFI:DEFCFUN ("clacrm_" %%CLACRM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -14453,20 +14423,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2856 ':INT32) (N-REF2857 ':INT32) - (LDA-REF2859 ':INT32) (LDB-REF2861 ':INT32) - (LDC-REF2863 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2856 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2857 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2859 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2861 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2863 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2858 A) (B-REF2860 B) - (C-REF2862 C) (RWORK-REF2864 RWORK)) - (%%CLACRM M-REF2856 N-REF2857 A-REF2858 LDA-REF2859 B-REF2860 LDB-REF2861 - C-REF2862 LDC-REF2863 RWORK-REF2864)))) - -(CFFI:DEFCFUN ("clacrt_" %%CLACRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2775 ':INT32) (N-REF2776 ':INT32) + (LDA-REF2778 ':INT32) (LDB-REF2780 ':INT32) + (LDC-REF2782 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2775 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2776 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2778 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2780 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF2782 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2777 A) (B-REF2779 B) + (C-REF2781 C) (RWORK-REF2783 RWORK)) + (%%CLACRM M-REF2775 N-REF2776 A-REF2777 LDA-REF2778 B-REF2779 LDB-REF2780 + C-REF2781 LDC-REF2782 RWORK-REF2783)))) + +(CFFI:DEFCFUN ("clacrt_" %%CLACRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (CX :POINTER) @@ -14495,28 +14465,28 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2865 ':INT32) (INCX-REF2867 ':INT32) - (INCY-REF2869 ':INT32) - (C-REF2870 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2784 ':INT32) (INCX-REF2786 ':INT32) + (INCY-REF2788 ':INT32) + (C-REF2789 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (S-REF2871 + (S-REF2790 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2865 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2867 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2869 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2784 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF2786 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF2788 :INT32) INCY) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - C-REF2870 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + C-REF2789 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S-REF2871 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + S-REF2790 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF2866 CX) (CY-REF2868 CY)) - (%%CLACRT N-REF2865 CX-REF2866 INCX-REF2867 CY-REF2868 INCY-REF2869 - C-REF2870 S-REF2871)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF2785 CX) (CY-REF2787 CY)) + (%%CLACRT N-REF2784 CX-REF2785 INCX-REF2786 CY-REF2787 INCY-REF2788 + C-REF2789 S-REF2790)))) -(CFFI:DEFCFUN ("cladiv_" %%CLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cladiv_" %%CLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT (X :POINTER) (Y :POINTER)) @@ -14527,22 +14497,22 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) Y)) - (CFFI:WITH-FOREIGN-OBJECTS ((X-REF2872 + (CFFI:WITH-FOREIGN-OBJECTS ((X-REF2791 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (Y-REF2873 + (Y-REF2792 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - X-REF2872 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + X-REF2791 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART X) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART X))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - Y-REF2873 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + Y-REF2792 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Y) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Y))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%CLADIV X-REF2872 Y-REF2873)))) + (%%CLADIV X-REF2791 Y-REF2792)))) -(CFFI:DEFCFUN ("claed0_" %%CLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claed0_" %%CLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (QSIZ :POINTER) (N :POINTER) @@ -14584,24 +14554,24 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF2874 ':INT32) (N-REF2875 ':INT32) - (LDQ-REF2879 ':INT32) (LDQS-REF2881 ':INT32) - (INFO-REF2884 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2874 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2875 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2879 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF2881 :INT32) LDQS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2884 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2876 D) (E-REF2877 E) - (Q-REF2878 Q) - (QSTORE-REF2880 QSTORE) - (RWORK-REF2882 RWORK) - (IWORK-REF2883 IWORK)) - (%%CLAED0 QSIZ-REF2874 N-REF2875 D-REF2876 E-REF2877 Q-REF2878 - LDQ-REF2879 QSTORE-REF2880 LDQS-REF2881 RWORK-REF2882 - IWORK-REF2883 INFO-REF2884)))) - -(CFFI:DEFCFUN ("claed7_" %%CLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF2793 ':INT32) (N-REF2794 ':INT32) + (LDQ-REF2798 ':INT32) (LDQS-REF2800 ':INT32) + (INFO-REF2803 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2793 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2794 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2798 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF2800 :INT32) LDQS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2803 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2795 D) (E-REF2796 E) + (Q-REF2797 Q) + (QSTORE-REF2799 QSTORE) + (RWORK-REF2801 RWORK) + (IWORK-REF2802 IWORK)) + (%%CLAED0 QSIZ-REF2793 N-REF2794 D-REF2795 E-REF2796 Q-REF2797 + LDQ-REF2798 QSTORE-REF2799 LDQS-REF2800 RWORK-REF2801 IWORK-REF2802 + INFO-REF2803)))) + +(CFFI:DEFCFUN ("claed7_" %%CLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (CUTPNT :POINTER) @@ -14689,40 +14659,39 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2885 ':INT32) (CUTPNT-REF2886 ':INT32) - (QSIZ-REF2887 ':INT32) (TLVLS-REF2888 ':INT32) - (CURLVL-REF2889 ':INT32) (CURPBM-REF2890 ':INT32) - (LDQ-REF2893 ':INT32) (RHO-REF2894 ':FLOAT) - (INFO-REF2906 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2885 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF2886 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2887 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF2888 :INT32) TLVLS) - (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF2889 :INT32) CURLVL) - (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF2890 :INT32) CURPBM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2893 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF2894 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2906 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2891 D) (Q-REF2892 Q) - (INDXQ-REF2895 INDXQ) - (QSTORE-REF2896 QSTORE) - (QPTR-REF2897 QPTR) - (PRMPTR-REF2898 PRMPTR) - (PERM-REF2899 PERM) - (GIVPTR-REF2900 GIVPTR) - (GIVCOL-REF2901 GIVCOL) - (GIVNUM-REF2902 GIVNUM) - (WORK-REF2903 WORK) - (RWORK-REF2904 RWORK) - (IWORK-REF2905 IWORK)) - (%%CLAED7 N-REF2885 CUTPNT-REF2886 QSIZ-REF2887 TLVLS-REF2888 - CURLVL-REF2889 CURPBM-REF2890 D-REF2891 Q-REF2892 LDQ-REF2893 - RHO-REF2894 INDXQ-REF2895 QSTORE-REF2896 QPTR-REF2897 - PRMPTR-REF2898 PERM-REF2899 GIVPTR-REF2900 GIVCOL-REF2901 - GIVNUM-REF2902 WORK-REF2903 RWORK-REF2904 IWORK-REF2905 - INFO-REF2906)))) - -(CFFI:DEFCFUN ("claed8_" %%CLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2804 ':INT32) (CUTPNT-REF2805 ':INT32) + (QSIZ-REF2806 ':INT32) (TLVLS-REF2807 ':INT32) + (CURLVL-REF2808 ':INT32) (CURPBM-REF2809 ':INT32) + (LDQ-REF2812 ':INT32) (RHO-REF2813 ':FLOAT) + (INFO-REF2825 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2804 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF2805 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2806 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF2807 :INT32) TLVLS) + (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF2808 :INT32) CURLVL) + (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF2809 :INT32) CURPBM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2812 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF2813 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2825 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF2810 D) (Q-REF2811 Q) + (INDXQ-REF2814 INDXQ) + (QSTORE-REF2815 QSTORE) + (QPTR-REF2816 QPTR) + (PRMPTR-REF2817 PRMPTR) + (PERM-REF2818 PERM) + (GIVPTR-REF2819 GIVPTR) + (GIVCOL-REF2820 GIVCOL) + (GIVNUM-REF2821 GIVNUM) + (WORK-REF2822 WORK) + (RWORK-REF2823 RWORK) + (IWORK-REF2824 IWORK)) + (%%CLAED7 N-REF2804 CUTPNT-REF2805 QSIZ-REF2806 TLVLS-REF2807 + CURLVL-REF2808 CURPBM-REF2809 D-REF2810 Q-REF2811 LDQ-REF2812 + RHO-REF2813 INDXQ-REF2814 QSTORE-REF2815 QPTR-REF2816 PRMPTR-REF2817 + PERM-REF2818 GIVPTR-REF2819 GIVCOL-REF2820 GIVNUM-REF2821 WORK-REF2822 + RWORK-REF2823 IWORK-REF2824 INFO-REF2825)))) + +(CFFI:DEFCFUN ("claed8_" %%CLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (K :POINTER) (N :POINTER) @@ -14801,37 +14770,37 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((K-REF2907 ':INT32) (N-REF2908 ':INT32) - (QSIZ-REF2909 ':INT32) (LDQ-REF2911 ':INT32) - (RHO-REF2913 ':FLOAT) (CUTPNT-REF2914 ':INT32) - (LDQ2-REF2918 ':INT32) (GIVPTR-REF2924 ':INT32) - (INFO-REF2927 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2907 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2908 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2909 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2911 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF2913 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF2914 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF2918 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF2924 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2927 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF2910 Q) (D-REF2912 D) - (Z-REF2915 Z) - (DLAMDA-REF2916 DLAMDA) - (Q2-REF2917 Q2) (W-REF2919 W) - (INDXP-REF2920 INDXP) - (INDX-REF2921 INDX) - (INDXQ-REF2922 INDXQ) - (PERM-REF2923 PERM) - (GIVCOL-REF2925 GIVCOL) - (GIVNUM-REF2926 GIVNUM)) - (%%CLAED8 K-REF2907 N-REF2908 QSIZ-REF2909 Q-REF2910 LDQ-REF2911 - D-REF2912 RHO-REF2913 CUTPNT-REF2914 Z-REF2915 DLAMDA-REF2916 - Q2-REF2917 LDQ2-REF2918 W-REF2919 INDXP-REF2920 INDX-REF2921 - INDXQ-REF2922 PERM-REF2923 GIVPTR-REF2924 GIVCOL-REF2925 - GIVNUM-REF2926 INFO-REF2927)))) - -(CFFI:DEFCFUN ("claein_" %%CLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((K-REF2826 ':INT32) (N-REF2827 ':INT32) + (QSIZ-REF2828 ':INT32) (LDQ-REF2830 ':INT32) + (RHO-REF2832 ':FLOAT) (CUTPNT-REF2833 ':INT32) + (LDQ2-REF2837 ':INT32) (GIVPTR-REF2843 ':INT32) + (INFO-REF2846 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2826 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2827 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF2828 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF2830 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF2832 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF2833 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF2837 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF2843 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2846 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF2829 Q) (D-REF2831 D) + (Z-REF2834 Z) + (DLAMDA-REF2835 DLAMDA) + (Q2-REF2836 Q2) (W-REF2838 W) + (INDXP-REF2839 INDXP) + (INDX-REF2840 INDX) + (INDXQ-REF2841 INDXQ) + (PERM-REF2842 PERM) + (GIVCOL-REF2844 GIVCOL) + (GIVNUM-REF2845 GIVNUM)) + (%%CLAED8 K-REF2826 N-REF2827 QSIZ-REF2828 Q-REF2829 LDQ-REF2830 + D-REF2831 RHO-REF2832 CUTPNT-REF2833 Z-REF2834 DLAMDA-REF2835 Q2-REF2836 + LDQ2-REF2837 W-REF2838 INDXP-REF2839 INDX-REF2840 INDXQ-REF2841 + PERM-REF2842 GIVPTR-REF2843 GIVCOL-REF2844 GIVNUM-REF2845 + INFO-REF2846)))) + +(CFFI:DEFCFUN ("claein_" %%CLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RIGHTV :POINTER) (NOINIT :POINTER) @@ -14878,31 +14847,31 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS3) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMLNUM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF2928 ':INT32) (NOINIT-REF2929 ':INT32) - (N-REF2930 ':INT32) (LDH-REF2932 ':INT32) - (W-REF2933 + (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF2847 ':INT32) (NOINIT-REF2848 ':INT32) + (N-REF2849 ':INT32) (LDH-REF2851 ':INT32) + (W-REF2852 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDB-REF2936 ':INT32) (EPS3-REF2938 ':FLOAT) - (SMLNUM-REF2939 ':FLOAT) (INFO-REF2940 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF2928 :INT32) RIGHTV) - (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF2929 :INT32) NOINIT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2930 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2932 :INT32) LDH) + (LDB-REF2855 ':INT32) (EPS3-REF2857 ':FLOAT) + (SMLNUM-REF2858 ':FLOAT) (INFO-REF2859 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF2847 :INT32) RIGHTV) + (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF2848 :INT32) NOINIT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2849 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2851 :INT32) LDH) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - W-REF2933 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + W-REF2852 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART W) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART W))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2936 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF2938 :FLOAT) EPS3) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF2939 :FLOAT) SMLNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2940 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2931 H) (V-REF2934 V) - (B-REF2935 B) (RWORK-REF2937 RWORK)) - (%%CLAEIN RIGHTV-REF2928 NOINIT-REF2929 N-REF2930 H-REF2931 LDH-REF2932 - W-REF2933 V-REF2934 B-REF2935 LDB-REF2936 RWORK-REF2937 - EPS3-REF2938 SMLNUM-REF2939 INFO-REF2940)))) - -(CFFI:DEFCFUN ("claesy_" %%CLAESY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2855 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF2857 :FLOAT) EPS3) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF2858 :FLOAT) SMLNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2859 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2850 H) (V-REF2853 V) + (B-REF2854 B) (RWORK-REF2856 RWORK)) + (%%CLAEIN RIGHTV-REF2847 NOINIT-REF2848 N-REF2849 H-REF2850 LDH-REF2851 + W-REF2852 V-REF2853 B-REF2854 LDB-REF2855 RWORK-REF2856 EPS3-REF2857 + SMLNUM-REF2858 INFO-REF2859)))) + +(CFFI:DEFCFUN ("claesy_" %%CLAESY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -14931,64 +14900,64 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CS1) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN1)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF2941 + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF2860 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (B-REF2942 + (B-REF2861 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (C-REF2943 + (C-REF2862 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (RT1-REF2944 + (RT1-REF2863 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (RT2-REF2945 + (RT2-REF2864 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (EVSCAL-REF2946 + (EVSCAL-REF2865 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (CS1-REF2947 + (CS1-REF2866 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (SN1-REF2948 + (SN1-REF2867 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - A-REF2941 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + A-REF2860 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - B-REF2942 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + B-REF2861 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - C-REF2943 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + C-REF2862 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - RT1-REF2944 + RT1-REF2863 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT1))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - RT2-REF2945 + RT2-REF2864 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT2) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT2))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - EVSCAL-REF2946 + EVSCAL-REF2865 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART EVSCAL) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART EVSCAL))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - CS1-REF2947 + CS1-REF2866 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CS1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CS1))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SN1-REF2948 + SN1-REF2867 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%CLAESY A-REF2941 B-REF2942 C-REF2943 RT1-REF2944 RT2-REF2945 - EVSCAL-REF2946 CS1-REF2947 SN1-REF2948)))) + (%%CLAESY A-REF2860 B-REF2861 C-REF2862 RT1-REF2863 RT2-REF2864 + EVSCAL-REF2865 CS1-REF2866 SN1-REF2867)))) -(CFFI:DEFCFUN ("claev2_" %%CLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claev2_" %%CLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -15011,41 +14980,41 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS1) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN1)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF2949 + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF2868 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (B-REF2950 + (B-REF2869 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (C-REF2951 + (C-REF2870 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (RT1-REF2952 ':FLOAT) (RT2-REF2953 ':FLOAT) - (CS1-REF2954 ':FLOAT) - (SN1-REF2955 + (RT1-REF2871 ':FLOAT) (RT2-REF2872 ':FLOAT) + (CS1-REF2873 ':FLOAT) + (SN1-REF2874 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - A-REF2949 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + A-REF2868 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - B-REF2950 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + B-REF2869 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - C-REF2951 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + C-REF2870 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C))) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF2952 :FLOAT) RT1) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF2953 :FLOAT) RT2) - (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF2954 :FLOAT) CS1) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF2871 :FLOAT) RT1) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF2872 :FLOAT) RT2) + (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF2873 :FLOAT) CS1) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SN1-REF2955 + SN1-REF2874 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%CLAEV2 A-REF2949 B-REF2950 C-REF2951 RT1-REF2952 RT2-REF2953 - CS1-REF2954 SN1-REF2955)))) + (%%CLAEV2 A-REF2868 B-REF2869 C-REF2870 RT1-REF2871 RT2-REF2872 + CS1-REF2873 SN1-REF2874)))) -(CFFI:DEFCFUN ("clag2z_" %%CLAG2Z :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clag2z_" %%CLAG2Z :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -15072,19 +15041,19 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2956 ':INT32) (N-REF2957 ':INT32) - (LDSA-REF2959 ':INT32) (LDA-REF2961 ':INT32) - (INFO-REF2962 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2956 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2957 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF2959 :INT32) LDSA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2961 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2962 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SA-REF2958 SA) (A-REF2960 A)) - (%%CLAG2Z M-REF2956 N-REF2957 SA-REF2958 LDSA-REF2959 A-REF2960 - LDA-REF2961 INFO-REF2962)))) - -(CFFI:DEFCFUN ("clags2_" %%CLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF2875 ':INT32) (N-REF2876 ':INT32) + (LDSA-REF2878 ':INT32) (LDA-REF2880 ':INT32) + (INFO-REF2881 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2875 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2876 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF2878 :INT32) LDSA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2880 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2881 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SA-REF2877 SA) (A-REF2879 A)) + (%%CLAG2Z M-REF2875 N-REF2876 SA-REF2877 LDSA-REF2878 A-REF2879 + LDA-REF2880 INFO-REF2881)))) + +(CFFI:DEFCFUN ("clags2_" %%CLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPPER :POINTER) (A1 :POINTER) @@ -15120,58 +15089,58 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSQ) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SNQ)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF2963 ':INT32) (A1-REF2964 ':FLOAT) - (A2-REF2965 + (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF2882 ':INT32) (A1-REF2883 ':FLOAT) + (A2-REF2884 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (A3-REF2966 ':FLOAT) (B1-REF2967 ':FLOAT) - (B2-REF2968 + (A3-REF2885 ':FLOAT) (B1-REF2886 ':FLOAT) + (B2-REF2887 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (B3-REF2969 ':FLOAT) (CSU-REF2970 ':FLOAT) - (SNU-REF2971 + (B3-REF2888 ':FLOAT) (CSU-REF2889 ':FLOAT) + (SNU-REF2890 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (CSV-REF2972 ':FLOAT) - (SNV-REF2973 + (CSV-REF2891 ':FLOAT) + (SNV-REF2892 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (CSQ-REF2974 ':FLOAT) - (SNQ-REF2975 + (CSQ-REF2893 ':FLOAT) + (SNQ-REF2894 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF2963 :INT32) UPPER) - (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF2964 :FLOAT) A1) + (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF2882 :INT32) UPPER) + (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF2883 :FLOAT) A1) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - A2-REF2965 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + A2-REF2884 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A2) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A2))) - (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF2966 :FLOAT) A3) - (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF2967 :FLOAT) B1) + (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF2885 :FLOAT) A3) + (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF2886 :FLOAT) B1) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - B2-REF2968 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + B2-REF2887 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B2) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B2))) - (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF2969 :FLOAT) B3) - (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF2970 :FLOAT) CSU) + (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF2888 :FLOAT) B3) + (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF2889 :FLOAT) CSU) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SNU-REF2971 + SNU-REF2890 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNU))) - (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF2972 :FLOAT) CSV) + (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF2891 :FLOAT) CSV) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SNV-REF2973 + SNV-REF2892 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNV) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNV))) - (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF2974 :FLOAT) CSQ) + (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF2893 :FLOAT) CSQ) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SNQ-REF2975 + SNQ-REF2894 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNQ) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNQ))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%CLAGS2 UPPER-REF2963 A1-REF2964 A2-REF2965 A3-REF2966 B1-REF2967 - B2-REF2968 B3-REF2969 CSU-REF2970 SNU-REF2971 CSV-REF2972 - SNV-REF2973 CSQ-REF2974 SNQ-REF2975)))) + (%%CLAGS2 UPPER-REF2882 A1-REF2883 A2-REF2884 A3-REF2885 B1-REF2886 + B2-REF2887 B3-REF2888 CSU-REF2889 SNU-REF2890 CSV-REF2891 SNV-REF2892 + CSQ-REF2893 SNQ-REF2894)))) -(CFFI:DEFCFUN ("clagtm_" %%CLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clagtm_" %%CLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -15220,23 +15189,22 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2977 ':INT32) (NRHS-REF2978 ':INT32) - (ALPHA-REF2979 ':FLOAT) (LDX-REF2984 ':INT32) - (BETA-REF2985 ':FLOAT) (LDB-REF2987 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2977 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2978 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2979 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2984 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2985 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2987 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF2980 DL) (D-REF2981 D) - (DU-REF2982 DU) (X-REF2983 X) - (B-REF2986 B)) - (%%CLAGTM TRANS N-REF2977 NRHS-REF2978 ALPHA-REF2979 DL-REF2980 D-REF2981 - DU-REF2982 X-REF2983 LDX-REF2984 BETA-REF2985 B-REF2986 - LDB-REF2987)))) - -(CFFI:DEFCFUN ("clahef_" %%CLAHEF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2896 ':INT32) (NRHS-REF2897 ':INT32) + (ALPHA-REF2898 ':FLOAT) (LDX-REF2903 ':INT32) + (BETA-REF2904 ':FLOAT) (LDB-REF2906 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2896 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2897 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF2898 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF2903 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF2904 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2906 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF2899 DL) (D-REF2900 D) + (DU-REF2901 DU) (X-REF2902 X) + (B-REF2905 B)) + (%%CLAGTM TRANS N-REF2896 NRHS-REF2897 ALPHA-REF2898 DL-REF2899 D-REF2900 + DU-REF2901 X-REF2902 LDX-REF2903 BETA-REF2904 B-REF2905 LDB-REF2906)))) + +(CFFI:DEFCFUN ("clahef_" %%CLAHEF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -15272,22 +15240,22 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2989 ':INT32) (NB-REF2990 ':INT32) - (KB-REF2991 ':INT32) (LDA-REF2993 ':INT32) - (LDW-REF2996 ':INT32) (INFO-REF2997 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2989 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2990 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF2991 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2993 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF2996 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2997 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2992 A) (IPIV-REF2994 IPIV) - (W-REF2995 W)) - (%%CLAHEF UPLO N-REF2989 NB-REF2990 KB-REF2991 A-REF2992 LDA-REF2993 - IPIV-REF2994 W-REF2995 LDW-REF2996 INFO-REF2997)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2908 ':INT32) (NB-REF2909 ':INT32) + (KB-REF2910 ':INT32) (LDA-REF2912 ':INT32) + (LDW-REF2915 ':INT32) (INFO-REF2916 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2908 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2909 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF2910 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2912 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF2915 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2916 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2911 A) (IPIV-REF2913 IPIV) + (W-REF2914 W)) + (%%CLAHEF UPLO N-REF2908 NB-REF2909 KB-REF2910 A-REF2911 LDA-REF2912 + IPIV-REF2913 W-REF2914 LDW-REF2915 INFO-REF2916)))) (CFFI:DEFCFUN ("clahef_aa_" %%CLAHEF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (J1 :POINTER) @@ -15327,21 +15295,21 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF2999 ':INT32) (M-REF3000 ':INT32) - (NB-REF3001 ':INT32) (LDA-REF3003 ':INT32) - (LDH-REF3006 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF2999 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3000 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3001 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3003 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3006 :INT32) LDH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3002 A) (IPIV-REF3004 IPIV) - (H-REF3005 H) (WORK-REF3007 WORK)) - (%%CLAHEF_AA UPLO J1-REF2999 M-REF3000 NB-REF3001 A-REF3002 LDA-REF3003 - IPIV-REF3004 H-REF3005 LDH-REF3006 WORK-REF3007)))) + (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF2918 ':INT32) (M-REF2919 ':INT32) + (NB-REF2920 ':INT32) (LDA-REF2922 ':INT32) + (LDH-REF2925 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF2918 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF2919 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2920 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2922 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2925 :INT32) LDH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2921 A) (IPIV-REF2923 IPIV) + (H-REF2924 H) (WORK-REF2926 WORK)) + (%%CLAHEF_AA UPLO J1-REF2918 M-REF2919 NB-REF2920 A-REF2921 LDA-REF2922 + IPIV-REF2923 H-REF2924 LDH-REF2925 WORK-REF2926)))) (CFFI:DEFCFUN ("clahef_rk_" %%CLAHEF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -15383,22 +15351,22 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3009 ':INT32) (NB-REF3010 ':INT32) - (KB-REF3011 ':INT32) (LDA-REF3013 ':INT32) - (LDW-REF3017 ':INT32) (INFO-REF3018 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3009 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3010 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3011 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3013 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3017 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3018 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3012 A) (E-REF3014 E) - (IPIV-REF3015 IPIV) (W-REF3016 W)) - (%%CLAHEF_RK UPLO N-REF3009 NB-REF3010 KB-REF3011 A-REF3012 LDA-REF3013 - E-REF3014 IPIV-REF3015 W-REF3016 LDW-REF3017 INFO-REF3018)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2928 ':INT32) (NB-REF2929 ':INT32) + (KB-REF2930 ':INT32) (LDA-REF2932 ':INT32) + (LDW-REF2936 ':INT32) (INFO-REF2937 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2928 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2929 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF2930 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2932 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF2936 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2937 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2931 A) (E-REF2933 E) + (IPIV-REF2934 IPIV) (W-REF2935 W)) + (%%CLAHEF_RK UPLO N-REF2928 NB-REF2929 KB-REF2930 A-REF2931 LDA-REF2932 + E-REF2933 IPIV-REF2934 W-REF2935 LDW-REF2936 INFO-REF2937)))) (CFFI:DEFCFUN ("clahef_rook_" %%CLAHEF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -15434,21 +15402,21 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3020 ':INT32) (NB-REF3021 ':INT32) - (KB-REF3022 ':INT32) (LDA-REF3024 ':INT32) - (LDW-REF3027 ':INT32) (INFO-REF3028 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3020 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3021 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3022 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3024 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3027 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3028 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3023 A) (IPIV-REF3025 IPIV) - (W-REF3026 W)) - (%%CLAHEF_ROOK UPLO N-REF3020 NB-REF3021 KB-REF3022 A-REF3023 LDA-REF3024 - IPIV-REF3025 W-REF3026 LDW-REF3027 INFO-REF3028)))) - -(CFFI:DEFCFUN ("clahqr_" %%CLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2939 ':INT32) (NB-REF2940 ':INT32) + (KB-REF2941 ':INT32) (LDA-REF2943 ':INT32) + (LDW-REF2946 ':INT32) (INFO-REF2947 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2939 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2940 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF2941 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2943 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF2946 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2947 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2942 A) (IPIV-REF2944 IPIV) + (W-REF2945 W)) + (%%CLAHEF_ROOK UPLO N-REF2939 NB-REF2940 KB-REF2941 A-REF2942 LDA-REF2943 + IPIV-REF2944 W-REF2945 LDW-REF2946 INFO-REF2947)))) + +(CFFI:DEFCFUN ("clahqr_" %%CLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -15491,28 +15459,28 @@ Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3029 ':INT32) (WANTZ-REF3030 ':INT32) - (N-REF3031 ':INT32) (ILO-REF3032 ':INT32) - (IHI-REF3033 ':INT32) (LDH-REF3035 ':INT32) - (ILOZ-REF3037 ':INT32) (IHIZ-REF3038 ':INT32) - (LDZ-REF3040 ':INT32) (INFO-REF3041 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3029 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3030 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3031 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3032 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3033 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3035 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3037 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3038 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3040 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3041 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3034 H) (W-REF3036 W) - (Z-REF3039 Z)) - (%%CLAHQR WANTT-REF3029 WANTZ-REF3030 N-REF3031 ILO-REF3032 IHI-REF3033 - H-REF3034 LDH-REF3035 W-REF3036 ILOZ-REF3037 IHIZ-REF3038 - Z-REF3039 LDZ-REF3040 INFO-REF3041)))) - -(CFFI:DEFCFUN ("clahr2_" %%CLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF2948 ':INT32) (WANTZ-REF2949 ':INT32) + (N-REF2950 ':INT32) (ILO-REF2951 ':INT32) + (IHI-REF2952 ':INT32) (LDH-REF2954 ':INT32) + (ILOZ-REF2956 ':INT32) (IHIZ-REF2957 ':INT32) + (LDZ-REF2959 ':INT32) (INFO-REF2960 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF2948 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF2949 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2950 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF2951 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF2952 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF2954 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF2956 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF2957 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF2959 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF2960 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF2953 H) (W-REF2955 W) + (Z-REF2958 Z)) + (%%CLAHQR WANTT-REF2948 WANTZ-REF2949 N-REF2950 ILO-REF2951 IHI-REF2952 + H-REF2953 LDH-REF2954 W-REF2955 ILOZ-REF2956 IHIZ-REF2957 Z-REF2958 + LDZ-REF2959 INFO-REF2960)))) + +(CFFI:DEFCFUN ("clahr2_" %%CLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (K :POINTER) @@ -15553,21 +15521,21 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3042 ':INT32) (K-REF3043 ':INT32) - (NB-REF3044 ':INT32) (LDA-REF3046 ':INT32) - (LDT-REF3049 ':INT32) (LDY-REF3051 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3042 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3043 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3044 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3046 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3049 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF3051 :INT32) LDY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3045 A) (TAU-REF3047 TAU) - (T-REF3048 T) (Y-REF3050 Y)) - (%%CLAHR2 N-REF3042 K-REF3043 NB-REF3044 A-REF3045 LDA-REF3046 - TAU-REF3047 T-REF3048 LDT-REF3049 Y-REF3050 LDY-REF3051)))) - -(CFFI:DEFCFUN ("claic1_" %%CLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF2961 ':INT32) (K-REF2962 ':INT32) + (NB-REF2963 ':INT32) (LDA-REF2965 ':INT32) + (LDT-REF2968 ':INT32) (LDY-REF2970 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF2961 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2962 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF2963 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF2965 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF2968 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF2970 :INT32) LDY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF2964 A) (TAU-REF2966 TAU) + (T-REF2967 T) (Y-REF2969 Y)) + (%%CLAHR2 N-REF2961 K-REF2962 NB-REF2963 A-REF2964 LDA-REF2965 + TAU-REF2966 T-REF2967 LDT-REF2968 Y-REF2969 LDY-REF2970)))) + +(CFFI:DEFCFUN ("claic1_" %%CLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :POINTER) (J :POINTER) @@ -15601,37 +15569,37 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C)) - (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF3052 ':INT32) (J-REF3053 ':INT32) - (SEST-REF3055 ':FLOAT) - (GAMMA-REF3057 + (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF2971 ':INT32) (J-REF2972 ':INT32) + (SEST-REF2974 ':FLOAT) + (GAMMA-REF2976 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (SESTPR-REF3058 ':FLOAT) - (S-REF3059 + (SESTPR-REF2977 ':FLOAT) + (S-REF2978 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (C-REF3060 + (C-REF2979 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF3052 :INT32) JOB) - (COMMON-LISP:SETF (CFFI:MEM-REF J-REF3053 :INT32) J) - (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF3055 :FLOAT) SEST) + (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF2971 :INT32) JOB) + (COMMON-LISP:SETF (CFFI:MEM-REF J-REF2972 :INT32) J) + (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF2974 :FLOAT) SEST) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - GAMMA-REF3057 + GAMMA-REF2976 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART GAMMA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART GAMMA))) - (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF3058 :FLOAT) SESTPR) + (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF2977 :FLOAT) SESTPR) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S-REF3059 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + S-REF2978 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - C-REF3060 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + C-REF2979 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3054 X) (W-REF3056 W)) - (%%CLAIC1 JOB-REF3052 J-REF3053 X-REF3054 SEST-REF3055 W-REF3056 - GAMMA-REF3057 SESTPR-REF3058 S-REF3059 C-REF3060)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF2973 X) (W-REF2975 W)) + (%%CLAIC1 JOB-REF2971 J-REF2972 X-REF2973 SEST-REF2974 W-REF2975 + GAMMA-REF2976 SESTPR-REF2977 S-REF2978 C-REF2979)))) -(CFFI:DEFCFUN ("clals0_" %%CLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clals0_" %%CLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (NL :POINTER) @@ -15711,43 +15679,42 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3061 ':INT32) (NL-REF3062 ':INT32) - (NR-REF3063 ':INT32) (SQRE-REF3064 ':INT32) - (NRHS-REF3065 ':INT32) (LDB-REF3067 ':INT32) - (LDBX-REF3069 ':INT32) (GIVPTR-REF3071 ':INT32) - (LDGCOL-REF3073 ':INT32) (LDGNUM-REF3075 ':INT32) - (K-REF3080 ':INT32) (C-REF3081 ':FLOAT) - (S-REF3082 ':FLOAT) (INFO-REF3084 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3061 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF3062 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF3063 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF3064 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3065 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3067 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF3069 :INT32) LDBX) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF3071 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3073 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF3075 :INT32) LDGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3080 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3081 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF3082 :FLOAT) S) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3084 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF3066 B) (BX-REF3068 BX) - (PERM-REF3070 PERM) - (GIVCOL-REF3072 GIVCOL) - (GIVNUM-REF3074 GIVNUM) - (POLES-REF3076 POLES) - (DIFL-REF3077 DIFL) - (DIFR-REF3078 DIFR) (Z-REF3079 Z) - (RWORK-REF3083 RWORK)) - (%%CLALS0 ICOMPQ-REF3061 NL-REF3062 NR-REF3063 SQRE-REF3064 NRHS-REF3065 - B-REF3066 LDB-REF3067 BX-REF3068 LDBX-REF3069 PERM-REF3070 - GIVPTR-REF3071 GIVCOL-REF3072 LDGCOL-REF3073 GIVNUM-REF3074 - LDGNUM-REF3075 POLES-REF3076 DIFL-REF3077 DIFR-REF3078 - Z-REF3079 K-REF3080 C-REF3081 S-REF3082 RWORK-REF3083 - INFO-REF3084)))) - -(CFFI:DEFCFUN ("clalsa_" %%CLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF2980 ':INT32) (NL-REF2981 ':INT32) + (NR-REF2982 ':INT32) (SQRE-REF2983 ':INT32) + (NRHS-REF2984 ':INT32) (LDB-REF2986 ':INT32) + (LDBX-REF2988 ':INT32) (GIVPTR-REF2990 ':INT32) + (LDGCOL-REF2992 ':INT32) (LDGNUM-REF2994 ':INT32) + (K-REF2999 ':INT32) (C-REF3000 ':FLOAT) + (S-REF3001 ':FLOAT) (INFO-REF3003 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF2980 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF2981 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF2982 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF2983 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF2984 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF2986 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF2988 :INT32) LDBX) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF2990 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF2992 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF2994 :INT32) LDGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF2999 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF3000 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF3001 :FLOAT) S) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3003 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF2985 B) (BX-REF2987 BX) + (PERM-REF2989 PERM) + (GIVCOL-REF2991 GIVCOL) + (GIVNUM-REF2993 GIVNUM) + (POLES-REF2995 POLES) + (DIFL-REF2996 DIFL) + (DIFR-REF2997 DIFR) (Z-REF2998 Z) + (RWORK-REF3002 RWORK)) + (%%CLALS0 ICOMPQ-REF2980 NL-REF2981 NR-REF2982 SQRE-REF2983 NRHS-REF2984 + B-REF2985 LDB-REF2986 BX-REF2987 LDBX-REF2988 PERM-REF2989 + GIVPTR-REF2990 GIVCOL-REF2991 LDGCOL-REF2992 GIVNUM-REF2993 + LDGNUM-REF2994 POLES-REF2995 DIFL-REF2996 DIFR-REF2997 Z-REF2998 + K-REF2999 C-REF3000 S-REF3001 RWORK-REF3002 INFO-REF3003)))) + +(CFFI:DEFCFUN ("clalsa_" %%CLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (SMLSIZ :POINTER) @@ -15845,40 +15812,39 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3085 ':INT32) (SMLSIZ-REF3086 ':INT32) - (N-REF3087 ':INT32) (NRHS-REF3088 ':INT32) - (LDB-REF3090 ':INT32) (LDBX-REF3092 ':INT32) - (LDU-REF3094 ':INT32) (LDGCOL-REF3103 ':INT32) - (INFO-REF3110 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3085 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF3086 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3087 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3088 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3090 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF3092 :INT32) LDBX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3094 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3103 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3110 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF3089 B) (BX-REF3091 BX) - (U-REF3093 U) (VT-REF3095 VT) - (K-REF3096 K) (DIFL-REF3097 DIFL) - (DIFR-REF3098 DIFR) (Z-REF3099 Z) - (POLES-REF3100 POLES) - (GIVPTR-REF3101 GIVPTR) - (GIVCOL-REF3102 GIVCOL) - (PERM-REF3104 PERM) - (GIVNUM-REF3105 GIVNUM) - (C-REF3106 C) (S-REF3107 S) - (RWORK-REF3108 RWORK) - (IWORK-REF3109 IWORK)) - (%%CLALSA ICOMPQ-REF3085 SMLSIZ-REF3086 N-REF3087 NRHS-REF3088 B-REF3089 - LDB-REF3090 BX-REF3091 LDBX-REF3092 U-REF3093 LDU-REF3094 - VT-REF3095 K-REF3096 DIFL-REF3097 DIFR-REF3098 Z-REF3099 - POLES-REF3100 GIVPTR-REF3101 GIVCOL-REF3102 LDGCOL-REF3103 - PERM-REF3104 GIVNUM-REF3105 C-REF3106 S-REF3107 RWORK-REF3108 - IWORK-REF3109 INFO-REF3110)))) - -(CFFI:DEFCFUN ("clalsd_" %%CLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF3004 ':INT32) (SMLSIZ-REF3005 ':INT32) + (N-REF3006 ':INT32) (NRHS-REF3007 ':INT32) + (LDB-REF3009 ':INT32) (LDBX-REF3011 ':INT32) + (LDU-REF3013 ':INT32) (LDGCOL-REF3022 ':INT32) + (INFO-REF3029 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF3004 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF3005 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3006 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3007 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3009 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF3011 :INT32) LDBX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3013 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF3022 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3029 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF3008 B) (BX-REF3010 BX) + (U-REF3012 U) (VT-REF3014 VT) + (K-REF3015 K) (DIFL-REF3016 DIFL) + (DIFR-REF3017 DIFR) (Z-REF3018 Z) + (POLES-REF3019 POLES) + (GIVPTR-REF3020 GIVPTR) + (GIVCOL-REF3021 GIVCOL) + (PERM-REF3023 PERM) + (GIVNUM-REF3024 GIVNUM) + (C-REF3025 C) (S-REF3026 S) + (RWORK-REF3027 RWORK) + (IWORK-REF3028 IWORK)) + (%%CLALSA ICOMPQ-REF3004 SMLSIZ-REF3005 N-REF3006 NRHS-REF3007 B-REF3008 + LDB-REF3009 BX-REF3010 LDBX-REF3011 U-REF3012 LDU-REF3013 VT-REF3014 + K-REF3015 DIFL-REF3016 DIFR-REF3017 Z-REF3018 POLES-REF3019 + GIVPTR-REF3020 GIVCOL-REF3021 LDGCOL-REF3022 PERM-REF3023 GIVNUM-REF3024 + C-REF3025 S-REF3026 RWORK-REF3027 IWORK-REF3028 INFO-REF3029)))) + +(CFFI:DEFCFUN ("clalsd_" %%CLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (SMLSIZ :POINTER) @@ -15928,27 +15894,27 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF3112 ':INT32) (N-REF3113 ':INT32) - (NRHS-REF3114 ':INT32) (LDB-REF3118 ':INT32) - (RCOND-REF3119 ':FLOAT) (RANK-REF3120 ':INT32) - (INFO-REF3124 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF3112 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3113 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3114 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3118 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3119 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF3120 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3124 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3115 D) (E-REF3116 E) - (B-REF3117 B) (WORK-REF3121 WORK) - (RWORK-REF3122 RWORK) - (IWORK-REF3123 IWORK)) - (%%CLALSD UPLO SMLSIZ-REF3112 N-REF3113 NRHS-REF3114 D-REF3115 E-REF3116 - B-REF3117 LDB-REF3118 RCOND-REF3119 RANK-REF3120 WORK-REF3121 - RWORK-REF3122 IWORK-REF3123 INFO-REF3124)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF3031 ':INT32) (N-REF3032 ':INT32) + (NRHS-REF3033 ':INT32) (LDB-REF3037 ':INT32) + (RCOND-REF3038 ':FLOAT) (RANK-REF3039 ':INT32) + (INFO-REF3043 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF3031 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3032 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3033 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3037 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3038 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF3039 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3043 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3034 D) (E-REF3035 E) + (B-REF3036 B) (WORK-REF3040 WORK) + (RWORK-REF3041 RWORK) + (IWORK-REF3042 IWORK)) + (%%CLALSD UPLO SMLSIZ-REF3031 N-REF3032 NRHS-REF3033 D-REF3034 E-REF3035 + B-REF3036 LDB-REF3037 RCOND-REF3038 RANK-REF3039 WORK-REF3040 + RWORK-REF3041 IWORK-REF3042 INFO-REF3043)))) (CFFI:DEFCFUN ("clamswlq_" %%CLAMSWLQ :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -16002,30 +15968,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3127 ':INT32) (N-REF3128 ':INT32) - (K-REF3129 ':INT32) (MB-REF3130 ':INT32) - (NB-REF3131 ':INT32) (LDA-REF3133 ':INT32) - (LDT-REF3135 ':INT32) (LDC-REF3137 ':INT32) - (LWORK-REF3139 ':INT32) (INFO-REF3140 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3127 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3128 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3129 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3130 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3131 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3133 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3135 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3137 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3139 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3140 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3132 A) (T-REF3134 T) - (C-REF3136 C) (WORK-REF3138 WORK)) - (%%CLAMSWLQ SIDE TRANS M-REF3127 N-REF3128 K-REF3129 MB-REF3130 - NB-REF3131 A-REF3132 LDA-REF3133 T-REF3134 LDT-REF3135 - C-REF3136 LDC-REF3137 WORK-REF3138 LWORK-REF3139 - INFO-REF3140)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3046 ':INT32) (N-REF3047 ':INT32) + (K-REF3048 ':INT32) (MB-REF3049 ':INT32) + (NB-REF3050 ':INT32) (LDA-REF3052 ':INT32) + (LDT-REF3054 ':INT32) (LDC-REF3056 ':INT32) + (LWORK-REF3058 ':INT32) (INFO-REF3059 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3046 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3047 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3048 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3049 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3050 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3052 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3054 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3056 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3058 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3059 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3051 A) (T-REF3053 T) + (C-REF3055 C) (WORK-REF3057 WORK)) + (%%CLAMSWLQ SIDE TRANS M-REF3046 N-REF3047 K-REF3048 MB-REF3049 + NB-REF3050 A-REF3051 LDA-REF3052 T-REF3053 LDT-REF3054 C-REF3055 + LDC-REF3056 WORK-REF3057 LWORK-REF3058 INFO-REF3059)))) (CFFI:DEFCFUN ("clamtsqr_" %%CLAMTSQR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -16079,29 +16044,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3143 ':INT32) (N-REF3144 ':INT32) - (K-REF3145 ':INT32) (MB-REF3146 ':INT32) - (NB-REF3147 ':INT32) (LDA-REF3149 ':INT32) - (LDT-REF3151 ':INT32) (LDC-REF3153 ':INT32) - (LWORK-REF3155 ':INT32) (INFO-REF3156 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3143 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3144 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3145 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3146 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3147 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3149 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3151 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3153 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3155 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3156 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3148 A) (T-REF3150 T) - (C-REF3152 C) (WORK-REF3154 WORK)) - (%%CLAMTSQR SIDE TRANS M-REF3143 N-REF3144 K-REF3145 MB-REF3146 - NB-REF3147 A-REF3148 LDA-REF3149 T-REF3150 LDT-REF3151 - C-REF3152 LDC-REF3153 WORK-REF3154 LWORK-REF3155 - INFO-REF3156)))) - -(CFFI:DEFCFUN ("clangb_" %%CLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3062 ':INT32) (N-REF3063 ':INT32) + (K-REF3064 ':INT32) (MB-REF3065 ':INT32) + (NB-REF3066 ':INT32) (LDA-REF3068 ':INT32) + (LDT-REF3070 ':INT32) (LDC-REF3072 ':INT32) + (LWORK-REF3074 ':INT32) (INFO-REF3075 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3062 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3063 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3064 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3065 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3066 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3068 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3070 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3072 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3074 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3075 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3067 A) (T-REF3069 T) + (C-REF3071 C) (WORK-REF3073 WORK)) + (%%CLAMTSQR SIDE TRANS M-REF3062 N-REF3063 K-REF3064 MB-REF3065 + NB-REF3066 A-REF3067 LDA-REF3068 T-REF3069 LDT-REF3070 C-REF3071 + LDC-REF3072 WORK-REF3073 LWORK-REF3074 INFO-REF3075)))) + +(CFFI:DEFCFUN ("clangb_" %%CLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (N :POINTER) @@ -16126,17 +16090,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3158 ':INT32) (KL-REF3159 ':INT32) - (KU-REF3160 ':INT32) (LDAB-REF3162 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3158 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3159 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3160 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3162 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3161 AB) (WORK-REF3163 WORK)) - (%%CLANGB NORM N-REF3158 KL-REF3159 KU-REF3160 AB-REF3161 LDAB-REF3162 - WORK-REF3163)))) - -(CFFI:DEFCFUN ("clange_" %%CLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3077 ':INT32) (KL-REF3078 ':INT32) + (KU-REF3079 ':INT32) (LDAB-REF3081 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3077 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3078 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3079 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3081 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3080 AB) (WORK-REF3082 WORK)) + (%%CLANGB NORM N-REF3077 KL-REF3078 KU-REF3079 AB-REF3080 LDAB-REF3081 + WORK-REF3082)))) + +(CFFI:DEFCFUN ("clange_" %%CLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (M :POINTER) @@ -16159,15 +16123,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3165 ':INT32) (N-REF3166 ':INT32) - (LDA-REF3168 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3165 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3166 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3168 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3167 A) (WORK-REF3169 WORK)) - (%%CLANGE NORM M-REF3165 N-REF3166 A-REF3167 LDA-REF3168 WORK-REF3169)))) - -(CFFI:DEFCFUN ("clangt_" %%CLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3084 ':INT32) (N-REF3085 ':INT32) + (LDA-REF3087 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3084 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3085 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3087 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3086 A) (WORK-REF3088 WORK)) + (%%CLANGE NORM M-REF3084 N-REF3085 A-REF3086 LDA-REF3087 WORK-REF3088)))) + +(CFFI:DEFCFUN ("clangt_" %%CLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (N :POINTER) @@ -16194,13 +16158,13 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) DU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3171 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3171 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF3172 DL) (D-REF3173 D) - (DU-REF3174 DU)) - (%%CLANGT NORM N-REF3171 DL-REF3172 D-REF3173 DU-REF3174)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3090 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3090 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF3091 DL) (D-REF3092 D) + (DU-REF3093 DU)) + (%%CLANGT NORM N-REF3090 DL-REF3091 D-REF3092 DU-REF3093)))) -(CFFI:DEFCFUN ("clanhb_" %%CLANHB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clanhb_" %%CLANHB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -16225,16 +16189,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3177 ':INT32) (K-REF3178 ':INT32) - (LDAB-REF3180 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3177 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3178 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3180 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3179 AB) (WORK-REF3181 WORK)) - (%%CLANHB NORM UPLO N-REF3177 K-REF3178 AB-REF3179 LDAB-REF3180 - WORK-REF3181)))) - -(CFFI:DEFCFUN ("clanhe_" %%CLANHE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3096 ':INT32) (K-REF3097 ':INT32) + (LDAB-REF3099 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3096 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3097 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3099 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3098 AB) (WORK-REF3100 WORK)) + (%%CLANHB NORM UPLO N-REF3096 K-REF3097 AB-REF3098 LDAB-REF3099 + WORK-REF3100)))) + +(CFFI:DEFCFUN ("clanhe_" %%CLANHE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -16257,13 +16221,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3184 ':INT32) (LDA-REF3186 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3184 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3186 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3185 A) (WORK-REF3187 WORK)) - (%%CLANHE NORM UPLO N-REF3184 A-REF3185 LDA-REF3186 WORK-REF3187)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3103 ':INT32) (LDA-REF3105 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3103 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3105 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3104 A) (WORK-REF3106 WORK)) + (%%CLANHE NORM UPLO N-REF3103 A-REF3104 LDA-REF3105 WORK-REF3106)))) -(CFFI:DEFCFUN ("clanhf_" %%CLANHF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clanhf_" %%CLANHF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (TRANSR :STRING) @@ -16286,12 +16250,12 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3191 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3191 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3192 A) (WORK-REF3193 WORK)) - (%%CLANHF NORM TRANSR UPLO N-REF3191 A-REF3192 WORK-REF3193)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3110 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3110 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3111 A) (WORK-REF3112 WORK)) + (%%CLANHF NORM TRANSR UPLO N-REF3110 A-REF3111 WORK-REF3112)))) -(CFFI:DEFCFUN ("clanhp_" %%CLANHP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clanhp_" %%CLANHP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -16312,12 +16276,12 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3196 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3196 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3197 AP) (WORK-REF3198 WORK)) - (%%CLANHP NORM UPLO N-REF3196 AP-REF3197 WORK-REF3198)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3115 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3115 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3116 AP) (WORK-REF3117 WORK)) + (%%CLANHP NORM UPLO N-REF3115 AP-REF3116 WORK-REF3117)))) -(CFFI:DEFCFUN ("clanhs_" %%CLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clanhs_" %%CLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (N :POINTER) @@ -16338,13 +16302,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3200 ':INT32) (LDA-REF3202 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3200 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3202 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3201 A) (WORK-REF3203 WORK)) - (%%CLANHS NORM N-REF3200 A-REF3201 LDA-REF3202 WORK-REF3203)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3119 ':INT32) (LDA-REF3121 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3119 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3121 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3120 A) (WORK-REF3122 WORK)) + (%%CLANHS NORM N-REF3119 A-REF3120 LDA-REF3121 WORK-REF3122)))) -(CFFI:DEFCFUN ("clanht_" %%CLANHT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clanht_" %%CLANHT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (N :POINTER) @@ -16362,10 +16326,70 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) E)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3205 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3205 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3206 D) (E-REF3207 E)) - (%%CLANHT NORM N-REF3205 D-REF3206 E-REF3207)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3124 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3124 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3125 D) (E-REF3126 E)) + (%%CLANHT NORM N-REF3124 D-REF3125 E-REF3126)))) + +(CFFI:DEFCFUN ("clansb_" %%CLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :FLOAT + (NORM :STRING) + (UPLO :STRING) + (N :POINTER) + (K :POINTER) + (AB :POINTER) + (LDAB :POINTER) + (WORK :POINTER)) + +(COMMON-LISP:DEFUN %CLANSB (NORM UPLO N K AB LDAB WORK) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSB) + (COMMON-LISP:TYPE COMMON-LISP:STRING NORM) + (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + AB) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) + WORK)) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3129 ':INT32) (K-REF3130 ':INT32) + (LDAB-REF3132 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3129 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3130 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3132 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3131 AB) (WORK-REF3133 WORK)) + (%%CLANSB NORM UPLO N-REF3129 K-REF3130 AB-REF3131 LDAB-REF3132 + WORK-REF3133)))) + +(CFFI:DEFCFUN ("clansp_" %%CLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :FLOAT + (NORM :STRING) + (UPLO :STRING) + (N :POINTER) + (AP :POINTER) + (WORK :POINTER)) + +(COMMON-LISP:DEFUN %CLANSP (NORM UPLO N AP WORK) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSP) + (COMMON-LISP:TYPE COMMON-LISP:STRING NORM) + (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + AP) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) + WORK)) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3136 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3136 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3137 AP) (WORK-REF3138 WORK)) + (%%CLANSP NORM UPLO N-REF3136 AP-REF3137 WORK-REF3138)))) (COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%CBBCSD %CBBCSD %%CBDSQR %CBDSQR %%CGBBRD %CGBBRD @@ -16435,331 +16459,396 @@ %%CLAHR2 %CLAHR2 %%CLAIC1 %CLAIC1 %%CLALS0 %CLALS0 %%CLALSA %CLALSA %%CLALSD %CLALSD %%CLAMSWLQ %CLAMSWLQ %%CLAMTSQR %CLAMTSQR %%CLANGB %CLANGB %%CLANGE %CLANGE %%CLANGT %CLANGT %%CLANHB %CLANHB %%CLANHE %CLANHE %%CLANHF %CLANHF - %%CLANHP %CLANHP %%CLANHS %CLANHS %%CLANHT %CLANHT)) - -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK - '(("CBBCSD" "cbbcsd_" %%CBBCSD %CBBCSD) - ("CBDSQR" "cbdsqr_" %%CBDSQR %CBDSQR) - ("CGBBRD" "cgbbrd_" %%CGBBRD %CGBBRD) - ("CGBCON" "cgbcon_" %%CGBCON %CGBCON) - ("CGBEQU" "cgbequ_" %%CGBEQU %CGBEQU) - ("CGBEQUB" "cgbequb_" %%CGBEQUB %CGBEQUB) - ("CGBRFS" "cgbrfs_" %%CGBRFS %CGBRFS) - ("CGBRFSX" "cgbrfsx_" %%CGBRFSX %CGBRFSX) - ("CGBSV" "cgbsv_" %%CGBSV %CGBSV) - ("CGBSVX" "cgbsvx_" %%CGBSVX %CGBSVX) - ("CGBSVXX" "cgbsvxx_" %%CGBSVXX %CGBSVXX) - ("CGBTF2" "cgbtf2_" %%CGBTF2 %CGBTF2) - ("CGBTRF" "cgbtrf_" %%CGBTRF %CGBTRF) - ("CGBTRS" "cgbtrs_" %%CGBTRS %CGBTRS) - ("CGEBAK" "cgebak_" %%CGEBAK %CGEBAK) - ("CGEBAL" "cgebal_" %%CGEBAL %CGEBAL) - ("CGEBD2" "cgebd2_" %%CGEBD2 %CGEBD2) - ("CGEBRD" "cgebrd_" %%CGEBRD %CGEBRD) - ("CGECON" "cgecon_" %%CGECON %CGECON) - ("CGEEQU" "cgeequ_" %%CGEEQU %CGEEQU) - ("CGEEQUB" "cgeequb_" %%CGEEQUB %CGEEQUB) - ("CGEES" "cgees_" %%CGEES %CGEES) - ("CGEESX" "cgeesx_" %%CGEESX %CGEESX) - ("CGEEV" "cgeev_" %%CGEEV %CGEEV) - ("CGEEVX" "cgeevx_" %%CGEEVX %CGEEVX) - ("CGEHD2" "cgehd2_" %%CGEHD2 %CGEHD2) - ("CGEHRD" "cgehrd_" %%CGEHRD %CGEHRD) - ("CGEJSV" "cgejsv_" %%CGEJSV %CGEJSV) - ("CGELQ" "cgelq_" %%CGELQ %CGELQ) - ("CGELQ2" "cgelq2_" %%CGELQ2 %CGELQ2) - ("CGELQF" "cgelqf_" %%CGELQF %CGELQF) - ("CGELQT" "cgelqt_" %%CGELQT %CGELQT) - ("CGELQT3" "cgelqt3_" %%CGELQT3 %CGELQT3) - ("CGELS" "cgels_" %%CGELS %CGELS) - ("CGELSD" "cgelsd_" %%CGELSD %CGELSD) - ("CGELSS" "cgelss_" %%CGELSS %CGELSS) - ("CGELSY" "cgelsy_" %%CGELSY %CGELSY) - ("CGEMLQ" "cgemlq_" %%CGEMLQ %CGEMLQ) - ("CGEMLQT" "cgemlqt_" %%CGEMLQT %CGEMLQT) - ("CGEMQR" "cgemqr_" %%CGEMQR %CGEMQR) - ("CGEMQRT" "cgemqrt_" %%CGEMQRT %CGEMQRT) - ("CGEQL2" "cgeql2_" %%CGEQL2 %CGEQL2) - ("CGEQLF" "cgeqlf_" %%CGEQLF %CGEQLF) - ("CGEQP3" "cgeqp3_" %%CGEQP3 %CGEQP3) - ("CGEQR" "cgeqr_" %%CGEQR %CGEQR) - ("CGEQR2" "cgeqr2_" %%CGEQR2 %CGEQR2) - ("CGEQR2P" "cgeqr2p_" %%CGEQR2P %CGEQR2P) - ("CGEQRF" "cgeqrf_" %%CGEQRF %CGEQRF) - ("CGEQRFP" "cgeqrfp_" %%CGEQRFP %CGEQRFP) - ("CGEQRT" "cgeqrt_" %%CGEQRT %CGEQRT) - ("CGEQRT2" "cgeqrt2_" %%CGEQRT2 %CGEQRT2) - ("CGEQRT3" "cgeqrt3_" %%CGEQRT3 %CGEQRT3) - ("CGERFS" "cgerfs_" %%CGERFS %CGERFS) - ("CGERFSX" "cgerfsx_" %%CGERFSX %CGERFSX) - ("CGERQ2" "cgerq2_" %%CGERQ2 %CGERQ2) - ("CGERQF" "cgerqf_" %%CGERQF %CGERQF) - ("CGESC2" "cgesc2_" %%CGESC2 %CGESC2) - ("CGESDD" "cgesdd_" %%CGESDD %CGESDD) - ("CGESV" "cgesv_" %%CGESV %CGESV) - ("CGESVD" "cgesvd_" %%CGESVD %CGESVD) - ("CGESVDQ" "cgesvdq_" %%CGESVDQ %CGESVDQ) - ("CGESVDX" "cgesvdx_" %%CGESVDX %CGESVDX) - ("CGESVJ" "cgesvj_" %%CGESVJ %CGESVJ) - ("CGESVX" "cgesvx_" %%CGESVX %CGESVX) - ("CGESVXX" "cgesvxx_" %%CGESVXX %CGESVXX) - ("CGETC2" "cgetc2_" %%CGETC2 %CGETC2) - ("CGETF2" "cgetf2_" %%CGETF2 %CGETF2) - ("CGETRF" "cgetrf_" %%CGETRF %CGETRF) - ("CGETRF2" "cgetrf2_" %%CGETRF2 %CGETRF2) - ("CGETRI" "cgetri_" %%CGETRI %CGETRI) - ("CGETRS" "cgetrs_" %%CGETRS %CGETRS) - ("CGETSLS" "cgetsls_" %%CGETSLS %CGETSLS) - ("CGGBAK" "cggbak_" %%CGGBAK %CGGBAK) - ("CGGBAL" "cggbal_" %%CGGBAL %CGGBAL) - ("CGGES" "cgges_" %%CGGES %CGGES) - ("CGGES3" "cgges3_" %%CGGES3 %CGGES3) - ("CGGESX" "cggesx_" %%CGGESX %CGGESX) - ("CGGEV" "cggev_" %%CGGEV %CGGEV) - ("CGGEV3" "cggev3_" %%CGGEV3 %CGGEV3) - ("CGGEVX" "cggevx_" %%CGGEVX %CGGEVX) - ("CGGGLM" "cggglm_" %%CGGGLM %CGGGLM) - ("CGGHD3" "cgghd3_" %%CGGHD3 %CGGHD3) - ("CGGHRD" "cgghrd_" %%CGGHRD %CGGHRD) - ("CGGLSE" "cgglse_" %%CGGLSE %CGGLSE) - ("CGGQRF" "cggqrf_" %%CGGQRF %CGGQRF) - ("CGGRQF" "cggrqf_" %%CGGRQF %CGGRQF) - ("CGGSVD3" "cggsvd3_" %%CGGSVD3 %CGGSVD3) - ("CGGSVP3" "cggsvp3_" %%CGGSVP3 %CGGSVP3) - ("CGSVJ0" "cgsvj0_" %%CGSVJ0 %CGSVJ0) - ("CGSVJ1" "cgsvj1_" %%CGSVJ1 %CGSVJ1) - ("CGTCON" "cgtcon_" %%CGTCON %CGTCON) - ("CGTRFS" "cgtrfs_" %%CGTRFS %CGTRFS) - ("CGTSV" "cgtsv_" %%CGTSV %CGTSV) - ("CGTSVX" "cgtsvx_" %%CGTSVX %CGTSVX) - ("CGTTRF" "cgttrf_" %%CGTTRF %CGTTRF) - ("CGTTRS" "cgttrs_" %%CGTTRS %CGTTRS) - ("CGTTS2" "cgtts2_" %%CGTTS2 %CGTTS2) - ("CHB2ST_KERNELS" "chb2st_kernels_" %%CHB2ST_KERNELS - %CHB2ST_KERNELS) - ("CHBEV" "chbev_" %%CHBEV %CHBEV) - ("CHBEV_2STAGE" "chbev_2stage_" %%CHBEV_2STAGE - %CHBEV_2STAGE) - ("CHBEVD" "chbevd_" %%CHBEVD %CHBEVD) - ("CHBEVD_2STAGE" "chbevd_2stage_" %%CHBEVD_2STAGE - %CHBEVD_2STAGE) - ("CHBEVX" "chbevx_" %%CHBEVX %CHBEVX) - ("CHBEVX_2STAGE" "chbevx_2stage_" %%CHBEVX_2STAGE - %CHBEVX_2STAGE) - ("CHBGST" "chbgst_" %%CHBGST %CHBGST) - ("CHBGV" "chbgv_" %%CHBGV %CHBGV) - ("CHBGVD" "chbgvd_" %%CHBGVD %CHBGVD) - ("CHBGVX" "chbgvx_" %%CHBGVX %CHBGVX) - ("CHBTRD" "chbtrd_" %%CHBTRD %CHBTRD) - ("CHECON" "checon_" %%CHECON %CHECON) - ("CHECON_3" "checon_3_" %%CHECON_3 %CHECON_3) - ("CHECON_ROOK" "checon_rook_" %%CHECON_ROOK %CHECON_ROOK) - ("CHEEQUB" "cheequb_" %%CHEEQUB %CHEEQUB) - ("CHEEV" "cheev_" %%CHEEV %CHEEV) - ("CHEEV_2STAGE" "cheev_2stage_" %%CHEEV_2STAGE - %CHEEV_2STAGE) - ("CHEEVD" "cheevd_" %%CHEEVD %CHEEVD) - ("CHEEVD_2STAGE" "cheevd_2stage_" %%CHEEVD_2STAGE - %CHEEVD_2STAGE) - ("CHEEVR" "cheevr_" %%CHEEVR %CHEEVR) - ("CHEEVR_2STAGE" "cheevr_2stage_" %%CHEEVR_2STAGE - %CHEEVR_2STAGE) - ("CHEEVX" "cheevx_" %%CHEEVX %CHEEVX) - ("CHEEVX_2STAGE" "cheevx_2stage_" %%CHEEVX_2STAGE - %CHEEVX_2STAGE) - ("CHEGS2" "chegs2_" %%CHEGS2 %CHEGS2) - ("CHEGST" "chegst_" %%CHEGST %CHEGST) - ("CHEGV" "chegv_" %%CHEGV %CHEGV) - ("CHEGV_2STAGE" "chegv_2stage_" %%CHEGV_2STAGE - %CHEGV_2STAGE) - ("CHEGVD" "chegvd_" %%CHEGVD %CHEGVD) - ("CHEGVX" "chegvx_" %%CHEGVX %CHEGVX) - ("CHERFS" "cherfs_" %%CHERFS %CHERFS) - ("CHERFSX" "cherfsx_" %%CHERFSX %CHERFSX) - ("CHESV" "chesv_" %%CHESV %CHESV) - ("CHESV_AA" "chesv_aa_" %%CHESV_AA %CHESV_AA) - ("CHESV_AA_2STAGE" "chesv_aa_2stage_" %%CHESV_AA_2STAGE - %CHESV_AA_2STAGE) - ("CHESV_RK" "chesv_rk_" %%CHESV_RK %CHESV_RK) - ("CHESV_ROOK" "chesv_rook_" %%CHESV_ROOK %CHESV_ROOK) - ("CHESVX" "chesvx_" %%CHESVX %CHESVX) - ("CHESVXX" "chesvxx_" %%CHESVXX %CHESVXX) - ("CHESWAPR" "cheswapr_" %%CHESWAPR %CHESWAPR) - ("CHETD2" "chetd2_" %%CHETD2 %CHETD2) - ("CHETF2" "chetf2_" %%CHETF2 %CHETF2) - ("CHETF2_RK" "chetf2_rk_" %%CHETF2_RK %CHETF2_RK) - ("CHETF2_ROOK" "chetf2_rook_" %%CHETF2_ROOK %CHETF2_ROOK) - ("CHETRD" "chetrd_" %%CHETRD %CHETRD) - ("CHETRD_2STAGE" "chetrd_2stage_" %%CHETRD_2STAGE - %CHETRD_2STAGE) - ("CHETRD_HE2HB" "chetrd_he2hb_" %%CHETRD_HE2HB - %CHETRD_HE2HB) - ("CHETRF" "chetrf_" %%CHETRF %CHETRF) - ("CHETRF_AA" "chetrf_aa_" %%CHETRF_AA %CHETRF_AA) - ("CHETRF_AA_2STAGE" "chetrf_aa_2stage_" - %%CHETRF_AA_2STAGE %CHETRF_AA_2STAGE) - ("CHETRF_RK" "chetrf_rk_" %%CHETRF_RK %CHETRF_RK) - ("CHETRF_ROOK" "chetrf_rook_" %%CHETRF_ROOK %CHETRF_ROOK) - ("CHETRI" "chetri_" %%CHETRI %CHETRI) - ("CHETRI2" "chetri2_" %%CHETRI2 %CHETRI2) - ("CHETRI2X" "chetri2x_" %%CHETRI2X %CHETRI2X) - ("CHETRI_3" "chetri_3_" %%CHETRI_3 %CHETRI_3) - ("CHETRI_3X" "chetri_3x_" %%CHETRI_3X %CHETRI_3X) - ("CHETRI_ROOK" "chetri_rook_" %%CHETRI_ROOK %CHETRI_ROOK) - ("CHETRS" "chetrs_" %%CHETRS %CHETRS) - ("CHETRS2" "chetrs2_" %%CHETRS2 %CHETRS2) - ("CHETRS_3" "chetrs_3_" %%CHETRS_3 %CHETRS_3) - ("CHETRS_AA" "chetrs_aa_" %%CHETRS_AA %CHETRS_AA) - ("CHETRS_AA_2STAGE" "chetrs_aa_2stage_" - %%CHETRS_AA_2STAGE %CHETRS_AA_2STAGE) - ("CHETRS_ROOK" "chetrs_rook_" %%CHETRS_ROOK %CHETRS_ROOK) - ("CHFRK" "chfrk_" %%CHFRK %CHFRK) - ("CHGEQZ" "chgeqz_" %%CHGEQZ %CHGEQZ) - ("CHLA_TRANSTYPE" "chla_transtype_" %%CHLA_TRANSTYPE - %CHLA_TRANSTYPE) - ("CHPCON" "chpcon_" %%CHPCON %CHPCON) - ("CHPEV" "chpev_" %%CHPEV %CHPEV) - ("CHPEVD" "chpevd_" %%CHPEVD %CHPEVD) - ("CHPEVX" "chpevx_" %%CHPEVX %CHPEVX) - ("CHPGST" "chpgst_" %%CHPGST %CHPGST) - ("CHPGV" "chpgv_" %%CHPGV %CHPGV) - ("CHPGVD" "chpgvd_" %%CHPGVD %CHPGVD) - ("CHPGVX" "chpgvx_" %%CHPGVX %CHPGVX) - ("CHPRFS" "chprfs_" %%CHPRFS %CHPRFS) - ("CHPSV" "chpsv_" %%CHPSV %CHPSV) - ("CHPSVX" "chpsvx_" %%CHPSVX %CHPSVX) - ("CHPTRD" "chptrd_" %%CHPTRD %CHPTRD) - ("CHPTRF" "chptrf_" %%CHPTRF %CHPTRF) - ("CHPTRI" "chptri_" %%CHPTRI %CHPTRI) - ("CHPTRS" "chptrs_" %%CHPTRS %CHPTRS) - ("CHSEIN" "chsein_" %%CHSEIN %CHSEIN) - ("CHSEQR" "chseqr_" %%CHSEQR %CHSEQR) - ("CLA_GBAMV" "cla_gbamv_" %%CLA_GBAMV %CLA_GBAMV) - ("CLA_GBRCOND_C" "cla_gbrcond_c_" %%CLA_GBRCOND_C - %CLA_GBRCOND_C) - ("CLA_GBRCOND_X" "cla_gbrcond_x_" %%CLA_GBRCOND_X - %CLA_GBRCOND_X) - ("CLA_GBRFSX_EXTENDED" "cla_gbrfsx_extended_" - %%CLA_GBRFSX_EXTENDED %CLA_GBRFSX_EXTENDED) - ("CLA_GBRPVGRW" "cla_gbrpvgrw_" %%CLA_GBRPVGRW - %CLA_GBRPVGRW) - ("CLA_GEAMV" "cla_geamv_" %%CLA_GEAMV %CLA_GEAMV) - ("CLA_GERCOND_C" "cla_gercond_c_" %%CLA_GERCOND_C - %CLA_GERCOND_C) - ("CLA_GERCOND_X" "cla_gercond_x_" %%CLA_GERCOND_X - %CLA_GERCOND_X) - ("CLA_GERFSX_EXTENDED" "cla_gerfsx_extended_" - %%CLA_GERFSX_EXTENDED %CLA_GERFSX_EXTENDED) - ("CLA_GERPVGRW" "cla_gerpvgrw_" %%CLA_GERPVGRW - %CLA_GERPVGRW) - ("CLA_HEAMV" "cla_heamv_" %%CLA_HEAMV %CLA_HEAMV) - ("CLA_HERCOND_C" "cla_hercond_c_" %%CLA_HERCOND_C - %CLA_HERCOND_C) - ("CLA_HERCOND_X" "cla_hercond_x_" %%CLA_HERCOND_X - %CLA_HERCOND_X) - ("CLA_HERFSX_EXTENDED" "cla_herfsx_extended_" - %%CLA_HERFSX_EXTENDED %CLA_HERFSX_EXTENDED) - ("CLA_HERPVGRW" "cla_herpvgrw_" %%CLA_HERPVGRW - %CLA_HERPVGRW) - ("CLA_LIN_BERR" "cla_lin_berr_" %%CLA_LIN_BERR - %CLA_LIN_BERR) - ("CLA_PORCOND_C" "cla_porcond_c_" %%CLA_PORCOND_C - %CLA_PORCOND_C) - ("CLA_PORCOND_X" "cla_porcond_x_" %%CLA_PORCOND_X - %CLA_PORCOND_X) - ("CLA_PORFSX_EXTENDED" "cla_porfsx_extended_" - %%CLA_PORFSX_EXTENDED %CLA_PORFSX_EXTENDED) - ("CLA_PORPVGRW" "cla_porpvgrw_" %%CLA_PORPVGRW - %CLA_PORPVGRW) - ("CLA_SYAMV" "cla_syamv_" %%CLA_SYAMV %CLA_SYAMV) - ("CLA_SYRCOND_C" "cla_syrcond_c_" %%CLA_SYRCOND_C - %CLA_SYRCOND_C) - ("CLA_SYRCOND_X" "cla_syrcond_x_" %%CLA_SYRCOND_X - %CLA_SYRCOND_X) - ("CLA_SYRFSX_EXTENDED" "cla_syrfsx_extended_" - %%CLA_SYRFSX_EXTENDED %CLA_SYRFSX_EXTENDED) - ("CLA_SYRPVGRW" "cla_syrpvgrw_" %%CLA_SYRPVGRW - %CLA_SYRPVGRW) - ("CLA_WWADDW" "cla_wwaddw_" %%CLA_WWADDW %CLA_WWADDW) - ("CLABRD" "clabrd_" %%CLABRD %CLABRD) - ("CLACGV" "clacgv_" %%CLACGV %CLACGV) - ("CLACN2" "clacn2_" %%CLACN2 %CLACN2) - ("CLACON" "clacon_" %%CLACON %CLACON) - ("CLACP2" "clacp2_" %%CLACP2 %CLACP2) - ("CLACPY" "clacpy_" %%CLACPY %CLACPY) - ("CLACRM" "clacrm_" %%CLACRM %CLACRM) - ("CLACRT" "clacrt_" %%CLACRT %CLACRT) - ("CLADIV" "cladiv_" %%CLADIV %CLADIV) - ("CLAED0" "claed0_" %%CLAED0 %CLAED0) - ("CLAED7" "claed7_" %%CLAED7 %CLAED7) - ("CLAED8" "claed8_" %%CLAED8 %CLAED8) - ("CLAEIN" "claein_" %%CLAEIN %CLAEIN) - ("CLAESY" "claesy_" %%CLAESY %CLAESY) - ("CLAEV2" "claev2_" %%CLAEV2 %CLAEV2) - ("CLAG2Z" "clag2z_" %%CLAG2Z %CLAG2Z) - ("CLAGS2" "clags2_" %%CLAGS2 %CLAGS2) - ("CLAGTM" "clagtm_" %%CLAGTM %CLAGTM) - ("CLAHEF" "clahef_" %%CLAHEF %CLAHEF) - ("CLAHEF_AA" "clahef_aa_" %%CLAHEF_AA %CLAHEF_AA) - ("CLAHEF_RK" "clahef_rk_" %%CLAHEF_RK %CLAHEF_RK) - ("CLAHEF_ROOK" "clahef_rook_" %%CLAHEF_ROOK %CLAHEF_ROOK) - ("CLAHQR" "clahqr_" %%CLAHQR %CLAHQR) - ("CLAHR2" "clahr2_" %%CLAHR2 %CLAHR2) - ("CLAIC1" "claic1_" %%CLAIC1 %CLAIC1) - ("CLALS0" "clals0_" %%CLALS0 %CLALS0) - ("CLALSA" "clalsa_" %%CLALSA %CLALSA) - ("CLALSD" "clalsd_" %%CLALSD %CLALSD) - ("CLAMSWLQ" "clamswlq_" %%CLAMSWLQ %CLAMSWLQ) - ("CLAMTSQR" "clamtsqr_" %%CLAMTSQR %CLAMTSQR) - ("CLANGB" "clangb_" %%CLANGB %CLANGB) - ("CLANGE" "clange_" %%CLANGE %CLANGE) - ("CLANGT" "clangt_" %%CLANGT %CLANGT) - ("CLANHB" "clanhb_" %%CLANHB %CLANHB) - ("CLANHE" "clanhe_" %%CLANHE %CLANHE) - ("CLANHF" "clanhf_" %%CLANHF %CLANHF) - ("CLANHP" "clanhp_" %%CLANHP %CLANHP) - ("CLANHS" "clanhs_" %%CLANHS %CLANHS) - ("CLANHT" "clanht_" %%CLANHT %CLANHT))) + %%CLANHP %CLANHP %%CLANHS %CLANHS %%CLANHT %CLANHT %%CLANSB %CLANSB %%CLANSP + %CLANSP)) + +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK + '(("CBBCSD" "cbbcsd_" %%CBBCSD %CBBCSD) + ("CBDSQR" "cbdsqr_" %%CBDSQR %CBDSQR) + ("CGBBRD" "cgbbrd_" %%CGBBRD %CGBBRD) + ("CGBCON" "cgbcon_" %%CGBCON %CGBCON) + ("CGBEQU" "cgbequ_" %%CGBEQU %CGBEQU) + ("CGBEQUB" "cgbequb_" %%CGBEQUB + %CGBEQUB) + ("CGBRFS" "cgbrfs_" %%CGBRFS %CGBRFS) + ("CGBRFSX" "cgbrfsx_" %%CGBRFSX + %CGBRFSX) + ("CGBSV" "cgbsv_" %%CGBSV %CGBSV) + ("CGBSVX" "cgbsvx_" %%CGBSVX %CGBSVX) + ("CGBSVXX" "cgbsvxx_" %%CGBSVXX + %CGBSVXX) + ("CGBTF2" "cgbtf2_" %%CGBTF2 %CGBTF2) + ("CGBTRF" "cgbtrf_" %%CGBTRF %CGBTRF) + ("CGBTRS" "cgbtrs_" %%CGBTRS %CGBTRS) + ("CGEBAK" "cgebak_" %%CGEBAK %CGEBAK) + ("CGEBAL" "cgebal_" %%CGEBAL %CGEBAL) + ("CGEBD2" "cgebd2_" %%CGEBD2 %CGEBD2) + ("CGEBRD" "cgebrd_" %%CGEBRD %CGEBRD) + ("CGECON" "cgecon_" %%CGECON %CGECON) + ("CGEEQU" "cgeequ_" %%CGEEQU %CGEEQU) + ("CGEEQUB" "cgeequb_" %%CGEEQUB + %CGEEQUB) + ("CGEES" "cgees_" %%CGEES %CGEES) + ("CGEESX" "cgeesx_" %%CGEESX %CGEESX) + ("CGEEV" "cgeev_" %%CGEEV %CGEEV) + ("CGEEVX" "cgeevx_" %%CGEEVX %CGEEVX) + ("CGEHD2" "cgehd2_" %%CGEHD2 %CGEHD2) + ("CGEHRD" "cgehrd_" %%CGEHRD %CGEHRD) + ("CGEJSV" "cgejsv_" %%CGEJSV %CGEJSV) + ("CGELQ" "cgelq_" %%CGELQ %CGELQ) + ("CGELQ2" "cgelq2_" %%CGELQ2 %CGELQ2) + ("CGELQF" "cgelqf_" %%CGELQF %CGELQF) + ("CGELQT" "cgelqt_" %%CGELQT %CGELQT) + ("CGELQT3" "cgelqt3_" %%CGELQT3 + %CGELQT3) + ("CGELS" "cgels_" %%CGELS %CGELS) + ("CGELSD" "cgelsd_" %%CGELSD %CGELSD) + ("CGELSS" "cgelss_" %%CGELSS %CGELSS) + ("CGELSY" "cgelsy_" %%CGELSY %CGELSY) + ("CGEMLQ" "cgemlq_" %%CGEMLQ %CGEMLQ) + ("CGEMLQT" "cgemlqt_" %%CGEMLQT + %CGEMLQT) + ("CGEMQR" "cgemqr_" %%CGEMQR %CGEMQR) + ("CGEMQRT" "cgemqrt_" %%CGEMQRT + %CGEMQRT) + ("CGEQL2" "cgeql2_" %%CGEQL2 %CGEQL2) + ("CGEQLF" "cgeqlf_" %%CGEQLF %CGEQLF) + ("CGEQP3" "cgeqp3_" %%CGEQP3 %CGEQP3) + ("CGEQR" "cgeqr_" %%CGEQR %CGEQR) + ("CGEQR2" "cgeqr2_" %%CGEQR2 %CGEQR2) + ("CGEQR2P" "cgeqr2p_" %%CGEQR2P + %CGEQR2P) + ("CGEQRF" "cgeqrf_" %%CGEQRF %CGEQRF) + ("CGEQRFP" "cgeqrfp_" %%CGEQRFP + %CGEQRFP) + ("CGEQRT" "cgeqrt_" %%CGEQRT %CGEQRT) + ("CGEQRT2" "cgeqrt2_" %%CGEQRT2 + %CGEQRT2) + ("CGEQRT3" "cgeqrt3_" %%CGEQRT3 + %CGEQRT3) + ("CGERFS" "cgerfs_" %%CGERFS %CGERFS) + ("CGERFSX" "cgerfsx_" %%CGERFSX + %CGERFSX) + ("CGERQ2" "cgerq2_" %%CGERQ2 %CGERQ2) + ("CGERQF" "cgerqf_" %%CGERQF %CGERQF) + ("CGESC2" "cgesc2_" %%CGESC2 %CGESC2) + ("CGESDD" "cgesdd_" %%CGESDD %CGESDD) + ("CGESV" "cgesv_" %%CGESV %CGESV) + ("CGESVD" "cgesvd_" %%CGESVD %CGESVD) + ("CGESVDQ" "cgesvdq_" %%CGESVDQ + %CGESVDQ) + ("CGESVDX" "cgesvdx_" %%CGESVDX + %CGESVDX) + ("CGESVJ" "cgesvj_" %%CGESVJ %CGESVJ) + ("CGESVX" "cgesvx_" %%CGESVX %CGESVX) + ("CGESVXX" "cgesvxx_" %%CGESVXX + %CGESVXX) + ("CGETC2" "cgetc2_" %%CGETC2 %CGETC2) + ("CGETF2" "cgetf2_" %%CGETF2 %CGETF2) + ("CGETRF" "cgetrf_" %%CGETRF %CGETRF) + ("CGETRF2" "cgetrf2_" %%CGETRF2 + %CGETRF2) + ("CGETRI" "cgetri_" %%CGETRI %CGETRI) + ("CGETRS" "cgetrs_" %%CGETRS %CGETRS) + ("CGETSLS" "cgetsls_" %%CGETSLS + %CGETSLS) + ("CGGBAK" "cggbak_" %%CGGBAK %CGGBAK) + ("CGGBAL" "cggbal_" %%CGGBAL %CGGBAL) + ("CGGES" "cgges_" %%CGGES %CGGES) + ("CGGES3" "cgges3_" %%CGGES3 %CGGES3) + ("CGGESX" "cggesx_" %%CGGESX %CGGESX) + ("CGGEV" "cggev_" %%CGGEV %CGGEV) + ("CGGEV3" "cggev3_" %%CGGEV3 %CGGEV3) + ("CGGEVX" "cggevx_" %%CGGEVX %CGGEVX) + ("CGGGLM" "cggglm_" %%CGGGLM %CGGGLM) + ("CGGHD3" "cgghd3_" %%CGGHD3 %CGGHD3) + ("CGGHRD" "cgghrd_" %%CGGHRD %CGGHRD) + ("CGGLSE" "cgglse_" %%CGGLSE %CGGLSE) + ("CGGQRF" "cggqrf_" %%CGGQRF %CGGQRF) + ("CGGRQF" "cggrqf_" %%CGGRQF %CGGRQF) + ("CGGSVD3" "cggsvd3_" %%CGGSVD3 + %CGGSVD3) + ("CGGSVP3" "cggsvp3_" %%CGGSVP3 + %CGGSVP3) + ("CGSVJ0" "cgsvj0_" %%CGSVJ0 %CGSVJ0) + ("CGSVJ1" "cgsvj1_" %%CGSVJ1 %CGSVJ1) + ("CGTCON" "cgtcon_" %%CGTCON %CGTCON) + ("CGTRFS" "cgtrfs_" %%CGTRFS %CGTRFS) + ("CGTSV" "cgtsv_" %%CGTSV %CGTSV) + ("CGTSVX" "cgtsvx_" %%CGTSVX %CGTSVX) + ("CGTTRF" "cgttrf_" %%CGTTRF %CGTTRF) + ("CGTTRS" "cgttrs_" %%CGTTRS %CGTTRS) + ("CGTTS2" "cgtts2_" %%CGTTS2 %CGTTS2) + ("CHB2ST_KERNELS" "chb2st_kernels_" + %%CHB2ST_KERNELS %CHB2ST_KERNELS) + ("CHBEV" "chbev_" %%CHBEV %CHBEV) + ("CHBEV_2STAGE" "chbev_2stage_" + %%CHBEV_2STAGE %CHBEV_2STAGE) + ("CHBEVD" "chbevd_" %%CHBEVD %CHBEVD) + ("CHBEVD_2STAGE" "chbevd_2stage_" + %%CHBEVD_2STAGE %CHBEVD_2STAGE) + ("CHBEVX" "chbevx_" %%CHBEVX %CHBEVX) + ("CHBEVX_2STAGE" "chbevx_2stage_" + %%CHBEVX_2STAGE %CHBEVX_2STAGE) + ("CHBGST" "chbgst_" %%CHBGST %CHBGST) + ("CHBGV" "chbgv_" %%CHBGV %CHBGV) + ("CHBGVD" "chbgvd_" %%CHBGVD %CHBGVD) + ("CHBGVX" "chbgvx_" %%CHBGVX %CHBGVX) + ("CHBTRD" "chbtrd_" %%CHBTRD %CHBTRD) + ("CHECON" "checon_" %%CHECON %CHECON) + ("CHECON_3" "checon_3_" %%CHECON_3 + %CHECON_3) + ("CHECON_ROOK" "checon_rook_" + %%CHECON_ROOK %CHECON_ROOK) + ("CHEEQUB" "cheequb_" %%CHEEQUB + %CHEEQUB) + ("CHEEV" "cheev_" %%CHEEV %CHEEV) + ("CHEEV_2STAGE" "cheev_2stage_" + %%CHEEV_2STAGE %CHEEV_2STAGE) + ("CHEEVD" "cheevd_" %%CHEEVD %CHEEVD) + ("CHEEVD_2STAGE" "cheevd_2stage_" + %%CHEEVD_2STAGE %CHEEVD_2STAGE) + ("CHEEVR" "cheevr_" %%CHEEVR %CHEEVR) + ("CHEEVR_2STAGE" "cheevr_2stage_" + %%CHEEVR_2STAGE %CHEEVR_2STAGE) + ("CHEEVX" "cheevx_" %%CHEEVX %CHEEVX) + ("CHEEVX_2STAGE" "cheevx_2stage_" + %%CHEEVX_2STAGE %CHEEVX_2STAGE) + ("CHEGS2" "chegs2_" %%CHEGS2 %CHEGS2) + ("CHEGST" "chegst_" %%CHEGST %CHEGST) + ("CHEGV" "chegv_" %%CHEGV %CHEGV) + ("CHEGV_2STAGE" "chegv_2stage_" + %%CHEGV_2STAGE %CHEGV_2STAGE) + ("CHEGVD" "chegvd_" %%CHEGVD %CHEGVD) + ("CHEGVX" "chegvx_" %%CHEGVX %CHEGVX) + ("CHERFS" "cherfs_" %%CHERFS %CHERFS) + ("CHERFSX" "cherfsx_" %%CHERFSX + %CHERFSX) + ("CHESV" "chesv_" %%CHESV %CHESV) + ("CHESV_AA" "chesv_aa_" %%CHESV_AA + %CHESV_AA) + ("CHESV_AA_2STAGE" "chesv_aa_2stage_" + %%CHESV_AA_2STAGE %CHESV_AA_2STAGE) + ("CHESV_RK" "chesv_rk_" %%CHESV_RK + %CHESV_RK) + ("CHESV_ROOK" "chesv_rook_" + %%CHESV_ROOK %CHESV_ROOK) + ("CHESVX" "chesvx_" %%CHESVX %CHESVX) + ("CHESVXX" "chesvxx_" %%CHESVXX + %CHESVXX) + ("CHESWAPR" "cheswapr_" %%CHESWAPR + %CHESWAPR) + ("CHETD2" "chetd2_" %%CHETD2 %CHETD2) + ("CHETF2" "chetf2_" %%CHETF2 %CHETF2) + ("CHETF2_RK" "chetf2_rk_" %%CHETF2_RK + %CHETF2_RK) + ("CHETF2_ROOK" "chetf2_rook_" + %%CHETF2_ROOK %CHETF2_ROOK) + ("CHETRD" "chetrd_" %%CHETRD %CHETRD) + ("CHETRD_2STAGE" "chetrd_2stage_" + %%CHETRD_2STAGE %CHETRD_2STAGE) + ("CHETRD_HE2HB" "chetrd_he2hb_" + %%CHETRD_HE2HB %CHETRD_HE2HB) + ("CHETRF" "chetrf_" %%CHETRF %CHETRF) + ("CHETRF_AA" "chetrf_aa_" %%CHETRF_AA + %CHETRF_AA) + ("CHETRF_AA_2STAGE" + "chetrf_aa_2stage_" + %%CHETRF_AA_2STAGE + %CHETRF_AA_2STAGE) + ("CHETRF_RK" "chetrf_rk_" %%CHETRF_RK + %CHETRF_RK) + ("CHETRF_ROOK" "chetrf_rook_" + %%CHETRF_ROOK %CHETRF_ROOK) + ("CHETRI" "chetri_" %%CHETRI %CHETRI) + ("CHETRI2" "chetri2_" %%CHETRI2 + %CHETRI2) + ("CHETRI2X" "chetri2x_" %%CHETRI2X + %CHETRI2X) + ("CHETRI_3" "chetri_3_" %%CHETRI_3 + %CHETRI_3) + ("CHETRI_3X" "chetri_3x_" %%CHETRI_3X + %CHETRI_3X) + ("CHETRI_ROOK" "chetri_rook_" + %%CHETRI_ROOK %CHETRI_ROOK) + ("CHETRS" "chetrs_" %%CHETRS %CHETRS) + ("CHETRS2" "chetrs2_" %%CHETRS2 + %CHETRS2) + ("CHETRS_3" "chetrs_3_" %%CHETRS_3 + %CHETRS_3) + ("CHETRS_AA" "chetrs_aa_" %%CHETRS_AA + %CHETRS_AA) + ("CHETRS_AA_2STAGE" + "chetrs_aa_2stage_" + %%CHETRS_AA_2STAGE + %CHETRS_AA_2STAGE) + ("CHETRS_ROOK" "chetrs_rook_" + %%CHETRS_ROOK %CHETRS_ROOK) + ("CHFRK" "chfrk_" %%CHFRK %CHFRK) + ("CHGEQZ" "chgeqz_" %%CHGEQZ %CHGEQZ) + ("CHLA_TRANSTYPE" "chla_transtype_" + %%CHLA_TRANSTYPE %CHLA_TRANSTYPE) + ("CHPCON" "chpcon_" %%CHPCON %CHPCON) + ("CHPEV" "chpev_" %%CHPEV %CHPEV) + ("CHPEVD" "chpevd_" %%CHPEVD %CHPEVD) + ("CHPEVX" "chpevx_" %%CHPEVX %CHPEVX) + ("CHPGST" "chpgst_" %%CHPGST %CHPGST) + ("CHPGV" "chpgv_" %%CHPGV %CHPGV) + ("CHPGVD" "chpgvd_" %%CHPGVD %CHPGVD) + ("CHPGVX" "chpgvx_" %%CHPGVX %CHPGVX) + ("CHPRFS" "chprfs_" %%CHPRFS %CHPRFS) + ("CHPSV" "chpsv_" %%CHPSV %CHPSV) + ("CHPSVX" "chpsvx_" %%CHPSVX %CHPSVX) + ("CHPTRD" "chptrd_" %%CHPTRD %CHPTRD) + ("CHPTRF" "chptrf_" %%CHPTRF %CHPTRF) + ("CHPTRI" "chptri_" %%CHPTRI %CHPTRI) + ("CHPTRS" "chptrs_" %%CHPTRS %CHPTRS) + ("CHSEIN" "chsein_" %%CHSEIN %CHSEIN) + ("CHSEQR" "chseqr_" %%CHSEQR %CHSEQR) + ("CLA_GBAMV" "cla_gbamv_" %%CLA_GBAMV + %CLA_GBAMV) + ("CLA_GBRCOND_C" "cla_gbrcond_c_" + %%CLA_GBRCOND_C %CLA_GBRCOND_C) + ("CLA_GBRCOND_X" "cla_gbrcond_x_" + %%CLA_GBRCOND_X %CLA_GBRCOND_X) + ("CLA_GBRFSX_EXTENDED" + "cla_gbrfsx_extended_" + %%CLA_GBRFSX_EXTENDED + %CLA_GBRFSX_EXTENDED) + ("CLA_GBRPVGRW" "cla_gbrpvgrw_" + %%CLA_GBRPVGRW %CLA_GBRPVGRW) + ("CLA_GEAMV" "cla_geamv_" %%CLA_GEAMV + %CLA_GEAMV) + ("CLA_GERCOND_C" "cla_gercond_c_" + %%CLA_GERCOND_C %CLA_GERCOND_C) + ("CLA_GERCOND_X" "cla_gercond_x_" + %%CLA_GERCOND_X %CLA_GERCOND_X) + ("CLA_GERFSX_EXTENDED" + "cla_gerfsx_extended_" + %%CLA_GERFSX_EXTENDED + %CLA_GERFSX_EXTENDED) + ("CLA_GERPVGRW" "cla_gerpvgrw_" + %%CLA_GERPVGRW %CLA_GERPVGRW) + ("CLA_HEAMV" "cla_heamv_" %%CLA_HEAMV + %CLA_HEAMV) + ("CLA_HERCOND_C" "cla_hercond_c_" + %%CLA_HERCOND_C %CLA_HERCOND_C) + ("CLA_HERCOND_X" "cla_hercond_x_" + %%CLA_HERCOND_X %CLA_HERCOND_X) + ("CLA_HERFSX_EXTENDED" + "cla_herfsx_extended_" + %%CLA_HERFSX_EXTENDED + %CLA_HERFSX_EXTENDED) + ("CLA_HERPVGRW" "cla_herpvgrw_" + %%CLA_HERPVGRW %CLA_HERPVGRW) + ("CLA_LIN_BERR" "cla_lin_berr_" + %%CLA_LIN_BERR %CLA_LIN_BERR) + ("CLA_PORCOND_C" "cla_porcond_c_" + %%CLA_PORCOND_C %CLA_PORCOND_C) + ("CLA_PORCOND_X" "cla_porcond_x_" + %%CLA_PORCOND_X %CLA_PORCOND_X) + ("CLA_PORFSX_EXTENDED" + "cla_porfsx_extended_" + %%CLA_PORFSX_EXTENDED + %CLA_PORFSX_EXTENDED) + ("CLA_PORPVGRW" "cla_porpvgrw_" + %%CLA_PORPVGRW %CLA_PORPVGRW) + ("CLA_SYAMV" "cla_syamv_" %%CLA_SYAMV + %CLA_SYAMV) + ("CLA_SYRCOND_C" "cla_syrcond_c_" + %%CLA_SYRCOND_C %CLA_SYRCOND_C) + ("CLA_SYRCOND_X" "cla_syrcond_x_" + %%CLA_SYRCOND_X %CLA_SYRCOND_X) + ("CLA_SYRFSX_EXTENDED" + "cla_syrfsx_extended_" + %%CLA_SYRFSX_EXTENDED + %CLA_SYRFSX_EXTENDED) + ("CLA_SYRPVGRW" "cla_syrpvgrw_" + %%CLA_SYRPVGRW %CLA_SYRPVGRW) + ("CLA_WWADDW" "cla_wwaddw_" + %%CLA_WWADDW %CLA_WWADDW) + ("CLABRD" "clabrd_" %%CLABRD %CLABRD) + ("CLACGV" "clacgv_" %%CLACGV %CLACGV) + ("CLACN2" "clacn2_" %%CLACN2 %CLACN2) + ("CLACON" "clacon_" %%CLACON %CLACON) + ("CLACP2" "clacp2_" %%CLACP2 %CLACP2) + ("CLACPY" "clacpy_" %%CLACPY %CLACPY) + ("CLACRM" "clacrm_" %%CLACRM %CLACRM) + ("CLACRT" "clacrt_" %%CLACRT %CLACRT) + ("CLADIV" "cladiv_" %%CLADIV %CLADIV) + ("CLAED0" "claed0_" %%CLAED0 %CLAED0) + ("CLAED7" "claed7_" %%CLAED7 %CLAED7) + ("CLAED8" "claed8_" %%CLAED8 %CLAED8) + ("CLAEIN" "claein_" %%CLAEIN %CLAEIN) + ("CLAESY" "claesy_" %%CLAESY %CLAESY) + ("CLAEV2" "claev2_" %%CLAEV2 %CLAEV2) + ("CLAG2Z" "clag2z_" %%CLAG2Z %CLAG2Z) + ("CLAGS2" "clags2_" %%CLAGS2 %CLAGS2) + ("CLAGTM" "clagtm_" %%CLAGTM %CLAGTM) + ("CLAHEF" "clahef_" %%CLAHEF %CLAHEF) + ("CLAHEF_AA" "clahef_aa_" %%CLAHEF_AA + %CLAHEF_AA) + ("CLAHEF_RK" "clahef_rk_" %%CLAHEF_RK + %CLAHEF_RK) + ("CLAHEF_ROOK" "clahef_rook_" + %%CLAHEF_ROOK %CLAHEF_ROOK) + ("CLAHQR" "clahqr_" %%CLAHQR %CLAHQR) + ("CLAHR2" "clahr2_" %%CLAHR2 %CLAHR2) + ("CLAIC1" "claic1_" %%CLAIC1 %CLAIC1) + ("CLALS0" "clals0_" %%CLALS0 %CLALS0) + ("CLALSA" "clalsa_" %%CLALSA %CLALSA) + ("CLALSD" "clalsd_" %%CLALSD %CLALSD) + ("CLAMSWLQ" "clamswlq_" %%CLAMSWLQ + %CLAMSWLQ) + ("CLAMTSQR" "clamtsqr_" %%CLAMTSQR + %CLAMTSQR) + ("CLANGB" "clangb_" %%CLANGB %CLANGB) + ("CLANGE" "clange_" %%CLANGE %CLANGE) + ("CLANGT" "clangt_" %%CLANGT %CLANGT) + ("CLANHB" "clanhb_" %%CLANHB %CLANHB) + ("CLANHE" "clanhe_" %%CLANHE %CLANHE) + ("CLANHF" "clanhf_" %%CLANHF %CLANHF) + ("CLANHP" "clanhp_" %%CLANHP %CLANHP) + ("CLANHS" "clanhs_" %%CLANHS %CLANHS) + ("CLANHT" "clanht_" %%CLANHT %CLANHT) + ("CLANSB" "clansb_" %%CLANSB %CLANSB) + ("CLANSP" "clansp_" %%CLANSP + %CLANSP))) (COMMON-LISP:EXPORT '(%CBBCSD %CBDSQR %CGBBRD %CGBCON %CGBEQU %CGBEQUB %CGBRFS %CGBRFSX %CGBSV - %CGBSVX %CGBSVXX %CGBTF2 %CGBTRF %CGBTRS %CGEBAK %CGEBAL %CGEBD2 - %CGEBRD %CGECON %CGEEQU %CGEEQUB %CGEES %CGEESX %CGEEV %CGEEVX - %CGEHD2 %CGEHRD %CGEJSV %CGELQ %CGELQ2 %CGELQF %CGELQT %CGELQT3 - %CGELS %CGELSD %CGELSS %CGELSY %CGEMLQ %CGEMLQT %CGEMQR %CGEMQRT - %CGEQL2 %CGEQLF %CGEQP3 %CGEQR %CGEQR2 %CGEQR2P %CGEQRF %CGEQRFP - %CGEQRT %CGEQRT2 %CGEQRT3 %CGERFS %CGERFSX %CGERQ2 %CGERQF %CGESC2 - %CGESDD %CGESV %CGESVD %CGESVDQ %CGESVDX %CGESVJ %CGESVX %CGESVXX - %CGETC2 %CGETF2 %CGETRF %CGETRF2 %CGETRI %CGETRS %CGETSLS %CGGBAK - %CGGBAL %CGGES %CGGES3 %CGGESX %CGGEV %CGGEV3 %CGGEVX %CGGGLM - %CGGHD3 %CGGHRD %CGGLSE %CGGQRF %CGGRQF %CGGSVD3 %CGGSVP3 %CGSVJ0 - %CGSVJ1 %CGTCON %CGTRFS %CGTSV %CGTSVX %CGTTRF %CGTTRS %CGTTS2 - %CHB2ST_KERNELS %CHBEV %CHBEV_2STAGE %CHBEVD %CHBEVD_2STAGE %CHBEVX - %CHBEVX_2STAGE %CHBGST %CHBGV %CHBGVD %CHBGVX %CHBTRD %CHECON - %CHECON_3 %CHECON_ROOK %CHEEQUB %CHEEV %CHEEV_2STAGE %CHEEVD - %CHEEVD_2STAGE %CHEEVR %CHEEVR_2STAGE %CHEEVX %CHEEVX_2STAGE %CHEGS2 - %CHEGST %CHEGV %CHEGV_2STAGE %CHEGVD %CHEGVX %CHERFS %CHERFSX %CHESV - %CHESV_AA %CHESV_AA_2STAGE %CHESV_RK %CHESV_ROOK %CHESVX %CHESVXX - %CHESWAPR %CHETD2 %CHETF2 %CHETF2_RK %CHETF2_ROOK %CHETRD - %CHETRD_2STAGE %CHETRD_HE2HB %CHETRF %CHETRF_AA %CHETRF_AA_2STAGE - %CHETRF_RK %CHETRF_ROOK %CHETRI %CHETRI2 %CHETRI2X %CHETRI_3 - %CHETRI_3X %CHETRI_ROOK %CHETRS %CHETRS2 %CHETRS_3 %CHETRS_AA - %CHETRS_AA_2STAGE %CHETRS_ROOK %CHFRK %CHGEQZ %CHLA_TRANSTYPE - %CHPCON %CHPEV %CHPEVD %CHPEVX %CHPGST %CHPGV %CHPGVD %CHPGVX - %CHPRFS %CHPSV %CHPSVX %CHPTRD %CHPTRF %CHPTRI %CHPTRS %CHSEIN - %CHSEQR %CLA_GBAMV %CLA_GBRCOND_C %CLA_GBRCOND_X - %CLA_GBRFSX_EXTENDED %CLA_GBRPVGRW %CLA_GEAMV %CLA_GERCOND_C - %CLA_GERCOND_X %CLA_GERFSX_EXTENDED %CLA_GERPVGRW %CLA_HEAMV - %CLA_HERCOND_C %CLA_HERCOND_X %CLA_HERFSX_EXTENDED %CLA_HERPVGRW - %CLA_LIN_BERR %CLA_PORCOND_C %CLA_PORCOND_X %CLA_PORFSX_EXTENDED - %CLA_PORPVGRW %CLA_SYAMV %CLA_SYRCOND_C %CLA_SYRCOND_X - %CLA_SYRFSX_EXTENDED %CLA_SYRPVGRW %CLA_WWADDW %CLABRD %CLACGV - %CLACN2 %CLACON %CLACP2 %CLACPY %CLACRM %CLACRT %CLADIV %CLAED0 - %CLAED7 %CLAED8 %CLAEIN %CLAESY %CLAEV2 %CLAG2Z %CLAGS2 %CLAGTM - %CLAHEF %CLAHEF_AA %CLAHEF_RK %CLAHEF_ROOK %CLAHQR %CLAHR2 %CLAIC1 - %CLALS0 %CLALSA %CLALSD %CLAMSWLQ %CLAMTSQR %CLANGB %CLANGE %CLANGT - %CLANHB %CLANHE %CLANHF %CLANHP %CLANHS %CLANHT) + %CGBSVX %CGBSVXX %CGBTF2 %CGBTRF %CGBTRS %CGEBAK %CGEBAL %CGEBD2 %CGEBRD + %CGECON %CGEEQU %CGEEQUB %CGEES %CGEESX %CGEEV %CGEEVX %CGEHD2 %CGEHRD + %CGEJSV %CGELQ %CGELQ2 %CGELQF %CGELQT %CGELQT3 %CGELS %CGELSD %CGELSS + %CGELSY %CGEMLQ %CGEMLQT %CGEMQR %CGEMQRT %CGEQL2 %CGEQLF %CGEQP3 %CGEQR + %CGEQR2 %CGEQR2P %CGEQRF %CGEQRFP %CGEQRT %CGEQRT2 %CGEQRT3 %CGERFS %CGERFSX + %CGERQ2 %CGERQF %CGESC2 %CGESDD %CGESV %CGESVD %CGESVDQ %CGESVDX %CGESVJ + %CGESVX %CGESVXX %CGETC2 %CGETF2 %CGETRF %CGETRF2 %CGETRI %CGETRS %CGETSLS + %CGGBAK %CGGBAL %CGGES %CGGES3 %CGGESX %CGGEV %CGGEV3 %CGGEVX %CGGGLM + %CGGHD3 %CGGHRD %CGGLSE %CGGQRF %CGGRQF %CGGSVD3 %CGGSVP3 %CGSVJ0 %CGSVJ1 + %CGTCON %CGTRFS %CGTSV %CGTSVX %CGTTRF %CGTTRS %CGTTS2 %CHB2ST_KERNELS + %CHBEV %CHBEV_2STAGE %CHBEVD %CHBEVD_2STAGE %CHBEVX %CHBEVX_2STAGE %CHBGST + %CHBGV %CHBGVD %CHBGVX %CHBTRD %CHECON %CHECON_3 %CHECON_ROOK %CHEEQUB + %CHEEV %CHEEV_2STAGE %CHEEVD %CHEEVD_2STAGE %CHEEVR %CHEEVR_2STAGE %CHEEVX + %CHEEVX_2STAGE %CHEGS2 %CHEGST %CHEGV %CHEGV_2STAGE %CHEGVD %CHEGVX %CHERFS + %CHERFSX %CHESV %CHESV_AA %CHESV_AA_2STAGE %CHESV_RK %CHESV_ROOK %CHESVX + %CHESVXX %CHESWAPR %CHETD2 %CHETF2 %CHETF2_RK %CHETF2_ROOK %CHETRD + %CHETRD_2STAGE %CHETRD_HE2HB %CHETRF %CHETRF_AA %CHETRF_AA_2STAGE %CHETRF_RK + %CHETRF_ROOK %CHETRI %CHETRI2 %CHETRI2X %CHETRI_3 %CHETRI_3X %CHETRI_ROOK + %CHETRS %CHETRS2 %CHETRS_3 %CHETRS_AA %CHETRS_AA_2STAGE %CHETRS_ROOK %CHFRK + %CHGEQZ %CHLA_TRANSTYPE %CHPCON %CHPEV %CHPEVD %CHPEVX %CHPGST %CHPGV + %CHPGVD %CHPGVX %CHPRFS %CHPSV %CHPSVX %CHPTRD %CHPTRF %CHPTRI %CHPTRS + %CHSEIN %CHSEQR %CLA_GBAMV %CLA_GBRCOND_C %CLA_GBRCOND_X + %CLA_GBRFSX_EXTENDED %CLA_GBRPVGRW %CLA_GEAMV %CLA_GERCOND_C %CLA_GERCOND_X + %CLA_GERFSX_EXTENDED %CLA_GERPVGRW %CLA_HEAMV %CLA_HERCOND_C %CLA_HERCOND_X + %CLA_HERFSX_EXTENDED %CLA_HERPVGRW %CLA_LIN_BERR %CLA_PORCOND_C + %CLA_PORCOND_X %CLA_PORFSX_EXTENDED %CLA_PORPVGRW %CLA_SYAMV %CLA_SYRCOND_C + %CLA_SYRCOND_X %CLA_SYRFSX_EXTENDED %CLA_SYRPVGRW %CLA_WWADDW %CLABRD + %CLACGV %CLACN2 %CLACON %CLACP2 %CLACPY %CLACRM %CLACRT %CLADIV %CLAED0 + %CLAED7 %CLAED8 %CLAEIN %CLAESY %CLAEV2 %CLAG2Z %CLAGS2 %CLAGTM %CLAHEF + %CLAHEF_AA %CLAHEF_RK %CLAHEF_ROOK %CLAHQR %CLAHR2 %CLAIC1 %CLALS0 %CLALSA + %CLALSD %CLAMSWLQ %CLAMTSQR %CLANGB %CLANGE %CLANGT %CLANHB %CLANHE %CLANHF + %CLANHP %CLANHS %CLANHT %CLANSB %CLANSP) '#:MAGICL.LAPACK-CFFI) ;;; End of file. diff --git a/src/bindings/lapack01-cffi.lisp b/src/bindings/lapack01-cffi.lisp index d287c6e8..63c2adec 100644 --- a/src/bindings/lapack01-cffi.lisp +++ b/src/bindings/lapack01-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 5/21/2019 at 13:37:08 (UTC+1). +;;;; Generated on 3/22/2021 at 17:54:18 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -7,128 +7,69 @@ (COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI) (COMMON-LISP:DECLAIM - (COMMON-LISP:INLINE %%CLANSB %CLANSB %%CLANSP %CLANSP %%CLANSY %CLANSY - %%CLANTB %CLANTB %%CLANTP %CLANTP %%CLANTR %CLANTR %%CLAPLL %CLAPLL %%CLAPMR - %CLAPMR %%CLAPMT %CLAPMT %%CLAQGB %CLAQGB %%CLAQGE %CLAQGE %%CLAQHB %CLAQHB - %%CLAQHE %CLAQHE %%CLAQHP %CLAQHP %%CLAQP2 %CLAQP2 %%CLAQPS %CLAQPS %%CLAQR0 - %CLAQR0 %%CLAQR1 %CLAQR1 %%CLAQR2 %CLAQR2 %%CLAQR3 %CLAQR3 %%CLAQR4 %CLAQR4 - %%CLAQR5 %CLAQR5 %%CLAQSB %CLAQSB %%CLAQSP %CLAQSP %%CLAQSY %CLAQSY %%CLAR1V - %CLAR1V %%CLAR2V %CLAR2V %%CLARCM %CLARCM %%CLARF %CLARF %%CLARFB %CLARFB - %%CLARFG %CLARFG %%CLARFGP %CLARFGP %%CLARFT %CLARFT %%CLARFX %CLARFX - %%CLARFY %CLARFY %%CLARGV %CLARGV %%CLARNV %CLARNV %%CLARRV %CLARRV - %%CLARSCL2 %CLARSCL2 %%CLARTG %CLARTG %%CLARTV %CLARTV %%CLARZ %CLARZ - %%CLARZB %CLARZB %%CLARZT %CLARZT %%CLASCL %CLASCL %%CLASCL2 %CLASCL2 - %%CLASET %CLASET %%CLASR %CLASR %%CLASSQ %CLASSQ %%CLASWLQ %CLASWLQ %%CLASWP - %CLASWP %%CLASYF %CLASYF %%CLASYF_AA %CLASYF_AA %%CLASYF_RK %CLASYF_RK - %%CLASYF_ROOK %CLASYF_ROOK %%CLATBS %CLATBS %%CLATDF %CLATDF %%CLATPS %CLATPS - %%CLATRD %CLATRD %%CLATRS %CLATRS %%CLATRZ %CLATRZ %%CLATSQR %CLATSQR - %%CLAUU2 %CLAUU2 %%CLAUUM %CLAUUM %%CPBCON %CPBCON %%CPBEQU %CPBEQU %%CPBRFS - %CPBRFS %%CPBSTF %CPBSTF %%CPBSV %CPBSV %%CPBSVX %CPBSVX %%CPBTF2 %CPBTF2 - %%CPBTRF %CPBTRF %%CPBTRS %CPBTRS %%CPFTRF %CPFTRF %%CPFTRI %CPFTRI %%CPFTRS - %CPFTRS %%CPOCON %CPOCON %%CPOEQU %CPOEQU %%CPOEQUB %CPOEQUB %%CPORFS %CPORFS - %%CPORFSX %CPORFSX %%CPOSV %CPOSV %%CPOSVX %CPOSVX %%CPOSVXX %CPOSVXX - %%CPOTF2 %CPOTF2 %%CPOTRF %CPOTRF %%CPOTRF2 %CPOTRF2 %%CPOTRI %CPOTRI - %%CPOTRS %CPOTRS %%CPPCON %CPPCON %%CPPEQU %CPPEQU %%CPPRFS %CPPRFS %%CPPSV - %CPPSV %%CPPSVX %CPPSVX %%CPPTRF %CPPTRF %%CPPTRI %CPPTRI %%CPPTRS %CPPTRS - %%CPSTF2 %CPSTF2 %%CPSTRF %CPSTRF %%CPTCON %CPTCON %%CPTEQR %CPTEQR %%CPTRFS - %CPTRFS %%CPTSV %CPTSV %%CPTSVX %CPTSVX %%CPTTRF %CPTTRF %%CPTTRS %CPTTRS - %%CPTTS2 %CPTTS2 %%CROT %CROT %%CSPCON %CSPCON %%CSPMV %CSPMV %%CSPR %CSPR - %%CSPRFS %CSPRFS %%CSPSV %CSPSV %%CSPSVX %CSPSVX %%CSPTRF %CSPTRF %%CSPTRI - %CSPTRI %%CSPTRS %CSPTRS %%CSRSCL %CSRSCL %%CSTEDC %CSTEDC %%CSTEGR %CSTEGR - %%CSTEIN %CSTEIN %%CSTEMR %CSTEMR %%CSTEQR %CSTEQR %%CSYCON %CSYCON - %%CSYCON_3 %CSYCON_3 %%CSYCON_ROOK %CSYCON_ROOK %%CSYCONV %CSYCONV %%CSYCONVF - %CSYCONVF %%CSYCONVF_ROOK %CSYCONVF_ROOK %%CSYEQUB %CSYEQUB %%CSYMV %CSYMV - %%CSYR %CSYR %%CSYRFS %CSYRFS %%CSYRFSX %CSYRFSX %%CSYSV %CSYSV %%CSYSV_AA - %CSYSV_AA %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE %%CSYSV_RK %CSYSV_RK - %%CSYSV_ROOK %CSYSV_ROOK %%CSYSVX %CSYSVX %%CSYSVXX %CSYSVXX %%CSYSWAPR - %CSYSWAPR %%CSYTF2 %CSYTF2 %%CSYTF2_RK %CSYTF2_RK %%CSYTF2_ROOK %CSYTF2_ROOK - %%CSYTRF %CSYTRF %%CSYTRF_AA %CSYTRF_AA %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE - %%CSYTRF_RK %CSYTRF_RK %%CSYTRF_ROOK %CSYTRF_ROOK %%CSYTRI %CSYTRI %%CSYTRI2 - %CSYTRI2 %%CSYTRI2X %CSYTRI2X %%CSYTRI_3 %CSYTRI_3 %%CSYTRI_3X %CSYTRI_3X - %%CSYTRI_ROOK %CSYTRI_ROOK %%CSYTRS %CSYTRS %%CSYTRS2 %CSYTRS2 %%CSYTRS_3 - %CSYTRS_3 %%CSYTRS_AA %CSYTRS_AA %%CSYTRS_AA_2STAGE %CSYTRS_AA_2STAGE - %%CSYTRS_ROOK %CSYTRS_ROOK %%CTBCON %CTBCON %%CTBRFS %CTBRFS %%CTBTRS %CTBTRS - %%CTFSM %CTFSM %%CTFTRI %CTFTRI %%CTFTTP %CTFTTP %%CTFTTR %CTFTTR %%CTGEVC - %CTGEVC %%CTGEX2 %CTGEX2 %%CTGEXC %CTGEXC %%CTGSEN %CTGSEN %%CTGSJA %CTGSJA - %%CTGSNA %CTGSNA %%CTGSY2 %CTGSY2 %%CTGSYL %CTGSYL %%CTPCON %CTPCON %%CTPLQT - %CTPLQT %%CTPLQT2 %CTPLQT2 %%CTPMLQT %CTPMLQT %%CTPMQRT %CTPMQRT %%CTPQRT - %CTPQRT %%CTPQRT2 %CTPQRT2 %%CTPRFB %CTPRFB %%CTPRFS %CTPRFS %%CTPTRI %CTPTRI - %%CTPTRS %CTPTRS %%CTPTTF %CTPTTF %%CTPTTR %CTPTTR %%CTRCON %CTRCON %%CTREVC - %CTREVC %%CTREVC3 %CTREVC3 %%CTREXC %CTREXC %%CTRRFS %CTRRFS %%CTRSEN %CTRSEN - %%CTRSNA %CTRSNA %%CTRSYL %CTRSYL %%CTRTI2 %CTRTI2 %%CTRTRI %CTRTRI %%CTRTRS - %CTRTRS %%CTRTTF %CTRTTF %%CTRTTP %CTRTTP %%CTZRZF %CTZRZF %%CUNBDB %CUNBDB - %%CUNBDB1 %CUNBDB1 %%CUNBDB2 %CUNBDB2 %%CUNBDB3 %CUNBDB3 %%CUNBDB4 %CUNBDB4 - %%CUNBDB5 %CUNBDB5 %%CUNBDB6 %CUNBDB6 %%CUNCSD %CUNCSD %%CUNCSD2BY1 - %CUNCSD2BY1 %%CUNG2L %CUNG2L %%CUNG2R %CUNG2R %%CUNGBR %CUNGBR %%CUNGHR - %CUNGHR %%CUNGL2 %CUNGL2 %%CUNGLQ %CUNGLQ %%CUNGQL %CUNGQL %%CUNGQR %CUNGQR - %%CUNGR2 %CUNGR2 %%CUNGRQ %CUNGRQ %%CUNGTR %CUNGTR %%CUNM22 %CUNM22 %%CUNM2L - %CUNM2L %%CUNM2R %CUNM2R %%CUNMBR %CUNMBR %%CUNMHR %CUNMHR %%CUNML2 %CUNML2 - %%CUNMLQ %CUNMLQ %%CUNMQL %CUNMQL %%CUNMQR %CUNMQR %%CUNMR2 %CUNMR2 %%CUNMR3 - %CUNMR3 %%CUNMRQ %CUNMRQ %%CUNMRZ %CUNMRZ %%CUNMTR %CUNMTR %%CUPGTR %CUPGTR - %%CUPMTR %CUPMTR %%DBBCSD %DBBCSD %%DBDSDC %DBDSDC %%DBDSQR %DBDSQR %%DBDSVDX - %DBDSVDX %%DCOMBSSQ %DCOMBSSQ %%DDISNA %DDISNA)) - -(CFFI:DEFCFUN ("clansb_" %%CLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - :FLOAT - (NORM :STRING) - (UPLO :STRING) - (N :POINTER) - (K :POINTER) - (AB :POINTER) - (LDAB :POINTER) - (WORK :POINTER)) - -(COMMON-LISP:DEFUN %CLANSB (NORM UPLO N K AB LDAB WORK) - (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSB) - (COMMON-LISP:TYPE COMMON-LISP:STRING NORM) - (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO) - (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) - (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K) - (COMMON-LISP:TYPE - (COMMON-LISP:SIMPLE-ARRAY - (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) - (COMMON-LISP:*)) - AB) - (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) - (COMMON-LISP:TYPE - (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) - WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3210 ':INT32) (K-REF3211 ':INT32) - (LDAB-REF3213 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3210 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3211 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3213 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3212 AB) (WORK-REF3214 WORK)) - (%%CLANSB NORM UPLO N-REF3210 K-REF3211 AB-REF3212 LDAB-REF3213 - WORK-REF3214)))) - -(CFFI:DEFCFUN ("clansp_" %%CLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - :FLOAT - (NORM :STRING) - (UPLO :STRING) - (N :POINTER) - (AP :POINTER) - (WORK :POINTER)) - -(COMMON-LISP:DEFUN %CLANSP (NORM UPLO N AP WORK) - (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSP) - (COMMON-LISP:TYPE COMMON-LISP:STRING NORM) - (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO) - (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) - (COMMON-LISP:TYPE - (COMMON-LISP:SIMPLE-ARRAY - (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) - (COMMON-LISP:*)) - AP) - (COMMON-LISP:TYPE - (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) - WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3217 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3217 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3218 AP) (WORK-REF3219 WORK)) - (%%CLANSP NORM UPLO N-REF3217 AP-REF3218 WORK-REF3219)))) - -(CFFI:DEFCFUN ("clansy_" %%CLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (COMMON-LISP:INLINE %%CLANSY %CLANSY %%CLANTB %CLANTB %%CLANTP %CLANTP + %%CLANTR %CLANTR %%CLAPLL %CLAPLL %%CLAPMR %CLAPMR %%CLAPMT %CLAPMT %%CLAQGB + %CLAQGB %%CLAQGE %CLAQGE %%CLAQHB %CLAQHB %%CLAQHE %CLAQHE %%CLAQHP %CLAQHP + %%CLAQP2 %CLAQP2 %%CLAQPS %CLAQPS %%CLAQR0 %CLAQR0 %%CLAQR1 %CLAQR1 %%CLAQR2 + %CLAQR2 %%CLAQR3 %CLAQR3 %%CLAQR4 %CLAQR4 %%CLAQR5 %CLAQR5 %%CLAQSB %CLAQSB + %%CLAQSP %CLAQSP %%CLAQSY %CLAQSY %%CLAR1V %CLAR1V %%CLAR2V %CLAR2V %%CLARCM + %CLARCM %%CLARF %CLARF %%CLARFB %CLARFB %%CLARFG %CLARFG %%CLARFGP %CLARFGP + %%CLARFT %CLARFT %%CLARFX %CLARFX %%CLARFY %CLARFY %%CLARGV %CLARGV %%CLARNV + %CLARNV %%CLARRV %CLARRV %%CLARSCL2 %CLARSCL2 %%CLARTG %CLARTG %%CLARTV + %CLARTV %%CLARZ %CLARZ %%CLARZB %CLARZB %%CLARZT %CLARZT %%CLASCL %CLASCL + %%CLASCL2 %CLASCL2 %%CLASET %CLASET %%CLASR %CLASR %%CLASSQ %CLASSQ %%CLASWLQ + %CLASWLQ %%CLASWP %CLASWP %%CLASYF %CLASYF %%CLASYF_AA %CLASYF_AA %%CLASYF_RK + %CLASYF_RK %%CLASYF_ROOK %CLASYF_ROOK %%CLATBS %CLATBS %%CLATDF %CLATDF + %%CLATPS %CLATPS %%CLATRD %CLATRD %%CLATRS %CLATRS %%CLATRZ %CLATRZ %%CLATSQR + %CLATSQR %%CLAUNHR_COL_GETRFNP %CLAUNHR_COL_GETRFNP %%CLAUNHR_COL_GETRFNP2 + %CLAUNHR_COL_GETRFNP2 %%CLAUU2 %CLAUU2 %%CLAUUM %CLAUUM %%CPBCON %CPBCON + %%CPBEQU %CPBEQU %%CPBRFS %CPBRFS %%CPBSTF %CPBSTF %%CPBSV %CPBSV %%CPBSVX + %CPBSVX %%CPBTF2 %CPBTF2 %%CPBTRF %CPBTRF %%CPBTRS %CPBTRS %%CPFTRF %CPFTRF + %%CPFTRI %CPFTRI %%CPFTRS %CPFTRS %%CPOCON %CPOCON %%CPOEQU %CPOEQU %%CPOEQUB + %CPOEQUB %%CPORFS %CPORFS %%CPORFSX %CPORFSX %%CPOSV %CPOSV %%CPOSVX %CPOSVX + %%CPOSVXX %CPOSVXX %%CPOTF2 %CPOTF2 %%CPOTRF %CPOTRF %%CPOTRF2 %CPOTRF2 + %%CPOTRI %CPOTRI %%CPOTRS %CPOTRS %%CPPCON %CPPCON %%CPPEQU %CPPEQU %%CPPRFS + %CPPRFS %%CPPSV %CPPSV %%CPPSVX %CPPSVX %%CPPTRF %CPPTRF %%CPPTRI %CPPTRI + %%CPPTRS %CPPTRS %%CPSTF2 %CPSTF2 %%CPSTRF %CPSTRF %%CPTCON %CPTCON %%CPTEQR + %CPTEQR %%CPTRFS %CPTRFS %%CPTSV %CPTSV %%CPTSVX %CPTSVX %%CPTTRF %CPTTRF + %%CPTTRS %CPTTRS %%CPTTS2 %CPTTS2 %%CROT %CROT %%CSPCON %CSPCON %%CSPMV + %CSPMV %%CSPR %CSPR %%CSPRFS %CSPRFS %%CSPSV %CSPSV %%CSPSVX %CSPSVX %%CSPTRF + %CSPTRF %%CSPTRI %CSPTRI %%CSPTRS %CSPTRS %%CSRSCL %CSRSCL %%CSTEDC %CSTEDC + %%CSTEGR %CSTEGR %%CSTEIN %CSTEIN %%CSTEMR %CSTEMR %%CSTEQR %CSTEQR %%CSYCON + %CSYCON %%CSYCON_3 %CSYCON_3 %%CSYCON_ROOK %CSYCON_ROOK %%CSYCONV %CSYCONV + %%CSYCONVF %CSYCONVF %%CSYCONVF_ROOK %CSYCONVF_ROOK %%CSYEQUB %CSYEQUB + %%CSYMV %CSYMV %%CSYR %CSYR %%CSYRFS %CSYRFS %%CSYRFSX %CSYRFSX %%CSYSV + %CSYSV %%CSYSV_AA %CSYSV_AA %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE %%CSYSV_RK + %CSYSV_RK %%CSYSV_ROOK %CSYSV_ROOK %%CSYSVX %CSYSVX %%CSYSVXX %CSYSVXX + %%CSYSWAPR %CSYSWAPR %%CSYTF2 %CSYTF2 %%CSYTF2_RK %CSYTF2_RK %%CSYTF2_ROOK + %CSYTF2_ROOK %%CSYTRF %CSYTRF %%CSYTRF_AA %CSYTRF_AA %%CSYTRF_AA_2STAGE + %CSYTRF_AA_2STAGE %%CSYTRF_RK %CSYTRF_RK %%CSYTRF_ROOK %CSYTRF_ROOK %%CSYTRI + %CSYTRI %%CSYTRI2 %CSYTRI2 %%CSYTRI2X %CSYTRI2X %%CSYTRI_3 %CSYTRI_3 + %%CSYTRI_3X %CSYTRI_3X %%CSYTRI_ROOK %CSYTRI_ROOK %%CSYTRS %CSYTRS %%CSYTRS2 + %CSYTRS2 %%CSYTRS_3 %CSYTRS_3 %%CSYTRS_AA %CSYTRS_AA %%CSYTRS_AA_2STAGE + %CSYTRS_AA_2STAGE %%CSYTRS_ROOK %CSYTRS_ROOK %%CTBCON %CTBCON %%CTBRFS + %CTBRFS %%CTBTRS %CTBTRS %%CTFSM %CTFSM %%CTFTRI %CTFTRI %%CTFTTP %CTFTTP + %%CTFTTR %CTFTTR %%CTGEVC %CTGEVC %%CTGEX2 %CTGEX2 %%CTGEXC %CTGEXC %%CTGSEN + %CTGSEN %%CTGSJA %CTGSJA %%CTGSNA %CTGSNA %%CTGSY2 %CTGSY2 %%CTGSYL %CTGSYL + %%CTPCON %CTPCON %%CTPLQT %CTPLQT %%CTPLQT2 %CTPLQT2 %%CTPMLQT %CTPMLQT + %%CTPMQRT %CTPMQRT %%CTPQRT %CTPQRT %%CTPQRT2 %CTPQRT2 %%CTPRFB %CTPRFB + %%CTPRFS %CTPRFS %%CTPTRI %CTPTRI %%CTPTRS %CTPTRS %%CTPTTF %CTPTTF %%CTPTTR + %CTPTTR %%CTRCON %CTRCON %%CTREVC %CTREVC %%CTREVC3 %CTREVC3 %%CTREXC %CTREXC + %%CTRRFS %CTRRFS %%CTRSEN %CTRSEN %%CTRSNA %CTRSNA %%CTRSYL %CTRSYL %%CTRTI2 + %CTRTI2 %%CTRTRI %CTRTRI %%CTRTRS %CTRTRS %%CTRTTF %CTRTTF %%CTRTTP %CTRTTP + %%CTZRZF %CTZRZF %%CUNBDB %CUNBDB %%CUNBDB1 %CUNBDB1 %%CUNBDB2 %CUNBDB2 + %%CUNBDB3 %CUNBDB3 %%CUNBDB4 %CUNBDB4 %%CUNBDB5 %CUNBDB5 %%CUNBDB6 %CUNBDB6 + %%CUNCSD %CUNCSD %%CUNCSD2BY1 %CUNCSD2BY1 %%CUNG2L %CUNG2L %%CUNG2R %CUNG2R + %%CUNGBR %CUNGBR %%CUNGHR %CUNGHR %%CUNGL2 %CUNGL2 %%CUNGLQ %CUNGLQ %%CUNGQL + %CUNGQL %%CUNGQR %CUNGQR %%CUNGR2 %CUNGR2 %%CUNGRQ %CUNGRQ %%CUNGTR %CUNGTR + %%CUNGTSQR %CUNGTSQR %%CUNHR_COL %CUNHR_COL %%CUNM22 %CUNM22 %%CUNM2L %CUNM2L + %%CUNM2R %CUNM2R %%CUNMBR %CUNMBR %%CUNMHR %CUNMHR %%CUNML2 %CUNML2 %%CUNMLQ + %CUNMLQ %%CUNMQL %CUNMQL %%CUNMQR %CUNMQR %%CUNMR2 %CUNMR2 %%CUNMR3 %CUNMR3 + %%CUNMRQ %CUNMRQ %%CUNMRZ %CUNMRZ %%CUNMTR %CUNMTR %%CUPGTR %CUPGTR %%CUPMTR + %CUPMTR %%DBBCSD %DBBCSD %%DBDSDC %DBDSDC %%DBDSQR %DBDSQR %%DBDSVDX %DBDSVDX + %%DCOMBSSQ %DCOMBSSQ %%DDISNA %DDISNA)) + +(CFFI:DEFCFUN ("clansy_" %%CLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -151,13 +92,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3222 ':INT32) (LDA-REF3224 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3222 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3224 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3223 A) (WORK-REF3225 WORK)) - (%%CLANSY NORM UPLO N-REF3222 A-REF3223 LDA-REF3224 WORK-REF3225)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3141 ':INT32) (LDA-REF3143 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3141 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3143 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3142 A) (WORK-REF3144 WORK)) + (%%CLANSY NORM UPLO N-REF3141 A-REF3142 LDA-REF3143 WORK-REF3144)))) -(CFFI:DEFCFUN ("clantb_" %%CLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clantb_" %%CLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -184,16 +125,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3229 ':INT32) (K-REF3230 ':INT32) - (LDAB-REF3232 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3229 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3230 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3232 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3231 AB) (WORK-REF3233 WORK)) - (%%CLANTB NORM UPLO DIAG N-REF3229 K-REF3230 AB-REF3231 LDAB-REF3232 - WORK-REF3233)))) - -(CFFI:DEFCFUN ("clantp_" %%CLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3148 ':INT32) (K-REF3149 ':INT32) + (LDAB-REF3151 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3148 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3149 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3151 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3150 AB) (WORK-REF3152 WORK)) + (%%CLANTB NORM UPLO DIAG N-REF3148 K-REF3149 AB-REF3150 LDAB-REF3151 + WORK-REF3152)))) + +(CFFI:DEFCFUN ("clantp_" %%CLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -216,12 +157,12 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3237 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3237 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3238 AP) (WORK-REF3239 WORK)) - (%%CLANTP NORM UPLO DIAG N-REF3237 AP-REF3238 WORK-REF3239)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3156 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3156 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3157 AP) (WORK-REF3158 WORK)) + (%%CLANTP NORM UPLO DIAG N-REF3156 AP-REF3157 WORK-REF3158)))) -(CFFI:DEFCFUN ("clantr_" %%CLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clantr_" %%CLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -248,16 +189,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3243 ':INT32) (N-REF3244 ':INT32) - (LDA-REF3246 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3243 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3244 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3246 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3245 A) (WORK-REF3247 WORK)) - (%%CLANTR NORM UPLO DIAG M-REF3243 N-REF3244 A-REF3245 LDA-REF3246 - WORK-REF3247)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3162 ':INT32) (N-REF3163 ':INT32) + (LDA-REF3165 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3162 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3163 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3165 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3164 A) (WORK-REF3166 WORK)) + (%%CLANTR NORM UPLO DIAG M-REF3162 N-REF3163 A-REF3164 LDA-REF3165 + WORK-REF3166)))) -(CFFI:DEFCFUN ("clapll_" %%CLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clapll_" %%CLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -282,17 +223,17 @@ Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3248 ':INT32) (INCX-REF3250 ':INT32) - (INCY-REF3252 ':INT32) (SSMIN-REF3253 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3248 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3250 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3252 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF3253 :FLOAT) SSMIN) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3249 X) (Y-REF3251 Y)) - (%%CLAPLL N-REF3248 X-REF3249 INCX-REF3250 Y-REF3251 INCY-REF3252 - SSMIN-REF3253)))) - -(CFFI:DEFCFUN ("clapmr_" %%CLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3167 ':INT32) (INCX-REF3169 ':INT32) + (INCY-REF3171 ':INT32) (SSMIN-REF3172 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3167 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3169 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3171 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF3172 :FLOAT) SSMIN) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3168 X) (Y-REF3170 Y)) + (%%CLAPLL N-REF3167 X-REF3168 INCX-REF3169 Y-REF3170 INCY-REF3171 + SSMIN-REF3172)))) + +(CFFI:DEFCFUN ("clapmr_" %%CLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FORWRD :POINTER) (M :POINTER) @@ -316,17 +257,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) K)) - (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF3254 ':INT32) (M-REF3255 ':INT32) - (N-REF3256 ':INT32) (LDX-REF3258 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF3254 :INT32) FORWRD) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3255 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3256 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3258 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3257 X) (K-REF3259 K)) - (%%CLAPMR FORWRD-REF3254 M-REF3255 N-REF3256 X-REF3257 LDX-REF3258 - K-REF3259)))) - -(CFFI:DEFCFUN ("clapmt_" %%CLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF3173 ':INT32) (M-REF3174 ':INT32) + (N-REF3175 ':INT32) (LDX-REF3177 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF3173 :INT32) FORWRD) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3174 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3175 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3177 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3176 X) (K-REF3178 K)) + (%%CLAPMR FORWRD-REF3173 M-REF3174 N-REF3175 X-REF3176 LDX-REF3177 + K-REF3178)))) + +(CFFI:DEFCFUN ("clapmt_" %%CLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FORWRD :POINTER) (M :POINTER) @@ -350,17 +291,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) K)) - (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF3260 ':INT32) (M-REF3261 ':INT32) - (N-REF3262 ':INT32) (LDX-REF3264 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF3260 :INT32) FORWRD) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3261 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3262 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3264 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3263 X) (K-REF3265 K)) - (%%CLAPMT FORWRD-REF3260 M-REF3261 N-REF3262 X-REF3263 LDX-REF3264 - K-REF3265)))) - -(CFFI:DEFCFUN ("claqgb_" %%CLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF3179 ':INT32) (M-REF3180 ':INT32) + (N-REF3181 ':INT32) (LDX-REF3183 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF3179 :INT32) FORWRD) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3180 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3181 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3183 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3182 X) (K-REF3184 K)) + (%%CLAPMT FORWRD-REF3179 M-REF3180 N-REF3181 X-REF3182 LDX-REF3183 + K-REF3184)))) + +(CFFI:DEFCFUN ("claqgb_" %%CLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -395,25 +336,25 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3266 ':INT32) (N-REF3267 ':INT32) - (KL-REF3268 ':INT32) (KU-REF3269 ':INT32) - (LDAB-REF3271 ':INT32) (ROWCND-REF3274 ':FLOAT) - (COLCND-REF3275 ':FLOAT) (AMAX-REF3276 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3266 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3267 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3268 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3269 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3271 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF3274 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF3275 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3276 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3270 AB) (R-REF3272 R) - (C-REF3273 C)) - (%%CLAQGB M-REF3266 N-REF3267 KL-REF3268 KU-REF3269 AB-REF3270 - LDAB-REF3271 R-REF3272 C-REF3273 ROWCND-REF3274 COLCND-REF3275 - AMAX-REF3276 EQUED)))) - -(CFFI:DEFCFUN ("claqge_" %%CLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3185 ':INT32) (N-REF3186 ':INT32) + (KL-REF3187 ':INT32) (KU-REF3188 ':INT32) + (LDAB-REF3190 ':INT32) (ROWCND-REF3193 ':FLOAT) + (COLCND-REF3194 ':FLOAT) (AMAX-REF3195 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3185 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3186 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3187 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3188 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3190 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF3193 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF3194 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3195 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3189 AB) (R-REF3191 R) + (C-REF3192 C)) + (%%CLAQGB M-REF3185 N-REF3186 KL-REF3187 KU-REF3188 AB-REF3189 + LDAB-REF3190 R-REF3191 C-REF3192 ROWCND-REF3193 COLCND-REF3194 + AMAX-REF3195 EQUED)))) + +(CFFI:DEFCFUN ("claqge_" %%CLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -444,21 +385,21 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3278 ':INT32) (N-REF3279 ':INT32) - (LDA-REF3281 ':INT32) (ROWCND-REF3284 ':FLOAT) - (COLCND-REF3285 ':FLOAT) (AMAX-REF3286 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3278 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3279 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3281 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF3284 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF3285 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3286 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3280 A) (R-REF3282 R) - (C-REF3283 C)) - (%%CLAQGE M-REF3278 N-REF3279 A-REF3280 LDA-REF3281 R-REF3282 C-REF3283 - ROWCND-REF3284 COLCND-REF3285 AMAX-REF3286 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3197 ':INT32) (N-REF3198 ':INT32) + (LDA-REF3200 ':INT32) (ROWCND-REF3203 ':FLOAT) + (COLCND-REF3204 ':FLOAT) (AMAX-REF3205 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3197 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3198 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3200 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF3203 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF3204 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3205 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3199 A) (R-REF3201 R) + (C-REF3202 C)) + (%%CLAQGE M-REF3197 N-REF3198 A-REF3199 LDA-REF3200 R-REF3201 C-REF3202 + ROWCND-REF3203 COLCND-REF3204 AMAX-REF3205 EQUED)))) -(CFFI:DEFCFUN ("claqhb_" %%CLAQHB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claqhb_" %%CLAQHB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -486,19 +427,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3289 ':INT32) (KD-REF3290 ':INT32) - (LDAB-REF3292 ':INT32) (SCOND-REF3294 ':FLOAT) - (AMAX-REF3295 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3289 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3290 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3292 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3294 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3295 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3291 AB) (S-REF3293 S)) - (%%CLAQHB UPLO N-REF3289 KD-REF3290 AB-REF3291 LDAB-REF3292 S-REF3293 - SCOND-REF3294 AMAX-REF3295 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3208 ':INT32) (KD-REF3209 ':INT32) + (LDAB-REF3211 ':INT32) (SCOND-REF3213 ':FLOAT) + (AMAX-REF3214 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3208 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3209 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3211 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3213 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3214 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3210 AB) (S-REF3212 S)) + (%%CLAQHB UPLO N-REF3208 KD-REF3209 AB-REF3210 LDAB-REF3211 S-REF3212 + SCOND-REF3213 AMAX-REF3214 EQUED)))) -(CFFI:DEFCFUN ("claqhe_" %%CLAQHE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claqhe_" %%CLAQHE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -524,17 +465,17 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3298 ':INT32) (LDA-REF3300 ':INT32) - (SCOND-REF3302 ':FLOAT) (AMAX-REF3303 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3298 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3300 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3302 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3303 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3299 A) (S-REF3301 S)) - (%%CLAQHE UPLO N-REF3298 A-REF3299 LDA-REF3300 S-REF3301 SCOND-REF3302 - AMAX-REF3303 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3217 ':INT32) (LDA-REF3219 ':INT32) + (SCOND-REF3221 ':FLOAT) (AMAX-REF3222 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3217 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3219 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3221 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3222 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3218 A) (S-REF3220 S)) + (%%CLAQHE UPLO N-REF3217 A-REF3218 LDA-REF3219 S-REF3220 SCOND-REF3221 + AMAX-REF3222 EQUED)))) -(CFFI:DEFCFUN ("claqhp_" %%CLAQHP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claqhp_" %%CLAQHP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -558,16 +499,16 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3306 ':INT32) (SCOND-REF3309 ':FLOAT) - (AMAX-REF3310 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3306 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3309 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3310 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3307 AP) (S-REF3308 S)) - (%%CLAQHP UPLO N-REF3306 AP-REF3307 S-REF3308 SCOND-REF3309 AMAX-REF3310 - EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3225 ':INT32) (SCOND-REF3228 ':FLOAT) + (AMAX-REF3229 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3225 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3228 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3229 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3226 AP) (S-REF3227 S)) + (%%CLAQHP UPLO N-REF3225 AP-REF3226 S-REF3227 SCOND-REF3228 AMAX-REF3229 + EQUED)))) -(CFFI:DEFCFUN ("claqp2_" %%CLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claqp2_" %%CLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -611,21 +552,20 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3312 ':INT32) (N-REF3313 ':INT32) - (OFFSET-REF3314 ':INT32) (LDA-REF3316 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3312 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3313 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF3314 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3316 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3315 A) (JPVT-REF3317 JPVT) - (TAU-REF3318 TAU) (VN1-REF3319 VN1) - (VN2-REF3320 VN2) - (WORK-REF3321 WORK)) - (%%CLAQP2 M-REF3312 N-REF3313 OFFSET-REF3314 A-REF3315 LDA-REF3316 - JPVT-REF3317 TAU-REF3318 VN1-REF3319 VN2-REF3320 - WORK-REF3321)))) - -(CFFI:DEFCFUN ("claqps_" %%CLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3231 ':INT32) (N-REF3232 ':INT32) + (OFFSET-REF3233 ':INT32) (LDA-REF3235 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3231 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3232 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF3233 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3235 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3234 A) (JPVT-REF3236 JPVT) + (TAU-REF3237 TAU) (VN1-REF3238 VN1) + (VN2-REF3239 VN2) + (WORK-REF3240 WORK)) + (%%CLAQP2 M-REF3231 N-REF3232 OFFSET-REF3233 A-REF3234 LDA-REF3235 + JPVT-REF3236 TAU-REF3237 VN1-REF3238 VN2-REF3239 WORK-REF3240)))) + +(CFFI:DEFCFUN ("claqps_" %%CLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -681,26 +621,26 @@ (COMMON-LISP:*)) F) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3322 ':INT32) (N-REF3323 ':INT32) - (OFFSET-REF3324 ':INT32) (NB-REF3325 ':INT32) - (KB-REF3326 ':INT32) (LDA-REF3328 ':INT32) - (LDF-REF3335 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3322 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3323 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF3324 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3325 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3326 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3328 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF3335 :INT32) LDF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3327 A) (JPVT-REF3329 JPVT) - (TAU-REF3330 TAU) (VN1-REF3331 VN1) - (VN2-REF3332 VN2) - (AUXV-REF3333 AUXV) (F-REF3334 F)) - (%%CLAQPS M-REF3322 N-REF3323 OFFSET-REF3324 NB-REF3325 KB-REF3326 - A-REF3327 LDA-REF3328 JPVT-REF3329 TAU-REF3330 VN1-REF3331 - VN2-REF3332 AUXV-REF3333 F-REF3334 LDF-REF3335)))) - -(CFFI:DEFCFUN ("claqr0_" %%CLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3241 ':INT32) (N-REF3242 ':INT32) + (OFFSET-REF3243 ':INT32) (NB-REF3244 ':INT32) + (KB-REF3245 ':INT32) (LDA-REF3247 ':INT32) + (LDF-REF3254 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3241 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3242 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF3243 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3244 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3245 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3247 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF3254 :INT32) LDF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3246 A) (JPVT-REF3248 JPVT) + (TAU-REF3249 TAU) (VN1-REF3250 VN1) + (VN2-REF3251 VN2) + (AUXV-REF3252 AUXV) (F-REF3253 F)) + (%%CLAQPS M-REF3241 N-REF3242 OFFSET-REF3243 NB-REF3244 KB-REF3245 + A-REF3246 LDA-REF3247 JPVT-REF3248 TAU-REF3249 VN1-REF3250 VN2-REF3251 + AUXV-REF3252 F-REF3253 LDF-REF3254)))) + +(CFFI:DEFCFUN ("claqr0_" %%CLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -753,31 +693,30 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3336 ':INT32) (WANTZ-REF3337 ':INT32) - (N-REF3338 ':INT32) (ILO-REF3339 ':INT32) - (IHI-REF3340 ':INT32) (LDH-REF3342 ':INT32) - (ILOZ-REF3344 ':INT32) (IHIZ-REF3345 ':INT32) - (LDZ-REF3347 ':INT32) (LWORK-REF3349 ':INT32) - (INFO-REF3350 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3336 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3337 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3338 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3339 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3340 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3342 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3344 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3345 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3347 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3349 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3350 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3341 H) (W-REF3343 W) - (Z-REF3346 Z) (WORK-REF3348 WORK)) - (%%CLAQR0 WANTT-REF3336 WANTZ-REF3337 N-REF3338 ILO-REF3339 IHI-REF3340 - H-REF3341 LDH-REF3342 W-REF3343 ILOZ-REF3344 IHIZ-REF3345 - Z-REF3346 LDZ-REF3347 WORK-REF3348 LWORK-REF3349 - INFO-REF3350)))) - -(CFFI:DEFCFUN ("claqr1_" %%CLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3255 ':INT32) (WANTZ-REF3256 ':INT32) + (N-REF3257 ':INT32) (ILO-REF3258 ':INT32) + (IHI-REF3259 ':INT32) (LDH-REF3261 ':INT32) + (ILOZ-REF3263 ':INT32) (IHIZ-REF3264 ':INT32) + (LDZ-REF3266 ':INT32) (LWORK-REF3268 ':INT32) + (INFO-REF3269 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3255 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3256 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3257 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3258 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3259 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3261 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3263 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3264 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3266 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3268 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3269 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3260 H) (W-REF3262 W) + (Z-REF3265 Z) (WORK-REF3267 WORK)) + (%%CLAQR0 WANTT-REF3255 WANTZ-REF3256 N-REF3257 ILO-REF3258 IHI-REF3259 + H-REF3260 LDH-REF3261 W-REF3262 ILOZ-REF3263 IHIZ-REF3264 Z-REF3265 + LDZ-REF3266 WORK-REF3267 LWORK-REF3268 INFO-REF3269)))) + +(CFFI:DEFCFUN ("claqr1_" %%CLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (H :POINTER) @@ -804,26 +743,26 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) V)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3351 ':INT32) (LDH-REF3353 ':INT32) - (S1-REF3354 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3270 ':INT32) (LDH-REF3272 ':INT32) + (S1-REF3273 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (S2-REF3355 + (S2-REF3274 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3351 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3353 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3270 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3272 :INT32) LDH) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S1-REF3354 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + S1-REF3273 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S1))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S2-REF3355 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + S2-REF3274 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S2) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S2))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3352 H) (V-REF3356 V)) - (%%CLAQR1 N-REF3351 H-REF3352 LDH-REF3353 S1-REF3354 S2-REF3355 - V-REF3356)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3271 H) (V-REF3275 V)) + (%%CLAQR1 N-REF3270 H-REF3271 LDH-REF3272 S1-REF3273 S2-REF3274 + V-REF3275)))) -(CFFI:DEFCFUN ("claqr2_" %%CLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claqr2_" %%CLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -908,45 +847,44 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3357 ':INT32) (WANTZ-REF3358 ':INT32) - (N-REF3359 ':INT32) (KTOP-REF3360 ':INT32) - (KBOT-REF3361 ':INT32) (NW-REF3362 ':INT32) - (LDH-REF3364 ':INT32) (ILOZ-REF3365 ':INT32) - (IHIZ-REF3366 ':INT32) (LDZ-REF3368 ':INT32) - (NS-REF3369 ':INT32) (ND-REF3370 ':INT32) - (LDV-REF3373 ':INT32) (NH-REF3374 ':INT32) - (LDT-REF3376 ':INT32) (NV-REF3377 ':INT32) - (LDWV-REF3379 ':INT32) (LWORK-REF3381 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3357 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3358 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3359 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3360 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3361 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF3362 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3364 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3365 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3366 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3368 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF3369 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF3370 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3373 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3374 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3376 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3377 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3379 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3381 :INT32) LWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3363 H) (Z-REF3367 Z) - (SH-REF3371 SH) (V-REF3372 V) - (T-REF3375 T) (WV-REF3378 WV) - (WORK-REF3380 WORK)) - (%%CLAQR2 WANTT-REF3357 WANTZ-REF3358 N-REF3359 KTOP-REF3360 KBOT-REF3361 - NW-REF3362 H-REF3363 LDH-REF3364 ILOZ-REF3365 IHIZ-REF3366 - Z-REF3367 LDZ-REF3368 NS-REF3369 ND-REF3370 SH-REF3371 - V-REF3372 LDV-REF3373 NH-REF3374 T-REF3375 LDT-REF3376 - NV-REF3377 WV-REF3378 LDWV-REF3379 WORK-REF3380 - LWORK-REF3381)))) - -(CFFI:DEFCFUN ("claqr3_" %%CLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3276 ':INT32) (WANTZ-REF3277 ':INT32) + (N-REF3278 ':INT32) (KTOP-REF3279 ':INT32) + (KBOT-REF3280 ':INT32) (NW-REF3281 ':INT32) + (LDH-REF3283 ':INT32) (ILOZ-REF3284 ':INT32) + (IHIZ-REF3285 ':INT32) (LDZ-REF3287 ':INT32) + (NS-REF3288 ':INT32) (ND-REF3289 ':INT32) + (LDV-REF3292 ':INT32) (NH-REF3293 ':INT32) + (LDT-REF3295 ':INT32) (NV-REF3296 ':INT32) + (LDWV-REF3298 ':INT32) (LWORK-REF3300 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3276 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3277 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3278 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3279 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3280 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF3281 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3283 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3284 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3285 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3287 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF3288 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF3289 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3292 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3293 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3295 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3296 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3298 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3300 :INT32) LWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3282 H) (Z-REF3286 Z) + (SH-REF3290 SH) (V-REF3291 V) + (T-REF3294 T) (WV-REF3297 WV) + (WORK-REF3299 WORK)) + (%%CLAQR2 WANTT-REF3276 WANTZ-REF3277 N-REF3278 KTOP-REF3279 KBOT-REF3280 + NW-REF3281 H-REF3282 LDH-REF3283 ILOZ-REF3284 IHIZ-REF3285 Z-REF3286 + LDZ-REF3287 NS-REF3288 ND-REF3289 SH-REF3290 V-REF3291 LDV-REF3292 + NH-REF3293 T-REF3294 LDT-REF3295 NV-REF3296 WV-REF3297 LDWV-REF3298 + WORK-REF3299 LWORK-REF3300)))) + +(CFFI:DEFCFUN ("claqr3_" %%CLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -1031,45 +969,44 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3382 ':INT32) (WANTZ-REF3383 ':INT32) - (N-REF3384 ':INT32) (KTOP-REF3385 ':INT32) - (KBOT-REF3386 ':INT32) (NW-REF3387 ':INT32) - (LDH-REF3389 ':INT32) (ILOZ-REF3390 ':INT32) - (IHIZ-REF3391 ':INT32) (LDZ-REF3393 ':INT32) - (NS-REF3394 ':INT32) (ND-REF3395 ':INT32) - (LDV-REF3398 ':INT32) (NH-REF3399 ':INT32) - (LDT-REF3401 ':INT32) (NV-REF3402 ':INT32) - (LDWV-REF3404 ':INT32) (LWORK-REF3406 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3382 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3383 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3384 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3385 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3386 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF3387 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3389 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3390 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3391 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3393 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF3394 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF3395 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3398 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3399 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3401 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3402 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3404 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3406 :INT32) LWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3388 H) (Z-REF3392 Z) - (SH-REF3396 SH) (V-REF3397 V) - (T-REF3400 T) (WV-REF3403 WV) - (WORK-REF3405 WORK)) - (%%CLAQR3 WANTT-REF3382 WANTZ-REF3383 N-REF3384 KTOP-REF3385 KBOT-REF3386 - NW-REF3387 H-REF3388 LDH-REF3389 ILOZ-REF3390 IHIZ-REF3391 - Z-REF3392 LDZ-REF3393 NS-REF3394 ND-REF3395 SH-REF3396 - V-REF3397 LDV-REF3398 NH-REF3399 T-REF3400 LDT-REF3401 - NV-REF3402 WV-REF3403 LDWV-REF3404 WORK-REF3405 - LWORK-REF3406)))) - -(CFFI:DEFCFUN ("claqr4_" %%CLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3301 ':INT32) (WANTZ-REF3302 ':INT32) + (N-REF3303 ':INT32) (KTOP-REF3304 ':INT32) + (KBOT-REF3305 ':INT32) (NW-REF3306 ':INT32) + (LDH-REF3308 ':INT32) (ILOZ-REF3309 ':INT32) + (IHIZ-REF3310 ':INT32) (LDZ-REF3312 ':INT32) + (NS-REF3313 ':INT32) (ND-REF3314 ':INT32) + (LDV-REF3317 ':INT32) (NH-REF3318 ':INT32) + (LDT-REF3320 ':INT32) (NV-REF3321 ':INT32) + (LDWV-REF3323 ':INT32) (LWORK-REF3325 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3301 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3302 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3303 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3304 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3305 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF3306 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3308 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3309 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3310 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3312 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF3313 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF3314 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3317 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3318 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3320 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3321 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3323 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3325 :INT32) LWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3307 H) (Z-REF3311 Z) + (SH-REF3315 SH) (V-REF3316 V) + (T-REF3319 T) (WV-REF3322 WV) + (WORK-REF3324 WORK)) + (%%CLAQR3 WANTT-REF3301 WANTZ-REF3302 N-REF3303 KTOP-REF3304 KBOT-REF3305 + NW-REF3306 H-REF3307 LDH-REF3308 ILOZ-REF3309 IHIZ-REF3310 Z-REF3311 + LDZ-REF3312 NS-REF3313 ND-REF3314 SH-REF3315 V-REF3316 LDV-REF3317 + NH-REF3318 T-REF3319 LDT-REF3320 NV-REF3321 WV-REF3322 LDWV-REF3323 + WORK-REF3324 LWORK-REF3325)))) + +(CFFI:DEFCFUN ("claqr4_" %%CLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -1122,31 +1059,30 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3407 ':INT32) (WANTZ-REF3408 ':INT32) - (N-REF3409 ':INT32) (ILO-REF3410 ':INT32) - (IHI-REF3411 ':INT32) (LDH-REF3413 ':INT32) - (ILOZ-REF3415 ':INT32) (IHIZ-REF3416 ':INT32) - (LDZ-REF3418 ':INT32) (LWORK-REF3420 ':INT32) - (INFO-REF3421 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3407 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3408 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3409 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3410 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3411 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3413 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3415 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3416 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3418 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3420 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3421 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3412 H) (W-REF3414 W) - (Z-REF3417 Z) (WORK-REF3419 WORK)) - (%%CLAQR4 WANTT-REF3407 WANTZ-REF3408 N-REF3409 ILO-REF3410 IHI-REF3411 - H-REF3412 LDH-REF3413 W-REF3414 ILOZ-REF3415 IHIZ-REF3416 - Z-REF3417 LDZ-REF3418 WORK-REF3419 LWORK-REF3420 - INFO-REF3421)))) - -(CFFI:DEFCFUN ("claqr5_" %%CLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3326 ':INT32) (WANTZ-REF3327 ':INT32) + (N-REF3328 ':INT32) (ILO-REF3329 ':INT32) + (IHI-REF3330 ':INT32) (LDH-REF3332 ':INT32) + (ILOZ-REF3334 ':INT32) (IHIZ-REF3335 ':INT32) + (LDZ-REF3337 ':INT32) (LWORK-REF3339 ':INT32) + (INFO-REF3340 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3326 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3327 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3328 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF3329 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF3330 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3332 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3334 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3335 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3337 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3339 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3340 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF3331 H) (W-REF3333 W) + (Z-REF3336 Z) (WORK-REF3338 WORK)) + (%%CLAQR4 WANTT-REF3326 WANTZ-REF3327 N-REF3328 ILO-REF3329 IHI-REF3330 + H-REF3331 LDH-REF3332 W-REF3333 ILOZ-REF3334 IHIZ-REF3335 Z-REF3336 + LDZ-REF3337 WORK-REF3338 LWORK-REF3339 INFO-REF3340)))) + +(CFFI:DEFCFUN ("claqr5_" %%CLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -1229,43 +1165,43 @@ (COMMON-LISP:*)) WH) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3422 ':INT32) (WANTZ-REF3423 ':INT32) - (KACC22-REF3424 ':INT32) (N-REF3425 ':INT32) - (KTOP-REF3426 ':INT32) (KBOT-REF3427 ':INT32) - (NSHFTS-REF3428 ':INT32) (LDH-REF3431 ':INT32) - (ILOZ-REF3432 ':INT32) (IHIZ-REF3433 ':INT32) - (LDZ-REF3435 ':INT32) (LDV-REF3437 ':INT32) - (LDU-REF3439 ':INT32) (NV-REF3440 ':INT32) - (LDWV-REF3442 ':INT32) (NH-REF3443 ':INT32) - (LDWH-REF3445 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3422 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3423 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF3424 :INT32) KACC22) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3425 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3426 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3427 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF3428 :INT32) NSHFTS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3431 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3432 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3433 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3435 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3437 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3439 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3440 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3442 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3443 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF3445 :INT32) LDWH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF3429 S) (H-REF3430 H) - (Z-REF3434 Z) (V-REF3436 V) - (U-REF3438 U) (WV-REF3441 WV) - (WH-REF3444 WH)) - (%%CLAQR5 WANTT-REF3422 WANTZ-REF3423 KACC22-REF3424 N-REF3425 - KTOP-REF3426 KBOT-REF3427 NSHFTS-REF3428 S-REF3429 H-REF3430 - LDH-REF3431 ILOZ-REF3432 IHIZ-REF3433 Z-REF3434 LDZ-REF3435 - V-REF3436 LDV-REF3437 U-REF3438 LDU-REF3439 NV-REF3440 - WV-REF3441 LDWV-REF3442 NH-REF3443 WH-REF3444 LDWH-REF3445)))) - -(CFFI:DEFCFUN ("claqsb_" %%CLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF3341 ':INT32) (WANTZ-REF3342 ':INT32) + (KACC22-REF3343 ':INT32) (N-REF3344 ':INT32) + (KTOP-REF3345 ':INT32) (KBOT-REF3346 ':INT32) + (NSHFTS-REF3347 ':INT32) (LDH-REF3350 ':INT32) + (ILOZ-REF3351 ':INT32) (IHIZ-REF3352 ':INT32) + (LDZ-REF3354 ':INT32) (LDV-REF3356 ':INT32) + (LDU-REF3358 ':INT32) (NV-REF3359 ':INT32) + (LDWV-REF3361 ':INT32) (NH-REF3362 ':INT32) + (LDWH-REF3364 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF3341 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF3342 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF3343 :INT32) KACC22) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3344 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF3345 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF3346 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF3347 :INT32) NSHFTS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3350 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF3351 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF3352 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3354 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3356 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF3358 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF3359 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF3361 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF3362 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF3364 :INT32) LDWH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF3348 S) (H-REF3349 H) + (Z-REF3353 Z) (V-REF3355 V) + (U-REF3357 U) (WV-REF3360 WV) + (WH-REF3363 WH)) + (%%CLAQR5 WANTT-REF3341 WANTZ-REF3342 KACC22-REF3343 N-REF3344 + KTOP-REF3345 KBOT-REF3346 NSHFTS-REF3347 S-REF3348 H-REF3349 LDH-REF3350 + ILOZ-REF3351 IHIZ-REF3352 Z-REF3353 LDZ-REF3354 V-REF3355 LDV-REF3356 + U-REF3357 LDU-REF3358 NV-REF3359 WV-REF3360 LDWV-REF3361 NH-REF3362 + WH-REF3363 LDWH-REF3364)))) + +(CFFI:DEFCFUN ("claqsb_" %%CLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1293,19 +1229,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3447 ':INT32) (KD-REF3448 ':INT32) - (LDAB-REF3450 ':INT32) (SCOND-REF3452 ':FLOAT) - (AMAX-REF3453 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3447 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3448 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3450 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3452 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3453 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3449 AB) (S-REF3451 S)) - (%%CLAQSB UPLO N-REF3447 KD-REF3448 AB-REF3449 LDAB-REF3450 S-REF3451 - SCOND-REF3452 AMAX-REF3453 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3366 ':INT32) (KD-REF3367 ':INT32) + (LDAB-REF3369 ':INT32) (SCOND-REF3371 ':FLOAT) + (AMAX-REF3372 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3366 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3367 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3369 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3371 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3372 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3368 AB) (S-REF3370 S)) + (%%CLAQSB UPLO N-REF3366 KD-REF3367 AB-REF3368 LDAB-REF3369 S-REF3370 + SCOND-REF3371 AMAX-REF3372 EQUED)))) -(CFFI:DEFCFUN ("claqsp_" %%CLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claqsp_" %%CLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1329,16 +1265,16 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3456 ':INT32) (SCOND-REF3459 ':FLOAT) - (AMAX-REF3460 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3456 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3459 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3460 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3457 AP) (S-REF3458 S)) - (%%CLAQSP UPLO N-REF3456 AP-REF3457 S-REF3458 SCOND-REF3459 AMAX-REF3460 - EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3375 ':INT32) (SCOND-REF3378 ':FLOAT) + (AMAX-REF3379 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3375 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3378 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3379 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3376 AP) (S-REF3377 S)) + (%%CLAQSP UPLO N-REF3375 AP-REF3376 S-REF3377 SCOND-REF3378 AMAX-REF3379 + EQUED)))) -(CFFI:DEFCFUN ("claqsy_" %%CLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claqsy_" %%CLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1364,17 +1300,17 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3463 ':INT32) (LDA-REF3465 ':INT32) - (SCOND-REF3467 ':FLOAT) (AMAX-REF3468 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3463 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3465 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3467 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3468 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3464 A) (S-REF3466 S)) - (%%CLAQSY UPLO N-REF3463 A-REF3464 LDA-REF3465 S-REF3466 SCOND-REF3467 - AMAX-REF3468 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3382 ':INT32) (LDA-REF3384 ':INT32) + (SCOND-REF3386 ':FLOAT) (AMAX-REF3387 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3382 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3384 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3386 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3387 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3383 A) (S-REF3385 S)) + (%%CLAQSY UPLO N-REF3382 A-REF3383 LDA-REF3384 S-REF3385 SCOND-REF3386 + AMAX-REF3387 EQUED)))) -(CFFI:DEFCFUN ("clar1v_" %%CLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clar1v_" %%CLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (B1 :POINTER) @@ -1437,39 +1373,39 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3470 ':INT32) (B1-REF3471 ':INT32) - (BN-REF3472 ':INT32) (LAMBDA-REF3473 ':FLOAT) - (PIVMIN-REF3478 ':FLOAT) (GAPTOL-REF3479 ':FLOAT) - (WANTNC-REF3481 ':INT32) (NEGCNT-REF3482 ':INT32) - (ZTZ-REF3483 ':FLOAT) (MINGMA-REF3484 ':FLOAT) - (R-REF3485 ':INT32) (NRMINV-REF3487 ':FLOAT) - (RESID-REF3488 ':FLOAT) (RQCORR-REF3489 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3470 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF3471 :INT32) B1) - (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF3472 :INT32) BN) - (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF3473 :FLOAT) LAMBDA) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF3478 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF3479 :FLOAT) GAPTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF3481 :INT32) WANTNC) - (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF3482 :INT32) NEGCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF3483 :FLOAT) ZTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF3484 :FLOAT) MINGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF3485 :INT32) R) - (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF3487 :FLOAT) NRMINV) - (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF3488 :FLOAT) RESID) - (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF3489 :FLOAT) RQCORR) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3474 D) (L-REF3475 L) - (LD-REF3476 LD) (LLD-REF3477 LLD) - (Z-REF3480 Z) - (ISUPPZ-REF3486 ISUPPZ) - (WORK-REF3490 WORK)) - (%%CLAR1V N-REF3470 B1-REF3471 BN-REF3472 LAMBDA-REF3473 D-REF3474 - L-REF3475 LD-REF3476 LLD-REF3477 PIVMIN-REF3478 GAPTOL-REF3479 - Z-REF3480 WANTNC-REF3481 NEGCNT-REF3482 ZTZ-REF3483 - MINGMA-REF3484 R-REF3485 ISUPPZ-REF3486 NRMINV-REF3487 - RESID-REF3488 RQCORR-REF3489 WORK-REF3490)))) - -(CFFI:DEFCFUN ("clar2v_" %%CLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3389 ':INT32) (B1-REF3390 ':INT32) + (BN-REF3391 ':INT32) (LAMBDA-REF3392 ':FLOAT) + (PIVMIN-REF3397 ':FLOAT) (GAPTOL-REF3398 ':FLOAT) + (WANTNC-REF3400 ':INT32) (NEGCNT-REF3401 ':INT32) + (ZTZ-REF3402 ':FLOAT) (MINGMA-REF3403 ':FLOAT) + (R-REF3404 ':INT32) (NRMINV-REF3406 ':FLOAT) + (RESID-REF3407 ':FLOAT) (RQCORR-REF3408 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3389 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF3390 :INT32) B1) + (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF3391 :INT32) BN) + (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF3392 :FLOAT) LAMBDA) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF3397 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF3398 :FLOAT) GAPTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF3400 :INT32) WANTNC) + (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF3401 :INT32) NEGCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF3402 :FLOAT) ZTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF3403 :FLOAT) MINGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF3404 :INT32) R) + (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF3406 :FLOAT) NRMINV) + (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF3407 :FLOAT) RESID) + (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF3408 :FLOAT) RQCORR) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3393 D) (L-REF3394 L) + (LD-REF3395 LD) (LLD-REF3396 LLD) + (Z-REF3399 Z) + (ISUPPZ-REF3405 ISUPPZ) + (WORK-REF3409 WORK)) + (%%CLAR1V N-REF3389 B1-REF3390 BN-REF3391 LAMBDA-REF3392 D-REF3393 + L-REF3394 LD-REF3395 LLD-REF3396 PIVMIN-REF3397 GAPTOL-REF3398 Z-REF3399 + WANTNC-REF3400 NEGCNT-REF3401 ZTZ-REF3402 MINGMA-REF3403 R-REF3404 + ISUPPZ-REF3405 NRMINV-REF3406 RESID-REF3407 RQCORR-REF3408 + WORK-REF3409)))) + +(CFFI:DEFCFUN ("clar2v_" %%CLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -1507,18 +1443,18 @@ (COMMON-LISP:*)) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3491 ':INT32) (INCX-REF3495 ':INT32) - (INCC-REF3498 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3491 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3495 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3498 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3492 X) (Y-REF3493 Y) - (Z-REF3494 Z) (C-REF3496 C) - (S-REF3497 S)) - (%%CLAR2V N-REF3491 X-REF3492 Y-REF3493 Z-REF3494 INCX-REF3495 C-REF3496 - S-REF3497 INCC-REF3498)))) - -(CFFI:DEFCFUN ("clarcm_" %%CLARCM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3410 ':INT32) (INCX-REF3414 ':INT32) + (INCC-REF3417 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3410 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3414 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3417 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3411 X) (Y-REF3412 Y) + (Z-REF3413 Z) (C-REF3415 C) + (S-REF3416 S)) + (%%CLAR2V N-REF3410 X-REF3411 Y-REF3412 Z-REF3413 INCX-REF3414 C-REF3415 + S-REF3416 INCC-REF3417)))) + +(CFFI:DEFCFUN ("clarcm_" %%CLARCM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1552,20 +1488,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3499 ':INT32) (N-REF3500 ':INT32) - (LDA-REF3502 ':INT32) (LDB-REF3504 ':INT32) - (LDC-REF3506 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3499 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3500 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3502 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3504 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3506 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3501 A) (B-REF3503 B) - (C-REF3505 C) (RWORK-REF3507 RWORK)) - (%%CLARCM M-REF3499 N-REF3500 A-REF3501 LDA-REF3502 B-REF3503 LDB-REF3504 - C-REF3505 LDC-REF3506 RWORK-REF3507)))) - -(CFFI:DEFCFUN ("clarf_" %%CLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3418 ':INT32) (N-REF3419 ':INT32) + (LDA-REF3421 ':INT32) (LDB-REF3423 ':INT32) + (LDC-REF3425 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3418 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3419 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3421 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3423 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3425 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3420 A) (B-REF3422 B) + (C-REF3424 C) (RWORK-REF3426 RWORK)) + (%%CLARCM M-REF3418 N-REF3419 A-REF3420 LDA-REF3421 B-REF3422 LDB-REF3423 + C-REF3424 LDC-REF3425 RWORK-REF3426)))) + +(CFFI:DEFCFUN ("clarf_" %%CLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -1601,26 +1537,26 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3509 ':INT32) (N-REF3510 ':INT32) - (INCV-REF3512 ':INT32) - (TAU-REF3513 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3428 ':INT32) (N-REF3429 ':INT32) + (INCV-REF3431 ':INT32) + (TAU-REF3432 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDC-REF3515 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3509 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3510 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3512 :INT32) INCV) + (LDC-REF3434 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3428 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3429 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3431 :INT32) INCV) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF3513 + TAU-REF3432 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3515 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3511 V) (C-REF3514 C) - (WORK-REF3516 WORK)) - (%%CLARF SIDE M-REF3509 N-REF3510 V-REF3511 INCV-REF3512 TAU-REF3513 - C-REF3514 LDC-REF3515 WORK-REF3516)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3434 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3430 V) (C-REF3433 C) + (WORK-REF3435 WORK)) + (%%CLARF SIDE M-REF3428 N-REF3429 V-REF3430 INCV-REF3431 TAU-REF3432 + C-REF3433 LDC-REF3434 WORK-REF3435)))) -(CFFI:DEFCFUN ("clarfb_" %%CLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clarfb_" %%CLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -1673,24 +1609,24 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3521 ':INT32) (N-REF3522 ':INT32) - (K-REF3523 ':INT32) (LDV-REF3525 ':INT32) - (LDT-REF3527 ':INT32) (LDC-REF3529 ':INT32) - (LDWORK-REF3531 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3521 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3522 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3523 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3525 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3527 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3529 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF3531 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3524 V) (T-REF3526 T) - (C-REF3528 C) (WORK-REF3530 WORK)) - (%%CLARFB SIDE TRANS DIRECT STOREV M-REF3521 N-REF3522 K-REF3523 - V-REF3524 LDV-REF3525 T-REF3526 LDT-REF3527 C-REF3528 - LDC-REF3529 WORK-REF3530 LDWORK-REF3531)))) - -(CFFI:DEFCFUN ("clarfg_" %%CLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3440 ':INT32) (N-REF3441 ':INT32) + (K-REF3442 ':INT32) (LDV-REF3444 ':INT32) + (LDT-REF3446 ':INT32) (LDC-REF3448 ':INT32) + (LDWORK-REF3450 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3440 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3441 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3442 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3444 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3446 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3448 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF3450 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3443 V) (T-REF3445 T) + (C-REF3447 C) (WORK-REF3449 WORK)) + (%%CLARFB SIDE TRANS DIRECT STOREV M-REF3440 N-REF3441 K-REF3442 + V-REF3443 LDV-REF3444 T-REF3445 LDT-REF3446 C-REF3447 LDC-REF3448 + WORK-REF3449 LDWORK-REF3450)))) + +(CFFI:DEFCFUN ("clarfg_" %%CLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ALPHA :POINTER) @@ -1711,28 +1647,29 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3532 ':INT32) - (ALPHA-REF3533 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3451 ':INT32) + (ALPHA-REF3452 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF3535 ':INT32) - (TAU-REF3536 + (INCX-REF3454 ':INT32) + (TAU-REF3455 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3532 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3451 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF3533 + ALPHA-REF3452 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3535 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3454 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF3536 + TAU-REF3455 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3534 X)) - (%%CLARFG N-REF3532 ALPHA-REF3533 X-REF3534 INCX-REF3535 TAU-REF3536)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3453 X)) + (%%CLARFG N-REF3451 ALPHA-REF3452 X-REF3453 INCX-REF3454 TAU-REF3455)))) -(CFFI:DEFCFUN ("clarfgp_" %%CLARFGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clarfgp_" %%CLARFGP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ALPHA :POINTER) @@ -1753,28 +1690,28 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3537 ':INT32) - (ALPHA-REF3538 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3456 ':INT32) + (ALPHA-REF3457 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF3540 ':INT32) - (TAU-REF3541 + (INCX-REF3459 ':INT32) + (TAU-REF3460 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3537 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3456 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF3538 + ALPHA-REF3457 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3540 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3459 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF3541 + TAU-REF3460 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3539 X)) - (%%CLARFGP N-REF3537 ALPHA-REF3538 X-REF3539 INCX-REF3540 TAU-REF3541)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3458 X)) + (%%CLARFGP N-REF3456 ALPHA-REF3457 X-REF3458 INCX-REF3459 TAU-REF3460)))) -(CFFI:DEFCFUN ("clarft_" %%CLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clarft_" %%CLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (DIRECT :STRING) (STOREV :STRING) @@ -1809,18 +1746,18 @@ (COMMON-LISP:*)) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3544 ':INT32) (K-REF3545 ':INT32) - (LDV-REF3547 ':INT32) (LDT-REF3550 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3544 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3545 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3547 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3550 :INT32) LDT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3546 V) (TAU-REF3548 TAU) - (T-REF3549 T)) - (%%CLARFT DIRECT STOREV N-REF3544 K-REF3545 V-REF3546 LDV-REF3547 - TAU-REF3548 T-REF3549 LDT-REF3550)))) - -(CFFI:DEFCFUN ("clarfx_" %%CLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3463 ':INT32) (K-REF3464 ':INT32) + (LDV-REF3466 ':INT32) (LDT-REF3469 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3463 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3464 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3466 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3469 :INT32) LDT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3465 V) (TAU-REF3467 TAU) + (T-REF3468 T)) + (%%CLARFT DIRECT STOREV N-REF3463 K-REF3464 V-REF3465 LDV-REF3466 + TAU-REF3467 T-REF3468 LDT-REF3469)))) + +(CFFI:DEFCFUN ("clarfx_" %%CLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -1854,24 +1791,24 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3552 ':INT32) (N-REF3553 ':INT32) - (TAU-REF3555 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3471 ':INT32) (N-REF3472 ':INT32) + (TAU-REF3474 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDC-REF3557 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3552 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3553 :INT32) N) + (LDC-REF3476 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3471 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3472 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF3555 + TAU-REF3474 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3557 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3554 V) (C-REF3556 C) - (WORK-REF3558 WORK)) - (%%CLARFX SIDE M-REF3552 N-REF3553 V-REF3554 TAU-REF3555 C-REF3556 - LDC-REF3557 WORK-REF3558)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3476 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3473 V) (C-REF3475 C) + (WORK-REF3477 WORK)) + (%%CLARFX SIDE M-REF3471 N-REF3472 V-REF3473 TAU-REF3474 C-REF3475 + LDC-REF3476 WORK-REF3477)))) -(CFFI:DEFCFUN ("clarfy_" %%CLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clarfy_" %%CLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1905,24 +1842,24 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3560 ':INT32) (INCV-REF3562 ':INT32) - (TAU-REF3563 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3479 ':INT32) (INCV-REF3481 ':INT32) + (TAU-REF3482 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDC-REF3565 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3560 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3562 :INT32) INCV) + (LDC-REF3484 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3479 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3481 :INT32) INCV) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF3563 + TAU-REF3482 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3565 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3561 V) (C-REF3564 C) - (WORK-REF3566 WORK)) - (%%CLARFY UPLO N-REF3560 V-REF3561 INCV-REF3562 TAU-REF3563 C-REF3564 - LDC-REF3565 WORK-REF3566)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3484 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3480 V) (C-REF3483 C) + (WORK-REF3485 WORK)) + (%%CLARFY UPLO N-REF3479 V-REF3480 INCV-REF3481 TAU-REF3482 C-REF3483 + LDC-REF3484 WORK-REF3485)))) -(CFFI:DEFCFUN ("clargv_" %%CLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clargv_" %%CLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -1950,18 +1887,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3567 ':INT32) (INCX-REF3569 ':INT32) - (INCY-REF3571 ':INT32) (INCC-REF3573 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3567 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3569 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3571 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3573 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3568 X) (Y-REF3570 Y) - (C-REF3572 C)) - (%%CLARGV N-REF3567 X-REF3568 INCX-REF3569 Y-REF3570 INCY-REF3571 - C-REF3572 INCC-REF3573)))) - -(CFFI:DEFCFUN ("clarnv_" %%CLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3486 ':INT32) (INCX-REF3488 ':INT32) + (INCY-REF3490 ':INT32) (INCC-REF3492 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3486 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3488 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3490 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3492 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3487 X) (Y-REF3489 Y) + (C-REF3491 C)) + (%%CLARGV N-REF3486 X-REF3487 INCX-REF3488 Y-REF3489 INCY-REF3490 + C-REF3491 INCC-REF3492)))) + +(CFFI:DEFCFUN ("clarnv_" %%CLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IDIST :POINTER) (ISEED :POINTER) @@ -1981,13 +1918,13 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) X)) - (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF3574 ':INT32) (N-REF3576 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF3574 :INT32) IDIST) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3576 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF3575 ISEED) (X-REF3577 X)) - (%%CLARNV IDIST-REF3574 ISEED-REF3575 N-REF3576 X-REF3577)))) + (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF3493 ':INT32) (N-REF3495 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF3493 :INT32) IDIST) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3495 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF3494 ISEED) (X-REF3496 X)) + (%%CLARNV IDIST-REF3493 ISEED-REF3494 N-REF3495 X-REF3496)))) -(CFFI:DEFCFUN ("clarrv_" %%CLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clarrv_" %%CLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (VL :POINTER) @@ -2074,43 +2011,42 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3578 ':INT32) (VL-REF3579 ':FLOAT) - (VU-REF3580 ':FLOAT) (PIVMIN-REF3583 ':FLOAT) - (M-REF3585 ':INT32) (DOL-REF3586 ':INT32) - (DOU-REF3587 ':INT32) (MINRGP-REF3588 ':FLOAT) - (RTOL1-REF3589 ':FLOAT) (RTOL2-REF3590 ':FLOAT) - (LDZ-REF3598 ':INT32) (INFO-REF3602 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3578 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3579 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3580 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF3583 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3585 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF3586 :INT32) DOL) - (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF3587 :INT32) DOU) - (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF3588 :FLOAT) MINRGP) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF3589 :FLOAT) RTOL1) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF3590 :FLOAT) RTOL2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3598 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3602 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3581 D) (L-REF3582 L) - (ISPLIT-REF3584 ISPLIT) - (W-REF3591 W) (WERR-REF3592 WERR) - (WGAP-REF3593 WGAP) - (IBLOCK-REF3594 IBLOCK) - (INDEXW-REF3595 INDEXW) - (GERS-REF3596 GERS) (Z-REF3597 Z) - (ISUPPZ-REF3599 ISUPPZ) - (WORK-REF3600 WORK) - (IWORK-REF3601 IWORK)) - (%%CLARRV N-REF3578 VL-REF3579 VU-REF3580 D-REF3581 L-REF3582 - PIVMIN-REF3583 ISPLIT-REF3584 M-REF3585 DOL-REF3586 DOU-REF3587 - MINRGP-REF3588 RTOL1-REF3589 RTOL2-REF3590 W-REF3591 - WERR-REF3592 WGAP-REF3593 IBLOCK-REF3594 INDEXW-REF3595 - GERS-REF3596 Z-REF3597 LDZ-REF3598 ISUPPZ-REF3599 WORK-REF3600 - IWORK-REF3601 INFO-REF3602)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3497 ':INT32) (VL-REF3498 ':FLOAT) + (VU-REF3499 ':FLOAT) (PIVMIN-REF3502 ':FLOAT) + (M-REF3504 ':INT32) (DOL-REF3505 ':INT32) + (DOU-REF3506 ':INT32) (MINRGP-REF3507 ':FLOAT) + (RTOL1-REF3508 ':FLOAT) (RTOL2-REF3509 ':FLOAT) + (LDZ-REF3517 ':INT32) (INFO-REF3521 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3497 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF3498 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF3499 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF3502 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3504 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF3505 :INT32) DOL) + (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF3506 :INT32) DOU) + (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF3507 :FLOAT) MINRGP) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF3508 :FLOAT) RTOL1) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF3509 :FLOAT) RTOL2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3517 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3521 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3500 D) (L-REF3501 L) + (ISPLIT-REF3503 ISPLIT) + (W-REF3510 W) (WERR-REF3511 WERR) + (WGAP-REF3512 WGAP) + (IBLOCK-REF3513 IBLOCK) + (INDEXW-REF3514 INDEXW) + (GERS-REF3515 GERS) (Z-REF3516 Z) + (ISUPPZ-REF3518 ISUPPZ) + (WORK-REF3519 WORK) + (IWORK-REF3520 IWORK)) + (%%CLARRV N-REF3497 VL-REF3498 VU-REF3499 D-REF3500 L-REF3501 + PIVMIN-REF3502 ISPLIT-REF3503 M-REF3504 DOL-REF3505 DOU-REF3506 + MINRGP-REF3507 RTOL1-REF3508 RTOL2-REF3509 W-REF3510 WERR-REF3511 + WGAP-REF3512 IBLOCK-REF3513 INDEXW-REF3514 GERS-REF3515 Z-REF3516 + LDZ-REF3517 ISUPPZ-REF3518 WORK-REF3519 IWORK-REF3520 INFO-REF3521)))) (CFFI:DEFCFUN ("clarscl2_" %%CLARSCL2 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2130,15 +2066,15 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3603 ':INT32) (N-REF3604 ':INT32) - (LDX-REF3607 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3603 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3604 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3607 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3605 D) (X-REF3606 X)) - (%%CLARSCL2 M-REF3603 N-REF3604 D-REF3605 X-REF3606 LDX-REF3607)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3522 ':INT32) (N-REF3523 ':INT32) + (LDX-REF3526 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3522 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3523 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3526 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3524 D) (X-REF3525 X)) + (%%CLARSCL2 M-REF3522 N-REF3523 D-REF3524 X-REF3525 LDX-REF3526)))) -(CFFI:DEFCFUN ("clartg_" %%CLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clartg_" %%CLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -2157,36 +2093,36 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) SN) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) R)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF3608 + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF3527 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (G-REF3609 + (G-REF3528 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (CS-REF3610 ':FLOAT) - (SN-REF3611 + (CS-REF3529 ':FLOAT) + (SN-REF3530 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (R-REF3612 + (R-REF3531 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - F-REF3608 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + F-REF3527 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART F) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART F))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - G-REF3609 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + G-REF3528 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART G) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART G))) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF3610 :FLOAT) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF3529 :FLOAT) CS) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SN-REF3611 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + SN-REF3530 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - R-REF3612 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + R-REF3531 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART R) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART R))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%CLARTG F-REF3608 G-REF3609 CS-REF3610 SN-REF3611 R-REF3612)))) + (%%CLARTG F-REF3527 G-REF3528 CS-REF3529 SN-REF3530 R-REF3531)))) -(CFFI:DEFCFUN ("clartv_" %%CLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clartv_" %%CLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -2220,18 +2156,18 @@ (COMMON-LISP:*)) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3613 ':INT32) (INCX-REF3615 ':INT32) - (INCY-REF3617 ':INT32) (INCC-REF3620 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3613 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3615 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3617 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3620 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3614 X) (Y-REF3616 Y) - (C-REF3618 C) (S-REF3619 S)) - (%%CLARTV N-REF3613 X-REF3614 INCX-REF3615 Y-REF3616 INCY-REF3617 - C-REF3618 S-REF3619 INCC-REF3620)))) - -(CFFI:DEFCFUN ("clarz_" %%CLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3532 ':INT32) (INCX-REF3534 ':INT32) + (INCY-REF3536 ':INT32) (INCC-REF3539 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3532 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3534 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF3536 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF3539 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3533 X) (Y-REF3535 Y) + (C-REF3537 C) (S-REF3538 S)) + (%%CLARTV N-REF3532 X-REF3533 INCX-REF3534 Y-REF3535 INCY-REF3536 + C-REF3537 S-REF3538 INCC-REF3539)))) + +(CFFI:DEFCFUN ("clarz_" %%CLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -2269,27 +2205,27 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3622 ':INT32) (N-REF3623 ':INT32) - (L-REF3624 ':INT32) (INCV-REF3626 ':INT32) - (TAU-REF3627 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3541 ':INT32) (N-REF3542 ':INT32) + (L-REF3543 ':INT32) (INCV-REF3545 ':INT32) + (TAU-REF3546 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDC-REF3629 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3622 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3623 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3624 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3626 :INT32) INCV) + (LDC-REF3548 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3541 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3542 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3543 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF3545 :INT32) INCV) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF3627 + TAU-REF3546 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3629 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3625 V) (C-REF3628 C) - (WORK-REF3630 WORK)) - (%%CLARZ SIDE M-REF3622 N-REF3623 L-REF3624 V-REF3625 INCV-REF3626 - TAU-REF3627 C-REF3628 LDC-REF3629 WORK-REF3630)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3548 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3544 V) (C-REF3547 C) + (WORK-REF3549 WORK)) + (%%CLARZ SIDE M-REF3541 N-REF3542 L-REF3543 V-REF3544 INCV-REF3545 + TAU-REF3546 C-REF3547 LDC-REF3548 WORK-REF3549)))) -(CFFI:DEFCFUN ("clarzb_" %%CLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clarzb_" %%CLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2344,25 +2280,25 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3635 ':INT32) (N-REF3636 ':INT32) - (K-REF3637 ':INT32) (L-REF3638 ':INT32) - (LDV-REF3640 ':INT32) (LDT-REF3642 ':INT32) - (LDC-REF3644 ':INT32) (LDWORK-REF3646 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3635 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3636 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3637 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3638 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3640 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3642 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3644 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF3646 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3639 V) (T-REF3641 T) - (C-REF3643 C) (WORK-REF3645 WORK)) - (%%CLARZB SIDE TRANS DIRECT STOREV M-REF3635 N-REF3636 K-REF3637 - L-REF3638 V-REF3639 LDV-REF3640 T-REF3641 LDT-REF3642 C-REF3643 - LDC-REF3644 WORK-REF3645 LDWORK-REF3646)))) - -(CFFI:DEFCFUN ("clarzt_" %%CLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3554 ':INT32) (N-REF3555 ':INT32) + (K-REF3556 ':INT32) (L-REF3557 ':INT32) + (LDV-REF3559 ':INT32) (LDT-REF3561 ':INT32) + (LDC-REF3563 ':INT32) (LDWORK-REF3565 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3554 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3555 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3556 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3557 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3559 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3561 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF3563 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF3565 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3558 V) (T-REF3560 T) + (C-REF3562 C) (WORK-REF3564 WORK)) + (%%CLARZB SIDE TRANS DIRECT STOREV M-REF3554 N-REF3555 K-REF3556 + L-REF3557 V-REF3558 LDV-REF3559 T-REF3560 LDT-REF3561 C-REF3562 + LDC-REF3563 WORK-REF3564 LDWORK-REF3565)))) + +(CFFI:DEFCFUN ("clarzt_" %%CLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (DIRECT :STRING) (STOREV :STRING) @@ -2397,18 +2333,18 @@ (COMMON-LISP:*)) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3649 ':INT32) (K-REF3650 ':INT32) - (LDV-REF3652 ':INT32) (LDT-REF3655 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3649 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3650 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3652 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3655 :INT32) LDT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3651 V) (TAU-REF3653 TAU) - (T-REF3654 T)) - (%%CLARZT DIRECT STOREV N-REF3649 K-REF3650 V-REF3651 LDV-REF3652 - TAU-REF3653 T-REF3654 LDT-REF3655)))) - -(CFFI:DEFCFUN ("clascl_" %%CLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3568 ':INT32) (K-REF3569 ':INT32) + (LDV-REF3571 ':INT32) (LDT-REF3574 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3568 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF3569 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF3571 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3574 :INT32) LDT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF3570 V) (TAU-REF3572 TAU) + (T-REF3573 T)) + (%%CLARZT DIRECT STOREV N-REF3568 K-REF3569 V-REF3570 LDV-REF3571 + TAU-REF3572 T-REF3573 LDT-REF3574)))) + +(CFFI:DEFCFUN ("clascl_" %%CLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TYPE :STRING) (KL :POINTER) @@ -2437,23 +2373,24 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF3657 ':INT32) (KU-REF3658 ':INT32) - (CFROM-REF3659 ':FLOAT) (CTO-REF3660 ':FLOAT) - (M-REF3661 ':INT32) (N-REF3662 ':INT32) - (LDA-REF3664 ':INT32) (INFO-REF3665 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3657 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3658 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF3659 :FLOAT) CFROM) - (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF3660 :FLOAT) CTO) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3661 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3662 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3664 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3665 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3663 A)) - (%%CLASCL TYPE KL-REF3657 KU-REF3658 CFROM-REF3659 CTO-REF3660 M-REF3661 - N-REF3662 A-REF3663 LDA-REF3664 INFO-REF3665)))) - -(CFFI:DEFCFUN ("clascl2_" %%CLASCL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF3576 ':INT32) (KU-REF3577 ':INT32) + (CFROM-REF3578 ':FLOAT) (CTO-REF3579 ':FLOAT) + (M-REF3580 ':INT32) (N-REF3581 ':INT32) + (LDA-REF3583 ':INT32) (INFO-REF3584 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF3576 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF3577 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF3578 :FLOAT) CFROM) + (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF3579 :FLOAT) CTO) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3580 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3581 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3583 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3584 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3582 A)) + (%%CLASCL TYPE KL-REF3576 KU-REF3577 CFROM-REF3578 CTO-REF3579 M-REF3580 + N-REF3581 A-REF3582 LDA-REF3583 INFO-REF3584)))) + +(CFFI:DEFCFUN ("clascl2_" %%CLASCL2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2473,15 +2410,15 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3666 ':INT32) (N-REF3667 ':INT32) - (LDX-REF3670 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3666 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3667 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3670 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3668 D) (X-REF3669 X)) - (%%CLASCL2 M-REF3666 N-REF3667 D-REF3668 X-REF3669 LDX-REF3670)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3585 ':INT32) (N-REF3586 ':INT32) + (LDX-REF3589 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3585 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3586 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3589 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF3587 D) (X-REF3588 X)) + (%%CLASCL2 M-REF3585 N-REF3586 D-REF3587 X-REF3588 LDX-REF3589)))) -(CFFI:DEFCFUN ("claset_" %%CLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claset_" %%CLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -2506,30 +2443,30 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3672 ':INT32) (N-REF3673 ':INT32) - (ALPHA-REF3674 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3591 ':INT32) (N-REF3592 ':INT32) + (ALPHA-REF3593 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (BETA-REF3675 + (BETA-REF3594 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF3677 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3672 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3673 :INT32) N) + (LDA-REF3596 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3591 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3592 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF3674 + ALPHA-REF3593 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF3675 + BETA-REF3594 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3677 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3676 A)) - (%%CLASET UPLO M-REF3672 N-REF3673 ALPHA-REF3674 BETA-REF3675 A-REF3676 - LDA-REF3677)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3596 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3595 A)) + (%%CLASET UPLO M-REF3591 N-REF3592 ALPHA-REF3593 BETA-REF3594 A-REF3595 + LDA-REF3596)))) -(CFFI:DEFCFUN ("clasr_" %%CLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clasr_" %%CLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (PIVOT :STRING) @@ -2558,17 +2495,17 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3681 ':INT32) (N-REF3682 ':INT32) - (LDA-REF3686 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3681 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3682 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3686 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF3683 C) (S-REF3684 S) - (A-REF3685 A)) - (%%CLASR SIDE PIVOT DIRECT M-REF3681 N-REF3682 C-REF3683 S-REF3684 - A-REF3685 LDA-REF3686)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3600 ':INT32) (N-REF3601 ':INT32) + (LDA-REF3605 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3600 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3601 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3605 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF3602 C) (S-REF3603 S) + (A-REF3604 A)) + (%%CLASR SIDE PIVOT DIRECT M-REF3600 N-REF3601 C-REF3602 S-REF3603 + A-REF3604 LDA-REF3605)))) -(CFFI:DEFCFUN ("classq_" %%CLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("classq_" %%CLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -2587,16 +2524,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SUMSQ)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3687 ':INT32) (INCX-REF3689 ':INT32) - (SCALE-REF3690 ':FLOAT) (SUMSQ-REF3691 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3687 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3689 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3690 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF3691 :FLOAT) SUMSQ) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3688 X)) - (%%CLASSQ N-REF3687 X-REF3688 INCX-REF3689 SCALE-REF3690 SUMSQ-REF3691)))) - -(CFFI:DEFCFUN ("claswlq_" %%CLASWLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3606 ':INT32) (INCX-REF3608 ':INT32) + (SCALE-REF3609 ':FLOAT) (SUMSQ-REF3610 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3606 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3608 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3609 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF3610 :FLOAT) SUMSQ) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF3607 X)) + (%%CLASSQ N-REF3606 X-REF3607 INCX-REF3608 SCALE-REF3609 SUMSQ-REF3610)))) + +(CFFI:DEFCFUN ("claswlq_" %%CLASWLQ :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2635,25 +2573,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3692 ':INT32) (N-REF3693 ':INT32) - (MB-REF3694 ':INT32) (NB-REF3695 ':INT32) - (LDA-REF3697 ':INT32) (LDT-REF3699 ':INT32) - (LWORK-REF3701 ':INT32) (INFO-REF3702 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3692 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3693 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3694 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3695 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3697 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3699 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3701 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3702 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3696 A) (T-REF3698 T) - (WORK-REF3700 WORK)) - (%%CLASWLQ M-REF3692 N-REF3693 MB-REF3694 NB-REF3695 A-REF3696 - LDA-REF3697 T-REF3698 LDT-REF3699 WORK-REF3700 LWORK-REF3701 - INFO-REF3702)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3611 ':INT32) (N-REF3612 ':INT32) + (MB-REF3613 ':INT32) (NB-REF3614 ':INT32) + (LDA-REF3616 ':INT32) (LDT-REF3618 ':INT32) + (LWORK-REF3620 ':INT32) (INFO-REF3621 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3611 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3612 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3613 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3614 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3616 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3618 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3620 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3621 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3615 A) (T-REF3617 T) + (WORK-REF3619 WORK)) + (%%CLASWLQ M-REF3611 N-REF3612 MB-REF3613 NB-REF3614 A-REF3615 + LDA-REF3616 T-REF3617 LDT-REF3618 WORK-REF3619 LWORK-REF3620 + INFO-REF3621)))) -(CFFI:DEFCFUN ("claswp_" %%CLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("claswp_" %%CLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -2679,19 +2617,19 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3703 ':INT32) (LDA-REF3705 ':INT32) - (K1-REF3706 ':INT32) (K2-REF3707 ':INT32) - (INCX-REF3709 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3703 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3705 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF3706 :INT32) K1) - (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF3707 :INT32) K2) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3709 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3704 A) (IPIV-REF3708 IPIV)) - (%%CLASWP N-REF3703 A-REF3704 LDA-REF3705 K1-REF3706 K2-REF3707 - IPIV-REF3708 INCX-REF3709)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3622 ':INT32) (LDA-REF3624 ':INT32) + (K1-REF3625 ':INT32) (K2-REF3626 ':INT32) + (INCX-REF3628 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3622 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3624 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF3625 :INT32) K1) + (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF3626 :INT32) K2) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF3628 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3623 A) (IPIV-REF3627 IPIV)) + (%%CLASWP N-REF3622 A-REF3623 LDA-REF3624 K1-REF3625 K2-REF3626 + IPIV-REF3627 INCX-REF3628)))) -(CFFI:DEFCFUN ("clasyf_" %%CLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clasyf_" %%CLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2727,22 +2665,22 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3711 ':INT32) (NB-REF3712 ':INT32) - (KB-REF3713 ':INT32) (LDA-REF3715 ':INT32) - (LDW-REF3718 ':INT32) (INFO-REF3719 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3711 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3712 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3713 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3715 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3718 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3719 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3714 A) (IPIV-REF3716 IPIV) - (W-REF3717 W)) - (%%CLASYF UPLO N-REF3711 NB-REF3712 KB-REF3713 A-REF3714 LDA-REF3715 - IPIV-REF3716 W-REF3717 LDW-REF3718 INFO-REF3719)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3630 ':INT32) (NB-REF3631 ':INT32) + (KB-REF3632 ':INT32) (LDA-REF3634 ':INT32) + (LDW-REF3637 ':INT32) (INFO-REF3638 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3630 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3631 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3632 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3634 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3637 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3638 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3633 A) (IPIV-REF3635 IPIV) + (W-REF3636 W)) + (%%CLASYF UPLO N-REF3630 NB-REF3631 KB-REF3632 A-REF3633 LDA-REF3634 + IPIV-REF3635 W-REF3636 LDW-REF3637 INFO-REF3638)))) (CFFI:DEFCFUN ("clasyf_aa_" %%CLASYF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (J1 :POINTER) @@ -2782,21 +2720,21 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF3721 ':INT32) (M-REF3722 ':INT32) - (NB-REF3723 ':INT32) (LDA-REF3725 ':INT32) - (LDH-REF3728 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF3721 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3722 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3723 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3725 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3728 :INT32) LDH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3724 A) (IPIV-REF3726 IPIV) - (H-REF3727 H) (WORK-REF3729 WORK)) - (%%CLASYF_AA UPLO J1-REF3721 M-REF3722 NB-REF3723 A-REF3724 LDA-REF3725 - IPIV-REF3726 H-REF3727 LDH-REF3728 WORK-REF3729)))) + (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF3640 ':INT32) (M-REF3641 ':INT32) + (NB-REF3642 ':INT32) (LDA-REF3644 ':INT32) + (LDH-REF3647 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF3640 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3641 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3642 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3644 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF3647 :INT32) LDH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3643 A) (IPIV-REF3645 IPIV) + (H-REF3646 H) (WORK-REF3648 WORK)) + (%%CLASYF_AA UPLO J1-REF3640 M-REF3641 NB-REF3642 A-REF3643 LDA-REF3644 + IPIV-REF3645 H-REF3646 LDH-REF3647 WORK-REF3648)))) (CFFI:DEFCFUN ("clasyf_rk_" %%CLASYF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2838,22 +2776,22 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3731 ':INT32) (NB-REF3732 ':INT32) - (KB-REF3733 ':INT32) (LDA-REF3735 ':INT32) - (LDW-REF3739 ':INT32) (INFO-REF3740 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3731 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3732 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3733 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3735 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3739 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3740 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3734 A) (E-REF3736 E) - (IPIV-REF3737 IPIV) (W-REF3738 W)) - (%%CLASYF_RK UPLO N-REF3731 NB-REF3732 KB-REF3733 A-REF3734 LDA-REF3735 - E-REF3736 IPIV-REF3737 W-REF3738 LDW-REF3739 INFO-REF3740)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3650 ':INT32) (NB-REF3651 ':INT32) + (KB-REF3652 ':INT32) (LDA-REF3654 ':INT32) + (LDW-REF3658 ':INT32) (INFO-REF3659 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3650 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3651 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3652 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3654 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3658 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3659 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3653 A) (E-REF3655 E) + (IPIV-REF3656 IPIV) (W-REF3657 W)) + (%%CLASYF_RK UPLO N-REF3650 NB-REF3651 KB-REF3652 A-REF3653 LDA-REF3654 + E-REF3655 IPIV-REF3656 W-REF3657 LDW-REF3658 INFO-REF3659)))) (CFFI:DEFCFUN ("clasyf_rook_" %%CLASYF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2889,21 +2827,21 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3742 ':INT32) (NB-REF3743 ':INT32) - (KB-REF3744 ':INT32) (LDA-REF3746 ':INT32) - (LDW-REF3749 ':INT32) (INFO-REF3750 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3742 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3743 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3744 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3746 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3749 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3750 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3745 A) (IPIV-REF3747 IPIV) - (W-REF3748 W)) - (%%CLASYF_ROOK UPLO N-REF3742 NB-REF3743 KB-REF3744 A-REF3745 LDA-REF3746 - IPIV-REF3747 W-REF3748 LDW-REF3749 INFO-REF3750)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3661 ':INT32) (NB-REF3662 ':INT32) + (KB-REF3663 ':INT32) (LDA-REF3665 ':INT32) + (LDW-REF3668 ':INT32) (INFO-REF3669 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3661 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3662 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF3663 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3665 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3668 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3669 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3664 A) (IPIV-REF3666 IPIV) + (W-REF3667 W)) + (%%CLASYF_ROOK UPLO N-REF3661 NB-REF3662 KB-REF3663 A-REF3664 LDA-REF3665 + IPIV-REF3666 W-REF3667 LDW-REF3668 INFO-REF3669)))) -(CFFI:DEFCFUN ("clatbs_" %%CLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clatbs_" %%CLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -2943,21 +2881,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3755 ':INT32) (KD-REF3756 ':INT32) - (LDAB-REF3758 ':INT32) (SCALE-REF3760 ':FLOAT) - (INFO-REF3762 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3755 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3756 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3758 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3760 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3762 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3757 AB) (X-REF3759 X) - (CNORM-REF3761 CNORM)) - (%%CLATBS UPLO TRANS DIAG NORMIN N-REF3755 KD-REF3756 AB-REF3757 - LDAB-REF3758 X-REF3759 SCALE-REF3760 CNORM-REF3761 - INFO-REF3762)))) - -(CFFI:DEFCFUN ("clatdf_" %%CLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3674 ':INT32) (KD-REF3675 ':INT32) + (LDAB-REF3677 ':INT32) (SCALE-REF3679 ':FLOAT) + (INFO-REF3681 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3674 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3675 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3677 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3679 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3681 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3676 AB) (X-REF3678 X) + (CNORM-REF3680 CNORM)) + (%%CLATBS UPLO TRANS DIAG NORMIN N-REF3674 KD-REF3675 AB-REF3676 + LDAB-REF3677 X-REF3678 SCALE-REF3679 CNORM-REF3680 INFO-REF3681)))) + +(CFFI:DEFCFUN ("clatdf_" %%CLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (N :POINTER) @@ -2994,21 +2931,21 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) JPIV)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF3763 ':INT32) (N-REF3764 ':INT32) - (LDZ-REF3766 ':INT32) (RDSUM-REF3768 ':FLOAT) - (RDSCAL-REF3769 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF3763 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3764 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3766 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF3768 :FLOAT) RDSUM) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF3769 :FLOAT) RDSCAL) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF3765 Z) (RHS-REF3767 RHS) - (IPIV-REF3770 IPIV) - (JPIV-REF3771 JPIV)) - (%%CLATDF IJOB-REF3763 N-REF3764 Z-REF3765 LDZ-REF3766 RHS-REF3767 - RDSUM-REF3768 RDSCAL-REF3769 IPIV-REF3770 JPIV-REF3771)))) - -(CFFI:DEFCFUN ("clatps_" %%CLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF3682 ':INT32) (N-REF3683 ':INT32) + (LDZ-REF3685 ':INT32) (RDSUM-REF3687 ':FLOAT) + (RDSCAL-REF3688 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF3682 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3683 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF3685 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF3687 :FLOAT) RDSUM) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF3688 :FLOAT) RDSCAL) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF3684 Z) (RHS-REF3686 RHS) + (IPIV-REF3689 IPIV) + (JPIV-REF3690 JPIV)) + (%%CLATDF IJOB-REF3682 N-REF3683 Z-REF3684 LDZ-REF3685 RHS-REF3686 + RDSUM-REF3687 RDSCAL-REF3688 IPIV-REF3689 JPIV-REF3690)))) + +(CFFI:DEFCFUN ("clatps_" %%CLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -3043,17 +2980,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3776 ':INT32) (SCALE-REF3779 ':FLOAT) - (INFO-REF3781 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3776 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3779 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3781 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3777 AP) (X-REF3778 X) - (CNORM-REF3780 CNORM)) - (%%CLATPS UPLO TRANS DIAG NORMIN N-REF3776 AP-REF3777 X-REF3778 - SCALE-REF3779 CNORM-REF3780 INFO-REF3781)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3695 ':INT32) (SCALE-REF3698 ':FLOAT) + (INFO-REF3700 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3695 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3698 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3700 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF3696 AP) (X-REF3697 X) + (CNORM-REF3699 CNORM)) + (%%CLATPS UPLO TRANS DIAG NORMIN N-REF3695 AP-REF3696 X-REF3697 + SCALE-REF3698 CNORM-REF3699 INFO-REF3700)))) -(CFFI:DEFCFUN ("clatrd_" %%CLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clatrd_" %%CLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3089,18 +3026,18 @@ (COMMON-LISP:*)) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3783 ':INT32) (NB-REF3784 ':INT32) - (LDA-REF3786 ':INT32) (LDW-REF3790 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3783 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3784 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3786 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3790 :INT32) LDW) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3785 A) (E-REF3787 E) - (TAU-REF3788 TAU) (W-REF3789 W)) - (%%CLATRD UPLO N-REF3783 NB-REF3784 A-REF3785 LDA-REF3786 E-REF3787 - TAU-REF3788 W-REF3789 LDW-REF3790)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3702 ':INT32) (NB-REF3703 ':INT32) + (LDA-REF3705 ':INT32) (LDW-REF3709 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3702 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3703 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3705 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF3709 :INT32) LDW) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3704 A) (E-REF3706 E) + (TAU-REF3707 TAU) (W-REF3708 W)) + (%%CLATRD UPLO N-REF3702 NB-REF3703 A-REF3704 LDA-REF3705 E-REF3706 + TAU-REF3707 W-REF3708 LDW-REF3709)))) -(CFFI:DEFCFUN ("clatrs_" %%CLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clatrs_" %%CLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -3137,18 +3074,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3795 ':INT32) (LDA-REF3797 ':INT32) - (SCALE-REF3799 ':FLOAT) (INFO-REF3801 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3795 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3797 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3799 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3801 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3796 A) (X-REF3798 X) - (CNORM-REF3800 CNORM)) - (%%CLATRS UPLO TRANS DIAG NORMIN N-REF3795 A-REF3796 LDA-REF3797 - X-REF3798 SCALE-REF3799 CNORM-REF3800 INFO-REF3801)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3714 ':INT32) (LDA-REF3716 ':INT32) + (SCALE-REF3718 ':FLOAT) (INFO-REF3720 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3714 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3716 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF3718 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3720 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3715 A) (X-REF3717 X) + (CNORM-REF3719 CNORM)) + (%%CLATRS UPLO TRANS DIAG NORMIN N-REF3714 A-REF3715 LDA-REF3716 + X-REF3717 SCALE-REF3718 CNORM-REF3719 INFO-REF3720)))) -(CFFI:DEFCFUN ("clatrz_" %%CLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clatrz_" %%CLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3179,18 +3116,19 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3802 ':INT32) (N-REF3803 ':INT32) - (L-REF3804 ':INT32) (LDA-REF3806 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3802 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3803 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3804 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3806 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3805 A) (TAU-REF3807 TAU) - (WORK-REF3808 WORK)) - (%%CLATRZ M-REF3802 N-REF3803 L-REF3804 A-REF3805 LDA-REF3806 TAU-REF3807 - WORK-REF3808)))) - -(CFFI:DEFCFUN ("clatsqr_" %%CLATSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3721 ':INT32) (N-REF3722 ':INT32) + (L-REF3723 ':INT32) (LDA-REF3725 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3721 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3722 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF3723 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3725 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3724 A) (TAU-REF3726 TAU) + (WORK-REF3727 WORK)) + (%%CLATRZ M-REF3721 N-REF3722 L-REF3723 A-REF3724 LDA-REF3725 TAU-REF3726 + WORK-REF3727)))) + +(CFFI:DEFCFUN ("clatsqr_" %%CLATSQR :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3229,25 +3167,97 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3809 ':INT32) (N-REF3810 ':INT32) - (MB-REF3811 ':INT32) (NB-REF3812 ':INT32) - (LDA-REF3814 ':INT32) (LDT-REF3816 ':INT32) - (LWORK-REF3818 ':INT32) (INFO-REF3819 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3809 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3810 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3811 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3812 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3814 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3816 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3818 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3819 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3813 A) (T-REF3815 T) - (WORK-REF3817 WORK)) - (%%CLATSQR M-REF3809 N-REF3810 MB-REF3811 NB-REF3812 A-REF3813 - LDA-REF3814 T-REF3815 LDT-REF3816 WORK-REF3817 LWORK-REF3818 - INFO-REF3819)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3728 ':INT32) (N-REF3729 ':INT32) + (MB-REF3730 ':INT32) (NB-REF3731 ':INT32) + (LDA-REF3733 ':INT32) (LDT-REF3735 ':INT32) + (LWORK-REF3737 ':INT32) (INFO-REF3738 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3728 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3729 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF3730 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF3731 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3733 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF3735 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF3737 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3738 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3732 A) (T-REF3734 T) + (WORK-REF3736 WORK)) + (%%CLATSQR M-REF3728 N-REF3729 MB-REF3730 NB-REF3731 A-REF3732 + LDA-REF3733 T-REF3734 LDT-REF3735 WORK-REF3736 LWORK-REF3737 + INFO-REF3738)))) + +(CFFI:DEFCFUN ("claunhr_col_getrfnp_" %%CLAUNHR_COL_GETRFNP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (A :POINTER) + (LDA :POINTER) + (D :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %CLAUNHR_COL_GETRFNP (M N A LDA D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUNHR_COL_GETRFNP) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3739 ':INT32) (N-REF3740 ':INT32) + (LDA-REF3742 ':INT32) (INFO-REF3744 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3739 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3740 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3742 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3744 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3741 A) (D-REF3743 D)) + (%%CLAUNHR_COL_GETRFNP M-REF3739 N-REF3740 A-REF3741 LDA-REF3742 + D-REF3743 INFO-REF3744)))) + +(CFFI:DEFCFUN ("claunhr_col_getrfnp2_" %%CLAUNHR_COL_GETRFNP2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (A :POINTER) + (LDA :POINTER) + (D :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %CLAUNHR_COL_GETRFNP2 (M N A LDA D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUNHR_COL_GETRFNP2) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF3745 ':INT32) (N-REF3746 ':INT32) + (LDA-REF3748 ':INT32) (INFO-REF3750 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF3745 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3746 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3748 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3750 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3747 A) (D-REF3749 D)) + (%%CLAUNHR_COL_GETRFNP2 M-REF3745 N-REF3746 A-REF3747 LDA-REF3748 + D-REF3749 INFO-REF3750)))) -(CFFI:DEFCFUN ("clauu2_" %%CLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clauu2_" %%CLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3266,15 +3276,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3821 ':INT32) (LDA-REF3823 ':INT32) - (INFO-REF3824 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3821 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3823 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3824 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3822 A)) - (%%CLAUU2 UPLO N-REF3821 A-REF3822 LDA-REF3823 INFO-REF3824)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3752 ':INT32) (LDA-REF3754 ':INT32) + (INFO-REF3755 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3752 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3754 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3755 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3753 A)) + (%%CLAUU2 UPLO N-REF3752 A-REF3753 LDA-REF3754 INFO-REF3755)))) -(CFFI:DEFCFUN ("clauum_" %%CLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("clauum_" %%CLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3293,15 +3303,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3826 ':INT32) (LDA-REF3828 ':INT32) - (INFO-REF3829 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3826 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3828 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3829 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3827 A)) - (%%CLAUUM UPLO N-REF3826 A-REF3827 LDA-REF3828 INFO-REF3829)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3757 ':INT32) (LDA-REF3759 ':INT32) + (INFO-REF3760 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3757 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3759 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3760 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3758 A)) + (%%CLAUUM UPLO N-REF3757 A-REF3758 LDA-REF3759 INFO-REF3760)))) -(CFFI:DEFCFUN ("cpbcon_" %%CPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpbcon_" %%CPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3336,21 +3346,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3831 ':INT32) (KD-REF3832 ':INT32) - (LDAB-REF3834 ':INT32) (ANORM-REF3835 ':FLOAT) - (RCOND-REF3836 ':FLOAT) (INFO-REF3839 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3831 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3832 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3834 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3835 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3836 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3839 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3833 AB) (WORK-REF3837 WORK) - (RWORK-REF3838 RWORK)) - (%%CPBCON UPLO N-REF3831 KD-REF3832 AB-REF3833 LDAB-REF3834 ANORM-REF3835 - RCOND-REF3836 WORK-REF3837 RWORK-REF3838 INFO-REF3839)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3762 ':INT32) (KD-REF3763 ':INT32) + (LDAB-REF3765 ':INT32) (ANORM-REF3766 ':FLOAT) + (RCOND-REF3767 ':FLOAT) (INFO-REF3770 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3762 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3763 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3765 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3766 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3767 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3770 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3764 AB) (WORK-REF3768 WORK) + (RWORK-REF3769 RWORK)) + (%%CPBCON UPLO N-REF3762 KD-REF3763 AB-REF3764 LDAB-REF3765 ANORM-REF3766 + RCOND-REF3767 WORK-REF3768 RWORK-REF3769 INFO-REF3770)))) -(CFFI:DEFCFUN ("cpbequ_" %%CPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpbequ_" %%CPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3378,20 +3388,20 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3841 ':INT32) (KD-REF3842 ':INT32) - (LDAB-REF3844 ':INT32) (SCOND-REF3846 ':FLOAT) - (AMAX-REF3847 ':FLOAT) (INFO-REF3848 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3841 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3842 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3844 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3846 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3847 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3848 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3843 AB) (S-REF3845 S)) - (%%CPBEQU UPLO N-REF3841 KD-REF3842 AB-REF3843 LDAB-REF3844 S-REF3845 - SCOND-REF3846 AMAX-REF3847 INFO-REF3848)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3772 ':INT32) (KD-REF3773 ':INT32) + (LDAB-REF3775 ':INT32) (SCOND-REF3777 ':FLOAT) + (AMAX-REF3778 ':FLOAT) (INFO-REF3779 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3772 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3773 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3775 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3777 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3778 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3779 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3774 AB) (S-REF3776 S)) + (%%CPBEQU UPLO N-REF3772 KD-REF3773 AB-REF3774 LDAB-REF3775 S-REF3776 + SCOND-REF3777 AMAX-REF3778 INFO-REF3779)))) -(CFFI:DEFCFUN ("cpbrfs_" %%CPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpbrfs_" %%CPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3458,30 +3468,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3850 ':INT32) (KD-REF3851 ':INT32) - (NRHS-REF3852 ':INT32) (LDAB-REF3854 ':INT32) - (LDAFB-REF3856 ':INT32) (LDB-REF3858 ':INT32) - (LDX-REF3860 ':INT32) (INFO-REF3865 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3850 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3851 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3852 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3854 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3856 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3858 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3860 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3865 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3853 AB) (AFB-REF3855 AFB) - (B-REF3857 B) (X-REF3859 X) - (FERR-REF3861 FERR) - (BERR-REF3862 BERR) - (WORK-REF3863 WORK) - (RWORK-REF3864 RWORK)) - (%%CPBRFS UPLO N-REF3850 KD-REF3851 NRHS-REF3852 AB-REF3853 LDAB-REF3854 - AFB-REF3855 LDAFB-REF3856 B-REF3857 LDB-REF3858 X-REF3859 - LDX-REF3860 FERR-REF3861 BERR-REF3862 WORK-REF3863 - RWORK-REF3864 INFO-REF3865)))) - -(CFFI:DEFCFUN ("cpbstf_" %%CPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3781 ':INT32) (KD-REF3782 ':INT32) + (NRHS-REF3783 ':INT32) (LDAB-REF3785 ':INT32) + (LDAFB-REF3787 ':INT32) (LDB-REF3789 ':INT32) + (LDX-REF3791 ':INT32) (INFO-REF3796 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3781 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3782 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3783 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3785 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3787 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3789 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3791 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3796 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3784 AB) (AFB-REF3786 AFB) + (B-REF3788 B) (X-REF3790 X) + (FERR-REF3792 FERR) + (BERR-REF3793 BERR) + (WORK-REF3794 WORK) + (RWORK-REF3795 RWORK)) + (%%CPBRFS UPLO N-REF3781 KD-REF3782 NRHS-REF3783 AB-REF3784 LDAB-REF3785 + AFB-REF3786 LDAFB-REF3787 B-REF3788 LDB-REF3789 X-REF3790 LDX-REF3791 + FERR-REF3792 BERR-REF3793 WORK-REF3794 RWORK-REF3795 INFO-REF3796)))) + +(CFFI:DEFCFUN ("cpbstf_" %%CPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3502,17 +3511,17 @@ AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3867 ':INT32) (KD-REF3868 ':INT32) - (LDAB-REF3870 ':INT32) (INFO-REF3871 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3867 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3868 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3870 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3871 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3869 AB)) - (%%CPBSTF UPLO N-REF3867 KD-REF3868 AB-REF3869 LDAB-REF3870 - INFO-REF3871)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3798 ':INT32) (KD-REF3799 ':INT32) + (LDAB-REF3801 ':INT32) (INFO-REF3802 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3798 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3799 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3801 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3802 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3800 AB)) + (%%CPBSTF UPLO N-REF3798 KD-REF3799 AB-REF3800 LDAB-REF3801 + INFO-REF3802)))) -(CFFI:DEFCFUN ("cpbsv_" %%CPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpbsv_" %%CPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3543,20 +3552,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3873 ':INT32) (KD-REF3874 ':INT32) - (NRHS-REF3875 ':INT32) (LDAB-REF3877 ':INT32) - (LDB-REF3879 ':INT32) (INFO-REF3880 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3873 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3874 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3875 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3877 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3879 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3880 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3876 AB) (B-REF3878 B)) - (%%CPBSV UPLO N-REF3873 KD-REF3874 NRHS-REF3875 AB-REF3876 LDAB-REF3877 - B-REF3878 LDB-REF3879 INFO-REF3880)))) - -(CFFI:DEFCFUN ("cpbsvx_" %%CPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3804 ':INT32) (KD-REF3805 ':INT32) + (NRHS-REF3806 ':INT32) (LDAB-REF3808 ':INT32) + (LDB-REF3810 ':INT32) (INFO-REF3811 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3804 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3805 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3806 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3808 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3810 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3811 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3807 AB) (B-REF3809 B)) + (%%CPBSV UPLO N-REF3804 KD-REF3805 NRHS-REF3806 AB-REF3807 LDAB-REF3808 + B-REF3809 LDB-REF3810 INFO-REF3811)))) + +(CFFI:DEFCFUN ("cpbsvx_" %%CPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -3632,33 +3641,32 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3883 ':INT32) (KD-REF3884 ':INT32) - (NRHS-REF3885 ':INT32) (LDAB-REF3887 ':INT32) - (LDAFB-REF3889 ':INT32) (LDB-REF3893 ':INT32) - (LDX-REF3895 ':INT32) (RCOND-REF3896 ':FLOAT) - (INFO-REF3901 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3883 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3884 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3885 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3887 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3889 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3893 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3895 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3896 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3901 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3886 AB) (AFB-REF3888 AFB) - (S-REF3891 S) (B-REF3892 B) - (X-REF3894 X) (FERR-REF3897 FERR) - (BERR-REF3898 BERR) - (WORK-REF3899 WORK) - (RWORK-REF3900 RWORK)) - (%%CPBSVX FACT UPLO N-REF3883 KD-REF3884 NRHS-REF3885 AB-REF3886 - LDAB-REF3887 AFB-REF3888 LDAFB-REF3889 EQUED S-REF3891 - B-REF3892 LDB-REF3893 X-REF3894 LDX-REF3895 RCOND-REF3896 - FERR-REF3897 BERR-REF3898 WORK-REF3899 RWORK-REF3900 - INFO-REF3901)))) - -(CFFI:DEFCFUN ("cpbtf2_" %%CPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3814 ':INT32) (KD-REF3815 ':INT32) + (NRHS-REF3816 ':INT32) (LDAB-REF3818 ':INT32) + (LDAFB-REF3820 ':INT32) (LDB-REF3824 ':INT32) + (LDX-REF3826 ':INT32) (RCOND-REF3827 ':FLOAT) + (INFO-REF3832 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3814 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3815 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3816 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3818 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF3820 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3824 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3826 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3827 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3832 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3817 AB) (AFB-REF3819 AFB) + (S-REF3822 S) (B-REF3823 B) + (X-REF3825 X) (FERR-REF3828 FERR) + (BERR-REF3829 BERR) + (WORK-REF3830 WORK) + (RWORK-REF3831 RWORK)) + (%%CPBSVX FACT UPLO N-REF3814 KD-REF3815 NRHS-REF3816 AB-REF3817 + LDAB-REF3818 AFB-REF3819 LDAFB-REF3820 EQUED S-REF3822 B-REF3823 + LDB-REF3824 X-REF3825 LDX-REF3826 RCOND-REF3827 FERR-REF3828 + BERR-REF3829 WORK-REF3830 RWORK-REF3831 INFO-REF3832)))) + +(CFFI:DEFCFUN ("cpbtf2_" %%CPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3679,17 +3687,17 @@ AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3903 ':INT32) (KD-REF3904 ':INT32) - (LDAB-REF3906 ':INT32) (INFO-REF3907 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3903 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3904 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3906 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3907 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3905 AB)) - (%%CPBTF2 UPLO N-REF3903 KD-REF3904 AB-REF3905 LDAB-REF3906 - INFO-REF3907)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3834 ':INT32) (KD-REF3835 ':INT32) + (LDAB-REF3837 ':INT32) (INFO-REF3838 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3834 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3835 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3837 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3838 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3836 AB)) + (%%CPBTF2 UPLO N-REF3834 KD-REF3835 AB-REF3836 LDAB-REF3837 + INFO-REF3838)))) -(CFFI:DEFCFUN ("cpbtrf_" %%CPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpbtrf_" %%CPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3710,17 +3718,17 @@ AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3909 ':INT32) (KD-REF3910 ':INT32) - (LDAB-REF3912 ':INT32) (INFO-REF3913 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3909 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3910 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3912 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3913 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3911 AB)) - (%%CPBTRF UPLO N-REF3909 KD-REF3910 AB-REF3911 LDAB-REF3912 - INFO-REF3913)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3840 ':INT32) (KD-REF3841 ':INT32) + (LDAB-REF3843 ':INT32) (INFO-REF3844 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3840 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3841 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3843 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3844 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3842 AB)) + (%%CPBTRF UPLO N-REF3840 KD-REF3841 AB-REF3842 LDAB-REF3843 + INFO-REF3844)))) -(CFFI:DEFCFUN ("cpbtrs_" %%CPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpbtrs_" %%CPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3751,20 +3759,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3915 ':INT32) (KD-REF3916 ':INT32) - (NRHS-REF3917 ':INT32) (LDAB-REF3919 ':INT32) - (LDB-REF3921 ':INT32) (INFO-REF3922 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3915 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3916 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3917 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3919 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3921 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3922 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3918 AB) (B-REF3920 B)) - (%%CPBTRS UPLO N-REF3915 KD-REF3916 NRHS-REF3917 AB-REF3918 LDAB-REF3919 - B-REF3920 LDB-REF3921 INFO-REF3922)))) - -(CFFI:DEFCFUN ("cpftrf_" %%CPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3846 ':INT32) (KD-REF3847 ':INT32) + (NRHS-REF3848 ':INT32) (LDAB-REF3850 ':INT32) + (LDB-REF3852 ':INT32) (INFO-REF3853 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3846 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF3847 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3848 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF3850 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3852 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3853 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF3849 AB) (B-REF3851 B)) + (%%CPBTRS UPLO N-REF3846 KD-REF3847 NRHS-REF3848 AB-REF3849 LDAB-REF3850 + B-REF3851 LDB-REF3852 INFO-REF3853)))) + +(CFFI:DEFCFUN ("cpftrf_" %%CPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3783,13 +3791,13 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3925 ':INT32) (INFO-REF3927 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3925 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3927 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3926 A)) - (%%CPFTRF TRANSR UPLO N-REF3925 A-REF3926 INFO-REF3927)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3856 ':INT32) (INFO-REF3858 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3856 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3858 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3857 A)) + (%%CPFTRF TRANSR UPLO N-REF3856 A-REF3857 INFO-REF3858)))) -(CFFI:DEFCFUN ("cpftri_" %%CPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpftri_" %%CPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3808,13 +3816,13 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3930 ':INT32) (INFO-REF3932 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3930 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3932 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3931 A)) - (%%CPFTRI TRANSR UPLO N-REF3930 A-REF3931 INFO-REF3932)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3861 ':INT32) (INFO-REF3863 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3861 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3863 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3862 A)) + (%%CPFTRI TRANSR UPLO N-REF3861 A-REF3862 INFO-REF3863)))) -(CFFI:DEFCFUN ("cpftrs_" %%CPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpftrs_" %%CPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3843,17 +3851,17 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3935 ':INT32) (NRHS-REF3936 ':INT32) - (LDB-REF3939 ':INT32) (INFO-REF3940 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3935 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3936 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3939 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3940 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3937 A) (B-REF3938 B)) - (%%CPFTRS TRANSR UPLO N-REF3935 NRHS-REF3936 A-REF3937 B-REF3938 - LDB-REF3939 INFO-REF3940)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3866 ':INT32) (NRHS-REF3867 ':INT32) + (LDB-REF3870 ':INT32) (INFO-REF3871 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3866 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3867 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3870 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3871 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3868 A) (B-REF3869 B)) + (%%CPFTRS TRANSR UPLO N-REF3866 NRHS-REF3867 A-REF3868 B-REF3869 + LDB-REF3870 INFO-REF3871)))) -(CFFI:DEFCFUN ("cpocon_" %%CPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpocon_" %%CPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3886,20 +3894,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3942 ':INT32) (LDA-REF3944 ':INT32) - (ANORM-REF3945 ':FLOAT) (RCOND-REF3946 ':FLOAT) - (INFO-REF3949 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3942 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3944 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3945 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3946 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3949 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3943 A) (WORK-REF3947 WORK) - (RWORK-REF3948 RWORK)) - (%%CPOCON UPLO N-REF3942 A-REF3943 LDA-REF3944 ANORM-REF3945 - RCOND-REF3946 WORK-REF3947 RWORK-REF3948 INFO-REF3949)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3873 ':INT32) (LDA-REF3875 ':INT32) + (ANORM-REF3876 ':FLOAT) (RCOND-REF3877 ':FLOAT) + (INFO-REF3880 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3873 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3875 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF3876 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3877 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3880 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3874 A) (WORK-REF3878 WORK) + (RWORK-REF3879 RWORK)) + (%%CPOCON UPLO N-REF3873 A-REF3874 LDA-REF3875 ANORM-REF3876 + RCOND-REF3877 WORK-REF3878 RWORK-REF3879 INFO-REF3880)))) -(CFFI:DEFCFUN ("cpoequ_" %%CPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpoequ_" %%CPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3923,19 +3931,20 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3950 ':INT32) (LDA-REF3952 ':INT32) - (SCOND-REF3954 ':FLOAT) (AMAX-REF3955 ':FLOAT) - (INFO-REF3956 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3950 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3952 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3954 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3955 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3956 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3951 A) (S-REF3953 S)) - (%%CPOEQU N-REF3950 A-REF3951 LDA-REF3952 S-REF3953 SCOND-REF3954 - AMAX-REF3955 INFO-REF3956)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3881 ':INT32) (LDA-REF3883 ':INT32) + (SCOND-REF3885 ':FLOAT) (AMAX-REF3886 ':FLOAT) + (INFO-REF3887 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3881 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3883 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3885 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3886 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3887 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3882 A) (S-REF3884 S)) + (%%CPOEQU N-REF3881 A-REF3882 LDA-REF3883 S-REF3884 SCOND-REF3885 + AMAX-REF3886 INFO-REF3887)))) -(CFFI:DEFCFUN ("cpoequb_" %%CPOEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpoequb_" %%CPOEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3959,19 +3968,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3957 ':INT32) (LDA-REF3959 ':INT32) - (SCOND-REF3961 ':FLOAT) (AMAX-REF3962 ':FLOAT) - (INFO-REF3963 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3957 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3959 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3961 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3962 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3963 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3958 A) (S-REF3960 S)) - (%%CPOEQUB N-REF3957 A-REF3958 LDA-REF3959 S-REF3960 SCOND-REF3961 - AMAX-REF3962 INFO-REF3963)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3888 ':INT32) (LDA-REF3890 ':INT32) + (SCOND-REF3892 ':FLOAT) (AMAX-REF3893 ':FLOAT) + (INFO-REF3894 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3888 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3890 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF3892 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF3893 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3894 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3889 A) (S-REF3891 S)) + (%%CPOEQUB N-REF3888 A-REF3889 LDA-REF3890 S-REF3891 SCOND-REF3892 + AMAX-REF3893 INFO-REF3894)))) -(CFFI:DEFCFUN ("cporfs_" %%CPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cporfs_" %%CPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4036,29 +4045,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3965 ':INT32) (NRHS-REF3966 ':INT32) - (LDA-REF3968 ':INT32) (LDAF-REF3970 ':INT32) - (LDB-REF3972 ':INT32) (LDX-REF3974 ':INT32) - (INFO-REF3979 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3965 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3966 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3968 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3970 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3972 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3974 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3979 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3967 A) (AF-REF3969 AF) - (B-REF3971 B) (X-REF3973 X) - (FERR-REF3975 FERR) - (BERR-REF3976 BERR) - (WORK-REF3977 WORK) - (RWORK-REF3978 RWORK)) - (%%CPORFS UPLO N-REF3965 NRHS-REF3966 A-REF3967 LDA-REF3968 AF-REF3969 - LDAF-REF3970 B-REF3971 LDB-REF3972 X-REF3973 LDX-REF3974 - FERR-REF3975 BERR-REF3976 WORK-REF3977 RWORK-REF3978 - INFO-REF3979)))) - -(CFFI:DEFCFUN ("cporfsx_" %%CPORFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3896 ':INT32) (NRHS-REF3897 ':INT32) + (LDA-REF3899 ':INT32) (LDAF-REF3901 ':INT32) + (LDB-REF3903 ':INT32) (LDX-REF3905 ':INT32) + (INFO-REF3910 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3896 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3897 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3899 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3901 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3903 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3905 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3910 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3898 A) (AF-REF3900 AF) + (B-REF3902 B) (X-REF3904 X) + (FERR-REF3906 FERR) + (BERR-REF3907 BERR) + (WORK-REF3908 WORK) + (RWORK-REF3909 RWORK)) + (%%CPORFS UPLO N-REF3896 NRHS-REF3897 A-REF3898 LDA-REF3899 AF-REF3900 + LDAF-REF3901 B-REF3902 LDB-REF3903 X-REF3904 LDX-REF3905 FERR-REF3906 + BERR-REF3907 WORK-REF3908 RWORK-REF3909 INFO-REF3910)))) + +(CFFI:DEFCFUN ("cporfsx_" %%CPORFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -4144,40 +4153,39 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3982 ':INT32) (NRHS-REF3983 ':INT32) - (LDA-REF3985 ':INT32) (LDAF-REF3987 ':INT32) - (LDB-REF3990 ':INT32) (LDX-REF3992 ':INT32) - (RCOND-REF3993 ':FLOAT) - (N_ERR_BNDS-REF3995 ':INT32) - (NPARAMS-REF3998 ':INT32) (INFO-REF4002 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3982 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3983 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3985 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3987 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3990 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3992 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3993 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF3995 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF3998 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4002 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3984 A) (AF-REF3986 AF) - (S-REF3988 S) (B-REF3989 B) - (X-REF3991 X) (BERR-REF3994 BERR) - (ERR_BNDS_NORM-REF3996 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3913 ':INT32) (NRHS-REF3914 ':INT32) + (LDA-REF3916 ':INT32) (LDAF-REF3918 ':INT32) + (LDB-REF3921 ':INT32) (LDX-REF3923 ':INT32) + (RCOND-REF3924 ':FLOAT) + (N_ERR_BNDS-REF3926 ':INT32) + (NPARAMS-REF3929 ':INT32) (INFO-REF3933 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3913 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3914 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3916 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3918 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3921 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3923 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3924 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF3926 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF3929 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3933 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3915 A) (AF-REF3917 AF) + (S-REF3919 S) (B-REF3920 B) + (X-REF3922 X) (BERR-REF3925 BERR) + (ERR_BNDS_NORM-REF3927 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF3997 + (ERR_BNDS_COMP-REF3928 ERR_BNDS_COMP) - (PARAMS-REF3999 PARAMS) - (WORK-REF4000 WORK) - (RWORK-REF4001 RWORK)) - (%%CPORFSX UPLO EQUED N-REF3982 NRHS-REF3983 A-REF3984 LDA-REF3985 - AF-REF3986 LDAF-REF3987 S-REF3988 B-REF3989 LDB-REF3990 - X-REF3991 LDX-REF3992 RCOND-REF3993 BERR-REF3994 - N_ERR_BNDS-REF3995 ERR_BNDS_NORM-REF3996 ERR_BNDS_COMP-REF3997 - NPARAMS-REF3998 PARAMS-REF3999 WORK-REF4000 RWORK-REF4001 - INFO-REF4002)))) + (PARAMS-REF3930 PARAMS) + (WORK-REF3931 WORK) + (RWORK-REF3932 RWORK)) + (%%CPORFSX UPLO EQUED N-REF3913 NRHS-REF3914 A-REF3915 LDA-REF3916 + AF-REF3917 LDAF-REF3918 S-REF3919 B-REF3920 LDB-REF3921 X-REF3922 + LDX-REF3923 RCOND-REF3924 BERR-REF3925 N_ERR_BNDS-REF3926 + ERR_BNDS_NORM-REF3927 ERR_BNDS_COMP-REF3928 NPARAMS-REF3929 + PARAMS-REF3930 WORK-REF3931 RWORK-REF3932 INFO-REF3933)))) -(CFFI:DEFCFUN ("cposv_" %%CPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cposv_" %%CPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4206,19 +4214,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4004 ':INT32) (NRHS-REF4005 ':INT32) - (LDA-REF4007 ':INT32) (LDB-REF4009 ':INT32) - (INFO-REF4010 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4004 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4005 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4007 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4009 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4010 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4006 A) (B-REF4008 B)) - (%%CPOSV UPLO N-REF4004 NRHS-REF4005 A-REF4006 LDA-REF4007 B-REF4008 - LDB-REF4009 INFO-REF4010)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3935 ':INT32) (NRHS-REF3936 ':INT32) + (LDA-REF3938 ':INT32) (LDB-REF3940 ':INT32) + (INFO-REF3941 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3935 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3936 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3938 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3940 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3941 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3937 A) (B-REF3939 B)) + (%%CPOSV UPLO N-REF3935 NRHS-REF3936 A-REF3937 LDA-REF3938 B-REF3939 + LDB-REF3940 INFO-REF3941)))) -(CFFI:DEFCFUN ("cposvx_" %%CPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cposvx_" %%CPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -4292,30 +4300,31 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4013 ':INT32) (NRHS-REF4014 ':INT32) - (LDA-REF4016 ':INT32) (LDAF-REF4018 ':INT32) - (LDB-REF4022 ':INT32) (LDX-REF4024 ':INT32) - (RCOND-REF4025 ':FLOAT) (INFO-REF4030 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4013 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4014 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4016 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4018 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4022 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4024 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4025 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4030 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4015 A) (AF-REF4017 AF) - (S-REF4020 S) (B-REF4021 B) - (X-REF4023 X) (FERR-REF4026 FERR) - (BERR-REF4027 BERR) - (WORK-REF4028 WORK) - (RWORK-REF4029 RWORK)) - (%%CPOSVX FACT UPLO N-REF4013 NRHS-REF4014 A-REF4015 LDA-REF4016 - AF-REF4017 LDAF-REF4018 EQUED S-REF4020 B-REF4021 LDB-REF4022 - X-REF4023 LDX-REF4024 RCOND-REF4025 FERR-REF4026 BERR-REF4027 - WORK-REF4028 RWORK-REF4029 INFO-REF4030)))) - -(CFFI:DEFCFUN ("cposvxx_" %%CPOSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3944 ':INT32) (NRHS-REF3945 ':INT32) + (LDA-REF3947 ':INT32) (LDAF-REF3949 ':INT32) + (LDB-REF3953 ':INT32) (LDX-REF3955 ':INT32) + (RCOND-REF3956 ':FLOAT) (INFO-REF3961 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3944 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3945 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3947 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3949 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3953 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3955 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3956 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3961 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3946 A) (AF-REF3948 AF) + (S-REF3951 S) (B-REF3952 B) + (X-REF3954 X) (FERR-REF3957 FERR) + (BERR-REF3958 BERR) + (WORK-REF3959 WORK) + (RWORK-REF3960 RWORK)) + (%%CPOSVX FACT UPLO N-REF3944 NRHS-REF3945 A-REF3946 LDA-REF3947 + AF-REF3948 LDAF-REF3949 EQUED S-REF3951 B-REF3952 LDB-REF3953 X-REF3954 + LDX-REF3955 RCOND-REF3956 FERR-REF3957 BERR-REF3958 WORK-REF3959 + RWORK-REF3960 INFO-REF3961)))) + +(CFFI:DEFCFUN ("cposvxx_" %%CPOSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -4405,41 +4414,40 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4033 ':INT32) (NRHS-REF4034 ':INT32) - (LDA-REF4036 ':INT32) (LDAF-REF4038 ':INT32) - (LDB-REF4042 ':INT32) (LDX-REF4044 ':INT32) - (RCOND-REF4045 ':FLOAT) (RPVGRW-REF4046 ':FLOAT) - (N_ERR_BNDS-REF4048 ':INT32) - (NPARAMS-REF4051 ':INT32) (INFO-REF4055 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4033 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4034 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4036 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4038 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4042 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4044 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4045 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF4046 :FLOAT) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4048 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4051 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4055 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4035 A) (AF-REF4037 AF) - (S-REF4040 S) (B-REF4041 B) - (X-REF4043 X) (BERR-REF4047 BERR) - (ERR_BNDS_NORM-REF4049 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3964 ':INT32) (NRHS-REF3965 ':INT32) + (LDA-REF3967 ':INT32) (LDAF-REF3969 ':INT32) + (LDB-REF3973 ':INT32) (LDX-REF3975 ':INT32) + (RCOND-REF3976 ':FLOAT) (RPVGRW-REF3977 ':FLOAT) + (N_ERR_BNDS-REF3979 ':INT32) + (NPARAMS-REF3982 ':INT32) (INFO-REF3986 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3964 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF3965 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3967 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF3969 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF3973 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF3975 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF3976 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF3977 :FLOAT) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF3979 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF3982 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3986 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3966 A) (AF-REF3968 AF) + (S-REF3971 S) (B-REF3972 B) + (X-REF3974 X) (BERR-REF3978 BERR) + (ERR_BNDS_NORM-REF3980 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF4050 + (ERR_BNDS_COMP-REF3981 ERR_BNDS_COMP) - (PARAMS-REF4052 PARAMS) - (WORK-REF4053 WORK) - (RWORK-REF4054 RWORK)) - (%%CPOSVXX FACT UPLO N-REF4033 NRHS-REF4034 A-REF4035 LDA-REF4036 - AF-REF4037 LDAF-REF4038 EQUED S-REF4040 B-REF4041 LDB-REF4042 - X-REF4043 LDX-REF4044 RCOND-REF4045 RPVGRW-REF4046 - BERR-REF4047 N_ERR_BNDS-REF4048 ERR_BNDS_NORM-REF4049 - ERR_BNDS_COMP-REF4050 NPARAMS-REF4051 PARAMS-REF4052 - WORK-REF4053 RWORK-REF4054 INFO-REF4055)))) + (PARAMS-REF3983 PARAMS) + (WORK-REF3984 WORK) + (RWORK-REF3985 RWORK)) + (%%CPOSVXX FACT UPLO N-REF3964 NRHS-REF3965 A-REF3966 LDA-REF3967 + AF-REF3968 LDAF-REF3969 EQUED S-REF3971 B-REF3972 LDB-REF3973 X-REF3974 + LDX-REF3975 RCOND-REF3976 RPVGRW-REF3977 BERR-REF3978 N_ERR_BNDS-REF3979 + ERR_BNDS_NORM-REF3980 ERR_BNDS_COMP-REF3981 NPARAMS-REF3982 + PARAMS-REF3983 WORK-REF3984 RWORK-REF3985 INFO-REF3986)))) -(CFFI:DEFCFUN ("cpotf2_" %%CPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpotf2_" %%CPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4458,15 +4466,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4057 ':INT32) (LDA-REF4059 ':INT32) - (INFO-REF4060 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4057 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4059 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4060 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4058 A)) - (%%CPOTF2 UPLO N-REF4057 A-REF4058 LDA-REF4059 INFO-REF4060)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3988 ':INT32) (LDA-REF3990 ':INT32) + (INFO-REF3991 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3988 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3990 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3991 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3989 A)) + (%%CPOTF2 UPLO N-REF3988 A-REF3989 LDA-REF3990 INFO-REF3991)))) -(CFFI:DEFCFUN ("cpotrf_" %%CPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpotrf_" %%CPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4485,15 +4493,16 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4062 ':INT32) (LDA-REF4064 ':INT32) - (INFO-REF4065 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4062 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4064 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4065 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4063 A)) - (%%CPOTRF UPLO N-REF4062 A-REF4063 LDA-REF4064 INFO-REF4065)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3993 ':INT32) (LDA-REF3995 ':INT32) + (INFO-REF3996 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3993 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF3995 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF3996 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3994 A)) + (%%CPOTRF UPLO N-REF3993 A-REF3994 LDA-REF3995 INFO-REF3996)))) -(CFFI:DEFCFUN ("cpotrf2_" %%CPOTRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpotrf2_" %%CPOTRF2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4512,15 +4521,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4067 ':INT32) (LDA-REF4069 ':INT32) - (INFO-REF4070 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4067 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4069 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4070 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4068 A)) - (%%CPOTRF2 UPLO N-REF4067 A-REF4068 LDA-REF4069 INFO-REF4070)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF3998 ':INT32) (LDA-REF4000 ':INT32) + (INFO-REF4001 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF3998 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4000 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4001 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF3999 A)) + (%%CPOTRF2 UPLO N-REF3998 A-REF3999 LDA-REF4000 INFO-REF4001)))) -(CFFI:DEFCFUN ("cpotri_" %%CPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpotri_" %%CPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4539,15 +4548,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4072 ':INT32) (LDA-REF4074 ':INT32) - (INFO-REF4075 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4072 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4074 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4075 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4073 A)) - (%%CPOTRI UPLO N-REF4072 A-REF4073 LDA-REF4074 INFO-REF4075)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4003 ':INT32) (LDA-REF4005 ':INT32) + (INFO-REF4006 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4003 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4005 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4006 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4004 A)) + (%%CPOTRI UPLO N-REF4003 A-REF4004 LDA-REF4005 INFO-REF4006)))) -(CFFI:DEFCFUN ("cpotrs_" %%CPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpotrs_" %%CPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4576,19 +4585,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4077 ':INT32) (NRHS-REF4078 ':INT32) - (LDA-REF4080 ':INT32) (LDB-REF4082 ':INT32) - (INFO-REF4083 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4077 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4078 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4080 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4082 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4083 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4079 A) (B-REF4081 B)) - (%%CPOTRS UPLO N-REF4077 NRHS-REF4078 A-REF4079 LDA-REF4080 B-REF4081 - LDB-REF4082 INFO-REF4083)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4008 ':INT32) (NRHS-REF4009 ':INT32) + (LDA-REF4011 ':INT32) (LDB-REF4013 ':INT32) + (INFO-REF4014 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4008 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4009 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4011 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4013 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4014 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4010 A) (B-REF4012 B)) + (%%CPOTRS UPLO N-REF4008 NRHS-REF4009 A-REF4010 LDA-REF4011 B-REF4012 + LDB-REF4013 INFO-REF4014)))) -(CFFI:DEFCFUN ("cppcon_" %%CPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cppcon_" %%CPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4619,18 +4628,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4085 ':INT32) (ANORM-REF4087 ':FLOAT) - (RCOND-REF4088 ':FLOAT) (INFO-REF4091 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4085 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4087 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4088 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4091 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4086 AP) (WORK-REF4089 WORK) - (RWORK-REF4090 RWORK)) - (%%CPPCON UPLO N-REF4085 AP-REF4086 ANORM-REF4087 RCOND-REF4088 - WORK-REF4089 RWORK-REF4090 INFO-REF4091)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4016 ':INT32) (ANORM-REF4018 ':FLOAT) + (RCOND-REF4019 ':FLOAT) (INFO-REF4022 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4016 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4018 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4019 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4022 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4017 AP) (WORK-REF4020 WORK) + (RWORK-REF4021 RWORK)) + (%%CPPCON UPLO N-REF4016 AP-REF4017 ANORM-REF4018 RCOND-REF4019 + WORK-REF4020 RWORK-REF4021 INFO-REF4022)))) -(CFFI:DEFCFUN ("cppequ_" %%CPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cppequ_" %%CPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4654,17 +4663,17 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4093 ':INT32) (SCOND-REF4096 ':FLOAT) - (AMAX-REF4097 ':FLOAT) (INFO-REF4098 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4093 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4096 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4097 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4098 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4094 AP) (S-REF4095 S)) - (%%CPPEQU UPLO N-REF4093 AP-REF4094 S-REF4095 SCOND-REF4096 AMAX-REF4097 - INFO-REF4098)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4024 ':INT32) (SCOND-REF4027 ':FLOAT) + (AMAX-REF4028 ':FLOAT) (INFO-REF4029 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4024 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4027 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4028 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4029 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4025 AP) (S-REF4026 S)) + (%%CPPEQU UPLO N-REF4024 AP-REF4025 S-REF4026 SCOND-REF4027 AMAX-REF4028 + INFO-REF4029)))) -(CFFI:DEFCFUN ("cpprfs_" %%CPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpprfs_" %%CPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4724,25 +4733,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4100 ':INT32) (NRHS-REF4101 ':INT32) - (LDB-REF4105 ':INT32) (LDX-REF4107 ':INT32) - (INFO-REF4112 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4100 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4101 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4105 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4107 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4112 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4102 AP) (AFP-REF4103 AFP) - (B-REF4104 B) (X-REF4106 X) - (FERR-REF4108 FERR) - (BERR-REF4109 BERR) - (WORK-REF4110 WORK) - (RWORK-REF4111 RWORK)) - (%%CPPRFS UPLO N-REF4100 NRHS-REF4101 AP-REF4102 AFP-REF4103 B-REF4104 - LDB-REF4105 X-REF4106 LDX-REF4107 FERR-REF4108 BERR-REF4109 - WORK-REF4110 RWORK-REF4111 INFO-REF4112)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4031 ':INT32) (NRHS-REF4032 ':INT32) + (LDB-REF4036 ':INT32) (LDX-REF4038 ':INT32) + (INFO-REF4043 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4031 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4032 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4036 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4038 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4043 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4033 AP) (AFP-REF4034 AFP) + (B-REF4035 B) (X-REF4037 X) + (FERR-REF4039 FERR) + (BERR-REF4040 BERR) + (WORK-REF4041 WORK) + (RWORK-REF4042 RWORK)) + (%%CPPRFS UPLO N-REF4031 NRHS-REF4032 AP-REF4033 AFP-REF4034 B-REF4035 + LDB-REF4036 X-REF4037 LDX-REF4038 FERR-REF4039 BERR-REF4040 WORK-REF4041 + RWORK-REF4042 INFO-REF4043)))) -(CFFI:DEFCFUN ("cppsv_" %%CPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cppsv_" %%CPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4769,17 +4778,17 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4114 ':INT32) (NRHS-REF4115 ':INT32) - (LDB-REF4118 ':INT32) (INFO-REF4119 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4114 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4115 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4118 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4119 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4116 AP) (B-REF4117 B)) - (%%CPPSV UPLO N-REF4114 NRHS-REF4115 AP-REF4116 B-REF4117 LDB-REF4118 - INFO-REF4119)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4045 ':INT32) (NRHS-REF4046 ':INT32) + (LDB-REF4049 ':INT32) (INFO-REF4050 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4045 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4046 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4049 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4050 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4047 AP) (B-REF4048 B)) + (%%CPPSV UPLO N-REF4045 NRHS-REF4046 AP-REF4047 B-REF4048 LDB-REF4049 + INFO-REF4050)))) -(CFFI:DEFCFUN ("cppsvx_" %%CPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cppsvx_" %%CPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -4849,27 +4858,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4122 ':INT32) (NRHS-REF4123 ':INT32) - (LDB-REF4129 ':INT32) (LDX-REF4131 ':INT32) - (RCOND-REF4132 ':FLOAT) (INFO-REF4137 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4122 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4123 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4129 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4131 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4132 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4137 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4124 AP) (AFP-REF4125 AFP) - (S-REF4127 S) (B-REF4128 B) - (X-REF4130 X) (FERR-REF4133 FERR) - (BERR-REF4134 BERR) - (WORK-REF4135 WORK) - (RWORK-REF4136 RWORK)) - (%%CPPSVX FACT UPLO N-REF4122 NRHS-REF4123 AP-REF4124 AFP-REF4125 EQUED - S-REF4127 B-REF4128 LDB-REF4129 X-REF4130 LDX-REF4131 - RCOND-REF4132 FERR-REF4133 BERR-REF4134 WORK-REF4135 - RWORK-REF4136 INFO-REF4137)))) - -(CFFI:DEFCFUN ("cpptrf_" %%CPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4053 ':INT32) (NRHS-REF4054 ':INT32) + (LDB-REF4060 ':INT32) (LDX-REF4062 ':INT32) + (RCOND-REF4063 ':FLOAT) (INFO-REF4068 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4053 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4054 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4060 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4062 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4063 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4068 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4055 AP) (AFP-REF4056 AFP) + (S-REF4058 S) (B-REF4059 B) + (X-REF4061 X) (FERR-REF4064 FERR) + (BERR-REF4065 BERR) + (WORK-REF4066 WORK) + (RWORK-REF4067 RWORK)) + (%%CPPSVX FACT UPLO N-REF4053 NRHS-REF4054 AP-REF4055 AFP-REF4056 EQUED + S-REF4058 B-REF4059 LDB-REF4060 X-REF4061 LDX-REF4062 RCOND-REF4063 + FERR-REF4064 BERR-REF4065 WORK-REF4066 RWORK-REF4067 INFO-REF4068)))) + +(CFFI:DEFCFUN ("cpptrf_" %%CPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4886,13 +4894,13 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4139 ':INT32) (INFO-REF4141 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4139 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4141 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4140 AP)) - (%%CPPTRF UPLO N-REF4139 AP-REF4140 INFO-REF4141)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4070 ':INT32) (INFO-REF4072 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4070 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4072 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4071 AP)) + (%%CPPTRF UPLO N-REF4070 AP-REF4071 INFO-REF4072)))) -(CFFI:DEFCFUN ("cpptri_" %%CPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpptri_" %%CPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4909,13 +4917,13 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4143 ':INT32) (INFO-REF4145 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4143 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4145 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4144 AP)) - (%%CPPTRI UPLO N-REF4143 AP-REF4144 INFO-REF4145)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4074 ':INT32) (INFO-REF4076 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4074 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4076 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4075 AP)) + (%%CPPTRI UPLO N-REF4074 AP-REF4075 INFO-REF4076)))) -(CFFI:DEFCFUN ("cpptrs_" %%CPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpptrs_" %%CPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4942,17 +4950,17 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4147 ':INT32) (NRHS-REF4148 ':INT32) - (LDB-REF4151 ':INT32) (INFO-REF4152 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4147 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4148 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4151 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4152 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4149 AP) (B-REF4150 B)) - (%%CPPTRS UPLO N-REF4147 NRHS-REF4148 AP-REF4149 B-REF4150 LDB-REF4151 - INFO-REF4152)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4078 ':INT32) (NRHS-REF4079 ':INT32) + (LDB-REF4082 ':INT32) (INFO-REF4083 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4078 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4079 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4082 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4083 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4080 AP) (B-REF4081 B)) + (%%CPPTRS UPLO N-REF4078 NRHS-REF4079 AP-REF4080 B-REF4081 LDB-REF4082 + INFO-REF4083)))) -(CFFI:DEFCFUN ("cpstf2_" %%CPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpstf2_" %%CPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4984,20 +4992,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4154 ':INT32) (LDA-REF4156 ':INT32) - (RANK-REF4158 ':INT32) (TOL-REF4159 ':FLOAT) - (INFO-REF4161 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4154 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4156 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF4158 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF4159 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4161 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4155 A) (PIV-REF4157 PIV) - (WORK-REF4160 WORK)) - (%%CPSTF2 UPLO N-REF4154 A-REF4155 LDA-REF4156 PIV-REF4157 RANK-REF4158 - TOL-REF4159 WORK-REF4160 INFO-REF4161)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4085 ':INT32) (LDA-REF4087 ':INT32) + (RANK-REF4089 ':INT32) (TOL-REF4090 ':FLOAT) + (INFO-REF4092 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4085 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4087 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF4089 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF4090 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4092 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4086 A) (PIV-REF4088 PIV) + (WORK-REF4091 WORK)) + (%%CPSTF2 UPLO N-REF4085 A-REF4086 LDA-REF4087 PIV-REF4088 RANK-REF4089 + TOL-REF4090 WORK-REF4091 INFO-REF4092)))) -(CFFI:DEFCFUN ("cpstrf_" %%CPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpstrf_" %%CPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5029,20 +5037,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4163 ':INT32) (LDA-REF4165 ':INT32) - (RANK-REF4167 ':INT32) (TOL-REF4168 ':FLOAT) - (INFO-REF4170 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4163 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4165 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF4167 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF4168 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4170 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4164 A) (PIV-REF4166 PIV) - (WORK-REF4169 WORK)) - (%%CPSTRF UPLO N-REF4163 A-REF4164 LDA-REF4165 PIV-REF4166 RANK-REF4167 - TOL-REF4168 WORK-REF4169 INFO-REF4170)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4094 ':INT32) (LDA-REF4096 ':INT32) + (RANK-REF4098 ':INT32) (TOL-REF4099 ':FLOAT) + (INFO-REF4101 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4094 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4096 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF4098 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF4099 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4101 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4095 A) (PIV-REF4097 PIV) + (WORK-REF4100 WORK)) + (%%CPSTRF UPLO N-REF4094 A-REF4095 LDA-REF4096 PIV-REF4097 RANK-REF4098 + TOL-REF4099 WORK-REF4100 INFO-REF4101)))) -(CFFI:DEFCFUN ("cptcon_" %%CPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cptcon_" %%CPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -5068,18 +5076,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4171 ':INT32) (ANORM-REF4174 ':FLOAT) - (RCOND-REF4175 ':FLOAT) (INFO-REF4177 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4171 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4174 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4175 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4177 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4172 D) (E-REF4173 E) - (RWORK-REF4176 RWORK)) - (%%CPTCON N-REF4171 D-REF4172 E-REF4173 ANORM-REF4174 RCOND-REF4175 - RWORK-REF4176 INFO-REF4177)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4102 ':INT32) (ANORM-REF4105 ':FLOAT) + (RCOND-REF4106 ':FLOAT) (INFO-REF4108 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4102 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4105 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4106 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4108 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4103 D) (E-REF4104 E) + (RWORK-REF4107 RWORK)) + (%%CPTCON N-REF4102 D-REF4103 E-REF4104 ANORM-REF4105 RCOND-REF4106 + RWORK-REF4107 INFO-REF4108)))) -(CFFI:DEFCFUN ("cpteqr_" %%CPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpteqr_" %%CPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -5108,17 +5116,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4179 ':INT32) (LDZ-REF4183 ':INT32) - (INFO-REF4185 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4179 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4183 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4185 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4180 D) (E-REF4181 E) - (Z-REF4182 Z) (WORK-REF4184 WORK)) - (%%CPTEQR COMPZ N-REF4179 D-REF4180 E-REF4181 Z-REF4182 LDZ-REF4183 - WORK-REF4184 INFO-REF4185)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4110 ':INT32) (LDZ-REF4114 ':INT32) + (INFO-REF4116 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4110 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4114 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4116 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4111 D) (E-REF4112 E) + (Z-REF4113 Z) (WORK-REF4115 WORK)) + (%%CPTEQR COMPZ N-REF4110 D-REF4111 E-REF4112 Z-REF4113 LDZ-REF4114 + WORK-REF4115 INFO-REF4116)))) -(CFFI:DEFCFUN ("cptrfs_" %%CPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cptrfs_" %%CPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5185,27 +5193,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4187 ':INT32) (NRHS-REF4188 ':INT32) - (LDB-REF4194 ':INT32) (LDX-REF4196 ':INT32) - (INFO-REF4201 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4187 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4188 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4194 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4196 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4201 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4189 D) (E-REF4190 E) - (DF-REF4191 DF) (EF-REF4192 EF) - (B-REF4193 B) (X-REF4195 X) - (FERR-REF4197 FERR) - (BERR-REF4198 BERR) - (WORK-REF4199 WORK) - (RWORK-REF4200 RWORK)) - (%%CPTRFS UPLO N-REF4187 NRHS-REF4188 D-REF4189 E-REF4190 DF-REF4191 - EF-REF4192 B-REF4193 LDB-REF4194 X-REF4195 LDX-REF4196 - FERR-REF4197 BERR-REF4198 WORK-REF4199 RWORK-REF4200 - INFO-REF4201)))) - -(CFFI:DEFCFUN ("cptsv_" %%CPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4118 ':INT32) (NRHS-REF4119 ':INT32) + (LDB-REF4125 ':INT32) (LDX-REF4127 ':INT32) + (INFO-REF4132 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4118 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4119 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4125 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4127 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4132 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4120 D) (E-REF4121 E) + (DF-REF4122 DF) (EF-REF4123 EF) + (B-REF4124 B) (X-REF4126 X) + (FERR-REF4128 FERR) + (BERR-REF4129 BERR) + (WORK-REF4130 WORK) + (RWORK-REF4131 RWORK)) + (%%CPTRFS UPLO N-REF4118 NRHS-REF4119 D-REF4120 E-REF4121 DF-REF4122 + EF-REF4123 B-REF4124 LDB-REF4125 X-REF4126 LDX-REF4127 FERR-REF4128 + BERR-REF4129 WORK-REF4130 RWORK-REF4131 INFO-REF4132)))) + +(CFFI:DEFCFUN ("cptsv_" %%CPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -5233,18 +5240,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4202 ':INT32) (NRHS-REF4203 ':INT32) - (LDB-REF4207 ':INT32) (INFO-REF4208 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4202 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4203 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4207 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4208 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4204 D) (E-REF4205 E) - (B-REF4206 B)) - (%%CPTSV N-REF4202 NRHS-REF4203 D-REF4204 E-REF4205 B-REF4206 LDB-REF4207 - INFO-REF4208)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4133 ':INT32) (NRHS-REF4134 ':INT32) + (LDB-REF4138 ':INT32) (INFO-REF4139 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4133 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4134 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4138 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4139 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4135 D) (E-REF4136 E) + (B-REF4137 B)) + (%%CPTSV N-REF4133 NRHS-REF4134 D-REF4135 E-REF4136 B-REF4137 LDB-REF4138 + INFO-REF4139)))) -(CFFI:DEFCFUN ("cptsvx_" %%CPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cptsvx_" %%CPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (N :POINTER) @@ -5313,28 +5320,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4210 ':INT32) (NRHS-REF4211 ':INT32) - (LDB-REF4217 ':INT32) (LDX-REF4219 ':INT32) - (RCOND-REF4220 ':FLOAT) (INFO-REF4225 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4210 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4211 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4217 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4219 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4220 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4225 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4212 D) (E-REF4213 E) - (DF-REF4214 DF) (EF-REF4215 EF) - (B-REF4216 B) (X-REF4218 X) - (FERR-REF4221 FERR) - (BERR-REF4222 BERR) - (WORK-REF4223 WORK) - (RWORK-REF4224 RWORK)) - (%%CPTSVX FACT N-REF4210 NRHS-REF4211 D-REF4212 E-REF4213 DF-REF4214 - EF-REF4215 B-REF4216 LDB-REF4217 X-REF4218 LDX-REF4219 - RCOND-REF4220 FERR-REF4221 BERR-REF4222 WORK-REF4223 - RWORK-REF4224 INFO-REF4225)))) - -(CFFI:DEFCFUN ("cpttrf_" %%CPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4141 ':INT32) (NRHS-REF4142 ':INT32) + (LDB-REF4148 ':INT32) (LDX-REF4150 ':INT32) + (RCOND-REF4151 ':FLOAT) (INFO-REF4156 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4141 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4142 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4148 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4150 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4151 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4156 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4143 D) (E-REF4144 E) + (DF-REF4145 DF) (EF-REF4146 EF) + (B-REF4147 B) (X-REF4149 X) + (FERR-REF4152 FERR) + (BERR-REF4153 BERR) + (WORK-REF4154 WORK) + (RWORK-REF4155 RWORK)) + (%%CPTSVX FACT N-REF4141 NRHS-REF4142 D-REF4143 E-REF4144 DF-REF4145 + EF-REF4146 B-REF4147 LDB-REF4148 X-REF4149 LDX-REF4150 RCOND-REF4151 + FERR-REF4152 BERR-REF4153 WORK-REF4154 RWORK-REF4155 INFO-REF4156)))) + +(CFFI:DEFCFUN ("cpttrf_" %%CPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -5352,13 +5358,13 @@ (COMMON-LISP:*)) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4226 ':INT32) (INFO-REF4229 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4226 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4229 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4227 D) (E-REF4228 E)) - (%%CPTTRF N-REF4226 D-REF4227 E-REF4228 INFO-REF4229)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4157 ':INT32) (INFO-REF4160 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4157 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4160 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4158 D) (E-REF4159 E)) + (%%CPTTRF N-REF4157 D-REF4158 E-REF4159 INFO-REF4160)))) -(CFFI:DEFCFUN ("cpttrs_" %%CPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cpttrs_" %%CPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5388,18 +5394,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4231 ':INT32) (NRHS-REF4232 ':INT32) - (LDB-REF4236 ':INT32) (INFO-REF4237 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4231 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4232 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4236 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4237 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4233 D) (E-REF4234 E) - (B-REF4235 B)) - (%%CPTTRS UPLO N-REF4231 NRHS-REF4232 D-REF4233 E-REF4234 B-REF4235 - LDB-REF4236 INFO-REF4237)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4162 ':INT32) (NRHS-REF4163 ':INT32) + (LDB-REF4167 ':INT32) (INFO-REF4168 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4162 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4163 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4167 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4168 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4164 D) (E-REF4165 E) + (B-REF4166 B)) + (%%CPTTRS UPLO N-REF4162 NRHS-REF4163 D-REF4164 E-REF4165 B-REF4166 + LDB-REF4167 INFO-REF4168)))) -(CFFI:DEFCFUN ("cptts2_" %%CPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cptts2_" %%CPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IUPLO :POINTER) (N :POINTER) @@ -5427,18 +5433,18 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF4238 ':INT32) (N-REF4239 ':INT32) - (NRHS-REF4240 ':INT32) (LDB-REF4244 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF4238 :INT32) IUPLO) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4239 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4240 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4244 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4241 D) (E-REF4242 E) - (B-REF4243 B)) - (%%CPTTS2 IUPLO-REF4238 N-REF4239 NRHS-REF4240 D-REF4241 E-REF4242 - B-REF4243 LDB-REF4244)))) + (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF4169 ':INT32) (N-REF4170 ':INT32) + (NRHS-REF4171 ':INT32) (LDB-REF4175 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF4169 :INT32) IUPLO) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4170 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4171 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4175 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4172 D) (E-REF4173 E) + (B-REF4174 B)) + (%%CPTTS2 IUPLO-REF4169 N-REF4170 NRHS-REF4171 D-REF4172 E-REF4173 + B-REF4174 LDB-REF4175)))) -(CFFI:DEFCFUN ("crot_" %%CROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("crot_" %%CROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (CX :POINTER) @@ -5466,23 +5472,23 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4245 ':INT32) (INCX-REF4247 ':INT32) - (INCY-REF4249 ':INT32) (C-REF4250 ':FLOAT) - (S-REF4251 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4176 ':INT32) (INCX-REF4178 ':INT32) + (INCY-REF4180 ':INT32) (C-REF4181 ':FLOAT) + (S-REF4182 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4245 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4247 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4249 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF4250 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4176 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4178 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4180 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF4181 :FLOAT) C) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S-REF4251 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) + S-REF4182 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF4246 CX) (CY-REF4248 CY)) - (%%CROT N-REF4245 CX-REF4246 INCX-REF4247 CY-REF4248 INCY-REF4249 - C-REF4250 S-REF4251)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF4177 CX) (CY-REF4179 CY)) + (%%CROT N-REF4176 CX-REF4177 INCX-REF4178 CY-REF4179 INCY-REF4180 + C-REF4181 S-REF4182)))) -(CFFI:DEFCFUN ("cspcon_" %%CSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cspcon_" %%CSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5514,18 +5520,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4253 ':INT32) (ANORM-REF4256 ':FLOAT) - (RCOND-REF4257 ':FLOAT) (INFO-REF4259 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4253 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4256 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4257 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4259 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4254 AP) (IPIV-REF4255 IPIV) - (WORK-REF4258 WORK)) - (%%CSPCON UPLO N-REF4253 AP-REF4254 IPIV-REF4255 ANORM-REF4256 - RCOND-REF4257 WORK-REF4258 INFO-REF4259)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4184 ':INT32) (ANORM-REF4187 ':FLOAT) + (RCOND-REF4188 ':FLOAT) (INFO-REF4190 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4184 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4187 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4188 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4190 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4185 AP) (IPIV-REF4186 IPIV) + (WORK-REF4189 WORK)) + (%%CSPCON UPLO N-REF4184 AP-REF4185 IPIV-REF4186 ANORM-REF4187 + RCOND-REF4188 WORK-REF4189 INFO-REF4190)))) -(CFFI:DEFCFUN ("cspmv_" %%CSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cspmv_" %%CSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5562,32 +5568,32 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4261 ':INT32) - (ALPHA-REF4262 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4192 ':INT32) + (ALPHA-REF4193 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF4265 ':INT32) - (BETA-REF4266 + (INCX-REF4196 ':INT32) + (BETA-REF4197 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCY-REF4268 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4261 :INT32) N) + (INCY-REF4199 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4192 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF4262 + ALPHA-REF4193 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4265 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4196 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF4266 + BETA-REF4197 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4268 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4263 AP) (X-REF4264 X) - (Y-REF4267 Y)) - (%%CSPMV UPLO N-REF4261 ALPHA-REF4262 AP-REF4263 X-REF4264 INCX-REF4265 - BETA-REF4266 Y-REF4267 INCY-REF4268)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4199 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4194 AP) (X-REF4195 X) + (Y-REF4198 Y)) + (%%CSPMV UPLO N-REF4192 ALPHA-REF4193 AP-REF4194 X-REF4195 INCX-REF4196 + BETA-REF4197 Y-REF4198 INCY-REF4199)))) -(CFFI:DEFCFUN ("cspr_" %%CSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cspr_" %%CSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5613,21 +5619,21 @@ (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*)) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4270 ':INT32) - (ALPHA-REF4271 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4201 ':INT32) + (ALPHA-REF4202 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF4273 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4270 :INT32) N) + (INCX-REF4204 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4201 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF4271 + ALPHA-REF4202 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4273 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF4272 X) (AP-REF4274 AP)) - (%%CSPR UPLO N-REF4270 ALPHA-REF4271 X-REF4272 INCX-REF4273 AP-REF4274)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4204 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF4203 X) (AP-REF4205 AP)) + (%%CSPR UPLO N-REF4201 ALPHA-REF4202 X-REF4203 INCX-REF4204 AP-REF4205)))) -(CFFI:DEFCFUN ("csprfs_" %%CSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csprfs_" %%CSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5693,25 +5699,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4276 ':INT32) (NRHS-REF4277 ':INT32) - (LDB-REF4282 ':INT32) (LDX-REF4284 ':INT32) - (INFO-REF4289 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4276 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4277 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4282 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4284 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4289 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4278 AP) (AFP-REF4279 AFP) - (IPIV-REF4280 IPIV) (B-REF4281 B) - (X-REF4283 X) (FERR-REF4285 FERR) - (BERR-REF4286 BERR) - (WORK-REF4287 WORK) - (RWORK-REF4288 RWORK)) - (%%CSPRFS UPLO N-REF4276 NRHS-REF4277 AP-REF4278 AFP-REF4279 IPIV-REF4280 - B-REF4281 LDB-REF4282 X-REF4283 LDX-REF4284 FERR-REF4285 - BERR-REF4286 WORK-REF4287 RWORK-REF4288 INFO-REF4289)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4207 ':INT32) (NRHS-REF4208 ':INT32) + (LDB-REF4213 ':INT32) (LDX-REF4215 ':INT32) + (INFO-REF4220 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4207 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4208 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4213 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4215 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4220 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4209 AP) (AFP-REF4210 AFP) + (IPIV-REF4211 IPIV) (B-REF4212 B) + (X-REF4214 X) (FERR-REF4216 FERR) + (BERR-REF4217 BERR) + (WORK-REF4218 WORK) + (RWORK-REF4219 RWORK)) + (%%CSPRFS UPLO N-REF4207 NRHS-REF4208 AP-REF4209 AFP-REF4210 IPIV-REF4211 + B-REF4212 LDB-REF4213 X-REF4214 LDX-REF4215 FERR-REF4216 BERR-REF4217 + WORK-REF4218 RWORK-REF4219 INFO-REF4220)))) -(CFFI:DEFCFUN ("cspsv_" %%CSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cspsv_" %%CSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5743,18 +5749,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4291 ':INT32) (NRHS-REF4292 ':INT32) - (LDB-REF4296 ':INT32) (INFO-REF4297 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4291 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4292 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4296 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4297 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4293 AP) (IPIV-REF4294 IPIV) - (B-REF4295 B)) - (%%CSPSV UPLO N-REF4291 NRHS-REF4292 AP-REF4293 IPIV-REF4294 B-REF4295 - LDB-REF4296 INFO-REF4297)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4222 ':INT32) (NRHS-REF4223 ':INT32) + (LDB-REF4227 ':INT32) (INFO-REF4228 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4222 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4223 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4227 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4228 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4224 AP) (IPIV-REF4225 IPIV) + (B-REF4226 B)) + (%%CSPSV UPLO N-REF4222 NRHS-REF4223 AP-REF4224 IPIV-REF4225 B-REF4226 + LDB-REF4227 INFO-REF4228)))) -(CFFI:DEFCFUN ("cspsvx_" %%CSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cspsvx_" %%CSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -5824,27 +5830,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4300 ':INT32) (NRHS-REF4301 ':INT32) - (LDB-REF4306 ':INT32) (LDX-REF4308 ':INT32) - (RCOND-REF4309 ':FLOAT) (INFO-REF4314 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4300 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4301 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4306 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4308 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4309 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4314 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4302 AP) (AFP-REF4303 AFP) - (IPIV-REF4304 IPIV) (B-REF4305 B) - (X-REF4307 X) (FERR-REF4310 FERR) - (BERR-REF4311 BERR) - (WORK-REF4312 WORK) - (RWORK-REF4313 RWORK)) - (%%CSPSVX FACT UPLO N-REF4300 NRHS-REF4301 AP-REF4302 AFP-REF4303 - IPIV-REF4304 B-REF4305 LDB-REF4306 X-REF4307 LDX-REF4308 - RCOND-REF4309 FERR-REF4310 BERR-REF4311 WORK-REF4312 - RWORK-REF4313 INFO-REF4314)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4231 ':INT32) (NRHS-REF4232 ':INT32) + (LDB-REF4237 ':INT32) (LDX-REF4239 ':INT32) + (RCOND-REF4240 ':FLOAT) (INFO-REF4245 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4231 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4232 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4237 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4239 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4240 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4245 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4233 AP) (AFP-REF4234 AFP) + (IPIV-REF4235 IPIV) (B-REF4236 B) + (X-REF4238 X) (FERR-REF4241 FERR) + (BERR-REF4242 BERR) + (WORK-REF4243 WORK) + (RWORK-REF4244 RWORK)) + (%%CSPSVX FACT UPLO N-REF4231 NRHS-REF4232 AP-REF4233 AFP-REF4234 + IPIV-REF4235 B-REF4236 LDB-REF4237 X-REF4238 LDX-REF4239 RCOND-REF4240 + FERR-REF4241 BERR-REF4242 WORK-REF4243 RWORK-REF4244 INFO-REF4245)))) -(CFFI:DEFCFUN ("csptrf_" %%CSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csptrf_" %%CSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5866,13 +5871,13 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4316 ':INT32) (INFO-REF4319 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4316 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4319 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4317 AP) (IPIV-REF4318 IPIV)) - (%%CSPTRF UPLO N-REF4316 AP-REF4317 IPIV-REF4318 INFO-REF4319)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4247 ':INT32) (INFO-REF4250 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4247 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4250 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4248 AP) (IPIV-REF4249 IPIV)) + (%%CSPTRF UPLO N-REF4247 AP-REF4248 IPIV-REF4249 INFO-REF4250)))) -(CFFI:DEFCFUN ("csptri_" %%CSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csptri_" %%CSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5900,15 +5905,15 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4321 ':INT32) (INFO-REF4325 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4321 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4325 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4322 AP) (IPIV-REF4323 IPIV) - (WORK-REF4324 WORK)) - (%%CSPTRI UPLO N-REF4321 AP-REF4322 IPIV-REF4323 WORK-REF4324 - INFO-REF4325)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4252 ':INT32) (INFO-REF4256 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4252 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4256 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4253 AP) (IPIV-REF4254 IPIV) + (WORK-REF4255 WORK)) + (%%CSPTRI UPLO N-REF4252 AP-REF4253 IPIV-REF4254 WORK-REF4255 + INFO-REF4256)))) -(CFFI:DEFCFUN ("csptrs_" %%CSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csptrs_" %%CSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5940,18 +5945,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4327 ':INT32) (NRHS-REF4328 ':INT32) - (LDB-REF4332 ':INT32) (INFO-REF4333 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4327 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4328 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4332 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4333 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4329 AP) (IPIV-REF4330 IPIV) - (B-REF4331 B)) - (%%CSPTRS UPLO N-REF4327 NRHS-REF4328 AP-REF4329 IPIV-REF4330 B-REF4331 - LDB-REF4332 INFO-REF4333)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4258 ':INT32) (NRHS-REF4259 ':INT32) + (LDB-REF4263 ':INT32) (INFO-REF4264 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4258 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4259 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4263 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4264 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4260 AP) (IPIV-REF4261 IPIV) + (B-REF4262 B)) + (%%CSPTRS UPLO N-REF4258 NRHS-REF4259 AP-REF4260 IPIV-REF4261 B-REF4262 + LDB-REF4263 INFO-REF4264)))) -(CFFI:DEFCFUN ("csrscl_" %%CSRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csrscl_" %%CSRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (SA :POINTER) @@ -5968,15 +5973,15 @@ (COMMON-LISP:*)) SX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4334 ':INT32) (SA-REF4335 ':FLOAT) - (INCX-REF4337 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4334 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF4335 :FLOAT) SA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4337 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF4336 SX)) - (%%CSRSCL N-REF4334 SA-REF4335 SX-REF4336 INCX-REF4337)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4265 ':INT32) (SA-REF4266 ':FLOAT) + (INCX-REF4268 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4265 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF4266 :FLOAT) SA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4268 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF4267 SX)) + (%%CSRSCL N-REF4265 SA-REF4266 SX-REF4267 INCX-REF4268)))) -(CFFI:DEFCFUN ("cstedc_" %%CSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cstedc_" %%CSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -6024,24 +6029,24 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4339 ':INT32) (LDZ-REF4343 ':INT32) - (LWORK-REF4345 ':INT32) (LRWORK-REF4347 ':INT32) - (LIWORK-REF4349 ':INT32) (INFO-REF4350 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4339 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4343 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4345 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF4347 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4349 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4350 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4340 D) (E-REF4341 E) - (Z-REF4342 Z) (WORK-REF4344 WORK) - (RWORK-REF4346 RWORK) - (IWORK-REF4348 IWORK)) - (%%CSTEDC COMPZ N-REF4339 D-REF4340 E-REF4341 Z-REF4342 LDZ-REF4343 - WORK-REF4344 LWORK-REF4345 RWORK-REF4346 LRWORK-REF4347 - IWORK-REF4348 LIWORK-REF4349 INFO-REF4350)))) - -(CFFI:DEFCFUN ("cstegr_" %%CSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4270 ':INT32) (LDZ-REF4274 ':INT32) + (LWORK-REF4276 ':INT32) (LRWORK-REF4278 ':INT32) + (LIWORK-REF4280 ':INT32) (INFO-REF4281 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4270 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4274 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4276 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF4278 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4280 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4281 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4271 D) (E-REF4272 E) + (Z-REF4273 Z) (WORK-REF4275 WORK) + (RWORK-REF4277 RWORK) + (IWORK-REF4279 IWORK)) + (%%CSTEDC COMPZ N-REF4270 D-REF4271 E-REF4272 Z-REF4273 LDZ-REF4274 + WORK-REF4275 LWORK-REF4276 RWORK-REF4277 LRWORK-REF4278 IWORK-REF4279 + LIWORK-REF4280 INFO-REF4281)))) + +(CFFI:DEFCFUN ("cstegr_" %%CSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -6103,34 +6108,34 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4353 ':INT32) (VL-REF4356 ':FLOAT) - (VU-REF4357 ':FLOAT) (IL-REF4358 ':INT32) - (IU-REF4359 ':INT32) (ABSTOL-REF4360 ':FLOAT) - (M-REF4361 ':INT32) (LDZ-REF4364 ':INT32) - (LWORK-REF4367 ':INT32) (LIWORK-REF4369 ':INT32) - (INFO-REF4370 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4353 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4356 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4357 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4358 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4359 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF4360 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4361 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4364 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4367 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4369 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4370 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4354 D) (E-REF4355 E) - (W-REF4362 W) (Z-REF4363 Z) - (ISUPPZ-REF4365 ISUPPZ) - (WORK-REF4366 WORK) - (IWORK-REF4368 IWORK)) - (%%CSTEGR JOBZ RANGE N-REF4353 D-REF4354 E-REF4355 VL-REF4356 VU-REF4357 - IL-REF4358 IU-REF4359 ABSTOL-REF4360 M-REF4361 W-REF4362 - Z-REF4363 LDZ-REF4364 ISUPPZ-REF4365 WORK-REF4366 LWORK-REF4367 - IWORK-REF4368 LIWORK-REF4369 INFO-REF4370)))) - -(CFFI:DEFCFUN ("cstein_" %%CSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4284 ':INT32) (VL-REF4287 ':FLOAT) + (VU-REF4288 ':FLOAT) (IL-REF4289 ':INT32) + (IU-REF4290 ':INT32) (ABSTOL-REF4291 ':FLOAT) + (M-REF4292 ':INT32) (LDZ-REF4295 ':INT32) + (LWORK-REF4298 ':INT32) (LIWORK-REF4300 ':INT32) + (INFO-REF4301 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4284 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4287 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4288 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4289 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4290 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF4291 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4292 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4295 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4298 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4300 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4301 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4285 D) (E-REF4286 E) + (W-REF4293 W) (Z-REF4294 Z) + (ISUPPZ-REF4296 ISUPPZ) + (WORK-REF4297 WORK) + (IWORK-REF4299 IWORK)) + (%%CSTEGR JOBZ RANGE N-REF4284 D-REF4285 E-REF4286 VL-REF4287 VU-REF4288 + IL-REF4289 IU-REF4290 ABSTOL-REF4291 M-REF4292 W-REF4293 Z-REF4294 + LDZ-REF4295 ISUPPZ-REF4296 WORK-REF4297 LWORK-REF4298 IWORK-REF4299 + LIWORK-REF4300 INFO-REF4301)))) + +(CFFI:DEFCFUN ("cstein_" %%CSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -6183,24 +6188,24 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4371 ':INT32) (M-REF4374 ':INT32) - (LDZ-REF4379 ':INT32) (INFO-REF4383 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4371 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4374 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4379 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4383 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4372 D) (E-REF4373 E) - (W-REF4375 W) - (IBLOCK-REF4376 IBLOCK) - (ISPLIT-REF4377 ISPLIT) - (Z-REF4378 Z) (WORK-REF4380 WORK) - (IWORK-REF4381 IWORK) - (IFAIL-REF4382 IFAIL)) - (%%CSTEIN N-REF4371 D-REF4372 E-REF4373 M-REF4374 W-REF4375 - IBLOCK-REF4376 ISPLIT-REF4377 Z-REF4378 LDZ-REF4379 - WORK-REF4380 IWORK-REF4381 IFAIL-REF4382 INFO-REF4383)))) - -(CFFI:DEFCFUN ("cstemr_" %%CSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4302 ':INT32) (M-REF4305 ':INT32) + (LDZ-REF4310 ':INT32) (INFO-REF4314 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4302 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4305 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4310 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4314 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4303 D) (E-REF4304 E) + (W-REF4306 W) + (IBLOCK-REF4307 IBLOCK) + (ISPLIT-REF4308 ISPLIT) + (Z-REF4309 Z) (WORK-REF4311 WORK) + (IWORK-REF4312 IWORK) + (IFAIL-REF4313 IFAIL)) + (%%CSTEIN N-REF4302 D-REF4303 E-REF4304 M-REF4305 W-REF4306 + IBLOCK-REF4307 ISPLIT-REF4308 Z-REF4309 LDZ-REF4310 WORK-REF4311 + IWORK-REF4312 IFAIL-REF4313 INFO-REF4314)))) + +(CFFI:DEFCFUN ("cstemr_" %%CSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -6264,35 +6269,35 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4386 ':INT32) (VL-REF4389 ':FLOAT) - (VU-REF4390 ':FLOAT) (IL-REF4391 ':INT32) - (IU-REF4392 ':INT32) (M-REF4393 ':INT32) - (LDZ-REF4396 ':INT32) (NZC-REF4397 ':INT32) - (TRYRAC-REF4399 ':INT32) (LWORK-REF4401 ':INT32) - (LIWORK-REF4403 ':INT32) (INFO-REF4404 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4386 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4389 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4390 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4391 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4392 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4393 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4396 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF4397 :INT32) NZC) - (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF4399 :INT32) TRYRAC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4401 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4403 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4404 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4387 D) (E-REF4388 E) - (W-REF4394 W) (Z-REF4395 Z) - (ISUPPZ-REF4398 ISUPPZ) - (WORK-REF4400 WORK) - (IWORK-REF4402 IWORK)) - (%%CSTEMR JOBZ RANGE N-REF4386 D-REF4387 E-REF4388 VL-REF4389 VU-REF4390 - IL-REF4391 IU-REF4392 M-REF4393 W-REF4394 Z-REF4395 LDZ-REF4396 - NZC-REF4397 ISUPPZ-REF4398 TRYRAC-REF4399 WORK-REF4400 - LWORK-REF4401 IWORK-REF4402 LIWORK-REF4403 INFO-REF4404)))) - -(CFFI:DEFCFUN ("csteqr_" %%CSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4317 ':INT32) (VL-REF4320 ':FLOAT) + (VU-REF4321 ':FLOAT) (IL-REF4322 ':INT32) + (IU-REF4323 ':INT32) (M-REF4324 ':INT32) + (LDZ-REF4327 ':INT32) (NZC-REF4328 ':INT32) + (TRYRAC-REF4330 ':INT32) (LWORK-REF4332 ':INT32) + (LIWORK-REF4334 ':INT32) (INFO-REF4335 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4317 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF4320 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF4321 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF4322 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF4323 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4324 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4327 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF4328 :INT32) NZC) + (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF4330 :INT32) TRYRAC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4332 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4334 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4335 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4318 D) (E-REF4319 E) + (W-REF4325 W) (Z-REF4326 Z) + (ISUPPZ-REF4329 ISUPPZ) + (WORK-REF4331 WORK) + (IWORK-REF4333 IWORK)) + (%%CSTEMR JOBZ RANGE N-REF4317 D-REF4318 E-REF4319 VL-REF4320 VU-REF4321 + IL-REF4322 IU-REF4323 M-REF4324 W-REF4325 Z-REF4326 LDZ-REF4327 + NZC-REF4328 ISUPPZ-REF4329 TRYRAC-REF4330 WORK-REF4331 LWORK-REF4332 + IWORK-REF4333 LIWORK-REF4334 INFO-REF4335)))) + +(CFFI:DEFCFUN ("csteqr_" %%CSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -6321,17 +6326,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4406 ':INT32) (LDZ-REF4410 ':INT32) - (INFO-REF4412 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4406 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4410 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4412 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4407 D) (E-REF4408 E) - (Z-REF4409 Z) (WORK-REF4411 WORK)) - (%%CSTEQR COMPZ N-REF4406 D-REF4407 E-REF4408 Z-REF4409 LDZ-REF4410 - WORK-REF4411 INFO-REF4412)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4337 ':INT32) (LDZ-REF4341 ':INT32) + (INFO-REF4343 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4337 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4341 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4343 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF4338 D) (E-REF4339 E) + (Z-REF4340 Z) (WORK-REF4342 WORK)) + (%%CSTEQR COMPZ N-REF4337 D-REF4338 E-REF4339 Z-REF4340 LDZ-REF4341 + WORK-REF4342 INFO-REF4343)))) -(CFFI:DEFCFUN ("csycon_" %%CSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csycon_" %%CSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6365,21 +6370,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4414 ':INT32) (LDA-REF4416 ':INT32) - (ANORM-REF4418 ':FLOAT) (RCOND-REF4419 ':FLOAT) - (INFO-REF4421 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4414 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4416 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4418 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4419 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4421 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4415 A) (IPIV-REF4417 IPIV) - (WORK-REF4420 WORK)) - (%%CSYCON UPLO N-REF4414 A-REF4415 LDA-REF4416 IPIV-REF4417 ANORM-REF4418 - RCOND-REF4419 WORK-REF4420 INFO-REF4421)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4345 ':INT32) (LDA-REF4347 ':INT32) + (ANORM-REF4349 ':FLOAT) (RCOND-REF4350 ':FLOAT) + (INFO-REF4352 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4345 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4347 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4349 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4350 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4352 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4346 A) (IPIV-REF4348 IPIV) + (WORK-REF4351 WORK)) + (%%CSYCON UPLO N-REF4345 A-REF4346 LDA-REF4347 IPIV-REF4348 ANORM-REF4349 + RCOND-REF4350 WORK-REF4351 INFO-REF4352)))) (CFFI:DEFCFUN ("csycon_3_" %%CSYCON_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6419,22 +6424,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4423 ':INT32) (LDA-REF4425 ':INT32) - (ANORM-REF4428 ':FLOAT) (RCOND-REF4429 ':FLOAT) - (INFO-REF4431 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4423 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4425 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4428 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4429 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4431 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4424 A) (E-REF4426 E) - (IPIV-REF4427 IPIV) - (WORK-REF4430 WORK)) - (%%CSYCON_3 UPLO N-REF4423 A-REF4424 LDA-REF4425 E-REF4426 IPIV-REF4427 - ANORM-REF4428 RCOND-REF4429 WORK-REF4430 INFO-REF4431)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4354 ':INT32) (LDA-REF4356 ':INT32) + (ANORM-REF4359 ':FLOAT) (RCOND-REF4360 ':FLOAT) + (INFO-REF4362 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4354 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4356 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4359 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4360 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4362 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4355 A) (E-REF4357 E) + (IPIV-REF4358 IPIV) + (WORK-REF4361 WORK)) + (%%CSYCON_3 UPLO N-REF4354 A-REF4355 LDA-REF4356 E-REF4357 IPIV-REF4358 + ANORM-REF4359 RCOND-REF4360 WORK-REF4361 INFO-REF4362)))) (CFFI:DEFCFUN ("csycon_rook_" %%CSYCON_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6468,20 +6473,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4433 ':INT32) (LDA-REF4435 ':INT32) - (ANORM-REF4437 ':FLOAT) (RCOND-REF4438 ':FLOAT) - (INFO-REF4440 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4433 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4435 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4437 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4438 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4440 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4434 A) (IPIV-REF4436 IPIV) - (WORK-REF4439 WORK)) - (%%CSYCON_ROOK UPLO N-REF4433 A-REF4434 LDA-REF4435 IPIV-REF4436 - ANORM-REF4437 RCOND-REF4438 WORK-REF4439 INFO-REF4440)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4364 ':INT32) (LDA-REF4366 ':INT32) + (ANORM-REF4368 ':FLOAT) (RCOND-REF4369 ':FLOAT) + (INFO-REF4371 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4364 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4366 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF4368 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4369 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4371 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4365 A) (IPIV-REF4367 IPIV) + (WORK-REF4370 WORK)) + (%%CSYCON_ROOK UPLO N-REF4364 A-REF4365 LDA-REF4366 IPIV-REF4367 + ANORM-REF4368 RCOND-REF4369 WORK-REF4370 INFO-REF4371)))) -(CFFI:DEFCFUN ("csyconv_" %%CSYCONV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csyconv_" %%CSYCONV :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -6513,18 +6519,18 @@ (COMMON-LISP:*)) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4443 ':INT32) (LDA-REF4445 ':INT32) - (INFO-REF4448 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4443 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4445 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4448 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4444 A) (IPIV-REF4446 IPIV) - (E-REF4447 E)) - (%%CSYCONV UPLO WAY N-REF4443 A-REF4444 LDA-REF4445 IPIV-REF4446 - E-REF4447 INFO-REF4448)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4374 ':INT32) (LDA-REF4376 ':INT32) + (INFO-REF4379 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4374 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4376 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4379 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4375 A) (IPIV-REF4377 IPIV) + (E-REF4378 E)) + (%%CSYCONV UPLO WAY N-REF4374 A-REF4375 LDA-REF4376 IPIV-REF4377 + E-REF4378 INFO-REF4379)))) (CFFI:DEFCFUN ("csyconvf_" %%CSYCONVF :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -6556,18 +6562,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4451 ':INT32) (LDA-REF4453 ':INT32) - (INFO-REF4456 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4451 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4453 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4456 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4452 A) (E-REF4454 E) - (IPIV-REF4455 IPIV)) - (%%CSYCONVF UPLO WAY N-REF4451 A-REF4452 LDA-REF4453 E-REF4454 - IPIV-REF4455 INFO-REF4456)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4382 ':INT32) (LDA-REF4384 ':INT32) + (INFO-REF4387 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4382 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4384 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4387 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4383 A) (E-REF4385 E) + (IPIV-REF4386 IPIV)) + (%%CSYCONVF UPLO WAY N-REF4382 A-REF4383 LDA-REF4384 E-REF4385 + IPIV-REF4386 INFO-REF4387)))) (CFFI:DEFCFUN ("csyconvf_rook_" %%CSYCONVF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -6599,17 +6605,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4459 ':INT32) (LDA-REF4461 ':INT32) - (INFO-REF4464 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4459 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4461 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4464 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4460 A) (E-REF4462 E) - (IPIV-REF4463 IPIV)) - (%%CSYCONVF_ROOK UPLO WAY N-REF4459 A-REF4460 LDA-REF4461 E-REF4462 - IPIV-REF4463 INFO-REF4464)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4390 ':INT32) (LDA-REF4392 ':INT32) + (INFO-REF4395 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4390 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4392 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4395 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4391 A) (E-REF4393 E) + (IPIV-REF4394 IPIV)) + (%%CSYCONVF_ROOK UPLO WAY N-REF4390 A-REF4391 LDA-REF4392 E-REF4393 + IPIV-REF4394 INFO-REF4395)))) -(CFFI:DEFCFUN ("csyequb_" %%CSYEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csyequb_" %%CSYEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6641,20 +6648,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4466 ':INT32) (LDA-REF4468 ':INT32) - (SCOND-REF4470 ':FLOAT) (AMAX-REF4471 ':FLOAT) - (INFO-REF4473 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4466 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4468 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4470 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4471 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4473 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4467 A) (S-REF4469 S) - (WORK-REF4472 WORK)) - (%%CSYEQUB UPLO N-REF4466 A-REF4467 LDA-REF4468 S-REF4469 SCOND-REF4470 - AMAX-REF4471 WORK-REF4472 INFO-REF4473)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4397 ':INT32) (LDA-REF4399 ':INT32) + (SCOND-REF4401 ':FLOAT) (AMAX-REF4402 ':FLOAT) + (INFO-REF4404 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4397 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4399 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF4401 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF4402 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4404 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4398 A) (S-REF4400 S) + (WORK-REF4403 WORK)) + (%%CSYEQUB UPLO N-REF4397 A-REF4398 LDA-REF4399 S-REF4400 SCOND-REF4401 + AMAX-REF4402 WORK-REF4403 INFO-REF4404)))) -(CFFI:DEFCFUN ("csymv_" %%CSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csymv_" %%CSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6693,33 +6700,33 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4475 ':INT32) - (ALPHA-REF4476 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4406 ':INT32) + (ALPHA-REF4407 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDA-REF4478 ':INT32) (INCX-REF4480 ':INT32) - (BETA-REF4481 + (LDA-REF4409 ':INT32) (INCX-REF4411 ':INT32) + (BETA-REF4412 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCY-REF4483 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4475 :INT32) N) + (INCY-REF4414 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4406 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF4476 + ALPHA-REF4407 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4478 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4480 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4409 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4411 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF4481 + BETA-REF4412 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4483 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4477 A) (X-REF4479 X) - (Y-REF4482 Y)) - (%%CSYMV UPLO N-REF4475 ALPHA-REF4476 A-REF4477 LDA-REF4478 X-REF4479 - INCX-REF4480 BETA-REF4481 Y-REF4482 INCY-REF4483)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF4414 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4408 A) (X-REF4410 X) + (Y-REF4413 Y)) + (%%CSYMV UPLO N-REF4406 ALPHA-REF4407 A-REF4408 LDA-REF4409 X-REF4410 + INCX-REF4411 BETA-REF4412 Y-REF4413 INCY-REF4414)))) -(CFFI:DEFCFUN ("csyr_" %%CSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csyr_" %%CSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6747,23 +6754,23 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4485 ':INT32) - (ALPHA-REF4486 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4416 ':INT32) + (ALPHA-REF4417 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (INCX-REF4488 ':INT32) (LDA-REF4490 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4485 :INT32) N) + (INCX-REF4419 ':INT32) (LDA-REF4421 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4416 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF4486 + ALPHA-REF4417 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4488 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4490 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF4487 X) (A-REF4489 A)) - (%%CSYR UPLO N-REF4485 ALPHA-REF4486 X-REF4487 INCX-REF4488 A-REF4489 - LDA-REF4490)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF4419 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4421 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF4418 X) (A-REF4420 A)) + (%%CSYR UPLO N-REF4416 ALPHA-REF4417 X-REF4418 INCX-REF4419 A-REF4420 + LDA-REF4421)))) -(CFFI:DEFCFUN ("csyrfs_" %%CSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csyrfs_" %%CSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6833,29 +6840,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4492 ':INT32) (NRHS-REF4493 ':INT32) - (LDA-REF4495 ':INT32) (LDAF-REF4497 ':INT32) - (LDB-REF4500 ':INT32) (LDX-REF4502 ':INT32) - (INFO-REF4507 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4492 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4493 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4495 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4497 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4500 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4502 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4507 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4494 A) (AF-REF4496 AF) - (IPIV-REF4498 IPIV) (B-REF4499 B) - (X-REF4501 X) (FERR-REF4503 FERR) - (BERR-REF4504 BERR) - (WORK-REF4505 WORK) - (RWORK-REF4506 RWORK)) - (%%CSYRFS UPLO N-REF4492 NRHS-REF4493 A-REF4494 LDA-REF4495 AF-REF4496 - LDAF-REF4497 IPIV-REF4498 B-REF4499 LDB-REF4500 X-REF4501 - LDX-REF4502 FERR-REF4503 BERR-REF4504 WORK-REF4505 - RWORK-REF4506 INFO-REF4507)))) - -(CFFI:DEFCFUN ("csyrfsx_" %%CSYRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4423 ':INT32) (NRHS-REF4424 ':INT32) + (LDA-REF4426 ':INT32) (LDAF-REF4428 ':INT32) + (LDB-REF4431 ':INT32) (LDX-REF4433 ':INT32) + (INFO-REF4438 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4423 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4424 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4426 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4428 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4431 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4433 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4438 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4425 A) (AF-REF4427 AF) + (IPIV-REF4429 IPIV) (B-REF4430 B) + (X-REF4432 X) (FERR-REF4434 FERR) + (BERR-REF4435 BERR) + (WORK-REF4436 WORK) + (RWORK-REF4437 RWORK)) + (%%CSYRFS UPLO N-REF4423 NRHS-REF4424 A-REF4425 LDA-REF4426 AF-REF4427 + LDAF-REF4428 IPIV-REF4429 B-REF4430 LDB-REF4431 X-REF4432 LDX-REF4433 + FERR-REF4434 BERR-REF4435 WORK-REF4436 RWORK-REF4437 INFO-REF4438)))) + +(CFFI:DEFCFUN ("csyrfsx_" %%CSYRFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -6946,41 +6953,40 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4510 ':INT32) (NRHS-REF4511 ':INT32) - (LDA-REF4513 ':INT32) (LDAF-REF4515 ':INT32) - (LDB-REF4519 ':INT32) (LDX-REF4521 ':INT32) - (RCOND-REF4522 ':FLOAT) - (N_ERR_BNDS-REF4524 ':INT32) - (NPARAMS-REF4527 ':INT32) (INFO-REF4531 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4510 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4511 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4513 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4515 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4519 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4521 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4522 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4524 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4527 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4531 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4512 A) (AF-REF4514 AF) - (IPIV-REF4516 IPIV) (S-REF4517 S) - (B-REF4518 B) (X-REF4520 X) - (BERR-REF4523 BERR) - (ERR_BNDS_NORM-REF4525 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4441 ':INT32) (NRHS-REF4442 ':INT32) + (LDA-REF4444 ':INT32) (LDAF-REF4446 ':INT32) + (LDB-REF4450 ':INT32) (LDX-REF4452 ':INT32) + (RCOND-REF4453 ':FLOAT) + (N_ERR_BNDS-REF4455 ':INT32) + (NPARAMS-REF4458 ':INT32) (INFO-REF4462 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4441 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4442 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4444 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4446 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4450 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4452 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4453 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4455 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4458 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4462 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4443 A) (AF-REF4445 AF) + (IPIV-REF4447 IPIV) (S-REF4448 S) + (B-REF4449 B) (X-REF4451 X) + (BERR-REF4454 BERR) + (ERR_BNDS_NORM-REF4456 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF4526 + (ERR_BNDS_COMP-REF4457 ERR_BNDS_COMP) - (PARAMS-REF4528 PARAMS) - (WORK-REF4529 WORK) - (RWORK-REF4530 RWORK)) - (%%CSYRFSX UPLO EQUED N-REF4510 NRHS-REF4511 A-REF4512 LDA-REF4513 - AF-REF4514 LDAF-REF4515 IPIV-REF4516 S-REF4517 B-REF4518 - LDB-REF4519 X-REF4520 LDX-REF4521 RCOND-REF4522 BERR-REF4523 - N_ERR_BNDS-REF4524 ERR_BNDS_NORM-REF4525 ERR_BNDS_COMP-REF4526 - NPARAMS-REF4527 PARAMS-REF4528 WORK-REF4529 RWORK-REF4530 - INFO-REF4531)))) + (PARAMS-REF4459 PARAMS) + (WORK-REF4460 WORK) + (RWORK-REF4461 RWORK)) + (%%CSYRFSX UPLO EQUED N-REF4441 NRHS-REF4442 A-REF4443 LDA-REF4444 + AF-REF4445 LDAF-REF4446 IPIV-REF4447 S-REF4448 B-REF4449 LDB-REF4450 + X-REF4451 LDX-REF4452 RCOND-REF4453 BERR-REF4454 N_ERR_BNDS-REF4455 + ERR_BNDS_NORM-REF4456 ERR_BNDS_COMP-REF4457 NPARAMS-REF4458 + PARAMS-REF4459 WORK-REF4460 RWORK-REF4461 INFO-REF4462)))) -(CFFI:DEFCFUN ("csysv_" %%CSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csysv_" %%CSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7022,22 +7028,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4533 ':INT32) (NRHS-REF4534 ':INT32) - (LDA-REF4536 ':INT32) (LDB-REF4539 ':INT32) - (LWORK-REF4541 ':INT32) (INFO-REF4542 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4533 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4534 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4536 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4539 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4541 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4542 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4535 A) (IPIV-REF4537 IPIV) - (B-REF4538 B) (WORK-REF4540 WORK)) - (%%CSYSV UPLO N-REF4533 NRHS-REF4534 A-REF4535 LDA-REF4536 IPIV-REF4537 - B-REF4538 LDB-REF4539 WORK-REF4540 LWORK-REF4541 INFO-REF4542)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4464 ':INT32) (NRHS-REF4465 ':INT32) + (LDA-REF4467 ':INT32) (LDB-REF4470 ':INT32) + (LWORK-REF4472 ':INT32) (INFO-REF4473 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4464 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4465 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4467 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4470 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4472 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4473 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4466 A) (IPIV-REF4468 IPIV) + (B-REF4469 B) (WORK-REF4471 WORK)) + (%%CSYSV UPLO N-REF4464 NRHS-REF4465 A-REF4466 LDA-REF4467 IPIV-REF4468 + B-REF4469 LDB-REF4470 WORK-REF4471 LWORK-REF4472 INFO-REF4473)))) (CFFI:DEFCFUN ("csysv_aa_" %%CSYSV_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7079,23 +7085,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4544 ':INT32) (NRHS-REF4545 ':INT32) - (LDA-REF4547 ':INT32) (LDB-REF4550 ':INT32) - (LWORK-REF4552 ':INT32) (INFO-REF4553 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4544 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4545 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4547 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4550 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4552 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4553 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4546 A) (IPIV-REF4548 IPIV) - (B-REF4549 B) (WORK-REF4551 WORK)) - (%%CSYSV_AA UPLO N-REF4544 NRHS-REF4545 A-REF4546 LDA-REF4547 - IPIV-REF4548 B-REF4549 LDB-REF4550 WORK-REF4551 LWORK-REF4552 - INFO-REF4553)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4475 ':INT32) (NRHS-REF4476 ':INT32) + (LDA-REF4478 ':INT32) (LDB-REF4481 ':INT32) + (LWORK-REF4483 ':INT32) (INFO-REF4484 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4475 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4476 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4478 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4481 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4483 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4484 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4477 A) (IPIV-REF4479 IPIV) + (B-REF4480 B) (WORK-REF4482 WORK)) + (%%CSYSV_AA UPLO N-REF4475 NRHS-REF4476 A-REF4477 LDA-REF4478 + IPIV-REF4479 B-REF4480 LDB-REF4481 WORK-REF4482 LWORK-REF4483 + INFO-REF4484)))) (CFFI:DEFCFUN ("csysv_aa_2stage_" %%CSYSV_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7151,28 +7157,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4555 ':INT32) (NRHS-REF4556 ':INT32) - (LDA-REF4558 ':INT32) (LTB-REF4560 ':INT32) - (LDB-REF4564 ':INT32) (LWORK-REF4566 ':INT32) - (INFO-REF4567 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4555 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4556 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4558 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4560 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4564 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4566 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4567 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4557 A) (TB-REF4559 TB) - (IPIV-REF4561 IPIV) - (IPIV2-REF4562 IPIV2) (B-REF4563 B) - (WORK-REF4565 WORK)) - (%%CSYSV_AA_2STAGE UPLO N-REF4555 NRHS-REF4556 A-REF4557 LDA-REF4558 - TB-REF4559 LTB-REF4560 IPIV-REF4561 IPIV2-REF4562 - B-REF4563 LDB-REF4564 WORK-REF4565 LWORK-REF4566 - INFO-REF4567)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4486 ':INT32) (NRHS-REF4487 ':INT32) + (LDA-REF4489 ':INT32) (LTB-REF4491 ':INT32) + (LDB-REF4495 ':INT32) (LWORK-REF4497 ':INT32) + (INFO-REF4498 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4486 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4487 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4489 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4491 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4495 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4497 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4498 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4488 A) (TB-REF4490 TB) + (IPIV-REF4492 IPIV) + (IPIV2-REF4493 IPIV2) (B-REF4494 B) + (WORK-REF4496 WORK)) + (%%CSYSV_AA_2STAGE UPLO N-REF4486 NRHS-REF4487 A-REF4488 LDA-REF4489 + TB-REF4490 LTB-REF4491 IPIV-REF4492 IPIV2-REF4493 B-REF4494 LDB-REF4495 + WORK-REF4496 LWORK-REF4497 INFO-REF4498)))) (CFFI:DEFCFUN ("csysv_rk_" %%CSYSV_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7220,24 +7225,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4569 ':INT32) (NRHS-REF4570 ':INT32) - (LDA-REF4572 ':INT32) (LDB-REF4576 ':INT32) - (LWORK-REF4578 ':INT32) (INFO-REF4579 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4569 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4570 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4572 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4576 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4578 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4579 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4571 A) (E-REF4573 E) - (IPIV-REF4574 IPIV) (B-REF4575 B) - (WORK-REF4577 WORK)) - (%%CSYSV_RK UPLO N-REF4569 NRHS-REF4570 A-REF4571 LDA-REF4572 E-REF4573 - IPIV-REF4574 B-REF4575 LDB-REF4576 WORK-REF4577 LWORK-REF4578 - INFO-REF4579)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4500 ':INT32) (NRHS-REF4501 ':INT32) + (LDA-REF4503 ':INT32) (LDB-REF4507 ':INT32) + (LWORK-REF4509 ':INT32) (INFO-REF4510 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4500 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4501 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4503 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4507 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4509 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4510 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4502 A) (E-REF4504 E) + (IPIV-REF4505 IPIV) (B-REF4506 B) + (WORK-REF4508 WORK)) + (%%CSYSV_RK UPLO N-REF4500 NRHS-REF4501 A-REF4502 LDA-REF4503 E-REF4504 + IPIV-REF4505 B-REF4506 LDB-REF4507 WORK-REF4508 LWORK-REF4509 + INFO-REF4510)))) (CFFI:DEFCFUN ("csysv_rook_" %%CSYSV_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7279,22 +7284,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4581 ':INT32) (NRHS-REF4582 ':INT32) - (LDA-REF4584 ':INT32) (LDB-REF4587 ':INT32) - (LWORK-REF4589 ':INT32) (INFO-REF4590 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4581 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4582 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4584 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4587 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4589 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4590 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4583 A) (IPIV-REF4585 IPIV) - (B-REF4586 B) (WORK-REF4588 WORK)) - (%%CSYSV_ROOK UPLO N-REF4581 NRHS-REF4582 A-REF4583 LDA-REF4584 - IPIV-REF4585 B-REF4586 LDB-REF4587 WORK-REF4588 - LWORK-REF4589 INFO-REF4590)))) - -(CFFI:DEFCFUN ("csysvx_" %%CSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4512 ':INT32) (NRHS-REF4513 ':INT32) + (LDA-REF4515 ':INT32) (LDB-REF4518 ':INT32) + (LWORK-REF4520 ':INT32) (INFO-REF4521 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4512 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4513 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4515 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4518 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4520 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4521 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4514 A) (IPIV-REF4516 IPIV) + (B-REF4517 B) (WORK-REF4519 WORK)) + (%%CSYSV_ROOK UPLO N-REF4512 NRHS-REF4513 A-REF4514 LDA-REF4515 + IPIV-REF4516 B-REF4517 LDB-REF4518 WORK-REF4519 LWORK-REF4520 + INFO-REF4521)))) + +(CFFI:DEFCFUN ("csysvx_" %%CSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -7370,32 +7375,33 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4593 ':INT32) (NRHS-REF4594 ':INT32) - (LDA-REF4596 ':INT32) (LDAF-REF4598 ':INT32) - (LDB-REF4601 ':INT32) (LDX-REF4603 ':INT32) - (RCOND-REF4604 ':FLOAT) (LWORK-REF4608 ':INT32) - (INFO-REF4610 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4593 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4594 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4596 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4598 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4601 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4603 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4604 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4608 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4610 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4595 A) (AF-REF4597 AF) - (IPIV-REF4599 IPIV) (B-REF4600 B) - (X-REF4602 X) (FERR-REF4605 FERR) - (BERR-REF4606 BERR) - (WORK-REF4607 WORK) - (RWORK-REF4609 RWORK)) - (%%CSYSVX FACT UPLO N-REF4593 NRHS-REF4594 A-REF4595 LDA-REF4596 - AF-REF4597 LDAF-REF4598 IPIV-REF4599 B-REF4600 LDB-REF4601 - X-REF4602 LDX-REF4603 RCOND-REF4604 FERR-REF4605 BERR-REF4606 - WORK-REF4607 LWORK-REF4608 RWORK-REF4609 INFO-REF4610)))) - -(CFFI:DEFCFUN ("csysvxx_" %%CSYSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4524 ':INT32) (NRHS-REF4525 ':INT32) + (LDA-REF4527 ':INT32) (LDAF-REF4529 ':INT32) + (LDB-REF4532 ':INT32) (LDX-REF4534 ':INT32) + (RCOND-REF4535 ':FLOAT) (LWORK-REF4539 ':INT32) + (INFO-REF4541 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4524 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4525 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4527 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4529 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4532 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4534 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4535 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4539 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4541 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4526 A) (AF-REF4528 AF) + (IPIV-REF4530 IPIV) (B-REF4531 B) + (X-REF4533 X) (FERR-REF4536 FERR) + (BERR-REF4537 BERR) + (WORK-REF4538 WORK) + (RWORK-REF4540 RWORK)) + (%%CSYSVX FACT UPLO N-REF4524 NRHS-REF4525 A-REF4526 LDA-REF4527 + AF-REF4528 LDAF-REF4529 IPIV-REF4530 B-REF4531 LDB-REF4532 X-REF4533 + LDX-REF4534 RCOND-REF4535 FERR-REF4536 BERR-REF4537 WORK-REF4538 + LWORK-REF4539 RWORK-REF4540 INFO-REF4541)))) + +(CFFI:DEFCFUN ("csysvxx_" %%CSYSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -7490,43 +7496,43 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4613 ':INT32) (NRHS-REF4614 ':INT32) - (LDA-REF4616 ':INT32) (LDAF-REF4618 ':INT32) - (LDB-REF4623 ':INT32) (LDX-REF4625 ':INT32) - (RCOND-REF4626 ':FLOAT) (RPVGRW-REF4627 ':FLOAT) - (N_ERR_BNDS-REF4629 ':INT32) - (NPARAMS-REF4632 ':INT32) (INFO-REF4636 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4613 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4614 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4616 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4618 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4623 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4625 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4626 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF4627 :FLOAT) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4629 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4632 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4636 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4615 A) (AF-REF4617 AF) - (IPIV-REF4619 IPIV) (S-REF4621 S) - (B-REF4622 B) (X-REF4624 X) - (BERR-REF4628 BERR) - (ERR_BNDS_NORM-REF4630 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4544 ':INT32) (NRHS-REF4545 ':INT32) + (LDA-REF4547 ':INT32) (LDAF-REF4549 ':INT32) + (LDB-REF4554 ':INT32) (LDX-REF4556 ':INT32) + (RCOND-REF4557 ':FLOAT) (RPVGRW-REF4558 ':FLOAT) + (N_ERR_BNDS-REF4560 ':INT32) + (NPARAMS-REF4563 ':INT32) (INFO-REF4567 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4544 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4545 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4547 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF4549 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4554 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4556 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4557 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF4558 :FLOAT) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF4560 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF4563 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4567 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4546 A) (AF-REF4548 AF) + (IPIV-REF4550 IPIV) (S-REF4552 S) + (B-REF4553 B) (X-REF4555 X) + (BERR-REF4559 BERR) + (ERR_BNDS_NORM-REF4561 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF4631 + (ERR_BNDS_COMP-REF4562 ERR_BNDS_COMP) - (PARAMS-REF4633 PARAMS) - (WORK-REF4634 WORK) - (RWORK-REF4635 RWORK)) - (%%CSYSVXX FACT UPLO N-REF4613 NRHS-REF4614 A-REF4615 LDA-REF4616 - AF-REF4617 LDAF-REF4618 IPIV-REF4619 EQUED S-REF4621 B-REF4622 - LDB-REF4623 X-REF4624 LDX-REF4625 RCOND-REF4626 RPVGRW-REF4627 - BERR-REF4628 N_ERR_BNDS-REF4629 ERR_BNDS_NORM-REF4630 - ERR_BNDS_COMP-REF4631 NPARAMS-REF4632 PARAMS-REF4633 - WORK-REF4634 RWORK-REF4635 INFO-REF4636)))) + (PARAMS-REF4564 PARAMS) + (WORK-REF4565 WORK) + (RWORK-REF4566 RWORK)) + (%%CSYSVXX FACT UPLO N-REF4544 NRHS-REF4545 A-REF4546 LDA-REF4547 + AF-REF4548 LDAF-REF4549 IPIV-REF4550 EQUED S-REF4552 B-REF4553 + LDB-REF4554 X-REF4555 LDX-REF4556 RCOND-REF4557 RPVGRW-REF4558 + BERR-REF4559 N_ERR_BNDS-REF4560 ERR_BNDS_NORM-REF4561 + ERR_BNDS_COMP-REF4562 NPARAMS-REF4563 PARAMS-REF4564 WORK-REF4565 + RWORK-REF4566 INFO-REF4567)))) (CFFI:DEFCFUN ("csyswapr_" %%CSYSWAPR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7547,16 +7553,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4638 ':INT32) (LDA-REF4640 ':INT32) - (I1-REF4641 ':INT32) (I2-REF4642 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4638 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4640 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF4641 :INT32) I1) - (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF4642 :INT32) I2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4639 A)) - (%%CSYSWAPR UPLO N-REF4638 A-REF4639 LDA-REF4640 I1-REF4641 I2-REF4642)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4569 ':INT32) (LDA-REF4571 ':INT32) + (I1-REF4572 ':INT32) (I2-REF4573 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4569 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4571 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF4572 :INT32) I1) + (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF4573 :INT32) I2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4570 A)) + (%%CSYSWAPR UPLO N-REF4569 A-REF4570 LDA-REF4571 I1-REF4572 I2-REF4573)))) -(CFFI:DEFCFUN ("csytf2_" %%CSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csytf2_" %%CSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7580,17 +7586,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4644 ':INT32) (LDA-REF4646 ':INT32) - (INFO-REF4648 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4644 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4646 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4648 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4645 A) (IPIV-REF4647 IPIV)) - (%%CSYTF2 UPLO N-REF4644 A-REF4645 LDA-REF4646 IPIV-REF4647 - INFO-REF4648)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4575 ':INT32) (LDA-REF4577 ':INT32) + (INFO-REF4579 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4575 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4577 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4579 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4576 A) (IPIV-REF4578 IPIV)) + (%%CSYTF2 UPLO N-REF4575 A-REF4576 LDA-REF4577 IPIV-REF4578 + INFO-REF4579)))) (CFFI:DEFCFUN ("csytf2_rk_" %%CSYTF2_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7620,18 +7626,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4650 ':INT32) (LDA-REF4652 ':INT32) - (INFO-REF4655 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4650 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4652 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4655 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4651 A) (E-REF4653 E) - (IPIV-REF4654 IPIV)) - (%%CSYTF2_RK UPLO N-REF4650 A-REF4651 LDA-REF4652 E-REF4653 IPIV-REF4654 - INFO-REF4655)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4581 ':INT32) (LDA-REF4583 ':INT32) + (INFO-REF4586 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4581 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4583 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4586 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4582 A) (E-REF4584 E) + (IPIV-REF4585 IPIV)) + (%%CSYTF2_RK UPLO N-REF4581 A-REF4582 LDA-REF4583 E-REF4584 IPIV-REF4585 + INFO-REF4586)))) (CFFI:DEFCFUN ("csytf2_rook_" %%CSYTF2_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7655,16 +7661,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4657 ':INT32) (LDA-REF4659 ':INT32) - (INFO-REF4661 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4657 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4659 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4661 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4658 A) (IPIV-REF4660 IPIV)) - (%%CSYTF2_ROOK UPLO N-REF4657 A-REF4658 LDA-REF4659 IPIV-REF4660 - INFO-REF4661)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4588 ':INT32) (LDA-REF4590 ':INT32) + (INFO-REF4592 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4588 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4590 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4592 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4589 A) (IPIV-REF4591 IPIV)) + (%%CSYTF2_ROOK UPLO N-REF4588 A-REF4589 LDA-REF4590 IPIV-REF4591 + INFO-REF4592)))) -(CFFI:DEFCFUN ("csytrf_" %%CSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csytrf_" %%CSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7696,19 +7702,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4663 ':INT32) (LDA-REF4665 ':INT32) - (LWORK-REF4668 ':INT32) (INFO-REF4669 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4663 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4665 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4668 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4669 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4664 A) (IPIV-REF4666 IPIV) - (WORK-REF4667 WORK)) - (%%CSYTRF UPLO N-REF4663 A-REF4664 LDA-REF4665 IPIV-REF4666 WORK-REF4667 - LWORK-REF4668 INFO-REF4669)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4594 ':INT32) (LDA-REF4596 ':INT32) + (LWORK-REF4599 ':INT32) (INFO-REF4600 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4594 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4596 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4599 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4600 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4595 A) (IPIV-REF4597 IPIV) + (WORK-REF4598 WORK)) + (%%CSYTRF UPLO N-REF4594 A-REF4595 LDA-REF4596 IPIV-REF4597 WORK-REF4598 + LWORK-REF4599 INFO-REF4600)))) (CFFI:DEFCFUN ("csytrf_aa_" %%CSYTRF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7740,19 +7746,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4671 ':INT32) (LDA-REF4673 ':INT32) - (LWORK-REF4676 ':INT32) (INFO-REF4677 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4671 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4673 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4676 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4677 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4672 A) (IPIV-REF4674 IPIV) - (WORK-REF4675 WORK)) - (%%CSYTRF_AA UPLO N-REF4671 A-REF4672 LDA-REF4673 IPIV-REF4674 - WORK-REF4675 LWORK-REF4676 INFO-REF4677)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4602 ':INT32) (LDA-REF4604 ':INT32) + (LWORK-REF4607 ':INT32) (INFO-REF4608 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4602 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4604 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4607 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4608 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4603 A) (IPIV-REF4605 IPIV) + (WORK-REF4606 WORK)) + (%%CSYTRF_AA UPLO N-REF4602 A-REF4603 LDA-REF4604 IPIV-REF4605 + WORK-REF4606 LWORK-REF4607 INFO-REF4608)))) (CFFI:DEFCFUN ("csytrf_aa_2stage_" %%CSYTRF_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7798,24 +7804,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4679 ':INT32) (LDA-REF4681 ':INT32) - (LTB-REF4683 ':INT32) (LWORK-REF4687 ':INT32) - (INFO-REF4688 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4679 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4681 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4683 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4687 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4688 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4680 A) (TB-REF4682 TB) - (IPIV-REF4684 IPIV) - (IPIV2-REF4685 IPIV2) - (WORK-REF4686 WORK)) - (%%CSYTRF_AA_2STAGE UPLO N-REF4679 A-REF4680 LDA-REF4681 TB-REF4682 - LTB-REF4683 IPIV-REF4684 IPIV2-REF4685 WORK-REF4686 - LWORK-REF4687 INFO-REF4688)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4610 ':INT32) (LDA-REF4612 ':INT32) + (LTB-REF4614 ':INT32) (LWORK-REF4618 ':INT32) + (INFO-REF4619 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4610 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4612 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4614 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4618 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4619 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4611 A) (TB-REF4613 TB) + (IPIV-REF4615 IPIV) + (IPIV2-REF4616 IPIV2) + (WORK-REF4617 WORK)) + (%%CSYTRF_AA_2STAGE UPLO N-REF4610 A-REF4611 LDA-REF4612 TB-REF4613 + LTB-REF4614 IPIV-REF4615 IPIV2-REF4616 WORK-REF4617 LWORK-REF4618 + INFO-REF4619)))) (CFFI:DEFCFUN ("csytrf_rk_" %%CSYTRF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7853,20 +7859,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4690 ':INT32) (LDA-REF4692 ':INT32) - (LWORK-REF4696 ':INT32) (INFO-REF4697 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4690 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4692 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4696 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4697 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4691 A) (E-REF4693 E) - (IPIV-REF4694 IPIV) - (WORK-REF4695 WORK)) - (%%CSYTRF_RK UPLO N-REF4690 A-REF4691 LDA-REF4692 E-REF4693 IPIV-REF4694 - WORK-REF4695 LWORK-REF4696 INFO-REF4697)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4621 ':INT32) (LDA-REF4623 ':INT32) + (LWORK-REF4627 ':INT32) (INFO-REF4628 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4621 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4623 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4627 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4628 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4622 A) (E-REF4624 E) + (IPIV-REF4625 IPIV) + (WORK-REF4626 WORK)) + (%%CSYTRF_RK UPLO N-REF4621 A-REF4622 LDA-REF4623 E-REF4624 IPIV-REF4625 + WORK-REF4626 LWORK-REF4627 INFO-REF4628)))) (CFFI:DEFCFUN ("csytrf_rook_" %%CSYTRF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7898,18 +7904,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4699 ':INT32) (LDA-REF4701 ':INT32) - (LWORK-REF4704 ':INT32) (INFO-REF4705 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4699 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4701 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4704 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4705 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4700 A) (IPIV-REF4702 IPIV) - (WORK-REF4703 WORK)) - (%%CSYTRF_ROOK UPLO N-REF4699 A-REF4700 LDA-REF4701 IPIV-REF4702 - WORK-REF4703 LWORK-REF4704 INFO-REF4705)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4630 ':INT32) (LDA-REF4632 ':INT32) + (LWORK-REF4635 ':INT32) (INFO-REF4636 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4630 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4632 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4635 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4636 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4631 A) (IPIV-REF4633 IPIV) + (WORK-REF4634 WORK)) + (%%CSYTRF_ROOK UPLO N-REF4630 A-REF4631 LDA-REF4632 IPIV-REF4633 + WORK-REF4634 LWORK-REF4635 INFO-REF4636)))) -(CFFI:DEFCFUN ("csytri_" %%CSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csytri_" %%CSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7939,17 +7945,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4707 ':INT32) (LDA-REF4709 ':INT32) - (INFO-REF4712 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4707 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4709 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4712 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4708 A) (IPIV-REF4710 IPIV) - (WORK-REF4711 WORK)) - (%%CSYTRI UPLO N-REF4707 A-REF4708 LDA-REF4709 IPIV-REF4710 WORK-REF4711 - INFO-REF4712)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4638 ':INT32) (LDA-REF4640 ':INT32) + (INFO-REF4643 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4638 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4640 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4643 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4639 A) (IPIV-REF4641 IPIV) + (WORK-REF4642 WORK)) + (%%CSYTRI UPLO N-REF4638 A-REF4639 LDA-REF4640 IPIV-REF4641 WORK-REF4642 + INFO-REF4643)))) -(CFFI:DEFCFUN ("csytri2_" %%CSYTRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csytri2_" %%CSYTRI2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7981,19 +7988,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4714 ':INT32) (LDA-REF4716 ':INT32) - (LWORK-REF4719 ':INT32) (INFO-REF4720 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4714 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4716 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4719 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4720 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4715 A) (IPIV-REF4717 IPIV) - (WORK-REF4718 WORK)) - (%%CSYTRI2 UPLO N-REF4714 A-REF4715 LDA-REF4716 IPIV-REF4717 WORK-REF4718 - LWORK-REF4719 INFO-REF4720)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4645 ':INT32) (LDA-REF4647 ':INT32) + (LWORK-REF4650 ':INT32) (INFO-REF4651 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4645 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4647 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4650 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4651 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4646 A) (IPIV-REF4648 IPIV) + (WORK-REF4649 WORK)) + (%%CSYTRI2 UPLO N-REF4645 A-REF4646 LDA-REF4647 IPIV-REF4648 WORK-REF4649 + LWORK-REF4650 INFO-REF4651)))) (CFFI:DEFCFUN ("csytri2x_" %%CSYTRI2X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8025,19 +8032,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4722 ':INT32) (LDA-REF4724 ':INT32) - (NB-REF4727 ':INT32) (INFO-REF4728 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4722 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4724 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4727 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4728 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4723 A) (IPIV-REF4725 IPIV) - (WORK-REF4726 WORK)) - (%%CSYTRI2X UPLO N-REF4722 A-REF4723 LDA-REF4724 IPIV-REF4725 - WORK-REF4726 NB-REF4727 INFO-REF4728)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4653 ':INT32) (LDA-REF4655 ':INT32) + (NB-REF4658 ':INT32) (INFO-REF4659 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4653 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4655 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4658 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4659 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4654 A) (IPIV-REF4656 IPIV) + (WORK-REF4657 WORK)) + (%%CSYTRI2X UPLO N-REF4653 A-REF4654 LDA-REF4655 IPIV-REF4656 + WORK-REF4657 NB-REF4658 INFO-REF4659)))) (CFFI:DEFCFUN ("csytri_3_" %%CSYTRI_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8075,20 +8082,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4730 ':INT32) (LDA-REF4732 ':INT32) - (LWORK-REF4736 ':INT32) (INFO-REF4737 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4730 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4732 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4736 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4737 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4731 A) (E-REF4733 E) - (IPIV-REF4734 IPIV) - (WORK-REF4735 WORK)) - (%%CSYTRI_3 UPLO N-REF4730 A-REF4731 LDA-REF4732 E-REF4733 IPIV-REF4734 - WORK-REF4735 LWORK-REF4736 INFO-REF4737)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4661 ':INT32) (LDA-REF4663 ':INT32) + (LWORK-REF4667 ':INT32) (INFO-REF4668 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4661 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4663 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4667 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4668 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4662 A) (E-REF4664 E) + (IPIV-REF4665 IPIV) + (WORK-REF4666 WORK)) + (%%CSYTRI_3 UPLO N-REF4661 A-REF4662 LDA-REF4663 E-REF4664 IPIV-REF4665 + WORK-REF4666 LWORK-REF4667 INFO-REF4668)))) (CFFI:DEFCFUN ("csytri_3x_" %%CSYTRI_3X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8126,20 +8133,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4739 ':INT32) (LDA-REF4741 ':INT32) - (NB-REF4745 ':INT32) (INFO-REF4746 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4739 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4741 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4745 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4746 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4740 A) (E-REF4742 E) - (IPIV-REF4743 IPIV) - (WORK-REF4744 WORK)) - (%%CSYTRI_3X UPLO N-REF4739 A-REF4740 LDA-REF4741 E-REF4742 IPIV-REF4743 - WORK-REF4744 NB-REF4745 INFO-REF4746)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4670 ':INT32) (LDA-REF4672 ':INT32) + (NB-REF4676 ':INT32) (INFO-REF4677 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4670 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4672 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF4676 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4677 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4671 A) (E-REF4673 E) + (IPIV-REF4674 IPIV) + (WORK-REF4675 WORK)) + (%%CSYTRI_3X UPLO N-REF4670 A-REF4671 LDA-REF4672 E-REF4673 IPIV-REF4674 + WORK-REF4675 NB-REF4676 INFO-REF4677)))) (CFFI:DEFCFUN ("csytri_rook_" %%CSYTRI_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8169,17 +8176,17 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4748 ':INT32) (LDA-REF4750 ':INT32) - (INFO-REF4753 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4748 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4750 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4753 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4749 A) (IPIV-REF4751 IPIV) - (WORK-REF4752 WORK)) - (%%CSYTRI_ROOK UPLO N-REF4748 A-REF4749 LDA-REF4750 IPIV-REF4751 - WORK-REF4752 INFO-REF4753)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4679 ':INT32) (LDA-REF4681 ':INT32) + (INFO-REF4684 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4679 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4681 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4684 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4680 A) (IPIV-REF4682 IPIV) + (WORK-REF4683 WORK)) + (%%CSYTRI_ROOK UPLO N-REF4679 A-REF4680 LDA-REF4681 IPIV-REF4682 + WORK-REF4683 INFO-REF4684)))) -(CFFI:DEFCFUN ("csytrs_" %%CSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csytrs_" %%CSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8213,20 +8220,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4755 ':INT32) (NRHS-REF4756 ':INT32) - (LDA-REF4758 ':INT32) (LDB-REF4761 ':INT32) - (INFO-REF4762 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4755 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4756 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4758 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4761 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4762 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4757 A) (IPIV-REF4759 IPIV) - (B-REF4760 B)) - (%%CSYTRS UPLO N-REF4755 NRHS-REF4756 A-REF4757 LDA-REF4758 IPIV-REF4759 - B-REF4760 LDB-REF4761 INFO-REF4762)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4686 ':INT32) (NRHS-REF4687 ':INT32) + (LDA-REF4689 ':INT32) (LDB-REF4692 ':INT32) + (INFO-REF4693 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4686 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4687 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4689 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4692 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4693 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4688 A) (IPIV-REF4690 IPIV) + (B-REF4691 B)) + (%%CSYTRS UPLO N-REF4686 NRHS-REF4687 A-REF4688 LDA-REF4689 IPIV-REF4690 + B-REF4691 LDB-REF4692 INFO-REF4693)))) -(CFFI:DEFCFUN ("csytrs2_" %%CSYTRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("csytrs2_" %%CSYTRS2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8266,21 +8274,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4764 ':INT32) (NRHS-REF4765 ':INT32) - (LDA-REF4767 ':INT32) (LDB-REF4770 ':INT32) - (INFO-REF4772 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4764 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4765 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4767 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4770 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4772 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4766 A) (IPIV-REF4768 IPIV) - (B-REF4769 B) (WORK-REF4771 WORK)) - (%%CSYTRS2 UPLO N-REF4764 NRHS-REF4765 A-REF4766 LDA-REF4767 IPIV-REF4768 - B-REF4769 LDB-REF4770 WORK-REF4771 INFO-REF4772)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4695 ':INT32) (NRHS-REF4696 ':INT32) + (LDA-REF4698 ':INT32) (LDB-REF4701 ':INT32) + (INFO-REF4703 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4695 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4696 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4698 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4701 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4703 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4697 A) (IPIV-REF4699 IPIV) + (B-REF4700 B) (WORK-REF4702 WORK)) + (%%CSYTRS2 UPLO N-REF4695 NRHS-REF4696 A-REF4697 LDA-REF4698 IPIV-REF4699 + B-REF4700 LDB-REF4701 WORK-REF4702 INFO-REF4703)))) (CFFI:DEFCFUN ("csytrs_3_" %%CSYTRS_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8320,21 +8328,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4774 ':INT32) (NRHS-REF4775 ':INT32) - (LDA-REF4777 ':INT32) (LDB-REF4781 ':INT32) - (INFO-REF4782 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4774 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4775 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4777 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4781 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4782 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4776 A) (E-REF4778 E) - (IPIV-REF4779 IPIV) (B-REF4780 B)) - (%%CSYTRS_3 UPLO N-REF4774 NRHS-REF4775 A-REF4776 LDA-REF4777 E-REF4778 - IPIV-REF4779 B-REF4780 LDB-REF4781 INFO-REF4782)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4705 ':INT32) (NRHS-REF4706 ':INT32) + (LDA-REF4708 ':INT32) (LDB-REF4712 ':INT32) + (INFO-REF4713 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4705 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4706 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4708 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4712 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4713 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4707 A) (E-REF4709 E) + (IPIV-REF4710 IPIV) (B-REF4711 B)) + (%%CSYTRS_3 UPLO N-REF4705 NRHS-REF4706 A-REF4707 LDA-REF4708 E-REF4709 + IPIV-REF4710 B-REF4711 LDB-REF4712 INFO-REF4713)))) (CFFI:DEFCFUN ("csytrs_aa_" %%CSYTRS_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8376,23 +8384,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4784 ':INT32) (NRHS-REF4785 ':INT32) - (LDA-REF4787 ':INT32) (LDB-REF4790 ':INT32) - (LWORK-REF4792 ':INT32) (INFO-REF4793 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4784 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4785 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4787 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4790 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4792 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4793 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4786 A) (IPIV-REF4788 IPIV) - (B-REF4789 B) (WORK-REF4791 WORK)) - (%%CSYTRS_AA UPLO N-REF4784 NRHS-REF4785 A-REF4786 LDA-REF4787 - IPIV-REF4788 B-REF4789 LDB-REF4790 WORK-REF4791 - LWORK-REF4792 INFO-REF4793)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4715 ':INT32) (NRHS-REF4716 ':INT32) + (LDA-REF4718 ':INT32) (LDB-REF4721 ':INT32) + (LWORK-REF4723 ':INT32) (INFO-REF4724 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4715 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4716 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4718 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4721 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4723 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4724 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4717 A) (IPIV-REF4719 IPIV) + (B-REF4720 B) (WORK-REF4722 WORK)) + (%%CSYTRS_AA UPLO N-REF4715 NRHS-REF4716 A-REF4717 LDA-REF4718 + IPIV-REF4719 B-REF4720 LDB-REF4721 WORK-REF4722 LWORK-REF4723 + INFO-REF4724)))) (CFFI:DEFCFUN ("csytrs_aa_2stage_" %%CSYTRS_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8440,24 +8448,24 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4795 ':INT32) (NRHS-REF4796 ':INT32) - (LDA-REF4798 ':INT32) (LTB-REF4800 ':INT32) - (LDB-REF4804 ':INT32) (INFO-REF4805 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4795 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4796 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4798 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4800 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4804 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4805 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4797 A) (TB-REF4799 TB) - (IPIV-REF4801 IPIV) - (IPIV2-REF4802 IPIV2) (B-REF4803 B)) - (%%CSYTRS_AA_2STAGE UPLO N-REF4795 NRHS-REF4796 A-REF4797 LDA-REF4798 - TB-REF4799 LTB-REF4800 IPIV-REF4801 IPIV2-REF4802 - B-REF4803 LDB-REF4804 INFO-REF4805)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4726 ':INT32) (NRHS-REF4727 ':INT32) + (LDA-REF4729 ':INT32) (LTB-REF4731 ':INT32) + (LDB-REF4735 ':INT32) (INFO-REF4736 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4726 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4727 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4729 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF4731 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4735 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4736 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4728 A) (TB-REF4730 TB) + (IPIV-REF4732 IPIV) + (IPIV2-REF4733 IPIV2) (B-REF4734 B)) + (%%CSYTRS_AA_2STAGE UPLO N-REF4726 NRHS-REF4727 A-REF4728 LDA-REF4729 + TB-REF4730 LTB-REF4731 IPIV-REF4732 IPIV2-REF4733 B-REF4734 LDB-REF4735 + INFO-REF4736)))) (CFFI:DEFCFUN ("csytrs_rook_" %%CSYTRS_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8491,20 +8499,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4807 ':INT32) (NRHS-REF4808 ':INT32) - (LDA-REF4810 ':INT32) (LDB-REF4813 ':INT32) - (INFO-REF4814 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4807 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4808 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4810 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4813 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4814 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4809 A) (IPIV-REF4811 IPIV) - (B-REF4812 B)) - (%%CSYTRS_ROOK UPLO N-REF4807 NRHS-REF4808 A-REF4809 LDA-REF4810 - IPIV-REF4811 B-REF4812 LDB-REF4813 INFO-REF4814)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4738 ':INT32) (NRHS-REF4739 ':INT32) + (LDA-REF4741 ':INT32) (LDB-REF4744 ':INT32) + (INFO-REF4745 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4738 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4739 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4741 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4744 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4745 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4740 A) (IPIV-REF4742 IPIV) + (B-REF4743 B)) + (%%CSYTRS_ROOK UPLO N-REF4738 NRHS-REF4739 A-REF4740 LDA-REF4741 + IPIV-REF4742 B-REF4743 LDB-REF4744 INFO-REF4745)))) -(CFFI:DEFCFUN ("ctbcon_" %%CTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctbcon_" %%CTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -8541,20 +8549,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4818 ':INT32) (KD-REF4819 ':INT32) - (LDAB-REF4821 ':INT32) (RCOND-REF4822 ':FLOAT) - (INFO-REF4825 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4818 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4819 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4821 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4822 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4825 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4820 AB) (WORK-REF4823 WORK) - (RWORK-REF4824 RWORK)) - (%%CTBCON NORM UPLO DIAG N-REF4818 KD-REF4819 AB-REF4820 LDAB-REF4821 - RCOND-REF4822 WORK-REF4823 RWORK-REF4824 INFO-REF4825)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4749 ':INT32) (KD-REF4750 ':INT32) + (LDAB-REF4752 ':INT32) (RCOND-REF4753 ':FLOAT) + (INFO-REF4756 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4749 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4750 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4752 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4753 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4756 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4751 AB) (WORK-REF4754 WORK) + (RWORK-REF4755 RWORK)) + (%%CTBCON NORM UPLO DIAG N-REF4749 KD-REF4750 AB-REF4751 LDAB-REF4752 + RCOND-REF4753 WORK-REF4754 RWORK-REF4755 INFO-REF4756)))) -(CFFI:DEFCFUN ("ctbrfs_" %%CTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctbrfs_" %%CTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -8617,28 +8625,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4829 ':INT32) (KD-REF4830 ':INT32) - (NRHS-REF4831 ':INT32) (LDAB-REF4833 ':INT32) - (LDB-REF4835 ':INT32) (LDX-REF4837 ':INT32) - (INFO-REF4842 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4829 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4830 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4831 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4833 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4835 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4837 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4842 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4832 AB) (B-REF4834 B) - (X-REF4836 X) (FERR-REF4838 FERR) - (BERR-REF4839 BERR) - (WORK-REF4840 WORK) - (RWORK-REF4841 RWORK)) - (%%CTBRFS UPLO TRANS DIAG N-REF4829 KD-REF4830 NRHS-REF4831 AB-REF4832 - LDAB-REF4833 B-REF4834 LDB-REF4835 X-REF4836 LDX-REF4837 - FERR-REF4838 BERR-REF4839 WORK-REF4840 RWORK-REF4841 - INFO-REF4842)))) - -(CFFI:DEFCFUN ("ctbtrs_" %%CTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4760 ':INT32) (KD-REF4761 ':INT32) + (NRHS-REF4762 ':INT32) (LDAB-REF4764 ':INT32) + (LDB-REF4766 ':INT32) (LDX-REF4768 ':INT32) + (INFO-REF4773 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4760 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4761 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4762 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4764 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4766 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF4768 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4773 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4763 AB) (B-REF4765 B) + (X-REF4767 X) (FERR-REF4769 FERR) + (BERR-REF4770 BERR) + (WORK-REF4771 WORK) + (RWORK-REF4772 RWORK)) + (%%CTBRFS UPLO TRANS DIAG N-REF4760 KD-REF4761 NRHS-REF4762 AB-REF4763 + LDAB-REF4764 B-REF4765 LDB-REF4766 X-REF4767 LDX-REF4768 FERR-REF4769 + BERR-REF4770 WORK-REF4771 RWORK-REF4772 INFO-REF4773)))) + +(CFFI:DEFCFUN ("ctbtrs_" %%CTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -8673,20 +8680,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4846 ':INT32) (KD-REF4847 ':INT32) - (NRHS-REF4848 ':INT32) (LDAB-REF4850 ':INT32) - (LDB-REF4852 ':INT32) (INFO-REF4853 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4846 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4847 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4848 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4850 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4852 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4853 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4849 AB) (B-REF4851 B)) - (%%CTBTRS UPLO TRANS DIAG N-REF4846 KD-REF4847 NRHS-REF4848 AB-REF4849 - LDAB-REF4850 B-REF4851 LDB-REF4852 INFO-REF4853)))) - -(CFFI:DEFCFUN ("ctfsm_" %%CTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4777 ':INT32) (KD-REF4778 ':INT32) + (NRHS-REF4779 ':INT32) (LDAB-REF4781 ':INT32) + (LDB-REF4783 ':INT32) (INFO-REF4784 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4777 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF4778 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF4779 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF4781 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4783 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4784 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF4780 AB) (B-REF4782 B)) + (%%CTBTRS UPLO TRANS DIAG N-REF4777 KD-REF4778 NRHS-REF4779 AB-REF4780 + LDAB-REF4781 B-REF4782 LDB-REF4783 INFO-REF4784)))) + +(CFFI:DEFCFUN ("ctfsm_" %%CTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (SIDE :STRING) @@ -8722,23 +8729,23 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4859 ':INT32) (N-REF4860 ':INT32) - (ALPHA-REF4861 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4790 ':INT32) (N-REF4791 ':INT32) + (ALPHA-REF4792 'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) - (LDB-REF4864 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4859 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4860 :INT32) N) + (LDB-REF4795 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4790 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4791 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF4861 + ALPHA-REF4792 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4864 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4862 A) (B-REF4863 B)) - (%%CTFSM TRANSR SIDE UPLO TRANS DIAG M-REF4859 N-REF4860 ALPHA-REF4861 - A-REF4862 B-REF4863 LDB-REF4864)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4795 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4793 A) (B-REF4794 B)) + (%%CTFSM TRANSR SIDE UPLO TRANS DIAG M-REF4790 N-REF4791 ALPHA-REF4792 + A-REF4793 B-REF4794 LDB-REF4795)))) -(CFFI:DEFCFUN ("ctftri_" %%CTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctftri_" %%CTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -8759,13 +8766,13 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4868 ':INT32) (INFO-REF4870 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4868 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4870 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4869 A)) - (%%CTFTRI TRANSR UPLO DIAG N-REF4868 A-REF4869 INFO-REF4870)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4799 ':INT32) (INFO-REF4801 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4799 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4801 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4800 A)) + (%%CTFTRI TRANSR UPLO DIAG N-REF4799 A-REF4800 INFO-REF4801)))) -(CFFI:DEFCFUN ("ctfttp_" %%CTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctfttp_" %%CTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -8790,13 +8797,13 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4873 ':INT32) (INFO-REF4876 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4873 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4876 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF4874 ARF) (AP-REF4875 AP)) - (%%CTFTTP TRANSR UPLO N-REF4873 ARF-REF4874 AP-REF4875 INFO-REF4876)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4804 ':INT32) (INFO-REF4807 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4804 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4807 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF4805 ARF) (AP-REF4806 AP)) + (%%CTFTTP TRANSR UPLO N-REF4804 ARF-REF4805 AP-REF4806 INFO-REF4807)))) -(CFFI:DEFCFUN ("ctfttr_" %%CTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctfttr_" %%CTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -8823,16 +8830,16 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4879 ':INT32) (LDA-REF4882 ':INT32) - (INFO-REF4883 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4879 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4882 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4883 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF4880 ARF) (A-REF4881 A)) - (%%CTFTTR TRANSR UPLO N-REF4879 ARF-REF4880 A-REF4881 LDA-REF4882 - INFO-REF4883)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4810 ':INT32) (LDA-REF4813 ':INT32) + (INFO-REF4814 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4810 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4813 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4814 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF4811 ARF) (A-REF4812 A)) + (%%CTFTTR TRANSR UPLO N-REF4810 ARF-REF4811 A-REF4812 LDA-REF4813 + INFO-REF4814)))) -(CFFI:DEFCFUN ("ctgevc_" %%CTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctgevc_" %%CTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -8898,29 +8905,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4887 ':INT32) (LDS-REF4889 ':INT32) - (LDP-REF4891 ':INT32) (LDVL-REF4893 ':INT32) - (LDVR-REF4895 ':INT32) (MM-REF4896 ':INT32) - (M-REF4897 ':INT32) (INFO-REF4900 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4887 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF4889 :INT32) LDS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF4891 :INT32) LDP) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4893 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4895 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF4896 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4897 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4900 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4886 SELECT) - (S-REF4888 S) (P-REF4890 P) - (VL-REF4892 VL) (VR-REF4894 VR) - (WORK-REF4898 WORK) - (RWORK-REF4899 RWORK)) - (%%CTGEVC SIDE HOWMNY SELECT-REF4886 N-REF4887 S-REF4888 LDS-REF4889 - P-REF4890 LDP-REF4891 VL-REF4892 LDVL-REF4893 VR-REF4894 - LDVR-REF4895 MM-REF4896 M-REF4897 WORK-REF4898 RWORK-REF4899 - INFO-REF4900)))) - -(CFFI:DEFCFUN ("ctgex2_" %%CTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4818 ':INT32) (LDS-REF4820 ':INT32) + (LDP-REF4822 ':INT32) (LDVL-REF4824 ':INT32) + (LDVR-REF4826 ':INT32) (MM-REF4827 ':INT32) + (M-REF4828 ':INT32) (INFO-REF4831 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4818 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF4820 :INT32) LDS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF4822 :INT32) LDP) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4824 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4826 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF4827 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4828 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4831 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4817 SELECT) + (S-REF4819 S) (P-REF4821 P) + (VL-REF4823 VL) (VR-REF4825 VR) + (WORK-REF4829 WORK) + (RWORK-REF4830 RWORK)) + (%%CTGEVC SIDE HOWMNY SELECT-REF4817 N-REF4818 S-REF4819 LDS-REF4820 + P-REF4821 LDP-REF4822 VL-REF4823 LDVL-REF4824 VR-REF4825 LDVR-REF4826 + MM-REF4827 M-REF4828 WORK-REF4829 RWORK-REF4830 INFO-REF4831)))) + +(CFFI:DEFCFUN ("ctgex2_" %%CTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (WANTZ :POINTER) @@ -8967,27 +8973,27 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF4901 ':INT32) (WANTZ-REF4902 ':INT32) - (N-REF4903 ':INT32) (LDA-REF4905 ':INT32) - (LDB-REF4907 ':INT32) (LDQ-REF4909 ':INT32) - (LDZ-REF4911 ':INT32) (J1-REF4912 ':INT32) - (INFO-REF4913 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4901 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4902 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4903 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4905 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4907 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4909 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4911 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF4912 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4913 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4904 A) (B-REF4906 B) - (Q-REF4908 Q) (Z-REF4910 Z)) - (%%CTGEX2 WANTQ-REF4901 WANTZ-REF4902 N-REF4903 A-REF4904 LDA-REF4905 - B-REF4906 LDB-REF4907 Q-REF4908 LDQ-REF4909 Z-REF4910 - LDZ-REF4911 J1-REF4912 INFO-REF4913)))) - -(CFFI:DEFCFUN ("ctgexc_" %%CTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF4832 ':INT32) (WANTZ-REF4833 ':INT32) + (N-REF4834 ':INT32) (LDA-REF4836 ':INT32) + (LDB-REF4838 ':INT32) (LDQ-REF4840 ':INT32) + (LDZ-REF4842 ':INT32) (J1-REF4843 ':INT32) + (INFO-REF4844 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4832 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4833 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4834 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4836 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4838 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4840 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4842 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF4843 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4844 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4835 A) (B-REF4837 B) + (Q-REF4839 Q) (Z-REF4841 Z)) + (%%CTGEX2 WANTQ-REF4832 WANTZ-REF4833 N-REF4834 A-REF4835 LDA-REF4836 + B-REF4837 LDB-REF4838 Q-REF4839 LDQ-REF4840 Z-REF4841 LDZ-REF4842 + J1-REF4843 INFO-REF4844)))) + +(CFFI:DEFCFUN ("ctgexc_" %%CTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (WANTZ :POINTER) @@ -9037,28 +9043,28 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF4914 ':INT32) (WANTZ-REF4915 ':INT32) - (N-REF4916 ':INT32) (LDA-REF4918 ':INT32) - (LDB-REF4920 ':INT32) (LDQ-REF4922 ':INT32) - (LDZ-REF4924 ':INT32) (IFST-REF4925 ':INT32) - (ILST-REF4926 ':INT32) (INFO-REF4927 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4914 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4915 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4916 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4918 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4920 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4922 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4924 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF4925 :INT32) IFST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF4926 :INT32) ILST) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4927 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4917 A) (B-REF4919 B) - (Q-REF4921 Q) (Z-REF4923 Z)) - (%%CTGEXC WANTQ-REF4914 WANTZ-REF4915 N-REF4916 A-REF4917 LDA-REF4918 - B-REF4919 LDB-REF4920 Q-REF4921 LDQ-REF4922 Z-REF4923 - LDZ-REF4924 IFST-REF4925 ILST-REF4926 INFO-REF4927)))) - -(CFFI:DEFCFUN ("ctgsen_" %%CTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF4845 ':INT32) (WANTZ-REF4846 ':INT32) + (N-REF4847 ':INT32) (LDA-REF4849 ':INT32) + (LDB-REF4851 ':INT32) (LDQ-REF4853 ':INT32) + (LDZ-REF4855 ':INT32) (IFST-REF4856 ':INT32) + (ILST-REF4857 ':INT32) (INFO-REF4858 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4845 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4846 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4847 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4849 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4851 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4853 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4855 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF4856 :INT32) IFST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF4857 :INT32) ILST) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4858 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4848 A) (B-REF4850 B) + (Q-REF4852 Q) (Z-REF4854 Z)) + (%%CTGEXC WANTQ-REF4845 WANTZ-REF4846 N-REF4847 A-REF4848 LDA-REF4849 + B-REF4850 LDB-REF4851 Q-REF4852 LDQ-REF4853 Z-REF4854 LDZ-REF4855 + IFST-REF4856 ILST-REF4857 INFO-REF4858)))) + +(CFFI:DEFCFUN ("ctgsen_" %%CTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (WANTQ :POINTER) @@ -9149,42 +9155,41 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4928 ':INT32) (WANTQ-REF4929 ':INT32) - (WANTZ-REF4930 ':INT32) (N-REF4932 ':INT32) - (LDA-REF4934 ':INT32) (LDB-REF4936 ':INT32) - (LDQ-REF4940 ':INT32) (LDZ-REF4942 ':INT32) - (M-REF4943 ':INT32) (PL-REF4944 ':FLOAT) - (PR-REF4945 ':FLOAT) (LWORK-REF4948 ':INT32) - (LIWORK-REF4950 ':INT32) (INFO-REF4951 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4928 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4929 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4930 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4932 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4934 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4936 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4940 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4942 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4943 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF4944 :FLOAT) PL) - (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF4945 :FLOAT) PR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4948 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4950 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4951 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4931 SELECT) - (A-REF4933 A) (B-REF4935 B) - (ALPHA-REF4937 ALPHA) - (BETA-REF4938 BETA) (Q-REF4939 Q) - (Z-REF4941 Z) (DIF-REF4946 DIF) - (WORK-REF4947 WORK) - (IWORK-REF4949 IWORK)) - (%%CTGSEN IJOB-REF4928 WANTQ-REF4929 WANTZ-REF4930 SELECT-REF4931 - N-REF4932 A-REF4933 LDA-REF4934 B-REF4935 LDB-REF4936 - ALPHA-REF4937 BETA-REF4938 Q-REF4939 LDQ-REF4940 Z-REF4941 - LDZ-REF4942 M-REF4943 PL-REF4944 PR-REF4945 DIF-REF4946 - WORK-REF4947 LWORK-REF4948 IWORK-REF4949 LIWORK-REF4950 - INFO-REF4951)))) - -(CFFI:DEFCFUN ("ctgsja_" %%CTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4859 ':INT32) (WANTQ-REF4860 ':INT32) + (WANTZ-REF4861 ':INT32) (N-REF4863 ':INT32) + (LDA-REF4865 ':INT32) (LDB-REF4867 ':INT32) + (LDQ-REF4871 ':INT32) (LDZ-REF4873 ':INT32) + (M-REF4874 ':INT32) (PL-REF4875 ':FLOAT) + (PR-REF4876 ':FLOAT) (LWORK-REF4879 ':INT32) + (LIWORK-REF4881 ':INT32) (INFO-REF4882 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4859 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF4860 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF4861 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4863 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4865 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4867 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4871 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF4873 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4874 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF4875 :FLOAT) PL) + (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF4876 :FLOAT) PR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4879 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF4881 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4882 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4862 SELECT) + (A-REF4864 A) (B-REF4866 B) + (ALPHA-REF4868 ALPHA) + (BETA-REF4869 BETA) (Q-REF4870 Q) + (Z-REF4872 Z) (DIF-REF4877 DIF) + (WORK-REF4878 WORK) + (IWORK-REF4880 IWORK)) + (%%CTGSEN IJOB-REF4859 WANTQ-REF4860 WANTZ-REF4861 SELECT-REF4862 + N-REF4863 A-REF4864 LDA-REF4865 B-REF4866 LDB-REF4867 ALPHA-REF4868 + BETA-REF4869 Q-REF4870 LDQ-REF4871 Z-REF4872 LDZ-REF4873 M-REF4874 + PL-REF4875 PR-REF4876 DIF-REF4877 WORK-REF4878 LWORK-REF4879 + IWORK-REF4880 LIWORK-REF4881 INFO-REF4882)))) + +(CFFI:DEFCFUN ("ctgsja_" %%CTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -9269,39 +9274,39 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4955 ':INT32) (P-REF4956 ':INT32) - (N-REF4957 ':INT32) (K-REF4958 ':INT32) - (L-REF4959 ':INT32) (LDA-REF4961 ':INT32) - (LDB-REF4963 ':INT32) (TOLA-REF4964 ':FLOAT) - (TOLB-REF4965 ':FLOAT) (LDU-REF4969 ':INT32) - (LDV-REF4971 ':INT32) (LDQ-REF4973 ':INT32) - (NCYCLE-REF4975 ':INT32) (INFO-REF4976 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4955 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF4956 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4957 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4958 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4959 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4961 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4963 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF4964 :FLOAT) TOLA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF4965 :FLOAT) TOLB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF4969 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF4971 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4973 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF4975 :INT32) NCYCLE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4976 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4960 A) (B-REF4962 B) - (ALPHA-REF4966 ALPHA) - (BETA-REF4967 BETA) (U-REF4968 U) - (V-REF4970 V) (Q-REF4972 Q) - (WORK-REF4974 WORK)) - (%%CTGSJA JOBU JOBV JOBQ M-REF4955 P-REF4956 N-REF4957 K-REF4958 - L-REF4959 A-REF4960 LDA-REF4961 B-REF4962 LDB-REF4963 - TOLA-REF4964 TOLB-REF4965 ALPHA-REF4966 BETA-REF4967 U-REF4968 - LDU-REF4969 V-REF4970 LDV-REF4971 Q-REF4972 LDQ-REF4973 - WORK-REF4974 NCYCLE-REF4975 INFO-REF4976)))) - -(CFFI:DEFCFUN ("ctgsna_" %%CTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4886 ':INT32) (P-REF4887 ':INT32) + (N-REF4888 ':INT32) (K-REF4889 ':INT32) + (L-REF4890 ':INT32) (LDA-REF4892 ':INT32) + (LDB-REF4894 ':INT32) (TOLA-REF4895 ':FLOAT) + (TOLB-REF4896 ':FLOAT) (LDU-REF4900 ':INT32) + (LDV-REF4902 ':INT32) (LDQ-REF4904 ':INT32) + (NCYCLE-REF4906 ':INT32) (INFO-REF4907 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4886 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF4887 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4888 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF4889 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4890 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4892 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4894 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF4895 :FLOAT) TOLA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF4896 :FLOAT) TOLB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF4900 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF4902 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF4904 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF4906 :INT32) NCYCLE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4907 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4891 A) (B-REF4893 B) + (ALPHA-REF4897 ALPHA) + (BETA-REF4898 BETA) (U-REF4899 U) + (V-REF4901 V) (Q-REF4903 Q) + (WORK-REF4905 WORK)) + (%%CTGSJA JOBU JOBV JOBQ M-REF4886 P-REF4887 N-REF4888 K-REF4889 + L-REF4890 A-REF4891 LDA-REF4892 B-REF4893 LDB-REF4894 TOLA-REF4895 + TOLB-REF4896 ALPHA-REF4897 BETA-REF4898 U-REF4899 LDU-REF4900 V-REF4901 + LDV-REF4902 Q-REF4903 LDQ-REF4904 WORK-REF4905 NCYCLE-REF4906 + INFO-REF4907)))) + +(CFFI:DEFCFUN ("ctgsna_" %%CTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (HOWMNY :STRING) @@ -9377,32 +9382,32 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4980 ':INT32) (LDA-REF4982 ':INT32) - (LDB-REF4984 ':INT32) (LDVL-REF4986 ':INT32) - (LDVR-REF4988 ':INT32) (MM-REF4991 ':INT32) - (M-REF4992 ':INT32) (LWORK-REF4994 ':INT32) - (INFO-REF4996 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4980 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4982 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4984 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4986 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4988 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF4991 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4992 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4994 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4996 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4979 SELECT) - (A-REF4981 A) (B-REF4983 B) - (VL-REF4985 VL) (VR-REF4987 VR) - (S-REF4989 S) (DIF-REF4990 DIF) - (WORK-REF4993 WORK) - (IWORK-REF4995 IWORK)) - (%%CTGSNA JOB HOWMNY SELECT-REF4979 N-REF4980 A-REF4981 LDA-REF4982 - B-REF4983 LDB-REF4984 VL-REF4985 LDVL-REF4986 VR-REF4987 - LDVR-REF4988 S-REF4989 DIF-REF4990 MM-REF4991 M-REF4992 - WORK-REF4993 LWORK-REF4994 IWORK-REF4995 INFO-REF4996)))) - -(CFFI:DEFCFUN ("ctgsy2_" %%CTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4911 ':INT32) (LDA-REF4913 ':INT32) + (LDB-REF4915 ':INT32) (LDVL-REF4917 ':INT32) + (LDVR-REF4919 ':INT32) (MM-REF4922 ':INT32) + (M-REF4923 ':INT32) (LWORK-REF4925 ':INT32) + (INFO-REF4927 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4911 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4913 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4915 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF4917 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF4919 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF4922 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4923 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4925 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4927 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF4910 SELECT) + (A-REF4912 A) (B-REF4914 B) + (VL-REF4916 VL) (VR-REF4918 VR) + (S-REF4920 S) (DIF-REF4921 DIF) + (WORK-REF4924 WORK) + (IWORK-REF4926 IWORK)) + (%%CTGSNA JOB HOWMNY SELECT-REF4910 N-REF4911 A-REF4912 LDA-REF4913 + B-REF4914 LDB-REF4915 VL-REF4916 LDVL-REF4917 VR-REF4918 LDVR-REF4919 + S-REF4920 DIF-REF4921 MM-REF4922 M-REF4923 WORK-REF4924 LWORK-REF4925 + IWORK-REF4926 INFO-REF4927)))) + +(CFFI:DEFCFUN ("ctgsy2_" %%CTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (IJOB :POINTER) @@ -9473,35 +9478,35 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4998 ':INT32) (M-REF4999 ':INT32) - (N-REF5000 ':INT32) (LDA-REF5002 ':INT32) - (LDB-REF5004 ':INT32) (LDC-REF5006 ':INT32) - (LDD-REF5008 ':INT32) (LDE-REF5010 ':INT32) - (LDF-REF5012 ':INT32) (SCALE-REF5013 ':FLOAT) - (RDSUM-REF5014 ':FLOAT) (RDSCAL-REF5015 ':FLOAT) - (INFO-REF5016 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4998 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4999 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5000 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5002 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5004 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5006 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF5008 :INT32) LDD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF5010 :INT32) LDE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF5012 :INT32) LDF) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5013 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF5014 :FLOAT) RDSUM) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF5015 :FLOAT) RDSCAL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5016 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5001 A) (B-REF5003 B) - (C-REF5005 C) (D-REF5007 D) - (E-REF5009 E) (F-REF5011 F)) - (%%CTGSY2 TRANS IJOB-REF4998 M-REF4999 N-REF5000 A-REF5001 LDA-REF5002 - B-REF5003 LDB-REF5004 C-REF5005 LDC-REF5006 D-REF5007 - LDD-REF5008 E-REF5009 LDE-REF5010 F-REF5011 LDF-REF5012 - SCALE-REF5013 RDSUM-REF5014 RDSCAL-REF5015 INFO-REF5016)))) - -(CFFI:DEFCFUN ("ctgsyl_" %%CTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4929 ':INT32) (M-REF4930 ':INT32) + (N-REF4931 ':INT32) (LDA-REF4933 ':INT32) + (LDB-REF4935 ':INT32) (LDC-REF4937 ':INT32) + (LDD-REF4939 ':INT32) (LDE-REF4941 ':INT32) + (LDF-REF4943 ':INT32) (SCALE-REF4944 ':FLOAT) + (RDSUM-REF4945 ':FLOAT) (RDSCAL-REF4946 ':FLOAT) + (INFO-REF4947 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4929 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4930 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4931 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4933 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4935 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF4937 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF4939 :INT32) LDD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF4941 :INT32) LDE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF4943 :INT32) LDF) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF4944 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF4945 :FLOAT) RDSUM) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF4946 :FLOAT) RDSCAL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4947 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4932 A) (B-REF4934 B) + (C-REF4936 C) (D-REF4938 D) + (E-REF4940 E) (F-REF4942 F)) + (%%CTGSY2 TRANS IJOB-REF4929 M-REF4930 N-REF4931 A-REF4932 LDA-REF4933 + B-REF4934 LDB-REF4935 C-REF4936 LDC-REF4937 D-REF4938 LDD-REF4939 + E-REF4940 LDE-REF4941 F-REF4942 LDF-REF4943 SCALE-REF4944 RDSUM-REF4945 + RDSCAL-REF4946 INFO-REF4947)))) + +(CFFI:DEFCFUN ("ctgsyl_" %%CTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (IJOB :POINTER) @@ -9583,38 +9588,37 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF5018 ':INT32) (M-REF5019 ':INT32) - (N-REF5020 ':INT32) (LDA-REF5022 ':INT32) - (LDB-REF5024 ':INT32) (LDC-REF5026 ':INT32) - (LDD-REF5028 ':INT32) (LDE-REF5030 ':INT32) - (LDF-REF5032 ':INT32) (SCALE-REF5033 ':FLOAT) - (DIF-REF5034 ':FLOAT) (LWORK-REF5036 ':INT32) - (INFO-REF5038 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF5018 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5019 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5020 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5022 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5024 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5026 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF5028 :INT32) LDD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF5030 :INT32) LDE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF5032 :INT32) LDF) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5033 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF5034 :FLOAT) DIF) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5036 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5038 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5021 A) (B-REF5023 B) - (C-REF5025 C) (D-REF5027 D) - (E-REF5029 E) (F-REF5031 F) - (WORK-REF5035 WORK) - (IWORK-REF5037 IWORK)) - (%%CTGSYL TRANS IJOB-REF5018 M-REF5019 N-REF5020 A-REF5021 LDA-REF5022 - B-REF5023 LDB-REF5024 C-REF5025 LDC-REF5026 D-REF5027 - LDD-REF5028 E-REF5029 LDE-REF5030 F-REF5031 LDF-REF5032 - SCALE-REF5033 DIF-REF5034 WORK-REF5035 LWORK-REF5036 - IWORK-REF5037 INFO-REF5038)))) - -(CFFI:DEFCFUN ("ctpcon_" %%CTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF4949 ':INT32) (M-REF4950 ':INT32) + (N-REF4951 ':INT32) (LDA-REF4953 ':INT32) + (LDB-REF4955 ':INT32) (LDC-REF4957 ':INT32) + (LDD-REF4959 ':INT32) (LDE-REF4961 ':INT32) + (LDF-REF4963 ':INT32) (SCALE-REF4964 ':FLOAT) + (DIF-REF4965 ':FLOAT) (LWORK-REF4967 ':INT32) + (INFO-REF4969 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF4949 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4950 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4951 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4953 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4955 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF4957 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF4959 :INT32) LDD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF4961 :INT32) LDE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF4963 :INT32) LDF) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF4964 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF4965 :FLOAT) DIF) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF4967 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4969 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4952 A) (B-REF4954 B) + (C-REF4956 C) (D-REF4958 D) + (E-REF4960 E) (F-REF4962 F) + (WORK-REF4966 WORK) + (IWORK-REF4968 IWORK)) + (%%CTGSYL TRANS IJOB-REF4949 M-REF4950 N-REF4951 A-REF4952 LDA-REF4953 + B-REF4954 LDB-REF4955 C-REF4956 LDC-REF4957 D-REF4958 LDD-REF4959 + E-REF4960 LDE-REF4961 F-REF4962 LDF-REF4963 SCALE-REF4964 DIF-REF4965 + WORK-REF4966 LWORK-REF4967 IWORK-REF4968 INFO-REF4969)))) + +(CFFI:DEFCFUN ("ctpcon_" %%CTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -9647,17 +9651,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5042 ':INT32) (RCOND-REF5044 ':FLOAT) - (INFO-REF5047 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5042 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5044 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5047 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5043 AP) (WORK-REF5045 WORK) - (RWORK-REF5046 RWORK)) - (%%CTPCON NORM UPLO DIAG N-REF5042 AP-REF5043 RCOND-REF5044 WORK-REF5045 - RWORK-REF5046 INFO-REF5047)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF4973 ':INT32) (RCOND-REF4975 ':FLOAT) + (INFO-REF4978 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4973 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF4975 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4978 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF4974 AP) (WORK-REF4976 WORK) + (RWORK-REF4977 RWORK)) + (%%CTPCON NORM UPLO DIAG N-REF4973 AP-REF4974 RCOND-REF4975 WORK-REF4976 + RWORK-REF4977 INFO-REF4978)))) -(CFFI:DEFCFUN ("ctplqt_" %%CTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctplqt_" %%CTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -9702,25 +9706,25 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5048 ':INT32) (N-REF5049 ':INT32) - (L-REF5050 ':INT32) (MB-REF5051 ':INT32) - (LDA-REF5053 ':INT32) (LDB-REF5055 ':INT32) - (LDT-REF5057 ':INT32) (INFO-REF5059 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5048 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5049 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5050 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5051 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5053 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5055 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5057 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5059 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5052 A) (B-REF5054 B) - (T-REF5056 T) (WORK-REF5058 WORK)) - (%%CTPLQT M-REF5048 N-REF5049 L-REF5050 MB-REF5051 A-REF5052 LDA-REF5053 - B-REF5054 LDB-REF5055 T-REF5056 LDT-REF5057 WORK-REF5058 - INFO-REF5059)))) - -(CFFI:DEFCFUN ("ctplqt2_" %%CTPLQT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4979 ':INT32) (N-REF4980 ':INT32) + (L-REF4981 ':INT32) (MB-REF4982 ':INT32) + (LDA-REF4984 ':INT32) (LDB-REF4986 ':INT32) + (LDT-REF4988 ':INT32) (INFO-REF4990 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4979 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4980 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4981 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF4982 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4984 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4986 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF4988 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF4990 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4983 A) (B-REF4985 B) + (T-REF4987 T) (WORK-REF4989 WORK)) + (%%CTPLQT M-REF4979 N-REF4980 L-REF4981 MB-REF4982 A-REF4983 LDA-REF4984 + B-REF4985 LDB-REF4986 T-REF4987 LDT-REF4988 WORK-REF4989 INFO-REF4990)))) + +(CFFI:DEFCFUN ("ctplqt2_" %%CTPLQT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -9757,23 +9761,24 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5060 ':INT32) (N-REF5061 ':INT32) - (L-REF5062 ':INT32) (LDA-REF5064 ':INT32) - (LDB-REF5066 ':INT32) (LDT-REF5068 ':INT32) - (INFO-REF5069 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5060 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5061 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5062 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5064 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5066 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5068 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5069 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5063 A) (B-REF5065 B) - (T-REF5067 T)) - (%%CTPLQT2 M-REF5060 N-REF5061 L-REF5062 A-REF5063 LDA-REF5064 B-REF5065 - LDB-REF5066 T-REF5067 LDT-REF5068 INFO-REF5069)))) - -(CFFI:DEFCFUN ("ctpmlqt_" %%CTPMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF4991 ':INT32) (N-REF4992 ':INT32) + (L-REF4993 ':INT32) (LDA-REF4995 ':INT32) + (LDB-REF4997 ':INT32) (LDT-REF4999 ':INT32) + (INFO-REF5000 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF4991 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF4992 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF4993 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF4995 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF4997 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF4999 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5000 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF4994 A) (B-REF4996 B) + (T-REF4998 T)) + (%%CTPLQT2 M-REF4991 N-REF4992 L-REF4993 A-REF4994 LDA-REF4995 B-REF4996 + LDB-REF4997 T-REF4998 LDT-REF4999 INFO-REF5000)))) + +(CFFI:DEFCFUN ("ctpmlqt_" %%CTPMLQT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -9833,29 +9838,30 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5072 ':INT32) (N-REF5073 ':INT32) - (K-REF5074 ':INT32) (L-REF5075 ':INT32) - (MB-REF5076 ':INT32) (LDV-REF5078 ':INT32) - (LDT-REF5080 ':INT32) (LDA-REF5082 ':INT32) - (LDB-REF5084 ':INT32) (INFO-REF5086 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5072 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5073 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5074 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5075 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5076 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5078 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5080 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5082 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5084 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5086 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5077 V) (T-REF5079 T) - (A-REF5081 A) (B-REF5083 B) - (WORK-REF5085 WORK)) - (%%CTPMLQT SIDE TRANS M-REF5072 N-REF5073 K-REF5074 L-REF5075 MB-REF5076 - V-REF5077 LDV-REF5078 T-REF5079 LDT-REF5080 A-REF5081 - LDA-REF5082 B-REF5083 LDB-REF5084 WORK-REF5085 INFO-REF5086)))) - -(CFFI:DEFCFUN ("ctpmqrt_" %%CTPMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5003 ':INT32) (N-REF5004 ':INT32) + (K-REF5005 ':INT32) (L-REF5006 ':INT32) + (MB-REF5007 ':INT32) (LDV-REF5009 ':INT32) + (LDT-REF5011 ':INT32) (LDA-REF5013 ':INT32) + (LDB-REF5015 ':INT32) (INFO-REF5017 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5003 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5004 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5005 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5006 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5007 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5009 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5011 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5013 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5015 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5017 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5008 V) (T-REF5010 T) + (A-REF5012 A) (B-REF5014 B) + (WORK-REF5016 WORK)) + (%%CTPMLQT SIDE TRANS M-REF5003 N-REF5004 K-REF5005 L-REF5006 MB-REF5007 + V-REF5008 LDV-REF5009 T-REF5010 LDT-REF5011 A-REF5012 LDA-REF5013 + B-REF5014 LDB-REF5015 WORK-REF5016 INFO-REF5017)))) + +(CFFI:DEFCFUN ("ctpmqrt_" %%CTPMQRT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -9915,29 +9921,29 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5089 ':INT32) (N-REF5090 ':INT32) - (K-REF5091 ':INT32) (L-REF5092 ':INT32) - (NB-REF5093 ':INT32) (LDV-REF5095 ':INT32) - (LDT-REF5097 ':INT32) (LDA-REF5099 ':INT32) - (LDB-REF5101 ':INT32) (INFO-REF5103 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5089 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5090 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5091 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5092 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5093 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5095 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5097 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5099 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5101 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5103 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5094 V) (T-REF5096 T) - (A-REF5098 A) (B-REF5100 B) - (WORK-REF5102 WORK)) - (%%CTPMQRT SIDE TRANS M-REF5089 N-REF5090 K-REF5091 L-REF5092 NB-REF5093 - V-REF5094 LDV-REF5095 T-REF5096 LDT-REF5097 A-REF5098 - LDA-REF5099 B-REF5100 LDB-REF5101 WORK-REF5102 INFO-REF5103)))) - -(CFFI:DEFCFUN ("ctpqrt_" %%CTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5020 ':INT32) (N-REF5021 ':INT32) + (K-REF5022 ':INT32) (L-REF5023 ':INT32) + (NB-REF5024 ':INT32) (LDV-REF5026 ':INT32) + (LDT-REF5028 ':INT32) (LDA-REF5030 ':INT32) + (LDB-REF5032 ':INT32) (INFO-REF5034 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5020 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5021 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5022 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5023 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5024 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5026 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5028 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5030 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5032 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5034 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5025 V) (T-REF5027 T) + (A-REF5029 A) (B-REF5031 B) + (WORK-REF5033 WORK)) + (%%CTPMQRT SIDE TRANS M-REF5020 N-REF5021 K-REF5022 L-REF5023 NB-REF5024 + V-REF5025 LDV-REF5026 T-REF5027 LDT-REF5028 A-REF5029 LDA-REF5030 + B-REF5031 LDB-REF5032 WORK-REF5033 INFO-REF5034)))) + +(CFFI:DEFCFUN ("ctpqrt_" %%CTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -9982,25 +9988,25 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5104 ':INT32) (N-REF5105 ':INT32) - (L-REF5106 ':INT32) (NB-REF5107 ':INT32) - (LDA-REF5109 ':INT32) (LDB-REF5111 ':INT32) - (LDT-REF5113 ':INT32) (INFO-REF5115 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5104 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5105 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5106 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5107 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5109 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5111 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5113 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5115 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5108 A) (B-REF5110 B) - (T-REF5112 T) (WORK-REF5114 WORK)) - (%%CTPQRT M-REF5104 N-REF5105 L-REF5106 NB-REF5107 A-REF5108 LDA-REF5109 - B-REF5110 LDB-REF5111 T-REF5112 LDT-REF5113 WORK-REF5114 - INFO-REF5115)))) - -(CFFI:DEFCFUN ("ctpqrt2_" %%CTPQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5035 ':INT32) (N-REF5036 ':INT32) + (L-REF5037 ':INT32) (NB-REF5038 ':INT32) + (LDA-REF5040 ':INT32) (LDB-REF5042 ':INT32) + (LDT-REF5044 ':INT32) (INFO-REF5046 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5035 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5036 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5037 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5038 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5040 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5042 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5044 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5046 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5039 A) (B-REF5041 B) + (T-REF5043 T) (WORK-REF5045 WORK)) + (%%CTPQRT M-REF5035 N-REF5036 L-REF5037 NB-REF5038 A-REF5039 LDA-REF5040 + B-REF5041 LDB-REF5042 T-REF5043 LDT-REF5044 WORK-REF5045 INFO-REF5046)))) + +(CFFI:DEFCFUN ("ctpqrt2_" %%CTPQRT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -10037,23 +10043,23 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5116 ':INT32) (N-REF5117 ':INT32) - (L-REF5118 ':INT32) (LDA-REF5120 ':INT32) - (LDB-REF5122 ':INT32) (LDT-REF5124 ':INT32) - (INFO-REF5125 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5116 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5117 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5118 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5120 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5122 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5124 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5125 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5119 A) (B-REF5121 B) - (T-REF5123 T)) - (%%CTPQRT2 M-REF5116 N-REF5117 L-REF5118 A-REF5119 LDA-REF5120 B-REF5121 - LDB-REF5122 T-REF5123 LDT-REF5124 INFO-REF5125)))) - -(CFFI:DEFCFUN ("ctprfb_" %%CTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5047 ':INT32) (N-REF5048 ':INT32) + (L-REF5049 ':INT32) (LDA-REF5051 ':INT32) + (LDB-REF5053 ':INT32) (LDT-REF5055 ':INT32) + (INFO-REF5056 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5047 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5048 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5049 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5051 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5053 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5055 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5056 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5050 A) (B-REF5052 B) + (T-REF5054 T)) + (%%CTPQRT2 M-REF5047 N-REF5048 L-REF5049 A-REF5050 LDA-REF5051 B-REF5052 + LDB-REF5053 T-REF5054 LDT-REF5055 INFO-REF5056)))) + +(CFFI:DEFCFUN ("ctprfb_" %%CTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -10116,29 +10122,28 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5130 ':INT32) (N-REF5131 ':INT32) - (K-REF5132 ':INT32) (L-REF5133 ':INT32) - (LDV-REF5135 ':INT32) (LDT-REF5137 ':INT32) - (LDA-REF5139 ':INT32) (LDB-REF5141 ':INT32) - (LDWORK-REF5143 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5130 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5131 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5132 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5133 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5135 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5137 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5139 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5141 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF5143 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5134 V) (T-REF5136 T) - (A-REF5138 A) (B-REF5140 B) - (WORK-REF5142 WORK)) - (%%CTPRFB SIDE TRANS DIRECT STOREV M-REF5130 N-REF5131 K-REF5132 - L-REF5133 V-REF5134 LDV-REF5135 T-REF5136 LDT-REF5137 A-REF5138 - LDA-REF5139 B-REF5140 LDB-REF5141 WORK-REF5142 - LDWORK-REF5143)))) - -(CFFI:DEFCFUN ("ctprfs_" %%CTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5061 ':INT32) (N-REF5062 ':INT32) + (K-REF5063 ':INT32) (L-REF5064 ':INT32) + (LDV-REF5066 ':INT32) (LDT-REF5068 ':INT32) + (LDA-REF5070 ':INT32) (LDB-REF5072 ':INT32) + (LDWORK-REF5074 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5061 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5062 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5063 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5064 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF5066 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5068 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5070 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5072 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF5074 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF5065 V) (T-REF5067 T) + (A-REF5069 A) (B-REF5071 B) + (WORK-REF5073 WORK)) + (%%CTPRFB SIDE TRANS DIRECT STOREV M-REF5061 N-REF5062 K-REF5063 + L-REF5064 V-REF5065 LDV-REF5066 T-REF5067 LDT-REF5068 A-REF5069 + LDA-REF5070 B-REF5071 LDB-REF5072 WORK-REF5073 LDWORK-REF5074)))) + +(CFFI:DEFCFUN ("ctprfs_" %%CTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10197,24 +10202,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5147 ':INT32) (NRHS-REF5148 ':INT32) - (LDB-REF5151 ':INT32) (LDX-REF5153 ':INT32) - (INFO-REF5158 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5147 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5148 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5151 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5153 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5158 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5149 AP) (B-REF5150 B) - (X-REF5152 X) (FERR-REF5154 FERR) - (BERR-REF5155 BERR) - (WORK-REF5156 WORK) - (RWORK-REF5157 RWORK)) - (%%CTPRFS UPLO TRANS DIAG N-REF5147 NRHS-REF5148 AP-REF5149 B-REF5150 - LDB-REF5151 X-REF5152 LDX-REF5153 FERR-REF5154 BERR-REF5155 - WORK-REF5156 RWORK-REF5157 INFO-REF5158)))) - -(CFFI:DEFCFUN ("ctptri_" %%CTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5078 ':INT32) (NRHS-REF5079 ':INT32) + (LDB-REF5082 ':INT32) (LDX-REF5084 ':INT32) + (INFO-REF5089 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5078 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5079 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5082 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5084 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5089 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5080 AP) (B-REF5081 B) + (X-REF5083 X) (FERR-REF5085 FERR) + (BERR-REF5086 BERR) + (WORK-REF5087 WORK) + (RWORK-REF5088 RWORK)) + (%%CTPRFS UPLO TRANS DIAG N-REF5078 NRHS-REF5079 AP-REF5080 B-REF5081 + LDB-REF5082 X-REF5083 LDX-REF5084 FERR-REF5085 BERR-REF5086 WORK-REF5087 + RWORK-REF5088 INFO-REF5089)))) + +(CFFI:DEFCFUN ("ctptri_" %%CTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -10233,13 +10238,13 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5161 ':INT32) (INFO-REF5163 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5161 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5163 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5162 AP)) - (%%CTPTRI UPLO DIAG N-REF5161 AP-REF5162 INFO-REF5163)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5092 ':INT32) (INFO-REF5094 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5092 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5094 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5093 AP)) + (%%CTPTRI UPLO DIAG N-REF5092 AP-REF5093 INFO-REF5094)))) -(CFFI:DEFCFUN ("ctptrs_" %%CTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctptrs_" %%CTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10270,17 +10275,17 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5167 ':INT32) (NRHS-REF5168 ':INT32) - (LDB-REF5171 ':INT32) (INFO-REF5172 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5167 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5168 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5171 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5172 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5169 AP) (B-REF5170 B)) - (%%CTPTRS UPLO TRANS DIAG N-REF5167 NRHS-REF5168 AP-REF5169 B-REF5170 - LDB-REF5171 INFO-REF5172)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5098 ':INT32) (NRHS-REF5099 ':INT32) + (LDB-REF5102 ':INT32) (INFO-REF5103 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5098 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5099 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5102 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5103 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5100 AP) (B-REF5101 B)) + (%%CTPTRS UPLO TRANS DIAG N-REF5098 NRHS-REF5099 AP-REF5100 B-REF5101 + LDB-REF5102 INFO-REF5103)))) -(CFFI:DEFCFUN ("ctpttf_" %%CTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctpttf_" %%CTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -10305,13 +10310,13 @@ (COMMON-LISP:*)) ARF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5175 ':INT32) (INFO-REF5178 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5175 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5178 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5176 AP) (ARF-REF5177 ARF)) - (%%CTPTTF TRANSR UPLO N-REF5175 AP-REF5176 ARF-REF5177 INFO-REF5178)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5106 ':INT32) (INFO-REF5109 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5106 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5109 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5107 AP) (ARF-REF5108 ARF)) + (%%CTPTTF TRANSR UPLO N-REF5106 AP-REF5107 ARF-REF5108 INFO-REF5109)))) -(CFFI:DEFCFUN ("ctpttr_" %%CTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctpttr_" %%CTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10336,15 +10341,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5180 ':INT32) (LDA-REF5183 ':INT32) - (INFO-REF5184 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5180 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5183 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5184 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5181 AP) (A-REF5182 A)) - (%%CTPTTR UPLO N-REF5180 AP-REF5181 A-REF5182 LDA-REF5183 INFO-REF5184)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5111 ':INT32) (LDA-REF5114 ':INT32) + (INFO-REF5115 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5111 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5114 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5115 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5112 AP) (A-REF5113 A)) + (%%CTPTTR UPLO N-REF5111 AP-REF5112 A-REF5113 LDA-REF5114 INFO-REF5115)))) -(CFFI:DEFCFUN ("ctrcon_" %%CTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctrcon_" %%CTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -10379,18 +10384,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5188 ':INT32) (LDA-REF5190 ':INT32) - (RCOND-REF5191 ':FLOAT) (INFO-REF5194 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5188 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5190 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5191 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5194 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5189 A) (WORK-REF5192 WORK) - (RWORK-REF5193 RWORK)) - (%%CTRCON NORM UPLO DIAG N-REF5188 A-REF5189 LDA-REF5190 RCOND-REF5191 - WORK-REF5192 RWORK-REF5193 INFO-REF5194)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5119 ':INT32) (LDA-REF5121 ':INT32) + (RCOND-REF5122 ':FLOAT) (INFO-REF5125 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5119 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5121 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5122 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5125 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5120 A) (WORK-REF5123 WORK) + (RWORK-REF5124 RWORK)) + (%%CTRCON NORM UPLO DIAG N-REF5119 A-REF5120 LDA-REF5121 RCOND-REF5122 + WORK-REF5123 RWORK-REF5124 INFO-REF5125)))) -(CFFI:DEFCFUN ("ctrevc_" %%CTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctrevc_" %%CTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -10448,26 +10453,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5198 ':INT32) (LDT-REF5200 ':INT32) - (LDVL-REF5202 ':INT32) (LDVR-REF5204 ':INT32) - (MM-REF5205 ':INT32) (M-REF5206 ':INT32) - (INFO-REF5209 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5198 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5200 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5202 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5204 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5205 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5206 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5209 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5197 SELECT) - (T-REF5199 T) (VL-REF5201 VL) - (VR-REF5203 VR) (WORK-REF5207 WORK) - (RWORK-REF5208 RWORK)) - (%%CTREVC SIDE HOWMNY SELECT-REF5197 N-REF5198 T-REF5199 LDT-REF5200 - VL-REF5201 LDVL-REF5202 VR-REF5203 LDVR-REF5204 MM-REF5205 - M-REF5206 WORK-REF5207 RWORK-REF5208 INFO-REF5209)))) - -(CFFI:DEFCFUN ("ctrevc3_" %%CTREVC3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5129 ':INT32) (LDT-REF5131 ':INT32) + (LDVL-REF5133 ':INT32) (LDVR-REF5135 ':INT32) + (MM-REF5136 ':INT32) (M-REF5137 ':INT32) + (INFO-REF5140 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5129 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5131 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5133 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5135 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5136 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5137 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5140 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5128 SELECT) + (T-REF5130 T) (VL-REF5132 VL) + (VR-REF5134 VR) (WORK-REF5138 WORK) + (RWORK-REF5139 RWORK)) + (%%CTREVC SIDE HOWMNY SELECT-REF5128 N-REF5129 T-REF5130 LDT-REF5131 + VL-REF5132 LDVL-REF5133 VR-REF5134 LDVR-REF5135 MM-REF5136 M-REF5137 + WORK-REF5138 RWORK-REF5139 INFO-REF5140)))) + +(CFFI:DEFCFUN ("ctrevc3_" %%CTREVC3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -10529,30 +10535,29 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5213 ':INT32) (LDT-REF5215 ':INT32) - (LDVL-REF5217 ':INT32) (LDVR-REF5219 ':INT32) - (MM-REF5220 ':INT32) (M-REF5221 ':INT32) - (LWORK-REF5223 ':INT32) (LRWORK-REF5225 ':INT32) - (INFO-REF5226 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5213 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5215 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5217 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5219 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5220 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5221 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5223 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5225 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5226 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5212 SELECT) - (T-REF5214 T) (VL-REF5216 VL) - (VR-REF5218 VR) (WORK-REF5222 WORK) - (RWORK-REF5224 RWORK)) - (%%CTREVC3 SIDE HOWMNY SELECT-REF5212 N-REF5213 T-REF5214 LDT-REF5215 - VL-REF5216 LDVL-REF5217 VR-REF5218 LDVR-REF5219 MM-REF5220 - M-REF5221 WORK-REF5222 LWORK-REF5223 RWORK-REF5224 - LRWORK-REF5225 INFO-REF5226)))) - -(CFFI:DEFCFUN ("ctrexc_" %%CTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5144 ':INT32) (LDT-REF5146 ':INT32) + (LDVL-REF5148 ':INT32) (LDVR-REF5150 ':INT32) + (MM-REF5151 ':INT32) (M-REF5152 ':INT32) + (LWORK-REF5154 ':INT32) (LRWORK-REF5156 ':INT32) + (INFO-REF5157 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5144 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5146 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5148 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5150 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5151 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5152 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5154 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5156 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5157 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5143 SELECT) + (T-REF5145 T) (VL-REF5147 VL) + (VR-REF5149 VR) (WORK-REF5153 WORK) + (RWORK-REF5155 RWORK)) + (%%CTREVC3 SIDE HOWMNY SELECT-REF5143 N-REF5144 T-REF5145 LDT-REF5146 + VL-REF5147 LDVL-REF5148 VR-REF5149 LDVR-REF5150 MM-REF5151 M-REF5152 + WORK-REF5153 LWORK-REF5154 RWORK-REF5155 LRWORK-REF5156 INFO-REF5157)))) + +(CFFI:DEFCFUN ("ctrexc_" %%CTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (N :POINTER) @@ -10583,20 +10588,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5228 ':INT32) (LDT-REF5230 ':INT32) - (LDQ-REF5232 ':INT32) (IFST-REF5233 ':INT32) - (ILST-REF5234 ':INT32) (INFO-REF5235 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5228 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5230 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5232 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF5233 :INT32) IFST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF5234 :INT32) ILST) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5235 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF5229 T) (Q-REF5231 Q)) - (%%CTREXC COMPQ N-REF5228 T-REF5229 LDT-REF5230 Q-REF5231 LDQ-REF5232 - IFST-REF5233 ILST-REF5234 INFO-REF5235)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5159 ':INT32) (LDT-REF5161 ':INT32) + (LDQ-REF5163 ':INT32) (IFST-REF5164 ':INT32) + (ILST-REF5165 ':INT32) (INFO-REF5166 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5159 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5161 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5163 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF5164 :INT32) IFST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF5165 :INT32) ILST) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5166 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF5160 T) (Q-REF5162 Q)) + (%%CTREXC COMPQ N-REF5159 T-REF5160 LDT-REF5161 Q-REF5162 LDQ-REF5163 + IFST-REF5164 ILST-REF5165 INFO-REF5166)))) -(CFFI:DEFCFUN ("ctrrfs_" %%CTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctrrfs_" %%CTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10657,25 +10662,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5239 ':INT32) (NRHS-REF5240 ':INT32) - (LDA-REF5242 ':INT32) (LDB-REF5244 ':INT32) - (LDX-REF5246 ':INT32) (INFO-REF5251 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5239 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5240 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5242 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5244 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5246 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5251 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5241 A) (B-REF5243 B) - (X-REF5245 X) (FERR-REF5247 FERR) - (BERR-REF5248 BERR) - (WORK-REF5249 WORK) - (RWORK-REF5250 RWORK)) - (%%CTRRFS UPLO TRANS DIAG N-REF5239 NRHS-REF5240 A-REF5241 LDA-REF5242 - B-REF5243 LDB-REF5244 X-REF5245 LDX-REF5246 FERR-REF5247 - BERR-REF5248 WORK-REF5249 RWORK-REF5250 INFO-REF5251)))) - -(CFFI:DEFCFUN ("ctrsen_" %%CTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5170 ':INT32) (NRHS-REF5171 ':INT32) + (LDA-REF5173 ':INT32) (LDB-REF5175 ':INT32) + (LDX-REF5177 ':INT32) (INFO-REF5182 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5170 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5171 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5173 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5175 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5177 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5182 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5172 A) (B-REF5174 B) + (X-REF5176 X) (FERR-REF5178 FERR) + (BERR-REF5179 BERR) + (WORK-REF5180 WORK) + (RWORK-REF5181 RWORK)) + (%%CTRRFS UPLO TRANS DIAG N-REF5170 NRHS-REF5171 A-REF5172 LDA-REF5173 + B-REF5174 LDB-REF5175 X-REF5176 LDX-REF5177 FERR-REF5178 BERR-REF5179 + WORK-REF5180 RWORK-REF5181 INFO-REF5182)))) + +(CFFI:DEFCFUN ("ctrsen_" %%CTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPQ :STRING) @@ -10730,26 +10735,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5255 ':INT32) (LDT-REF5257 ':INT32) - (LDQ-REF5259 ':INT32) (M-REF5261 ':INT32) - (S-REF5262 ':FLOAT) (SEP-REF5263 ':FLOAT) - (LWORK-REF5265 ':INT32) (INFO-REF5266 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5255 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5257 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5259 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5261 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF5262 :FLOAT) S) - (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF5263 :FLOAT) SEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5265 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5266 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5254 SELECT) - (T-REF5256 T) (Q-REF5258 Q) - (W-REF5260 W) (WORK-REF5264 WORK)) - (%%CTRSEN JOB COMPQ SELECT-REF5254 N-REF5255 T-REF5256 LDT-REF5257 - Q-REF5258 LDQ-REF5259 W-REF5260 M-REF5261 S-REF5262 SEP-REF5263 - WORK-REF5264 LWORK-REF5265 INFO-REF5266)))) - -(CFFI:DEFCFUN ("ctrsna_" %%CTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5186 ':INT32) (LDT-REF5188 ':INT32) + (LDQ-REF5190 ':INT32) (M-REF5192 ':INT32) + (S-REF5193 ':FLOAT) (SEP-REF5194 ':FLOAT) + (LWORK-REF5196 ':INT32) (INFO-REF5197 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5186 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5188 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5190 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5192 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF5193 :FLOAT) S) + (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF5194 :FLOAT) SEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5196 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5197 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5185 SELECT) + (T-REF5187 T) (Q-REF5189 Q) + (W-REF5191 W) (WORK-REF5195 WORK)) + (%%CTRSEN JOB COMPQ SELECT-REF5185 N-REF5186 T-REF5187 LDT-REF5188 + Q-REF5189 LDQ-REF5190 W-REF5191 M-REF5192 S-REF5193 SEP-REF5194 + WORK-REF5195 LWORK-REF5196 INFO-REF5197)))) + +(CFFI:DEFCFUN ("ctrsna_" %%CTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (HOWMNY :STRING) @@ -10816,30 +10821,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5270 ':INT32) (LDT-REF5272 ':INT32) - (LDVL-REF5274 ':INT32) (LDVR-REF5276 ':INT32) - (MM-REF5279 ':INT32) (M-REF5280 ':INT32) - (LDWORK-REF5282 ':INT32) (INFO-REF5284 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5270 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5272 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5274 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5276 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5279 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5280 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF5282 :INT32) LDWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5284 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5269 SELECT) - (T-REF5271 T) (VL-REF5273 VL) - (VR-REF5275 VR) (S-REF5277 S) - (SEP-REF5278 SEP) - (WORK-REF5281 WORK) - (RWORK-REF5283 RWORK)) - (%%CTRSNA JOB HOWMNY SELECT-REF5269 N-REF5270 T-REF5271 LDT-REF5272 - VL-REF5273 LDVL-REF5274 VR-REF5275 LDVR-REF5276 S-REF5277 - SEP-REF5278 MM-REF5279 M-REF5280 WORK-REF5281 LDWORK-REF5282 - RWORK-REF5283 INFO-REF5284)))) - -(CFFI:DEFCFUN ("ctrsyl_" %%CTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5201 ':INT32) (LDT-REF5203 ':INT32) + (LDVL-REF5205 ':INT32) (LDVR-REF5207 ':INT32) + (MM-REF5210 ':INT32) (M-REF5211 ':INT32) + (LDWORK-REF5213 ':INT32) (INFO-REF5215 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5201 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5203 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF5205 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF5207 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF5210 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5211 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF5213 :INT32) LDWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5215 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF5200 SELECT) + (T-REF5202 T) (VL-REF5204 VL) + (VR-REF5206 VR) (S-REF5208 S) + (SEP-REF5209 SEP) + (WORK-REF5212 WORK) + (RWORK-REF5214 RWORK)) + (%%CTRSNA JOB HOWMNY SELECT-REF5200 N-REF5201 T-REF5202 LDT-REF5203 + VL-REF5204 LDVL-REF5205 VR-REF5206 LDVR-REF5207 S-REF5208 SEP-REF5209 + MM-REF5210 M-REF5211 WORK-REF5212 LDWORK-REF5213 RWORK-REF5214 + INFO-REF5215)))) + +(CFFI:DEFCFUN ("ctrsyl_" %%CTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANA :STRING) (TRANB :STRING) @@ -10882,25 +10887,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF5287 ':INT32) (M-REF5288 ':INT32) - (N-REF5289 ':INT32) (LDA-REF5291 ':INT32) - (LDB-REF5293 ':INT32) (LDC-REF5295 ':INT32) - (SCALE-REF5296 ':FLOAT) (INFO-REF5297 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF5287 :INT32) ISGN) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5288 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5289 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5291 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5293 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5295 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5296 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5297 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5290 A) (B-REF5292 B) - (C-REF5294 C)) - (%%CTRSYL TRANA TRANB ISGN-REF5287 M-REF5288 N-REF5289 A-REF5290 - LDA-REF5291 B-REF5292 LDB-REF5293 C-REF5294 LDC-REF5295 - SCALE-REF5296 INFO-REF5297)))) - -(CFFI:DEFCFUN ("ctrti2_" %%CTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF5218 ':INT32) (M-REF5219 ':INT32) + (N-REF5220 ':INT32) (LDA-REF5222 ':INT32) + (LDB-REF5224 ':INT32) (LDC-REF5226 ':INT32) + (SCALE-REF5227 ':FLOAT) (INFO-REF5228 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF5218 :INT32) ISGN) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5219 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5220 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5222 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5224 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5226 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF5227 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5228 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5221 A) (B-REF5223 B) + (C-REF5225 C)) + (%%CTRSYL TRANA TRANB ISGN-REF5218 M-REF5219 N-REF5220 A-REF5221 + LDA-REF5222 B-REF5223 LDB-REF5224 C-REF5225 LDC-REF5226 SCALE-REF5227 + INFO-REF5228)))) + +(CFFI:DEFCFUN ("ctrti2_" %%CTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -10921,15 +10926,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5300 ':INT32) (LDA-REF5302 ':INT32) - (INFO-REF5303 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5300 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5302 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5303 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5301 A)) - (%%CTRTI2 UPLO DIAG N-REF5300 A-REF5301 LDA-REF5302 INFO-REF5303)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5231 ':INT32) (LDA-REF5233 ':INT32) + (INFO-REF5234 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5231 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5233 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5234 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5232 A)) + (%%CTRTI2 UPLO DIAG N-REF5231 A-REF5232 LDA-REF5233 INFO-REF5234)))) -(CFFI:DEFCFUN ("ctrtri_" %%CTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctrtri_" %%CTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -10950,15 +10955,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5306 ':INT32) (LDA-REF5308 ':INT32) - (INFO-REF5309 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5306 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5308 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5309 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5307 A)) - (%%CTRTRI UPLO DIAG N-REF5306 A-REF5307 LDA-REF5308 INFO-REF5309)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5237 ':INT32) (LDA-REF5239 ':INT32) + (INFO-REF5240 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5237 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5239 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5240 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5238 A)) + (%%CTRTRI UPLO DIAG N-REF5237 A-REF5238 LDA-REF5239 INFO-REF5240)))) -(CFFI:DEFCFUN ("ctrtrs_" %%CTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctrtrs_" %%CTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10991,19 +10996,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5313 ':INT32) (NRHS-REF5314 ':INT32) - (LDA-REF5316 ':INT32) (LDB-REF5318 ':INT32) - (INFO-REF5319 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5313 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5314 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5316 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5318 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5319 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5315 A) (B-REF5317 B)) - (%%CTRTRS UPLO TRANS DIAG N-REF5313 NRHS-REF5314 A-REF5315 LDA-REF5316 - B-REF5317 LDB-REF5318 INFO-REF5319)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5244 ':INT32) (NRHS-REF5245 ':INT32) + (LDA-REF5247 ':INT32) (LDB-REF5249 ':INT32) + (INFO-REF5250 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5244 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5245 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5247 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5249 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5250 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5246 A) (B-REF5248 B)) + (%%CTRTRS UPLO TRANS DIAG N-REF5244 NRHS-REF5245 A-REF5246 LDA-REF5247 + B-REF5248 LDB-REF5249 INFO-REF5250)))) -(CFFI:DEFCFUN ("ctrttf_" %%CTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctrttf_" %%CTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -11030,16 +11035,16 @@ (COMMON-LISP:*)) ARF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5322 ':INT32) (LDA-REF5324 ':INT32) - (INFO-REF5326 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5322 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5324 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5326 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5323 A) (ARF-REF5325 ARF)) - (%%CTRTTF TRANSR UPLO N-REF5322 A-REF5323 LDA-REF5324 ARF-REF5325 - INFO-REF5326)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5253 ':INT32) (LDA-REF5255 ':INT32) + (INFO-REF5257 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5253 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5255 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5257 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5254 A) (ARF-REF5256 ARF)) + (%%CTRTTF TRANSR UPLO N-REF5253 A-REF5254 LDA-REF5255 ARF-REF5256 + INFO-REF5257)))) -(CFFI:DEFCFUN ("ctrttp_" %%CTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctrttp_" %%CTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11064,15 +11069,15 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5328 ':INT32) (LDA-REF5330 ':INT32) - (INFO-REF5332 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5328 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5330 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5332 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5329 A) (AP-REF5331 AP)) - (%%CTRTTP UPLO N-REF5328 A-REF5329 LDA-REF5330 AP-REF5331 INFO-REF5332)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5259 ':INT32) (LDA-REF5261 ':INT32) + (INFO-REF5263 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5259 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5261 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5263 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5260 A) (AP-REF5262 AP)) + (%%CTRTTP UPLO N-REF5259 A-REF5260 LDA-REF5261 AP-REF5262 INFO-REF5263)))) -(CFFI:DEFCFUN ("ctzrzf_" %%CTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ctzrzf_" %%CTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11105,20 +11110,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5333 ':INT32) (N-REF5334 ':INT32) - (LDA-REF5336 ':INT32) (LWORK-REF5339 ':INT32) - (INFO-REF5340 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5333 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5334 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5336 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5339 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5340 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5335 A) (TAU-REF5337 TAU) - (WORK-REF5338 WORK)) - (%%CTZRZF M-REF5333 N-REF5334 A-REF5335 LDA-REF5336 TAU-REF5337 - WORK-REF5338 LWORK-REF5339 INFO-REF5340)))) - -(CFFI:DEFCFUN ("cunbdb_" %%CUNBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5264 ':INT32) (N-REF5265 ':INT32) + (LDA-REF5267 ':INT32) (LWORK-REF5270 ':INT32) + (INFO-REF5271 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5264 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5265 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5267 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5270 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5271 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5266 A) (TAU-REF5268 TAU) + (WORK-REF5269 WORK)) + (%%CTZRZF M-REF5264 N-REF5265 A-REF5266 LDA-REF5267 TAU-REF5268 + WORK-REF5269 LWORK-REF5270 INFO-REF5271)))) + +(CFFI:DEFCFUN ("cunbdb_" %%CUNBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (SIGNS :STRING) @@ -11209,36 +11214,37 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5343 ':INT32) (P-REF5344 ':INT32) - (Q-REF5345 ':INT32) (LDX11-REF5347 ':INT32) - (LDX12-REF5349 ':INT32) (LDX21-REF5351 ':INT32) - (LDX22-REF5353 ':INT32) (LWORK-REF5361 ':INT32) - (INFO-REF5362 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5343 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5344 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5345 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5347 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF5349 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5351 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF5353 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5361 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5362 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5346 X11) (X12-REF5348 X12) - (X21-REF5350 X21) (X22-REF5352 X22) - (THETA-REF5354 THETA) - (PHI-REF5355 PHI) - (TAUP1-REF5356 TAUP1) - (TAUP2-REF5357 TAUP2) - (TAUQ1-REF5358 TAUQ1) - (TAUQ2-REF5359 TAUQ2) - (WORK-REF5360 WORK)) - (%%CUNBDB TRANS SIGNS M-REF5343 P-REF5344 Q-REF5345 X11-REF5346 - LDX11-REF5347 X12-REF5348 LDX12-REF5349 X21-REF5350 - LDX21-REF5351 X22-REF5352 LDX22-REF5353 THETA-REF5354 - PHI-REF5355 TAUP1-REF5356 TAUP2-REF5357 TAUQ1-REF5358 - TAUQ2-REF5359 WORK-REF5360 LWORK-REF5361 INFO-REF5362)))) - -(CFFI:DEFCFUN ("cunbdb1_" %%CUNBDB1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5274 ':INT32) (P-REF5275 ':INT32) + (Q-REF5276 ':INT32) (LDX11-REF5278 ':INT32) + (LDX12-REF5280 ':INT32) (LDX21-REF5282 ':INT32) + (LDX22-REF5284 ':INT32) (LWORK-REF5292 ':INT32) + (INFO-REF5293 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5274 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5275 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5276 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5278 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF5280 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5282 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF5284 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5292 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5293 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5277 X11) (X12-REF5279 X12) + (X21-REF5281 X21) (X22-REF5283 X22) + (THETA-REF5285 THETA) + (PHI-REF5286 PHI) + (TAUP1-REF5287 TAUP1) + (TAUP2-REF5288 TAUP2) + (TAUQ1-REF5289 TAUQ1) + (TAUQ2-REF5290 TAUQ2) + (WORK-REF5291 WORK)) + (%%CUNBDB TRANS SIGNS M-REF5274 P-REF5275 Q-REF5276 X11-REF5277 + LDX11-REF5278 X12-REF5279 LDX12-REF5280 X21-REF5281 LDX21-REF5282 + X22-REF5283 LDX22-REF5284 THETA-REF5285 PHI-REF5286 TAUP1-REF5287 + TAUP2-REF5288 TAUQ1-REF5289 TAUQ2-REF5290 WORK-REF5291 LWORK-REF5292 + INFO-REF5293)))) + +(CFFI:DEFCFUN ("cunbdb1_" %%CUNBDB1 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -11303,30 +11309,30 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5363 ':INT32) (P-REF5364 ':INT32) - (Q-REF5365 ':INT32) (LDX11-REF5367 ':INT32) - (LDX21-REF5369 ':INT32) (LWORK-REF5376 ':INT32) - (INFO-REF5377 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5363 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5364 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5365 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5367 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5369 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5376 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5377 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5366 X11) (X21-REF5368 X21) - (THETA-REF5370 THETA) - (PHI-REF5371 PHI) - (TAUP1-REF5372 TAUP1) - (TAUP2-REF5373 TAUP2) - (TAUQ1-REF5374 TAUQ1) - (WORK-REF5375 WORK)) - (%%CUNBDB1 M-REF5363 P-REF5364 Q-REF5365 X11-REF5366 LDX11-REF5367 - X21-REF5368 LDX21-REF5369 THETA-REF5370 PHI-REF5371 - TAUP1-REF5372 TAUP2-REF5373 TAUQ1-REF5374 WORK-REF5375 - LWORK-REF5376 INFO-REF5377)))) - -(CFFI:DEFCFUN ("cunbdb2_" %%CUNBDB2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5294 ':INT32) (P-REF5295 ':INT32) + (Q-REF5296 ':INT32) (LDX11-REF5298 ':INT32) + (LDX21-REF5300 ':INT32) (LWORK-REF5307 ':INT32) + (INFO-REF5308 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5294 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5295 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5296 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5298 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5300 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5307 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5308 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5297 X11) (X21-REF5299 X21) + (THETA-REF5301 THETA) + (PHI-REF5302 PHI) + (TAUP1-REF5303 TAUP1) + (TAUP2-REF5304 TAUP2) + (TAUQ1-REF5305 TAUQ1) + (WORK-REF5306 WORK)) + (%%CUNBDB1 M-REF5294 P-REF5295 Q-REF5296 X11-REF5297 LDX11-REF5298 + X21-REF5299 LDX21-REF5300 THETA-REF5301 PHI-REF5302 TAUP1-REF5303 + TAUP2-REF5304 TAUQ1-REF5305 WORK-REF5306 LWORK-REF5307 INFO-REF5308)))) + +(CFFI:DEFCFUN ("cunbdb2_" %%CUNBDB2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -11391,30 +11397,30 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5378 ':INT32) (P-REF5379 ':INT32) - (Q-REF5380 ':INT32) (LDX11-REF5382 ':INT32) - (LDX21-REF5384 ':INT32) (LWORK-REF5391 ':INT32) - (INFO-REF5392 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5378 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5379 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5380 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5382 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5384 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5391 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5392 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5381 X11) (X21-REF5383 X21) - (THETA-REF5385 THETA) - (PHI-REF5386 PHI) - (TAUP1-REF5387 TAUP1) - (TAUP2-REF5388 TAUP2) - (TAUQ1-REF5389 TAUQ1) - (WORK-REF5390 WORK)) - (%%CUNBDB2 M-REF5378 P-REF5379 Q-REF5380 X11-REF5381 LDX11-REF5382 - X21-REF5383 LDX21-REF5384 THETA-REF5385 PHI-REF5386 - TAUP1-REF5387 TAUP2-REF5388 TAUQ1-REF5389 WORK-REF5390 - LWORK-REF5391 INFO-REF5392)))) - -(CFFI:DEFCFUN ("cunbdb3_" %%CUNBDB3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5309 ':INT32) (P-REF5310 ':INT32) + (Q-REF5311 ':INT32) (LDX11-REF5313 ':INT32) + (LDX21-REF5315 ':INT32) (LWORK-REF5322 ':INT32) + (INFO-REF5323 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5309 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5310 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5311 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5313 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5315 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5322 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5323 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5312 X11) (X21-REF5314 X21) + (THETA-REF5316 THETA) + (PHI-REF5317 PHI) + (TAUP1-REF5318 TAUP1) + (TAUP2-REF5319 TAUP2) + (TAUQ1-REF5320 TAUQ1) + (WORK-REF5321 WORK)) + (%%CUNBDB2 M-REF5309 P-REF5310 Q-REF5311 X11-REF5312 LDX11-REF5313 + X21-REF5314 LDX21-REF5315 THETA-REF5316 PHI-REF5317 TAUP1-REF5318 + TAUP2-REF5319 TAUQ1-REF5320 WORK-REF5321 LWORK-REF5322 INFO-REF5323)))) + +(CFFI:DEFCFUN ("cunbdb3_" %%CUNBDB3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -11479,30 +11485,30 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5393 ':INT32) (P-REF5394 ':INT32) - (Q-REF5395 ':INT32) (LDX11-REF5397 ':INT32) - (LDX21-REF5399 ':INT32) (LWORK-REF5406 ':INT32) - (INFO-REF5407 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5393 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5394 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5395 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5397 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5399 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5406 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5407 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5396 X11) (X21-REF5398 X21) - (THETA-REF5400 THETA) - (PHI-REF5401 PHI) - (TAUP1-REF5402 TAUP1) - (TAUP2-REF5403 TAUP2) - (TAUQ1-REF5404 TAUQ1) - (WORK-REF5405 WORK)) - (%%CUNBDB3 M-REF5393 P-REF5394 Q-REF5395 X11-REF5396 LDX11-REF5397 - X21-REF5398 LDX21-REF5399 THETA-REF5400 PHI-REF5401 - TAUP1-REF5402 TAUP2-REF5403 TAUQ1-REF5404 WORK-REF5405 - LWORK-REF5406 INFO-REF5407)))) - -(CFFI:DEFCFUN ("cunbdb4_" %%CUNBDB4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5324 ':INT32) (P-REF5325 ':INT32) + (Q-REF5326 ':INT32) (LDX11-REF5328 ':INT32) + (LDX21-REF5330 ':INT32) (LWORK-REF5337 ':INT32) + (INFO-REF5338 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5324 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5325 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5326 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5328 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5330 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5337 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5338 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5327 X11) (X21-REF5329 X21) + (THETA-REF5331 THETA) + (PHI-REF5332 PHI) + (TAUP1-REF5333 TAUP1) + (TAUP2-REF5334 TAUP2) + (TAUQ1-REF5335 TAUQ1) + (WORK-REF5336 WORK)) + (%%CUNBDB3 M-REF5324 P-REF5325 Q-REF5326 X11-REF5327 LDX11-REF5328 + X21-REF5329 LDX21-REF5330 THETA-REF5331 PHI-REF5332 TAUP1-REF5333 + TAUP2-REF5334 TAUQ1-REF5335 WORK-REF5336 LWORK-REF5337 INFO-REF5338)))) + +(CFFI:DEFCFUN ("cunbdb4_" %%CUNBDB4 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -11573,31 +11579,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5408 ':INT32) (P-REF5409 ':INT32) - (Q-REF5410 ':INT32) (LDX11-REF5412 ':INT32) - (LDX21-REF5414 ':INT32) (LWORK-REF5422 ':INT32) - (INFO-REF5423 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5408 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5409 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5410 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5412 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5414 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5422 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5423 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5411 X11) (X21-REF5413 X21) - (THETA-REF5415 THETA) - (PHI-REF5416 PHI) - (TAUP1-REF5417 TAUP1) - (TAUP2-REF5418 TAUP2) - (TAUQ1-REF5419 TAUQ1) - (PHANTOM-REF5420 PHANTOM) - (WORK-REF5421 WORK)) - (%%CUNBDB4 M-REF5408 P-REF5409 Q-REF5410 X11-REF5411 LDX11-REF5412 - X21-REF5413 LDX21-REF5414 THETA-REF5415 PHI-REF5416 - TAUP1-REF5417 TAUP2-REF5418 TAUQ1-REF5419 PHANTOM-REF5420 - WORK-REF5421 LWORK-REF5422 INFO-REF5423)))) - -(CFFI:DEFCFUN ("cunbdb5_" %%CUNBDB5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5339 ':INT32) (P-REF5340 ':INT32) + (Q-REF5341 ':INT32) (LDX11-REF5343 ':INT32) + (LDX21-REF5345 ':INT32) (LWORK-REF5353 ':INT32) + (INFO-REF5354 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5339 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5340 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5341 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5343 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5345 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5353 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5354 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5342 X11) (X21-REF5344 X21) + (THETA-REF5346 THETA) + (PHI-REF5347 PHI) + (TAUP1-REF5348 TAUP1) + (TAUP2-REF5349 TAUP2) + (TAUQ1-REF5350 TAUQ1) + (PHANTOM-REF5351 PHANTOM) + (WORK-REF5352 WORK)) + (%%CUNBDB4 M-REF5339 P-REF5340 Q-REF5341 X11-REF5342 LDX11-REF5343 + X21-REF5344 LDX21-REF5345 THETA-REF5346 PHI-REF5347 TAUP1-REF5348 + TAUP2-REF5349 TAUQ1-REF5350 PHANTOM-REF5351 WORK-REF5352 LWORK-REF5353 + INFO-REF5354)))) + +(CFFI:DEFCFUN ("cunbdb5_" %%CUNBDB5 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M1 :POINTER) (M2 :POINTER) @@ -11651,28 +11658,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF5424 ':INT32) (M2-REF5425 ':INT32) - (N-REF5426 ':INT32) (INCX1-REF5428 ':INT32) - (INCX2-REF5430 ':INT32) (LDQ1-REF5432 ':INT32) - (LDQ2-REF5434 ':INT32) (LWORK-REF5436 ':INT32) - (INFO-REF5437 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF5424 :INT32) M1) - (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF5425 :INT32) M2) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5426 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF5428 :INT32) INCX1) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF5430 :INT32) INCX2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF5432 :INT32) LDQ1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF5434 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5436 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5437 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF5427 X1) (X2-REF5429 X2) - (Q1-REF5431 Q1) (Q2-REF5433 Q2) - (WORK-REF5435 WORK)) - (%%CUNBDB5 M1-REF5424 M2-REF5425 N-REF5426 X1-REF5427 INCX1-REF5428 - X2-REF5429 INCX2-REF5430 Q1-REF5431 LDQ1-REF5432 Q2-REF5433 - LDQ2-REF5434 WORK-REF5435 LWORK-REF5436 INFO-REF5437)))) - -(CFFI:DEFCFUN ("cunbdb6_" %%CUNBDB6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF5355 ':INT32) (M2-REF5356 ':INT32) + (N-REF5357 ':INT32) (INCX1-REF5359 ':INT32) + (INCX2-REF5361 ':INT32) (LDQ1-REF5363 ':INT32) + (LDQ2-REF5365 ':INT32) (LWORK-REF5367 ':INT32) + (INFO-REF5368 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF5355 :INT32) M1) + (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF5356 :INT32) M2) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5357 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF5359 :INT32) INCX1) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF5361 :INT32) INCX2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF5363 :INT32) LDQ1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF5365 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5367 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5368 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF5358 X1) (X2-REF5360 X2) + (Q1-REF5362 Q1) (Q2-REF5364 Q2) + (WORK-REF5366 WORK)) + (%%CUNBDB5 M1-REF5355 M2-REF5356 N-REF5357 X1-REF5358 INCX1-REF5359 + X2-REF5360 INCX2-REF5361 Q1-REF5362 LDQ1-REF5363 Q2-REF5364 LDQ2-REF5365 + WORK-REF5366 LWORK-REF5367 INFO-REF5368)))) + +(CFFI:DEFCFUN ("cunbdb6_" %%CUNBDB6 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M1 :POINTER) (M2 :POINTER) @@ -11726,28 +11734,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF5438 ':INT32) (M2-REF5439 ':INT32) - (N-REF5440 ':INT32) (INCX1-REF5442 ':INT32) - (INCX2-REF5444 ':INT32) (LDQ1-REF5446 ':INT32) - (LDQ2-REF5448 ':INT32) (LWORK-REF5450 ':INT32) - (INFO-REF5451 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF5438 :INT32) M1) - (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF5439 :INT32) M2) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5440 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF5442 :INT32) INCX1) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF5444 :INT32) INCX2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF5446 :INT32) LDQ1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF5448 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5450 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5451 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF5441 X1) (X2-REF5443 X2) - (Q1-REF5445 Q1) (Q2-REF5447 Q2) - (WORK-REF5449 WORK)) - (%%CUNBDB6 M1-REF5438 M2-REF5439 N-REF5440 X1-REF5441 INCX1-REF5442 - X2-REF5443 INCX2-REF5444 Q1-REF5445 LDQ1-REF5446 Q2-REF5447 - LDQ2-REF5448 WORK-REF5449 LWORK-REF5450 INFO-REF5451)))) - -(CFFI:DEFCFUN ("cuncsd_" %%CUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF5369 ':INT32) (M2-REF5370 ':INT32) + (N-REF5371 ':INT32) (INCX1-REF5373 ':INT32) + (INCX2-REF5375 ':INT32) (LDQ1-REF5377 ':INT32) + (LDQ2-REF5379 ':INT32) (LWORK-REF5381 ':INT32) + (INFO-REF5382 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF5369 :INT32) M1) + (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF5370 :INT32) M2) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5371 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF5373 :INT32) INCX1) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF5375 :INT32) INCX2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF5377 :INT32) LDQ1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF5379 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5381 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5382 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF5372 X1) (X2-REF5374 X2) + (Q1-REF5376 Q1) (Q2-REF5378 Q2) + (WORK-REF5380 WORK)) + (%%CUNBDB6 M1-REF5369 M2-REF5370 N-REF5371 X1-REF5372 INCX1-REF5373 + X2-REF5374 INCX2-REF5375 Q1-REF5376 LDQ1-REF5377 Q2-REF5378 LDQ2-REF5379 + WORK-REF5380 LWORK-REF5381 INFO-REF5382)))) + +(CFFI:DEFCFUN ("cuncsd_" %%CUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -11862,45 +11870,44 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5458 ':INT32) (P-REF5459 ':INT32) - (Q-REF5460 ':INT32) (LDX11-REF5462 ':INT32) - (LDX12-REF5464 ':INT32) (LDX21-REF5466 ':INT32) - (LDX22-REF5468 ':INT32) (LDU1-REF5471 ':INT32) - (LDU2-REF5473 ':INT32) (LDV1T-REF5475 ':INT32) - (LDV2T-REF5477 ':INT32) (LWORK-REF5479 ':INT32) - (LRWORK-REF5481 ':INT32) (INFO-REF5483 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5458 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5459 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5460 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5462 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF5464 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5466 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF5468 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5471 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5473 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5475 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF5477 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5479 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5481 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5483 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5461 X11) (X12-REF5463 X12) - (X21-REF5465 X21) (X22-REF5467 X22) - (THETA-REF5469 THETA) - (U1-REF5470 U1) (U2-REF5472 U2) - (V1T-REF5474 V1T) (V2T-REF5476 V2T) - (WORK-REF5478 WORK) - (RWORK-REF5480 RWORK) - (IWORK-REF5482 IWORK)) - (%%CUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF5458 P-REF5459 - Q-REF5460 X11-REF5461 LDX11-REF5462 X12-REF5463 LDX12-REF5464 - X21-REF5465 LDX21-REF5466 X22-REF5467 LDX22-REF5468 - THETA-REF5469 U1-REF5470 LDU1-REF5471 U2-REF5472 LDU2-REF5473 - V1T-REF5474 LDV1T-REF5475 V2T-REF5476 LDV2T-REF5477 - WORK-REF5478 LWORK-REF5479 RWORK-REF5480 LRWORK-REF5481 - IWORK-REF5482 INFO-REF5483)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5389 ':INT32) (P-REF5390 ':INT32) + (Q-REF5391 ':INT32) (LDX11-REF5393 ':INT32) + (LDX12-REF5395 ':INT32) (LDX21-REF5397 ':INT32) + (LDX22-REF5399 ':INT32) (LDU1-REF5402 ':INT32) + (LDU2-REF5404 ':INT32) (LDV1T-REF5406 ':INT32) + (LDV2T-REF5408 ':INT32) (LWORK-REF5410 ':INT32) + (LRWORK-REF5412 ':INT32) (INFO-REF5414 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5389 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5390 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5391 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5393 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF5395 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5397 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF5399 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5402 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5404 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5406 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF5408 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5410 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5412 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5414 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5392 X11) (X12-REF5394 X12) + (X21-REF5396 X21) (X22-REF5398 X22) + (THETA-REF5400 THETA) + (U1-REF5401 U1) (U2-REF5403 U2) + (V1T-REF5405 V1T) (V2T-REF5407 V2T) + (WORK-REF5409 WORK) + (RWORK-REF5411 RWORK) + (IWORK-REF5413 IWORK)) + (%%CUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF5389 P-REF5390 + Q-REF5391 X11-REF5392 LDX11-REF5393 X12-REF5394 LDX12-REF5395 + X21-REF5396 LDX21-REF5397 X22-REF5398 LDX22-REF5399 THETA-REF5400 + U1-REF5401 LDU1-REF5402 U2-REF5403 LDU2-REF5404 V1T-REF5405 + LDV1T-REF5406 V2T-REF5407 LDV2T-REF5408 WORK-REF5409 LWORK-REF5410 + RWORK-REF5411 LRWORK-REF5412 IWORK-REF5413 INFO-REF5414)))) (CFFI:DEFCFUN ("cuncsd2by1_" %%CUNCSD2BY1 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -11984,38 +11991,37 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5487 ':INT32) (P-REF5488 ':INT32) - (Q-REF5489 ':INT32) (LDX11-REF5491 ':INT32) - (LDX21-REF5493 ':INT32) (LDU1-REF5496 ':INT32) - (LDU2-REF5498 ':INT32) (LDV1T-REF5500 ':INT32) - (LWORK-REF5502 ':INT32) (LRWORK-REF5504 ':INT32) - (INFO-REF5506 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5487 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5488 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5489 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5491 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5493 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5496 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5498 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5500 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5502 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5504 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5506 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5490 X11) (X21-REF5492 X21) - (THETA-REF5494 THETA) - (U1-REF5495 U1) (U2-REF5497 U2) - (V1T-REF5499 V1T) - (WORK-REF5501 WORK) - (RWORK-REF5503 RWORK) - (IWORK-REF5505 IWORK)) - (%%CUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF5487 P-REF5488 Q-REF5489 - X11-REF5490 LDX11-REF5491 X21-REF5492 LDX21-REF5493 - THETA-REF5494 U1-REF5495 LDU1-REF5496 U2-REF5497 - LDU2-REF5498 V1T-REF5499 LDV1T-REF5500 WORK-REF5501 - LWORK-REF5502 RWORK-REF5503 LRWORK-REF5504 IWORK-REF5505 - INFO-REF5506)))) - -(CFFI:DEFCFUN ("cung2l_" %%CUNG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5418 ':INT32) (P-REF5419 ':INT32) + (Q-REF5420 ':INT32) (LDX11-REF5422 ':INT32) + (LDX21-REF5424 ':INT32) (LDU1-REF5427 ':INT32) + (LDU2-REF5429 ':INT32) (LDV1T-REF5431 ':INT32) + (LWORK-REF5433 ':INT32) (LRWORK-REF5435 ':INT32) + (INFO-REF5437 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5418 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5419 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5420 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF5422 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF5424 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5427 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5429 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5431 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5433 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF5435 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5437 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF5421 X11) (X21-REF5423 X21) + (THETA-REF5425 THETA) + (U1-REF5426 U1) (U2-REF5428 U2) + (V1T-REF5430 V1T) + (WORK-REF5432 WORK) + (RWORK-REF5434 RWORK) + (IWORK-REF5436 IWORK)) + (%%CUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF5418 P-REF5419 Q-REF5420 + X11-REF5421 LDX11-REF5422 X21-REF5423 LDX21-REF5424 THETA-REF5425 + U1-REF5426 LDU1-REF5427 U2-REF5428 LDU2-REF5429 V1T-REF5430 + LDV1T-REF5431 WORK-REF5432 LWORK-REF5433 RWORK-REF5434 LRWORK-REF5435 + IWORK-REF5436 INFO-REF5437)))) + +(CFFI:DEFCFUN ("cung2l_" %%CUNG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12048,20 +12054,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5507 ':INT32) (N-REF5508 ':INT32) - (K-REF5509 ':INT32) (LDA-REF5511 ':INT32) - (INFO-REF5514 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5507 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5508 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5509 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5511 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5514 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5510 A) (TAU-REF5512 TAU) - (WORK-REF5513 WORK)) - (%%CUNG2L M-REF5507 N-REF5508 K-REF5509 A-REF5510 LDA-REF5511 TAU-REF5512 - WORK-REF5513 INFO-REF5514)))) - -(CFFI:DEFCFUN ("cung2r_" %%CUNG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5438 ':INT32) (N-REF5439 ':INT32) + (K-REF5440 ':INT32) (LDA-REF5442 ':INT32) + (INFO-REF5445 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5438 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5439 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5440 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5442 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5445 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5441 A) (TAU-REF5443 TAU) + (WORK-REF5444 WORK)) + (%%CUNG2L M-REF5438 N-REF5439 K-REF5440 A-REF5441 LDA-REF5442 TAU-REF5443 + WORK-REF5444 INFO-REF5445)))) + +(CFFI:DEFCFUN ("cung2r_" %%CUNG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12094,20 +12100,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5515 ':INT32) (N-REF5516 ':INT32) - (K-REF5517 ':INT32) (LDA-REF5519 ':INT32) - (INFO-REF5522 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5515 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5516 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5517 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5519 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5522 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5518 A) (TAU-REF5520 TAU) - (WORK-REF5521 WORK)) - (%%CUNG2R M-REF5515 N-REF5516 K-REF5517 A-REF5518 LDA-REF5519 TAU-REF5520 - WORK-REF5521 INFO-REF5522)))) - -(CFFI:DEFCFUN ("cungbr_" %%CUNGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5446 ':INT32) (N-REF5447 ':INT32) + (K-REF5448 ':INT32) (LDA-REF5450 ':INT32) + (INFO-REF5453 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5446 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5447 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5448 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5450 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5453 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5449 A) (TAU-REF5451 TAU) + (WORK-REF5452 WORK)) + (%%CUNG2R M-REF5446 N-REF5447 K-REF5448 A-REF5449 LDA-REF5450 TAU-REF5451 + WORK-REF5452 INFO-REF5453)))) + +(CFFI:DEFCFUN ("cungbr_" %%CUNGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (M :POINTER) @@ -12144,21 +12150,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5524 ':INT32) (N-REF5525 ':INT32) - (K-REF5526 ':INT32) (LDA-REF5528 ':INT32) - (LWORK-REF5531 ':INT32) (INFO-REF5532 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5524 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5525 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5526 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5528 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5531 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5532 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5527 A) (TAU-REF5529 TAU) - (WORK-REF5530 WORK)) - (%%CUNGBR VECT M-REF5524 N-REF5525 K-REF5526 A-REF5527 LDA-REF5528 - TAU-REF5529 WORK-REF5530 LWORK-REF5531 INFO-REF5532)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5455 ':INT32) (N-REF5456 ':INT32) + (K-REF5457 ':INT32) (LDA-REF5459 ':INT32) + (LWORK-REF5462 ':INT32) (INFO-REF5463 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5455 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5456 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5457 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5459 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5462 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5463 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5458 A) (TAU-REF5460 TAU) + (WORK-REF5461 WORK)) + (%%CUNGBR VECT M-REF5455 N-REF5456 K-REF5457 A-REF5458 LDA-REF5459 + TAU-REF5460 WORK-REF5461 LWORK-REF5462 INFO-REF5463)))) -(CFFI:DEFCFUN ("cunghr_" %%CUNGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cunghr_" %%CUNGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -12193,21 +12199,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5533 ':INT32) (ILO-REF5534 ':INT32) - (IHI-REF5535 ':INT32) (LDA-REF5537 ':INT32) - (LWORK-REF5540 ':INT32) (INFO-REF5541 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5533 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5534 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5535 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5537 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5540 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5541 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5536 A) (TAU-REF5538 TAU) - (WORK-REF5539 WORK)) - (%%CUNGHR N-REF5533 ILO-REF5534 IHI-REF5535 A-REF5536 LDA-REF5537 - TAU-REF5538 WORK-REF5539 LWORK-REF5540 INFO-REF5541)))) - -(CFFI:DEFCFUN ("cungl2_" %%CUNGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5464 ':INT32) (ILO-REF5465 ':INT32) + (IHI-REF5466 ':INT32) (LDA-REF5468 ':INT32) + (LWORK-REF5471 ':INT32) (INFO-REF5472 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5464 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5465 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5466 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5468 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5471 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5472 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5467 A) (TAU-REF5469 TAU) + (WORK-REF5470 WORK)) + (%%CUNGHR N-REF5464 ILO-REF5465 IHI-REF5466 A-REF5467 LDA-REF5468 + TAU-REF5469 WORK-REF5470 LWORK-REF5471 INFO-REF5472)))) + +(CFFI:DEFCFUN ("cungl2_" %%CUNGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12240,20 +12246,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5542 ':INT32) (N-REF5543 ':INT32) - (K-REF5544 ':INT32) (LDA-REF5546 ':INT32) - (INFO-REF5549 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5542 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5543 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5544 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5546 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5549 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5545 A) (TAU-REF5547 TAU) - (WORK-REF5548 WORK)) - (%%CUNGL2 M-REF5542 N-REF5543 K-REF5544 A-REF5545 LDA-REF5546 TAU-REF5547 - WORK-REF5548 INFO-REF5549)))) - -(CFFI:DEFCFUN ("cunglq_" %%CUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5473 ':INT32) (N-REF5474 ':INT32) + (K-REF5475 ':INT32) (LDA-REF5477 ':INT32) + (INFO-REF5480 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5473 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5474 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5475 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5477 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5480 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5476 A) (TAU-REF5478 TAU) + (WORK-REF5479 WORK)) + (%%CUNGL2 M-REF5473 N-REF5474 K-REF5475 A-REF5476 LDA-REF5477 TAU-REF5478 + WORK-REF5479 INFO-REF5480)))) + +(CFFI:DEFCFUN ("cunglq_" %%CUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12288,21 +12294,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5550 ':INT32) (N-REF5551 ':INT32) - (K-REF5552 ':INT32) (LDA-REF5554 ':INT32) - (LWORK-REF5557 ':INT32) (INFO-REF5558 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5550 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5551 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5552 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5554 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5557 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5558 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5553 A) (TAU-REF5555 TAU) - (WORK-REF5556 WORK)) - (%%CUNGLQ M-REF5550 N-REF5551 K-REF5552 A-REF5553 LDA-REF5554 TAU-REF5555 - WORK-REF5556 LWORK-REF5557 INFO-REF5558)))) - -(CFFI:DEFCFUN ("cungql_" %%CUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5481 ':INT32) (N-REF5482 ':INT32) + (K-REF5483 ':INT32) (LDA-REF5485 ':INT32) + (LWORK-REF5488 ':INT32) (INFO-REF5489 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5481 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5482 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5483 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5485 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5488 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5489 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5484 A) (TAU-REF5486 TAU) + (WORK-REF5487 WORK)) + (%%CUNGLQ M-REF5481 N-REF5482 K-REF5483 A-REF5484 LDA-REF5485 TAU-REF5486 + WORK-REF5487 LWORK-REF5488 INFO-REF5489)))) + +(CFFI:DEFCFUN ("cungql_" %%CUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12337,21 +12343,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5559 ':INT32) (N-REF5560 ':INT32) - (K-REF5561 ':INT32) (LDA-REF5563 ':INT32) - (LWORK-REF5566 ':INT32) (INFO-REF5567 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5559 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5560 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5561 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5563 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5566 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5567 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5562 A) (TAU-REF5564 TAU) - (WORK-REF5565 WORK)) - (%%CUNGQL M-REF5559 N-REF5560 K-REF5561 A-REF5562 LDA-REF5563 TAU-REF5564 - WORK-REF5565 LWORK-REF5566 INFO-REF5567)))) - -(CFFI:DEFCFUN ("cungqr_" %%CUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5490 ':INT32) (N-REF5491 ':INT32) + (K-REF5492 ':INT32) (LDA-REF5494 ':INT32) + (LWORK-REF5497 ':INT32) (INFO-REF5498 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5490 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5491 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5492 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5494 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5497 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5498 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5493 A) (TAU-REF5495 TAU) + (WORK-REF5496 WORK)) + (%%CUNGQL M-REF5490 N-REF5491 K-REF5492 A-REF5493 LDA-REF5494 TAU-REF5495 + WORK-REF5496 LWORK-REF5497 INFO-REF5498)))) + +(CFFI:DEFCFUN ("cungqr_" %%CUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12386,21 +12392,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5568 ':INT32) (N-REF5569 ':INT32) - (K-REF5570 ':INT32) (LDA-REF5572 ':INT32) - (LWORK-REF5575 ':INT32) (INFO-REF5576 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5568 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5569 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5570 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5572 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5575 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5576 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5571 A) (TAU-REF5573 TAU) - (WORK-REF5574 WORK)) - (%%CUNGQR M-REF5568 N-REF5569 K-REF5570 A-REF5571 LDA-REF5572 TAU-REF5573 - WORK-REF5574 LWORK-REF5575 INFO-REF5576)))) - -(CFFI:DEFCFUN ("cungr2_" %%CUNGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5499 ':INT32) (N-REF5500 ':INT32) + (K-REF5501 ':INT32) (LDA-REF5503 ':INT32) + (LWORK-REF5506 ':INT32) (INFO-REF5507 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5499 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5500 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5501 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5503 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5506 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5507 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5502 A) (TAU-REF5504 TAU) + (WORK-REF5505 WORK)) + (%%CUNGQR M-REF5499 N-REF5500 K-REF5501 A-REF5502 LDA-REF5503 TAU-REF5504 + WORK-REF5505 LWORK-REF5506 INFO-REF5507)))) + +(CFFI:DEFCFUN ("cungr2_" %%CUNGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12433,20 +12439,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5577 ':INT32) (N-REF5578 ':INT32) - (K-REF5579 ':INT32) (LDA-REF5581 ':INT32) - (INFO-REF5584 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5577 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5578 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5579 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5581 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5584 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5580 A) (TAU-REF5582 TAU) - (WORK-REF5583 WORK)) - (%%CUNGR2 M-REF5577 N-REF5578 K-REF5579 A-REF5580 LDA-REF5581 TAU-REF5582 - WORK-REF5583 INFO-REF5584)))) - -(CFFI:DEFCFUN ("cungrq_" %%CUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5508 ':INT32) (N-REF5509 ':INT32) + (K-REF5510 ':INT32) (LDA-REF5512 ':INT32) + (INFO-REF5515 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5508 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5509 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5510 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5512 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5515 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5511 A) (TAU-REF5513 TAU) + (WORK-REF5514 WORK)) + (%%CUNGR2 M-REF5508 N-REF5509 K-REF5510 A-REF5511 LDA-REF5512 TAU-REF5513 + WORK-REF5514 INFO-REF5515)))) + +(CFFI:DEFCFUN ("cungrq_" %%CUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12481,21 +12487,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5585 ':INT32) (N-REF5586 ':INT32) - (K-REF5587 ':INT32) (LDA-REF5589 ':INT32) - (LWORK-REF5592 ':INT32) (INFO-REF5593 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5585 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5586 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5587 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5589 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5592 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5593 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5588 A) (TAU-REF5590 TAU) - (WORK-REF5591 WORK)) - (%%CUNGRQ M-REF5585 N-REF5586 K-REF5587 A-REF5588 LDA-REF5589 TAU-REF5590 - WORK-REF5591 LWORK-REF5592 INFO-REF5593)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5516 ':INT32) (N-REF5517 ':INT32) + (K-REF5518 ':INT32) (LDA-REF5520 ':INT32) + (LWORK-REF5523 ':INT32) (INFO-REF5524 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5516 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5517 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5518 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5520 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5523 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5524 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5519 A) (TAU-REF5521 TAU) + (WORK-REF5522 WORK)) + (%%CUNGRQ M-REF5516 N-REF5517 K-REF5518 A-REF5519 LDA-REF5520 TAU-REF5521 + WORK-REF5522 LWORK-REF5523 INFO-REF5524)))) -(CFFI:DEFCFUN ("cungtr_" %%CUNGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cungtr_" %%CUNGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12528,18 +12534,126 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5595 ':INT32) (LDA-REF5597 ':INT32) - (LWORK-REF5600 ':INT32) (INFO-REF5601 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5595 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5597 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5600 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5601 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5596 A) (TAU-REF5598 TAU) - (WORK-REF5599 WORK)) - (%%CUNGTR UPLO N-REF5595 A-REF5596 LDA-REF5597 TAU-REF5598 WORK-REF5599 - LWORK-REF5600 INFO-REF5601)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5526 ':INT32) (LDA-REF5528 ':INT32) + (LWORK-REF5531 ':INT32) (INFO-REF5532 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5526 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5528 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5531 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5532 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5527 A) (TAU-REF5529 TAU) + (WORK-REF5530 WORK)) + (%%CUNGTR UPLO N-REF5526 A-REF5527 LDA-REF5528 TAU-REF5529 WORK-REF5530 + LWORK-REF5531 INFO-REF5532)))) + +(CFFI:DEFCFUN ("cungtsqr_" %%CUNGTSQR :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (MB :POINTER) + (NB :POINTER) + (A :POINTER) + (LDA :POINTER) + (T :POINTER) + (LDT :POINTER) + (WORK :POINTER) + (LWORK :POINTER) + (INFO :POINTER)) -(CFFI:DEFCFUN ("cunm22_" %%CUNM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(COMMON-LISP:DEFUN %CUNGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNGTSQR) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + T) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + WORK) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5533 ':INT32) (N-REF5534 ':INT32) + (MB-REF5535 ':INT32) (NB-REF5536 ':INT32) + (LDA-REF5538 ':INT32) (LDT-REF5540 ':INT32) + (LWORK-REF5542 ':INT32) (INFO-REF5543 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5533 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5534 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF5535 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5536 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5538 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5540 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5542 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5543 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5537 A) (T-REF5539 T) + (WORK-REF5541 WORK)) + (%%CUNGTSQR M-REF5533 N-REF5534 MB-REF5535 NB-REF5536 A-REF5537 + LDA-REF5538 T-REF5539 LDT-REF5540 WORK-REF5541 LWORK-REF5542 + INFO-REF5543)))) + +(CFFI:DEFCFUN ("cunhr_col_" %%CUNHR_COL :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (NB :POINTER) + (A :POINTER) + (LDA :POINTER) + (T :POINTER) + (LDT :POINTER) + (D :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %CUNHR_COL (M N NB A LDA T LDT D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNHR_COL) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + T) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) + (COMMON-LISP:*)) + D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5544 ':INT32) (N-REF5545 ':INT32) + (NB-REF5546 ':INT32) (LDA-REF5548 ':INT32) + (LDT-REF5550 ':INT32) (INFO-REF5552 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5544 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5545 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF5546 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5548 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF5550 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5552 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5547 A) (T-REF5549 T) + (D-REF5551 D)) + (%%CUNHR_COL M-REF5544 N-REF5545 NB-REF5546 A-REF5547 LDA-REF5548 + T-REF5549 LDT-REF5550 D-REF5551 INFO-REF5552)))) + +(CFFI:DEFCFUN ("cunm22_" %%CUNM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12582,25 +12696,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5604 ':INT32) (N-REF5605 ':INT32) - (N1-REF5606 ':INT32) (N2-REF5607 ':INT32) - (LDQ-REF5609 ':INT32) (LDC-REF5611 ':INT32) - (LWORK-REF5613 ':INT32) (INFO-REF5614 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5604 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5605 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF5606 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF5607 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5609 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5611 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5613 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5614 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF5608 Q) (C-REF5610 C) - (WORK-REF5612 WORK)) - (%%CUNM22 SIDE TRANS M-REF5604 N-REF5605 N1-REF5606 N2-REF5607 Q-REF5608 - LDQ-REF5609 C-REF5610 LDC-REF5611 WORK-REF5612 LWORK-REF5613 - INFO-REF5614)))) - -(CFFI:DEFCFUN ("cunm2l_" %%CUNM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5555 ':INT32) (N-REF5556 ':INT32) + (N1-REF5557 ':INT32) (N2-REF5558 ':INT32) + (LDQ-REF5560 ':INT32) (LDC-REF5562 ':INT32) + (LWORK-REF5564 ':INT32) (INFO-REF5565 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5555 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5556 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF5557 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF5558 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5560 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5562 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5564 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5565 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF5559 Q) (C-REF5561 C) + (WORK-REF5563 WORK)) + (%%CUNM22 SIDE TRANS M-REF5555 N-REF5556 N1-REF5557 N2-REF5558 Q-REF5559 + LDQ-REF5560 C-REF5561 LDC-REF5562 WORK-REF5563 LWORK-REF5564 + INFO-REF5565)))) + +(CFFI:DEFCFUN ("cunm2l_" %%CUNM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12645,21 +12759,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5617 ':INT32) (N-REF5618 ':INT32) - (K-REF5619 ':INT32) (LDA-REF5621 ':INT32) - (LDC-REF5624 ':INT32) (INFO-REF5626 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5617 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5618 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5619 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5621 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5624 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5626 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5620 A) (TAU-REF5622 TAU) - (C-REF5623 C) (WORK-REF5625 WORK)) - (%%CUNM2L SIDE TRANS M-REF5617 N-REF5618 K-REF5619 A-REF5620 LDA-REF5621 - TAU-REF5622 C-REF5623 LDC-REF5624 WORK-REF5625 INFO-REF5626)))) - -(CFFI:DEFCFUN ("cunm2r_" %%CUNM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5568 ':INT32) (N-REF5569 ':INT32) + (K-REF5570 ':INT32) (LDA-REF5572 ':INT32) + (LDC-REF5575 ':INT32) (INFO-REF5577 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5568 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5569 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5570 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5572 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5575 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5577 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5571 A) (TAU-REF5573 TAU) + (C-REF5574 C) (WORK-REF5576 WORK)) + (%%CUNM2L SIDE TRANS M-REF5568 N-REF5569 K-REF5570 A-REF5571 LDA-REF5572 + TAU-REF5573 C-REF5574 LDC-REF5575 WORK-REF5576 INFO-REF5577)))) + +(CFFI:DEFCFUN ("cunm2r_" %%CUNM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12704,21 +12818,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5629 ':INT32) (N-REF5630 ':INT32) - (K-REF5631 ':INT32) (LDA-REF5633 ':INT32) - (LDC-REF5636 ':INT32) (INFO-REF5638 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5629 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5630 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5631 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5633 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5636 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5638 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5632 A) (TAU-REF5634 TAU) - (C-REF5635 C) (WORK-REF5637 WORK)) - (%%CUNM2R SIDE TRANS M-REF5629 N-REF5630 K-REF5631 A-REF5632 LDA-REF5633 - TAU-REF5634 C-REF5635 LDC-REF5636 WORK-REF5637 INFO-REF5638)))) - -(CFFI:DEFCFUN ("cunmbr_" %%CUNMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5580 ':INT32) (N-REF5581 ':INT32) + (K-REF5582 ':INT32) (LDA-REF5584 ':INT32) + (LDC-REF5587 ':INT32) (INFO-REF5589 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5580 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5581 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5582 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5584 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5587 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5589 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5583 A) (TAU-REF5585 TAU) + (C-REF5586 C) (WORK-REF5588 WORK)) + (%%CUNM2R SIDE TRANS M-REF5580 N-REF5581 K-REF5582 A-REF5583 LDA-REF5584 + TAU-REF5585 C-REF5586 LDC-REF5587 WORK-REF5588 INFO-REF5589)))) + +(CFFI:DEFCFUN ("cunmbr_" %%CUNMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (SIDE :STRING) @@ -12768,24 +12882,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5642 ':INT32) (N-REF5643 ':INT32) - (K-REF5644 ':INT32) (LDA-REF5646 ':INT32) - (LDC-REF5649 ':INT32) (LWORK-REF5651 ':INT32) - (INFO-REF5652 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5642 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5643 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5644 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5646 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5649 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5651 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5652 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5645 A) (TAU-REF5647 TAU) - (C-REF5648 C) (WORK-REF5650 WORK)) - (%%CUNMBR VECT SIDE TRANS M-REF5642 N-REF5643 K-REF5644 A-REF5645 - LDA-REF5646 TAU-REF5647 C-REF5648 LDC-REF5649 WORK-REF5650 - LWORK-REF5651 INFO-REF5652)))) - -(CFFI:DEFCFUN ("cunmhr_" %%CUNMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5593 ':INT32) (N-REF5594 ':INT32) + (K-REF5595 ':INT32) (LDA-REF5597 ':INT32) + (LDC-REF5600 ':INT32) (LWORK-REF5602 ':INT32) + (INFO-REF5603 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5593 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5594 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5595 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5597 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5600 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5602 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5603 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5596 A) (TAU-REF5598 TAU) + (C-REF5599 C) (WORK-REF5601 WORK)) + (%%CUNMBR VECT SIDE TRANS M-REF5593 N-REF5594 K-REF5595 A-REF5596 + LDA-REF5597 TAU-REF5598 C-REF5599 LDC-REF5600 WORK-REF5601 LWORK-REF5602 + INFO-REF5603)))) + +(CFFI:DEFCFUN ("cunmhr_" %%CUNMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12835,25 +12949,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5655 ':INT32) (N-REF5656 ':INT32) - (ILO-REF5657 ':INT32) (IHI-REF5658 ':INT32) - (LDA-REF5660 ':INT32) (LDC-REF5663 ':INT32) - (LWORK-REF5665 ':INT32) (INFO-REF5666 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5655 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5656 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5657 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5658 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5660 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5663 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5665 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5666 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5659 A) (TAU-REF5661 TAU) - (C-REF5662 C) (WORK-REF5664 WORK)) - (%%CUNMHR SIDE TRANS M-REF5655 N-REF5656 ILO-REF5657 IHI-REF5658 - A-REF5659 LDA-REF5660 TAU-REF5661 C-REF5662 LDC-REF5663 - WORK-REF5664 LWORK-REF5665 INFO-REF5666)))) - -(CFFI:DEFCFUN ("cunml2_" %%CUNML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5606 ':INT32) (N-REF5607 ':INT32) + (ILO-REF5608 ':INT32) (IHI-REF5609 ':INT32) + (LDA-REF5611 ':INT32) (LDC-REF5614 ':INT32) + (LWORK-REF5616 ':INT32) (INFO-REF5617 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5606 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5607 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF5608 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF5609 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5611 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5614 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5616 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5617 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5610 A) (TAU-REF5612 TAU) + (C-REF5613 C) (WORK-REF5615 WORK)) + (%%CUNMHR SIDE TRANS M-REF5606 N-REF5607 ILO-REF5608 IHI-REF5609 + A-REF5610 LDA-REF5611 TAU-REF5612 C-REF5613 LDC-REF5614 WORK-REF5615 + LWORK-REF5616 INFO-REF5617)))) + +(CFFI:DEFCFUN ("cunml2_" %%CUNML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12898,21 +13012,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5669 ':INT32) (N-REF5670 ':INT32) - (K-REF5671 ':INT32) (LDA-REF5673 ':INT32) - (LDC-REF5676 ':INT32) (INFO-REF5678 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5669 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5670 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5671 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5673 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5676 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5678 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5672 A) (TAU-REF5674 TAU) - (C-REF5675 C) (WORK-REF5677 WORK)) - (%%CUNML2 SIDE TRANS M-REF5669 N-REF5670 K-REF5671 A-REF5672 LDA-REF5673 - TAU-REF5674 C-REF5675 LDC-REF5676 WORK-REF5677 INFO-REF5678)))) - -(CFFI:DEFCFUN ("cunmlq_" %%CUNMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5620 ':INT32) (N-REF5621 ':INT32) + (K-REF5622 ':INT32) (LDA-REF5624 ':INT32) + (LDC-REF5627 ':INT32) (INFO-REF5629 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5620 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5621 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5622 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5624 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5627 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5629 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5623 A) (TAU-REF5625 TAU) + (C-REF5626 C) (WORK-REF5628 WORK)) + (%%CUNML2 SIDE TRANS M-REF5620 N-REF5621 K-REF5622 A-REF5623 LDA-REF5624 + TAU-REF5625 C-REF5626 LDC-REF5627 WORK-REF5628 INFO-REF5629)))) + +(CFFI:DEFCFUN ("cunmlq_" %%CUNMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12959,24 +13073,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5681 ':INT32) (N-REF5682 ':INT32) - (K-REF5683 ':INT32) (LDA-REF5685 ':INT32) - (LDC-REF5688 ':INT32) (LWORK-REF5690 ':INT32) - (INFO-REF5691 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5681 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5682 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5683 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5685 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5688 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5690 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5691 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5684 A) (TAU-REF5686 TAU) - (C-REF5687 C) (WORK-REF5689 WORK)) - (%%CUNMLQ SIDE TRANS M-REF5681 N-REF5682 K-REF5683 A-REF5684 LDA-REF5685 - TAU-REF5686 C-REF5687 LDC-REF5688 WORK-REF5689 LWORK-REF5690 - INFO-REF5691)))) - -(CFFI:DEFCFUN ("cunmql_" %%CUNMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5632 ':INT32) (N-REF5633 ':INT32) + (K-REF5634 ':INT32) (LDA-REF5636 ':INT32) + (LDC-REF5639 ':INT32) (LWORK-REF5641 ':INT32) + (INFO-REF5642 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5632 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5633 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5634 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5636 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5639 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5641 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5642 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5635 A) (TAU-REF5637 TAU) + (C-REF5638 C) (WORK-REF5640 WORK)) + (%%CUNMLQ SIDE TRANS M-REF5632 N-REF5633 K-REF5634 A-REF5635 LDA-REF5636 + TAU-REF5637 C-REF5638 LDC-REF5639 WORK-REF5640 LWORK-REF5641 + INFO-REF5642)))) + +(CFFI:DEFCFUN ("cunmql_" %%CUNMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13023,24 +13137,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5694 ':INT32) (N-REF5695 ':INT32) - (K-REF5696 ':INT32) (LDA-REF5698 ':INT32) - (LDC-REF5701 ':INT32) (LWORK-REF5703 ':INT32) - (INFO-REF5704 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5694 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5695 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5696 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5698 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5701 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5703 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5704 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5697 A) (TAU-REF5699 TAU) - (C-REF5700 C) (WORK-REF5702 WORK)) - (%%CUNMQL SIDE TRANS M-REF5694 N-REF5695 K-REF5696 A-REF5697 LDA-REF5698 - TAU-REF5699 C-REF5700 LDC-REF5701 WORK-REF5702 LWORK-REF5703 - INFO-REF5704)))) - -(CFFI:DEFCFUN ("cunmqr_" %%CUNMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5645 ':INT32) (N-REF5646 ':INT32) + (K-REF5647 ':INT32) (LDA-REF5649 ':INT32) + (LDC-REF5652 ':INT32) (LWORK-REF5654 ':INT32) + (INFO-REF5655 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5645 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5646 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5647 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5649 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5652 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5654 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5655 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5648 A) (TAU-REF5650 TAU) + (C-REF5651 C) (WORK-REF5653 WORK)) + (%%CUNMQL SIDE TRANS M-REF5645 N-REF5646 K-REF5647 A-REF5648 LDA-REF5649 + TAU-REF5650 C-REF5651 LDC-REF5652 WORK-REF5653 LWORK-REF5654 + INFO-REF5655)))) + +(CFFI:DEFCFUN ("cunmqr_" %%CUNMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13087,24 +13201,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5707 ':INT32) (N-REF5708 ':INT32) - (K-REF5709 ':INT32) (LDA-REF5711 ':INT32) - (LDC-REF5714 ':INT32) (LWORK-REF5716 ':INT32) - (INFO-REF5717 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5707 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5708 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5709 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5711 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5714 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5716 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5717 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5710 A) (TAU-REF5712 TAU) - (C-REF5713 C) (WORK-REF5715 WORK)) - (%%CUNMQR SIDE TRANS M-REF5707 N-REF5708 K-REF5709 A-REF5710 LDA-REF5711 - TAU-REF5712 C-REF5713 LDC-REF5714 WORK-REF5715 LWORK-REF5716 - INFO-REF5717)))) - -(CFFI:DEFCFUN ("cunmr2_" %%CUNMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5658 ':INT32) (N-REF5659 ':INT32) + (K-REF5660 ':INT32) (LDA-REF5662 ':INT32) + (LDC-REF5665 ':INT32) (LWORK-REF5667 ':INT32) + (INFO-REF5668 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5658 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5659 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5660 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5662 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5665 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5667 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5668 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5661 A) (TAU-REF5663 TAU) + (C-REF5664 C) (WORK-REF5666 WORK)) + (%%CUNMQR SIDE TRANS M-REF5658 N-REF5659 K-REF5660 A-REF5661 LDA-REF5662 + TAU-REF5663 C-REF5664 LDC-REF5665 WORK-REF5666 LWORK-REF5667 + INFO-REF5668)))) + +(CFFI:DEFCFUN ("cunmr2_" %%CUNMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13149,21 +13263,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5720 ':INT32) (N-REF5721 ':INT32) - (K-REF5722 ':INT32) (LDA-REF5724 ':INT32) - (LDC-REF5727 ':INT32) (INFO-REF5729 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5720 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5721 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5722 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5724 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5727 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5729 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5723 A) (TAU-REF5725 TAU) - (C-REF5726 C) (WORK-REF5728 WORK)) - (%%CUNMR2 SIDE TRANS M-REF5720 N-REF5721 K-REF5722 A-REF5723 LDA-REF5724 - TAU-REF5725 C-REF5726 LDC-REF5727 WORK-REF5728 INFO-REF5729)))) - -(CFFI:DEFCFUN ("cunmr3_" %%CUNMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5671 ':INT32) (N-REF5672 ':INT32) + (K-REF5673 ':INT32) (LDA-REF5675 ':INT32) + (LDC-REF5678 ':INT32) (INFO-REF5680 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5671 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5672 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5673 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5675 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5678 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5680 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5674 A) (TAU-REF5676 TAU) + (C-REF5677 C) (WORK-REF5679 WORK)) + (%%CUNMR2 SIDE TRANS M-REF5671 N-REF5672 K-REF5673 A-REF5674 LDA-REF5675 + TAU-REF5676 C-REF5677 LDC-REF5678 WORK-REF5679 INFO-REF5680)))) + +(CFFI:DEFCFUN ("cunmr3_" %%CUNMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13210,24 +13324,24 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5732 ':INT32) (N-REF5733 ':INT32) - (K-REF5734 ':INT32) (L-REF5735 ':INT32) - (LDA-REF5737 ':INT32) (LDC-REF5740 ':INT32) - (INFO-REF5742 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5732 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5733 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5734 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5735 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5737 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5740 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5742 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5736 A) (TAU-REF5738 TAU) - (C-REF5739 C) (WORK-REF5741 WORK)) - (%%CUNMR3 SIDE TRANS M-REF5732 N-REF5733 K-REF5734 L-REF5735 A-REF5736 - LDA-REF5737 TAU-REF5738 C-REF5739 LDC-REF5740 WORK-REF5741 - INFO-REF5742)))) - -(CFFI:DEFCFUN ("cunmrq_" %%CUNMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5683 ':INT32) (N-REF5684 ':INT32) + (K-REF5685 ':INT32) (L-REF5686 ':INT32) + (LDA-REF5688 ':INT32) (LDC-REF5691 ':INT32) + (INFO-REF5693 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5683 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5684 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5685 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5686 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5688 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5691 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5693 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5687 A) (TAU-REF5689 TAU) + (C-REF5690 C) (WORK-REF5692 WORK)) + (%%CUNMR3 SIDE TRANS M-REF5683 N-REF5684 K-REF5685 L-REF5686 A-REF5687 + LDA-REF5688 TAU-REF5689 C-REF5690 LDC-REF5691 WORK-REF5692 + INFO-REF5693)))) + +(CFFI:DEFCFUN ("cunmrq_" %%CUNMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13274,24 +13388,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5745 ':INT32) (N-REF5746 ':INT32) - (K-REF5747 ':INT32) (LDA-REF5749 ':INT32) - (LDC-REF5752 ':INT32) (LWORK-REF5754 ':INT32) - (INFO-REF5755 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5745 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5746 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5747 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5749 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5752 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5754 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5755 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5748 A) (TAU-REF5750 TAU) - (C-REF5751 C) (WORK-REF5753 WORK)) - (%%CUNMRQ SIDE TRANS M-REF5745 N-REF5746 K-REF5747 A-REF5748 LDA-REF5749 - TAU-REF5750 C-REF5751 LDC-REF5752 WORK-REF5753 LWORK-REF5754 - INFO-REF5755)))) - -(CFFI:DEFCFUN ("cunmrz_" %%CUNMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5696 ':INT32) (N-REF5697 ':INT32) + (K-REF5698 ':INT32) (LDA-REF5700 ':INT32) + (LDC-REF5703 ':INT32) (LWORK-REF5705 ':INT32) + (INFO-REF5706 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5696 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5697 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5698 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5700 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5703 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5705 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5706 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5699 A) (TAU-REF5701 TAU) + (C-REF5702 C) (WORK-REF5704 WORK)) + (%%CUNMRQ SIDE TRANS M-REF5696 N-REF5697 K-REF5698 A-REF5699 LDA-REF5700 + TAU-REF5701 C-REF5702 LDC-REF5703 WORK-REF5704 LWORK-REF5705 + INFO-REF5706)))) + +(CFFI:DEFCFUN ("cunmrz_" %%CUNMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13340,25 +13454,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5758 ':INT32) (N-REF5759 ':INT32) - (K-REF5760 ':INT32) (L-REF5761 ':INT32) - (LDA-REF5763 ':INT32) (LDC-REF5766 ':INT32) - (LWORK-REF5768 ':INT32) (INFO-REF5769 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5758 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5759 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5760 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5761 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5763 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5766 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5768 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5769 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5762 A) (TAU-REF5764 TAU) - (C-REF5765 C) (WORK-REF5767 WORK)) - (%%CUNMRZ SIDE TRANS M-REF5758 N-REF5759 K-REF5760 L-REF5761 A-REF5762 - LDA-REF5763 TAU-REF5764 C-REF5765 LDC-REF5766 WORK-REF5767 - LWORK-REF5768 INFO-REF5769)))) - -(CFFI:DEFCFUN ("cunmtr_" %%CUNMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5709 ':INT32) (N-REF5710 ':INT32) + (K-REF5711 ':INT32) (L-REF5712 ':INT32) + (LDA-REF5714 ':INT32) (LDC-REF5717 ':INT32) + (LWORK-REF5719 ':INT32) (INFO-REF5720 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5709 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5710 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF5711 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF5712 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5714 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5717 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5719 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5720 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5713 A) (TAU-REF5715 TAU) + (C-REF5716 C) (WORK-REF5718 WORK)) + (%%CUNMRZ SIDE TRANS M-REF5709 N-REF5710 K-REF5711 L-REF5712 A-REF5713 + LDA-REF5714 TAU-REF5715 C-REF5716 LDC-REF5717 WORK-REF5718 LWORK-REF5719 + INFO-REF5720)))) + +(CFFI:DEFCFUN ("cunmtr_" %%CUNMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (UPLO :STRING) @@ -13406,22 +13520,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5773 ':INT32) (N-REF5774 ':INT32) - (LDA-REF5776 ':INT32) (LDC-REF5779 ':INT32) - (LWORK-REF5781 ':INT32) (INFO-REF5782 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5773 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5774 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5776 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5779 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5781 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5782 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5775 A) (TAU-REF5777 TAU) - (C-REF5778 C) (WORK-REF5780 WORK)) - (%%CUNMTR SIDE UPLO TRANS M-REF5773 N-REF5774 A-REF5775 LDA-REF5776 - TAU-REF5777 C-REF5778 LDC-REF5779 WORK-REF5780 LWORK-REF5781 - INFO-REF5782)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5724 ':INT32) (N-REF5725 ':INT32) + (LDA-REF5727 ':INT32) (LDC-REF5730 ':INT32) + (LWORK-REF5732 ':INT32) (INFO-REF5733 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5724 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5725 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF5727 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5730 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5732 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5733 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF5726 A) (TAU-REF5728 TAU) + (C-REF5729 C) (WORK-REF5731 WORK)) + (%%CUNMTR SIDE UPLO TRANS M-REF5724 N-REF5725 A-REF5726 LDA-REF5727 + TAU-REF5728 C-REF5729 LDC-REF5730 WORK-REF5731 LWORK-REF5732 + INFO-REF5733)))) -(CFFI:DEFCFUN ("cupgtr_" %%CUPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cupgtr_" %%CUPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -13458,17 +13572,17 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5784 ':INT32) (LDQ-REF5788 ':INT32) - (INFO-REF5790 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5784 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5788 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5790 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5785 AP) (TAU-REF5786 TAU) - (Q-REF5787 Q) (WORK-REF5789 WORK)) - (%%CUPGTR UPLO N-REF5784 AP-REF5785 TAU-REF5786 Q-REF5787 LDQ-REF5788 - WORK-REF5789 INFO-REF5790)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5735 ':INT32) (LDQ-REF5739 ':INT32) + (INFO-REF5741 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5735 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5739 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5741 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5736 AP) (TAU-REF5737 TAU) + (Q-REF5738 Q) (WORK-REF5740 WORK)) + (%%CUPGTR UPLO N-REF5735 AP-REF5736 TAU-REF5737 Q-REF5738 LDQ-REF5739 + WORK-REF5740 INFO-REF5741)))) -(CFFI:DEFCFUN ("cupmtr_" %%CUPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("cupmtr_" %%CUPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (UPLO :STRING) @@ -13511,18 +13625,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5794 ':INT32) (N-REF5795 ':INT32) - (LDC-REF5799 ':INT32) (INFO-REF5801 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5794 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5795 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5799 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5801 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5796 AP) (TAU-REF5797 TAU) - (C-REF5798 C) (WORK-REF5800 WORK)) - (%%CUPMTR SIDE UPLO TRANS M-REF5794 N-REF5795 AP-REF5796 TAU-REF5797 - C-REF5798 LDC-REF5799 WORK-REF5800 INFO-REF5801)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5745 ':INT32) (N-REF5746 ':INT32) + (LDC-REF5750 ':INT32) (INFO-REF5752 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5745 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5746 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5750 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5752 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF5747 AP) (TAU-REF5748 TAU) + (C-REF5749 C) (WORK-REF5751 WORK)) + (%%CUPMTR SIDE UPLO TRANS M-REF5745 N-REF5746 AP-REF5747 TAU-REF5748 + C-REF5749 LDC-REF5750 WORK-REF5751 INFO-REF5752)))) -(CFFI:DEFCFUN ("dbbcsd_" %%DBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dbbcsd_" %%DBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -13616,41 +13730,41 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5807 ':INT32) (P-REF5808 ':INT32) - (Q-REF5809 ':INT32) (LDU1-REF5813 ':INT32) - (LDU2-REF5815 ':INT32) (LDV1T-REF5817 ':INT32) - (LDV2T-REF5819 ':INT32) (LWORK-REF5829 ':INT32) - (INFO-REF5830 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5807 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5808 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5809 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5813 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5815 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5817 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF5819 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5829 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5830 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF5810 THETA) - (PHI-REF5811 PHI) (U1-REF5812 U1) - (U2-REF5814 U2) (V1T-REF5816 V1T) - (V2T-REF5818 V2T) - (B11D-REF5820 B11D) - (B11E-REF5821 B11E) - (B12D-REF5822 B12D) - (B12E-REF5823 B12E) - (B21D-REF5824 B21D) - (B21E-REF5825 B21E) - (B22D-REF5826 B22D) - (B22E-REF5827 B22E) - (WORK-REF5828 WORK)) - (%%DBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF5807 P-REF5808 Q-REF5809 - THETA-REF5810 PHI-REF5811 U1-REF5812 LDU1-REF5813 U2-REF5814 - LDU2-REF5815 V1T-REF5816 LDV1T-REF5817 V2T-REF5818 - LDV2T-REF5819 B11D-REF5820 B11E-REF5821 B12D-REF5822 - B12E-REF5823 B21D-REF5824 B21E-REF5825 B22D-REF5826 - B22E-REF5827 WORK-REF5828 LWORK-REF5829 INFO-REF5830)))) - -(CFFI:DEFCFUN ("dbdsdc_" %%DBDSDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5758 ':INT32) (P-REF5759 ':INT32) + (Q-REF5760 ':INT32) (LDU1-REF5764 ':INT32) + (LDU2-REF5766 ':INT32) (LDV1T-REF5768 ':INT32) + (LDV2T-REF5770 ':INT32) (LWORK-REF5780 ':INT32) + (INFO-REF5781 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5758 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF5759 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF5760 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF5764 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF5766 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF5768 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF5770 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF5780 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5781 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF5761 THETA) + (PHI-REF5762 PHI) (U1-REF5763 U1) + (U2-REF5765 U2) (V1T-REF5767 V1T) + (V2T-REF5769 V2T) + (B11D-REF5771 B11D) + (B11E-REF5772 B11E) + (B12D-REF5773 B12D) + (B12E-REF5774 B12E) + (B21D-REF5775 B21D) + (B21E-REF5776 B21E) + (B22D-REF5777 B22D) + (B22E-REF5778 B22E) + (WORK-REF5779 WORK)) + (%%DBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF5758 P-REF5759 Q-REF5760 + THETA-REF5761 PHI-REF5762 U1-REF5763 LDU1-REF5764 U2-REF5765 + LDU2-REF5766 V1T-REF5767 LDV1T-REF5768 V2T-REF5769 LDV2T-REF5770 + B11D-REF5771 B11E-REF5772 B12D-REF5773 B12E-REF5774 B21D-REF5775 + B21E-REF5776 B22D-REF5777 B22E-REF5778 WORK-REF5779 LWORK-REF5780 + INFO-REF5781)))) + +(CFFI:DEFCFUN ("dbdsdc_" %%DBDSDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (COMPQ :STRING) @@ -13697,22 +13811,22 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5833 ':INT32) (LDU-REF5837 ':INT32) - (LDVT-REF5839 ':INT32) (INFO-REF5844 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5833 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF5837 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF5839 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5844 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5834 D) (E-REF5835 E) - (U-REF5836 U) (VT-REF5838 VT) - (Q-REF5840 Q) (IQ-REF5841 IQ) - (WORK-REF5842 WORK) - (IWORK-REF5843 IWORK)) - (%%DBDSDC UPLO COMPQ N-REF5833 D-REF5834 E-REF5835 U-REF5836 LDU-REF5837 - VT-REF5838 LDVT-REF5839 Q-REF5840 IQ-REF5841 WORK-REF5842 - IWORK-REF5843 INFO-REF5844)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5784 ':INT32) (LDU-REF5788 ':INT32) + (LDVT-REF5790 ':INT32) (INFO-REF5795 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5784 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF5788 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF5790 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5795 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5785 D) (E-REF5786 E) + (U-REF5787 U) (VT-REF5789 VT) + (Q-REF5791 Q) (IQ-REF5792 IQ) + (WORK-REF5793 WORK) + (IWORK-REF5794 IWORK)) + (%%DBDSDC UPLO COMPQ N-REF5784 D-REF5785 E-REF5786 U-REF5787 LDU-REF5788 + VT-REF5789 LDVT-REF5790 Q-REF5791 IQ-REF5792 WORK-REF5793 IWORK-REF5794 + INFO-REF5795)))) -(CFFI:DEFCFUN ("dbdsqr_" %%DBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dbdsqr_" %%DBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -13755,26 +13869,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5846 ':INT32) (NCVT-REF5847 ':INT32) - (NRU-REF5848 ':INT32) (NCC-REF5849 ':INT32) - (LDVT-REF5853 ':INT32) (LDU-REF5855 ':INT32) - (LDC-REF5857 ':INT32) (INFO-REF5859 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5846 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF5847 :INT32) NCVT) - (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF5848 :INT32) NRU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5849 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF5853 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF5855 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5857 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5859 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5850 D) (E-REF5851 E) - (VT-REF5852 VT) (U-REF5854 U) - (C-REF5856 C) (WORK-REF5858 WORK)) - (%%DBDSQR UPLO N-REF5846 NCVT-REF5847 NRU-REF5848 NCC-REF5849 D-REF5850 - E-REF5851 VT-REF5852 LDVT-REF5853 U-REF5854 LDU-REF5855 - C-REF5856 LDC-REF5857 WORK-REF5858 INFO-REF5859)))) - -(CFFI:DEFCFUN ("dbdsvdx_" %%DBDSVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5797 ':INT32) (NCVT-REF5798 ':INT32) + (NRU-REF5799 ':INT32) (NCC-REF5800 ':INT32) + (LDVT-REF5804 ':INT32) (LDU-REF5806 ':INT32) + (LDC-REF5808 ':INT32) (INFO-REF5810 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5797 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF5798 :INT32) NCVT) + (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF5799 :INT32) NRU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5800 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF5804 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF5806 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5808 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5810 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5801 D) (E-REF5802 E) + (VT-REF5803 VT) (U-REF5805 U) + (C-REF5807 C) (WORK-REF5809 WORK)) + (%%DBDSQR UPLO N-REF5797 NCVT-REF5798 NRU-REF5799 NCC-REF5800 D-REF5801 + E-REF5802 VT-REF5803 LDVT-REF5804 U-REF5805 LDU-REF5806 C-REF5807 + LDC-REF5808 WORK-REF5809 INFO-REF5810)))) + +(CFFI:DEFCFUN ("dbdsvdx_" %%DBDSVDX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (JOBZ :STRING) @@ -13824,29 +13939,28 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5863 ':INT32) (VL-REF5866 ':DOUBLE) - (VU-REF5867 ':DOUBLE) (IL-REF5868 ':INT32) - (IU-REF5869 ':INT32) (NS-REF5870 ':INT32) - (LDZ-REF5873 ':INT32) (INFO-REF5876 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5863 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF5866 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF5867 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF5868 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF5869 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF5870 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5873 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5876 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5864 D) (E-REF5865 E) - (S-REF5871 S) (Z-REF5872 Z) - (WORK-REF5874 WORK) - (IWORK-REF5875 IWORK)) - (%%DBDSVDX UPLO JOBZ RANGE N-REF5863 D-REF5864 E-REF5865 VL-REF5866 - VU-REF5867 IL-REF5868 IU-REF5869 NS-REF5870 S-REF5871 - Z-REF5872 LDZ-REF5873 WORK-REF5874 IWORK-REF5875 - INFO-REF5876)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5814 ':INT32) (VL-REF5817 ':DOUBLE) + (VU-REF5818 ':DOUBLE) (IL-REF5819 ':INT32) + (IU-REF5820 ':INT32) (NS-REF5821 ':INT32) + (LDZ-REF5824 ':INT32) (INFO-REF5827 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5814 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF5817 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF5818 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF5819 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF5820 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF5821 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF5824 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5827 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5815 D) (E-REF5816 E) + (S-REF5822 S) (Z-REF5823 Z) + (WORK-REF5825 WORK) + (IWORK-REF5826 IWORK)) + (%%DBDSVDX UPLO JOBZ RANGE N-REF5814 D-REF5815 E-REF5816 VL-REF5817 + VU-REF5818 IL-REF5819 IU-REF5820 NS-REF5821 S-REF5822 Z-REF5823 + LDZ-REF5824 WORK-REF5825 IWORK-REF5826 INFO-REF5827)))) (CFFI:DEFCFUN ("dcombssq_" %%DCOMBSSQ :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (V1 :POINTER) (V2 :POINTER)) @@ -13859,10 +13973,10 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V2)) (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF5877 V1) (V2-REF5878 V2)) - (%%DCOMBSSQ V1-REF5877 V2-REF5878)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF5828 V1) (V2-REF5829 V2)) + (%%DCOMBSSQ V1-REF5828 V2-REF5829)))) -(CFFI:DEFCFUN ("ddisna_" %%DDISNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ddisna_" %%DDISNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (M :POINTER) @@ -13882,363 +13996,426 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SEP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5880 ':INT32) (N-REF5881 ':INT32) - (INFO-REF5884 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5880 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5881 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5884 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5882 D) (SEP-REF5883 SEP)) - (%%DDISNA JOB M-REF5880 N-REF5881 D-REF5882 SEP-REF5883 INFO-REF5884)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5831 ':INT32) (N-REF5832 ':INT32) + (INFO-REF5835 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5831 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5832 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5835 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF5833 D) (SEP-REF5834 SEP)) + (%%DDISNA JOB M-REF5831 N-REF5832 D-REF5833 SEP-REF5834 INFO-REF5835)))) (COMMON-LISP:DECLAIM - (COMMON-LISP:NOTINLINE %%CLANSB %CLANSB %%CLANSP %CLANSP %%CLANSY %CLANSY - %%CLANTB %CLANTB %%CLANTP %CLANTP %%CLANTR %CLANTR %%CLAPLL %CLAPLL %%CLAPMR - %CLAPMR %%CLAPMT %CLAPMT %%CLAQGB %CLAQGB %%CLAQGE %CLAQGE %%CLAQHB %CLAQHB - %%CLAQHE %CLAQHE %%CLAQHP %CLAQHP %%CLAQP2 %CLAQP2 %%CLAQPS %CLAQPS %%CLAQR0 - %CLAQR0 %%CLAQR1 %CLAQR1 %%CLAQR2 %CLAQR2 %%CLAQR3 %CLAQR3 %%CLAQR4 %CLAQR4 - %%CLAQR5 %CLAQR5 %%CLAQSB %CLAQSB %%CLAQSP %CLAQSP %%CLAQSY %CLAQSY %%CLAR1V - %CLAR1V %%CLAR2V %CLAR2V %%CLARCM %CLARCM %%CLARF %CLARF %%CLARFB %CLARFB - %%CLARFG %CLARFG %%CLARFGP %CLARFGP %%CLARFT %CLARFT %%CLARFX %CLARFX - %%CLARFY %CLARFY %%CLARGV %CLARGV %%CLARNV %CLARNV %%CLARRV %CLARRV - %%CLARSCL2 %CLARSCL2 %%CLARTG %CLARTG %%CLARTV %CLARTV %%CLARZ %CLARZ - %%CLARZB %CLARZB %%CLARZT %CLARZT %%CLASCL %CLASCL %%CLASCL2 %CLASCL2 - %%CLASET %CLASET %%CLASR %CLASR %%CLASSQ %CLASSQ %%CLASWLQ %CLASWLQ %%CLASWP - %CLASWP %%CLASYF %CLASYF %%CLASYF_AA %CLASYF_AA %%CLASYF_RK %CLASYF_RK - %%CLASYF_ROOK %CLASYF_ROOK %%CLATBS %CLATBS %%CLATDF %CLATDF %%CLATPS %CLATPS - %%CLATRD %CLATRD %%CLATRS %CLATRS %%CLATRZ %CLATRZ %%CLATSQR %CLATSQR - %%CLAUU2 %CLAUU2 %%CLAUUM %CLAUUM %%CPBCON %CPBCON %%CPBEQU %CPBEQU %%CPBRFS - %CPBRFS %%CPBSTF %CPBSTF %%CPBSV %CPBSV %%CPBSVX %CPBSVX %%CPBTF2 %CPBTF2 - %%CPBTRF %CPBTRF %%CPBTRS %CPBTRS %%CPFTRF %CPFTRF %%CPFTRI %CPFTRI %%CPFTRS - %CPFTRS %%CPOCON %CPOCON %%CPOEQU %CPOEQU %%CPOEQUB %CPOEQUB %%CPORFS %CPORFS - %%CPORFSX %CPORFSX %%CPOSV %CPOSV %%CPOSVX %CPOSVX %%CPOSVXX %CPOSVXX - %%CPOTF2 %CPOTF2 %%CPOTRF %CPOTRF %%CPOTRF2 %CPOTRF2 %%CPOTRI %CPOTRI - %%CPOTRS %CPOTRS %%CPPCON %CPPCON %%CPPEQU %CPPEQU %%CPPRFS %CPPRFS %%CPPSV - %CPPSV %%CPPSVX %CPPSVX %%CPPTRF %CPPTRF %%CPPTRI %CPPTRI %%CPPTRS %CPPTRS - %%CPSTF2 %CPSTF2 %%CPSTRF %CPSTRF %%CPTCON %CPTCON %%CPTEQR %CPTEQR %%CPTRFS - %CPTRFS %%CPTSV %CPTSV %%CPTSVX %CPTSVX %%CPTTRF %CPTTRF %%CPTTRS %CPTTRS - %%CPTTS2 %CPTTS2 %%CROT %CROT %%CSPCON %CSPCON %%CSPMV %CSPMV %%CSPR %CSPR - %%CSPRFS %CSPRFS %%CSPSV %CSPSV %%CSPSVX %CSPSVX %%CSPTRF %CSPTRF %%CSPTRI - %CSPTRI %%CSPTRS %CSPTRS %%CSRSCL %CSRSCL %%CSTEDC %CSTEDC %%CSTEGR %CSTEGR - %%CSTEIN %CSTEIN %%CSTEMR %CSTEMR %%CSTEQR %CSTEQR %%CSYCON %CSYCON - %%CSYCON_3 %CSYCON_3 %%CSYCON_ROOK %CSYCON_ROOK %%CSYCONV %CSYCONV %%CSYCONVF - %CSYCONVF %%CSYCONVF_ROOK %CSYCONVF_ROOK %%CSYEQUB %CSYEQUB %%CSYMV %CSYMV - %%CSYR %CSYR %%CSYRFS %CSYRFS %%CSYRFSX %CSYRFSX %%CSYSV %CSYSV %%CSYSV_AA - %CSYSV_AA %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE %%CSYSV_RK %CSYSV_RK - %%CSYSV_ROOK %CSYSV_ROOK %%CSYSVX %CSYSVX %%CSYSVXX %CSYSVXX %%CSYSWAPR - %CSYSWAPR %%CSYTF2 %CSYTF2 %%CSYTF2_RK %CSYTF2_RK %%CSYTF2_ROOK %CSYTF2_ROOK - %%CSYTRF %CSYTRF %%CSYTRF_AA %CSYTRF_AA %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE - %%CSYTRF_RK %CSYTRF_RK %%CSYTRF_ROOK %CSYTRF_ROOK %%CSYTRI %CSYTRI %%CSYTRI2 - %CSYTRI2 %%CSYTRI2X %CSYTRI2X %%CSYTRI_3 %CSYTRI_3 %%CSYTRI_3X %CSYTRI_3X - %%CSYTRI_ROOK %CSYTRI_ROOK %%CSYTRS %CSYTRS %%CSYTRS2 %CSYTRS2 %%CSYTRS_3 - %CSYTRS_3 %%CSYTRS_AA %CSYTRS_AA %%CSYTRS_AA_2STAGE %CSYTRS_AA_2STAGE - %%CSYTRS_ROOK %CSYTRS_ROOK %%CTBCON %CTBCON %%CTBRFS %CTBRFS %%CTBTRS %CTBTRS - %%CTFSM %CTFSM %%CTFTRI %CTFTRI %%CTFTTP %CTFTTP %%CTFTTR %CTFTTR %%CTGEVC - %CTGEVC %%CTGEX2 %CTGEX2 %%CTGEXC %CTGEXC %%CTGSEN %CTGSEN %%CTGSJA %CTGSJA - %%CTGSNA %CTGSNA %%CTGSY2 %CTGSY2 %%CTGSYL %CTGSYL %%CTPCON %CTPCON %%CTPLQT - %CTPLQT %%CTPLQT2 %CTPLQT2 %%CTPMLQT %CTPMLQT %%CTPMQRT %CTPMQRT %%CTPQRT - %CTPQRT %%CTPQRT2 %CTPQRT2 %%CTPRFB %CTPRFB %%CTPRFS %CTPRFS %%CTPTRI %CTPTRI - %%CTPTRS %CTPTRS %%CTPTTF %CTPTTF %%CTPTTR %CTPTTR %%CTRCON %CTRCON %%CTREVC - %CTREVC %%CTREVC3 %CTREVC3 %%CTREXC %CTREXC %%CTRRFS %CTRRFS %%CTRSEN %CTRSEN - %%CTRSNA %CTRSNA %%CTRSYL %CTRSYL %%CTRTI2 %CTRTI2 %%CTRTRI %CTRTRI %%CTRTRS - %CTRTRS %%CTRTTF %CTRTTF %%CTRTTP %CTRTTP %%CTZRZF %CTZRZF %%CUNBDB %CUNBDB - %%CUNBDB1 %CUNBDB1 %%CUNBDB2 %CUNBDB2 %%CUNBDB3 %CUNBDB3 %%CUNBDB4 %CUNBDB4 - %%CUNBDB5 %CUNBDB5 %%CUNBDB6 %CUNBDB6 %%CUNCSD %CUNCSD %%CUNCSD2BY1 - %CUNCSD2BY1 %%CUNG2L %CUNG2L %%CUNG2R %CUNG2R %%CUNGBR %CUNGBR %%CUNGHR - %CUNGHR %%CUNGL2 %CUNGL2 %%CUNGLQ %CUNGLQ %%CUNGQL %CUNGQL %%CUNGQR %CUNGQR - %%CUNGR2 %CUNGR2 %%CUNGRQ %CUNGRQ %%CUNGTR %CUNGTR %%CUNM22 %CUNM22 %%CUNM2L - %CUNM2L %%CUNM2R %CUNM2R %%CUNMBR %CUNMBR %%CUNMHR %CUNMHR %%CUNML2 %CUNML2 - %%CUNMLQ %CUNMLQ %%CUNMQL %CUNMQL %%CUNMQR %CUNMQR %%CUNMR2 %CUNMR2 %%CUNMR3 - %CUNMR3 %%CUNMRQ %CUNMRQ %%CUNMRZ %CUNMRZ %%CUNMTR %CUNMTR %%CUPGTR %CUPGTR - %%CUPMTR %CUPMTR %%DBBCSD %DBBCSD %%DBDSDC %DBDSDC %%DBDSQR %DBDSQR %%DBDSVDX - %DBDSVDX %%DCOMBSSQ %DCOMBSSQ %%DDISNA %DDISNA)) - -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK - '(("CLANSB" "clansb_" %%CLANSB %CLANSB) - ("CLANSP" "clansp_" %%CLANSP %CLANSP) - ("CLANSY" "clansy_" %%CLANSY %CLANSY) - ("CLANTB" "clantb_" %%CLANTB %CLANTB) - ("CLANTP" "clantp_" %%CLANTP %CLANTP) - ("CLANTR" "clantr_" %%CLANTR %CLANTR) - ("CLAPLL" "clapll_" %%CLAPLL %CLAPLL) - ("CLAPMR" "clapmr_" %%CLAPMR %CLAPMR) - ("CLAPMT" "clapmt_" %%CLAPMT %CLAPMT) - ("CLAQGB" "claqgb_" %%CLAQGB %CLAQGB) - ("CLAQGE" "claqge_" %%CLAQGE %CLAQGE) - ("CLAQHB" "claqhb_" %%CLAQHB %CLAQHB) - ("CLAQHE" "claqhe_" %%CLAQHE %CLAQHE) - ("CLAQHP" "claqhp_" %%CLAQHP %CLAQHP) - ("CLAQP2" "claqp2_" %%CLAQP2 %CLAQP2) - ("CLAQPS" "claqps_" %%CLAQPS %CLAQPS) - ("CLAQR0" "claqr0_" %%CLAQR0 %CLAQR0) - ("CLAQR1" "claqr1_" %%CLAQR1 %CLAQR1) - ("CLAQR2" "claqr2_" %%CLAQR2 %CLAQR2) - ("CLAQR3" "claqr3_" %%CLAQR3 %CLAQR3) - ("CLAQR4" "claqr4_" %%CLAQR4 %CLAQR4) - ("CLAQR5" "claqr5_" %%CLAQR5 %CLAQR5) - ("CLAQSB" "claqsb_" %%CLAQSB %CLAQSB) - ("CLAQSP" "claqsp_" %%CLAQSP %CLAQSP) - ("CLAQSY" "claqsy_" %%CLAQSY %CLAQSY) - ("CLAR1V" "clar1v_" %%CLAR1V %CLAR1V) - ("CLAR2V" "clar2v_" %%CLAR2V %CLAR2V) - ("CLARCM" "clarcm_" %%CLARCM %CLARCM) - ("CLARF" "clarf_" %%CLARF %CLARF) - ("CLARFB" "clarfb_" %%CLARFB %CLARFB) - ("CLARFG" "clarfg_" %%CLARFG %CLARFG) - ("CLARFGP" "clarfgp_" %%CLARFGP %CLARFGP) - ("CLARFT" "clarft_" %%CLARFT %CLARFT) - ("CLARFX" "clarfx_" %%CLARFX %CLARFX) - ("CLARFY" "clarfy_" %%CLARFY %CLARFY) - ("CLARGV" "clargv_" %%CLARGV %CLARGV) - ("CLARNV" "clarnv_" %%CLARNV %CLARNV) - ("CLARRV" "clarrv_" %%CLARRV %CLARRV) - ("CLARSCL2" "clarscl2_" %%CLARSCL2 %CLARSCL2) - ("CLARTG" "clartg_" %%CLARTG %CLARTG) - ("CLARTV" "clartv_" %%CLARTV %CLARTV) - ("CLARZ" "clarz_" %%CLARZ %CLARZ) - ("CLARZB" "clarzb_" %%CLARZB %CLARZB) - ("CLARZT" "clarzt_" %%CLARZT %CLARZT) - ("CLASCL" "clascl_" %%CLASCL %CLASCL) - ("CLASCL2" "clascl2_" %%CLASCL2 %CLASCL2) - ("CLASET" "claset_" %%CLASET %CLASET) - ("CLASR" "clasr_" %%CLASR %CLASR) - ("CLASSQ" "classq_" %%CLASSQ %CLASSQ) - ("CLASWLQ" "claswlq_" %%CLASWLQ %CLASWLQ) - ("CLASWP" "claswp_" %%CLASWP %CLASWP) - ("CLASYF" "clasyf_" %%CLASYF %CLASYF) - ("CLASYF_AA" "clasyf_aa_" %%CLASYF_AA %CLASYF_AA) - ("CLASYF_RK" "clasyf_rk_" %%CLASYF_RK %CLASYF_RK) - ("CLASYF_ROOK" "clasyf_rook_" %%CLASYF_ROOK %CLASYF_ROOK) - ("CLATBS" "clatbs_" %%CLATBS %CLATBS) - ("CLATDF" "clatdf_" %%CLATDF %CLATDF) - ("CLATPS" "clatps_" %%CLATPS %CLATPS) - ("CLATRD" "clatrd_" %%CLATRD %CLATRD) - ("CLATRS" "clatrs_" %%CLATRS %CLATRS) - ("CLATRZ" "clatrz_" %%CLATRZ %CLATRZ) - ("CLATSQR" "clatsqr_" %%CLATSQR %CLATSQR) - ("CLAUU2" "clauu2_" %%CLAUU2 %CLAUU2) - ("CLAUUM" "clauum_" %%CLAUUM %CLAUUM) - ("CPBCON" "cpbcon_" %%CPBCON %CPBCON) - ("CPBEQU" "cpbequ_" %%CPBEQU %CPBEQU) - ("CPBRFS" "cpbrfs_" %%CPBRFS %CPBRFS) - ("CPBSTF" "cpbstf_" %%CPBSTF %CPBSTF) - ("CPBSV" "cpbsv_" %%CPBSV %CPBSV) - ("CPBSVX" "cpbsvx_" %%CPBSVX %CPBSVX) - ("CPBTF2" "cpbtf2_" %%CPBTF2 %CPBTF2) - ("CPBTRF" "cpbtrf_" %%CPBTRF %CPBTRF) - ("CPBTRS" "cpbtrs_" %%CPBTRS %CPBTRS) - ("CPFTRF" "cpftrf_" %%CPFTRF %CPFTRF) - ("CPFTRI" "cpftri_" %%CPFTRI %CPFTRI) - ("CPFTRS" "cpftrs_" %%CPFTRS %CPFTRS) - ("CPOCON" "cpocon_" %%CPOCON %CPOCON) - ("CPOEQU" "cpoequ_" %%CPOEQU %CPOEQU) - ("CPOEQUB" "cpoequb_" %%CPOEQUB %CPOEQUB) - ("CPORFS" "cporfs_" %%CPORFS %CPORFS) - ("CPORFSX" "cporfsx_" %%CPORFSX %CPORFSX) - ("CPOSV" "cposv_" %%CPOSV %CPOSV) - ("CPOSVX" "cposvx_" %%CPOSVX %CPOSVX) - ("CPOSVXX" "cposvxx_" %%CPOSVXX %CPOSVXX) - ("CPOTF2" "cpotf2_" %%CPOTF2 %CPOTF2) - ("CPOTRF" "cpotrf_" %%CPOTRF %CPOTRF) - ("CPOTRF2" "cpotrf2_" %%CPOTRF2 %CPOTRF2) - ("CPOTRI" "cpotri_" %%CPOTRI %CPOTRI) - ("CPOTRS" "cpotrs_" %%CPOTRS %CPOTRS) - ("CPPCON" "cppcon_" %%CPPCON %CPPCON) - ("CPPEQU" "cppequ_" %%CPPEQU %CPPEQU) - ("CPPRFS" "cpprfs_" %%CPPRFS %CPPRFS) - ("CPPSV" "cppsv_" %%CPPSV %CPPSV) - ("CPPSVX" "cppsvx_" %%CPPSVX %CPPSVX) - ("CPPTRF" "cpptrf_" %%CPPTRF %CPPTRF) - ("CPPTRI" "cpptri_" %%CPPTRI %CPPTRI) - ("CPPTRS" "cpptrs_" %%CPPTRS %CPPTRS) - ("CPSTF2" "cpstf2_" %%CPSTF2 %CPSTF2) - ("CPSTRF" "cpstrf_" %%CPSTRF %CPSTRF) - ("CPTCON" "cptcon_" %%CPTCON %CPTCON) - ("CPTEQR" "cpteqr_" %%CPTEQR %CPTEQR) - ("CPTRFS" "cptrfs_" %%CPTRFS %CPTRFS) - ("CPTSV" "cptsv_" %%CPTSV %CPTSV) - ("CPTSVX" "cptsvx_" %%CPTSVX %CPTSVX) - ("CPTTRF" "cpttrf_" %%CPTTRF %CPTTRF) - ("CPTTRS" "cpttrs_" %%CPTTRS %CPTTRS) - ("CPTTS2" "cptts2_" %%CPTTS2 %CPTTS2) - ("CROT" "crot_" %%CROT %CROT) - ("CSPCON" "cspcon_" %%CSPCON %CSPCON) - ("CSPMV" "cspmv_" %%CSPMV %CSPMV) - ("CSPR" "cspr_" %%CSPR %CSPR) - ("CSPRFS" "csprfs_" %%CSPRFS %CSPRFS) - ("CSPSV" "cspsv_" %%CSPSV %CSPSV) - ("CSPSVX" "cspsvx_" %%CSPSVX %CSPSVX) - ("CSPTRF" "csptrf_" %%CSPTRF %CSPTRF) - ("CSPTRI" "csptri_" %%CSPTRI %CSPTRI) - ("CSPTRS" "csptrs_" %%CSPTRS %CSPTRS) - ("CSRSCL" "csrscl_" %%CSRSCL %CSRSCL) - ("CSTEDC" "cstedc_" %%CSTEDC %CSTEDC) - ("CSTEGR" "cstegr_" %%CSTEGR %CSTEGR) - ("CSTEIN" "cstein_" %%CSTEIN %CSTEIN) - ("CSTEMR" "cstemr_" %%CSTEMR %CSTEMR) - ("CSTEQR" "csteqr_" %%CSTEQR %CSTEQR) - ("CSYCON" "csycon_" %%CSYCON %CSYCON) - ("CSYCON_3" "csycon_3_" %%CSYCON_3 %CSYCON_3) - ("CSYCON_ROOK" "csycon_rook_" %%CSYCON_ROOK %CSYCON_ROOK) - ("CSYCONV" "csyconv_" %%CSYCONV %CSYCONV) - ("CSYCONVF" "csyconvf_" %%CSYCONVF %CSYCONVF) - ("CSYCONVF_ROOK" "csyconvf_rook_" %%CSYCONVF_ROOK - %CSYCONVF_ROOK) - ("CSYEQUB" "csyequb_" %%CSYEQUB %CSYEQUB) - ("CSYMV" "csymv_" %%CSYMV %CSYMV) - ("CSYR" "csyr_" %%CSYR %CSYR) - ("CSYRFS" "csyrfs_" %%CSYRFS %CSYRFS) - ("CSYRFSX" "csyrfsx_" %%CSYRFSX %CSYRFSX) - ("CSYSV" "csysv_" %%CSYSV %CSYSV) - ("CSYSV_AA" "csysv_aa_" %%CSYSV_AA %CSYSV_AA) - ("CSYSV_AA_2STAGE" "csysv_aa_2stage_" %%CSYSV_AA_2STAGE - %CSYSV_AA_2STAGE) - ("CSYSV_RK" "csysv_rk_" %%CSYSV_RK %CSYSV_RK) - ("CSYSV_ROOK" "csysv_rook_" %%CSYSV_ROOK %CSYSV_ROOK) - ("CSYSVX" "csysvx_" %%CSYSVX %CSYSVX) - ("CSYSVXX" "csysvxx_" %%CSYSVXX %CSYSVXX) - ("CSYSWAPR" "csyswapr_" %%CSYSWAPR %CSYSWAPR) - ("CSYTF2" "csytf2_" %%CSYTF2 %CSYTF2) - ("CSYTF2_RK" "csytf2_rk_" %%CSYTF2_RK %CSYTF2_RK) - ("CSYTF2_ROOK" "csytf2_rook_" %%CSYTF2_ROOK %CSYTF2_ROOK) - ("CSYTRF" "csytrf_" %%CSYTRF %CSYTRF) - ("CSYTRF_AA" "csytrf_aa_" %%CSYTRF_AA %CSYTRF_AA) - ("CSYTRF_AA_2STAGE" "csytrf_aa_2stage_" - %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE) - ("CSYTRF_RK" "csytrf_rk_" %%CSYTRF_RK %CSYTRF_RK) - ("CSYTRF_ROOK" "csytrf_rook_" %%CSYTRF_ROOK %CSYTRF_ROOK) - ("CSYTRI" "csytri_" %%CSYTRI %CSYTRI) - ("CSYTRI2" "csytri2_" %%CSYTRI2 %CSYTRI2) - ("CSYTRI2X" "csytri2x_" %%CSYTRI2X %CSYTRI2X) - ("CSYTRI_3" "csytri_3_" %%CSYTRI_3 %CSYTRI_3) - ("CSYTRI_3X" "csytri_3x_" %%CSYTRI_3X %CSYTRI_3X) - ("CSYTRI_ROOK" "csytri_rook_" %%CSYTRI_ROOK %CSYTRI_ROOK) - ("CSYTRS" "csytrs_" %%CSYTRS %CSYTRS) - ("CSYTRS2" "csytrs2_" %%CSYTRS2 %CSYTRS2) - ("CSYTRS_3" "csytrs_3_" %%CSYTRS_3 %CSYTRS_3) - ("CSYTRS_AA" "csytrs_aa_" %%CSYTRS_AA %CSYTRS_AA) - ("CSYTRS_AA_2STAGE" "csytrs_aa_2stage_" - %%CSYTRS_AA_2STAGE %CSYTRS_AA_2STAGE) - ("CSYTRS_ROOK" "csytrs_rook_" %%CSYTRS_ROOK %CSYTRS_ROOK) - ("CTBCON" "ctbcon_" %%CTBCON %CTBCON) - ("CTBRFS" "ctbrfs_" %%CTBRFS %CTBRFS) - ("CTBTRS" "ctbtrs_" %%CTBTRS %CTBTRS) - ("CTFSM" "ctfsm_" %%CTFSM %CTFSM) - ("CTFTRI" "ctftri_" %%CTFTRI %CTFTRI) - ("CTFTTP" "ctfttp_" %%CTFTTP %CTFTTP) - ("CTFTTR" "ctfttr_" %%CTFTTR %CTFTTR) - ("CTGEVC" "ctgevc_" %%CTGEVC %CTGEVC) - ("CTGEX2" "ctgex2_" %%CTGEX2 %CTGEX2) - ("CTGEXC" "ctgexc_" %%CTGEXC %CTGEXC) - ("CTGSEN" "ctgsen_" %%CTGSEN %CTGSEN) - ("CTGSJA" "ctgsja_" %%CTGSJA %CTGSJA) - ("CTGSNA" "ctgsna_" %%CTGSNA %CTGSNA) - ("CTGSY2" "ctgsy2_" %%CTGSY2 %CTGSY2) - ("CTGSYL" "ctgsyl_" %%CTGSYL %CTGSYL) - ("CTPCON" "ctpcon_" %%CTPCON %CTPCON) - ("CTPLQT" "ctplqt_" %%CTPLQT %CTPLQT) - ("CTPLQT2" "ctplqt2_" %%CTPLQT2 %CTPLQT2) - ("CTPMLQT" "ctpmlqt_" %%CTPMLQT %CTPMLQT) - ("CTPMQRT" "ctpmqrt_" %%CTPMQRT %CTPMQRT) - ("CTPQRT" "ctpqrt_" %%CTPQRT %CTPQRT) - ("CTPQRT2" "ctpqrt2_" %%CTPQRT2 %CTPQRT2) - ("CTPRFB" "ctprfb_" %%CTPRFB %CTPRFB) - ("CTPRFS" "ctprfs_" %%CTPRFS %CTPRFS) - ("CTPTRI" "ctptri_" %%CTPTRI %CTPTRI) - ("CTPTRS" "ctptrs_" %%CTPTRS %CTPTRS) - ("CTPTTF" "ctpttf_" %%CTPTTF %CTPTTF) - ("CTPTTR" "ctpttr_" %%CTPTTR %CTPTTR) - ("CTRCON" "ctrcon_" %%CTRCON %CTRCON) - ("CTREVC" "ctrevc_" %%CTREVC %CTREVC) - ("CTREVC3" "ctrevc3_" %%CTREVC3 %CTREVC3) - ("CTREXC" "ctrexc_" %%CTREXC %CTREXC) - ("CTRRFS" "ctrrfs_" %%CTRRFS %CTRRFS) - ("CTRSEN" "ctrsen_" %%CTRSEN %CTRSEN) - ("CTRSNA" "ctrsna_" %%CTRSNA %CTRSNA) - ("CTRSYL" "ctrsyl_" %%CTRSYL %CTRSYL) - ("CTRTI2" "ctrti2_" %%CTRTI2 %CTRTI2) - ("CTRTRI" "ctrtri_" %%CTRTRI %CTRTRI) - ("CTRTRS" "ctrtrs_" %%CTRTRS %CTRTRS) - ("CTRTTF" "ctrttf_" %%CTRTTF %CTRTTF) - ("CTRTTP" "ctrttp_" %%CTRTTP %CTRTTP) - ("CTZRZF" "ctzrzf_" %%CTZRZF %CTZRZF) - ("CUNBDB" "cunbdb_" %%CUNBDB %CUNBDB) - ("CUNBDB1" "cunbdb1_" %%CUNBDB1 %CUNBDB1) - ("CUNBDB2" "cunbdb2_" %%CUNBDB2 %CUNBDB2) - ("CUNBDB3" "cunbdb3_" %%CUNBDB3 %CUNBDB3) - ("CUNBDB4" "cunbdb4_" %%CUNBDB4 %CUNBDB4) - ("CUNBDB5" "cunbdb5_" %%CUNBDB5 %CUNBDB5) - ("CUNBDB6" "cunbdb6_" %%CUNBDB6 %CUNBDB6) - ("CUNCSD" "cuncsd_" %%CUNCSD %CUNCSD) - ("CUNCSD2BY1" "cuncsd2by1_" %%CUNCSD2BY1 %CUNCSD2BY1) - ("CUNG2L" "cung2l_" %%CUNG2L %CUNG2L) - ("CUNG2R" "cung2r_" %%CUNG2R %CUNG2R) - ("CUNGBR" "cungbr_" %%CUNGBR %CUNGBR) - ("CUNGHR" "cunghr_" %%CUNGHR %CUNGHR) - ("CUNGL2" "cungl2_" %%CUNGL2 %CUNGL2) - ("CUNGLQ" "cunglq_" %%CUNGLQ %CUNGLQ) - ("CUNGQL" "cungql_" %%CUNGQL %CUNGQL) - ("CUNGQR" "cungqr_" %%CUNGQR %CUNGQR) - ("CUNGR2" "cungr2_" %%CUNGR2 %CUNGR2) - ("CUNGRQ" "cungrq_" %%CUNGRQ %CUNGRQ) - ("CUNGTR" "cungtr_" %%CUNGTR %CUNGTR) - ("CUNM22" "cunm22_" %%CUNM22 %CUNM22) - ("CUNM2L" "cunm2l_" %%CUNM2L %CUNM2L) - ("CUNM2R" "cunm2r_" %%CUNM2R %CUNM2R) - ("CUNMBR" "cunmbr_" %%CUNMBR %CUNMBR) - ("CUNMHR" "cunmhr_" %%CUNMHR %CUNMHR) - ("CUNML2" "cunml2_" %%CUNML2 %CUNML2) - ("CUNMLQ" "cunmlq_" %%CUNMLQ %CUNMLQ) - ("CUNMQL" "cunmql_" %%CUNMQL %CUNMQL) - ("CUNMQR" "cunmqr_" %%CUNMQR %CUNMQR) - ("CUNMR2" "cunmr2_" %%CUNMR2 %CUNMR2) - ("CUNMR3" "cunmr3_" %%CUNMR3 %CUNMR3) - ("CUNMRQ" "cunmrq_" %%CUNMRQ %CUNMRQ) - ("CUNMRZ" "cunmrz_" %%CUNMRZ %CUNMRZ) - ("CUNMTR" "cunmtr_" %%CUNMTR %CUNMTR) - ("CUPGTR" "cupgtr_" %%CUPGTR %CUPGTR) - ("CUPMTR" "cupmtr_" %%CUPMTR %CUPMTR) - ("DBBCSD" "dbbcsd_" %%DBBCSD %DBBCSD) - ("DBDSDC" "dbdsdc_" %%DBDSDC %DBDSDC) - ("DBDSQR" "dbdsqr_" %%DBDSQR %DBDSQR) - ("DBDSVDX" "dbdsvdx_" %%DBDSVDX %DBDSVDX) - ("DCOMBSSQ" "dcombssq_" %%DCOMBSSQ %DCOMBSSQ) - ("DDISNA" "ddisna_" %%DDISNA %DDISNA))) + (COMMON-LISP:NOTINLINE %%CLANSY %CLANSY %%CLANTB %CLANTB %%CLANTP %CLANTP + %%CLANTR %CLANTR %%CLAPLL %CLAPLL %%CLAPMR %CLAPMR %%CLAPMT %CLAPMT %%CLAQGB + %CLAQGB %%CLAQGE %CLAQGE %%CLAQHB %CLAQHB %%CLAQHE %CLAQHE %%CLAQHP %CLAQHP + %%CLAQP2 %CLAQP2 %%CLAQPS %CLAQPS %%CLAQR0 %CLAQR0 %%CLAQR1 %CLAQR1 %%CLAQR2 + %CLAQR2 %%CLAQR3 %CLAQR3 %%CLAQR4 %CLAQR4 %%CLAQR5 %CLAQR5 %%CLAQSB %CLAQSB + %%CLAQSP %CLAQSP %%CLAQSY %CLAQSY %%CLAR1V %CLAR1V %%CLAR2V %CLAR2V %%CLARCM + %CLARCM %%CLARF %CLARF %%CLARFB %CLARFB %%CLARFG %CLARFG %%CLARFGP %CLARFGP + %%CLARFT %CLARFT %%CLARFX %CLARFX %%CLARFY %CLARFY %%CLARGV %CLARGV %%CLARNV + %CLARNV %%CLARRV %CLARRV %%CLARSCL2 %CLARSCL2 %%CLARTG %CLARTG %%CLARTV + %CLARTV %%CLARZ %CLARZ %%CLARZB %CLARZB %%CLARZT %CLARZT %%CLASCL %CLASCL + %%CLASCL2 %CLASCL2 %%CLASET %CLASET %%CLASR %CLASR %%CLASSQ %CLASSQ %%CLASWLQ + %CLASWLQ %%CLASWP %CLASWP %%CLASYF %CLASYF %%CLASYF_AA %CLASYF_AA %%CLASYF_RK + %CLASYF_RK %%CLASYF_ROOK %CLASYF_ROOK %%CLATBS %CLATBS %%CLATDF %CLATDF + %%CLATPS %CLATPS %%CLATRD %CLATRD %%CLATRS %CLATRS %%CLATRZ %CLATRZ %%CLATSQR + %CLATSQR %%CLAUNHR_COL_GETRFNP %CLAUNHR_COL_GETRFNP %%CLAUNHR_COL_GETRFNP2 + %CLAUNHR_COL_GETRFNP2 %%CLAUU2 %CLAUU2 %%CLAUUM %CLAUUM %%CPBCON %CPBCON + %%CPBEQU %CPBEQU %%CPBRFS %CPBRFS %%CPBSTF %CPBSTF %%CPBSV %CPBSV %%CPBSVX + %CPBSVX %%CPBTF2 %CPBTF2 %%CPBTRF %CPBTRF %%CPBTRS %CPBTRS %%CPFTRF %CPFTRF + %%CPFTRI %CPFTRI %%CPFTRS %CPFTRS %%CPOCON %CPOCON %%CPOEQU %CPOEQU %%CPOEQUB + %CPOEQUB %%CPORFS %CPORFS %%CPORFSX %CPORFSX %%CPOSV %CPOSV %%CPOSVX %CPOSVX + %%CPOSVXX %CPOSVXX %%CPOTF2 %CPOTF2 %%CPOTRF %CPOTRF %%CPOTRF2 %CPOTRF2 + %%CPOTRI %CPOTRI %%CPOTRS %CPOTRS %%CPPCON %CPPCON %%CPPEQU %CPPEQU %%CPPRFS + %CPPRFS %%CPPSV %CPPSV %%CPPSVX %CPPSVX %%CPPTRF %CPPTRF %%CPPTRI %CPPTRI + %%CPPTRS %CPPTRS %%CPSTF2 %CPSTF2 %%CPSTRF %CPSTRF %%CPTCON %CPTCON %%CPTEQR + %CPTEQR %%CPTRFS %CPTRFS %%CPTSV %CPTSV %%CPTSVX %CPTSVX %%CPTTRF %CPTTRF + %%CPTTRS %CPTTRS %%CPTTS2 %CPTTS2 %%CROT %CROT %%CSPCON %CSPCON %%CSPMV + %CSPMV %%CSPR %CSPR %%CSPRFS %CSPRFS %%CSPSV %CSPSV %%CSPSVX %CSPSVX %%CSPTRF + %CSPTRF %%CSPTRI %CSPTRI %%CSPTRS %CSPTRS %%CSRSCL %CSRSCL %%CSTEDC %CSTEDC + %%CSTEGR %CSTEGR %%CSTEIN %CSTEIN %%CSTEMR %CSTEMR %%CSTEQR %CSTEQR %%CSYCON + %CSYCON %%CSYCON_3 %CSYCON_3 %%CSYCON_ROOK %CSYCON_ROOK %%CSYCONV %CSYCONV + %%CSYCONVF %CSYCONVF %%CSYCONVF_ROOK %CSYCONVF_ROOK %%CSYEQUB %CSYEQUB + %%CSYMV %CSYMV %%CSYR %CSYR %%CSYRFS %CSYRFS %%CSYRFSX %CSYRFSX %%CSYSV + %CSYSV %%CSYSV_AA %CSYSV_AA %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE %%CSYSV_RK + %CSYSV_RK %%CSYSV_ROOK %CSYSV_ROOK %%CSYSVX %CSYSVX %%CSYSVXX %CSYSVXX + %%CSYSWAPR %CSYSWAPR %%CSYTF2 %CSYTF2 %%CSYTF2_RK %CSYTF2_RK %%CSYTF2_ROOK + %CSYTF2_ROOK %%CSYTRF %CSYTRF %%CSYTRF_AA %CSYTRF_AA %%CSYTRF_AA_2STAGE + %CSYTRF_AA_2STAGE %%CSYTRF_RK %CSYTRF_RK %%CSYTRF_ROOK %CSYTRF_ROOK %%CSYTRI + %CSYTRI %%CSYTRI2 %CSYTRI2 %%CSYTRI2X %CSYTRI2X %%CSYTRI_3 %CSYTRI_3 + %%CSYTRI_3X %CSYTRI_3X %%CSYTRI_ROOK %CSYTRI_ROOK %%CSYTRS %CSYTRS %%CSYTRS2 + %CSYTRS2 %%CSYTRS_3 %CSYTRS_3 %%CSYTRS_AA %CSYTRS_AA %%CSYTRS_AA_2STAGE + %CSYTRS_AA_2STAGE %%CSYTRS_ROOK %CSYTRS_ROOK %%CTBCON %CTBCON %%CTBRFS + %CTBRFS %%CTBTRS %CTBTRS %%CTFSM %CTFSM %%CTFTRI %CTFTRI %%CTFTTP %CTFTTP + %%CTFTTR %CTFTTR %%CTGEVC %CTGEVC %%CTGEX2 %CTGEX2 %%CTGEXC %CTGEXC %%CTGSEN + %CTGSEN %%CTGSJA %CTGSJA %%CTGSNA %CTGSNA %%CTGSY2 %CTGSY2 %%CTGSYL %CTGSYL + %%CTPCON %CTPCON %%CTPLQT %CTPLQT %%CTPLQT2 %CTPLQT2 %%CTPMLQT %CTPMLQT + %%CTPMQRT %CTPMQRT %%CTPQRT %CTPQRT %%CTPQRT2 %CTPQRT2 %%CTPRFB %CTPRFB + %%CTPRFS %CTPRFS %%CTPTRI %CTPTRI %%CTPTRS %CTPTRS %%CTPTTF %CTPTTF %%CTPTTR + %CTPTTR %%CTRCON %CTRCON %%CTREVC %CTREVC %%CTREVC3 %CTREVC3 %%CTREXC %CTREXC + %%CTRRFS %CTRRFS %%CTRSEN %CTRSEN %%CTRSNA %CTRSNA %%CTRSYL %CTRSYL %%CTRTI2 + %CTRTI2 %%CTRTRI %CTRTRI %%CTRTRS %CTRTRS %%CTRTTF %CTRTTF %%CTRTTP %CTRTTP + %%CTZRZF %CTZRZF %%CUNBDB %CUNBDB %%CUNBDB1 %CUNBDB1 %%CUNBDB2 %CUNBDB2 + %%CUNBDB3 %CUNBDB3 %%CUNBDB4 %CUNBDB4 %%CUNBDB5 %CUNBDB5 %%CUNBDB6 %CUNBDB6 + %%CUNCSD %CUNCSD %%CUNCSD2BY1 %CUNCSD2BY1 %%CUNG2L %CUNG2L %%CUNG2R %CUNG2R + %%CUNGBR %CUNGBR %%CUNGHR %CUNGHR %%CUNGL2 %CUNGL2 %%CUNGLQ %CUNGLQ %%CUNGQL + %CUNGQL %%CUNGQR %CUNGQR %%CUNGR2 %CUNGR2 %%CUNGRQ %CUNGRQ %%CUNGTR %CUNGTR + %%CUNGTSQR %CUNGTSQR %%CUNHR_COL %CUNHR_COL %%CUNM22 %CUNM22 %%CUNM2L %CUNM2L + %%CUNM2R %CUNM2R %%CUNMBR %CUNMBR %%CUNMHR %CUNMHR %%CUNML2 %CUNML2 %%CUNMLQ + %CUNMLQ %%CUNMQL %CUNMQL %%CUNMQR %CUNMQR %%CUNMR2 %CUNMR2 %%CUNMR3 %CUNMR3 + %%CUNMRQ %CUNMRQ %%CUNMRZ %CUNMRZ %%CUNMTR %CUNMTR %%CUPGTR %CUPGTR %%CUPMTR + %CUPMTR %%DBBCSD %DBBCSD %%DBDSDC %DBDSDC %%DBDSQR %DBDSQR %%DBDSVDX %DBDSVDX + %%DCOMBSSQ %DCOMBSSQ %%DDISNA %DDISNA)) + +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK + '(("CLANSY" "clansy_" %%CLANSY %CLANSY) + ("CLANTB" "clantb_" %%CLANTB %CLANTB) + ("CLANTP" "clantp_" %%CLANTP %CLANTP) + ("CLANTR" "clantr_" %%CLANTR %CLANTR) + ("CLAPLL" "clapll_" %%CLAPLL %CLAPLL) + ("CLAPMR" "clapmr_" %%CLAPMR %CLAPMR) + ("CLAPMT" "clapmt_" %%CLAPMT %CLAPMT) + ("CLAQGB" "claqgb_" %%CLAQGB %CLAQGB) + ("CLAQGE" "claqge_" %%CLAQGE %CLAQGE) + ("CLAQHB" "claqhb_" %%CLAQHB %CLAQHB) + ("CLAQHE" "claqhe_" %%CLAQHE %CLAQHE) + ("CLAQHP" "claqhp_" %%CLAQHP %CLAQHP) + ("CLAQP2" "claqp2_" %%CLAQP2 %CLAQP2) + ("CLAQPS" "claqps_" %%CLAQPS %CLAQPS) + ("CLAQR0" "claqr0_" %%CLAQR0 %CLAQR0) + ("CLAQR1" "claqr1_" %%CLAQR1 %CLAQR1) + ("CLAQR2" "claqr2_" %%CLAQR2 %CLAQR2) + ("CLAQR3" "claqr3_" %%CLAQR3 %CLAQR3) + ("CLAQR4" "claqr4_" %%CLAQR4 %CLAQR4) + ("CLAQR5" "claqr5_" %%CLAQR5 %CLAQR5) + ("CLAQSB" "claqsb_" %%CLAQSB %CLAQSB) + ("CLAQSP" "claqsp_" %%CLAQSP %CLAQSP) + ("CLAQSY" "claqsy_" %%CLAQSY %CLAQSY) + ("CLAR1V" "clar1v_" %%CLAR1V %CLAR1V) + ("CLAR2V" "clar2v_" %%CLAR2V %CLAR2V) + ("CLARCM" "clarcm_" %%CLARCM %CLARCM) + ("CLARF" "clarf_" %%CLARF %CLARF) + ("CLARFB" "clarfb_" %%CLARFB %CLARFB) + ("CLARFG" "clarfg_" %%CLARFG %CLARFG) + ("CLARFGP" "clarfgp_" %%CLARFGP + %CLARFGP) + ("CLARFT" "clarft_" %%CLARFT %CLARFT) + ("CLARFX" "clarfx_" %%CLARFX %CLARFX) + ("CLARFY" "clarfy_" %%CLARFY %CLARFY) + ("CLARGV" "clargv_" %%CLARGV %CLARGV) + ("CLARNV" "clarnv_" %%CLARNV %CLARNV) + ("CLARRV" "clarrv_" %%CLARRV %CLARRV) + ("CLARSCL2" "clarscl2_" %%CLARSCL2 + %CLARSCL2) + ("CLARTG" "clartg_" %%CLARTG %CLARTG) + ("CLARTV" "clartv_" %%CLARTV %CLARTV) + ("CLARZ" "clarz_" %%CLARZ %CLARZ) + ("CLARZB" "clarzb_" %%CLARZB %CLARZB) + ("CLARZT" "clarzt_" %%CLARZT %CLARZT) + ("CLASCL" "clascl_" %%CLASCL %CLASCL) + ("CLASCL2" "clascl2_" %%CLASCL2 + %CLASCL2) + ("CLASET" "claset_" %%CLASET %CLASET) + ("CLASR" "clasr_" %%CLASR %CLASR) + ("CLASSQ" "classq_" %%CLASSQ %CLASSQ) + ("CLASWLQ" "claswlq_" %%CLASWLQ + %CLASWLQ) + ("CLASWP" "claswp_" %%CLASWP %CLASWP) + ("CLASYF" "clasyf_" %%CLASYF %CLASYF) + ("CLASYF_AA" "clasyf_aa_" %%CLASYF_AA + %CLASYF_AA) + ("CLASYF_RK" "clasyf_rk_" %%CLASYF_RK + %CLASYF_RK) + ("CLASYF_ROOK" "clasyf_rook_" + %%CLASYF_ROOK %CLASYF_ROOK) + ("CLATBS" "clatbs_" %%CLATBS %CLATBS) + ("CLATDF" "clatdf_" %%CLATDF %CLATDF) + ("CLATPS" "clatps_" %%CLATPS %CLATPS) + ("CLATRD" "clatrd_" %%CLATRD %CLATRD) + ("CLATRS" "clatrs_" %%CLATRS %CLATRS) + ("CLATRZ" "clatrz_" %%CLATRZ %CLATRZ) + ("CLATSQR" "clatsqr_" %%CLATSQR + %CLATSQR) + ("CLAUNHR_COL_GETRFNP" + "claunhr_col_getrfnp_" + %%CLAUNHR_COL_GETRFNP + %CLAUNHR_COL_GETRFNP) + ("CLAUNHR_COL_GETRFNP2" + "claunhr_col_getrfnp2_" + %%CLAUNHR_COL_GETRFNP2 + %CLAUNHR_COL_GETRFNP2) + ("CLAUU2" "clauu2_" %%CLAUU2 %CLAUU2) + ("CLAUUM" "clauum_" %%CLAUUM %CLAUUM) + ("CPBCON" "cpbcon_" %%CPBCON %CPBCON) + ("CPBEQU" "cpbequ_" %%CPBEQU %CPBEQU) + ("CPBRFS" "cpbrfs_" %%CPBRFS %CPBRFS) + ("CPBSTF" "cpbstf_" %%CPBSTF %CPBSTF) + ("CPBSV" "cpbsv_" %%CPBSV %CPBSV) + ("CPBSVX" "cpbsvx_" %%CPBSVX %CPBSVX) + ("CPBTF2" "cpbtf2_" %%CPBTF2 %CPBTF2) + ("CPBTRF" "cpbtrf_" %%CPBTRF %CPBTRF) + ("CPBTRS" "cpbtrs_" %%CPBTRS %CPBTRS) + ("CPFTRF" "cpftrf_" %%CPFTRF %CPFTRF) + ("CPFTRI" "cpftri_" %%CPFTRI %CPFTRI) + ("CPFTRS" "cpftrs_" %%CPFTRS %CPFTRS) + ("CPOCON" "cpocon_" %%CPOCON %CPOCON) + ("CPOEQU" "cpoequ_" %%CPOEQU %CPOEQU) + ("CPOEQUB" "cpoequb_" %%CPOEQUB + %CPOEQUB) + ("CPORFS" "cporfs_" %%CPORFS %CPORFS) + ("CPORFSX" "cporfsx_" %%CPORFSX + %CPORFSX) + ("CPOSV" "cposv_" %%CPOSV %CPOSV) + ("CPOSVX" "cposvx_" %%CPOSVX %CPOSVX) + ("CPOSVXX" "cposvxx_" %%CPOSVXX + %CPOSVXX) + ("CPOTF2" "cpotf2_" %%CPOTF2 %CPOTF2) + ("CPOTRF" "cpotrf_" %%CPOTRF %CPOTRF) + ("CPOTRF2" "cpotrf2_" %%CPOTRF2 + %CPOTRF2) + ("CPOTRI" "cpotri_" %%CPOTRI %CPOTRI) + ("CPOTRS" "cpotrs_" %%CPOTRS %CPOTRS) + ("CPPCON" "cppcon_" %%CPPCON %CPPCON) + ("CPPEQU" "cppequ_" %%CPPEQU %CPPEQU) + ("CPPRFS" "cpprfs_" %%CPPRFS %CPPRFS) + ("CPPSV" "cppsv_" %%CPPSV %CPPSV) + ("CPPSVX" "cppsvx_" %%CPPSVX %CPPSVX) + ("CPPTRF" "cpptrf_" %%CPPTRF %CPPTRF) + ("CPPTRI" "cpptri_" %%CPPTRI %CPPTRI) + ("CPPTRS" "cpptrs_" %%CPPTRS %CPPTRS) + ("CPSTF2" "cpstf2_" %%CPSTF2 %CPSTF2) + ("CPSTRF" "cpstrf_" %%CPSTRF %CPSTRF) + ("CPTCON" "cptcon_" %%CPTCON %CPTCON) + ("CPTEQR" "cpteqr_" %%CPTEQR %CPTEQR) + ("CPTRFS" "cptrfs_" %%CPTRFS %CPTRFS) + ("CPTSV" "cptsv_" %%CPTSV %CPTSV) + ("CPTSVX" "cptsvx_" %%CPTSVX %CPTSVX) + ("CPTTRF" "cpttrf_" %%CPTTRF %CPTTRF) + ("CPTTRS" "cpttrs_" %%CPTTRS %CPTTRS) + ("CPTTS2" "cptts2_" %%CPTTS2 %CPTTS2) + ("CROT" "crot_" %%CROT %CROT) + ("CSPCON" "cspcon_" %%CSPCON %CSPCON) + ("CSPMV" "cspmv_" %%CSPMV %CSPMV) + ("CSPR" "cspr_" %%CSPR %CSPR) + ("CSPRFS" "csprfs_" %%CSPRFS %CSPRFS) + ("CSPSV" "cspsv_" %%CSPSV %CSPSV) + ("CSPSVX" "cspsvx_" %%CSPSVX %CSPSVX) + ("CSPTRF" "csptrf_" %%CSPTRF %CSPTRF) + ("CSPTRI" "csptri_" %%CSPTRI %CSPTRI) + ("CSPTRS" "csptrs_" %%CSPTRS %CSPTRS) + ("CSRSCL" "csrscl_" %%CSRSCL %CSRSCL) + ("CSTEDC" "cstedc_" %%CSTEDC %CSTEDC) + ("CSTEGR" "cstegr_" %%CSTEGR %CSTEGR) + ("CSTEIN" "cstein_" %%CSTEIN %CSTEIN) + ("CSTEMR" "cstemr_" %%CSTEMR %CSTEMR) + ("CSTEQR" "csteqr_" %%CSTEQR %CSTEQR) + ("CSYCON" "csycon_" %%CSYCON %CSYCON) + ("CSYCON_3" "csycon_3_" %%CSYCON_3 + %CSYCON_3) + ("CSYCON_ROOK" "csycon_rook_" + %%CSYCON_ROOK %CSYCON_ROOK) + ("CSYCONV" "csyconv_" %%CSYCONV + %CSYCONV) + ("CSYCONVF" "csyconvf_" %%CSYCONVF + %CSYCONVF) + ("CSYCONVF_ROOK" "csyconvf_rook_" + %%CSYCONVF_ROOK %CSYCONVF_ROOK) + ("CSYEQUB" "csyequb_" %%CSYEQUB + %CSYEQUB) + ("CSYMV" "csymv_" %%CSYMV %CSYMV) + ("CSYR" "csyr_" %%CSYR %CSYR) + ("CSYRFS" "csyrfs_" %%CSYRFS %CSYRFS) + ("CSYRFSX" "csyrfsx_" %%CSYRFSX + %CSYRFSX) + ("CSYSV" "csysv_" %%CSYSV %CSYSV) + ("CSYSV_AA" "csysv_aa_" %%CSYSV_AA + %CSYSV_AA) + ("CSYSV_AA_2STAGE" "csysv_aa_2stage_" + %%CSYSV_AA_2STAGE %CSYSV_AA_2STAGE) + ("CSYSV_RK" "csysv_rk_" %%CSYSV_RK + %CSYSV_RK) + ("CSYSV_ROOK" "csysv_rook_" + %%CSYSV_ROOK %CSYSV_ROOK) + ("CSYSVX" "csysvx_" %%CSYSVX %CSYSVX) + ("CSYSVXX" "csysvxx_" %%CSYSVXX + %CSYSVXX) + ("CSYSWAPR" "csyswapr_" %%CSYSWAPR + %CSYSWAPR) + ("CSYTF2" "csytf2_" %%CSYTF2 %CSYTF2) + ("CSYTF2_RK" "csytf2_rk_" %%CSYTF2_RK + %CSYTF2_RK) + ("CSYTF2_ROOK" "csytf2_rook_" + %%CSYTF2_ROOK %CSYTF2_ROOK) + ("CSYTRF" "csytrf_" %%CSYTRF %CSYTRF) + ("CSYTRF_AA" "csytrf_aa_" %%CSYTRF_AA + %CSYTRF_AA) + ("CSYTRF_AA_2STAGE" + "csytrf_aa_2stage_" + %%CSYTRF_AA_2STAGE + %CSYTRF_AA_2STAGE) + ("CSYTRF_RK" "csytrf_rk_" %%CSYTRF_RK + %CSYTRF_RK) + ("CSYTRF_ROOK" "csytrf_rook_" + %%CSYTRF_ROOK %CSYTRF_ROOK) + ("CSYTRI" "csytri_" %%CSYTRI %CSYTRI) + ("CSYTRI2" "csytri2_" %%CSYTRI2 + %CSYTRI2) + ("CSYTRI2X" "csytri2x_" %%CSYTRI2X + %CSYTRI2X) + ("CSYTRI_3" "csytri_3_" %%CSYTRI_3 + %CSYTRI_3) + ("CSYTRI_3X" "csytri_3x_" %%CSYTRI_3X + %CSYTRI_3X) + ("CSYTRI_ROOK" "csytri_rook_" + %%CSYTRI_ROOK %CSYTRI_ROOK) + ("CSYTRS" "csytrs_" %%CSYTRS %CSYTRS) + ("CSYTRS2" "csytrs2_" %%CSYTRS2 + %CSYTRS2) + ("CSYTRS_3" "csytrs_3_" %%CSYTRS_3 + %CSYTRS_3) + ("CSYTRS_AA" "csytrs_aa_" %%CSYTRS_AA + %CSYTRS_AA) + ("CSYTRS_AA_2STAGE" + "csytrs_aa_2stage_" + %%CSYTRS_AA_2STAGE + %CSYTRS_AA_2STAGE) + ("CSYTRS_ROOK" "csytrs_rook_" + %%CSYTRS_ROOK %CSYTRS_ROOK) + ("CTBCON" "ctbcon_" %%CTBCON %CTBCON) + ("CTBRFS" "ctbrfs_" %%CTBRFS %CTBRFS) + ("CTBTRS" "ctbtrs_" %%CTBTRS %CTBTRS) + ("CTFSM" "ctfsm_" %%CTFSM %CTFSM) + ("CTFTRI" "ctftri_" %%CTFTRI %CTFTRI) + ("CTFTTP" "ctfttp_" %%CTFTTP %CTFTTP) + ("CTFTTR" "ctfttr_" %%CTFTTR %CTFTTR) + ("CTGEVC" "ctgevc_" %%CTGEVC %CTGEVC) + ("CTGEX2" "ctgex2_" %%CTGEX2 %CTGEX2) + ("CTGEXC" "ctgexc_" %%CTGEXC %CTGEXC) + ("CTGSEN" "ctgsen_" %%CTGSEN %CTGSEN) + ("CTGSJA" "ctgsja_" %%CTGSJA %CTGSJA) + ("CTGSNA" "ctgsna_" %%CTGSNA %CTGSNA) + ("CTGSY2" "ctgsy2_" %%CTGSY2 %CTGSY2) + ("CTGSYL" "ctgsyl_" %%CTGSYL %CTGSYL) + ("CTPCON" "ctpcon_" %%CTPCON %CTPCON) + ("CTPLQT" "ctplqt_" %%CTPLQT %CTPLQT) + ("CTPLQT2" "ctplqt2_" %%CTPLQT2 + %CTPLQT2) + ("CTPMLQT" "ctpmlqt_" %%CTPMLQT + %CTPMLQT) + ("CTPMQRT" "ctpmqrt_" %%CTPMQRT + %CTPMQRT) + ("CTPQRT" "ctpqrt_" %%CTPQRT %CTPQRT) + ("CTPQRT2" "ctpqrt2_" %%CTPQRT2 + %CTPQRT2) + ("CTPRFB" "ctprfb_" %%CTPRFB %CTPRFB) + ("CTPRFS" "ctprfs_" %%CTPRFS %CTPRFS) + ("CTPTRI" "ctptri_" %%CTPTRI %CTPTRI) + ("CTPTRS" "ctptrs_" %%CTPTRS %CTPTRS) + ("CTPTTF" "ctpttf_" %%CTPTTF %CTPTTF) + ("CTPTTR" "ctpttr_" %%CTPTTR %CTPTTR) + ("CTRCON" "ctrcon_" %%CTRCON %CTRCON) + ("CTREVC" "ctrevc_" %%CTREVC %CTREVC) + ("CTREVC3" "ctrevc3_" %%CTREVC3 + %CTREVC3) + ("CTREXC" "ctrexc_" %%CTREXC %CTREXC) + ("CTRRFS" "ctrrfs_" %%CTRRFS %CTRRFS) + ("CTRSEN" "ctrsen_" %%CTRSEN %CTRSEN) + ("CTRSNA" "ctrsna_" %%CTRSNA %CTRSNA) + ("CTRSYL" "ctrsyl_" %%CTRSYL %CTRSYL) + ("CTRTI2" "ctrti2_" %%CTRTI2 %CTRTI2) + ("CTRTRI" "ctrtri_" %%CTRTRI %CTRTRI) + ("CTRTRS" "ctrtrs_" %%CTRTRS %CTRTRS) + ("CTRTTF" "ctrttf_" %%CTRTTF %CTRTTF) + ("CTRTTP" "ctrttp_" %%CTRTTP %CTRTTP) + ("CTZRZF" "ctzrzf_" %%CTZRZF %CTZRZF) + ("CUNBDB" "cunbdb_" %%CUNBDB %CUNBDB) + ("CUNBDB1" "cunbdb1_" %%CUNBDB1 + %CUNBDB1) + ("CUNBDB2" "cunbdb2_" %%CUNBDB2 + %CUNBDB2) + ("CUNBDB3" "cunbdb3_" %%CUNBDB3 + %CUNBDB3) + ("CUNBDB4" "cunbdb4_" %%CUNBDB4 + %CUNBDB4) + ("CUNBDB5" "cunbdb5_" %%CUNBDB5 + %CUNBDB5) + ("CUNBDB6" "cunbdb6_" %%CUNBDB6 + %CUNBDB6) + ("CUNCSD" "cuncsd_" %%CUNCSD %CUNCSD) + ("CUNCSD2BY1" "cuncsd2by1_" + %%CUNCSD2BY1 %CUNCSD2BY1) + ("CUNG2L" "cung2l_" %%CUNG2L %CUNG2L) + ("CUNG2R" "cung2r_" %%CUNG2R %CUNG2R) + ("CUNGBR" "cungbr_" %%CUNGBR %CUNGBR) + ("CUNGHR" "cunghr_" %%CUNGHR %CUNGHR) + ("CUNGL2" "cungl2_" %%CUNGL2 %CUNGL2) + ("CUNGLQ" "cunglq_" %%CUNGLQ %CUNGLQ) + ("CUNGQL" "cungql_" %%CUNGQL %CUNGQL) + ("CUNGQR" "cungqr_" %%CUNGQR %CUNGQR) + ("CUNGR2" "cungr2_" %%CUNGR2 %CUNGR2) + ("CUNGRQ" "cungrq_" %%CUNGRQ %CUNGRQ) + ("CUNGTR" "cungtr_" %%CUNGTR %CUNGTR) + ("CUNGTSQR" "cungtsqr_" %%CUNGTSQR + %CUNGTSQR) + ("CUNHR_COL" "cunhr_col_" %%CUNHR_COL + %CUNHR_COL) + ("CUNM22" "cunm22_" %%CUNM22 %CUNM22) + ("CUNM2L" "cunm2l_" %%CUNM2L %CUNM2L) + ("CUNM2R" "cunm2r_" %%CUNM2R %CUNM2R) + ("CUNMBR" "cunmbr_" %%CUNMBR %CUNMBR) + ("CUNMHR" "cunmhr_" %%CUNMHR %CUNMHR) + ("CUNML2" "cunml2_" %%CUNML2 %CUNML2) + ("CUNMLQ" "cunmlq_" %%CUNMLQ %CUNMLQ) + ("CUNMQL" "cunmql_" %%CUNMQL %CUNMQL) + ("CUNMQR" "cunmqr_" %%CUNMQR %CUNMQR) + ("CUNMR2" "cunmr2_" %%CUNMR2 %CUNMR2) + ("CUNMR3" "cunmr3_" %%CUNMR3 %CUNMR3) + ("CUNMRQ" "cunmrq_" %%CUNMRQ %CUNMRQ) + ("CUNMRZ" "cunmrz_" %%CUNMRZ %CUNMRZ) + ("CUNMTR" "cunmtr_" %%CUNMTR %CUNMTR) + ("CUPGTR" "cupgtr_" %%CUPGTR %CUPGTR) + ("CUPMTR" "cupmtr_" %%CUPMTR %CUPMTR) + ("DBBCSD" "dbbcsd_" %%DBBCSD %DBBCSD) + ("DBDSDC" "dbdsdc_" %%DBDSDC %DBDSDC) + ("DBDSQR" "dbdsqr_" %%DBDSQR %DBDSQR) + ("DBDSVDX" "dbdsvdx_" %%DBDSVDX + %DBDSVDX) + ("DCOMBSSQ" "dcombssq_" %%DCOMBSSQ + %DCOMBSSQ) + ("DDISNA" "ddisna_" %%DDISNA + %DDISNA))) (COMMON-LISP:EXPORT - '(%CLANSB %CLANSP %CLANSY %CLANTB %CLANTP %CLANTR %CLAPLL %CLAPMR %CLAPMT - %CLAQGB %CLAQGE %CLAQHB %CLAQHE %CLAQHP %CLAQP2 %CLAQPS %CLAQR0 - %CLAQR1 %CLAQR2 %CLAQR3 %CLAQR4 %CLAQR5 %CLAQSB %CLAQSP %CLAQSY - %CLAR1V %CLAR2V %CLARCM %CLARF %CLARFB %CLARFG %CLARFGP %CLARFT - %CLARFX %CLARFY %CLARGV %CLARNV %CLARRV %CLARSCL2 %CLARTG %CLARTV - %CLARZ %CLARZB %CLARZT %CLASCL %CLASCL2 %CLASET %CLASR %CLASSQ - %CLASWLQ %CLASWP %CLASYF %CLASYF_AA %CLASYF_RK %CLASYF_ROOK %CLATBS - %CLATDF %CLATPS %CLATRD %CLATRS %CLATRZ %CLATSQR %CLAUU2 %CLAUUM - %CPBCON %CPBEQU %CPBRFS %CPBSTF %CPBSV %CPBSVX %CPBTF2 %CPBTRF - %CPBTRS %CPFTRF %CPFTRI %CPFTRS %CPOCON %CPOEQU %CPOEQUB %CPORFS - %CPORFSX %CPOSV %CPOSVX %CPOSVXX %CPOTF2 %CPOTRF %CPOTRF2 %CPOTRI - %CPOTRS %CPPCON %CPPEQU %CPPRFS %CPPSV %CPPSVX %CPPTRF %CPPTRI - %CPPTRS %CPSTF2 %CPSTRF %CPTCON %CPTEQR %CPTRFS %CPTSV %CPTSVX - %CPTTRF %CPTTRS %CPTTS2 %CROT %CSPCON %CSPMV %CSPR %CSPRFS %CSPSV - %CSPSVX %CSPTRF %CSPTRI %CSPTRS %CSRSCL %CSTEDC %CSTEGR %CSTEIN - %CSTEMR %CSTEQR %CSYCON %CSYCON_3 %CSYCON_ROOK %CSYCONV %CSYCONVF - %CSYCONVF_ROOK %CSYEQUB %CSYMV %CSYR %CSYRFS %CSYRFSX %CSYSV - %CSYSV_AA %CSYSV_AA_2STAGE %CSYSV_RK %CSYSV_ROOK %CSYSVX %CSYSVXX - %CSYSWAPR %CSYTF2 %CSYTF2_RK %CSYTF2_ROOK %CSYTRF %CSYTRF_AA - %CSYTRF_AA_2STAGE %CSYTRF_RK %CSYTRF_ROOK %CSYTRI %CSYTRI2 %CSYTRI2X - %CSYTRI_3 %CSYTRI_3X %CSYTRI_ROOK %CSYTRS %CSYTRS2 %CSYTRS_3 - %CSYTRS_AA %CSYTRS_AA_2STAGE %CSYTRS_ROOK %CTBCON %CTBRFS %CTBTRS - %CTFSM %CTFTRI %CTFTTP %CTFTTR %CTGEVC %CTGEX2 %CTGEXC %CTGSEN - %CTGSJA %CTGSNA %CTGSY2 %CTGSYL %CTPCON %CTPLQT %CTPLQT2 %CTPMLQT - %CTPMQRT %CTPQRT %CTPQRT2 %CTPRFB %CTPRFS %CTPTRI %CTPTRS %CTPTTF - %CTPTTR %CTRCON %CTREVC %CTREVC3 %CTREXC %CTRRFS %CTRSEN %CTRSNA - %CTRSYL %CTRTI2 %CTRTRI %CTRTRS %CTRTTF %CTRTTP %CTZRZF %CUNBDB - %CUNBDB1 %CUNBDB2 %CUNBDB3 %CUNBDB4 %CUNBDB5 %CUNBDB6 %CUNCSD - %CUNCSD2BY1 %CUNG2L %CUNG2R %CUNGBR %CUNGHR %CUNGL2 %CUNGLQ %CUNGQL - %CUNGQR %CUNGR2 %CUNGRQ %CUNGTR %CUNM22 %CUNM2L %CUNM2R %CUNMBR - %CUNMHR %CUNML2 %CUNMLQ %CUNMQL %CUNMQR %CUNMR2 %CUNMR3 %CUNMRQ - %CUNMRZ %CUNMTR %CUPGTR %CUPMTR %DBBCSD %DBDSDC %DBDSQR %DBDSVDX - %DCOMBSSQ %DDISNA) + '(%CLANSY %CLANTB %CLANTP %CLANTR %CLAPLL %CLAPMR %CLAPMT %CLAQGB %CLAQGE + %CLAQHB %CLAQHE %CLAQHP %CLAQP2 %CLAQPS %CLAQR0 %CLAQR1 %CLAQR2 %CLAQR3 + %CLAQR4 %CLAQR5 %CLAQSB %CLAQSP %CLAQSY %CLAR1V %CLAR2V %CLARCM %CLARF + %CLARFB %CLARFG %CLARFGP %CLARFT %CLARFX %CLARFY %CLARGV %CLARNV %CLARRV + %CLARSCL2 %CLARTG %CLARTV %CLARZ %CLARZB %CLARZT %CLASCL %CLASCL2 %CLASET + %CLASR %CLASSQ %CLASWLQ %CLASWP %CLASYF %CLASYF_AA %CLASYF_RK %CLASYF_ROOK + %CLATBS %CLATDF %CLATPS %CLATRD %CLATRS %CLATRZ %CLATSQR + %CLAUNHR_COL_GETRFNP %CLAUNHR_COL_GETRFNP2 %CLAUU2 %CLAUUM %CPBCON %CPBEQU + %CPBRFS %CPBSTF %CPBSV %CPBSVX %CPBTF2 %CPBTRF %CPBTRS %CPFTRF %CPFTRI + %CPFTRS %CPOCON %CPOEQU %CPOEQUB %CPORFS %CPORFSX %CPOSV %CPOSVX %CPOSVXX + %CPOTF2 %CPOTRF %CPOTRF2 %CPOTRI %CPOTRS %CPPCON %CPPEQU %CPPRFS %CPPSV + %CPPSVX %CPPTRF %CPPTRI %CPPTRS %CPSTF2 %CPSTRF %CPTCON %CPTEQR %CPTRFS + %CPTSV %CPTSVX %CPTTRF %CPTTRS %CPTTS2 %CROT %CSPCON %CSPMV %CSPR %CSPRFS + %CSPSV %CSPSVX %CSPTRF %CSPTRI %CSPTRS %CSRSCL %CSTEDC %CSTEGR %CSTEIN + %CSTEMR %CSTEQR %CSYCON %CSYCON_3 %CSYCON_ROOK %CSYCONV %CSYCONVF + %CSYCONVF_ROOK %CSYEQUB %CSYMV %CSYR %CSYRFS %CSYRFSX %CSYSV %CSYSV_AA + %CSYSV_AA_2STAGE %CSYSV_RK %CSYSV_ROOK %CSYSVX %CSYSVXX %CSYSWAPR %CSYTF2 + %CSYTF2_RK %CSYTF2_ROOK %CSYTRF %CSYTRF_AA %CSYTRF_AA_2STAGE %CSYTRF_RK + %CSYTRF_ROOK %CSYTRI %CSYTRI2 %CSYTRI2X %CSYTRI_3 %CSYTRI_3X %CSYTRI_ROOK + %CSYTRS %CSYTRS2 %CSYTRS_3 %CSYTRS_AA %CSYTRS_AA_2STAGE %CSYTRS_ROOK %CTBCON + %CTBRFS %CTBTRS %CTFSM %CTFTRI %CTFTTP %CTFTTR %CTGEVC %CTGEX2 %CTGEXC + %CTGSEN %CTGSJA %CTGSNA %CTGSY2 %CTGSYL %CTPCON %CTPLQT %CTPLQT2 %CTPMLQT + %CTPMQRT %CTPQRT %CTPQRT2 %CTPRFB %CTPRFS %CTPTRI %CTPTRS %CTPTTF %CTPTTR + %CTRCON %CTREVC %CTREVC3 %CTREXC %CTRRFS %CTRSEN %CTRSNA %CTRSYL %CTRTI2 + %CTRTRI %CTRTRS %CTRTTF %CTRTTP %CTZRZF %CUNBDB %CUNBDB1 %CUNBDB2 %CUNBDB3 + %CUNBDB4 %CUNBDB5 %CUNBDB6 %CUNCSD %CUNCSD2BY1 %CUNG2L %CUNG2R %CUNGBR + %CUNGHR %CUNGL2 %CUNGLQ %CUNGQL %CUNGQR %CUNGR2 %CUNGRQ %CUNGTR %CUNGTSQR + %CUNHR_COL %CUNM22 %CUNM2L %CUNM2R %CUNMBR %CUNMHR %CUNML2 %CUNMLQ %CUNMQL + %CUNMQR %CUNMR2 %CUNMR3 %CUNMRQ %CUNMRZ %CUNMTR %CUPGTR %CUPMTR %DBBCSD + %DBDSDC %DBDSQR %DBDSVDX %DCOMBSSQ %DDISNA) '#:MAGICL.LAPACK-CFFI) ;;; End of file. diff --git a/src/bindings/lapack02-cffi.lisp b/src/bindings/lapack02-cffi.lisp index 6692e9c2..683c85ce 100644 --- a/src/bindings/lapack02-cffi.lisp +++ b/src/bindings/lapack02-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 5/21/2019 at 13:37:09 (UTC+1). +;;;; Generated on 3/22/2021 at 17:54:19 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -49,26 +49,28 @@ %%DLAMSWLQ %DLAMSWLQ %%DLAMTSQR %DLAMTSQR %%DLANEG %DLANEG %%DLANGB %DLANGB %%DLANGE %DLANGE %%DLANGT %DLANGT %%DLANHS %DLANHS %%DLANSB %DLANSB %%DLANSF %DLANSF %%DLANSP %DLANSP %%DLANST %DLANST %%DLANSY %DLANSY %%DLANTB %DLANTB - %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAPLL %DLAPLL %%DLAPMR - %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3 %%DLAQGB %DLAQGB - %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0 %DLAQR0 %%DLAQR1 - %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4 %%DLAQR5 %DLAQR5 - %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR %DLAQTR %%DLAR1V - %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB %%DLARFG %DLARFG - %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX %%DLARFY %DLARFY - %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB %DLARRB %%DLARRC - %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF %%DLARRJ %DLARRJ - %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV %%DLARSCL2 %DLARSCL2 - %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS %%DLARTV %DLARTV - %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT %DLARZT %%DLAS2 - %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0 %%DLASD1 %DLASD1 - %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5 %DLASD5 %%DLASD6 - %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA %%DLASDQ %DLASDQ - %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2 %DLASQ2 %%DLASQ3 - %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6 %%DLASR %DLASR - %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ %DLASWLQ)) - -(CFFI:DEFCFUN ("dgbbrd_" %%DGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAORHR_COL_GETRFNP + %DLAORHR_COL_GETRFNP %%DLAORHR_COL_GETRFNP2 %DLAORHR_COL_GETRFNP2 %%DLAPLL + %DLAPLL %%DLAPMR %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3 + %%DLAQGB %DLAQGB %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0 + %DLAQR0 %%DLAQR1 %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4 + %%DLAQR5 %DLAQR5 %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR + %DLAQTR %%DLAR1V %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB + %%DLARFG %DLARFG %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX + %%DLARFY %DLARFY %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB + %DLARRB %%DLARRC %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF + %%DLARRJ %DLARRJ %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV + %%DLARSCL2 %DLARSCL2 %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS + %%DLARTV %DLARTV %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT + %DLARZT %%DLAS2 %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0 + %%DLASD1 %DLASD1 %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5 + %DLASD5 %%DLASD6 %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA + %%DLASDQ %DLASDQ %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2 + %DLASQ2 %%DLASQ3 %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6 + %%DLASR %DLASR %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ + %DLASWLQ)) + +(CFFI:DEFCFUN ("dgbbrd_" %%DGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (M :POINTER) @@ -119,31 +121,31 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5886 ':INT32) (N-REF5887 ':INT32) - (NCC-REF5888 ':INT32) (KL-REF5889 ':INT32) - (KU-REF5890 ':INT32) (LDAB-REF5892 ':INT32) - (LDQ-REF5896 ':INT32) (LDPT-REF5898 ':INT32) - (LDC-REF5900 ':INT32) (INFO-REF5902 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5886 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5887 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5888 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5889 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5890 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5892 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5896 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF5898 :INT32) LDPT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5900 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5902 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5891 AB) (D-REF5893 D) - (E-REF5894 E) (Q-REF5895 Q) - (PT-REF5897 PT) (C-REF5899 C) - (WORK-REF5901 WORK)) - (%%DGBBRD VECT M-REF5886 N-REF5887 NCC-REF5888 KL-REF5889 KU-REF5890 - AB-REF5891 LDAB-REF5892 D-REF5893 E-REF5894 Q-REF5895 - LDQ-REF5896 PT-REF5897 LDPT-REF5898 C-REF5899 LDC-REF5900 - WORK-REF5901 INFO-REF5902)))) - -(CFFI:DEFCFUN ("dgbcon_" %%DGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5837 ':INT32) (N-REF5838 ':INT32) + (NCC-REF5839 ':INT32) (KL-REF5840 ':INT32) + (KU-REF5841 ':INT32) (LDAB-REF5843 ':INT32) + (LDQ-REF5847 ':INT32) (LDPT-REF5849 ':INT32) + (LDC-REF5851 ':INT32) (INFO-REF5853 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5837 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5838 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5839 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5840 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5841 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5843 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5847 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF5849 :INT32) LDPT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5851 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5853 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5842 AB) (D-REF5844 D) + (E-REF5845 E) (Q-REF5846 Q) + (PT-REF5848 PT) (C-REF5850 C) + (WORK-REF5852 WORK)) + (%%DGBBRD VECT M-REF5837 N-REF5838 NCC-REF5839 KL-REF5840 KU-REF5841 + AB-REF5842 LDAB-REF5843 D-REF5844 E-REF5845 Q-REF5846 LDQ-REF5847 + PT-REF5848 LDPT-REF5849 C-REF5850 LDC-REF5851 WORK-REF5852 + INFO-REF5853)))) + +(CFFI:DEFCFUN ("dgbcon_" %%DGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -182,25 +184,25 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5904 ':INT32) (KL-REF5905 ':INT32) - (KU-REF5906 ':INT32) (LDAB-REF5908 ':INT32) - (ANORM-REF5910 ':DOUBLE) (RCOND-REF5911 ':DOUBLE) - (INFO-REF5914 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5904 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5905 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5906 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5908 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5910 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5911 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5914 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5907 AB) (IPIV-REF5909 IPIV) - (WORK-REF5912 WORK) - (IWORK-REF5913 IWORK)) - (%%DGBCON NORM N-REF5904 KL-REF5905 KU-REF5906 AB-REF5907 LDAB-REF5908 - IPIV-REF5909 ANORM-REF5910 RCOND-REF5911 WORK-REF5912 - IWORK-REF5913 INFO-REF5914)))) - -(CFFI:DEFCFUN ("dgbequ_" %%DGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5855 ':INT32) (KL-REF5856 ':INT32) + (KU-REF5857 ':INT32) (LDAB-REF5859 ':INT32) + (ANORM-REF5861 ':DOUBLE) (RCOND-REF5862 ':DOUBLE) + (INFO-REF5865 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5855 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5856 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5857 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5859 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5861 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5862 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5865 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5858 AB) (IPIV-REF5860 IPIV) + (WORK-REF5863 WORK) + (IWORK-REF5864 IWORK)) + (%%DGBCON NORM N-REF5855 KL-REF5856 KU-REF5857 AB-REF5858 LDAB-REF5859 + IPIV-REF5860 ANORM-REF5861 RCOND-REF5862 WORK-REF5863 IWORK-REF5864 + INFO-REF5865)))) + +(CFFI:DEFCFUN ("dgbequ_" %%DGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -232,27 +234,28 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5915 ':INT32) (N-REF5916 ':INT32) - (KL-REF5917 ':INT32) (KU-REF5918 ':INT32) - (LDAB-REF5920 ':INT32) (ROWCND-REF5923 ':DOUBLE) - (COLCND-REF5924 ':DOUBLE) (AMAX-REF5925 ':DOUBLE) - (INFO-REF5926 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5915 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5916 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5917 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5918 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5920 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5923 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5924 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5925 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5926 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5919 AB) (R-REF5921 R) - (C-REF5922 C)) - (%%DGBEQU M-REF5915 N-REF5916 KL-REF5917 KU-REF5918 AB-REF5919 - LDAB-REF5920 R-REF5921 C-REF5922 ROWCND-REF5923 COLCND-REF5924 - AMAX-REF5925 INFO-REF5926)))) - -(CFFI:DEFCFUN ("dgbequb_" %%DGBEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5866 ':INT32) (N-REF5867 ':INT32) + (KL-REF5868 ':INT32) (KU-REF5869 ':INT32) + (LDAB-REF5871 ':INT32) (ROWCND-REF5874 ':DOUBLE) + (COLCND-REF5875 ':DOUBLE) (AMAX-REF5876 ':DOUBLE) + (INFO-REF5877 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5866 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5867 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5868 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5869 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5871 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5874 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5875 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5876 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5877 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5870 AB) (R-REF5872 R) + (C-REF5873 C)) + (%%DGBEQU M-REF5866 N-REF5867 KL-REF5868 KU-REF5869 AB-REF5870 + LDAB-REF5871 R-REF5872 C-REF5873 ROWCND-REF5874 COLCND-REF5875 + AMAX-REF5876 INFO-REF5877)))) + +(CFFI:DEFCFUN ("dgbequb_" %%DGBEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -284,27 +287,27 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5927 ':INT32) (N-REF5928 ':INT32) - (KL-REF5929 ':INT32) (KU-REF5930 ':INT32) - (LDAB-REF5932 ':INT32) (ROWCND-REF5935 ':DOUBLE) - (COLCND-REF5936 ':DOUBLE) (AMAX-REF5937 ':DOUBLE) - (INFO-REF5938 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5927 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5928 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5929 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5930 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5932 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5935 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5936 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5937 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5938 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5931 AB) (R-REF5933 R) - (C-REF5934 C)) - (%%DGBEQUB M-REF5927 N-REF5928 KL-REF5929 KU-REF5930 AB-REF5931 - LDAB-REF5932 R-REF5933 C-REF5934 ROWCND-REF5935 COLCND-REF5936 - AMAX-REF5937 INFO-REF5938)))) - -(CFFI:DEFCFUN ("dgbrfs_" %%DGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5878 ':INT32) (N-REF5879 ':INT32) + (KL-REF5880 ':INT32) (KU-REF5881 ':INT32) + (LDAB-REF5883 ':INT32) (ROWCND-REF5886 ':DOUBLE) + (COLCND-REF5887 ':DOUBLE) (AMAX-REF5888 ':DOUBLE) + (INFO-REF5889 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5878 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5879 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5880 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5881 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5883 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5886 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5887 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5888 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5889 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5882 AB) (R-REF5884 R) + (C-REF5885 C)) + (%%DGBEQUB M-REF5878 N-REF5879 KL-REF5880 KU-REF5881 AB-REF5882 + LDAB-REF5883 R-REF5884 C-REF5885 ROWCND-REF5886 COLCND-REF5887 + AMAX-REF5888 INFO-REF5889)))) + +(CFFI:DEFCFUN ("dgbrfs_" %%DGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -366,32 +369,33 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5940 ':INT32) (KL-REF5941 ':INT32) - (KU-REF5942 ':INT32) (NRHS-REF5943 ':INT32) - (LDAB-REF5945 ':INT32) (LDAFB-REF5947 ':INT32) - (LDB-REF5950 ':INT32) (LDX-REF5952 ':INT32) - (INFO-REF5957 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5940 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5941 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5942 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5943 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5945 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5947 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5950 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5952 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5957 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5944 AB) (AFB-REF5946 AFB) - (IPIV-REF5948 IPIV) (B-REF5949 B) - (X-REF5951 X) (FERR-REF5953 FERR) - (BERR-REF5954 BERR) - (WORK-REF5955 WORK) - (IWORK-REF5956 IWORK)) - (%%DGBRFS TRANS N-REF5940 KL-REF5941 KU-REF5942 NRHS-REF5943 AB-REF5944 - LDAB-REF5945 AFB-REF5946 LDAFB-REF5947 IPIV-REF5948 B-REF5949 - LDB-REF5950 X-REF5951 LDX-REF5952 FERR-REF5953 BERR-REF5954 - WORK-REF5955 IWORK-REF5956 INFO-REF5957)))) - -(CFFI:DEFCFUN ("dgbrfsx_" %%DGBRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5891 ':INT32) (KL-REF5892 ':INT32) + (KU-REF5893 ':INT32) (NRHS-REF5894 ':INT32) + (LDAB-REF5896 ':INT32) (LDAFB-REF5898 ':INT32) + (LDB-REF5901 ':INT32) (LDX-REF5903 ':INT32) + (INFO-REF5908 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5891 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5892 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5893 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5894 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5896 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5898 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5901 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5903 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5908 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5895 AB) (AFB-REF5897 AFB) + (IPIV-REF5899 IPIV) (B-REF5900 B) + (X-REF5902 X) (FERR-REF5904 FERR) + (BERR-REF5905 BERR) + (WORK-REF5906 WORK) + (IWORK-REF5907 IWORK)) + (%%DGBRFS TRANS N-REF5891 KL-REF5892 KU-REF5893 NRHS-REF5894 AB-REF5895 + LDAB-REF5896 AFB-REF5897 LDAFB-REF5898 IPIV-REF5899 B-REF5900 + LDB-REF5901 X-REF5902 LDX-REF5903 FERR-REF5904 BERR-REF5905 WORK-REF5906 + IWORK-REF5907 INFO-REF5908)))) + +(CFFI:DEFCFUN ("dgbrfsx_" %%DGBRFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (EQUED :STRING) @@ -477,44 +481,44 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5960 ':INT32) (KL-REF5961 ':INT32) - (KU-REF5962 ':INT32) (NRHS-REF5963 ':INT32) - (LDAB-REF5965 ':INT32) (LDAFB-REF5967 ':INT32) - (LDB-REF5972 ':INT32) (LDX-REF5974 ':INT32) - (RCOND-REF5975 ':DOUBLE) - (N_ERR_BNDS-REF5977 ':INT32) - (NPARAMS-REF5980 ':INT32) (INFO-REF5984 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5960 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5961 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5962 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5963 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5965 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5967 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5972 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5974 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5975 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5977 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5980 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5984 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5964 AB) (AFB-REF5966 AFB) - (IPIV-REF5968 IPIV) (R-REF5969 R) - (C-REF5970 C) (B-REF5971 B) - (X-REF5973 X) (BERR-REF5976 BERR) - (ERR_BNDS_NORM-REF5978 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5911 ':INT32) (KL-REF5912 ':INT32) + (KU-REF5913 ':INT32) (NRHS-REF5914 ':INT32) + (LDAB-REF5916 ':INT32) (LDAFB-REF5918 ':INT32) + (LDB-REF5923 ':INT32) (LDX-REF5925 ':INT32) + (RCOND-REF5926 ':DOUBLE) + (N_ERR_BNDS-REF5928 ':INT32) + (NPARAMS-REF5931 ':INT32) (INFO-REF5935 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5911 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5912 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5913 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5914 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5916 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5918 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5923 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5925 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5926 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5928 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5931 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5935 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5915 AB) (AFB-REF5917 AFB) + (IPIV-REF5919 IPIV) (R-REF5920 R) + (C-REF5921 C) (B-REF5922 B) + (X-REF5924 X) (BERR-REF5927 BERR) + (ERR_BNDS_NORM-REF5929 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF5979 + (ERR_BNDS_COMP-REF5930 ERR_BNDS_COMP) - (PARAMS-REF5981 PARAMS) - (WORK-REF5982 WORK) - (IWORK-REF5983 IWORK)) - (%%DGBRFSX TRANS EQUED N-REF5960 KL-REF5961 KU-REF5962 NRHS-REF5963 - AB-REF5964 LDAB-REF5965 AFB-REF5966 LDAFB-REF5967 IPIV-REF5968 - R-REF5969 C-REF5970 B-REF5971 LDB-REF5972 X-REF5973 - LDX-REF5974 RCOND-REF5975 BERR-REF5976 N_ERR_BNDS-REF5977 - ERR_BNDS_NORM-REF5978 ERR_BNDS_COMP-REF5979 NPARAMS-REF5980 - PARAMS-REF5981 WORK-REF5982 IWORK-REF5983 INFO-REF5984)))) + (PARAMS-REF5932 PARAMS) + (WORK-REF5933 WORK) + (IWORK-REF5934 IWORK)) + (%%DGBRFSX TRANS EQUED N-REF5911 KL-REF5912 KU-REF5913 NRHS-REF5914 + AB-REF5915 LDAB-REF5916 AFB-REF5917 LDAFB-REF5918 IPIV-REF5919 R-REF5920 + C-REF5921 B-REF5922 LDB-REF5923 X-REF5924 LDX-REF5925 RCOND-REF5926 + BERR-REF5927 N_ERR_BNDS-REF5928 ERR_BNDS_NORM-REF5929 + ERR_BNDS_COMP-REF5930 NPARAMS-REF5931 PARAMS-REF5932 WORK-REF5933 + IWORK-REF5934 INFO-REF5935)))) -(CFFI:DEFCFUN ("dgbsv_" %%DGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgbsv_" %%DGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (KL :POINTER) @@ -544,23 +548,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5985 ':INT32) (KL-REF5986 ':INT32) - (KU-REF5987 ':INT32) (NRHS-REF5988 ':INT32) - (LDAB-REF5990 ':INT32) (LDB-REF5993 ':INT32) - (INFO-REF5994 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5985 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5986 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5987 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5988 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5990 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5993 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5994 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5989 AB) (IPIV-REF5991 IPIV) - (B-REF5992 B)) - (%%DGBSV N-REF5985 KL-REF5986 KU-REF5987 NRHS-REF5988 AB-REF5989 - LDAB-REF5990 IPIV-REF5991 B-REF5992 LDB-REF5993 INFO-REF5994)))) - -(CFFI:DEFCFUN ("dgbsvx_" %%DGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5936 ':INT32) (KL-REF5937 ':INT32) + (KU-REF5938 ':INT32) (NRHS-REF5939 ':INT32) + (LDAB-REF5941 ':INT32) (LDB-REF5944 ':INT32) + (INFO-REF5945 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5936 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5937 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5938 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5939 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5941 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5944 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5945 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5940 AB) (IPIV-REF5942 IPIV) + (B-REF5943 B)) + (%%DGBSV N-REF5936 KL-REF5937 KU-REF5938 NRHS-REF5939 AB-REF5940 + LDAB-REF5941 IPIV-REF5942 B-REF5943 LDB-REF5944 INFO-REF5945)))) + +(CFFI:DEFCFUN ("dgbsvx_" %%DGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -634,35 +638,36 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5997 ':INT32) (KL-REF5998 ':INT32) - (KU-REF5999 ':INT32) (NRHS-REF6000 ':INT32) - (LDAB-REF6002 ':INT32) (LDAFB-REF6004 ':INT32) - (LDB-REF6010 ':INT32) (LDX-REF6012 ':INT32) - (RCOND-REF6013 ':DOUBLE) (INFO-REF6018 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5997 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5998 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5999 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6000 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6002 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF6004 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6010 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6012 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6013 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6018 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6001 AB) (AFB-REF6003 AFB) - (IPIV-REF6005 IPIV) (R-REF6007 R) - (C-REF6008 C) (B-REF6009 B) - (X-REF6011 X) (FERR-REF6014 FERR) - (BERR-REF6015 BERR) - (WORK-REF6016 WORK) - (IWORK-REF6017 IWORK)) - (%%DGBSVX FACT TRANS N-REF5997 KL-REF5998 KU-REF5999 NRHS-REF6000 - AB-REF6001 LDAB-REF6002 AFB-REF6003 LDAFB-REF6004 IPIV-REF6005 - EQUED R-REF6007 C-REF6008 B-REF6009 LDB-REF6010 X-REF6011 - LDX-REF6012 RCOND-REF6013 FERR-REF6014 BERR-REF6015 - WORK-REF6016 IWORK-REF6017 INFO-REF6018)))) - -(CFFI:DEFCFUN ("dgbsvxx_" %%DGBSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5948 ':INT32) (KL-REF5949 ':INT32) + (KU-REF5950 ':INT32) (NRHS-REF5951 ':INT32) + (LDAB-REF5953 ':INT32) (LDAFB-REF5955 ':INT32) + (LDB-REF5961 ':INT32) (LDX-REF5963 ':INT32) + (RCOND-REF5964 ':DOUBLE) (INFO-REF5969 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5948 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5949 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5950 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5951 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5953 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5955 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5961 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5963 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5964 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5969 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5952 AB) (AFB-REF5954 AFB) + (IPIV-REF5956 IPIV) (R-REF5958 R) + (C-REF5959 C) (B-REF5960 B) + (X-REF5962 X) (FERR-REF5965 FERR) + (BERR-REF5966 BERR) + (WORK-REF5967 WORK) + (IWORK-REF5968 IWORK)) + (%%DGBSVX FACT TRANS N-REF5948 KL-REF5949 KU-REF5950 NRHS-REF5951 + AB-REF5952 LDAB-REF5953 AFB-REF5954 LDAFB-REF5955 IPIV-REF5956 EQUED + R-REF5958 C-REF5959 B-REF5960 LDB-REF5961 X-REF5962 LDX-REF5963 + RCOND-REF5964 FERR-REF5965 BERR-REF5966 WORK-REF5967 IWORK-REF5968 + INFO-REF5969)))) + +(CFFI:DEFCFUN ("dgbsvxx_" %%DGBSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -752,47 +757,46 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6021 ':INT32) (KL-REF6022 ':INT32) - (KU-REF6023 ':INT32) (NRHS-REF6024 ':INT32) - (LDAB-REF6026 ':INT32) (LDAFB-REF6028 ':INT32) - (LDB-REF6034 ':INT32) (LDX-REF6036 ':INT32) - (RCOND-REF6037 ':DOUBLE) - (RPVGRW-REF6038 ':DOUBLE) - (N_ERR_BNDS-REF6040 ':INT32) - (NPARAMS-REF6043 ':INT32) (INFO-REF6047 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6021 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6022 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6023 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6024 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6026 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF6028 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6034 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6036 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6037 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF6038 :DOUBLE) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6040 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6043 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6047 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6025 AB) (AFB-REF6027 AFB) - (IPIV-REF6029 IPIV) (R-REF6031 R) - (C-REF6032 C) (B-REF6033 B) - (X-REF6035 X) (BERR-REF6039 BERR) - (ERR_BNDS_NORM-REF6041 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5972 ':INT32) (KL-REF5973 ':INT32) + (KU-REF5974 ':INT32) (NRHS-REF5975 ':INT32) + (LDAB-REF5977 ':INT32) (LDAFB-REF5979 ':INT32) + (LDB-REF5985 ':INT32) (LDX-REF5987 ':INT32) + (RCOND-REF5988 ':DOUBLE) + (RPVGRW-REF5989 ':DOUBLE) + (N_ERR_BNDS-REF5991 ':INT32) + (NPARAMS-REF5994 ':INT32) (INFO-REF5998 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5972 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5973 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5974 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5975 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5977 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5979 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5985 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5987 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5988 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF5989 :DOUBLE) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5991 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5994 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5998 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5976 AB) (AFB-REF5978 AFB) + (IPIV-REF5980 IPIV) (R-REF5982 R) + (C-REF5983 C) (B-REF5984 B) + (X-REF5986 X) (BERR-REF5990 BERR) + (ERR_BNDS_NORM-REF5992 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF6042 + (ERR_BNDS_COMP-REF5993 ERR_BNDS_COMP) - (PARAMS-REF6044 PARAMS) - (WORK-REF6045 WORK) - (IWORK-REF6046 IWORK)) - (%%DGBSVXX FACT TRANS N-REF6021 KL-REF6022 KU-REF6023 NRHS-REF6024 - AB-REF6025 LDAB-REF6026 AFB-REF6027 LDAFB-REF6028 IPIV-REF6029 - EQUED R-REF6031 C-REF6032 B-REF6033 LDB-REF6034 X-REF6035 - LDX-REF6036 RCOND-REF6037 RPVGRW-REF6038 BERR-REF6039 - N_ERR_BNDS-REF6040 ERR_BNDS_NORM-REF6041 ERR_BNDS_COMP-REF6042 - NPARAMS-REF6043 PARAMS-REF6044 WORK-REF6045 IWORK-REF6046 - INFO-REF6047)))) - -(CFFI:DEFCFUN ("dgbtf2_" %%DGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF5995 PARAMS) + (WORK-REF5996 WORK) + (IWORK-REF5997 IWORK)) + (%%DGBSVXX FACT TRANS N-REF5972 KL-REF5973 KU-REF5974 NRHS-REF5975 + AB-REF5976 LDAB-REF5977 AFB-REF5978 LDAFB-REF5979 IPIV-REF5980 EQUED + R-REF5982 C-REF5983 B-REF5984 LDB-REF5985 X-REF5986 LDX-REF5987 + RCOND-REF5988 RPVGRW-REF5989 BERR-REF5990 N_ERR_BNDS-REF5991 + ERR_BNDS_NORM-REF5992 ERR_BNDS_COMP-REF5993 NPARAMS-REF5994 + PARAMS-REF5995 WORK-REF5996 IWORK-REF5997 INFO-REF5998)))) + +(CFFI:DEFCFUN ("dgbtf2_" %%DGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -817,20 +821,20 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6048 ':INT32) (N-REF6049 ':INT32) - (KL-REF6050 ':INT32) (KU-REF6051 ':INT32) - (LDAB-REF6053 ':INT32) (INFO-REF6055 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6048 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6049 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6050 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6051 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6053 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6055 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6052 AB) (IPIV-REF6054 IPIV)) - (%%DGBTF2 M-REF6048 N-REF6049 KL-REF6050 KU-REF6051 AB-REF6052 - LDAB-REF6053 IPIV-REF6054 INFO-REF6055)))) - -(CFFI:DEFCFUN ("dgbtrf_" %%DGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5999 ':INT32) (N-REF6000 ':INT32) + (KL-REF6001 ':INT32) (KU-REF6002 ':INT32) + (LDAB-REF6004 ':INT32) (INFO-REF6006 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5999 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6000 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6001 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6002 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6004 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6006 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6003 AB) (IPIV-REF6005 IPIV)) + (%%DGBTF2 M-REF5999 N-REF6000 KL-REF6001 KU-REF6002 AB-REF6003 + LDAB-REF6004 IPIV-REF6005 INFO-REF6006)))) + +(CFFI:DEFCFUN ("dgbtrf_" %%DGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -855,20 +859,20 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6056 ':INT32) (N-REF6057 ':INT32) - (KL-REF6058 ':INT32) (KU-REF6059 ':INT32) - (LDAB-REF6061 ':INT32) (INFO-REF6063 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6056 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6057 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6058 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6059 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6061 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6063 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6060 AB) (IPIV-REF6062 IPIV)) - (%%DGBTRF M-REF6056 N-REF6057 KL-REF6058 KU-REF6059 AB-REF6060 - LDAB-REF6061 IPIV-REF6062 INFO-REF6063)))) - -(CFFI:DEFCFUN ("dgbtrs_" %%DGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6007 ':INT32) (N-REF6008 ':INT32) + (KL-REF6009 ':INT32) (KU-REF6010 ':INT32) + (LDAB-REF6012 ':INT32) (INFO-REF6014 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6007 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6008 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6009 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6010 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6012 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6014 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6011 AB) (IPIV-REF6013 IPIV)) + (%%DGBTRF M-REF6007 N-REF6008 KL-REF6009 KU-REF6010 AB-REF6011 + LDAB-REF6012 IPIV-REF6013 INFO-REF6014)))) + +(CFFI:DEFCFUN ("dgbtrs_" %%DGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -900,23 +904,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6065 ':INT32) (KL-REF6066 ':INT32) - (KU-REF6067 ':INT32) (NRHS-REF6068 ':INT32) - (LDAB-REF6070 ':INT32) (LDB-REF6073 ':INT32) - (INFO-REF6074 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6065 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6066 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6067 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6068 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6070 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6073 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6074 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6069 AB) (IPIV-REF6071 IPIV) - (B-REF6072 B)) - (%%DGBTRS TRANS N-REF6065 KL-REF6066 KU-REF6067 NRHS-REF6068 AB-REF6069 - LDAB-REF6070 IPIV-REF6071 B-REF6072 LDB-REF6073 INFO-REF6074)))) - -(CFFI:DEFCFUN ("dgebak_" %%DGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6016 ':INT32) (KL-REF6017 ':INT32) + (KU-REF6018 ':INT32) (NRHS-REF6019 ':INT32) + (LDAB-REF6021 ':INT32) (LDB-REF6024 ':INT32) + (INFO-REF6025 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6016 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6017 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6018 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6019 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6021 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6024 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6025 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6020 AB) (IPIV-REF6022 IPIV) + (B-REF6023 B)) + (%%DGBTRS TRANS N-REF6016 KL-REF6017 KU-REF6018 NRHS-REF6019 AB-REF6020 + LDAB-REF6021 IPIV-REF6022 B-REF6023 LDB-REF6024 INFO-REF6025)))) + +(CFFI:DEFCFUN ("dgebak_" %%DGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (SIDE :STRING) @@ -944,20 +948,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6077 ':INT32) (ILO-REF6078 ':INT32) - (IHI-REF6079 ':INT32) (M-REF6081 ':INT32) - (LDV-REF6083 ':INT32) (INFO-REF6084 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6077 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6078 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6079 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6081 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6083 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6084 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF6080 SCALE) (V-REF6082 V)) - (%%DGEBAK JOB SIDE N-REF6077 ILO-REF6078 IHI-REF6079 SCALE-REF6080 - M-REF6081 V-REF6082 LDV-REF6083 INFO-REF6084)))) - -(CFFI:DEFCFUN ("dgebal_" %%DGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6028 ':INT32) (ILO-REF6029 ':INT32) + (IHI-REF6030 ':INT32) (M-REF6032 ':INT32) + (LDV-REF6034 ':INT32) (INFO-REF6035 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6028 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6029 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6030 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6032 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6034 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6035 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF6031 SCALE) (V-REF6033 V)) + (%%DGEBAK JOB SIDE N-REF6028 ILO-REF6029 IHI-REF6030 SCALE-REF6031 + M-REF6032 V-REF6033 LDV-REF6034 INFO-REF6035)))) + +(CFFI:DEFCFUN ("dgebal_" %%DGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (N :POINTER) @@ -981,19 +985,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SCALE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6086 ':INT32) (LDA-REF6088 ':INT32) - (ILO-REF6089 ':INT32) (IHI-REF6090 ':INT32) - (INFO-REF6092 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6086 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6088 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6089 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6090 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6092 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6087 A) (SCALE-REF6091 SCALE)) - (%%DGEBAL JOB N-REF6086 A-REF6087 LDA-REF6088 ILO-REF6089 IHI-REF6090 - SCALE-REF6091 INFO-REF6092)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6037 ':INT32) (LDA-REF6039 ':INT32) + (ILO-REF6040 ':INT32) (IHI-REF6041 ':INT32) + (INFO-REF6043 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6037 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6039 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6040 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6041 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6043 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6038 A) (SCALE-REF6042 SCALE)) + (%%DGEBAL JOB N-REF6037 A-REF6038 LDA-REF6039 ILO-REF6040 IHI-REF6041 + SCALE-REF6042 INFO-REF6043)))) -(CFFI:DEFCFUN ("dgebd2_" %%DGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgebd2_" %%DGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1027,20 +1031,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6093 ':INT32) (N-REF6094 ':INT32) - (LDA-REF6096 ':INT32) (INFO-REF6102 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6093 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6094 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6096 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6102 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6095 A) (D-REF6097 D) - (E-REF6098 E) (TAUQ-REF6099 TAUQ) - (TAUP-REF6100 TAUP) - (WORK-REF6101 WORK)) - (%%DGEBD2 M-REF6093 N-REF6094 A-REF6095 LDA-REF6096 D-REF6097 E-REF6098 - TAUQ-REF6099 TAUP-REF6100 WORK-REF6101 INFO-REF6102)))) - -(CFFI:DEFCFUN ("dgebrd_" %%DGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6044 ':INT32) (N-REF6045 ':INT32) + (LDA-REF6047 ':INT32) (INFO-REF6053 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6044 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6045 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6047 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6053 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6046 A) (D-REF6048 D) + (E-REF6049 E) (TAUQ-REF6050 TAUQ) + (TAUP-REF6051 TAUP) + (WORK-REF6052 WORK)) + (%%DGEBD2 M-REF6044 N-REF6045 A-REF6046 LDA-REF6047 D-REF6048 E-REF6049 + TAUQ-REF6050 TAUP-REF6051 WORK-REF6052 INFO-REF6053)))) + +(CFFI:DEFCFUN ("dgebrd_" %%DGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1076,23 +1080,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6103 ':INT32) (N-REF6104 ':INT32) - (LDA-REF6106 ':INT32) (LWORK-REF6112 ':INT32) - (INFO-REF6113 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6103 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6104 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6106 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6112 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6113 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6105 A) (D-REF6107 D) - (E-REF6108 E) (TAUQ-REF6109 TAUQ) - (TAUP-REF6110 TAUP) - (WORK-REF6111 WORK)) - (%%DGEBRD M-REF6103 N-REF6104 A-REF6105 LDA-REF6106 D-REF6107 E-REF6108 - TAUQ-REF6109 TAUP-REF6110 WORK-REF6111 LWORK-REF6112 - INFO-REF6113)))) - -(CFFI:DEFCFUN ("dgecon_" %%DGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6054 ':INT32) (N-REF6055 ':INT32) + (LDA-REF6057 ':INT32) (LWORK-REF6063 ':INT32) + (INFO-REF6064 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6054 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6055 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6057 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6063 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6064 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6056 A) (D-REF6058 D) + (E-REF6059 E) (TAUQ-REF6060 TAUQ) + (TAUP-REF6061 TAUP) + (WORK-REF6062 WORK)) + (%%DGEBRD M-REF6054 N-REF6055 A-REF6056 LDA-REF6057 D-REF6058 E-REF6059 + TAUQ-REF6060 TAUP-REF6061 WORK-REF6062 LWORK-REF6063 INFO-REF6064)))) + +(CFFI:DEFCFUN ("dgecon_" %%DGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -1121,20 +1124,20 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6115 ':INT32) (LDA-REF6117 ':INT32) - (ANORM-REF6118 ':DOUBLE) (RCOND-REF6119 ':DOUBLE) - (INFO-REF6122 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6115 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6117 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF6118 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6119 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6122 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6116 A) (WORK-REF6120 WORK) - (IWORK-REF6121 IWORK)) - (%%DGECON NORM N-REF6115 A-REF6116 LDA-REF6117 ANORM-REF6118 - RCOND-REF6119 WORK-REF6120 IWORK-REF6121 INFO-REF6122)))) - -(CFFI:DEFCFUN ("dgeequ_" %%DGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6066 ':INT32) (LDA-REF6068 ':INT32) + (ANORM-REF6069 ':DOUBLE) (RCOND-REF6070 ':DOUBLE) + (INFO-REF6073 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6066 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6068 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF6069 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6070 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6073 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6067 A) (WORK-REF6071 WORK) + (IWORK-REF6072 IWORK)) + (%%DGECON NORM N-REF6066 A-REF6067 LDA-REF6068 ANORM-REF6069 + RCOND-REF6070 WORK-REF6071 IWORK-REF6072 INFO-REF6073)))) + +(CFFI:DEFCFUN ("dgeequ_" %%DGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1162,23 +1165,24 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6123 ':INT32) (N-REF6124 ':INT32) - (LDA-REF6126 ':INT32) (ROWCND-REF6129 ':DOUBLE) - (COLCND-REF6130 ':DOUBLE) (AMAX-REF6131 ':DOUBLE) - (INFO-REF6132 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6123 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6124 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6126 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6129 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6130 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6131 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6132 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6125 A) (R-REF6127 R) - (C-REF6128 C)) - (%%DGEEQU M-REF6123 N-REF6124 A-REF6125 LDA-REF6126 R-REF6127 C-REF6128 - ROWCND-REF6129 COLCND-REF6130 AMAX-REF6131 INFO-REF6132)))) - -(CFFI:DEFCFUN ("dgeequb_" %%DGEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6074 ':INT32) (N-REF6075 ':INT32) + (LDA-REF6077 ':INT32) (ROWCND-REF6080 ':DOUBLE) + (COLCND-REF6081 ':DOUBLE) (AMAX-REF6082 ':DOUBLE) + (INFO-REF6083 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6074 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6075 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6077 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6080 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6081 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6082 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6083 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6076 A) (R-REF6078 R) + (C-REF6079 C)) + (%%DGEEQU M-REF6074 N-REF6075 A-REF6076 LDA-REF6077 R-REF6078 C-REF6079 + ROWCND-REF6080 COLCND-REF6081 AMAX-REF6082 INFO-REF6083)))) + +(CFFI:DEFCFUN ("dgeequb_" %%DGEEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1206,23 +1210,23 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6133 ':INT32) (N-REF6134 ':INT32) - (LDA-REF6136 ':INT32) (ROWCND-REF6139 ':DOUBLE) - (COLCND-REF6140 ':DOUBLE) (AMAX-REF6141 ':DOUBLE) - (INFO-REF6142 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6133 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6134 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6136 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6139 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6140 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6141 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6142 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6135 A) (R-REF6137 R) - (C-REF6138 C)) - (%%DGEEQUB M-REF6133 N-REF6134 A-REF6135 LDA-REF6136 R-REF6137 C-REF6138 - ROWCND-REF6139 COLCND-REF6140 AMAX-REF6141 INFO-REF6142)))) - -(CFFI:DEFCFUN ("dgees_" %%DGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6084 ':INT32) (N-REF6085 ':INT32) + (LDA-REF6087 ':INT32) (ROWCND-REF6090 ':DOUBLE) + (COLCND-REF6091 ':DOUBLE) (AMAX-REF6092 ':DOUBLE) + (INFO-REF6093 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6084 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6085 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6087 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6090 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6091 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6092 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6093 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6086 A) (R-REF6088 R) + (C-REF6089 C)) + (%%DGEEQUB M-REF6084 N-REF6085 A-REF6086 LDA-REF6087 R-REF6088 C-REF6089 + ROWCND-REF6090 COLCND-REF6091 AMAX-REF6092 INFO-REF6093)))) + +(CFFI:DEFCFUN ("dgees_" %%DGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVS :STRING) (SORT :STRING) @@ -1268,26 +1272,26 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6145 ':INT32) (N-REF6146 ':INT32) - (LDA-REF6148 ':INT32) (SDIM-REF6149 ':INT32) - (LDVS-REF6153 ':INT32) (LWORK-REF6155 ':INT32) - (INFO-REF6157 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6145 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6146 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6148 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6149 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6153 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6155 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6157 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6147 A) (WR-REF6150 WR) - (WI-REF6151 WI) (VS-REF6152 VS) - (WORK-REF6154 WORK) - (BWORK-REF6156 BWORK)) - (%%DGEES JOBVS SORT SELECT-REF6145 N-REF6146 A-REF6147 LDA-REF6148 - SDIM-REF6149 WR-REF6150 WI-REF6151 VS-REF6152 LDVS-REF6153 - WORK-REF6154 LWORK-REF6155 BWORK-REF6156 INFO-REF6157)))) - -(CFFI:DEFCFUN ("dgeesx_" %%DGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6096 ':INT32) (N-REF6097 ':INT32) + (LDA-REF6099 ':INT32) (SDIM-REF6100 ':INT32) + (LDVS-REF6104 ':INT32) (LWORK-REF6106 ':INT32) + (INFO-REF6108 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6096 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6097 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6099 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6100 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6104 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6106 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6108 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6098 A) (WR-REF6101 WR) + (WI-REF6102 WI) (VS-REF6103 VS) + (WORK-REF6105 WORK) + (BWORK-REF6107 BWORK)) + (%%DGEES JOBVS SORT SELECT-REF6096 N-REF6097 A-REF6098 LDA-REF6099 + SDIM-REF6100 WR-REF6101 WI-REF6102 VS-REF6103 LDVS-REF6104 WORK-REF6105 + LWORK-REF6106 BWORK-REF6107 INFO-REF6108)))) + +(CFFI:DEFCFUN ("dgeesx_" %%DGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVS :STRING) (SORT :STRING) @@ -1346,32 +1350,32 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6160 ':INT32) (N-REF6162 ':INT32) - (LDA-REF6164 ':INT32) (SDIM-REF6165 ':INT32) - (LDVS-REF6169 ':INT32) (RCONDE-REF6170 ':DOUBLE) - (RCONDV-REF6171 ':DOUBLE) (LWORK-REF6173 ':INT32) - (LIWORK-REF6175 ':INT32) (INFO-REF6177 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6160 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6162 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6164 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6165 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6169 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF6170 :DOUBLE) RCONDE) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF6171 :DOUBLE) RCONDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6173 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6175 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6177 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6163 A) (WR-REF6166 WR) - (WI-REF6167 WI) (VS-REF6168 VS) - (WORK-REF6172 WORK) - (IWORK-REF6174 IWORK) - (BWORK-REF6176 BWORK)) - (%%DGEESX JOBVS SORT SELECT-REF6160 SENSE N-REF6162 A-REF6163 LDA-REF6164 - SDIM-REF6165 WR-REF6166 WI-REF6167 VS-REF6168 LDVS-REF6169 - RCONDE-REF6170 RCONDV-REF6171 WORK-REF6172 LWORK-REF6173 - IWORK-REF6174 LIWORK-REF6175 BWORK-REF6176 INFO-REF6177)))) - -(CFFI:DEFCFUN ("dgeev_" %%DGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6111 ':INT32) (N-REF6113 ':INT32) + (LDA-REF6115 ':INT32) (SDIM-REF6116 ':INT32) + (LDVS-REF6120 ':INT32) (RCONDE-REF6121 ':DOUBLE) + (RCONDV-REF6122 ':DOUBLE) (LWORK-REF6124 ':INT32) + (LIWORK-REF6126 ':INT32) (INFO-REF6128 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6111 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6113 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6115 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6116 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6120 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF6121 :DOUBLE) RCONDE) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF6122 :DOUBLE) RCONDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6124 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6126 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6128 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6114 A) (WR-REF6117 WR) + (WI-REF6118 WI) (VS-REF6119 VS) + (WORK-REF6123 WORK) + (IWORK-REF6125 IWORK) + (BWORK-REF6127 BWORK)) + (%%DGEESX JOBVS SORT SELECT-REF6111 SENSE N-REF6113 A-REF6114 LDA-REF6115 + SDIM-REF6116 WR-REF6117 WI-REF6118 VS-REF6119 LDVS-REF6120 + RCONDE-REF6121 RCONDV-REF6122 WORK-REF6123 LWORK-REF6124 IWORK-REF6125 + LIWORK-REF6126 BWORK-REF6127 INFO-REF6128)))) + +(CFFI:DEFCFUN ("dgeev_" %%DGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -1412,23 +1416,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6180 ':INT32) (LDA-REF6182 ':INT32) - (LDVL-REF6186 ':INT32) (LDVR-REF6188 ':INT32) - (LWORK-REF6190 ':INT32) (INFO-REF6191 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6180 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6182 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6186 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6188 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6190 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6191 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6181 A) (WR-REF6183 WR) - (WI-REF6184 WI) (VL-REF6185 VL) - (VR-REF6187 VR) (WORK-REF6189 WORK)) - (%%DGEEV JOBVL JOBVR N-REF6180 A-REF6181 LDA-REF6182 WR-REF6183 - WI-REF6184 VL-REF6185 LDVL-REF6186 VR-REF6187 LDVR-REF6188 - WORK-REF6189 LWORK-REF6190 INFO-REF6191)))) - -(CFFI:DEFCFUN ("dgeevx_" %%DGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6131 ':INT32) (LDA-REF6133 ':INT32) + (LDVL-REF6137 ':INT32) (LDVR-REF6139 ':INT32) + (LWORK-REF6141 ':INT32) (INFO-REF6142 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6131 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6133 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6137 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6139 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6141 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6142 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6132 A) (WR-REF6134 WR) + (WI-REF6135 WI) (VL-REF6136 VL) + (VR-REF6138 VR) (WORK-REF6140 WORK)) + (%%DGEEV JOBVL JOBVR N-REF6131 A-REF6132 LDA-REF6133 WR-REF6134 + WI-REF6135 VL-REF6136 LDVL-REF6137 VR-REF6138 LDVR-REF6139 WORK-REF6140 + LWORK-REF6141 INFO-REF6142)))) + +(CFFI:DEFCFUN ("dgeevx_" %%DGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (BALANC :STRING) (JOBVL :STRING) @@ -1497,35 +1501,34 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6196 ':INT32) (LDA-REF6198 ':INT32) - (LDVL-REF6202 ':INT32) (LDVR-REF6204 ':INT32) - (ILO-REF6205 ':INT32) (IHI-REF6206 ':INT32) - (ABNRM-REF6208 ':DOUBLE) (LWORK-REF6212 ':INT32) - (INFO-REF6214 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6196 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6198 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6202 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6204 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6205 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6206 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6208 :DOUBLE) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6212 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6214 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6197 A) (WR-REF6199 WR) - (WI-REF6200 WI) (VL-REF6201 VL) - (VR-REF6203 VR) - (SCALE-REF6207 SCALE) - (RCONDE-REF6209 RCONDE) - (RCONDV-REF6210 RCONDV) - (WORK-REF6211 WORK) - (IWORK-REF6213 IWORK)) - (%%DGEEVX BALANC JOBVL JOBVR SENSE N-REF6196 A-REF6197 LDA-REF6198 - WR-REF6199 WI-REF6200 VL-REF6201 LDVL-REF6202 VR-REF6203 - LDVR-REF6204 ILO-REF6205 IHI-REF6206 SCALE-REF6207 - ABNRM-REF6208 RCONDE-REF6209 RCONDV-REF6210 WORK-REF6211 - LWORK-REF6212 IWORK-REF6213 INFO-REF6214)))) - -(CFFI:DEFCFUN ("dgehd2_" %%DGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6147 ':INT32) (LDA-REF6149 ':INT32) + (LDVL-REF6153 ':INT32) (LDVR-REF6155 ':INT32) + (ILO-REF6156 ':INT32) (IHI-REF6157 ':INT32) + (ABNRM-REF6159 ':DOUBLE) (LWORK-REF6163 ':INT32) + (INFO-REF6165 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6147 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6149 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6153 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6155 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6156 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6157 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6159 :DOUBLE) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6163 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6165 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6148 A) (WR-REF6150 WR) + (WI-REF6151 WI) (VL-REF6152 VL) + (VR-REF6154 VR) + (SCALE-REF6158 SCALE) + (RCONDE-REF6160 RCONDE) + (RCONDV-REF6161 RCONDV) + (WORK-REF6162 WORK) + (IWORK-REF6164 IWORK)) + (%%DGEEVX BALANC JOBVL JOBVR SENSE N-REF6147 A-REF6148 LDA-REF6149 + WR-REF6150 WI-REF6151 VL-REF6152 LDVL-REF6153 VR-REF6154 LDVR-REF6155 + ILO-REF6156 IHI-REF6157 SCALE-REF6158 ABNRM-REF6159 RCONDE-REF6160 + RCONDV-REF6161 WORK-REF6162 LWORK-REF6163 IWORK-REF6164 INFO-REF6165)))) + +(CFFI:DEFCFUN ("dgehd2_" %%DGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -1551,20 +1554,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6215 ':INT32) (ILO-REF6216 ':INT32) - (IHI-REF6217 ':INT32) (LDA-REF6219 ':INT32) - (INFO-REF6222 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6215 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6216 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6217 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6219 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6222 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6218 A) (TAU-REF6220 TAU) - (WORK-REF6221 WORK)) - (%%DGEHD2 N-REF6215 ILO-REF6216 IHI-REF6217 A-REF6218 LDA-REF6219 - TAU-REF6220 WORK-REF6221 INFO-REF6222)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6166 ':INT32) (ILO-REF6167 ':INT32) + (IHI-REF6168 ':INT32) (LDA-REF6170 ':INT32) + (INFO-REF6173 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6166 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6167 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6168 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6170 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6173 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6169 A) (TAU-REF6171 TAU) + (WORK-REF6172 WORK)) + (%%DGEHD2 N-REF6166 ILO-REF6167 IHI-REF6168 A-REF6169 LDA-REF6170 + TAU-REF6171 WORK-REF6172 INFO-REF6173)))) -(CFFI:DEFCFUN ("dgehrd_" %%DGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgehrd_" %%DGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -1592,21 +1595,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6223 ':INT32) (ILO-REF6224 ':INT32) - (IHI-REF6225 ':INT32) (LDA-REF6227 ':INT32) - (LWORK-REF6230 ':INT32) (INFO-REF6231 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6223 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6224 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6225 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6227 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6230 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6231 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6226 A) (TAU-REF6228 TAU) - (WORK-REF6229 WORK)) - (%%DGEHRD N-REF6223 ILO-REF6224 IHI-REF6225 A-REF6226 LDA-REF6227 - TAU-REF6228 WORK-REF6229 LWORK-REF6230 INFO-REF6231)))) - -(CFFI:DEFCFUN ("dgejsv_" %%DGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6174 ':INT32) (ILO-REF6175 ':INT32) + (IHI-REF6176 ':INT32) (LDA-REF6178 ':INT32) + (LWORK-REF6181 ':INT32) (INFO-REF6182 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6174 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6175 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6176 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6178 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6181 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6182 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6177 A) (TAU-REF6179 TAU) + (WORK-REF6180 WORK)) + (%%DGEHRD N-REF6174 ILO-REF6175 IHI-REF6176 A-REF6177 LDA-REF6178 + TAU-REF6179 WORK-REF6180 LWORK-REF6181 INFO-REF6182)))) + +(CFFI:DEFCFUN ("dgejsv_" %%DGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBU :STRING) @@ -1661,27 +1664,26 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6238 ':INT32) (N-REF6239 ':INT32) - (LDA-REF6241 ':INT32) (LDU-REF6244 ':INT32) - (LDV-REF6246 ':INT32) (LWORK-REF6248 ':INT32) - (INFO-REF6250 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6238 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6239 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6241 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6244 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6246 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6248 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6250 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6240 A) (SVA-REF6242 SVA) - (U-REF6243 U) (V-REF6245 V) - (WORK-REF6247 WORK) - (IWORK-REF6249 IWORK)) - (%%DGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF6238 N-REF6239 A-REF6240 - LDA-REF6241 SVA-REF6242 U-REF6243 LDU-REF6244 V-REF6245 - LDV-REF6246 WORK-REF6247 LWORK-REF6248 IWORK-REF6249 - INFO-REF6250)))) - -(CFFI:DEFCFUN ("dgelq_" %%DGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6189 ':INT32) (N-REF6190 ':INT32) + (LDA-REF6192 ':INT32) (LDU-REF6195 ':INT32) + (LDV-REF6197 ':INT32) (LWORK-REF6199 ':INT32) + (INFO-REF6201 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6189 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6190 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6192 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6195 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6197 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6199 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6201 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6191 A) (SVA-REF6193 SVA) + (U-REF6194 U) (V-REF6196 V) + (WORK-REF6198 WORK) + (IWORK-REF6200 IWORK)) + (%%DGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF6189 N-REF6190 A-REF6191 + LDA-REF6192 SVA-REF6193 U-REF6194 LDU-REF6195 V-REF6196 LDV-REF6197 + WORK-REF6198 LWORK-REF6199 IWORK-REF6200 INFO-REF6201)))) + +(CFFI:DEFCFUN ("dgelq_" %%DGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1708,21 +1710,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6251 ':INT32) (N-REF6252 ':INT32) - (LDA-REF6254 ':INT32) (TSIZE-REF6256 ':INT32) - (LWORK-REF6258 ':INT32) (INFO-REF6259 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6251 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6252 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6254 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6256 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6258 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6259 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6253 A) (T-REF6255 T) - (WORK-REF6257 WORK)) - (%%DGELQ M-REF6251 N-REF6252 A-REF6253 LDA-REF6254 T-REF6255 - TSIZE-REF6256 WORK-REF6257 LWORK-REF6258 INFO-REF6259)))) - -(CFFI:DEFCFUN ("dgelq2_" %%DGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6202 ':INT32) (N-REF6203 ':INT32) + (LDA-REF6205 ':INT32) (TSIZE-REF6207 ':INT32) + (LWORK-REF6209 ':INT32) (INFO-REF6210 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6202 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6203 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6205 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6207 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6209 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6210 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6204 A) (T-REF6206 T) + (WORK-REF6208 WORK)) + (%%DGELQ M-REF6202 N-REF6203 A-REF6204 LDA-REF6205 T-REF6206 + TSIZE-REF6207 WORK-REF6208 LWORK-REF6209 INFO-REF6210)))) + +(CFFI:DEFCFUN ("dgelq2_" %%DGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1746,18 +1748,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6260 ':INT32) (N-REF6261 ':INT32) - (LDA-REF6263 ':INT32) (INFO-REF6266 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6260 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6261 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6263 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6266 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6262 A) (TAU-REF6264 TAU) - (WORK-REF6265 WORK)) - (%%DGELQ2 M-REF6260 N-REF6261 A-REF6262 LDA-REF6263 TAU-REF6264 - WORK-REF6265 INFO-REF6266)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6211 ':INT32) (N-REF6212 ':INT32) + (LDA-REF6214 ':INT32) (INFO-REF6217 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6211 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6212 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6214 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6217 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6213 A) (TAU-REF6215 TAU) + (WORK-REF6216 WORK)) + (%%DGELQ2 M-REF6211 N-REF6212 A-REF6213 LDA-REF6214 TAU-REF6215 + WORK-REF6216 INFO-REF6217)))) -(CFFI:DEFCFUN ("dgelqf_" %%DGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgelqf_" %%DGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1783,20 +1785,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6267 ':INT32) (N-REF6268 ':INT32) - (LDA-REF6270 ':INT32) (LWORK-REF6273 ':INT32) - (INFO-REF6274 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6267 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6268 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6270 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6273 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6274 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6269 A) (TAU-REF6271 TAU) - (WORK-REF6272 WORK)) - (%%DGELQF M-REF6267 N-REF6268 A-REF6269 LDA-REF6270 TAU-REF6271 - WORK-REF6272 LWORK-REF6273 INFO-REF6274)))) - -(CFFI:DEFCFUN ("dgelqt_" %%DGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6218 ':INT32) (N-REF6219 ':INT32) + (LDA-REF6221 ':INT32) (LWORK-REF6224 ':INT32) + (INFO-REF6225 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6218 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6219 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6221 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6224 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6225 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6220 A) (TAU-REF6222 TAU) + (WORK-REF6223 WORK)) + (%%DGELQF M-REF6218 N-REF6219 A-REF6220 LDA-REF6221 TAU-REF6222 + WORK-REF6223 LWORK-REF6224 INFO-REF6225)))) + +(CFFI:DEFCFUN ("dgelqt_" %%DGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1823,21 +1825,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6275 ':INT32) (N-REF6276 ':INT32) - (MB-REF6277 ':INT32) (LDA-REF6279 ':INT32) - (LDT-REF6281 ':INT32) (INFO-REF6283 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6275 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6276 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6277 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6279 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6281 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6283 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6278 A) (T-REF6280 T) - (WORK-REF6282 WORK)) - (%%DGELQT M-REF6275 N-REF6276 MB-REF6277 A-REF6278 LDA-REF6279 T-REF6280 - LDT-REF6281 WORK-REF6282 INFO-REF6283)))) - -(CFFI:DEFCFUN ("dgelqt3_" %%DGELQT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6226 ':INT32) (N-REF6227 ':INT32) + (MB-REF6228 ':INT32) (LDA-REF6230 ':INT32) + (LDT-REF6232 ':INT32) (INFO-REF6234 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6226 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6227 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6228 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6230 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6232 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6234 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6229 A) (T-REF6231 T) + (WORK-REF6233 WORK)) + (%%DGELQT M-REF6226 N-REF6227 MB-REF6228 A-REF6229 LDA-REF6230 T-REF6231 + LDT-REF6232 WORK-REF6233 INFO-REF6234)))) + +(CFFI:DEFCFUN ("dgelqt3_" %%DGELQT3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1858,19 +1861,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6284 ':INT32) (N-REF6285 ':INT32) - (LDA-REF6287 ':INT32) (LDT-REF6289 ':INT32) - (INFO-REF6290 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6284 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6285 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6287 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6289 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6290 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6286 A) (T-REF6288 T)) - (%%DGELQT3 M-REF6284 N-REF6285 A-REF6286 LDA-REF6287 T-REF6288 - LDT-REF6289 INFO-REF6290)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6235 ':INT32) (N-REF6236 ':INT32) + (LDA-REF6238 ':INT32) (LDT-REF6240 ':INT32) + (INFO-REF6241 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6235 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6236 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6238 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6240 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6241 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6237 A) (T-REF6239 T)) + (%%DGELQT3 M-REF6235 N-REF6236 A-REF6237 LDA-REF6238 T-REF6239 + LDT-REF6240 INFO-REF6241)))) -(CFFI:DEFCFUN ("dgels_" %%DGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgels_" %%DGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (M :POINTER) @@ -1901,23 +1904,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6292 ':INT32) (N-REF6293 ':INT32) - (NRHS-REF6294 ':INT32) (LDA-REF6296 ':INT32) - (LDB-REF6298 ':INT32) (LWORK-REF6300 ':INT32) - (INFO-REF6301 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6292 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6293 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6294 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6296 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6298 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6300 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6301 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6295 A) (B-REF6297 B) - (WORK-REF6299 WORK)) - (%%DGELS TRANS M-REF6292 N-REF6293 NRHS-REF6294 A-REF6295 LDA-REF6296 - B-REF6297 LDB-REF6298 WORK-REF6299 LWORK-REF6300 INFO-REF6301)))) - -(CFFI:DEFCFUN ("dgelsd_" %%DGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6243 ':INT32) (N-REF6244 ':INT32) + (NRHS-REF6245 ':INT32) (LDA-REF6247 ':INT32) + (LDB-REF6249 ':INT32) (LWORK-REF6251 ':INT32) + (INFO-REF6252 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6243 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6244 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6245 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6247 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6249 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6251 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6252 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6246 A) (B-REF6248 B) + (WORK-REF6250 WORK)) + (%%DGELS TRANS M-REF6243 N-REF6244 NRHS-REF6245 A-REF6246 LDA-REF6247 + B-REF6248 LDB-REF6249 WORK-REF6250 LWORK-REF6251 INFO-REF6252)))) + +(CFFI:DEFCFUN ("dgelsd_" %%DGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1959,28 +1962,28 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6302 ':INT32) (N-REF6303 ':INT32) - (NRHS-REF6304 ':INT32) (LDA-REF6306 ':INT32) - (LDB-REF6308 ':INT32) (RCOND-REF6310 ':DOUBLE) - (RANK-REF6311 ':INT32) (LWORK-REF6313 ':INT32) - (INFO-REF6315 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6302 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6303 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6304 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6306 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6308 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6310 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6311 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6313 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6315 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6305 A) (B-REF6307 B) - (S-REF6309 S) (WORK-REF6312 WORK) - (IWORK-REF6314 IWORK)) - (%%DGELSD M-REF6302 N-REF6303 NRHS-REF6304 A-REF6305 LDA-REF6306 - B-REF6307 LDB-REF6308 S-REF6309 RCOND-REF6310 RANK-REF6311 - WORK-REF6312 LWORK-REF6313 IWORK-REF6314 INFO-REF6315)))) - -(CFFI:DEFCFUN ("dgelss_" %%DGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6253 ':INT32) (N-REF6254 ':INT32) + (NRHS-REF6255 ':INT32) (LDA-REF6257 ':INT32) + (LDB-REF6259 ':INT32) (RCOND-REF6261 ':DOUBLE) + (RANK-REF6262 ':INT32) (LWORK-REF6264 ':INT32) + (INFO-REF6266 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6253 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6254 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6255 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6257 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6259 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6261 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6262 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6264 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6266 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6256 A) (B-REF6258 B) + (S-REF6260 S) (WORK-REF6263 WORK) + (IWORK-REF6265 IWORK)) + (%%DGELSD M-REF6253 N-REF6254 NRHS-REF6255 A-REF6256 LDA-REF6257 + B-REF6258 LDB-REF6259 S-REF6260 RCOND-REF6261 RANK-REF6262 WORK-REF6263 + LWORK-REF6264 IWORK-REF6265 INFO-REF6266)))) + +(CFFI:DEFCFUN ("dgelss_" %%DGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2016,27 +2019,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6316 ':INT32) (N-REF6317 ':INT32) - (NRHS-REF6318 ':INT32) (LDA-REF6320 ':INT32) - (LDB-REF6322 ':INT32) (RCOND-REF6324 ':DOUBLE) - (RANK-REF6325 ':INT32) (LWORK-REF6327 ':INT32) - (INFO-REF6328 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6316 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6317 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6318 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6320 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6322 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6324 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6325 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6327 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6328 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6319 A) (B-REF6321 B) - (S-REF6323 S) (WORK-REF6326 WORK)) - (%%DGELSS M-REF6316 N-REF6317 NRHS-REF6318 A-REF6319 LDA-REF6320 - B-REF6321 LDB-REF6322 S-REF6323 RCOND-REF6324 RANK-REF6325 - WORK-REF6326 LWORK-REF6327 INFO-REF6328)))) - -(CFFI:DEFCFUN ("dgelsy_" %%DGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6267 ':INT32) (N-REF6268 ':INT32) + (NRHS-REF6269 ':INT32) (LDA-REF6271 ':INT32) + (LDB-REF6273 ':INT32) (RCOND-REF6275 ':DOUBLE) + (RANK-REF6276 ':INT32) (LWORK-REF6278 ':INT32) + (INFO-REF6279 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6267 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6268 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6269 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6271 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6273 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6275 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6276 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6278 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6279 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6270 A) (B-REF6272 B) + (S-REF6274 S) (WORK-REF6277 WORK)) + (%%DGELSS M-REF6267 N-REF6268 NRHS-REF6269 A-REF6270 LDA-REF6271 + B-REF6272 LDB-REF6273 S-REF6274 RCOND-REF6275 RANK-REF6276 WORK-REF6277 + LWORK-REF6278 INFO-REF6279)))) + +(CFFI:DEFCFUN ("dgelsy_" %%DGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2075,28 +2078,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6329 ':INT32) (N-REF6330 ':INT32) - (NRHS-REF6331 ':INT32) (LDA-REF6333 ':INT32) - (LDB-REF6335 ':INT32) (RCOND-REF6337 ':DOUBLE) - (RANK-REF6338 ':INT32) (LWORK-REF6340 ':INT32) - (INFO-REF6341 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6329 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6330 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6331 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6333 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6335 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6337 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6338 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6340 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6341 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6332 A) (B-REF6334 B) - (JPVT-REF6336 JPVT) - (WORK-REF6339 WORK)) - (%%DGELSY M-REF6329 N-REF6330 NRHS-REF6331 A-REF6332 LDA-REF6333 - B-REF6334 LDB-REF6335 JPVT-REF6336 RCOND-REF6337 RANK-REF6338 - WORK-REF6339 LWORK-REF6340 INFO-REF6341)))) - -(CFFI:DEFCFUN ("dgemlq_" %%DGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6280 ':INT32) (N-REF6281 ':INT32) + (NRHS-REF6282 ':INT32) (LDA-REF6284 ':INT32) + (LDB-REF6286 ':INT32) (RCOND-REF6288 ':DOUBLE) + (RANK-REF6289 ':INT32) (LWORK-REF6291 ':INT32) + (INFO-REF6292 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6280 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6281 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6282 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6284 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6286 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6288 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6289 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6291 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6292 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6283 A) (B-REF6285 B) + (JPVT-REF6287 JPVT) + (WORK-REF6290 WORK)) + (%%DGELSY M-REF6280 N-REF6281 NRHS-REF6282 A-REF6283 LDA-REF6284 + B-REF6285 LDB-REF6286 JPVT-REF6287 RCOND-REF6288 RANK-REF6289 + WORK-REF6290 LWORK-REF6291 INFO-REF6292)))) + +(CFFI:DEFCFUN ("dgemlq_" %%DGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2135,25 +2138,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6344 ':INT32) (N-REF6345 ':INT32) - (K-REF6346 ':INT32) (LDA-REF6348 ':INT32) - (TSIZE-REF6350 ':INT32) (LDC-REF6352 ':INT32) - (LWORK-REF6354 ':INT32) (INFO-REF6355 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6344 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6345 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6346 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6348 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6350 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6352 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6354 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6355 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6347 A) (T-REF6349 T) - (C-REF6351 C) (WORK-REF6353 WORK)) - (%%DGEMLQ SIDE TRANS M-REF6344 N-REF6345 K-REF6346 A-REF6347 LDA-REF6348 - T-REF6349 TSIZE-REF6350 C-REF6351 LDC-REF6352 WORK-REF6353 - LWORK-REF6354 INFO-REF6355)))) - -(CFFI:DEFCFUN ("dgemlqt_" %%DGEMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6295 ':INT32) (N-REF6296 ':INT32) + (K-REF6297 ':INT32) (LDA-REF6299 ':INT32) + (TSIZE-REF6301 ':INT32) (LDC-REF6303 ':INT32) + (LWORK-REF6305 ':INT32) (INFO-REF6306 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6295 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6296 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6297 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6299 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6301 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6303 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6305 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6306 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6298 A) (T-REF6300 T) + (C-REF6302 C) (WORK-REF6304 WORK)) + (%%DGEMLQ SIDE TRANS M-REF6295 N-REF6296 K-REF6297 A-REF6298 LDA-REF6299 + T-REF6300 TSIZE-REF6301 C-REF6302 LDC-REF6303 WORK-REF6304 LWORK-REF6305 + INFO-REF6306)))) + +(CFFI:DEFCFUN ("dgemlqt_" %%DGEMLQT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2191,25 +2195,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6358 ':INT32) (N-REF6359 ':INT32) - (K-REF6360 ':INT32) (MB-REF6361 ':INT32) - (LDV-REF6363 ':INT32) (LDT-REF6365 ':INT32) - (LDC-REF6367 ':INT32) (INFO-REF6369 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6358 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6359 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6360 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6361 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6363 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6365 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6367 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6369 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6362 V) (T-REF6364 T) - (C-REF6366 C) (WORK-REF6368 WORK)) - (%%DGEMLQT SIDE TRANS M-REF6358 N-REF6359 K-REF6360 MB-REF6361 V-REF6362 - LDV-REF6363 T-REF6364 LDT-REF6365 C-REF6366 LDC-REF6367 - WORK-REF6368 INFO-REF6369)))) - -(CFFI:DEFCFUN ("dgemqr_" %%DGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6309 ':INT32) (N-REF6310 ':INT32) + (K-REF6311 ':INT32) (MB-REF6312 ':INT32) + (LDV-REF6314 ':INT32) (LDT-REF6316 ':INT32) + (LDC-REF6318 ':INT32) (INFO-REF6320 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6309 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6310 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6311 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6312 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6314 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6316 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6318 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6320 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6313 V) (T-REF6315 T) + (C-REF6317 C) (WORK-REF6319 WORK)) + (%%DGEMLQT SIDE TRANS M-REF6309 N-REF6310 K-REF6311 MB-REF6312 V-REF6313 + LDV-REF6314 T-REF6315 LDT-REF6316 C-REF6317 LDC-REF6318 WORK-REF6319 + INFO-REF6320)))) + +(CFFI:DEFCFUN ("dgemqr_" %%DGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2248,25 +2252,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6372 ':INT32) (N-REF6373 ':INT32) - (K-REF6374 ':INT32) (LDA-REF6376 ':INT32) - (TSIZE-REF6378 ':INT32) (LDC-REF6380 ':INT32) - (LWORK-REF6382 ':INT32) (INFO-REF6383 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6372 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6373 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6374 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6376 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6378 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6380 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6382 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6383 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6375 A) (T-REF6377 T) - (C-REF6379 C) (WORK-REF6381 WORK)) - (%%DGEMQR SIDE TRANS M-REF6372 N-REF6373 K-REF6374 A-REF6375 LDA-REF6376 - T-REF6377 TSIZE-REF6378 C-REF6379 LDC-REF6380 WORK-REF6381 - LWORK-REF6382 INFO-REF6383)))) - -(CFFI:DEFCFUN ("dgemqrt_" %%DGEMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6323 ':INT32) (N-REF6324 ':INT32) + (K-REF6325 ':INT32) (LDA-REF6327 ':INT32) + (TSIZE-REF6329 ':INT32) (LDC-REF6331 ':INT32) + (LWORK-REF6333 ':INT32) (INFO-REF6334 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6323 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6324 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6325 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6327 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6329 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6331 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6333 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6334 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6326 A) (T-REF6328 T) + (C-REF6330 C) (WORK-REF6332 WORK)) + (%%DGEMQR SIDE TRANS M-REF6323 N-REF6324 K-REF6325 A-REF6326 LDA-REF6327 + T-REF6328 TSIZE-REF6329 C-REF6330 LDC-REF6331 WORK-REF6332 LWORK-REF6333 + INFO-REF6334)))) + +(CFFI:DEFCFUN ("dgemqrt_" %%DGEMQRT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2304,25 +2309,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6386 ':INT32) (N-REF6387 ':INT32) - (K-REF6388 ':INT32) (NB-REF6389 ':INT32) - (LDV-REF6391 ':INT32) (LDT-REF6393 ':INT32) - (LDC-REF6395 ':INT32) (INFO-REF6397 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6386 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6387 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6388 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6389 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6391 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6393 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6395 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6397 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6390 V) (T-REF6392 T) - (C-REF6394 C) (WORK-REF6396 WORK)) - (%%DGEMQRT SIDE TRANS M-REF6386 N-REF6387 K-REF6388 NB-REF6389 V-REF6390 - LDV-REF6391 T-REF6392 LDT-REF6393 C-REF6394 LDC-REF6395 - WORK-REF6396 INFO-REF6397)))) - -(CFFI:DEFCFUN ("dgeql2_" %%DGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6337 ':INT32) (N-REF6338 ':INT32) + (K-REF6339 ':INT32) (NB-REF6340 ':INT32) + (LDV-REF6342 ':INT32) (LDT-REF6344 ':INT32) + (LDC-REF6346 ':INT32) (INFO-REF6348 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6337 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6338 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6339 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6340 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6342 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6344 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6346 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6348 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6341 V) (T-REF6343 T) + (C-REF6345 C) (WORK-REF6347 WORK)) + (%%DGEMQRT SIDE TRANS M-REF6337 N-REF6338 K-REF6339 NB-REF6340 V-REF6341 + LDV-REF6342 T-REF6343 LDT-REF6344 C-REF6345 LDC-REF6346 WORK-REF6347 + INFO-REF6348)))) + +(CFFI:DEFCFUN ("dgeql2_" %%DGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2346,18 +2351,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6398 ':INT32) (N-REF6399 ':INT32) - (LDA-REF6401 ':INT32) (INFO-REF6404 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6398 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6399 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6401 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6404 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6400 A) (TAU-REF6402 TAU) - (WORK-REF6403 WORK)) - (%%DGEQL2 M-REF6398 N-REF6399 A-REF6400 LDA-REF6401 TAU-REF6402 - WORK-REF6403 INFO-REF6404)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6349 ':INT32) (N-REF6350 ':INT32) + (LDA-REF6352 ':INT32) (INFO-REF6355 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6349 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6350 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6352 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6355 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6351 A) (TAU-REF6353 TAU) + (WORK-REF6354 WORK)) + (%%DGEQL2 M-REF6349 N-REF6350 A-REF6351 LDA-REF6352 TAU-REF6353 + WORK-REF6354 INFO-REF6355)))) -(CFFI:DEFCFUN ("dgeqlf_" %%DGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgeqlf_" %%DGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2383,20 +2388,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6405 ':INT32) (N-REF6406 ':INT32) - (LDA-REF6408 ':INT32) (LWORK-REF6411 ':INT32) - (INFO-REF6412 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6405 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6406 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6408 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6411 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6412 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6407 A) (TAU-REF6409 TAU) - (WORK-REF6410 WORK)) - (%%DGEQLF M-REF6405 N-REF6406 A-REF6407 LDA-REF6408 TAU-REF6409 - WORK-REF6410 LWORK-REF6411 INFO-REF6412)))) - -(CFFI:DEFCFUN ("dgeqp3_" %%DGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6356 ':INT32) (N-REF6357 ':INT32) + (LDA-REF6359 ':INT32) (LWORK-REF6362 ':INT32) + (INFO-REF6363 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6356 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6357 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6359 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6362 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6363 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6358 A) (TAU-REF6360 TAU) + (WORK-REF6361 WORK)) + (%%DGEQLF M-REF6356 N-REF6357 A-REF6358 LDA-REF6359 TAU-REF6360 + WORK-REF6361 LWORK-REF6362 INFO-REF6363)))) + +(CFFI:DEFCFUN ("dgeqp3_" %%DGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2427,21 +2432,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6413 ':INT32) (N-REF6414 ':INT32) - (LDA-REF6416 ':INT32) (LWORK-REF6420 ':INT32) - (INFO-REF6421 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6413 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6414 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6416 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6420 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6421 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6415 A) (JPVT-REF6417 JPVT) - (TAU-REF6418 TAU) - (WORK-REF6419 WORK)) - (%%DGEQP3 M-REF6413 N-REF6414 A-REF6415 LDA-REF6416 JPVT-REF6417 - TAU-REF6418 WORK-REF6419 LWORK-REF6420 INFO-REF6421)))) - -(CFFI:DEFCFUN ("dgeqr_" %%DGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6364 ':INT32) (N-REF6365 ':INT32) + (LDA-REF6367 ':INT32) (LWORK-REF6371 ':INT32) + (INFO-REF6372 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6364 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6365 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6367 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6371 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6372 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6366 A) (JPVT-REF6368 JPVT) + (TAU-REF6369 TAU) + (WORK-REF6370 WORK)) + (%%DGEQP3 M-REF6364 N-REF6365 A-REF6366 LDA-REF6367 JPVT-REF6368 + TAU-REF6369 WORK-REF6370 LWORK-REF6371 INFO-REF6372)))) + +(CFFI:DEFCFUN ("dgeqr_" %%DGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2468,21 +2473,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6422 ':INT32) (N-REF6423 ':INT32) - (LDA-REF6425 ':INT32) (TSIZE-REF6427 ':INT32) - (LWORK-REF6429 ':INT32) (INFO-REF6430 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6422 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6423 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6425 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6427 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6429 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6430 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6424 A) (T-REF6426 T) - (WORK-REF6428 WORK)) - (%%DGEQR M-REF6422 N-REF6423 A-REF6424 LDA-REF6425 T-REF6426 - TSIZE-REF6427 WORK-REF6428 LWORK-REF6429 INFO-REF6430)))) - -(CFFI:DEFCFUN ("dgeqr2_" %%DGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6373 ':INT32) (N-REF6374 ':INT32) + (LDA-REF6376 ':INT32) (TSIZE-REF6378 ':INT32) + (LWORK-REF6380 ':INT32) (INFO-REF6381 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6373 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6374 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6376 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6378 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6380 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6381 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6375 A) (T-REF6377 T) + (WORK-REF6379 WORK)) + (%%DGEQR M-REF6373 N-REF6374 A-REF6375 LDA-REF6376 T-REF6377 + TSIZE-REF6378 WORK-REF6379 LWORK-REF6380 INFO-REF6381)))) + +(CFFI:DEFCFUN ("dgeqr2_" %%DGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2506,18 +2511,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6431 ':INT32) (N-REF6432 ':INT32) - (LDA-REF6434 ':INT32) (INFO-REF6437 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6431 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6432 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6434 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6437 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6433 A) (TAU-REF6435 TAU) - (WORK-REF6436 WORK)) - (%%DGEQR2 M-REF6431 N-REF6432 A-REF6433 LDA-REF6434 TAU-REF6435 - WORK-REF6436 INFO-REF6437)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6382 ':INT32) (N-REF6383 ':INT32) + (LDA-REF6385 ':INT32) (INFO-REF6388 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6382 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6383 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6385 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6388 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6384 A) (TAU-REF6386 TAU) + (WORK-REF6387 WORK)) + (%%DGEQR2 M-REF6382 N-REF6383 A-REF6384 LDA-REF6385 TAU-REF6386 + WORK-REF6387 INFO-REF6388)))) -(CFFI:DEFCFUN ("dgeqr2p_" %%DGEQR2P :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgeqr2p_" %%DGEQR2P :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2541,18 +2547,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6438 ':INT32) (N-REF6439 ':INT32) - (LDA-REF6441 ':INT32) (INFO-REF6444 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6438 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6439 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6441 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6444 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6440 A) (TAU-REF6442 TAU) - (WORK-REF6443 WORK)) - (%%DGEQR2P M-REF6438 N-REF6439 A-REF6440 LDA-REF6441 TAU-REF6442 - WORK-REF6443 INFO-REF6444)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6389 ':INT32) (N-REF6390 ':INT32) + (LDA-REF6392 ':INT32) (INFO-REF6395 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6389 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6390 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6392 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6395 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6391 A) (TAU-REF6393 TAU) + (WORK-REF6394 WORK)) + (%%DGEQR2P M-REF6389 N-REF6390 A-REF6391 LDA-REF6392 TAU-REF6393 + WORK-REF6394 INFO-REF6395)))) -(CFFI:DEFCFUN ("dgeqrf_" %%DGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgeqrf_" %%DGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2578,20 +2584,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6445 ':INT32) (N-REF6446 ':INT32) - (LDA-REF6448 ':INT32) (LWORK-REF6451 ':INT32) - (INFO-REF6452 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6445 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6446 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6448 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6451 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6452 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6447 A) (TAU-REF6449 TAU) - (WORK-REF6450 WORK)) - (%%DGEQRF M-REF6445 N-REF6446 A-REF6447 LDA-REF6448 TAU-REF6449 - WORK-REF6450 LWORK-REF6451 INFO-REF6452)))) - -(CFFI:DEFCFUN ("dgeqrfp_" %%DGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6396 ':INT32) (N-REF6397 ':INT32) + (LDA-REF6399 ':INT32) (LWORK-REF6402 ':INT32) + (INFO-REF6403 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6396 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6397 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6399 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6402 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6403 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6398 A) (TAU-REF6400 TAU) + (WORK-REF6401 WORK)) + (%%DGEQRF M-REF6396 N-REF6397 A-REF6398 LDA-REF6399 TAU-REF6400 + WORK-REF6401 LWORK-REF6402 INFO-REF6403)))) + +(CFFI:DEFCFUN ("dgeqrfp_" %%DGEQRFP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2617,20 +2624,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6453 ':INT32) (N-REF6454 ':INT32) - (LDA-REF6456 ':INT32) (LWORK-REF6459 ':INT32) - (INFO-REF6460 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6453 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6454 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6456 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6459 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6460 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6455 A) (TAU-REF6457 TAU) - (WORK-REF6458 WORK)) - (%%DGEQRFP M-REF6453 N-REF6454 A-REF6455 LDA-REF6456 TAU-REF6457 - WORK-REF6458 LWORK-REF6459 INFO-REF6460)))) - -(CFFI:DEFCFUN ("dgeqrt_" %%DGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6404 ':INT32) (N-REF6405 ':INT32) + (LDA-REF6407 ':INT32) (LWORK-REF6410 ':INT32) + (INFO-REF6411 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6404 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6405 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6407 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6410 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6411 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6406 A) (TAU-REF6408 TAU) + (WORK-REF6409 WORK)) + (%%DGEQRFP M-REF6404 N-REF6405 A-REF6406 LDA-REF6407 TAU-REF6408 + WORK-REF6409 LWORK-REF6410 INFO-REF6411)))) + +(CFFI:DEFCFUN ("dgeqrt_" %%DGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2657,21 +2664,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6461 ':INT32) (N-REF6462 ':INT32) - (NB-REF6463 ':INT32) (LDA-REF6465 ':INT32) - (LDT-REF6467 ':INT32) (INFO-REF6469 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6461 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6462 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6463 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6465 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6467 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6469 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6464 A) (T-REF6466 T) - (WORK-REF6468 WORK)) - (%%DGEQRT M-REF6461 N-REF6462 NB-REF6463 A-REF6464 LDA-REF6465 T-REF6466 - LDT-REF6467 WORK-REF6468 INFO-REF6469)))) - -(CFFI:DEFCFUN ("dgeqrt2_" %%DGEQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6412 ':INT32) (N-REF6413 ':INT32) + (NB-REF6414 ':INT32) (LDA-REF6416 ':INT32) + (LDT-REF6418 ':INT32) (INFO-REF6420 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6412 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6413 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6414 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6416 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6418 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6420 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6415 A) (T-REF6417 T) + (WORK-REF6419 WORK)) + (%%DGEQRT M-REF6412 N-REF6413 NB-REF6414 A-REF6415 LDA-REF6416 T-REF6417 + LDT-REF6418 WORK-REF6419 INFO-REF6420)))) + +(CFFI:DEFCFUN ("dgeqrt2_" %%DGEQRT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2692,19 +2700,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6470 ':INT32) (N-REF6471 ':INT32) - (LDA-REF6473 ':INT32) (LDT-REF6475 ':INT32) - (INFO-REF6476 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6470 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6471 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6473 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6475 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6476 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6472 A) (T-REF6474 T)) - (%%DGEQRT2 M-REF6470 N-REF6471 A-REF6472 LDA-REF6473 T-REF6474 - LDT-REF6475 INFO-REF6476)))) - -(CFFI:DEFCFUN ("dgeqrt3_" %%DGEQRT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6421 ':INT32) (N-REF6422 ':INT32) + (LDA-REF6424 ':INT32) (LDT-REF6426 ':INT32) + (INFO-REF6427 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6421 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6422 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6424 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6426 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6427 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6423 A) (T-REF6425 T)) + (%%DGEQRT2 M-REF6421 N-REF6422 A-REF6423 LDA-REF6424 T-REF6425 + LDT-REF6426 INFO-REF6427)))) + +(CFFI:DEFCFUN ("dgeqrt3_" %%DGEQRT3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2725,19 +2734,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6477 ':INT32) (N-REF6478 ':INT32) - (LDA-REF6480 ':INT32) (LDT-REF6482 ':INT32) - (INFO-REF6483 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6477 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6478 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6480 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6482 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6483 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6479 A) (T-REF6481 T)) - (%%DGEQRT3 M-REF6477 N-REF6478 A-REF6479 LDA-REF6480 T-REF6481 - LDT-REF6482 INFO-REF6483)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6428 ':INT32) (N-REF6429 ':INT32) + (LDA-REF6431 ':INT32) (LDT-REF6433 ':INT32) + (INFO-REF6434 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6428 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6429 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6431 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6433 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6434 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6430 A) (T-REF6432 T)) + (%%DGEQRT3 M-REF6428 N-REF6429 A-REF6430 LDA-REF6431 T-REF6432 + LDT-REF6433 INFO-REF6434)))) -(CFFI:DEFCFUN ("dgerfs_" %%DGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgerfs_" %%DGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -2794,29 +2803,29 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6485 ':INT32) (NRHS-REF6486 ':INT32) - (LDA-REF6488 ':INT32) (LDAF-REF6490 ':INT32) - (LDB-REF6493 ':INT32) (LDX-REF6495 ':INT32) - (INFO-REF6500 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6485 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6486 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6488 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6490 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6493 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6495 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6500 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6487 A) (AF-REF6489 AF) - (IPIV-REF6491 IPIV) (B-REF6492 B) - (X-REF6494 X) (FERR-REF6496 FERR) - (BERR-REF6497 BERR) - (WORK-REF6498 WORK) - (IWORK-REF6499 IWORK)) - (%%DGERFS TRANS N-REF6485 NRHS-REF6486 A-REF6487 LDA-REF6488 AF-REF6489 - LDAF-REF6490 IPIV-REF6491 B-REF6492 LDB-REF6493 X-REF6494 - LDX-REF6495 FERR-REF6496 BERR-REF6497 WORK-REF6498 - IWORK-REF6499 INFO-REF6500)))) - -(CFFI:DEFCFUN ("dgerfsx_" %%DGERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6436 ':INT32) (NRHS-REF6437 ':INT32) + (LDA-REF6439 ':INT32) (LDAF-REF6441 ':INT32) + (LDB-REF6444 ':INT32) (LDX-REF6446 ':INT32) + (INFO-REF6451 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6436 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6437 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6439 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6441 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6444 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6446 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6451 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6438 A) (AF-REF6440 AF) + (IPIV-REF6442 IPIV) (B-REF6443 B) + (X-REF6445 X) (FERR-REF6447 FERR) + (BERR-REF6448 BERR) + (WORK-REF6449 WORK) + (IWORK-REF6450 IWORK)) + (%%DGERFS TRANS N-REF6436 NRHS-REF6437 A-REF6438 LDA-REF6439 AF-REF6440 + LDAF-REF6441 IPIV-REF6442 B-REF6443 LDB-REF6444 X-REF6445 LDX-REF6446 + FERR-REF6447 BERR-REF6448 WORK-REF6449 IWORK-REF6450 INFO-REF6451)))) + +(CFFI:DEFCFUN ("dgerfsx_" %%DGERFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (EQUED :STRING) @@ -2897,41 +2906,41 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6503 ':INT32) (NRHS-REF6504 ':INT32) - (LDA-REF6506 ':INT32) (LDAF-REF6508 ':INT32) - (LDB-REF6513 ':INT32) (LDX-REF6515 ':INT32) - (RCOND-REF6516 ':DOUBLE) - (N_ERR_BNDS-REF6518 ':INT32) - (NPARAMS-REF6521 ':INT32) (INFO-REF6525 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6503 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6504 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6506 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6508 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6513 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6515 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6516 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6518 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6521 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6525 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6505 A) (AF-REF6507 AF) - (IPIV-REF6509 IPIV) (R-REF6510 R) - (C-REF6511 C) (B-REF6512 B) - (X-REF6514 X) (BERR-REF6517 BERR) - (ERR_BNDS_NORM-REF6519 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6454 ':INT32) (NRHS-REF6455 ':INT32) + (LDA-REF6457 ':INT32) (LDAF-REF6459 ':INT32) + (LDB-REF6464 ':INT32) (LDX-REF6466 ':INT32) + (RCOND-REF6467 ':DOUBLE) + (N_ERR_BNDS-REF6469 ':INT32) + (NPARAMS-REF6472 ':INT32) (INFO-REF6476 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6454 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6455 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6457 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6459 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6464 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6466 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6467 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6469 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6472 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6476 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6456 A) (AF-REF6458 AF) + (IPIV-REF6460 IPIV) (R-REF6461 R) + (C-REF6462 C) (B-REF6463 B) + (X-REF6465 X) (BERR-REF6468 BERR) + (ERR_BNDS_NORM-REF6470 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF6520 + (ERR_BNDS_COMP-REF6471 ERR_BNDS_COMP) - (PARAMS-REF6522 PARAMS) - (WORK-REF6523 WORK) - (IWORK-REF6524 IWORK)) - (%%DGERFSX TRANS EQUED N-REF6503 NRHS-REF6504 A-REF6505 LDA-REF6506 - AF-REF6507 LDAF-REF6508 IPIV-REF6509 R-REF6510 C-REF6511 - B-REF6512 LDB-REF6513 X-REF6514 LDX-REF6515 RCOND-REF6516 - BERR-REF6517 N_ERR_BNDS-REF6518 ERR_BNDS_NORM-REF6519 - ERR_BNDS_COMP-REF6520 NPARAMS-REF6521 PARAMS-REF6522 - WORK-REF6523 IWORK-REF6524 INFO-REF6525)))) - -(CFFI:DEFCFUN ("dgerq2_" %%DGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF6473 PARAMS) + (WORK-REF6474 WORK) + (IWORK-REF6475 IWORK)) + (%%DGERFSX TRANS EQUED N-REF6454 NRHS-REF6455 A-REF6456 LDA-REF6457 + AF-REF6458 LDAF-REF6459 IPIV-REF6460 R-REF6461 C-REF6462 B-REF6463 + LDB-REF6464 X-REF6465 LDX-REF6466 RCOND-REF6467 BERR-REF6468 + N_ERR_BNDS-REF6469 ERR_BNDS_NORM-REF6470 ERR_BNDS_COMP-REF6471 + NPARAMS-REF6472 PARAMS-REF6473 WORK-REF6474 IWORK-REF6475 + INFO-REF6476)))) + +(CFFI:DEFCFUN ("dgerq2_" %%DGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2955,18 +2964,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6526 ':INT32) (N-REF6527 ':INT32) - (LDA-REF6529 ':INT32) (INFO-REF6532 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6526 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6527 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6529 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6532 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6528 A) (TAU-REF6530 TAU) - (WORK-REF6531 WORK)) - (%%DGERQ2 M-REF6526 N-REF6527 A-REF6528 LDA-REF6529 TAU-REF6530 - WORK-REF6531 INFO-REF6532)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6477 ':INT32) (N-REF6478 ':INT32) + (LDA-REF6480 ':INT32) (INFO-REF6483 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6477 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6478 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6480 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6483 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6479 A) (TAU-REF6481 TAU) + (WORK-REF6482 WORK)) + (%%DGERQ2 M-REF6477 N-REF6478 A-REF6479 LDA-REF6480 TAU-REF6481 + WORK-REF6482 INFO-REF6483)))) -(CFFI:DEFCFUN ("dgerqf_" %%DGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgerqf_" %%DGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2992,20 +3001,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6533 ':INT32) (N-REF6534 ':INT32) - (LDA-REF6536 ':INT32) (LWORK-REF6539 ':INT32) - (INFO-REF6540 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6533 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6534 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6536 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6539 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6540 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6535 A) (TAU-REF6537 TAU) - (WORK-REF6538 WORK)) - (%%DGERQF M-REF6533 N-REF6534 A-REF6535 LDA-REF6536 TAU-REF6537 - WORK-REF6538 LWORK-REF6539 INFO-REF6540)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6484 ':INT32) (N-REF6485 ':INT32) + (LDA-REF6487 ':INT32) (LWORK-REF6490 ':INT32) + (INFO-REF6491 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6484 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6485 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6487 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6490 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6491 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6486 A) (TAU-REF6488 TAU) + (WORK-REF6489 WORK)) + (%%DGERQF M-REF6484 N-REF6485 A-REF6486 LDA-REF6487 TAU-REF6488 + WORK-REF6489 LWORK-REF6490 INFO-REF6491)))) -(CFFI:DEFCFUN ("dgesc2_" %%DGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgesc2_" %%DGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3033,18 +3042,18 @@ (COMMON-LISP:*)) JPIV) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6541 ':INT32) (LDA-REF6543 ':INT32) - (SCALE-REF6547 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6541 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6543 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF6547 :DOUBLE) SCALE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6542 A) (RHS-REF6544 RHS) - (IPIV-REF6545 IPIV) - (JPIV-REF6546 JPIV)) - (%%DGESC2 N-REF6541 A-REF6542 LDA-REF6543 RHS-REF6544 IPIV-REF6545 - JPIV-REF6546 SCALE-REF6547)))) - -(CFFI:DEFCFUN ("dgesdd_" %%DGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6492 ':INT32) (LDA-REF6494 ':INT32) + (SCALE-REF6498 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6492 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6494 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF6498 :DOUBLE) SCALE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6493 A) (RHS-REF6495 RHS) + (IPIV-REF6496 IPIV) + (JPIV-REF6497 JPIV)) + (%%DGESC2 N-REF6492 A-REF6493 LDA-REF6494 RHS-REF6495 IPIV-REF6496 + JPIV-REF6497 SCALE-REF6498)))) + +(CFFI:DEFCFUN ("dgesdd_" %%DGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (M :POINTER) @@ -3087,26 +3096,26 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6549 ':INT32) (N-REF6550 ':INT32) - (LDA-REF6552 ':INT32) (LDU-REF6555 ':INT32) - (LDVT-REF6557 ':INT32) (LWORK-REF6559 ':INT32) - (INFO-REF6561 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6549 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6550 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6552 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6555 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6557 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6559 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6561 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6551 A) (S-REF6553 S) - (U-REF6554 U) (VT-REF6556 VT) - (WORK-REF6558 WORK) - (IWORK-REF6560 IWORK)) - (%%DGESDD JOBZ M-REF6549 N-REF6550 A-REF6551 LDA-REF6552 S-REF6553 - U-REF6554 LDU-REF6555 VT-REF6556 LDVT-REF6557 WORK-REF6558 - LWORK-REF6559 IWORK-REF6560 INFO-REF6561)))) - -(CFFI:DEFCFUN ("dgesv_" %%DGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6500 ':INT32) (N-REF6501 ':INT32) + (LDA-REF6503 ':INT32) (LDU-REF6506 ':INT32) + (LDVT-REF6508 ':INT32) (LWORK-REF6510 ':INT32) + (INFO-REF6512 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6500 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6501 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6503 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6506 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6508 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6510 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6512 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6502 A) (S-REF6504 S) + (U-REF6505 U) (VT-REF6507 VT) + (WORK-REF6509 WORK) + (IWORK-REF6511 IWORK)) + (%%DGESDD JOBZ M-REF6500 N-REF6501 A-REF6502 LDA-REF6503 S-REF6504 + U-REF6505 LDU-REF6506 VT-REF6507 LDVT-REF6508 WORK-REF6509 LWORK-REF6510 + IWORK-REF6511 INFO-REF6512)))) + +(CFFI:DEFCFUN ("dgesv_" %%DGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -3132,20 +3141,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6562 ':INT32) (NRHS-REF6563 ':INT32) - (LDA-REF6565 ':INT32) (LDB-REF6568 ':INT32) - (INFO-REF6569 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6562 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6563 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6565 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6568 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6569 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6564 A) (IPIV-REF6566 IPIV) - (B-REF6567 B)) - (%%DGESV N-REF6562 NRHS-REF6563 A-REF6564 LDA-REF6565 IPIV-REF6566 - B-REF6567 LDB-REF6568 INFO-REF6569)))) - -(CFFI:DEFCFUN ("dgesvd_" %%DGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6513 ':INT32) (NRHS-REF6514 ':INT32) + (LDA-REF6516 ':INT32) (LDB-REF6519 ':INT32) + (INFO-REF6520 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6513 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6514 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6516 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6519 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6520 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6515 A) (IPIV-REF6517 IPIV) + (B-REF6518 B)) + (%%DGESV N-REF6513 NRHS-REF6514 A-REF6515 LDA-REF6516 IPIV-REF6517 + B-REF6518 LDB-REF6519 INFO-REF6520)))) + +(CFFI:DEFCFUN ("dgesvd_" %%DGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBVT :STRING) @@ -3185,25 +3194,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6572 ':INT32) (N-REF6573 ':INT32) - (LDA-REF6575 ':INT32) (LDU-REF6578 ':INT32) - (LDVT-REF6580 ':INT32) (LWORK-REF6582 ':INT32) - (INFO-REF6583 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6572 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6573 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6575 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6578 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6580 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6582 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6583 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6574 A) (S-REF6576 S) - (U-REF6577 U) (VT-REF6579 VT) - (WORK-REF6581 WORK)) - (%%DGESVD JOBU JOBVT M-REF6572 N-REF6573 A-REF6574 LDA-REF6575 S-REF6576 - U-REF6577 LDU-REF6578 VT-REF6579 LDVT-REF6580 WORK-REF6581 - LWORK-REF6582 INFO-REF6583)))) - -(CFFI:DEFCFUN ("dgesvdq_" %%DGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6523 ':INT32) (N-REF6524 ':INT32) + (LDA-REF6526 ':INT32) (LDU-REF6529 ':INT32) + (LDVT-REF6531 ':INT32) (LWORK-REF6533 ':INT32) + (INFO-REF6534 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6523 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6524 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6526 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6529 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6531 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6533 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6534 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6525 A) (S-REF6527 S) + (U-REF6528 U) (VT-REF6530 VT) + (WORK-REF6532 WORK)) + (%%DGESVD JOBU JOBVT M-REF6523 N-REF6524 A-REF6525 LDA-REF6526 S-REF6527 + U-REF6528 LDU-REF6529 VT-REF6530 LDVT-REF6531 WORK-REF6532 LWORK-REF6533 + INFO-REF6534)))) + +(CFFI:DEFCFUN ("dgesvdq_" %%DGESVDQ :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBP :STRING) @@ -3265,33 +3275,33 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6589 ':INT32) (N-REF6590 ':INT32) - (LDA-REF6592 ':INT32) (LDU-REF6595 ':INT32) - (LDV-REF6597 ':INT32) (NUMRANK-REF6598 ':INT32) - (LIWORK-REF6600 ':INT32) (LWORK-REF6602 ':INT32) - (LRWORK-REF6604 ':INT32) (INFO-REF6605 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6589 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6590 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6592 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6595 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6597 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF6598 :INT32) NUMRANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6600 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6602 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF6604 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6605 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6591 A) (S-REF6593 S) - (U-REF6594 U) (V-REF6596 V) - (IWORK-REF6599 IWORK) - (WORK-REF6601 WORK) - (RWORK-REF6603 RWORK)) - (%%DGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF6589 N-REF6590 A-REF6591 - LDA-REF6592 S-REF6593 U-REF6594 LDU-REF6595 V-REF6596 - LDV-REF6597 NUMRANK-REF6598 IWORK-REF6599 LIWORK-REF6600 - WORK-REF6601 LWORK-REF6602 RWORK-REF6603 LRWORK-REF6604 - INFO-REF6605)))) - -(CFFI:DEFCFUN ("dgesvdx_" %%DGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6540 ':INT32) (N-REF6541 ':INT32) + (LDA-REF6543 ':INT32) (LDU-REF6546 ':INT32) + (LDV-REF6548 ':INT32) (NUMRANK-REF6549 ':INT32) + (LIWORK-REF6551 ':INT32) (LWORK-REF6553 ':INT32) + (LRWORK-REF6555 ':INT32) (INFO-REF6556 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6540 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6541 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6543 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6546 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6548 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF6549 :INT32) NUMRANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6551 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6553 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF6555 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6556 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6542 A) (S-REF6544 S) + (U-REF6545 U) (V-REF6547 V) + (IWORK-REF6550 IWORK) + (WORK-REF6552 WORK) + (RWORK-REF6554 RWORK)) + (%%DGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF6540 N-REF6541 A-REF6542 + LDA-REF6543 S-REF6544 U-REF6545 LDU-REF6546 V-REF6547 LDV-REF6548 + NUMRANK-REF6549 IWORK-REF6550 LIWORK-REF6551 WORK-REF6552 LWORK-REF6553 + RWORK-REF6554 LRWORK-REF6555 INFO-REF6556)))) + +(CFFI:DEFCFUN ("dgesvdx_" %%DGESVDX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBVT :STRING) @@ -3349,34 +3359,34 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6609 ':INT32) (N-REF6610 ':INT32) - (LDA-REF6612 ':INT32) (VL-REF6613 ':DOUBLE) - (VU-REF6614 ':DOUBLE) (IL-REF6615 ':INT32) - (IU-REF6616 ':INT32) (NS-REF6617 ':INT32) - (LDU-REF6620 ':INT32) (LDVT-REF6622 ':INT32) - (LWORK-REF6624 ':INT32) (INFO-REF6626 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6609 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6610 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6612 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF6613 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF6614 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF6615 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF6616 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF6617 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6620 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6622 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6624 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6626 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6611 A) (S-REF6618 S) - (U-REF6619 U) (VT-REF6621 VT) - (WORK-REF6623 WORK) - (IWORK-REF6625 IWORK)) - (%%DGESVDX JOBU JOBVT RANGE M-REF6609 N-REF6610 A-REF6611 LDA-REF6612 - VL-REF6613 VU-REF6614 IL-REF6615 IU-REF6616 NS-REF6617 - S-REF6618 U-REF6619 LDU-REF6620 VT-REF6621 LDVT-REF6622 - WORK-REF6623 LWORK-REF6624 IWORK-REF6625 INFO-REF6626)))) - -(CFFI:DEFCFUN ("dgesvj_" %%DGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6560 ':INT32) (N-REF6561 ':INT32) + (LDA-REF6563 ':INT32) (VL-REF6564 ':DOUBLE) + (VU-REF6565 ':DOUBLE) (IL-REF6566 ':INT32) + (IU-REF6567 ':INT32) (NS-REF6568 ':INT32) + (LDU-REF6571 ':INT32) (LDVT-REF6573 ':INT32) + (LWORK-REF6575 ':INT32) (INFO-REF6577 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6560 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6561 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6563 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF6564 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF6565 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF6566 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF6567 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF6568 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6571 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6573 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6575 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6577 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6562 A) (S-REF6569 S) + (U-REF6570 U) (VT-REF6572 VT) + (WORK-REF6574 WORK) + (IWORK-REF6576 IWORK)) + (%%DGESVDX JOBU JOBVT RANGE M-REF6560 N-REF6561 A-REF6562 LDA-REF6563 + VL-REF6564 VU-REF6565 IL-REF6566 IU-REF6567 NS-REF6568 S-REF6569 + U-REF6570 LDU-REF6571 VT-REF6572 LDVT-REF6573 WORK-REF6574 LWORK-REF6575 + IWORK-REF6576 INFO-REF6577)))) + +(CFFI:DEFCFUN ("dgesvj_" %%DGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBU :STRING) @@ -3416,24 +3426,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6630 ':INT32) (N-REF6631 ':INT32) - (LDA-REF6633 ':INT32) (MV-REF6635 ':INT32) - (LDV-REF6637 ':INT32) (LWORK-REF6639 ':INT32) - (INFO-REF6640 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6630 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6631 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6633 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF6635 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6637 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6639 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6640 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6632 A) (SVA-REF6634 SVA) - (V-REF6636 V) (WORK-REF6638 WORK)) - (%%DGESVJ JOBA JOBU JOBV M-REF6630 N-REF6631 A-REF6632 LDA-REF6633 - SVA-REF6634 MV-REF6635 V-REF6636 LDV-REF6637 WORK-REF6638 - LWORK-REF6639 INFO-REF6640)))) - -(CFFI:DEFCFUN ("dgesvx_" %%DGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6581 ':INT32) (N-REF6582 ':INT32) + (LDA-REF6584 ':INT32) (MV-REF6586 ':INT32) + (LDV-REF6588 ':INT32) (LWORK-REF6590 ':INT32) + (INFO-REF6591 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6581 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6582 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6584 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF6586 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6588 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6590 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6591 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6583 A) (SVA-REF6585 SVA) + (V-REF6587 V) (WORK-REF6589 WORK)) + (%%DGESVJ JOBA JOBU JOBV M-REF6581 N-REF6582 A-REF6583 LDA-REF6584 + SVA-REF6585 MV-REF6586 V-REF6587 LDV-REF6588 WORK-REF6589 LWORK-REF6590 + INFO-REF6591)))) + +(CFFI:DEFCFUN ("dgesvx_" %%DGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -3502,32 +3512,32 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6643 ':INT32) (NRHS-REF6644 ':INT32) - (LDA-REF6646 ':INT32) (LDAF-REF6648 ':INT32) - (LDB-REF6654 ':INT32) (LDX-REF6656 ':INT32) - (RCOND-REF6657 ':DOUBLE) (INFO-REF6662 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6643 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6644 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6646 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6648 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6654 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6656 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6657 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6662 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6645 A) (AF-REF6647 AF) - (IPIV-REF6649 IPIV) (R-REF6651 R) - (C-REF6652 C) (B-REF6653 B) - (X-REF6655 X) (FERR-REF6658 FERR) - (BERR-REF6659 BERR) - (WORK-REF6660 WORK) - (IWORK-REF6661 IWORK)) - (%%DGESVX FACT TRANS N-REF6643 NRHS-REF6644 A-REF6645 LDA-REF6646 - AF-REF6647 LDAF-REF6648 IPIV-REF6649 EQUED R-REF6651 C-REF6652 - B-REF6653 LDB-REF6654 X-REF6655 LDX-REF6656 RCOND-REF6657 - FERR-REF6658 BERR-REF6659 WORK-REF6660 IWORK-REF6661 - INFO-REF6662)))) - -(CFFI:DEFCFUN ("dgesvxx_" %%DGESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6594 ':INT32) (NRHS-REF6595 ':INT32) + (LDA-REF6597 ':INT32) (LDAF-REF6599 ':INT32) + (LDB-REF6605 ':INT32) (LDX-REF6607 ':INT32) + (RCOND-REF6608 ':DOUBLE) (INFO-REF6613 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6594 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6595 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6597 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6599 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6605 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6607 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6608 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6613 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6596 A) (AF-REF6598 AF) + (IPIV-REF6600 IPIV) (R-REF6602 R) + (C-REF6603 C) (B-REF6604 B) + (X-REF6606 X) (FERR-REF6609 FERR) + (BERR-REF6610 BERR) + (WORK-REF6611 WORK) + (IWORK-REF6612 IWORK)) + (%%DGESVX FACT TRANS N-REF6594 NRHS-REF6595 A-REF6596 LDA-REF6597 + AF-REF6598 LDAF-REF6599 IPIV-REF6600 EQUED R-REF6602 C-REF6603 B-REF6604 + LDB-REF6605 X-REF6606 LDX-REF6607 RCOND-REF6608 FERR-REF6609 + BERR-REF6610 WORK-REF6611 IWORK-REF6612 INFO-REF6613)))) + +(CFFI:DEFCFUN ("dgesvxx_" %%DGESVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -3612,43 +3622,43 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6665 ':INT32) (NRHS-REF6666 ':INT32) - (LDA-REF6668 ':INT32) (LDAF-REF6670 ':INT32) - (LDB-REF6676 ':INT32) (LDX-REF6678 ':INT32) - (RCOND-REF6679 ':DOUBLE) - (RPVGRW-REF6680 ':DOUBLE) - (N_ERR_BNDS-REF6682 ':INT32) - (NPARAMS-REF6685 ':INT32) (INFO-REF6689 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6665 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6666 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6668 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6670 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6676 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6678 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6679 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF6680 :DOUBLE) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6682 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6685 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6689 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6667 A) (AF-REF6669 AF) - (IPIV-REF6671 IPIV) (R-REF6673 R) - (C-REF6674 C) (B-REF6675 B) - (X-REF6677 X) (BERR-REF6681 BERR) - (ERR_BNDS_NORM-REF6683 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6616 ':INT32) (NRHS-REF6617 ':INT32) + (LDA-REF6619 ':INT32) (LDAF-REF6621 ':INT32) + (LDB-REF6627 ':INT32) (LDX-REF6629 ':INT32) + (RCOND-REF6630 ':DOUBLE) + (RPVGRW-REF6631 ':DOUBLE) + (N_ERR_BNDS-REF6633 ':INT32) + (NPARAMS-REF6636 ':INT32) (INFO-REF6640 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6616 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6617 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6619 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6621 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6627 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6629 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6630 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF6631 :DOUBLE) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6633 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6636 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6640 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6618 A) (AF-REF6620 AF) + (IPIV-REF6622 IPIV) (R-REF6624 R) + (C-REF6625 C) (B-REF6626 B) + (X-REF6628 X) (BERR-REF6632 BERR) + (ERR_BNDS_NORM-REF6634 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF6684 + (ERR_BNDS_COMP-REF6635 ERR_BNDS_COMP) - (PARAMS-REF6686 PARAMS) - (WORK-REF6687 WORK) - (IWORK-REF6688 IWORK)) - (%%DGESVXX FACT TRANS N-REF6665 NRHS-REF6666 A-REF6667 LDA-REF6668 - AF-REF6669 LDAF-REF6670 IPIV-REF6671 EQUED R-REF6673 C-REF6674 - B-REF6675 LDB-REF6676 X-REF6677 LDX-REF6678 RCOND-REF6679 - RPVGRW-REF6680 BERR-REF6681 N_ERR_BNDS-REF6682 - ERR_BNDS_NORM-REF6683 ERR_BNDS_COMP-REF6684 NPARAMS-REF6685 - PARAMS-REF6686 WORK-REF6687 IWORK-REF6688 INFO-REF6689)))) + (PARAMS-REF6637 PARAMS) + (WORK-REF6638 WORK) + (IWORK-REF6639 IWORK)) + (%%DGESVXX FACT TRANS N-REF6616 NRHS-REF6617 A-REF6618 LDA-REF6619 + AF-REF6620 LDAF-REF6621 IPIV-REF6622 EQUED R-REF6624 C-REF6625 B-REF6626 + LDB-REF6627 X-REF6628 LDX-REF6629 RCOND-REF6630 RPVGRW-REF6631 + BERR-REF6632 N_ERR_BNDS-REF6633 ERR_BNDS_NORM-REF6634 + ERR_BNDS_COMP-REF6635 NPARAMS-REF6636 PARAMS-REF6637 WORK-REF6638 + IWORK-REF6639 INFO-REF6640)))) -(CFFI:DEFCFUN ("dgetc2_" %%DGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgetc2_" %%DGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3672,17 +3682,17 @@ (COMMON-LISP:*)) JPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6690 ':INT32) (LDA-REF6692 ':INT32) - (INFO-REF6695 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6690 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6692 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6695 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6691 A) (IPIV-REF6693 IPIV) - (JPIV-REF6694 JPIV)) - (%%DGETC2 N-REF6690 A-REF6691 LDA-REF6692 IPIV-REF6693 JPIV-REF6694 - INFO-REF6695)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6641 ':INT32) (LDA-REF6643 ':INT32) + (INFO-REF6646 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6641 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6643 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6646 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6642 A) (IPIV-REF6644 IPIV) + (JPIV-REF6645 JPIV)) + (%%DGETC2 N-REF6641 A-REF6642 LDA-REF6643 IPIV-REF6644 JPIV-REF6645 + INFO-REF6646)))) -(CFFI:DEFCFUN ("dgetf2_" %%DGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgetf2_" %%DGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3703,17 +3713,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6696 ':INT32) (N-REF6697 ':INT32) - (LDA-REF6699 ':INT32) (INFO-REF6701 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6696 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6697 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6699 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6701 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6698 A) (IPIV-REF6700 IPIV)) - (%%DGETF2 M-REF6696 N-REF6697 A-REF6698 LDA-REF6699 IPIV-REF6700 - INFO-REF6701)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6647 ':INT32) (N-REF6648 ':INT32) + (LDA-REF6650 ':INT32) (INFO-REF6652 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6647 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6648 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6650 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6652 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6649 A) (IPIV-REF6651 IPIV)) + (%%DGETF2 M-REF6647 N-REF6648 A-REF6649 LDA-REF6650 IPIV-REF6651 + INFO-REF6652)))) -(CFFI:DEFCFUN ("dgetrf_" %%DGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgetrf_" %%DGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3734,17 +3744,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6702 ':INT32) (N-REF6703 ':INT32) - (LDA-REF6705 ':INT32) (INFO-REF6707 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6702 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6703 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6705 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6707 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6704 A) (IPIV-REF6706 IPIV)) - (%%DGETRF M-REF6702 N-REF6703 A-REF6704 LDA-REF6705 IPIV-REF6706 - INFO-REF6707)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6653 ':INT32) (N-REF6654 ':INT32) + (LDA-REF6656 ':INT32) (INFO-REF6658 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6653 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6654 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6656 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6658 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6655 A) (IPIV-REF6657 IPIV)) + (%%DGETRF M-REF6653 N-REF6654 A-REF6655 LDA-REF6656 IPIV-REF6657 + INFO-REF6658)))) -(CFFI:DEFCFUN ("dgetrf2_" %%DGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgetrf2_" %%DGETRF2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3765,17 +3776,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6708 ':INT32) (N-REF6709 ':INT32) - (LDA-REF6711 ':INT32) (INFO-REF6713 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6708 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6709 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6711 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6713 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6710 A) (IPIV-REF6712 IPIV)) - (%%DGETRF2 M-REF6708 N-REF6709 A-REF6710 LDA-REF6711 IPIV-REF6712 - INFO-REF6713)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6659 ':INT32) (N-REF6660 ':INT32) + (LDA-REF6662 ':INT32) (INFO-REF6664 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6659 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6660 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6662 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6664 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6661 A) (IPIV-REF6663 IPIV)) + (%%DGETRF2 M-REF6659 N-REF6660 A-REF6661 LDA-REF6662 IPIV-REF6663 + INFO-REF6664)))) -(CFFI:DEFCFUN ("dgetri_" %%DGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgetri_" %%DGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3800,18 +3811,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6714 ':INT32) (LDA-REF6716 ':INT32) - (LWORK-REF6719 ':INT32) (INFO-REF6720 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6714 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6716 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6719 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6720 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6715 A) (IPIV-REF6717 IPIV) - (WORK-REF6718 WORK)) - (%%DGETRI N-REF6714 A-REF6715 LDA-REF6716 IPIV-REF6717 WORK-REF6718 - LWORK-REF6719 INFO-REF6720)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6665 ':INT32) (LDA-REF6667 ':INT32) + (LWORK-REF6670 ':INT32) (INFO-REF6671 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6665 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6667 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6670 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6671 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6666 A) (IPIV-REF6668 IPIV) + (WORK-REF6669 WORK)) + (%%DGETRI N-REF6665 A-REF6666 LDA-REF6667 IPIV-REF6668 WORK-REF6669 + LWORK-REF6670 INFO-REF6671)))) -(CFFI:DEFCFUN ("dgetrs_" %%DGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgetrs_" %%DGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -3839,20 +3850,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6722 ':INT32) (NRHS-REF6723 ':INT32) - (LDA-REF6725 ':INT32) (LDB-REF6728 ':INT32) - (INFO-REF6729 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6722 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6723 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6725 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6728 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6729 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6724 A) (IPIV-REF6726 IPIV) - (B-REF6727 B)) - (%%DGETRS TRANS N-REF6722 NRHS-REF6723 A-REF6724 LDA-REF6725 IPIV-REF6726 - B-REF6727 LDB-REF6728 INFO-REF6729)))) - -(CFFI:DEFCFUN ("dgetsls_" %%DGETSLS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6673 ':INT32) (NRHS-REF6674 ':INT32) + (LDA-REF6676 ':INT32) (LDB-REF6679 ':INT32) + (INFO-REF6680 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6673 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6674 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6676 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6679 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6680 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6675 A) (IPIV-REF6677 IPIV) + (B-REF6678 B)) + (%%DGETRS TRANS N-REF6673 NRHS-REF6674 A-REF6675 LDA-REF6676 IPIV-REF6677 + B-REF6678 LDB-REF6679 INFO-REF6680)))) + +(CFFI:DEFCFUN ("dgetsls_" %%DGETSLS :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (M :POINTER) @@ -3883,24 +3895,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6731 ':INT32) (N-REF6732 ':INT32) - (NRHS-REF6733 ':INT32) (LDA-REF6735 ':INT32) - (LDB-REF6737 ':INT32) (LWORK-REF6739 ':INT32) - (INFO-REF6740 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6731 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6732 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6733 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6735 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6737 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6739 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6740 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6734 A) (B-REF6736 B) - (WORK-REF6738 WORK)) - (%%DGETSLS TRANS M-REF6731 N-REF6732 NRHS-REF6733 A-REF6734 LDA-REF6735 - B-REF6736 LDB-REF6737 WORK-REF6738 LWORK-REF6739 - INFO-REF6740)))) - -(CFFI:DEFCFUN ("dggbak_" %%DGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6682 ':INT32) (N-REF6683 ':INT32) + (NRHS-REF6684 ':INT32) (LDA-REF6686 ':INT32) + (LDB-REF6688 ':INT32) (LWORK-REF6690 ':INT32) + (INFO-REF6691 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6682 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6683 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6684 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6686 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6688 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6690 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6691 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6685 A) (B-REF6687 B) + (WORK-REF6689 WORK)) + (%%DGETSLS TRANS M-REF6682 N-REF6683 NRHS-REF6684 A-REF6685 LDA-REF6686 + B-REF6687 LDB-REF6688 WORK-REF6689 LWORK-REF6690 INFO-REF6691)))) + +(CFFI:DEFCFUN ("dggbak_" %%DGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (SIDE :STRING) @@ -3932,22 +3943,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6743 ':INT32) (ILO-REF6744 ':INT32) - (IHI-REF6745 ':INT32) (M-REF6748 ':INT32) - (LDV-REF6750 ':INT32) (INFO-REF6751 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6743 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6744 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6745 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6748 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6750 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6751 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF6746 LSCALE) - (RSCALE-REF6747 RSCALE) - (V-REF6749 V)) - (%%DGGBAK JOB SIDE N-REF6743 ILO-REF6744 IHI-REF6745 LSCALE-REF6746 - RSCALE-REF6747 M-REF6748 V-REF6749 LDV-REF6750 INFO-REF6751)))) - -(CFFI:DEFCFUN ("dggbal_" %%DGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6694 ':INT32) (ILO-REF6695 ':INT32) + (IHI-REF6696 ':INT32) (M-REF6699 ':INT32) + (LDV-REF6701 ':INT32) (INFO-REF6702 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6694 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6695 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6696 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6699 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6701 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6702 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF6697 LSCALE) + (RSCALE-REF6698 RSCALE) + (V-REF6700 V)) + (%%DGGBAK JOB SIDE N-REF6694 ILO-REF6695 IHI-REF6696 LSCALE-REF6697 + RSCALE-REF6698 M-REF6699 V-REF6700 LDV-REF6701 INFO-REF6702)))) + +(CFFI:DEFCFUN ("dggbal_" %%DGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (N :POINTER) @@ -3984,24 +3995,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6753 ':INT32) (LDA-REF6755 ':INT32) - (LDB-REF6757 ':INT32) (ILO-REF6758 ':INT32) - (IHI-REF6759 ':INT32) (INFO-REF6763 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6753 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6755 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6757 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6758 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6759 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6763 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6754 A) (B-REF6756 B) - (LSCALE-REF6760 LSCALE) - (RSCALE-REF6761 RSCALE) - (WORK-REF6762 WORK)) - (%%DGGBAL JOB N-REF6753 A-REF6754 LDA-REF6755 B-REF6756 LDB-REF6757 - ILO-REF6758 IHI-REF6759 LSCALE-REF6760 RSCALE-REF6761 - WORK-REF6762 INFO-REF6763)))) - -(CFFI:DEFCFUN ("dgges_" %%DGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6704 ':INT32) (LDA-REF6706 ':INT32) + (LDB-REF6708 ':INT32) (ILO-REF6709 ':INT32) + (IHI-REF6710 ':INT32) (INFO-REF6714 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6704 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6706 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6708 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6709 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6710 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6714 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6705 A) (B-REF6707 B) + (LSCALE-REF6711 LSCALE) + (RSCALE-REF6712 RSCALE) + (WORK-REF6713 WORK)) + (%%DGGBAL JOB N-REF6704 A-REF6705 LDA-REF6706 B-REF6707 LDB-REF6708 + ILO-REF6709 IHI-REF6710 LSCALE-REF6711 RSCALE-REF6712 WORK-REF6713 + INFO-REF6714)))) + +(CFFI:DEFCFUN ("dgges_" %%DGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -4067,34 +4078,33 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6767 ':INT32) (N-REF6768 ':INT32) - (LDA-REF6770 ':INT32) (LDB-REF6772 ':INT32) - (SDIM-REF6773 ':INT32) (LDVSL-REF6778 ':INT32) - (LDVSR-REF6780 ':INT32) (LWORK-REF6782 ':INT32) - (INFO-REF6784 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6767 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6768 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6770 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6772 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6773 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6778 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6780 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6782 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6784 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6769 A) (B-REF6771 B) - (ALPHAR-REF6774 ALPHAR) - (ALPHAI-REF6775 ALPHAI) - (BETA-REF6776 BETA) - (VSL-REF6777 VSL) (VSR-REF6779 VSR) - (WORK-REF6781 WORK) - (BWORK-REF6783 BWORK)) - (%%DGGES JOBVSL JOBVSR SORT SELCTG-REF6767 N-REF6768 A-REF6769 - LDA-REF6770 B-REF6771 LDB-REF6772 SDIM-REF6773 ALPHAR-REF6774 - ALPHAI-REF6775 BETA-REF6776 VSL-REF6777 LDVSL-REF6778 - VSR-REF6779 LDVSR-REF6780 WORK-REF6781 LWORK-REF6782 - BWORK-REF6783 INFO-REF6784)))) - -(CFFI:DEFCFUN ("dgges3_" %%DGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6718 ':INT32) (N-REF6719 ':INT32) + (LDA-REF6721 ':INT32) (LDB-REF6723 ':INT32) + (SDIM-REF6724 ':INT32) (LDVSL-REF6729 ':INT32) + (LDVSR-REF6731 ':INT32) (LWORK-REF6733 ':INT32) + (INFO-REF6735 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6718 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6719 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6721 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6723 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6724 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6729 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6731 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6733 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6735 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6720 A) (B-REF6722 B) + (ALPHAR-REF6725 ALPHAR) + (ALPHAI-REF6726 ALPHAI) + (BETA-REF6727 BETA) + (VSL-REF6728 VSL) (VSR-REF6730 VSR) + (WORK-REF6732 WORK) + (BWORK-REF6734 BWORK)) + (%%DGGES JOBVSL JOBVSR SORT SELCTG-REF6718 N-REF6719 A-REF6720 + LDA-REF6721 B-REF6722 LDB-REF6723 SDIM-REF6724 ALPHAR-REF6725 + ALPHAI-REF6726 BETA-REF6727 VSL-REF6728 LDVSL-REF6729 VSR-REF6730 + LDVSR-REF6731 WORK-REF6732 LWORK-REF6733 BWORK-REF6734 INFO-REF6735)))) + +(CFFI:DEFCFUN ("dgges3_" %%DGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -4160,34 +4170,33 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6788 ':INT32) (N-REF6789 ':INT32) - (LDA-REF6791 ':INT32) (LDB-REF6793 ':INT32) - (SDIM-REF6794 ':INT32) (LDVSL-REF6799 ':INT32) - (LDVSR-REF6801 ':INT32) (LWORK-REF6803 ':INT32) - (INFO-REF6805 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6788 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6789 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6791 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6793 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6794 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6799 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6801 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6803 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6805 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6790 A) (B-REF6792 B) - (ALPHAR-REF6795 ALPHAR) - (ALPHAI-REF6796 ALPHAI) - (BETA-REF6797 BETA) - (VSL-REF6798 VSL) (VSR-REF6800 VSR) - (WORK-REF6802 WORK) - (BWORK-REF6804 BWORK)) - (%%DGGES3 JOBVSL JOBVSR SORT SELCTG-REF6788 N-REF6789 A-REF6790 - LDA-REF6791 B-REF6792 LDB-REF6793 SDIM-REF6794 ALPHAR-REF6795 - ALPHAI-REF6796 BETA-REF6797 VSL-REF6798 LDVSL-REF6799 - VSR-REF6800 LDVSR-REF6801 WORK-REF6802 LWORK-REF6803 - BWORK-REF6804 INFO-REF6805)))) - -(CFFI:DEFCFUN ("dggesx_" %%DGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6739 ':INT32) (N-REF6740 ':INT32) + (LDA-REF6742 ':INT32) (LDB-REF6744 ':INT32) + (SDIM-REF6745 ':INT32) (LDVSL-REF6750 ':INT32) + (LDVSR-REF6752 ':INT32) (LWORK-REF6754 ':INT32) + (INFO-REF6756 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6739 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6740 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6742 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6744 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6745 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6750 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6752 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6754 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6756 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6741 A) (B-REF6743 B) + (ALPHAR-REF6746 ALPHAR) + (ALPHAI-REF6747 ALPHAI) + (BETA-REF6748 BETA) + (VSL-REF6749 VSL) (VSR-REF6751 VSR) + (WORK-REF6753 WORK) + (BWORK-REF6755 BWORK)) + (%%DGGES3 JOBVSL JOBVSR SORT SELCTG-REF6739 N-REF6740 A-REF6741 + LDA-REF6742 B-REF6743 LDB-REF6744 SDIM-REF6745 ALPHAR-REF6746 + ALPHAI-REF6747 BETA-REF6748 VSL-REF6749 LDVSL-REF6750 VSR-REF6751 + LDVSR-REF6752 WORK-REF6753 LWORK-REF6754 BWORK-REF6755 INFO-REF6756)))) + +(CFFI:DEFCFUN ("dggesx_" %%DGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -4271,39 +4280,38 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6809 ':INT32) (N-REF6811 ':INT32) - (LDA-REF6813 ':INT32) (LDB-REF6815 ':INT32) - (SDIM-REF6816 ':INT32) (LDVSL-REF6821 ':INT32) - (LDVSR-REF6823 ':INT32) (LWORK-REF6827 ':INT32) - (LIWORK-REF6829 ':INT32) (INFO-REF6831 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6809 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6811 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6813 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6815 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6816 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6821 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6823 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6827 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6829 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6831 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6812 A) (B-REF6814 B) - (ALPHAR-REF6817 ALPHAR) - (ALPHAI-REF6818 ALPHAI) - (BETA-REF6819 BETA) - (VSL-REF6820 VSL) (VSR-REF6822 VSR) - (RCONDE-REF6824 RCONDE) - (RCONDV-REF6825 RCONDV) - (WORK-REF6826 WORK) - (IWORK-REF6828 IWORK) - (BWORK-REF6830 BWORK)) - (%%DGGESX JOBVSL JOBVSR SORT SELCTG-REF6809 SENSE N-REF6811 A-REF6812 - LDA-REF6813 B-REF6814 LDB-REF6815 SDIM-REF6816 ALPHAR-REF6817 - ALPHAI-REF6818 BETA-REF6819 VSL-REF6820 LDVSL-REF6821 - VSR-REF6822 LDVSR-REF6823 RCONDE-REF6824 RCONDV-REF6825 - WORK-REF6826 LWORK-REF6827 IWORK-REF6828 LIWORK-REF6829 - BWORK-REF6830 INFO-REF6831)))) - -(CFFI:DEFCFUN ("dggev_" %%DGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6760 ':INT32) (N-REF6762 ':INT32) + (LDA-REF6764 ':INT32) (LDB-REF6766 ':INT32) + (SDIM-REF6767 ':INT32) (LDVSL-REF6772 ':INT32) + (LDVSR-REF6774 ':INT32) (LWORK-REF6778 ':INT32) + (LIWORK-REF6780 ':INT32) (INFO-REF6782 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6760 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6762 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6764 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6766 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6767 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6772 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6774 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6778 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6780 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6782 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6763 A) (B-REF6765 B) + (ALPHAR-REF6768 ALPHAR) + (ALPHAI-REF6769 ALPHAI) + (BETA-REF6770 BETA) + (VSL-REF6771 VSL) (VSR-REF6773 VSR) + (RCONDE-REF6775 RCONDE) + (RCONDV-REF6776 RCONDV) + (WORK-REF6777 WORK) + (IWORK-REF6779 IWORK) + (BWORK-REF6781 BWORK)) + (%%DGGESX JOBVSL JOBVSR SORT SELCTG-REF6760 SENSE N-REF6762 A-REF6763 + LDA-REF6764 B-REF6765 LDB-REF6766 SDIM-REF6767 ALPHAR-REF6768 + ALPHAI-REF6769 BETA-REF6770 VSL-REF6771 LDVSL-REF6772 VSR-REF6773 + LDVSR-REF6774 RCONDE-REF6775 RCONDV-REF6776 WORK-REF6777 LWORK-REF6778 + IWORK-REF6779 LIWORK-REF6780 BWORK-REF6781 INFO-REF6782)))) + +(CFFI:DEFCFUN ("dggev_" %%DGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -4356,28 +4364,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6834 ':INT32) (LDA-REF6836 ':INT32) - (LDB-REF6838 ':INT32) (LDVL-REF6843 ':INT32) - (LDVR-REF6845 ':INT32) (LWORK-REF6847 ':INT32) - (INFO-REF6848 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6834 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6836 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6838 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6843 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6845 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6847 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6848 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6835 A) (B-REF6837 B) - (ALPHAR-REF6839 ALPHAR) - (ALPHAI-REF6840 ALPHAI) - (BETA-REF6841 BETA) (VL-REF6842 VL) - (VR-REF6844 VR) (WORK-REF6846 WORK)) - (%%DGGEV JOBVL JOBVR N-REF6834 A-REF6835 LDA-REF6836 B-REF6837 - LDB-REF6838 ALPHAR-REF6839 ALPHAI-REF6840 BETA-REF6841 - VL-REF6842 LDVL-REF6843 VR-REF6844 LDVR-REF6845 WORK-REF6846 - LWORK-REF6847 INFO-REF6848)))) - -(CFFI:DEFCFUN ("dggev3_" %%DGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6785 ':INT32) (LDA-REF6787 ':INT32) + (LDB-REF6789 ':INT32) (LDVL-REF6794 ':INT32) + (LDVR-REF6796 ':INT32) (LWORK-REF6798 ':INT32) + (INFO-REF6799 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6785 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6787 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6789 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6794 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6796 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6798 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6799 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6786 A) (B-REF6788 B) + (ALPHAR-REF6790 ALPHAR) + (ALPHAI-REF6791 ALPHAI) + (BETA-REF6792 BETA) (VL-REF6793 VL) + (VR-REF6795 VR) (WORK-REF6797 WORK)) + (%%DGGEV JOBVL JOBVR N-REF6785 A-REF6786 LDA-REF6787 B-REF6788 + LDB-REF6789 ALPHAR-REF6790 ALPHAI-REF6791 BETA-REF6792 VL-REF6793 + LDVL-REF6794 VR-REF6795 LDVR-REF6796 WORK-REF6797 LWORK-REF6798 + INFO-REF6799)))) + +(CFFI:DEFCFUN ("dggev3_" %%DGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -4430,28 +4438,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6851 ':INT32) (LDA-REF6853 ':INT32) - (LDB-REF6855 ':INT32) (LDVL-REF6860 ':INT32) - (LDVR-REF6862 ':INT32) (LWORK-REF6864 ':INT32) - (INFO-REF6865 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6851 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6853 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6855 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6860 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6862 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6864 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6865 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6852 A) (B-REF6854 B) - (ALPHAR-REF6856 ALPHAR) - (ALPHAI-REF6857 ALPHAI) - (BETA-REF6858 BETA) (VL-REF6859 VL) - (VR-REF6861 VR) (WORK-REF6863 WORK)) - (%%DGGEV3 JOBVL JOBVR N-REF6851 A-REF6852 LDA-REF6853 B-REF6854 - LDB-REF6855 ALPHAR-REF6856 ALPHAI-REF6857 BETA-REF6858 - VL-REF6859 LDVL-REF6860 VR-REF6861 LDVR-REF6862 WORK-REF6863 - LWORK-REF6864 INFO-REF6865)))) - -(CFFI:DEFCFUN ("dggevx_" %%DGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6802 ':INT32) (LDA-REF6804 ':INT32) + (LDB-REF6806 ':INT32) (LDVL-REF6811 ':INT32) + (LDVR-REF6813 ':INT32) (LWORK-REF6815 ':INT32) + (INFO-REF6816 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6802 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6804 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6806 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6811 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6813 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6815 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6816 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6803 A) (B-REF6805 B) + (ALPHAR-REF6807 ALPHAR) + (ALPHAI-REF6808 ALPHAI) + (BETA-REF6809 BETA) (VL-REF6810 VL) + (VR-REF6812 VR) (WORK-REF6814 WORK)) + (%%DGGEV3 JOBVL JOBVR N-REF6802 A-REF6803 LDA-REF6804 B-REF6805 + LDB-REF6806 ALPHAR-REF6807 ALPHAI-REF6808 BETA-REF6809 VL-REF6810 + LDVL-REF6811 VR-REF6812 LDVR-REF6813 WORK-REF6814 LWORK-REF6815 + INFO-REF6816)))) + +(CFFI:DEFCFUN ("dggevx_" %%DGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (BALANC :STRING) (JOBVL :STRING) @@ -4543,44 +4551,43 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6870 ':INT32) (LDA-REF6872 ':INT32) - (LDB-REF6874 ':INT32) (LDVL-REF6879 ':INT32) - (LDVR-REF6881 ':INT32) (ILO-REF6882 ':INT32) - (IHI-REF6883 ':INT32) (ABNRM-REF6886 ':DOUBLE) - (BBNRM-REF6887 ':DOUBLE) (LWORK-REF6891 ':INT32) - (INFO-REF6894 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6870 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6872 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6874 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6879 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6881 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6882 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6883 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6886 :DOUBLE) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF6887 :DOUBLE) BBNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6891 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6894 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6871 A) (B-REF6873 B) - (ALPHAR-REF6875 ALPHAR) - (ALPHAI-REF6876 ALPHAI) - (BETA-REF6877 BETA) (VL-REF6878 VL) - (VR-REF6880 VR) - (LSCALE-REF6884 LSCALE) - (RSCALE-REF6885 RSCALE) - (RCONDE-REF6888 RCONDE) - (RCONDV-REF6889 RCONDV) - (WORK-REF6890 WORK) - (IWORK-REF6892 IWORK) - (BWORK-REF6893 BWORK)) - (%%DGGEVX BALANC JOBVL JOBVR SENSE N-REF6870 A-REF6871 LDA-REF6872 - B-REF6873 LDB-REF6874 ALPHAR-REF6875 ALPHAI-REF6876 - BETA-REF6877 VL-REF6878 LDVL-REF6879 VR-REF6880 LDVR-REF6881 - ILO-REF6882 IHI-REF6883 LSCALE-REF6884 RSCALE-REF6885 - ABNRM-REF6886 BBNRM-REF6887 RCONDE-REF6888 RCONDV-REF6889 - WORK-REF6890 LWORK-REF6891 IWORK-REF6892 BWORK-REF6893 - INFO-REF6894)))) - -(CFFI:DEFCFUN ("dggglm_" %%DGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6821 ':INT32) (LDA-REF6823 ':INT32) + (LDB-REF6825 ':INT32) (LDVL-REF6830 ':INT32) + (LDVR-REF6832 ':INT32) (ILO-REF6833 ':INT32) + (IHI-REF6834 ':INT32) (ABNRM-REF6837 ':DOUBLE) + (BBNRM-REF6838 ':DOUBLE) (LWORK-REF6842 ':INT32) + (INFO-REF6845 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6821 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6823 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6825 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6830 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6832 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6833 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6834 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6837 :DOUBLE) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF6838 :DOUBLE) BBNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6842 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6845 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6822 A) (B-REF6824 B) + (ALPHAR-REF6826 ALPHAR) + (ALPHAI-REF6827 ALPHAI) + (BETA-REF6828 BETA) (VL-REF6829 VL) + (VR-REF6831 VR) + (LSCALE-REF6835 LSCALE) + (RSCALE-REF6836 RSCALE) + (RCONDE-REF6839 RCONDE) + (RCONDV-REF6840 RCONDV) + (WORK-REF6841 WORK) + (IWORK-REF6843 IWORK) + (BWORK-REF6844 BWORK)) + (%%DGGEVX BALANC JOBVL JOBVR SENSE N-REF6821 A-REF6822 LDA-REF6823 + B-REF6824 LDB-REF6825 ALPHAR-REF6826 ALPHAI-REF6827 BETA-REF6828 + VL-REF6829 LDVL-REF6830 VR-REF6831 LDVR-REF6832 ILO-REF6833 IHI-REF6834 + LSCALE-REF6835 RSCALE-REF6836 ABNRM-REF6837 BBNRM-REF6838 RCONDE-REF6839 + RCONDV-REF6840 WORK-REF6841 LWORK-REF6842 IWORK-REF6843 BWORK-REF6844 + INFO-REF6845)))) + +(CFFI:DEFCFUN ("dggglm_" %%DGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (M :POINTER) @@ -4618,25 +4625,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6895 ':INT32) (M-REF6896 ':INT32) - (P-REF6897 ':INT32) (LDA-REF6899 ':INT32) - (LDB-REF6901 ':INT32) (LWORK-REF6906 ':INT32) - (INFO-REF6907 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6895 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6896 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6897 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6899 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6901 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6906 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6907 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6898 A) (B-REF6900 B) - (D-REF6902 D) (X-REF6903 X) - (Y-REF6904 Y) (WORK-REF6905 WORK)) - (%%DGGGLM N-REF6895 M-REF6896 P-REF6897 A-REF6898 LDA-REF6899 B-REF6900 - LDB-REF6901 D-REF6902 X-REF6903 Y-REF6904 WORK-REF6905 - LWORK-REF6906 INFO-REF6907)))) - -(CFFI:DEFCFUN ("dgghd3_" %%DGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6846 ':INT32) (M-REF6847 ':INT32) + (P-REF6848 ':INT32) (LDA-REF6850 ':INT32) + (LDB-REF6852 ':INT32) (LWORK-REF6857 ':INT32) + (INFO-REF6858 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6846 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6847 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6848 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6850 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6852 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6857 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6858 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6849 A) (B-REF6851 B) + (D-REF6853 D) (X-REF6854 X) + (Y-REF6855 Y) (WORK-REF6856 WORK)) + (%%DGGGLM N-REF6846 M-REF6847 P-REF6848 A-REF6849 LDA-REF6850 B-REF6851 + LDB-REF6852 D-REF6853 X-REF6854 Y-REF6855 WORK-REF6856 LWORK-REF6857 + INFO-REF6858)))) + +(CFFI:DEFCFUN ("dgghd3_" %%DGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (COMPZ :STRING) @@ -4681,29 +4688,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6910 ':INT32) (ILO-REF6911 ':INT32) - (IHI-REF6912 ':INT32) (LDA-REF6914 ':INT32) - (LDB-REF6916 ':INT32) (LDQ-REF6918 ':INT32) - (LDZ-REF6920 ':INT32) (LWORK-REF6922 ':INT32) - (INFO-REF6923 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6910 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6911 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6912 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6914 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6916 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6918 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6920 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6922 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6923 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6913 A) (B-REF6915 B) - (Q-REF6917 Q) (Z-REF6919 Z) - (WORK-REF6921 WORK)) - (%%DGGHD3 COMPQ COMPZ N-REF6910 ILO-REF6911 IHI-REF6912 A-REF6913 - LDA-REF6914 B-REF6915 LDB-REF6916 Q-REF6917 LDQ-REF6918 - Z-REF6919 LDZ-REF6920 WORK-REF6921 LWORK-REF6922 - INFO-REF6923)))) - -(CFFI:DEFCFUN ("dgghrd_" %%DGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6861 ':INT32) (ILO-REF6862 ':INT32) + (IHI-REF6863 ':INT32) (LDA-REF6865 ':INT32) + (LDB-REF6867 ':INT32) (LDQ-REF6869 ':INT32) + (LDZ-REF6871 ':INT32) (LWORK-REF6873 ':INT32) + (INFO-REF6874 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6861 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6862 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6863 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6865 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6867 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6869 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6871 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6873 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6874 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6864 A) (B-REF6866 B) + (Q-REF6868 Q) (Z-REF6870 Z) + (WORK-REF6872 WORK)) + (%%DGGHD3 COMPQ COMPZ N-REF6861 ILO-REF6862 IHI-REF6863 A-REF6864 + LDA-REF6865 B-REF6866 LDB-REF6867 Q-REF6868 LDQ-REF6869 Z-REF6870 + LDZ-REF6871 WORK-REF6872 LWORK-REF6873 INFO-REF6874)))) + +(CFFI:DEFCFUN ("dgghrd_" %%DGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (COMPZ :STRING) @@ -4740,25 +4746,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6926 ':INT32) (ILO-REF6927 ':INT32) - (IHI-REF6928 ':INT32) (LDA-REF6930 ':INT32) - (LDB-REF6932 ':INT32) (LDQ-REF6934 ':INT32) - (LDZ-REF6936 ':INT32) (INFO-REF6937 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6926 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6927 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6928 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6930 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6932 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6934 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6936 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6937 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6929 A) (B-REF6931 B) - (Q-REF6933 Q) (Z-REF6935 Z)) - (%%DGGHRD COMPQ COMPZ N-REF6926 ILO-REF6927 IHI-REF6928 A-REF6929 - LDA-REF6930 B-REF6931 LDB-REF6932 Q-REF6933 LDQ-REF6934 - Z-REF6935 LDZ-REF6936 INFO-REF6937)))) - -(CFFI:DEFCFUN ("dgglse_" %%DGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6877 ':INT32) (ILO-REF6878 ':INT32) + (IHI-REF6879 ':INT32) (LDA-REF6881 ':INT32) + (LDB-REF6883 ':INT32) (LDQ-REF6885 ':INT32) + (LDZ-REF6887 ':INT32) (INFO-REF6888 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6877 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6878 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6879 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6881 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6883 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6885 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6887 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6888 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6880 A) (B-REF6882 B) + (Q-REF6884 Q) (Z-REF6886 Z)) + (%%DGGHRD COMPQ COMPZ N-REF6877 ILO-REF6878 IHI-REF6879 A-REF6880 + LDA-REF6881 B-REF6882 LDB-REF6883 Q-REF6884 LDQ-REF6885 Z-REF6886 + LDZ-REF6887 INFO-REF6888)))) + +(CFFI:DEFCFUN ("dgglse_" %%DGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4796,25 +4802,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6938 ':INT32) (N-REF6939 ':INT32) - (P-REF6940 ':INT32) (LDA-REF6942 ':INT32) - (LDB-REF6944 ':INT32) (LWORK-REF6949 ':INT32) - (INFO-REF6950 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6938 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6939 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6940 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6942 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6944 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6949 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6950 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6941 A) (B-REF6943 B) - (C-REF6945 C) (D-REF6946 D) - (X-REF6947 X) (WORK-REF6948 WORK)) - (%%DGGLSE M-REF6938 N-REF6939 P-REF6940 A-REF6941 LDA-REF6942 B-REF6943 - LDB-REF6944 C-REF6945 D-REF6946 X-REF6947 WORK-REF6948 - LWORK-REF6949 INFO-REF6950)))) - -(CFFI:DEFCFUN ("dggqrf_" %%DGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6889 ':INT32) (N-REF6890 ':INT32) + (P-REF6891 ':INT32) (LDA-REF6893 ':INT32) + (LDB-REF6895 ':INT32) (LWORK-REF6900 ':INT32) + (INFO-REF6901 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6889 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6890 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6891 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6893 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6895 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6900 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6901 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6892 A) (B-REF6894 B) + (C-REF6896 C) (D-REF6897 D) + (X-REF6898 X) (WORK-REF6899 WORK)) + (%%DGGLSE M-REF6889 N-REF6890 P-REF6891 A-REF6892 LDA-REF6893 B-REF6894 + LDB-REF6895 C-REF6896 D-REF6897 X-REF6898 WORK-REF6899 LWORK-REF6900 + INFO-REF6901)))) + +(CFFI:DEFCFUN ("dggqrf_" %%DGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (M :POINTER) @@ -4851,25 +4857,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6951 ':INT32) (M-REF6952 ':INT32) - (P-REF6953 ':INT32) (LDA-REF6955 ':INT32) - (LDB-REF6958 ':INT32) (LWORK-REF6961 ':INT32) - (INFO-REF6962 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6951 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6952 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6953 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6955 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6958 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6961 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6962 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6954 A) (TAUA-REF6956 TAUA) - (B-REF6957 B) (TAUB-REF6959 TAUB) - (WORK-REF6960 WORK)) - (%%DGGQRF N-REF6951 M-REF6952 P-REF6953 A-REF6954 LDA-REF6955 - TAUA-REF6956 B-REF6957 LDB-REF6958 TAUB-REF6959 WORK-REF6960 - LWORK-REF6961 INFO-REF6962)))) - -(CFFI:DEFCFUN ("dggrqf_" %%DGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6902 ':INT32) (M-REF6903 ':INT32) + (P-REF6904 ':INT32) (LDA-REF6906 ':INT32) + (LDB-REF6909 ':INT32) (LWORK-REF6912 ':INT32) + (INFO-REF6913 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6902 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6903 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6904 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6906 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6909 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6912 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6913 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6905 A) (TAUA-REF6907 TAUA) + (B-REF6908 B) (TAUB-REF6910 TAUB) + (WORK-REF6911 WORK)) + (%%DGGQRF N-REF6902 M-REF6903 P-REF6904 A-REF6905 LDA-REF6906 + TAUA-REF6907 B-REF6908 LDB-REF6909 TAUB-REF6910 WORK-REF6911 + LWORK-REF6912 INFO-REF6913)))) + +(CFFI:DEFCFUN ("dggrqf_" %%DGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -4906,25 +4912,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6963 ':INT32) (P-REF6964 ':INT32) - (N-REF6965 ':INT32) (LDA-REF6967 ':INT32) - (LDB-REF6970 ':INT32) (LWORK-REF6973 ':INT32) - (INFO-REF6974 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6963 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6964 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6965 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6967 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6970 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6973 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6974 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6966 A) (TAUA-REF6968 TAUA) - (B-REF6969 B) (TAUB-REF6971 TAUB) - (WORK-REF6972 WORK)) - (%%DGGRQF M-REF6963 P-REF6964 N-REF6965 A-REF6966 LDA-REF6967 - TAUA-REF6968 B-REF6969 LDB-REF6970 TAUB-REF6971 WORK-REF6972 - LWORK-REF6973 INFO-REF6974)))) - -(CFFI:DEFCFUN ("dggsvd3_" %%DGGSVD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6914 ':INT32) (P-REF6915 ':INT32) + (N-REF6916 ':INT32) (LDA-REF6918 ':INT32) + (LDB-REF6921 ':INT32) (LWORK-REF6924 ':INT32) + (INFO-REF6925 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6914 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6915 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6916 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6918 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6921 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6924 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6925 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6917 A) (TAUA-REF6919 TAUA) + (B-REF6920 B) (TAUB-REF6922 TAUB) + (WORK-REF6923 WORK)) + (%%DGGRQF M-REF6914 P-REF6915 N-REF6916 A-REF6917 LDA-REF6918 + TAUA-REF6919 B-REF6920 LDB-REF6921 TAUB-REF6922 WORK-REF6923 + LWORK-REF6924 INFO-REF6925)))) + +(CFFI:DEFCFUN ("dggsvd3_" %%DGGSVD3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -4993,37 +5000,37 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6978 ':INT32) (N-REF6979 ':INT32) - (P-REF6980 ':INT32) (K-REF6981 ':INT32) - (L-REF6982 ':INT32) (LDA-REF6984 ':INT32) - (LDB-REF6986 ':INT32) (LDU-REF6990 ':INT32) - (LDV-REF6992 ':INT32) (LDQ-REF6994 ':INT32) - (LWORK-REF6996 ':INT32) (INFO-REF6998 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6978 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6979 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6980 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6981 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF6982 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6984 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6986 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6990 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6992 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6994 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6996 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6998 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6983 A) (B-REF6985 B) - (ALPHA-REF6987 ALPHA) - (BETA-REF6988 BETA) (U-REF6989 U) - (V-REF6991 V) (Q-REF6993 Q) - (WORK-REF6995 WORK) - (IWORK-REF6997 IWORK)) - (%%DGGSVD3 JOBU JOBV JOBQ M-REF6978 N-REF6979 P-REF6980 K-REF6981 - L-REF6982 A-REF6983 LDA-REF6984 B-REF6985 LDB-REF6986 - ALPHA-REF6987 BETA-REF6988 U-REF6989 LDU-REF6990 V-REF6991 - LDV-REF6992 Q-REF6993 LDQ-REF6994 WORK-REF6995 LWORK-REF6996 - IWORK-REF6997 INFO-REF6998)))) - -(CFFI:DEFCFUN ("dggsvp3_" %%DGGSVP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6929 ':INT32) (N-REF6930 ':INT32) + (P-REF6931 ':INT32) (K-REF6932 ':INT32) + (L-REF6933 ':INT32) (LDA-REF6935 ':INT32) + (LDB-REF6937 ':INT32) (LDU-REF6941 ':INT32) + (LDV-REF6943 ':INT32) (LDQ-REF6945 ':INT32) + (LWORK-REF6947 ':INT32) (INFO-REF6949 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6929 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6930 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6931 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6932 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF6933 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6935 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6937 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6941 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6943 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6945 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6947 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6949 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6934 A) (B-REF6936 B) + (ALPHA-REF6938 ALPHA) + (BETA-REF6939 BETA) (U-REF6940 U) + (V-REF6942 V) (Q-REF6944 Q) + (WORK-REF6946 WORK) + (IWORK-REF6948 IWORK)) + (%%DGGSVD3 JOBU JOBV JOBQ M-REF6929 N-REF6930 P-REF6931 K-REF6932 + L-REF6933 A-REF6934 LDA-REF6935 B-REF6936 LDB-REF6937 ALPHA-REF6938 + BETA-REF6939 U-REF6940 LDU-REF6941 V-REF6942 LDV-REF6943 Q-REF6944 + LDQ-REF6945 WORK-REF6946 LWORK-REF6947 IWORK-REF6948 INFO-REF6949)))) + +(CFFI:DEFCFUN ("dggsvp3_" %%DGGSVP3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -5092,39 +5099,39 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7002 ':INT32) (P-REF7003 ':INT32) - (N-REF7004 ':INT32) (LDA-REF7006 ':INT32) - (LDB-REF7008 ':INT32) (TOLA-REF7009 ':DOUBLE) - (TOLB-REF7010 ':DOUBLE) (K-REF7011 ':INT32) - (L-REF7012 ':INT32) (LDU-REF7014 ':INT32) - (LDV-REF7016 ':INT32) (LDQ-REF7018 ':INT32) - (LWORK-REF7022 ':INT32) (INFO-REF7023 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7002 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7003 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7004 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7006 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7008 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF7009 :DOUBLE) TOLA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF7010 :DOUBLE) TOLB) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7011 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF7012 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF7014 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7016 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7018 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7022 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7023 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7005 A) (B-REF7007 B) - (U-REF7013 U) (V-REF7015 V) - (Q-REF7017 Q) (IWORK-REF7019 IWORK) - (TAU-REF7020 TAU) - (WORK-REF7021 WORK)) - (%%DGGSVP3 JOBU JOBV JOBQ M-REF7002 P-REF7003 N-REF7004 A-REF7005 - LDA-REF7006 B-REF7007 LDB-REF7008 TOLA-REF7009 TOLB-REF7010 - K-REF7011 L-REF7012 U-REF7013 LDU-REF7014 V-REF7015 - LDV-REF7016 Q-REF7017 LDQ-REF7018 IWORK-REF7019 TAU-REF7020 - WORK-REF7021 LWORK-REF7022 INFO-REF7023)))) - -(CFFI:DEFCFUN ("dgsvj0_" %%DGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6953 ':INT32) (P-REF6954 ':INT32) + (N-REF6955 ':INT32) (LDA-REF6957 ':INT32) + (LDB-REF6959 ':INT32) (TOLA-REF6960 ':DOUBLE) + (TOLB-REF6961 ':DOUBLE) (K-REF6962 ':INT32) + (L-REF6963 ':INT32) (LDU-REF6965 ':INT32) + (LDV-REF6967 ':INT32) (LDQ-REF6969 ':INT32) + (LWORK-REF6973 ':INT32) (INFO-REF6974 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6953 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6954 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6955 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6957 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6959 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF6960 :DOUBLE) TOLA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF6961 :DOUBLE) TOLB) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6962 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF6963 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6965 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6967 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6969 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6973 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6974 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6956 A) (B-REF6958 B) + (U-REF6964 U) (V-REF6966 V) + (Q-REF6968 Q) (IWORK-REF6970 IWORK) + (TAU-REF6971 TAU) + (WORK-REF6972 WORK)) + (%%DGGSVP3 JOBU JOBV JOBQ M-REF6953 P-REF6954 N-REF6955 A-REF6956 + LDA-REF6957 B-REF6958 LDB-REF6959 TOLA-REF6960 TOLB-REF6961 K-REF6962 + L-REF6963 U-REF6964 LDU-REF6965 V-REF6966 LDV-REF6967 Q-REF6968 + LDQ-REF6969 IWORK-REF6970 TAU-REF6971 WORK-REF6972 LWORK-REF6973 + INFO-REF6974)))) + +(CFFI:DEFCFUN ("dgsvj0_" %%DGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBV :STRING) (M :POINTER) @@ -5172,32 +5179,31 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7025 ':INT32) (N-REF7026 ':INT32) - (LDA-REF7028 ':INT32) (MV-REF7031 ':INT32) - (LDV-REF7033 ':INT32) (EPS-REF7034 ':DOUBLE) - (SFMIN-REF7035 ':DOUBLE) (TOL-REF7036 ':DOUBLE) - (NSWEEP-REF7037 ':INT32) (LWORK-REF7039 ':INT32) - (INFO-REF7040 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7025 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7026 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7028 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF7031 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7033 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF7034 :DOUBLE) EPS) - (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF7035 :DOUBLE) SFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7036 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF7037 :INT32) NSWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7039 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7040 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7027 A) (D-REF7029 D) - (SVA-REF7030 SVA) (V-REF7032 V) - (WORK-REF7038 WORK)) - (%%DGSVJ0 JOBV M-REF7025 N-REF7026 A-REF7027 LDA-REF7028 D-REF7029 - SVA-REF7030 MV-REF7031 V-REF7032 LDV-REF7033 EPS-REF7034 - SFMIN-REF7035 TOL-REF7036 NSWEEP-REF7037 WORK-REF7038 - LWORK-REF7039 INFO-REF7040)))) - -(CFFI:DEFCFUN ("dgsvj1_" %%DGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6976 ':INT32) (N-REF6977 ':INT32) + (LDA-REF6979 ':INT32) (MV-REF6982 ':INT32) + (LDV-REF6984 ':INT32) (EPS-REF6985 ':DOUBLE) + (SFMIN-REF6986 ':DOUBLE) (TOL-REF6987 ':DOUBLE) + (NSWEEP-REF6988 ':INT32) (LWORK-REF6990 ':INT32) + (INFO-REF6991 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6976 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6977 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6979 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF6982 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6984 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF6985 :DOUBLE) EPS) + (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF6986 :DOUBLE) SFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF6987 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF6988 :INT32) NSWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6990 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6991 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6978 A) (D-REF6980 D) + (SVA-REF6981 SVA) (V-REF6983 V) + (WORK-REF6989 WORK)) + (%%DGSVJ0 JOBV M-REF6976 N-REF6977 A-REF6978 LDA-REF6979 D-REF6980 + SVA-REF6981 MV-REF6982 V-REF6983 LDV-REF6984 EPS-REF6985 SFMIN-REF6986 + TOL-REF6987 NSWEEP-REF6988 WORK-REF6989 LWORK-REF6990 INFO-REF6991)))) + +(CFFI:DEFCFUN ("dgsvj1_" %%DGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBV :STRING) (M :POINTER) @@ -5247,33 +5253,33 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7042 ':INT32) (N-REF7043 ':INT32) - (N1-REF7044 ':INT32) (LDA-REF7046 ':INT32) - (MV-REF7049 ':INT32) (LDV-REF7051 ':INT32) - (EPS-REF7052 ':DOUBLE) (SFMIN-REF7053 ':DOUBLE) - (TOL-REF7054 ':DOUBLE) (NSWEEP-REF7055 ':INT32) - (LWORK-REF7057 ':INT32) (INFO-REF7058 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7042 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7043 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7044 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7046 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF7049 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7051 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF7052 :DOUBLE) EPS) - (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF7053 :DOUBLE) SFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7054 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF7055 :INT32) NSWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7057 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7058 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7045 A) (D-REF7047 D) - (SVA-REF7048 SVA) (V-REF7050 V) - (WORK-REF7056 WORK)) - (%%DGSVJ1 JOBV M-REF7042 N-REF7043 N1-REF7044 A-REF7045 LDA-REF7046 - D-REF7047 SVA-REF7048 MV-REF7049 V-REF7050 LDV-REF7051 - EPS-REF7052 SFMIN-REF7053 TOL-REF7054 NSWEEP-REF7055 - WORK-REF7056 LWORK-REF7057 INFO-REF7058)))) - -(CFFI:DEFCFUN ("dgtcon_" %%DGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6993 ':INT32) (N-REF6994 ':INT32) + (N1-REF6995 ':INT32) (LDA-REF6997 ':INT32) + (MV-REF7000 ':INT32) (LDV-REF7002 ':INT32) + (EPS-REF7003 ':DOUBLE) (SFMIN-REF7004 ':DOUBLE) + (TOL-REF7005 ':DOUBLE) (NSWEEP-REF7006 ':INT32) + (LWORK-REF7008 ':INT32) (INFO-REF7009 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6993 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6994 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF6995 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6997 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF7000 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7002 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF7003 :DOUBLE) EPS) + (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF7004 :DOUBLE) SFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7005 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF7006 :INT32) NSWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7008 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7009 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6996 A) (D-REF6998 D) + (SVA-REF6999 SVA) (V-REF7001 V) + (WORK-REF7007 WORK)) + (%%DGSVJ1 JOBV M-REF6993 N-REF6994 N1-REF6995 A-REF6996 LDA-REF6997 + D-REF6998 SVA-REF6999 MV-REF7000 V-REF7001 LDV-REF7002 EPS-REF7003 + SFMIN-REF7004 TOL-REF7005 NSWEEP-REF7006 WORK-REF7007 LWORK-REF7008 + INFO-REF7009)))) + +(CFFI:DEFCFUN ("dgtcon_" %%DGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -5316,22 +5322,22 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7060 ':INT32) (ANORM-REF7066 ':DOUBLE) - (RCOND-REF7067 ':DOUBLE) (INFO-REF7070 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7060 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF7066 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7067 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7070 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7061 DL) (D-REF7062 D) - (DU-REF7063 DU) (DU2-REF7064 DU2) - (IPIV-REF7065 IPIV) - (WORK-REF7068 WORK) - (IWORK-REF7069 IWORK)) - (%%DGTCON NORM N-REF7060 DL-REF7061 D-REF7062 DU-REF7063 DU2-REF7064 - IPIV-REF7065 ANORM-REF7066 RCOND-REF7067 WORK-REF7068 - IWORK-REF7069 INFO-REF7070)))) - -(CFFI:DEFCFUN ("dgtrfs_" %%DGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7011 ':INT32) (ANORM-REF7017 ':DOUBLE) + (RCOND-REF7018 ':DOUBLE) (INFO-REF7021 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7011 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF7017 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7018 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7021 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7012 DL) (D-REF7013 D) + (DU-REF7014 DU) (DU2-REF7015 DU2) + (IPIV-REF7016 IPIV) + (WORK-REF7019 WORK) + (IWORK-REF7020 IWORK)) + (%%DGTCON NORM N-REF7011 DL-REF7012 D-REF7013 DU-REF7014 DU2-REF7015 + IPIV-REF7016 ANORM-REF7017 RCOND-REF7018 WORK-REF7019 IWORK-REF7020 + INFO-REF7021)))) + +(CFFI:DEFCFUN ("dgtrfs_" %%DGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -5402,29 +5408,29 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7072 ':INT32) (NRHS-REF7073 ':INT32) - (LDB-REF7083 ':INT32) (LDX-REF7085 ':INT32) - (INFO-REF7090 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7072 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7073 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7083 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7085 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7090 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7074 DL) (D-REF7075 D) - (DU-REF7076 DU) (DLF-REF7077 DLF) - (DF-REF7078 DF) (DUF-REF7079 DUF) - (DU2-REF7080 DU2) - (IPIV-REF7081 IPIV) (B-REF7082 B) - (X-REF7084 X) (FERR-REF7086 FERR) - (BERR-REF7087 BERR) - (WORK-REF7088 WORK) - (IWORK-REF7089 IWORK)) - (%%DGTRFS TRANS N-REF7072 NRHS-REF7073 DL-REF7074 D-REF7075 DU-REF7076 - DLF-REF7077 DF-REF7078 DUF-REF7079 DU2-REF7080 IPIV-REF7081 - B-REF7082 LDB-REF7083 X-REF7084 LDX-REF7085 FERR-REF7086 - BERR-REF7087 WORK-REF7088 IWORK-REF7089 INFO-REF7090)))) - -(CFFI:DEFCFUN ("dgtsv_" %%DGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7023 ':INT32) (NRHS-REF7024 ':INT32) + (LDB-REF7034 ':INT32) (LDX-REF7036 ':INT32) + (INFO-REF7041 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7023 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7024 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7034 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7036 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7041 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7025 DL) (D-REF7026 D) + (DU-REF7027 DU) (DLF-REF7028 DLF) + (DF-REF7029 DF) (DUF-REF7030 DUF) + (DU2-REF7031 DU2) + (IPIV-REF7032 IPIV) (B-REF7033 B) + (X-REF7035 X) (FERR-REF7037 FERR) + (BERR-REF7038 BERR) + (WORK-REF7039 WORK) + (IWORK-REF7040 IWORK)) + (%%DGTRFS TRANS N-REF7023 NRHS-REF7024 DL-REF7025 D-REF7026 DU-REF7027 + DLF-REF7028 DF-REF7029 DUF-REF7030 DU2-REF7031 IPIV-REF7032 B-REF7033 + LDB-REF7034 X-REF7035 LDX-REF7036 FERR-REF7037 BERR-REF7038 WORK-REF7039 + IWORK-REF7040 INFO-REF7041)))) + +(CFFI:DEFCFUN ("dgtsv_" %%DGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -5449,18 +5455,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7091 ':INT32) (NRHS-REF7092 ':INT32) - (LDB-REF7097 ':INT32) (INFO-REF7098 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7091 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7092 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7097 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7098 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7093 DL) (D-REF7094 D) - (DU-REF7095 DU) (B-REF7096 B)) - (%%DGTSV N-REF7091 NRHS-REF7092 DL-REF7093 D-REF7094 DU-REF7095 B-REF7096 - LDB-REF7097 INFO-REF7098)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7042 ':INT32) (NRHS-REF7043 ':INT32) + (LDB-REF7048 ':INT32) (INFO-REF7049 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7042 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7043 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7048 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7049 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7044 DL) (D-REF7045 D) + (DU-REF7046 DU) (B-REF7047 B)) + (%%DGTSV N-REF7042 NRHS-REF7043 DL-REF7044 D-REF7045 DU-REF7046 B-REF7047 + LDB-REF7048 INFO-REF7049)))) -(CFFI:DEFCFUN ("dgtsvx_" %%DGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgtsvx_" %%DGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -5535,31 +5541,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7101 ':INT32) (NRHS-REF7102 ':INT32) - (LDB-REF7112 ':INT32) (LDX-REF7114 ':INT32) - (RCOND-REF7115 ':DOUBLE) (INFO-REF7120 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7101 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7102 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7112 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7114 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7115 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7120 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7103 DL) (D-REF7104 D) - (DU-REF7105 DU) (DLF-REF7106 DLF) - (DF-REF7107 DF) (DUF-REF7108 DUF) - (DU2-REF7109 DU2) - (IPIV-REF7110 IPIV) (B-REF7111 B) - (X-REF7113 X) (FERR-REF7116 FERR) - (BERR-REF7117 BERR) - (WORK-REF7118 WORK) - (IWORK-REF7119 IWORK)) - (%%DGTSVX FACT TRANS N-REF7101 NRHS-REF7102 DL-REF7103 D-REF7104 - DU-REF7105 DLF-REF7106 DF-REF7107 DUF-REF7108 DU2-REF7109 - IPIV-REF7110 B-REF7111 LDB-REF7112 X-REF7113 LDX-REF7114 - RCOND-REF7115 FERR-REF7116 BERR-REF7117 WORK-REF7118 - IWORK-REF7119 INFO-REF7120)))) - -(CFFI:DEFCFUN ("dgttrf_" %%DGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7052 ':INT32) (NRHS-REF7053 ':INT32) + (LDB-REF7063 ':INT32) (LDX-REF7065 ':INT32) + (RCOND-REF7066 ':DOUBLE) (INFO-REF7071 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7052 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7053 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7063 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7065 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7066 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7071 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7054 DL) (D-REF7055 D) + (DU-REF7056 DU) (DLF-REF7057 DLF) + (DF-REF7058 DF) (DUF-REF7059 DUF) + (DU2-REF7060 DU2) + (IPIV-REF7061 IPIV) (B-REF7062 B) + (X-REF7064 X) (FERR-REF7067 FERR) + (BERR-REF7068 BERR) + (WORK-REF7069 WORK) + (IWORK-REF7070 IWORK)) + (%%DGTSVX FACT TRANS N-REF7052 NRHS-REF7053 DL-REF7054 D-REF7055 + DU-REF7056 DLF-REF7057 DF-REF7058 DUF-REF7059 DU2-REF7060 IPIV-REF7061 + B-REF7062 LDB-REF7063 X-REF7064 LDX-REF7065 RCOND-REF7066 FERR-REF7067 + BERR-REF7068 WORK-REF7069 IWORK-REF7070 INFO-REF7071)))) + +(CFFI:DEFCFUN ("dgttrf_" %%DGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (DL :POINTER) @@ -5586,16 +5591,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7121 ':INT32) (INFO-REF7127 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7121 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7127 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7122 DL) (D-REF7123 D) - (DU-REF7124 DU) (DU2-REF7125 DU2) - (IPIV-REF7126 IPIV)) - (%%DGTTRF N-REF7121 DL-REF7122 D-REF7123 DU-REF7124 DU2-REF7125 - IPIV-REF7126 INFO-REF7127)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7072 ':INT32) (INFO-REF7078 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7072 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7078 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7073 DL) (D-REF7074 D) + (DU-REF7075 DU) (DU2-REF7076 DU2) + (IPIV-REF7077 IPIV)) + (%%DGTTRF N-REF7072 DL-REF7073 D-REF7074 DU-REF7075 DU2-REF7076 + IPIV-REF7077 INFO-REF7078)))) -(CFFI:DEFCFUN ("dgttrs_" %%DGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgttrs_" %%DGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -5631,19 +5636,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7129 ':INT32) (NRHS-REF7130 ':INT32) - (LDB-REF7137 ':INT32) (INFO-REF7138 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7129 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7130 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7137 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7138 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7131 DL) (D-REF7132 D) - (DU-REF7133 DU) (DU2-REF7134 DU2) - (IPIV-REF7135 IPIV) (B-REF7136 B)) - (%%DGTTRS TRANS N-REF7129 NRHS-REF7130 DL-REF7131 D-REF7132 DU-REF7133 - DU2-REF7134 IPIV-REF7135 B-REF7136 LDB-REF7137 INFO-REF7138)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7080 ':INT32) (NRHS-REF7081 ':INT32) + (LDB-REF7088 ':INT32) (INFO-REF7089 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7080 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7081 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7088 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7089 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7082 DL) (D-REF7083 D) + (DU-REF7084 DU) (DU2-REF7085 DU2) + (IPIV-REF7086 IPIV) (B-REF7087 B)) + (%%DGTTRS TRANS N-REF7080 NRHS-REF7081 DL-REF7082 D-REF7083 DU-REF7084 + DU2-REF7085 IPIV-REF7086 B-REF7087 LDB-REF7088 INFO-REF7089)))) -(CFFI:DEFCFUN ("dgtts2_" %%DGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dgtts2_" %%DGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITRANS :POINTER) (N :POINTER) @@ -5677,19 +5682,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF7139 ':INT32) (N-REF7140 ':INT32) - (NRHS-REF7141 ':INT32) (LDB-REF7148 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF7139 :INT32) ITRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7140 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7141 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7148 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7142 DL) (D-REF7143 D) - (DU-REF7144 DU) (DU2-REF7145 DU2) - (IPIV-REF7146 IPIV) (B-REF7147 B)) - (%%DGTTS2 ITRANS-REF7139 N-REF7140 NRHS-REF7141 DL-REF7142 D-REF7143 - DU-REF7144 DU2-REF7145 IPIV-REF7146 B-REF7147 LDB-REF7148)))) - -(CFFI:DEFCFUN ("dhgeqz_" %%DHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF7090 ':INT32) (N-REF7091 ':INT32) + (NRHS-REF7092 ':INT32) (LDB-REF7099 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF7090 :INT32) ITRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7091 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7092 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7099 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7093 DL) (D-REF7094 D) + (DU-REF7095 DU) (DU2-REF7096 DU2) + (IPIV-REF7097 IPIV) (B-REF7098 B)) + (%%DGTTS2 ITRANS-REF7090 N-REF7091 NRHS-REF7092 DL-REF7093 D-REF7094 + DU-REF7095 DU2-REF7096 IPIV-REF7097 B-REF7098 LDB-REF7099)))) + +(CFFI:DEFCFUN ("dhgeqz_" %%DHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPQ :STRING) @@ -5748,31 +5753,31 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7152 ':INT32) (ILO-REF7153 ':INT32) - (IHI-REF7154 ':INT32) (LDH-REF7156 ':INT32) - (LDT-REF7158 ':INT32) (LDQ-REF7163 ':INT32) - (LDZ-REF7165 ':INT32) (LWORK-REF7167 ':INT32) - (INFO-REF7168 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7152 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7153 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7154 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7156 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7158 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7163 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7165 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7167 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7168 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7155 H) (T-REF7157 T) - (ALPHAR-REF7159 ALPHAR) - (ALPHAI-REF7160 ALPHAI) - (BETA-REF7161 BETA) (Q-REF7162 Q) - (Z-REF7164 Z) (WORK-REF7166 WORK)) - (%%DHGEQZ JOB COMPQ COMPZ N-REF7152 ILO-REF7153 IHI-REF7154 H-REF7155 - LDH-REF7156 T-REF7157 LDT-REF7158 ALPHAR-REF7159 ALPHAI-REF7160 - BETA-REF7161 Q-REF7162 LDQ-REF7163 Z-REF7164 LDZ-REF7165 - WORK-REF7166 LWORK-REF7167 INFO-REF7168)))) - -(CFFI:DEFCFUN ("dhsein_" %%DHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7103 ':INT32) (ILO-REF7104 ':INT32) + (IHI-REF7105 ':INT32) (LDH-REF7107 ':INT32) + (LDT-REF7109 ':INT32) (LDQ-REF7114 ':INT32) + (LDZ-REF7116 ':INT32) (LWORK-REF7118 ':INT32) + (INFO-REF7119 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7103 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7104 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7105 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7107 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7109 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7114 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7116 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7118 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7119 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7106 H) (T-REF7108 T) + (ALPHAR-REF7110 ALPHAR) + (ALPHAI-REF7111 ALPHAI) + (BETA-REF7112 BETA) (Q-REF7113 Q) + (Z-REF7115 Z) (WORK-REF7117 WORK)) + (%%DHGEQZ JOB COMPQ COMPZ N-REF7103 ILO-REF7104 IHI-REF7105 H-REF7106 + LDH-REF7107 T-REF7108 LDT-REF7109 ALPHAR-REF7110 ALPHAI-REF7111 + BETA-REF7112 Q-REF7113 LDQ-REF7114 Z-REF7115 LDZ-REF7116 WORK-REF7117 + LWORK-REF7118 INFO-REF7119)))) + +(CFFI:DEFCFUN ("dhsein_" %%DHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (EIGSRC :STRING) @@ -5833,29 +5838,29 @@ (COMMON-LISP:*)) IFAILR) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7173 ':INT32) (LDH-REF7175 ':INT32) - (LDVL-REF7179 ':INT32) (LDVR-REF7181 ':INT32) - (MM-REF7182 ':INT32) (M-REF7183 ':INT32) - (INFO-REF7187 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7173 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7175 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF7179 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF7181 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF7182 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7183 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7187 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF7172 SELECT) - (H-REF7174 H) (WR-REF7176 WR) - (WI-REF7177 WI) (VL-REF7178 VL) - (VR-REF7180 VR) (WORK-REF7184 WORK) - (IFAILL-REF7185 IFAILL) - (IFAILR-REF7186 IFAILR)) - (%%DHSEIN SIDE EIGSRC INITV SELECT-REF7172 N-REF7173 H-REF7174 - LDH-REF7175 WR-REF7176 WI-REF7177 VL-REF7178 LDVL-REF7179 - VR-REF7180 LDVR-REF7181 MM-REF7182 M-REF7183 WORK-REF7184 - IFAILL-REF7185 IFAILR-REF7186 INFO-REF7187)))) - -(CFFI:DEFCFUN ("dhseqr_" %%DHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7124 ':INT32) (LDH-REF7126 ':INT32) + (LDVL-REF7130 ':INT32) (LDVR-REF7132 ':INT32) + (MM-REF7133 ':INT32) (M-REF7134 ':INT32) + (INFO-REF7138 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7124 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7126 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF7130 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF7132 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF7133 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7134 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7138 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF7123 SELECT) + (H-REF7125 H) (WR-REF7127 WR) + (WI-REF7128 WI) (VL-REF7129 VL) + (VR-REF7131 VR) (WORK-REF7135 WORK) + (IFAILL-REF7136 IFAILL) + (IFAILR-REF7137 IFAILR)) + (%%DHSEIN SIDE EIGSRC INITV SELECT-REF7123 N-REF7124 H-REF7125 + LDH-REF7126 WR-REF7127 WI-REF7128 VL-REF7129 LDVL-REF7130 VR-REF7131 + LDVR-REF7132 MM-REF7133 M-REF7134 WORK-REF7135 IFAILL-REF7136 + IFAILR-REF7137 INFO-REF7138)))) + +(CFFI:DEFCFUN ("dhseqr_" %%DHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPZ :STRING) @@ -5895,38 +5900,38 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7190 ':INT32) (ILO-REF7191 ':INT32) - (IHI-REF7192 ':INT32) (LDH-REF7194 ':INT32) - (LDZ-REF7198 ':INT32) (LWORK-REF7200 ':INT32) - (INFO-REF7201 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7190 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7191 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7192 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7194 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7198 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7200 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7201 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7193 H) (WR-REF7195 WR) - (WI-REF7196 WI) (Z-REF7197 Z) - (WORK-REF7199 WORK)) - (%%DHSEQR JOB COMPZ N-REF7190 ILO-REF7191 IHI-REF7192 H-REF7193 - LDH-REF7194 WR-REF7195 WI-REF7196 Z-REF7197 LDZ-REF7198 - WORK-REF7199 LWORK-REF7200 INFO-REF7201)))) - -(CFFI:DEFCFUN ("disnan_" %%DISNAN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7141 ':INT32) (ILO-REF7142 ':INT32) + (IHI-REF7143 ':INT32) (LDH-REF7145 ':INT32) + (LDZ-REF7149 ':INT32) (LWORK-REF7151 ':INT32) + (INFO-REF7152 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7141 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7142 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7143 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7145 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7149 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7151 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7152 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7144 H) (WR-REF7146 WR) + (WI-REF7147 WI) (Z-REF7148 Z) + (WORK-REF7150 WORK)) + (%%DHSEQR JOB COMPZ N-REF7141 ILO-REF7142 IHI-REF7143 H-REF7144 + LDH-REF7145 WR-REF7146 WI-REF7147 Z-REF7148 LDZ-REF7149 WORK-REF7150 + LWORK-REF7151 INFO-REF7152)))) + +(CFFI:DEFCFUN ("disnan_" %%DISNAN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (DIN :POINTER)) (COMMON-LISP:DEFUN %DISNAN (DIN) (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DISNAN) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN)) - (CFFI:WITH-FOREIGN-OBJECTS ((DIN-REF7202 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF DIN-REF7202 :DOUBLE) DIN) + (CFFI:WITH-FOREIGN-OBJECTS ((DIN-REF7153 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF DIN-REF7153 :DOUBLE) DIN) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DISNAN DIN-REF7202)))) + (%%DISNAN DIN-REF7153)))) (CFFI:DEFCFUN ("dla_gbamv_" %%DLA_GBAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :POINTER) (M :POINTER) @@ -5961,29 +5966,29 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7203 ':INT32) (M-REF7204 ':INT32) - (N-REF7205 ':INT32) (KL-REF7206 ':INT32) - (KU-REF7207 ':INT32) (ALPHA-REF7208 ':DOUBLE) - (LDAB-REF7210 ':INT32) (INCX-REF7212 ':INT32) - (BETA-REF7213 ':DOUBLE) (INCY-REF7215 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7203 :INT32) TRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7204 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7205 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7206 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7207 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7208 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7210 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7212 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7213 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7215 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7209 AB) (X-REF7211 X) - (Y-REF7214 Y)) - (%%DLA_GBAMV TRANS-REF7203 M-REF7204 N-REF7205 KL-REF7206 KU-REF7207 - ALPHA-REF7208 AB-REF7209 LDAB-REF7210 X-REF7211 INCX-REF7212 - BETA-REF7213 Y-REF7214 INCY-REF7215)))) + (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7154 ':INT32) (M-REF7155 ':INT32) + (N-REF7156 ':INT32) (KL-REF7157 ':INT32) + (KU-REF7158 ':INT32) (ALPHA-REF7159 ':DOUBLE) + (LDAB-REF7161 ':INT32) (INCX-REF7163 ':INT32) + (BETA-REF7164 ':DOUBLE) (INCY-REF7166 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7154 :INT32) TRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7155 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7156 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7157 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7158 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7159 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7161 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7163 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7164 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7166 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7160 AB) (X-REF7162 X) + (Y-REF7165 Y)) + (%%DLA_GBAMV TRANS-REF7154 M-REF7155 N-REF7156 KL-REF7157 KU-REF7158 + ALPHA-REF7159 AB-REF7160 LDAB-REF7161 X-REF7162 INCX-REF7163 + BETA-REF7164 Y-REF7165 INCY-REF7166)))) (CFFI:DEFCFUN ("dla_gbrcond_" %%DLA_GBRCOND :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (TRANS :STRING) (N :POINTER) @@ -6030,28 +6035,27 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) IWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7217 ':INT32) (KL-REF7218 ':INT32) - (KU-REF7219 ':INT32) (LDAB-REF7221 ':INT32) - (LDAFB-REF7223 ':INT32) (CMODE-REF7225 ':INT32) - (INFO-REF7227 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7217 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7218 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7219 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7221 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7223 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7225 :INT32) CMODE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7227 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7220 AB) (AFB-REF7222 AFB) - (IPIV-REF7224 IPIV) (C-REF7226 C) - (WORK-REF7228 WORK) - (IWORK-REF7229 IWORK)) - (%%DLA_GBRCOND TRANS N-REF7217 KL-REF7218 KU-REF7219 AB-REF7220 - LDAB-REF7221 AFB-REF7222 LDAFB-REF7223 IPIV-REF7224 - CMODE-REF7225 C-REF7226 INFO-REF7227 WORK-REF7228 - IWORK-REF7229)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7168 ':INT32) (KL-REF7169 ':INT32) + (KU-REF7170 ':INT32) (LDAB-REF7172 ':INT32) + (LDAFB-REF7174 ':INT32) (CMODE-REF7176 ':INT32) + (INFO-REF7178 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7168 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7169 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7170 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7172 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7174 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7176 :INT32) CMODE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7178 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7171 AB) (AFB-REF7173 AFB) + (IPIV-REF7175 IPIV) (C-REF7177 C) + (WORK-REF7179 WORK) + (IWORK-REF7180 IWORK)) + (%%DLA_GBRCOND TRANS N-REF7168 KL-REF7169 KU-REF7170 AB-REF7171 + LDAB-REF7172 AFB-REF7173 LDAFB-REF7174 IPIV-REF7175 CMODE-REF7176 + C-REF7177 INFO-REF7178 WORK-REF7179 IWORK-REF7180)))) (CFFI:DEFCFUN ("dla_gbrfsx_extended_" %%DLA_GBRFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (TRANS_TYPE :POINTER) @@ -6147,61 +6151,58 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7230 ':INT32) - (TRANS_TYPE-REF7231 ':INT32) (N-REF7232 ':INT32) - (KL-REF7233 ':INT32) (KU-REF7234 ':INT32) - (NRHS-REF7235 ':INT32) (LDAB-REF7237 ':INT32) - (LDAFB-REF7239 ':INT32) (COLEQU-REF7241 ':INT32) - (LDB-REF7244 ':INT32) (LDY-REF7246 ':INT32) - (N_NORMS-REF7248 ':INT32) - (RCOND-REF7255 ':DOUBLE) - (ITHRESH-REF7256 ':INT32) - (RTHRESH-REF7257 ':DOUBLE) - (DZ_UB-REF7258 ':DOUBLE) - (IGNORE_CWISE-REF7259 ':INT32) - (INFO-REF7260 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7230 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7231 :INT32) TRANS_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7232 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7233 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7234 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7235 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7237 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7239 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7241 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7244 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7246 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7248 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7255 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7256 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7257 :DOUBLE) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7258 :DOUBLE) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7259 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7260 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7236 AB) (AFB-REF7238 AFB) - (IPIV-REF7240 IPIV) (C-REF7242 C) - (B-REF7243 B) (Y-REF7245 Y) - (BERR_OUT-REF7247 BERR_OUT) - (ERR_BNDS_NORM-REF7249 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7181 ':INT32) + (TRANS_TYPE-REF7182 ':INT32) (N-REF7183 ':INT32) + (KL-REF7184 ':INT32) (KU-REF7185 ':INT32) + (NRHS-REF7186 ':INT32) (LDAB-REF7188 ':INT32) + (LDAFB-REF7190 ':INT32) (COLEQU-REF7192 ':INT32) + (LDB-REF7195 ':INT32) (LDY-REF7197 ':INT32) + (N_NORMS-REF7199 ':INT32) + (RCOND-REF7206 ':DOUBLE) + (ITHRESH-REF7207 ':INT32) + (RTHRESH-REF7208 ':DOUBLE) + (DZ_UB-REF7209 ':DOUBLE) + (IGNORE_CWISE-REF7210 ':INT32) + (INFO-REF7211 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7181 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7182 :INT32) TRANS_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7183 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7184 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7185 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7186 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7188 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7190 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7192 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7195 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7197 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7199 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7206 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7207 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7208 :DOUBLE) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7209 :DOUBLE) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7210 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7211 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7187 AB) (AFB-REF7189 AFB) + (IPIV-REF7191 IPIV) (C-REF7193 C) + (B-REF7194 B) (Y-REF7196 Y) + (BERR_OUT-REF7198 BERR_OUT) + (ERR_BNDS_NORM-REF7200 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF7250 + (ERR_BNDS_COMP-REF7201 ERR_BNDS_COMP) - (RES-REF7251 RES) (AYB-REF7252 AYB) - (DY-REF7253 DY) - (Y_TAIL-REF7254 Y_TAIL)) - (%%DLA_GBRFSX_EXTENDED PREC_TYPE-REF7230 TRANS_TYPE-REF7231 N-REF7232 - KL-REF7233 KU-REF7234 NRHS-REF7235 AB-REF7236 - LDAB-REF7237 AFB-REF7238 LDAFB-REF7239 - IPIV-REF7240 COLEQU-REF7241 C-REF7242 B-REF7243 - LDB-REF7244 Y-REF7245 LDY-REF7246 BERR_OUT-REF7247 - N_NORMS-REF7248 ERR_BNDS_NORM-REF7249 - ERR_BNDS_COMP-REF7250 RES-REF7251 AYB-REF7252 - DY-REF7253 Y_TAIL-REF7254 RCOND-REF7255 - ITHRESH-REF7256 RTHRESH-REF7257 DZ_UB-REF7258 - IGNORE_CWISE-REF7259 INFO-REF7260)))) + (RES-REF7202 RES) (AYB-REF7203 AYB) + (DY-REF7204 DY) + (Y_TAIL-REF7205 Y_TAIL)) + (%%DLA_GBRFSX_EXTENDED PREC_TYPE-REF7181 TRANS_TYPE-REF7182 N-REF7183 + KL-REF7184 KU-REF7185 NRHS-REF7186 AB-REF7187 LDAB-REF7188 AFB-REF7189 + LDAFB-REF7190 IPIV-REF7191 COLEQU-REF7192 C-REF7193 B-REF7194 + LDB-REF7195 Y-REF7196 LDY-REF7197 BERR_OUT-REF7198 N_NORMS-REF7199 + ERR_BNDS_NORM-REF7200 ERR_BNDS_COMP-REF7201 RES-REF7202 AYB-REF7203 + DY-REF7204 Y_TAIL-REF7205 RCOND-REF7206 ITHRESH-REF7207 RTHRESH-REF7208 + DZ_UB-REF7209 IGNORE_CWISE-REF7210 INFO-REF7211)))) (CFFI:DEFCFUN ("dla_gbrpvgrw_" %%DLA_GBRPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (N :POINTER) (KL :POINTER) @@ -6225,21 +6226,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7261 ':INT32) (KL-REF7262 ':INT32) - (KU-REF7263 ':INT32) (NCOLS-REF7264 ':INT32) - (LDAB-REF7266 ':INT32) (LDAFB-REF7268 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7261 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7262 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7263 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7264 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7266 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7268 :INT32) LDAFB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7265 AB) (AFB-REF7267 AFB)) - (%%DLA_GBRPVGRW N-REF7261 KL-REF7262 KU-REF7263 NCOLS-REF7264 AB-REF7265 - LDAB-REF7266 AFB-REF7267 LDAFB-REF7268)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7212 ':INT32) (KL-REF7213 ':INT32) + (KU-REF7214 ':INT32) (NCOLS-REF7215 ':INT32) + (LDAB-REF7217 ':INT32) (LDAFB-REF7219 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7212 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7213 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7214 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7215 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7217 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7219 :INT32) LDAFB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7216 AB) (AFB-REF7218 AFB)) + (%%DLA_GBRPVGRW N-REF7212 KL-REF7213 KU-REF7214 NCOLS-REF7215 AB-REF7216 + LDAB-REF7217 AFB-REF7218 LDAFB-REF7219)))) (CFFI:DEFCFUN ("dla_geamv_" %%DLA_GEAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :POINTER) (M :POINTER) @@ -6269,26 +6270,26 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7269 ':INT32) (M-REF7270 ':INT32) - (N-REF7271 ':INT32) (ALPHA-REF7272 ':DOUBLE) - (LDA-REF7274 ':INT32) (INCX-REF7276 ':INT32) - (BETA-REF7277 ':DOUBLE) (INCY-REF7279 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7269 :INT32) TRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7270 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7271 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7272 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7274 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7276 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7277 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7279 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7273 A) (X-REF7275 X) - (Y-REF7278 Y)) - (%%DLA_GEAMV TRANS-REF7269 M-REF7270 N-REF7271 ALPHA-REF7272 A-REF7273 - LDA-REF7274 X-REF7275 INCX-REF7276 BETA-REF7277 Y-REF7278 - INCY-REF7279)))) + (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7220 ':INT32) (M-REF7221 ':INT32) + (N-REF7222 ':INT32) (ALPHA-REF7223 ':DOUBLE) + (LDA-REF7225 ':INT32) (INCX-REF7227 ':INT32) + (BETA-REF7228 ':DOUBLE) (INCY-REF7230 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7220 :INT32) TRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7221 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7222 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7223 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7225 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7227 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7228 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7230 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7224 A) (X-REF7226 X) + (Y-REF7229 Y)) + (%%DLA_GEAMV TRANS-REF7220 M-REF7221 N-REF7222 ALPHA-REF7223 A-REF7224 + LDA-REF7225 X-REF7226 INCX-REF7227 BETA-REF7228 Y-REF7229 + INCY-REF7230)))) (CFFI:DEFCFUN ("dla_gercond_" %%DLA_GERCOND :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (TRANS :STRING) (N :POINTER) @@ -6329,24 +6330,24 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) IWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7281 ':INT32) (LDA-REF7283 ':INT32) - (LDAF-REF7285 ':INT32) (CMODE-REF7287 ':INT32) - (INFO-REF7289 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7281 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7283 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7285 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7287 :INT32) CMODE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7289 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7282 A) (AF-REF7284 AF) - (IPIV-REF7286 IPIV) (C-REF7288 C) - (WORK-REF7290 WORK) - (IWORK-REF7291 IWORK)) - (%%DLA_GERCOND TRANS N-REF7281 A-REF7282 LDA-REF7283 AF-REF7284 - LDAF-REF7285 IPIV-REF7286 CMODE-REF7287 C-REF7288 - INFO-REF7289 WORK-REF7290 IWORK-REF7291)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7232 ':INT32) (LDA-REF7234 ':INT32) + (LDAF-REF7236 ':INT32) (CMODE-REF7238 ':INT32) + (INFO-REF7240 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7232 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7234 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7236 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7238 :INT32) CMODE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7240 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7233 A) (AF-REF7235 AF) + (IPIV-REF7237 IPIV) (C-REF7239 C) + (WORK-REF7241 WORK) + (IWORK-REF7242 IWORK)) + (%%DLA_GERCOND TRANS N-REF7232 A-REF7233 LDA-REF7234 AF-REF7235 + LDAF-REF7236 IPIV-REF7237 CMODE-REF7238 C-REF7239 INFO-REF7240 + WORK-REF7241 IWORK-REF7242)))) (CFFI:DEFCFUN ("dla_gerfsx_extended_" %%DLA_GERFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (TRANS_TYPE :POINTER) @@ -6436,55 +6437,53 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7292 ':INT32) - (TRANS_TYPE-REF7293 ':INT32) (N-REF7294 ':INT32) - (NRHS-REF7295 ':INT32) (LDA-REF7297 ':INT32) - (LDAF-REF7299 ':INT32) (COLEQU-REF7301 ':INT32) - (LDB-REF7304 ':INT32) (LDY-REF7306 ':INT32) - (N_NORMS-REF7308 ':INT32) - (RCOND-REF7315 ':DOUBLE) - (ITHRESH-REF7316 ':INT32) - (RTHRESH-REF7317 ':DOUBLE) - (DZ_UB-REF7318 ':DOUBLE) - (IGNORE_CWISE-REF7319 ':INT32) - (INFO-REF7320 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7292 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7293 :INT32) TRANS_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7294 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7295 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7297 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7299 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7301 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7304 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7306 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7308 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7315 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7316 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7317 :DOUBLE) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7318 :DOUBLE) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7319 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7320 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7296 A) (AF-REF7298 AF) - (IPIV-REF7300 IPIV) (C-REF7302 C) - (B-REF7303 B) (Y-REF7305 Y) - (BERR_OUT-REF7307 BERR_OUT) - (ERRS_N-REF7309 ERRS_N) - (ERRS_C-REF7310 ERRS_C) - (RES-REF7311 RES) (AYB-REF7312 AYB) - (DY-REF7313 DY) - (Y_TAIL-REF7314 Y_TAIL)) - (%%DLA_GERFSX_EXTENDED PREC_TYPE-REF7292 TRANS_TYPE-REF7293 N-REF7294 - NRHS-REF7295 A-REF7296 LDA-REF7297 AF-REF7298 - LDAF-REF7299 IPIV-REF7300 COLEQU-REF7301 C-REF7302 - B-REF7303 LDB-REF7304 Y-REF7305 LDY-REF7306 - BERR_OUT-REF7307 N_NORMS-REF7308 ERRS_N-REF7309 - ERRS_C-REF7310 RES-REF7311 AYB-REF7312 DY-REF7313 - Y_TAIL-REF7314 RCOND-REF7315 ITHRESH-REF7316 - RTHRESH-REF7317 DZ_UB-REF7318 IGNORE_CWISE-REF7319 - INFO-REF7320)))) + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7243 ':INT32) + (TRANS_TYPE-REF7244 ':INT32) (N-REF7245 ':INT32) + (NRHS-REF7246 ':INT32) (LDA-REF7248 ':INT32) + (LDAF-REF7250 ':INT32) (COLEQU-REF7252 ':INT32) + (LDB-REF7255 ':INT32) (LDY-REF7257 ':INT32) + (N_NORMS-REF7259 ':INT32) + (RCOND-REF7266 ':DOUBLE) + (ITHRESH-REF7267 ':INT32) + (RTHRESH-REF7268 ':DOUBLE) + (DZ_UB-REF7269 ':DOUBLE) + (IGNORE_CWISE-REF7270 ':INT32) + (INFO-REF7271 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7243 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7244 :INT32) TRANS_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7245 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7246 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7248 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7250 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7252 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7255 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7257 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7259 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7266 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7267 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7268 :DOUBLE) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7269 :DOUBLE) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7270 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7271 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7247 A) (AF-REF7249 AF) + (IPIV-REF7251 IPIV) (C-REF7253 C) + (B-REF7254 B) (Y-REF7256 Y) + (BERR_OUT-REF7258 BERR_OUT) + (ERRS_N-REF7260 ERRS_N) + (ERRS_C-REF7261 ERRS_C) + (RES-REF7262 RES) (AYB-REF7263 AYB) + (DY-REF7264 DY) + (Y_TAIL-REF7265 Y_TAIL)) + (%%DLA_GERFSX_EXTENDED PREC_TYPE-REF7243 TRANS_TYPE-REF7244 N-REF7245 + NRHS-REF7246 A-REF7247 LDA-REF7248 AF-REF7249 LDAF-REF7250 IPIV-REF7251 + COLEQU-REF7252 C-REF7253 B-REF7254 LDB-REF7255 Y-REF7256 LDY-REF7257 + BERR_OUT-REF7258 N_NORMS-REF7259 ERRS_N-REF7260 ERRS_C-REF7261 + RES-REF7262 AYB-REF7263 DY-REF7264 Y_TAIL-REF7265 RCOND-REF7266 + ITHRESH-REF7267 RTHRESH-REF7268 DZ_UB-REF7269 IGNORE_CWISE-REF7270 + INFO-REF7271)))) (CFFI:DEFCFUN ("dla_gerpvgrw_" %%DLA_GERPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (N :POINTER) (NCOLS :POINTER) @@ -6503,18 +6502,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7321 ':INT32) (NCOLS-REF7322 ':INT32) - (LDA-REF7324 ':INT32) (LDAF-REF7326 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7321 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7322 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7324 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7326 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7323 A) (AF-REF7325 AF)) - (%%DLA_GERPVGRW N-REF7321 NCOLS-REF7322 A-REF7323 LDA-REF7324 AF-REF7325 - LDAF-REF7326)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7272 ':INT32) (NCOLS-REF7273 ':INT32) + (LDA-REF7275 ':INT32) (LDAF-REF7277 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7272 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7273 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7275 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7277 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7274 A) (AF-REF7276 AF)) + (%%DLA_GERPVGRW N-REF7272 NCOLS-REF7273 A-REF7274 LDA-REF7275 AF-REF7276 + LDAF-REF7277)))) (CFFI:DEFCFUN ("dla_lin_berr_" %%DLA_LIN_BERR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NZ :POINTER) @@ -6537,18 +6536,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7327 ':INT32) (NZ-REF7328 ':INT32) - (NRHS-REF7329 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7327 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF7328 :INT32) NZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7329 :INT32) NRHS) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF7330 RES) (AYB-REF7331 AYB) - (BERR-REF7332 BERR)) - (%%DLA_LIN_BERR N-REF7327 NZ-REF7328 NRHS-REF7329 RES-REF7330 AYB-REF7331 - BERR-REF7332)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7278 ':INT32) (NZ-REF7279 ':INT32) + (NRHS-REF7280 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7278 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF7279 :INT32) NZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7280 :INT32) NRHS) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF7281 RES) (AYB-REF7282 AYB) + (BERR-REF7283 BERR)) + (%%DLA_LIN_BERR N-REF7278 NZ-REF7279 NRHS-REF7280 RES-REF7281 AYB-REF7282 + BERR-REF7283)))) (CFFI:DEFCFUN ("dla_porcond_" %%DLA_PORCOND :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -6583,23 +6582,23 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) IWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7334 ':INT32) (LDA-REF7336 ':INT32) - (LDAF-REF7338 ':INT32) (CMODE-REF7339 ':INT32) - (INFO-REF7341 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7334 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7336 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7338 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7339 :INT32) CMODE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7341 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7335 A) (AF-REF7337 AF) - (C-REF7340 C) (WORK-REF7342 WORK) - (IWORK-REF7343 IWORK)) - (%%DLA_PORCOND UPLO N-REF7334 A-REF7335 LDA-REF7336 AF-REF7337 - LDAF-REF7338 CMODE-REF7339 C-REF7340 INFO-REF7341 - WORK-REF7342 IWORK-REF7343)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7285 ':INT32) (LDA-REF7287 ':INT32) + (LDAF-REF7289 ':INT32) (CMODE-REF7290 ':INT32) + (INFO-REF7292 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7285 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7287 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7289 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7290 :INT32) CMODE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7292 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7286 A) (AF-REF7288 AF) + (C-REF7291 C) (WORK-REF7293 WORK) + (IWORK-REF7294 IWORK)) + (%%DLA_PORCOND UPLO N-REF7285 A-REF7286 LDA-REF7287 AF-REF7288 + LDAF-REF7289 CMODE-REF7290 C-REF7291 INFO-REF7292 WORK-REF7293 + IWORK-REF7294)))) (CFFI:DEFCFUN ("dla_porfsx_extended_" %%DLA_PORFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -6683,55 +6682,52 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7344 ':INT32) (N-REF7346 ':INT32) - (NRHS-REF7347 ':INT32) (LDA-REF7349 ':INT32) - (LDAF-REF7351 ':INT32) (COLEQU-REF7352 ':INT32) - (LDB-REF7355 ':INT32) (LDY-REF7357 ':INT32) - (N_NORMS-REF7359 ':INT32) - (RCOND-REF7366 ':DOUBLE) - (ITHRESH-REF7367 ':INT32) - (RTHRESH-REF7368 ':DOUBLE) - (DZ_UB-REF7369 ':DOUBLE) - (IGNORE_CWISE-REF7370 ':INT32) - (INFO-REF7371 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7344 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7346 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7347 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7349 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7351 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7352 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7355 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7357 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7359 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7366 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7367 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7368 :DOUBLE) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7369 :DOUBLE) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7370 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7371 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7348 A) (AF-REF7350 AF) - (C-REF7353 C) (B-REF7354 B) - (Y-REF7356 Y) - (BERR_OUT-REF7358 BERR_OUT) - (ERR_BNDS_NORM-REF7360 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7295 ':INT32) (N-REF7297 ':INT32) + (NRHS-REF7298 ':INT32) (LDA-REF7300 ':INT32) + (LDAF-REF7302 ':INT32) (COLEQU-REF7303 ':INT32) + (LDB-REF7306 ':INT32) (LDY-REF7308 ':INT32) + (N_NORMS-REF7310 ':INT32) + (RCOND-REF7317 ':DOUBLE) + (ITHRESH-REF7318 ':INT32) + (RTHRESH-REF7319 ':DOUBLE) + (DZ_UB-REF7320 ':DOUBLE) + (IGNORE_CWISE-REF7321 ':INT32) + (INFO-REF7322 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7295 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7297 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7298 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7300 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7302 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7303 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7306 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7308 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7310 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7317 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7318 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7319 :DOUBLE) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7320 :DOUBLE) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7321 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7322 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7299 A) (AF-REF7301 AF) + (C-REF7304 C) (B-REF7305 B) + (Y-REF7307 Y) + (BERR_OUT-REF7309 BERR_OUT) + (ERR_BNDS_NORM-REF7311 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF7361 + (ERR_BNDS_COMP-REF7312 ERR_BNDS_COMP) - (RES-REF7362 RES) (AYB-REF7363 AYB) - (DY-REF7364 DY) - (Y_TAIL-REF7365 Y_TAIL)) - (%%DLA_PORFSX_EXTENDED PREC_TYPE-REF7344 UPLO N-REF7346 NRHS-REF7347 - A-REF7348 LDA-REF7349 AF-REF7350 LDAF-REF7351 - COLEQU-REF7352 C-REF7353 B-REF7354 LDB-REF7355 - Y-REF7356 LDY-REF7357 BERR_OUT-REF7358 - N_NORMS-REF7359 ERR_BNDS_NORM-REF7360 - ERR_BNDS_COMP-REF7361 RES-REF7362 AYB-REF7363 - DY-REF7364 Y_TAIL-REF7365 RCOND-REF7366 - ITHRESH-REF7367 RTHRESH-REF7368 DZ_UB-REF7369 - IGNORE_CWISE-REF7370 INFO-REF7371)))) + (RES-REF7313 RES) (AYB-REF7314 AYB) + (DY-REF7315 DY) + (Y_TAIL-REF7316 Y_TAIL)) + (%%DLA_PORFSX_EXTENDED PREC_TYPE-REF7295 UPLO N-REF7297 NRHS-REF7298 + A-REF7299 LDA-REF7300 AF-REF7301 LDAF-REF7302 COLEQU-REF7303 C-REF7304 + B-REF7305 LDB-REF7306 Y-REF7307 LDY-REF7308 BERR_OUT-REF7309 + N_NORMS-REF7310 ERR_BNDS_NORM-REF7311 ERR_BNDS_COMP-REF7312 RES-REF7313 + AYB-REF7314 DY-REF7315 Y_TAIL-REF7316 RCOND-REF7317 ITHRESH-REF7318 + RTHRESH-REF7319 DZ_UB-REF7320 IGNORE_CWISE-REF7321 INFO-REF7322)))) (CFFI:DEFCFUN ("dla_porpvgrw_" %%DLA_PORPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (NCOLS :POINTER) @@ -6754,18 +6750,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF7373 ':INT32) (LDA-REF7375 ':INT32) - (LDAF-REF7377 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7373 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7375 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7377 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7374 A) (AF-REF7376 AF) - (WORK-REF7378 WORK)) - (%%DLA_PORPVGRW UPLO NCOLS-REF7373 A-REF7374 LDA-REF7375 AF-REF7376 - LDAF-REF7377 WORK-REF7378)))) + (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF7324 ':INT32) (LDA-REF7326 ':INT32) + (LDAF-REF7328 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7324 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7326 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7328 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7325 A) (AF-REF7327 AF) + (WORK-REF7329 WORK)) + (%%DLA_PORPVGRW UPLO NCOLS-REF7324 A-REF7325 LDA-REF7326 AF-REF7327 + LDAF-REF7328 WORK-REF7329)))) (CFFI:DEFCFUN ("dla_syamv_" %%DLA_SYAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :POINTER) (N :POINTER) @@ -6793,25 +6789,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF7379 ':INT32) (N-REF7380 ':INT32) - (ALPHA-REF7381 ':DOUBLE) (LDA-REF7383 ':INT32) - (INCX-REF7385 ':INT32) (BETA-REF7386 ':DOUBLE) - (INCY-REF7388 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF7379 :INT32) UPLO) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7380 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7381 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7383 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7385 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7386 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7388 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7382 A) (X-REF7384 X) - (Y-REF7387 Y)) - (%%DLA_SYAMV UPLO-REF7379 N-REF7380 ALPHA-REF7381 A-REF7382 LDA-REF7383 - X-REF7384 INCX-REF7385 BETA-REF7386 Y-REF7387 - INCY-REF7388)))) + (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF7330 ':INT32) (N-REF7331 ':INT32) + (ALPHA-REF7332 ':DOUBLE) (LDA-REF7334 ':INT32) + (INCX-REF7336 ':INT32) (BETA-REF7337 ':DOUBLE) + (INCY-REF7339 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF7330 :INT32) UPLO) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7331 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7332 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7334 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7336 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7337 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7339 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7333 A) (X-REF7335 X) + (Y-REF7338 Y)) + (%%DLA_SYAMV UPLO-REF7330 N-REF7331 ALPHA-REF7332 A-REF7333 LDA-REF7334 + X-REF7335 INCX-REF7336 BETA-REF7337 Y-REF7338 INCY-REF7339)))) (CFFI:DEFCFUN ("dla_syrcond_" %%DLA_SYRCOND :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -6852,24 +6847,24 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) IWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7390 ':INT32) (LDA-REF7392 ':INT32) - (LDAF-REF7394 ':INT32) (CMODE-REF7396 ':INT32) - (INFO-REF7398 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7390 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7392 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7394 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7396 :INT32) CMODE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7398 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7391 A) (AF-REF7393 AF) - (IPIV-REF7395 IPIV) (C-REF7397 C) - (WORK-REF7399 WORK) - (IWORK-REF7400 IWORK)) - (%%DLA_SYRCOND UPLO N-REF7390 A-REF7391 LDA-REF7392 AF-REF7393 - LDAF-REF7394 IPIV-REF7395 CMODE-REF7396 C-REF7397 - INFO-REF7398 WORK-REF7399 IWORK-REF7400)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7341 ':INT32) (LDA-REF7343 ':INT32) + (LDAF-REF7345 ':INT32) (CMODE-REF7347 ':INT32) + (INFO-REF7349 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7341 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7343 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7345 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7347 :INT32) CMODE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7349 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7342 A) (AF-REF7344 AF) + (IPIV-REF7346 IPIV) (C-REF7348 C) + (WORK-REF7350 WORK) + (IWORK-REF7351 IWORK)) + (%%DLA_SYRCOND UPLO N-REF7341 A-REF7342 LDA-REF7343 AF-REF7344 + LDAF-REF7345 IPIV-REF7346 CMODE-REF7347 C-REF7348 INFO-REF7349 + WORK-REF7350 IWORK-REF7351)))) (CFFI:DEFCFUN ("dla_syrfsx_extended_" %%DLA_SYRFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -6958,55 +6953,53 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7401 ':INT32) (N-REF7403 ':INT32) - (NRHS-REF7404 ':INT32) (LDA-REF7406 ':INT32) - (LDAF-REF7408 ':INT32) (COLEQU-REF7410 ':INT32) - (LDB-REF7413 ':INT32) (LDY-REF7415 ':INT32) - (N_NORMS-REF7417 ':INT32) - (RCOND-REF7424 ':DOUBLE) - (ITHRESH-REF7425 ':INT32) - (RTHRESH-REF7426 ':DOUBLE) - (DZ_UB-REF7427 ':DOUBLE) - (IGNORE_CWISE-REF7428 ':INT32) - (INFO-REF7429 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7401 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7403 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7404 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7406 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7408 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7410 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7413 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7415 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7417 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7424 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7425 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7426 :DOUBLE) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7427 :DOUBLE) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7428 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7429 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7405 A) (AF-REF7407 AF) - (IPIV-REF7409 IPIV) (C-REF7411 C) - (B-REF7412 B) (Y-REF7414 Y) - (BERR_OUT-REF7416 BERR_OUT) - (ERR_BNDS_NORM-REF7418 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7352 ':INT32) (N-REF7354 ':INT32) + (NRHS-REF7355 ':INT32) (LDA-REF7357 ':INT32) + (LDAF-REF7359 ':INT32) (COLEQU-REF7361 ':INT32) + (LDB-REF7364 ':INT32) (LDY-REF7366 ':INT32) + (N_NORMS-REF7368 ':INT32) + (RCOND-REF7375 ':DOUBLE) + (ITHRESH-REF7376 ':INT32) + (RTHRESH-REF7377 ':DOUBLE) + (DZ_UB-REF7378 ':DOUBLE) + (IGNORE_CWISE-REF7379 ':INT32) + (INFO-REF7380 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7352 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7354 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7355 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7357 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7359 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7361 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7364 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7366 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7368 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7375 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7376 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7377 :DOUBLE) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7378 :DOUBLE) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7379 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7380 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7356 A) (AF-REF7358 AF) + (IPIV-REF7360 IPIV) (C-REF7362 C) + (B-REF7363 B) (Y-REF7365 Y) + (BERR_OUT-REF7367 BERR_OUT) + (ERR_BNDS_NORM-REF7369 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF7419 + (ERR_BNDS_COMP-REF7370 ERR_BNDS_COMP) - (RES-REF7420 RES) (AYB-REF7421 AYB) - (DY-REF7422 DY) - (Y_TAIL-REF7423 Y_TAIL)) - (%%DLA_SYRFSX_EXTENDED PREC_TYPE-REF7401 UPLO N-REF7403 NRHS-REF7404 - A-REF7405 LDA-REF7406 AF-REF7407 LDAF-REF7408 - IPIV-REF7409 COLEQU-REF7410 C-REF7411 B-REF7412 - LDB-REF7413 Y-REF7414 LDY-REF7415 BERR_OUT-REF7416 - N_NORMS-REF7417 ERR_BNDS_NORM-REF7418 - ERR_BNDS_COMP-REF7419 RES-REF7420 AYB-REF7421 - DY-REF7422 Y_TAIL-REF7423 RCOND-REF7424 - ITHRESH-REF7425 RTHRESH-REF7426 DZ_UB-REF7427 - IGNORE_CWISE-REF7428 INFO-REF7429)))) + (RES-REF7371 RES) (AYB-REF7372 AYB) + (DY-REF7373 DY) + (Y_TAIL-REF7374 Y_TAIL)) + (%%DLA_SYRFSX_EXTENDED PREC_TYPE-REF7352 UPLO N-REF7354 NRHS-REF7355 + A-REF7356 LDA-REF7357 AF-REF7358 LDAF-REF7359 IPIV-REF7360 + COLEQU-REF7361 C-REF7362 B-REF7363 LDB-REF7364 Y-REF7365 LDY-REF7366 + BERR_OUT-REF7367 N_NORMS-REF7368 ERR_BNDS_NORM-REF7369 + ERR_BNDS_COMP-REF7370 RES-REF7371 AYB-REF7372 DY-REF7373 Y_TAIL-REF7374 + RCOND-REF7375 ITHRESH-REF7376 RTHRESH-REF7377 DZ_UB-REF7378 + IGNORE_CWISE-REF7379 INFO-REF7380)))) (CFFI:DEFCFUN ("dla_syrpvgrw_" %%DLA_SYRPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -7036,20 +7029,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7431 ':INT32) (INFO-REF7432 ':INT32) - (LDA-REF7434 ':INT32) (LDAF-REF7436 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7431 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7432 :INT32) INFO) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7434 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7436 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7433 A) (AF-REF7435 AF) - (IPIV-REF7437 IPIV) - (WORK-REF7438 WORK)) - (%%DLA_SYRPVGRW UPLO N-REF7431 INFO-REF7432 A-REF7433 LDA-REF7434 - AF-REF7435 LDAF-REF7436 IPIV-REF7437 WORK-REF7438)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7382 ':INT32) (INFO-REF7383 ':INT32) + (LDA-REF7385 ':INT32) (LDAF-REF7387 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7382 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7383 :INT32) INFO) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7385 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7387 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7384 A) (AF-REF7386 AF) + (IPIV-REF7388 IPIV) + (WORK-REF7389 WORK)) + (%%DLA_SYRPVGRW UPLO N-REF7382 INFO-REF7383 A-REF7384 LDA-REF7385 + AF-REF7386 LDAF-REF7387 IPIV-REF7388 WORK-REF7389)))) (CFFI:DEFCFUN ("dla_wwaddw_" %%DLA_WWADDW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -7065,13 +7058,13 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7439 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7439 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7440 X) (Y-REF7441 Y) - (W-REF7442 W)) - (%%DLA_WWADDW N-REF7439 X-REF7440 Y-REF7441 W-REF7442)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7390 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7390 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7391 X) (Y-REF7392 Y) + (W-REF7393 W)) + (%%DLA_WWADDW N-REF7390 X-REF7391 Y-REF7392 W-REF7393)))) -(CFFI:DEFCFUN ("dlabad_" %%DLABAD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlabad_" %%DLABAD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SMALL :POINTER) (LARGE :POINTER)) @@ -7080,13 +7073,13 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLABAD) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMALL) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LARGE)) - (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF7443 ':DOUBLE) (LARGE-REF7444 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF7443 :DOUBLE) SMALL) - (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF7444 :DOUBLE) LARGE) + (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF7394 ':DOUBLE) (LARGE-REF7395 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF7394 :DOUBLE) SMALL) + (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF7395 :DOUBLE) LARGE) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLABAD SMALL-REF7443 LARGE-REF7444)))) + (%%DLABAD SMALL-REF7394 LARGE-REF7395)))) -(CFFI:DEFCFUN ("dlabrd_" %%DLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlabrd_" %%DLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -7126,24 +7119,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7445 ':INT32) (N-REF7446 ':INT32) - (NB-REF7447 ':INT32) (LDA-REF7449 ':INT32) - (LDX-REF7455 ':INT32) (LDY-REF7457 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7445 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7446 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7447 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7449 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7455 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7457 :INT32) LDY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7448 A) (D-REF7450 D) - (E-REF7451 E) (TAUQ-REF7452 TAUQ) - (TAUP-REF7453 TAUP) (X-REF7454 X) - (Y-REF7456 Y)) - (%%DLABRD M-REF7445 N-REF7446 NB-REF7447 A-REF7448 LDA-REF7449 D-REF7450 - E-REF7451 TAUQ-REF7452 TAUP-REF7453 X-REF7454 LDX-REF7455 - Y-REF7456 LDY-REF7457)))) - -(CFFI:DEFCFUN ("dlacn2_" %%DLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7396 ':INT32) (N-REF7397 ':INT32) + (NB-REF7398 ':INT32) (LDA-REF7400 ':INT32) + (LDX-REF7406 ':INT32) (LDY-REF7408 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7396 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7397 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7398 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7400 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7406 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7408 :INT32) LDY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7399 A) (D-REF7401 D) + (E-REF7402 E) (TAUQ-REF7403 TAUQ) + (TAUP-REF7404 TAUP) (X-REF7405 X) + (Y-REF7407 Y)) + (%%DLABRD M-REF7396 N-REF7397 NB-REF7398 A-REF7399 LDA-REF7400 D-REF7401 + E-REF7402 TAUQ-REF7403 TAUP-REF7404 X-REF7405 LDX-REF7406 Y-REF7407 + LDY-REF7408)))) + +(CFFI:DEFCFUN ("dlacn2_" %%DLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (V :POINTER) @@ -7170,18 +7163,18 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) ISAVE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7458 ':INT32) (EST-REF7462 ':DOUBLE) - (KASE-REF7463 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7458 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7462 :DOUBLE) EST) - (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7463 :INT32) KASE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7459 V) (X-REF7460 X) - (ISGN-REF7461 ISGN) - (ISAVE-REF7464 ISAVE)) - (%%DLACN2 N-REF7458 V-REF7459 X-REF7460 ISGN-REF7461 EST-REF7462 - KASE-REF7463 ISAVE-REF7464)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7409 ':INT32) (EST-REF7413 ':DOUBLE) + (KASE-REF7414 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7409 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7413 :DOUBLE) EST) + (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7414 :INT32) KASE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7410 V) (X-REF7411 X) + (ISGN-REF7412 ISGN) + (ISAVE-REF7415 ISAVE)) + (%%DLACN2 N-REF7409 V-REF7410 X-REF7411 ISGN-REF7412 EST-REF7413 + KASE-REF7414 ISAVE-REF7415)))) -(CFFI:DEFCFUN ("dlacon_" %%DLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlacon_" %%DLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (V :POINTER) @@ -7203,17 +7196,17 @@ ISGN) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7465 ':INT32) (EST-REF7469 ':DOUBLE) - (KASE-REF7470 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7465 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7469 :DOUBLE) EST) - (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7470 :INT32) KASE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7466 V) (X-REF7467 X) - (ISGN-REF7468 ISGN)) - (%%DLACON N-REF7465 V-REF7466 X-REF7467 ISGN-REF7468 EST-REF7469 - KASE-REF7470)))) - -(CFFI:DEFCFUN ("dlacpy_" %%DLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7416 ':INT32) (EST-REF7420 ':DOUBLE) + (KASE-REF7421 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7416 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7420 :DOUBLE) EST) + (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7421 :INT32) KASE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7417 V) (X-REF7418 X) + (ISGN-REF7419 ISGN)) + (%%DLACON N-REF7416 V-REF7417 X-REF7418 ISGN-REF7419 EST-REF7420 + KASE-REF7421)))) + +(CFFI:DEFCFUN ("dlacpy_" %%DLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -7234,17 +7227,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7472 ':INT32) (N-REF7473 ':INT32) - (LDA-REF7475 ':INT32) (LDB-REF7477 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7472 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7473 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7475 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7477 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7474 A) (B-REF7476 B)) - (%%DLACPY UPLO M-REF7472 N-REF7473 A-REF7474 LDA-REF7475 B-REF7476 - LDB-REF7477)))) - -(CFFI:DEFCFUN ("dladiv_" %%DLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7423 ':INT32) (N-REF7424 ':INT32) + (LDA-REF7426 ':INT32) (LDB-REF7428 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7423 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7424 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7426 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7428 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7425 A) (B-REF7427 B)) + (%%DLACPY UPLO M-REF7423 N-REF7424 A-REF7425 LDA-REF7426 B-REF7427 + LDB-REF7428)))) + +(CFFI:DEFCFUN ("dladiv_" %%DLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -7261,19 +7254,19 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT P) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Q)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7478 ':DOUBLE) (B-REF7479 ':DOUBLE) - (C-REF7480 ':DOUBLE) (D-REF7481 ':DOUBLE) - (P-REF7482 ':DOUBLE) (Q-REF7483 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7478 :DOUBLE) A) - (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7479 :DOUBLE) B) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7480 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7481 :DOUBLE) D) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7482 :DOUBLE) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF7483 :DOUBLE) Q) + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7429 ':DOUBLE) (B-REF7430 ':DOUBLE) + (C-REF7431 ':DOUBLE) (D-REF7432 ':DOUBLE) + (P-REF7433 ':DOUBLE) (Q-REF7434 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7429 :DOUBLE) A) + (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7430 :DOUBLE) B) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7431 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7432 :DOUBLE) D) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7433 :DOUBLE) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF7434 :DOUBLE) Q) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLADIV A-REF7478 B-REF7479 C-REF7480 D-REF7481 P-REF7482 Q-REF7483)))) + (%%DLADIV A-REF7429 B-REF7430 C-REF7431 D-REF7432 P-REF7433 Q-REF7434)))) -(CFFI:DEFCFUN ("dlae2_" %%DLAE2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlae2_" %%DLAE2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -7288,18 +7281,18 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7484 ':DOUBLE) (B-REF7485 ':DOUBLE) - (C-REF7486 ':DOUBLE) (RT1-REF7487 ':DOUBLE) - (RT2-REF7488 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7484 :DOUBLE) A) - (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7485 :DOUBLE) B) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7486 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7487 :DOUBLE) RT1) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7488 :DOUBLE) RT2) + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7435 ':DOUBLE) (B-REF7436 ':DOUBLE) + (C-REF7437 ':DOUBLE) (RT1-REF7438 ':DOUBLE) + (RT2-REF7439 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7435 :DOUBLE) A) + (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7436 :DOUBLE) B) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7437 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7438 :DOUBLE) RT1) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7439 :DOUBLE) RT2) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLAE2 A-REF7484 B-REF7485 C-REF7486 RT1-REF7487 RT2-REF7488)))) + (%%DLAE2 A-REF7435 B-REF7436 C-REF7437 RT1-REF7438 RT2-REF7439)))) -(CFFI:DEFCFUN ("dlaebz_" %%DLAEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlaebz_" %%DLAEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (NITMAX :POINTER) @@ -7362,37 +7355,36 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF7489 ':INT32) (NITMAX-REF7490 ':INT32) - (N-REF7491 ':INT32) (MMAX-REF7492 ':INT32) - (MINP-REF7493 ':INT32) (NBMIN-REF7494 ':INT32) - (ABSTOL-REF7495 ':DOUBLE) - (RELTOL-REF7496 ':DOUBLE) - (PIVMIN-REF7497 ':DOUBLE) (MOUT-REF7504 ':INT32) - (INFO-REF7508 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF7489 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF7490 :INT32) NITMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7491 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF7492 :INT32) MMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF7493 :INT32) MINP) - (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF7494 :INT32) NBMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7495 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF7496 :DOUBLE) RELTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7497 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF7504 :INT32) MOUT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7508 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7498 D) (E-REF7499 E) - (E2-REF7500 E2) (NVAL-REF7501 NVAL) - (AB-REF7502 AB) (C-REF7503 C) - (NAB-REF7505 NAB) - (WORK-REF7506 WORK) - (IWORK-REF7507 IWORK)) - (%%DLAEBZ IJOB-REF7489 NITMAX-REF7490 N-REF7491 MMAX-REF7492 MINP-REF7493 - NBMIN-REF7494 ABSTOL-REF7495 RELTOL-REF7496 PIVMIN-REF7497 - D-REF7498 E-REF7499 E2-REF7500 NVAL-REF7501 AB-REF7502 - C-REF7503 MOUT-REF7504 NAB-REF7505 WORK-REF7506 IWORK-REF7507 - INFO-REF7508)))) - -(CFFI:DEFCFUN ("dlaed0_" %%DLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF7440 ':INT32) (NITMAX-REF7441 ':INT32) + (N-REF7442 ':INT32) (MMAX-REF7443 ':INT32) + (MINP-REF7444 ':INT32) (NBMIN-REF7445 ':INT32) + (ABSTOL-REF7446 ':DOUBLE) + (RELTOL-REF7447 ':DOUBLE) + (PIVMIN-REF7448 ':DOUBLE) (MOUT-REF7455 ':INT32) + (INFO-REF7459 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF7440 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF7441 :INT32) NITMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7442 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF7443 :INT32) MMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF7444 :INT32) MINP) + (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF7445 :INT32) NBMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7446 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF7447 :DOUBLE) RELTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7448 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF7455 :INT32) MOUT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7459 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7449 D) (E-REF7450 E) + (E2-REF7451 E2) (NVAL-REF7452 NVAL) + (AB-REF7453 AB) (C-REF7454 C) + (NAB-REF7456 NAB) + (WORK-REF7457 WORK) + (IWORK-REF7458 IWORK)) + (%%DLAEBZ IJOB-REF7440 NITMAX-REF7441 N-REF7442 MMAX-REF7443 MINP-REF7444 + NBMIN-REF7445 ABSTOL-REF7446 RELTOL-REF7447 PIVMIN-REF7448 D-REF7449 + E-REF7450 E2-REF7451 NVAL-REF7452 AB-REF7453 C-REF7454 MOUT-REF7455 + NAB-REF7456 WORK-REF7457 IWORK-REF7458 INFO-REF7459)))) + +(CFFI:DEFCFUN ("dlaed0_" %%DLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (QSIZ :POINTER) @@ -7432,25 +7424,25 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7509 ':INT32) (QSIZ-REF7510 ':INT32) - (N-REF7511 ':INT32) (LDQ-REF7515 ':INT32) - (LDQS-REF7517 ':INT32) (INFO-REF7520 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7509 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7510 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7511 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7515 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF7517 :INT32) LDQS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7520 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7512 D) (E-REF7513 E) - (Q-REF7514 Q) - (QSTORE-REF7516 QSTORE) - (WORK-REF7518 WORK) - (IWORK-REF7519 IWORK)) - (%%DLAED0 ICOMPQ-REF7509 QSIZ-REF7510 N-REF7511 D-REF7512 E-REF7513 - Q-REF7514 LDQ-REF7515 QSTORE-REF7516 LDQS-REF7517 WORK-REF7518 - IWORK-REF7519 INFO-REF7520)))) - -(CFFI:DEFCFUN ("dlaed1_" %%DLAED1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7460 ':INT32) (QSIZ-REF7461 ':INT32) + (N-REF7462 ':INT32) (LDQ-REF7466 ':INT32) + (LDQS-REF7468 ':INT32) (INFO-REF7471 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7460 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7461 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7462 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7466 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF7468 :INT32) LDQS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7471 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7463 D) (E-REF7464 E) + (Q-REF7465 Q) + (QSTORE-REF7467 QSTORE) + (WORK-REF7469 WORK) + (IWORK-REF7470 IWORK)) + (%%DLAED0 ICOMPQ-REF7460 QSIZ-REF7461 N-REF7462 D-REF7463 E-REF7464 + Q-REF7465 LDQ-REF7466 QSTORE-REF7467 LDQS-REF7468 WORK-REF7469 + IWORK-REF7470 INFO-REF7471)))) + +(CFFI:DEFCFUN ("dlaed1_" %%DLAED1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -7485,23 +7477,22 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7521 ':INT32) (LDQ-REF7524 ':INT32) - (RHO-REF7526 ':DOUBLE) (CUTPNT-REF7527 ':INT32) - (INFO-REF7530 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7521 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7524 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7526 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7527 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7530 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7522 D) (Q-REF7523 Q) - (INDXQ-REF7525 INDXQ) - (WORK-REF7528 WORK) - (IWORK-REF7529 IWORK)) - (%%DLAED1 N-REF7521 D-REF7522 Q-REF7523 LDQ-REF7524 INDXQ-REF7525 - RHO-REF7526 CUTPNT-REF7527 WORK-REF7528 IWORK-REF7529 - INFO-REF7530)))) - -(CFFI:DEFCFUN ("dlaed2_" %%DLAED2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7472 ':INT32) (LDQ-REF7475 ':INT32) + (RHO-REF7477 ':DOUBLE) (CUTPNT-REF7478 ':INT32) + (INFO-REF7481 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7472 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7475 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7477 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7478 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7481 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7473 D) (Q-REF7474 Q) + (INDXQ-REF7476 INDXQ) + (WORK-REF7479 WORK) + (IWORK-REF7480 IWORK)) + (%%DLAED1 N-REF7472 D-REF7473 Q-REF7474 LDQ-REF7475 INDXQ-REF7476 + RHO-REF7477 CUTPNT-REF7478 WORK-REF7479 IWORK-REF7480 INFO-REF7481)))) + +(CFFI:DEFCFUN ("dlaed2_" %%DLAED2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (K :POINTER) (N :POINTER) @@ -7564,29 +7555,28 @@ (COMMON-LISP:*)) COLTYP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7531 ':INT32) (N-REF7532 ':INT32) - (N1-REF7533 ':INT32) (LDQ-REF7536 ':INT32) - (RHO-REF7538 ':DOUBLE) (INFO-REF7547 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7531 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7532 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7533 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7536 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7538 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7547 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7534 D) (Q-REF7535 Q) - (INDXQ-REF7537 INDXQ) (Z-REF7539 Z) - (DLAMDA-REF7540 DLAMDA) - (W-REF7541 W) (Q2-REF7542 Q2) - (INDX-REF7543 INDX) - (INDXC-REF7544 INDXC) - (INDXP-REF7545 INDXP) - (COLTYP-REF7546 COLTYP)) - (%%DLAED2 K-REF7531 N-REF7532 N1-REF7533 D-REF7534 Q-REF7535 LDQ-REF7536 - INDXQ-REF7537 RHO-REF7538 Z-REF7539 DLAMDA-REF7540 W-REF7541 - Q2-REF7542 INDX-REF7543 INDXC-REF7544 INDXP-REF7545 - COLTYP-REF7546 INFO-REF7547)))) - -(CFFI:DEFCFUN ("dlaed3_" %%DLAED3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7482 ':INT32) (N-REF7483 ':INT32) + (N1-REF7484 ':INT32) (LDQ-REF7487 ':INT32) + (RHO-REF7489 ':DOUBLE) (INFO-REF7498 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7482 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7483 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7484 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7487 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7489 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7498 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7485 D) (Q-REF7486 Q) + (INDXQ-REF7488 INDXQ) (Z-REF7490 Z) + (DLAMDA-REF7491 DLAMDA) + (W-REF7492 W) (Q2-REF7493 Q2) + (INDX-REF7494 INDX) + (INDXC-REF7495 INDXC) + (INDXP-REF7496 INDXP) + (COLTYP-REF7497 COLTYP)) + (%%DLAED2 K-REF7482 N-REF7483 N1-REF7484 D-REF7485 Q-REF7486 LDQ-REF7487 + INDXQ-REF7488 RHO-REF7489 Z-REF7490 DLAMDA-REF7491 W-REF7492 Q2-REF7493 + INDX-REF7494 INDXC-REF7495 INDXP-REF7496 COLTYP-REF7497 INFO-REF7498)))) + +(CFFI:DEFCFUN ("dlaed3_" %%DLAED3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (K :POINTER) (N :POINTER) @@ -7632,25 +7622,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7548 ':INT32) (N-REF7549 ':INT32) - (N1-REF7550 ':INT32) (LDQ-REF7553 ':INT32) - (RHO-REF7554 ':DOUBLE) (INFO-REF7561 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7548 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7549 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7550 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7553 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7554 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7561 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7551 D) (Q-REF7552 Q) - (DLAMDA-REF7555 DLAMDA) - (Q2-REF7556 Q2) (INDX-REF7557 INDX) - (CTOT-REF7558 CTOT) (W-REF7559 W) - (S-REF7560 S)) - (%%DLAED3 K-REF7548 N-REF7549 N1-REF7550 D-REF7551 Q-REF7552 LDQ-REF7553 - RHO-REF7554 DLAMDA-REF7555 Q2-REF7556 INDX-REF7557 CTOT-REF7558 - W-REF7559 S-REF7560 INFO-REF7561)))) - -(CFFI:DEFCFUN ("dlaed4_" %%DLAED4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7499 ':INT32) (N-REF7500 ':INT32) + (N1-REF7501 ':INT32) (LDQ-REF7504 ':INT32) + (RHO-REF7505 ':DOUBLE) (INFO-REF7512 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7499 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7500 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7501 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7504 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7505 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7512 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7502 D) (Q-REF7503 Q) + (DLAMDA-REF7506 DLAMDA) + (Q2-REF7507 Q2) (INDX-REF7508 INDX) + (CTOT-REF7509 CTOT) (W-REF7510 W) + (S-REF7511 S)) + (%%DLAED3 K-REF7499 N-REF7500 N1-REF7501 D-REF7502 Q-REF7503 LDQ-REF7504 + RHO-REF7505 DLAMDA-REF7506 Q2-REF7507 INDX-REF7508 CTOT-REF7509 + W-REF7510 S-REF7511 INFO-REF7512)))) + +(CFFI:DEFCFUN ("dlaed4_" %%DLAED4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (I :POINTER) @@ -7675,20 +7665,20 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DLAM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7562 ':INT32) (I-REF7563 ':INT32) - (RHO-REF7567 ':DOUBLE) (DLAM-REF7568 ':DOUBLE) - (INFO-REF7569 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7562 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7563 :INT32) I) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7567 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7568 :DOUBLE) DLAM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7569 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7564 D) (Z-REF7565 Z) - (DELTA-REF7566 DELTA)) - (%%DLAED4 N-REF7562 I-REF7563 D-REF7564 Z-REF7565 DELTA-REF7566 - RHO-REF7567 DLAM-REF7568 INFO-REF7569)))) - -(CFFI:DEFCFUN ("dlaed5_" %%DLAED5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7513 ':INT32) (I-REF7514 ':INT32) + (RHO-REF7518 ':DOUBLE) (DLAM-REF7519 ':DOUBLE) + (INFO-REF7520 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7513 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7514 :INT32) I) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7518 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7519 :DOUBLE) DLAM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7520 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7515 D) (Z-REF7516 Z) + (DELTA-REF7517 DELTA)) + (%%DLAED4 N-REF7513 I-REF7514 D-REF7515 Z-REF7516 DELTA-REF7517 + RHO-REF7518 DLAM-REF7519 INFO-REF7520)))) + +(CFFI:DEFCFUN ("dlaed5_" %%DLAED5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I :POINTER) (D :POINTER) @@ -7709,17 +7699,17 @@ DELTA) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DLAM)) - (CFFI:WITH-FOREIGN-OBJECTS ((I-REF7570 ':INT32) (RHO-REF7574 ':DOUBLE) - (DLAM-REF7575 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7570 :INT32) I) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7574 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7575 :DOUBLE) DLAM) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7571 D) (Z-REF7572 Z) - (DELTA-REF7573 DELTA)) - (%%DLAED5 I-REF7570 D-REF7571 Z-REF7572 DELTA-REF7573 RHO-REF7574 - DLAM-REF7575)))) - -(CFFI:DEFCFUN ("dlaed6_" %%DLAED6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I-REF7521 ':INT32) (RHO-REF7525 ':DOUBLE) + (DLAM-REF7526 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7521 :INT32) I) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7525 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7526 :DOUBLE) DLAM) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7522 D) (Z-REF7523 Z) + (DELTA-REF7524 DELTA)) + (%%DLAED5 I-REF7521 D-REF7522 Z-REF7523 DELTA-REF7524 RHO-REF7525 + DLAM-REF7526)))) + +(CFFI:DEFCFUN ("dlaed6_" %%DLAED6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (KNITER :POINTER) (ORGATI :POINTER) @@ -7742,20 +7732,20 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT FINIT) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF7576 ':INT32) (ORGATI-REF7577 ':INT32) - (RHO-REF7578 ':DOUBLE) (FINIT-REF7581 ':DOUBLE) - (TAU-REF7582 ':DOUBLE) (INFO-REF7583 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF7576 :INT32) KNITER) - (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF7577 :INT32) ORGATI) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7578 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF7581 :DOUBLE) FINIT) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF7582 :DOUBLE) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7583 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7579 D) (Z-REF7580 Z)) - (%%DLAED6 KNITER-REF7576 ORGATI-REF7577 RHO-REF7578 D-REF7579 Z-REF7580 - FINIT-REF7581 TAU-REF7582 INFO-REF7583)))) - -(CFFI:DEFCFUN ("dlaed7_" %%DLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF7527 ':INT32) (ORGATI-REF7528 ':INT32) + (RHO-REF7529 ':DOUBLE) (FINIT-REF7532 ':DOUBLE) + (TAU-REF7533 ':DOUBLE) (INFO-REF7534 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF7527 :INT32) KNITER) + (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF7528 :INT32) ORGATI) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7529 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF7532 :DOUBLE) FINIT) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF7533 :DOUBLE) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7534 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7530 D) (Z-REF7531 Z)) + (%%DLAED6 KNITER-REF7527 ORGATI-REF7528 RHO-REF7529 D-REF7530 Z-REF7531 + FINIT-REF7532 TAU-REF7533 INFO-REF7534)))) + +(CFFI:DEFCFUN ("dlaed7_" %%DLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (N :POINTER) @@ -7836,40 +7826,39 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7584 ':INT32) (N-REF7585 ':INT32) - (QSIZ-REF7586 ':INT32) (TLVLS-REF7587 ':INT32) - (CURLVL-REF7588 ':INT32) (CURPBM-REF7589 ':INT32) - (LDQ-REF7592 ':INT32) (RHO-REF7594 ':DOUBLE) - (CUTPNT-REF7595 ':INT32) (INFO-REF7605 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7584 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7585 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7586 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7587 :INT32) TLVLS) - (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7588 :INT32) CURLVL) - (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7589 :INT32) CURPBM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7592 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7594 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7595 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7605 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7590 D) (Q-REF7591 Q) - (INDXQ-REF7593 INDXQ) - (QSTORE-REF7596 QSTORE) - (QPTR-REF7597 QPTR) - (PRMPTR-REF7598 PRMPTR) - (PERM-REF7599 PERM) - (GIVPTR-REF7600 GIVPTR) - (GIVCOL-REF7601 GIVCOL) - (GIVNUM-REF7602 GIVNUM) - (WORK-REF7603 WORK) - (IWORK-REF7604 IWORK)) - (%%DLAED7 ICOMPQ-REF7584 N-REF7585 QSIZ-REF7586 TLVLS-REF7587 - CURLVL-REF7588 CURPBM-REF7589 D-REF7590 Q-REF7591 LDQ-REF7592 - INDXQ-REF7593 RHO-REF7594 CUTPNT-REF7595 QSTORE-REF7596 - QPTR-REF7597 PRMPTR-REF7598 PERM-REF7599 GIVPTR-REF7600 - GIVCOL-REF7601 GIVNUM-REF7602 WORK-REF7603 IWORK-REF7604 - INFO-REF7605)))) - -(CFFI:DEFCFUN ("dlaed8_" %%DLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7535 ':INT32) (N-REF7536 ':INT32) + (QSIZ-REF7537 ':INT32) (TLVLS-REF7538 ':INT32) + (CURLVL-REF7539 ':INT32) (CURPBM-REF7540 ':INT32) + (LDQ-REF7543 ':INT32) (RHO-REF7545 ':DOUBLE) + (CUTPNT-REF7546 ':INT32) (INFO-REF7556 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7535 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7536 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7537 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7538 :INT32) TLVLS) + (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7539 :INT32) CURLVL) + (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7540 :INT32) CURPBM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7543 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7545 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7546 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7556 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7541 D) (Q-REF7542 Q) + (INDXQ-REF7544 INDXQ) + (QSTORE-REF7547 QSTORE) + (QPTR-REF7548 QPTR) + (PRMPTR-REF7549 PRMPTR) + (PERM-REF7550 PERM) + (GIVPTR-REF7551 GIVPTR) + (GIVCOL-REF7552 GIVCOL) + (GIVNUM-REF7553 GIVNUM) + (WORK-REF7554 WORK) + (IWORK-REF7555 IWORK)) + (%%DLAED7 ICOMPQ-REF7535 N-REF7536 QSIZ-REF7537 TLVLS-REF7538 + CURLVL-REF7539 CURPBM-REF7540 D-REF7541 Q-REF7542 LDQ-REF7543 + INDXQ-REF7544 RHO-REF7545 CUTPNT-REF7546 QSTORE-REF7547 QPTR-REF7548 + PRMPTR-REF7549 PERM-REF7550 GIVPTR-REF7551 GIVCOL-REF7552 GIVNUM-REF7553 + WORK-REF7554 IWORK-REF7555 INFO-REF7556)))) + +(CFFI:DEFCFUN ("dlaed8_" %%DLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (K :POINTER) @@ -7944,37 +7933,37 @@ (COMMON-LISP:*)) INDX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7606 ':INT32) (K-REF7607 ':INT32) - (N-REF7608 ':INT32) (QSIZ-REF7609 ':INT32) - (LDQ-REF7612 ':INT32) (RHO-REF7614 ':DOUBLE) - (CUTPNT-REF7615 ':INT32) (LDQ2-REF7619 ':INT32) - (GIVPTR-REF7622 ':INT32) (INFO-REF7627 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7606 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7607 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7608 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7609 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7612 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7614 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7615 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF7619 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7622 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7627 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7610 D) (Q-REF7611 Q) - (INDXQ-REF7613 INDXQ) (Z-REF7616 Z) - (DLAMDA-REF7617 DLAMDA) - (Q2-REF7618 Q2) (W-REF7620 W) - (PERM-REF7621 PERM) - (GIVCOL-REF7623 GIVCOL) - (GIVNUM-REF7624 GIVNUM) - (INDXP-REF7625 INDXP) - (INDX-REF7626 INDX)) - (%%DLAED8 ICOMPQ-REF7606 K-REF7607 N-REF7608 QSIZ-REF7609 D-REF7610 - Q-REF7611 LDQ-REF7612 INDXQ-REF7613 RHO-REF7614 CUTPNT-REF7615 - Z-REF7616 DLAMDA-REF7617 Q2-REF7618 LDQ2-REF7619 W-REF7620 - PERM-REF7621 GIVPTR-REF7622 GIVCOL-REF7623 GIVNUM-REF7624 - INDXP-REF7625 INDX-REF7626 INFO-REF7627)))) - -(CFFI:DEFCFUN ("dlaed9_" %%DLAED9 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7557 ':INT32) (K-REF7558 ':INT32) + (N-REF7559 ':INT32) (QSIZ-REF7560 ':INT32) + (LDQ-REF7563 ':INT32) (RHO-REF7565 ':DOUBLE) + (CUTPNT-REF7566 ':INT32) (LDQ2-REF7570 ':INT32) + (GIVPTR-REF7573 ':INT32) (INFO-REF7578 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7557 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7558 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7559 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7560 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7563 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7565 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7566 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF7570 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7573 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7578 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7561 D) (Q-REF7562 Q) + (INDXQ-REF7564 INDXQ) (Z-REF7567 Z) + (DLAMDA-REF7568 DLAMDA) + (Q2-REF7569 Q2) (W-REF7571 W) + (PERM-REF7572 PERM) + (GIVCOL-REF7574 GIVCOL) + (GIVNUM-REF7575 GIVNUM) + (INDXP-REF7576 INDXP) + (INDX-REF7577 INDX)) + (%%DLAED8 ICOMPQ-REF7557 K-REF7558 N-REF7559 QSIZ-REF7560 D-REF7561 + Q-REF7562 LDQ-REF7563 INDXQ-REF7564 RHO-REF7565 CUTPNT-REF7566 Z-REF7567 + DLAMDA-REF7568 Q2-REF7569 LDQ2-REF7570 W-REF7571 PERM-REF7572 + GIVPTR-REF7573 GIVCOL-REF7574 GIVNUM-REF7575 INDXP-REF7576 INDX-REF7577 + INFO-REF7578)))) + +(CFFI:DEFCFUN ("dlaed9_" %%DLAED9 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (K :POINTER) (KSTART :POINTER) @@ -8011,26 +8000,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7628 ':INT32) (KSTART-REF7629 ':INT32) - (KSTOP-REF7630 ':INT32) (N-REF7631 ':INT32) - (LDQ-REF7634 ':INT32) (RHO-REF7635 ':DOUBLE) - (LDS-REF7639 ':INT32) (INFO-REF7640 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7628 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF7629 :INT32) KSTART) - (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF7630 :INT32) KSTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7631 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7634 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7635 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF7639 :INT32) LDS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7640 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7632 D) (Q-REF7633 Q) - (DLAMDA-REF7636 DLAMDA) - (W-REF7637 W) (S-REF7638 S)) - (%%DLAED9 K-REF7628 KSTART-REF7629 KSTOP-REF7630 N-REF7631 D-REF7632 - Q-REF7633 LDQ-REF7634 RHO-REF7635 DLAMDA-REF7636 W-REF7637 - S-REF7638 LDS-REF7639 INFO-REF7640)))) - -(CFFI:DEFCFUN ("dlaeda_" %%DLAEDA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7579 ':INT32) (KSTART-REF7580 ':INT32) + (KSTOP-REF7581 ':INT32) (N-REF7582 ':INT32) + (LDQ-REF7585 ':INT32) (RHO-REF7586 ':DOUBLE) + (LDS-REF7590 ':INT32) (INFO-REF7591 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7579 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF7580 :INT32) KSTART) + (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF7581 :INT32) KSTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7582 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7585 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7586 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF7590 :INT32) LDS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7591 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7583 D) (Q-REF7584 Q) + (DLAMDA-REF7587 DLAMDA) + (W-REF7588 W) (S-REF7589 S)) + (%%DLAED9 K-REF7579 KSTART-REF7580 KSTOP-REF7581 N-REF7582 D-REF7583 + Q-REF7584 LDQ-REF7585 RHO-REF7586 DLAMDA-REF7587 W-REF7588 S-REF7589 + LDS-REF7590 INFO-REF7591)))) + +(CFFI:DEFCFUN ("dlaeda_" %%DLAEDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (TLVLS :POINTER) @@ -8086,27 +8075,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ZTEMP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7641 ':INT32) (TLVLS-REF7642 ':INT32) - (CURLVL-REF7643 ':INT32) (CURPBM-REF7644 ':INT32) - (INFO-REF7654 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7641 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7642 :INT32) TLVLS) - (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7643 :INT32) CURLVL) - (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7644 :INT32) CURPBM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7654 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF7645 PRMPTR) - (PERM-REF7646 PERM) - (GIVPTR-REF7647 GIVPTR) - (GIVCOL-REF7648 GIVCOL) - (GIVNUM-REF7649 GIVNUM) - (Q-REF7650 Q) (QPTR-REF7651 QPTR) - (Z-REF7652 Z) (ZTEMP-REF7653 ZTEMP)) - (%%DLAEDA N-REF7641 TLVLS-REF7642 CURLVL-REF7643 CURPBM-REF7644 - PRMPTR-REF7645 PERM-REF7646 GIVPTR-REF7647 GIVCOL-REF7648 - GIVNUM-REF7649 Q-REF7650 QPTR-REF7651 Z-REF7652 ZTEMP-REF7653 - INFO-REF7654)))) - -(CFFI:DEFCFUN ("dlaein_" %%DLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7592 ':INT32) (TLVLS-REF7593 ':INT32) + (CURLVL-REF7594 ':INT32) (CURPBM-REF7595 ':INT32) + (INFO-REF7605 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7592 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7593 :INT32) TLVLS) + (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7594 :INT32) CURLVL) + (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7595 :INT32) CURPBM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7605 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF7596 PRMPTR) + (PERM-REF7597 PERM) + (GIVPTR-REF7598 GIVPTR) + (GIVCOL-REF7599 GIVCOL) + (GIVNUM-REF7600 GIVNUM) + (Q-REF7601 Q) (QPTR-REF7602 QPTR) + (Z-REF7603 Z) (ZTEMP-REF7604 ZTEMP)) + (%%DLAEDA N-REF7592 TLVLS-REF7593 CURLVL-REF7594 CURPBM-REF7595 + PRMPTR-REF7596 PERM-REF7597 GIVPTR-REF7598 GIVCOL-REF7599 GIVNUM-REF7600 + Q-REF7601 QPTR-REF7602 Z-REF7603 ZTEMP-REF7604 INFO-REF7605)))) + +(CFFI:DEFCFUN ("dlaein_" %%DLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RIGHTV :POINTER) (NOINIT :POINTER) @@ -8151,32 +8139,31 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMLNUM) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BIGNUM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF7655 ':INT32) (NOINIT-REF7656 ':INT32) - (N-REF7657 ':INT32) (LDH-REF7659 ':INT32) - (WR-REF7660 ':DOUBLE) (WI-REF7661 ':DOUBLE) - (LDB-REF7665 ':INT32) (EPS3-REF7667 ':DOUBLE) - (SMLNUM-REF7668 ':DOUBLE) - (BIGNUM-REF7669 ':DOUBLE) (INFO-REF7670 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF7655 :INT32) RIGHTV) - (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF7656 :INT32) NOINIT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7657 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7659 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7660 :DOUBLE) WR) - (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7661 :DOUBLE) WI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7665 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF7667 :DOUBLE) EPS3) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF7668 :DOUBLE) SMLNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF7669 :DOUBLE) BIGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7670 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7658 H) (VR-REF7662 VR) - (VI-REF7663 VI) (B-REF7664 B) - (WORK-REF7666 WORK)) - (%%DLAEIN RIGHTV-REF7655 NOINIT-REF7656 N-REF7657 H-REF7658 LDH-REF7659 - WR-REF7660 WI-REF7661 VR-REF7662 VI-REF7663 B-REF7664 - LDB-REF7665 WORK-REF7666 EPS3-REF7667 SMLNUM-REF7668 - BIGNUM-REF7669 INFO-REF7670)))) - -(CFFI:DEFCFUN ("dlaev2_" %%DLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF7606 ':INT32) (NOINIT-REF7607 ':INT32) + (N-REF7608 ':INT32) (LDH-REF7610 ':INT32) + (WR-REF7611 ':DOUBLE) (WI-REF7612 ':DOUBLE) + (LDB-REF7616 ':INT32) (EPS3-REF7618 ':DOUBLE) + (SMLNUM-REF7619 ':DOUBLE) + (BIGNUM-REF7620 ':DOUBLE) (INFO-REF7621 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF7606 :INT32) RIGHTV) + (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF7607 :INT32) NOINIT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7608 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7610 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7611 :DOUBLE) WR) + (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7612 :DOUBLE) WI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7616 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF7618 :DOUBLE) EPS3) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF7619 :DOUBLE) SMLNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF7620 :DOUBLE) BIGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7621 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7609 H) (VR-REF7613 VR) + (VI-REF7614 VI) (B-REF7615 B) + (WORK-REF7617 WORK)) + (%%DLAEIN RIGHTV-REF7606 NOINIT-REF7607 N-REF7608 H-REF7609 LDH-REF7610 + WR-REF7611 WI-REF7612 VR-REF7613 VI-REF7614 B-REF7615 LDB-REF7616 + WORK-REF7617 EPS3-REF7618 SMLNUM-REF7619 BIGNUM-REF7620 INFO-REF7621)))) + +(CFFI:DEFCFUN ("dlaev2_" %%DLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -8195,22 +8182,22 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS1) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN1)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7671 ':DOUBLE) (B-REF7672 ':DOUBLE) - (C-REF7673 ':DOUBLE) (RT1-REF7674 ':DOUBLE) - (RT2-REF7675 ':DOUBLE) (CS1-REF7676 ':DOUBLE) - (SN1-REF7677 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7671 :DOUBLE) A) - (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7672 :DOUBLE) B) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7673 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7674 :DOUBLE) RT1) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7675 :DOUBLE) RT2) - (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF7676 :DOUBLE) CS1) - (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF7677 :DOUBLE) SN1) + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7622 ':DOUBLE) (B-REF7623 ':DOUBLE) + (C-REF7624 ':DOUBLE) (RT1-REF7625 ':DOUBLE) + (RT2-REF7626 ':DOUBLE) (CS1-REF7627 ':DOUBLE) + (SN1-REF7628 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7622 :DOUBLE) A) + (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7623 :DOUBLE) B) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7624 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7625 :DOUBLE) RT1) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7626 :DOUBLE) RT2) + (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF7627 :DOUBLE) CS1) + (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF7628 :DOUBLE) SN1) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLAEV2 A-REF7671 B-REF7672 C-REF7673 RT1-REF7674 RT2-REF7675 - CS1-REF7676 SN1-REF7677)))) + (%%DLAEV2 A-REF7622 B-REF7623 C-REF7624 RT1-REF7625 RT2-REF7626 + CS1-REF7627 SN1-REF7628)))) -(CFFI:DEFCFUN ("dlaexc_" %%DLAEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlaexc_" %%DLAEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (N :POINTER) @@ -8241,25 +8228,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF7678 ':INT32) (N-REF7679 ':INT32) - (LDT-REF7681 ':INT32) (LDQ-REF7683 ':INT32) - (J1-REF7684 ':INT32) (N1-REF7685 ':INT32) - (N2-REF7686 ':INT32) (INFO-REF7688 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF7678 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7679 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7681 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7683 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF7684 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7685 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7686 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7688 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF7680 T) (Q-REF7682 Q) - (WORK-REF7687 WORK)) - (%%DLAEXC WANTQ-REF7678 N-REF7679 T-REF7680 LDT-REF7681 Q-REF7682 - LDQ-REF7683 J1-REF7684 N1-REF7685 N2-REF7686 WORK-REF7687 - INFO-REF7688)))) - -(CFFI:DEFCFUN ("dlag2_" %%DLAG2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF7629 ':INT32) (N-REF7630 ':INT32) + (LDT-REF7632 ':INT32) (LDQ-REF7634 ':INT32) + (J1-REF7635 ':INT32) (N1-REF7636 ':INT32) + (N2-REF7637 ':INT32) (INFO-REF7639 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF7629 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7630 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7632 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7634 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF7635 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7636 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7637 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7639 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF7631 T) (Q-REF7633 Q) + (WORK-REF7638 WORK)) + (%%DLAEXC WANTQ-REF7629 N-REF7630 T-REF7631 LDT-REF7632 Q-REF7633 + LDQ-REF7634 J1-REF7635 N1-REF7636 N2-REF7637 WORK-REF7638 + INFO-REF7639)))) + +(CFFI:DEFCFUN ("dlag2_" %%DLAG2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (LDA :POINTER) @@ -8286,25 +8273,24 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR1) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR2) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI)) - (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7690 ':INT32) (LDB-REF7692 ':INT32) - (SAFMIN-REF7693 ':DOUBLE) - (SCALE1-REF7694 ':DOUBLE) - (SCALE2-REF7695 ':DOUBLE) (WR1-REF7696 ':DOUBLE) - (WR2-REF7697 ':DOUBLE) (WI-REF7698 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7690 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7692 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF7693 :DOUBLE) SAFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF7694 :DOUBLE) SCALE1) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF7695 :DOUBLE) SCALE2) - (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF7696 :DOUBLE) WR1) - (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF7697 :DOUBLE) WR2) - (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7698 :DOUBLE) WI) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7689 A) (B-REF7691 B)) - (%%DLAG2 A-REF7689 LDA-REF7690 B-REF7691 LDB-REF7692 SAFMIN-REF7693 - SCALE1-REF7694 SCALE2-REF7695 WR1-REF7696 WR2-REF7697 - WI-REF7698)))) - -(CFFI:DEFCFUN ("dlag2s_" %%DLAG2S :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7641 ':INT32) (LDB-REF7643 ':INT32) + (SAFMIN-REF7644 ':DOUBLE) + (SCALE1-REF7645 ':DOUBLE) + (SCALE2-REF7646 ':DOUBLE) (WR1-REF7647 ':DOUBLE) + (WR2-REF7648 ':DOUBLE) (WI-REF7649 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7641 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7643 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF7644 :DOUBLE) SAFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF7645 :DOUBLE) SCALE1) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF7646 :DOUBLE) SCALE2) + (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF7647 :DOUBLE) WR1) + (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF7648 :DOUBLE) WR2) + (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7649 :DOUBLE) WI) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7640 A) (B-REF7642 B)) + (%%DLAG2 A-REF7640 LDA-REF7641 B-REF7642 LDB-REF7643 SAFMIN-REF7644 + SCALE1-REF7645 SCALE2-REF7646 WR1-REF7647 WR2-REF7648 WI-REF7649)))) + +(CFFI:DEFCFUN ("dlag2s_" %%DLAG2S :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -8325,19 +8311,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7699 ':INT32) (N-REF7700 ':INT32) - (LDA-REF7702 ':INT32) (LDSA-REF7704 ':INT32) - (INFO-REF7705 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7699 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7700 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7702 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF7704 :INT32) LDSA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7705 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7701 A) (SA-REF7703 SA)) - (%%DLAG2S M-REF7699 N-REF7700 A-REF7701 LDA-REF7702 SA-REF7703 - LDSA-REF7704 INFO-REF7705)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7650 ':INT32) (N-REF7651 ':INT32) + (LDA-REF7653 ':INT32) (LDSA-REF7655 ':INT32) + (INFO-REF7656 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7650 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7651 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7653 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF7655 :INT32) LDSA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7656 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7652 A) (SA-REF7654 SA)) + (%%DLAG2S M-REF7650 N-REF7651 A-REF7652 LDA-REF7653 SA-REF7654 + LDSA-REF7655 INFO-REF7656)))) -(CFFI:DEFCFUN ("dlags2_" %%DLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlags2_" %%DLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPPER :POINTER) (A1 :POINTER) @@ -8368,32 +8354,32 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNV) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSQ) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNQ)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF7706 ':INT32) (A1-REF7707 ':DOUBLE) - (A2-REF7708 ':DOUBLE) (A3-REF7709 ':DOUBLE) - (B1-REF7710 ':DOUBLE) (B2-REF7711 ':DOUBLE) - (B3-REF7712 ':DOUBLE) (CSU-REF7713 ':DOUBLE) - (SNU-REF7714 ':DOUBLE) (CSV-REF7715 ':DOUBLE) - (SNV-REF7716 ':DOUBLE) (CSQ-REF7717 ':DOUBLE) - (SNQ-REF7718 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF7706 :INT32) UPPER) - (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF7707 :DOUBLE) A1) - (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF7708 :DOUBLE) A2) - (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF7709 :DOUBLE) A3) - (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF7710 :DOUBLE) B1) - (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF7711 :DOUBLE) B2) - (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF7712 :DOUBLE) B3) - (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF7713 :DOUBLE) CSU) - (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF7714 :DOUBLE) SNU) - (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF7715 :DOUBLE) CSV) - (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF7716 :DOUBLE) SNV) - (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF7717 :DOUBLE) CSQ) - (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF7718 :DOUBLE) SNQ) + (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF7657 ':INT32) (A1-REF7658 ':DOUBLE) + (A2-REF7659 ':DOUBLE) (A3-REF7660 ':DOUBLE) + (B1-REF7661 ':DOUBLE) (B2-REF7662 ':DOUBLE) + (B3-REF7663 ':DOUBLE) (CSU-REF7664 ':DOUBLE) + (SNU-REF7665 ':DOUBLE) (CSV-REF7666 ':DOUBLE) + (SNV-REF7667 ':DOUBLE) (CSQ-REF7668 ':DOUBLE) + (SNQ-REF7669 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF7657 :INT32) UPPER) + (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF7658 :DOUBLE) A1) + (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF7659 :DOUBLE) A2) + (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF7660 :DOUBLE) A3) + (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF7661 :DOUBLE) B1) + (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF7662 :DOUBLE) B2) + (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF7663 :DOUBLE) B3) + (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF7664 :DOUBLE) CSU) + (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF7665 :DOUBLE) SNU) + (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF7666 :DOUBLE) CSV) + (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF7667 :DOUBLE) SNV) + (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF7668 :DOUBLE) CSQ) + (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF7669 :DOUBLE) SNQ) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLAGS2 UPPER-REF7706 A1-REF7707 A2-REF7708 A3-REF7709 B1-REF7710 - B2-REF7711 B3-REF7712 CSU-REF7713 SNU-REF7714 CSV-REF7715 - SNV-REF7716 CSQ-REF7717 SNQ-REF7718)))) + (%%DLAGS2 UPPER-REF7657 A1-REF7658 A2-REF7659 A3-REF7660 B1-REF7661 + B2-REF7662 B3-REF7663 CSU-REF7664 SNU-REF7665 CSV-REF7666 SNV-REF7667 + CSQ-REF7668 SNQ-REF7669)))) -(CFFI:DEFCFUN ("dlagtf_" %%DLAGTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlagtf_" %%DLAGTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -8423,19 +8409,19 @@ (COMMON-LISP:*)) IN) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7719 ':INT32) (LAMBDA-REF7721 ':DOUBLE) - (TOL-REF7724 ':DOUBLE) (INFO-REF7727 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7719 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF7721 :DOUBLE) LAMBDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7724 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7727 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7720 A) (B-REF7722 B) - (C-REF7723 C) (D-REF7725 D) - (IN-REF7726 IN)) - (%%DLAGTF N-REF7719 A-REF7720 LAMBDA-REF7721 B-REF7722 C-REF7723 - TOL-REF7724 D-REF7725 IN-REF7726 INFO-REF7727)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7670 ':INT32) (LAMBDA-REF7672 ':DOUBLE) + (TOL-REF7675 ':DOUBLE) (INFO-REF7678 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7670 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF7672 :DOUBLE) LAMBDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7675 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7678 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7671 A) (B-REF7673 B) + (C-REF7674 C) (D-REF7676 D) + (IN-REF7677 IN)) + (%%DLAGTF N-REF7670 A-REF7671 LAMBDA-REF7672 B-REF7673 C-REF7674 + TOL-REF7675 D-REF7676 IN-REF7677 INFO-REF7678)))) -(CFFI:DEFCFUN ("dlagtm_" %%DLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlagtm_" %%DLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -8469,23 +8455,22 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7729 ':INT32) (NRHS-REF7730 ':INT32) - (ALPHA-REF7731 ':DOUBLE) (LDX-REF7736 ':INT32) - (BETA-REF7737 ':DOUBLE) (LDB-REF7739 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7729 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7730 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7731 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7736 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7737 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7739 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7732 DL) (D-REF7733 D) - (DU-REF7734 DU) (X-REF7735 X) - (B-REF7738 B)) - (%%DLAGTM TRANS N-REF7729 NRHS-REF7730 ALPHA-REF7731 DL-REF7732 D-REF7733 - DU-REF7734 X-REF7735 LDX-REF7736 BETA-REF7737 B-REF7738 - LDB-REF7739)))) - -(CFFI:DEFCFUN ("dlagts_" %%DLAGTS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7680 ':INT32) (NRHS-REF7681 ':INT32) + (ALPHA-REF7682 ':DOUBLE) (LDX-REF7687 ':INT32) + (BETA-REF7688 ':DOUBLE) (LDB-REF7690 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7680 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7681 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7682 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7687 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7688 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7690 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7683 DL) (D-REF7684 D) + (DU-REF7685 DU) (X-REF7686 X) + (B-REF7689 B)) + (%%DLAGTM TRANS N-REF7680 NRHS-REF7681 ALPHA-REF7682 DL-REF7683 D-REF7684 + DU-REF7685 X-REF7686 LDX-REF7687 BETA-REF7688 B-REF7689 LDB-REF7690)))) + +(CFFI:DEFCFUN ("dlagts_" %%DLAGTS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :POINTER) (N :POINTER) @@ -8518,19 +8503,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7740 ':INT32) (N-REF7741 ':INT32) - (TOL-REF7748 ':DOUBLE) (INFO-REF7749 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7740 :INT32) JOB) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7741 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7748 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7749 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7742 A) (B-REF7743 B) - (C-REF7744 C) (D-REF7745 D) - (IN-REF7746 IN) (Y-REF7747 Y)) - (%%DLAGTS JOB-REF7740 N-REF7741 A-REF7742 B-REF7743 C-REF7744 D-REF7745 - IN-REF7746 Y-REF7747 TOL-REF7748 INFO-REF7749)))) + (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7691 ':INT32) (N-REF7692 ':INT32) + (TOL-REF7699 ':DOUBLE) (INFO-REF7700 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7691 :INT32) JOB) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7692 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7699 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7700 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7693 A) (B-REF7694 B) + (C-REF7695 C) (D-REF7696 D) + (IN-REF7697 IN) (Y-REF7698 Y)) + (%%DLAGTS JOB-REF7691 N-REF7692 A-REF7693 B-REF7694 C-REF7695 D-REF7696 + IN-REF7697 Y-REF7698 TOL-REF7699 INFO-REF7700)))) -(CFFI:DEFCFUN ("dlagv2_" %%DLAGV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlagv2_" %%DLAGV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (LDA :POINTER) @@ -8565,24 +8550,24 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNR)) - (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7751 ':INT32) (LDB-REF7753 ':INT32) - (CSL-REF7757 ':DOUBLE) (SNL-REF7758 ':DOUBLE) - (CSR-REF7759 ':DOUBLE) (SNR-REF7760 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7751 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7753 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF7757 :DOUBLE) CSL) - (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF7758 :DOUBLE) SNL) - (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF7759 :DOUBLE) CSR) - (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF7760 :DOUBLE) SNR) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7750 A) (B-REF7752 B) - (ALPHAR-REF7754 ALPHAR) - (ALPHAI-REF7755 ALPHAI) - (BETA-REF7756 BETA)) - (%%DLAGV2 A-REF7750 LDA-REF7751 B-REF7752 LDB-REF7753 ALPHAR-REF7754 - ALPHAI-REF7755 BETA-REF7756 CSL-REF7757 SNL-REF7758 CSR-REF7759 - SNR-REF7760)))) - -(CFFI:DEFCFUN ("dlahqr_" %%DLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7702 ':INT32) (LDB-REF7704 ':INT32) + (CSL-REF7708 ':DOUBLE) (SNL-REF7709 ':DOUBLE) + (CSR-REF7710 ':DOUBLE) (SNR-REF7711 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7702 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7704 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF7708 :DOUBLE) CSL) + (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF7709 :DOUBLE) SNL) + (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF7710 :DOUBLE) CSR) + (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF7711 :DOUBLE) SNR) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7701 A) (B-REF7703 B) + (ALPHAR-REF7705 ALPHAR) + (ALPHAI-REF7706 ALPHAI) + (BETA-REF7707 BETA)) + (%%DLAGV2 A-REF7701 LDA-REF7702 B-REF7703 LDB-REF7704 ALPHAR-REF7705 + ALPHAI-REF7706 BETA-REF7707 CSL-REF7708 SNL-REF7709 CSR-REF7710 + SNR-REF7711)))) + +(CFFI:DEFCFUN ("dlahqr_" %%DLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -8620,28 +8605,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF7761 ':INT32) (WANTZ-REF7762 ':INT32) - (N-REF7763 ':INT32) (ILO-REF7764 ':INT32) - (IHI-REF7765 ':INT32) (LDH-REF7767 ':INT32) - (ILOZ-REF7770 ':INT32) (IHIZ-REF7771 ':INT32) - (LDZ-REF7773 ':INT32) (INFO-REF7774 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF7761 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF7762 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7763 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7764 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7765 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7767 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF7770 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF7771 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7773 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7774 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7766 H) (WR-REF7768 WR) - (WI-REF7769 WI) (Z-REF7772 Z)) - (%%DLAHQR WANTT-REF7761 WANTZ-REF7762 N-REF7763 ILO-REF7764 IHI-REF7765 - H-REF7766 LDH-REF7767 WR-REF7768 WI-REF7769 ILOZ-REF7770 - IHIZ-REF7771 Z-REF7772 LDZ-REF7773 INFO-REF7774)))) - -(CFFI:DEFCFUN ("dlahr2_" %%DLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF7712 ':INT32) (WANTZ-REF7713 ':INT32) + (N-REF7714 ':INT32) (ILO-REF7715 ':INT32) + (IHI-REF7716 ':INT32) (LDH-REF7718 ':INT32) + (ILOZ-REF7721 ':INT32) (IHIZ-REF7722 ':INT32) + (LDZ-REF7724 ':INT32) (INFO-REF7725 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF7712 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF7713 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7714 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7715 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7716 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7718 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF7721 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF7722 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7724 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7725 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7717 H) (WR-REF7719 WR) + (WI-REF7720 WI) (Z-REF7723 Z)) + (%%DLAHQR WANTT-REF7712 WANTZ-REF7713 N-REF7714 ILO-REF7715 IHI-REF7716 + H-REF7717 LDH-REF7718 WR-REF7719 WI-REF7720 ILOZ-REF7721 IHIZ-REF7722 + Z-REF7723 LDZ-REF7724 INFO-REF7725)))) + +(CFFI:DEFCFUN ("dlahr2_" %%DLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (K :POINTER) @@ -8671,21 +8656,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7775 ':INT32) (K-REF7776 ':INT32) - (NB-REF7777 ':INT32) (LDA-REF7779 ':INT32) - (LDT-REF7782 ':INT32) (LDY-REF7784 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7775 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7776 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7777 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7779 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7782 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7784 :INT32) LDY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7778 A) (TAU-REF7780 TAU) - (T-REF7781 T) (Y-REF7783 Y)) - (%%DLAHR2 N-REF7775 K-REF7776 NB-REF7777 A-REF7778 LDA-REF7779 - TAU-REF7780 T-REF7781 LDT-REF7782 Y-REF7783 LDY-REF7784)))) - -(CFFI:DEFCFUN ("dlaic1_" %%DLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7726 ':INT32) (K-REF7727 ':INT32) + (NB-REF7728 ':INT32) (LDA-REF7730 ':INT32) + (LDT-REF7733 ':INT32) (LDY-REF7735 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7726 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7727 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7728 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7730 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7733 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7735 :INT32) LDY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7729 A) (TAU-REF7731 TAU) + (T-REF7732 T) (Y-REF7734 Y)) + (%%DLAHR2 N-REF7726 K-REF7727 NB-REF7728 A-REF7729 LDA-REF7730 + TAU-REF7731 T-REF7732 LDT-REF7733 Y-REF7734 LDY-REF7735)))) + +(CFFI:DEFCFUN ("dlaic1_" %%DLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :POINTER) (J :POINTER) @@ -8710,23 +8695,23 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SESTPR) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)) - (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7785 ':INT32) (J-REF7786 ':INT32) - (SEST-REF7788 ':DOUBLE) (GAMMA-REF7790 ':DOUBLE) - (SESTPR-REF7791 ':DOUBLE) (S-REF7792 ':DOUBLE) - (C-REF7793 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7785 :INT32) JOB) - (COMMON-LISP:SETF (CFFI:MEM-REF J-REF7786 :INT32) J) - (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF7788 :DOUBLE) SEST) - (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF7790 :DOUBLE) GAMMA) - (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF7791 :DOUBLE) SESTPR) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7792 :DOUBLE) S) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7793 :DOUBLE) C) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7787 X) (W-REF7789 W)) - (%%DLAIC1 JOB-REF7785 J-REF7786 X-REF7787 SEST-REF7788 W-REF7789 - GAMMA-REF7790 SESTPR-REF7791 S-REF7792 C-REF7793)))) + (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7736 ':INT32) (J-REF7737 ':INT32) + (SEST-REF7739 ':DOUBLE) (GAMMA-REF7741 ':DOUBLE) + (SESTPR-REF7742 ':DOUBLE) (S-REF7743 ':DOUBLE) + (C-REF7744 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7736 :INT32) JOB) + (COMMON-LISP:SETF (CFFI:MEM-REF J-REF7737 :INT32) J) + (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF7739 :DOUBLE) SEST) + (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF7741 :DOUBLE) GAMMA) + (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF7742 :DOUBLE) SESTPR) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7743 :DOUBLE) S) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7744 :DOUBLE) C) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7738 X) (W-REF7740 W)) + (%%DLAIC1 JOB-REF7736 J-REF7737 X-REF7738 SEST-REF7739 W-REF7740 + GAMMA-REF7741 SESTPR-REF7742 S-REF7743 C-REF7744)))) (CFFI:DEFCFUN ("dlaisnan_" %%DLAISNAN :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (DIN1 :POINTER) (DIN2 :POINTER)) @@ -8735,13 +8720,13 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAISNAN) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN1) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN2)) - (CFFI:WITH-FOREIGN-OBJECTS ((DIN1-REF7794 ':DOUBLE) (DIN2-REF7795 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF DIN1-REF7794 :DOUBLE) DIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DIN2-REF7795 :DOUBLE) DIN2) + (CFFI:WITH-FOREIGN-OBJECTS ((DIN1-REF7745 ':DOUBLE) (DIN2-REF7746 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF DIN1-REF7745 :DOUBLE) DIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DIN2-REF7746 :DOUBLE) DIN2) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLAISNAN DIN1-REF7794 DIN2-REF7795)))) + (%%DLAISNAN DIN1-REF7745 DIN2-REF7746)))) -(CFFI:DEFCFUN ("dlaln2_" %%DLALN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlaln2_" %%DLALN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (LTRANS :POINTER) (NA :POINTER) @@ -8787,37 +8772,37 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT XNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF7796 ':INT32) (NA-REF7797 ':INT32) - (NW-REF7798 ':INT32) (SMIN-REF7799 ':DOUBLE) - (CA-REF7800 ':DOUBLE) (LDA-REF7802 ':INT32) - (D1-REF7803 ':DOUBLE) (D2-REF7804 ':DOUBLE) - (LDB-REF7806 ':INT32) (WR-REF7807 ':DOUBLE) - (WI-REF7808 ':DOUBLE) (LDX-REF7810 ':INT32) - (SCALE-REF7811 ':DOUBLE) (XNORM-REF7812 ':DOUBLE) - (INFO-REF7813 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF7796 :INT32) LTRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF7797 :INT32) NA) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF7798 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF7799 :DOUBLE) SMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF7800 :DOUBLE) CA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7802 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF7803 :DOUBLE) D1) - (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF7804 :DOUBLE) D2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7806 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7807 :DOUBLE) WR) - (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7808 :DOUBLE) WI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7810 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF7811 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF7812 :DOUBLE) XNORM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7813 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7801 A) (B-REF7805 B) - (X-REF7809 X)) - (%%DLALN2 LTRANS-REF7796 NA-REF7797 NW-REF7798 SMIN-REF7799 CA-REF7800 - A-REF7801 LDA-REF7802 D1-REF7803 D2-REF7804 B-REF7805 - LDB-REF7806 WR-REF7807 WI-REF7808 X-REF7809 LDX-REF7810 - SCALE-REF7811 XNORM-REF7812 INFO-REF7813)))) - -(CFFI:DEFCFUN ("dlals0_" %%DLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF7747 ':INT32) (NA-REF7748 ':INT32) + (NW-REF7749 ':INT32) (SMIN-REF7750 ':DOUBLE) + (CA-REF7751 ':DOUBLE) (LDA-REF7753 ':INT32) + (D1-REF7754 ':DOUBLE) (D2-REF7755 ':DOUBLE) + (LDB-REF7757 ':INT32) (WR-REF7758 ':DOUBLE) + (WI-REF7759 ':DOUBLE) (LDX-REF7761 ':INT32) + (SCALE-REF7762 ':DOUBLE) (XNORM-REF7763 ':DOUBLE) + (INFO-REF7764 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF7747 :INT32) LTRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF7748 :INT32) NA) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF7749 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF7750 :DOUBLE) SMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF7751 :DOUBLE) CA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7753 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF7754 :DOUBLE) D1) + (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF7755 :DOUBLE) D2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7757 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7758 :DOUBLE) WR) + (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7759 :DOUBLE) WI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7761 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF7762 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF7763 :DOUBLE) XNORM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7764 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7752 A) (B-REF7756 B) + (X-REF7760 X)) + (%%DLALN2 LTRANS-REF7747 NA-REF7748 NW-REF7749 SMIN-REF7750 CA-REF7751 + A-REF7752 LDA-REF7753 D1-REF7754 D2-REF7755 B-REF7756 LDB-REF7757 + WR-REF7758 WI-REF7759 X-REF7760 LDX-REF7761 SCALE-REF7762 XNORM-REF7763 + INFO-REF7764)))) + +(CFFI:DEFCFUN ("dlals0_" %%DLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (NL :POINTER) @@ -8891,43 +8876,42 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7814 ':INT32) (NL-REF7815 ':INT32) - (NR-REF7816 ':INT32) (SQRE-REF7817 ':INT32) - (NRHS-REF7818 ':INT32) (LDB-REF7820 ':INT32) - (LDBX-REF7822 ':INT32) (GIVPTR-REF7824 ':INT32) - (LDGCOL-REF7826 ':INT32) (LDGNUM-REF7828 ':INT32) - (K-REF7833 ':INT32) (C-REF7834 ':DOUBLE) - (S-REF7835 ':DOUBLE) (INFO-REF7837 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7814 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF7815 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF7816 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF7817 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7818 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7820 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7822 :INT32) LDBX) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7824 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7826 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF7828 :INT32) LDGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7833 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7834 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7835 :DOUBLE) S) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7837 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7819 B) (BX-REF7821 BX) - (PERM-REF7823 PERM) - (GIVCOL-REF7825 GIVCOL) - (GIVNUM-REF7827 GIVNUM) - (POLES-REF7829 POLES) - (DIFL-REF7830 DIFL) - (DIFR-REF7831 DIFR) (Z-REF7832 Z) - (WORK-REF7836 WORK)) - (%%DLALS0 ICOMPQ-REF7814 NL-REF7815 NR-REF7816 SQRE-REF7817 NRHS-REF7818 - B-REF7819 LDB-REF7820 BX-REF7821 LDBX-REF7822 PERM-REF7823 - GIVPTR-REF7824 GIVCOL-REF7825 LDGCOL-REF7826 GIVNUM-REF7827 - LDGNUM-REF7828 POLES-REF7829 DIFL-REF7830 DIFR-REF7831 - Z-REF7832 K-REF7833 C-REF7834 S-REF7835 WORK-REF7836 - INFO-REF7837)))) - -(CFFI:DEFCFUN ("dlalsa_" %%DLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7765 ':INT32) (NL-REF7766 ':INT32) + (NR-REF7767 ':INT32) (SQRE-REF7768 ':INT32) + (NRHS-REF7769 ':INT32) (LDB-REF7771 ':INT32) + (LDBX-REF7773 ':INT32) (GIVPTR-REF7775 ':INT32) + (LDGCOL-REF7777 ':INT32) (LDGNUM-REF7779 ':INT32) + (K-REF7784 ':INT32) (C-REF7785 ':DOUBLE) + (S-REF7786 ':DOUBLE) (INFO-REF7788 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7765 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF7766 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF7767 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF7768 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7769 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7771 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7773 :INT32) LDBX) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7775 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7777 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF7779 :INT32) LDGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7784 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7785 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7786 :DOUBLE) S) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7788 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7770 B) (BX-REF7772 BX) + (PERM-REF7774 PERM) + (GIVCOL-REF7776 GIVCOL) + (GIVNUM-REF7778 GIVNUM) + (POLES-REF7780 POLES) + (DIFL-REF7781 DIFL) + (DIFR-REF7782 DIFR) (Z-REF7783 Z) + (WORK-REF7787 WORK)) + (%%DLALS0 ICOMPQ-REF7765 NL-REF7766 NR-REF7767 SQRE-REF7768 NRHS-REF7769 + B-REF7770 LDB-REF7771 BX-REF7772 LDBX-REF7773 PERM-REF7774 + GIVPTR-REF7775 GIVCOL-REF7776 LDGCOL-REF7777 GIVNUM-REF7778 + LDGNUM-REF7779 POLES-REF7780 DIFL-REF7781 DIFR-REF7782 Z-REF7783 + K-REF7784 C-REF7785 S-REF7786 WORK-REF7787 INFO-REF7788)))) + +(CFFI:DEFCFUN ("dlalsa_" %%DLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (SMLSIZ :POINTER) @@ -9018,40 +9002,39 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7838 ':INT32) (SMLSIZ-REF7839 ':INT32) - (N-REF7840 ':INT32) (NRHS-REF7841 ':INT32) - (LDB-REF7843 ':INT32) (LDBX-REF7845 ':INT32) - (LDU-REF7847 ':INT32) (LDGCOL-REF7856 ':INT32) - (INFO-REF7863 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7838 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7839 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7840 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7841 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7843 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7845 :INT32) LDBX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF7847 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7856 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7863 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7842 B) (BX-REF7844 BX) - (U-REF7846 U) (VT-REF7848 VT) - (K-REF7849 K) (DIFL-REF7850 DIFL) - (DIFR-REF7851 DIFR) (Z-REF7852 Z) - (POLES-REF7853 POLES) - (GIVPTR-REF7854 GIVPTR) - (GIVCOL-REF7855 GIVCOL) - (PERM-REF7857 PERM) - (GIVNUM-REF7858 GIVNUM) - (C-REF7859 C) (S-REF7860 S) - (WORK-REF7861 WORK) - (IWORK-REF7862 IWORK)) - (%%DLALSA ICOMPQ-REF7838 SMLSIZ-REF7839 N-REF7840 NRHS-REF7841 B-REF7842 - LDB-REF7843 BX-REF7844 LDBX-REF7845 U-REF7846 LDU-REF7847 - VT-REF7848 K-REF7849 DIFL-REF7850 DIFR-REF7851 Z-REF7852 - POLES-REF7853 GIVPTR-REF7854 GIVCOL-REF7855 LDGCOL-REF7856 - PERM-REF7857 GIVNUM-REF7858 C-REF7859 S-REF7860 WORK-REF7861 - IWORK-REF7862 INFO-REF7863)))) - -(CFFI:DEFCFUN ("dlalsd_" %%DLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7789 ':INT32) (SMLSIZ-REF7790 ':INT32) + (N-REF7791 ':INT32) (NRHS-REF7792 ':INT32) + (LDB-REF7794 ':INT32) (LDBX-REF7796 ':INT32) + (LDU-REF7798 ':INT32) (LDGCOL-REF7807 ':INT32) + (INFO-REF7814 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7789 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7790 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7791 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7792 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7794 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7796 :INT32) LDBX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF7798 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7807 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7814 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7793 B) (BX-REF7795 BX) + (U-REF7797 U) (VT-REF7799 VT) + (K-REF7800 K) (DIFL-REF7801 DIFL) + (DIFR-REF7802 DIFR) (Z-REF7803 Z) + (POLES-REF7804 POLES) + (GIVPTR-REF7805 GIVPTR) + (GIVCOL-REF7806 GIVCOL) + (PERM-REF7808 PERM) + (GIVNUM-REF7809 GIVNUM) + (C-REF7810 C) (S-REF7811 S) + (WORK-REF7812 WORK) + (IWORK-REF7813 IWORK)) + (%%DLALSA ICOMPQ-REF7789 SMLSIZ-REF7790 N-REF7791 NRHS-REF7792 B-REF7793 + LDB-REF7794 BX-REF7795 LDBX-REF7796 U-REF7797 LDU-REF7798 VT-REF7799 + K-REF7800 DIFL-REF7801 DIFR-REF7802 Z-REF7803 POLES-REF7804 + GIVPTR-REF7805 GIVCOL-REF7806 LDGCOL-REF7807 PERM-REF7808 GIVNUM-REF7809 + C-REF7810 S-REF7811 WORK-REF7812 IWORK-REF7813 INFO-REF7814)))) + +(CFFI:DEFCFUN ("dlalsd_" %%DLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (SMLSIZ :POINTER) @@ -9091,25 +9074,25 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF7865 ':INT32) (N-REF7866 ':INT32) - (NRHS-REF7867 ':INT32) (LDB-REF7871 ':INT32) - (RCOND-REF7872 ':DOUBLE) (RANK-REF7873 ':INT32) - (INFO-REF7876 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7865 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7866 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7867 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7871 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7872 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF7873 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7876 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7868 D) (E-REF7869 E) - (B-REF7870 B) (WORK-REF7874 WORK) - (IWORK-REF7875 IWORK)) - (%%DLALSD UPLO SMLSIZ-REF7865 N-REF7866 NRHS-REF7867 D-REF7868 E-REF7869 - B-REF7870 LDB-REF7871 RCOND-REF7872 RANK-REF7873 WORK-REF7874 - IWORK-REF7875 INFO-REF7876)))) - -(CFFI:DEFCFUN ("dlamrg_" %%DLAMRG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF7816 ':INT32) (N-REF7817 ':INT32) + (NRHS-REF7818 ':INT32) (LDB-REF7822 ':INT32) + (RCOND-REF7823 ':DOUBLE) (RANK-REF7824 ':INT32) + (INFO-REF7827 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7816 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7817 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7818 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7822 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7823 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF7824 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7827 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7819 D) (E-REF7820 E) + (B-REF7821 B) (WORK-REF7825 WORK) + (IWORK-REF7826 IWORK)) + (%%DLALSD UPLO SMLSIZ-REF7816 N-REF7817 NRHS-REF7818 D-REF7819 E-REF7820 + B-REF7821 LDB-REF7822 RCOND-REF7823 RANK-REF7824 WORK-REF7825 + IWORK-REF7826 INFO-REF7827)))) + +(CFFI:DEFCFUN ("dlamrg_" %%DLAMRG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N1 :POINTER) (N2 :POINTER) @@ -9130,18 +9113,18 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) INDEX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF7877 ':INT32) (N2-REF7878 ':INT32) - (DTRD1-REF7880 ':INT32) (DTRD2-REF7881 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7877 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7878 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF DTRD1-REF7880 :INT32) DTRD1) - (COMMON-LISP:SETF (CFFI:MEM-REF DTRD2-REF7881 :INT32) DTRD2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7879 A) (INDEX-REF7882 INDEX)) - (%%DLAMRG N1-REF7877 N2-REF7878 A-REF7879 DTRD1-REF7880 DTRD2-REF7881 - INDEX-REF7882)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF7828 ':INT32) (N2-REF7829 ':INT32) + (DTRD1-REF7831 ':INT32) (DTRD2-REF7832 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7828 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7829 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF DTRD1-REF7831 :INT32) DTRD1) + (COMMON-LISP:SETF (CFFI:MEM-REF DTRD2-REF7832 :INT32) DTRD2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7830 A) (INDEX-REF7833 INDEX)) + (%%DLAMRG N1-REF7828 N2-REF7829 A-REF7830 DTRD1-REF7831 DTRD2-REF7832 + INDEX-REF7833)))) (CFFI:DEFCFUN ("dlamswlq_" %%DLAMSWLQ :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -9184,30 +9167,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7885 ':INT32) (N-REF7886 ':INT32) - (K-REF7887 ':INT32) (MB-REF7888 ':INT32) - (NB-REF7889 ':INT32) (LDA-REF7891 ':INT32) - (LDT-REF7893 ':INT32) (LDC-REF7895 ':INT32) - (LWORK-REF7897 ':INT32) (INFO-REF7898 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7885 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7886 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7887 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7888 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7889 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7891 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7893 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7895 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7897 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7898 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7890 A) (T-REF7892 T) - (C-REF7894 C) (WORK-REF7896 WORK)) - (%%DLAMSWLQ SIDE TRANS M-REF7885 N-REF7886 K-REF7887 MB-REF7888 - NB-REF7889 A-REF7890 LDA-REF7891 T-REF7892 LDT-REF7893 - C-REF7894 LDC-REF7895 WORK-REF7896 LWORK-REF7897 - INFO-REF7898)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7836 ':INT32) (N-REF7837 ':INT32) + (K-REF7838 ':INT32) (MB-REF7839 ':INT32) + (NB-REF7840 ':INT32) (LDA-REF7842 ':INT32) + (LDT-REF7844 ':INT32) (LDC-REF7846 ':INT32) + (LWORK-REF7848 ':INT32) (INFO-REF7849 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7836 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7837 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7838 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7839 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7840 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7842 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7844 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7846 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7848 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7849 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7841 A) (T-REF7843 T) + (C-REF7845 C) (WORK-REF7847 WORK)) + (%%DLAMSWLQ SIDE TRANS M-REF7836 N-REF7837 K-REF7838 MB-REF7839 + NB-REF7840 A-REF7841 LDA-REF7842 T-REF7843 LDT-REF7844 C-REF7845 + LDC-REF7846 WORK-REF7847 LWORK-REF7848 INFO-REF7849)))) (CFFI:DEFCFUN ("dlamtsqr_" %%DLAMTSQR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -9250,29 +9232,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7901 ':INT32) (N-REF7902 ':INT32) - (K-REF7903 ':INT32) (MB-REF7904 ':INT32) - (NB-REF7905 ':INT32) (LDA-REF7907 ':INT32) - (LDT-REF7909 ':INT32) (LDC-REF7911 ':INT32) - (LWORK-REF7913 ':INT32) (INFO-REF7914 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7901 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7902 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7903 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7904 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7905 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7907 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7909 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7911 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7913 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7914 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7906 A) (T-REF7908 T) - (C-REF7910 C) (WORK-REF7912 WORK)) - (%%DLAMTSQR SIDE TRANS M-REF7901 N-REF7902 K-REF7903 MB-REF7904 - NB-REF7905 A-REF7906 LDA-REF7907 T-REF7908 LDT-REF7909 - C-REF7910 LDC-REF7911 WORK-REF7912 LWORK-REF7913 - INFO-REF7914)))) - -(CFFI:DEFCFUN ("dlaneg_" %%DLANEG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7852 ':INT32) (N-REF7853 ':INT32) + (K-REF7854 ':INT32) (MB-REF7855 ':INT32) + (NB-REF7856 ':INT32) (LDA-REF7858 ':INT32) + (LDT-REF7860 ':INT32) (LDC-REF7862 ':INT32) + (LWORK-REF7864 ':INT32) (INFO-REF7865 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7852 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7853 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7854 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7855 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7856 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7858 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7860 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7862 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7864 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7865 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7857 A) (T-REF7859 T) + (C-REF7861 C) (WORK-REF7863 WORK)) + (%%DLAMTSQR SIDE TRANS M-REF7852 N-REF7853 K-REF7854 MB-REF7855 + NB-REF7856 A-REF7857 LDA-REF7858 T-REF7859 LDT-REF7860 C-REF7861 + LDC-REF7862 WORK-REF7863 LWORK-REF7864 INFO-REF7865)))) + +(CFFI:DEFCFUN ("dlaneg_" %%DLANEG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (N :POINTER) (D :POINTER) @@ -9292,17 +9273,17 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7915 ':INT32) (SIGMA-REF7918 ':DOUBLE) - (PIVMIN-REF7919 ':DOUBLE) (R-REF7920 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7915 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF7918 :DOUBLE) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7919 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF7920 :INT32) R) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7916 D) (LLD-REF7917 LLD)) - (%%DLANEG N-REF7915 D-REF7916 LLD-REF7917 SIGMA-REF7918 PIVMIN-REF7919 - R-REF7920)))) - -(CFFI:DEFCFUN ("dlangb_" %%DLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7866 ':INT32) (SIGMA-REF7869 ':DOUBLE) + (PIVMIN-REF7870 ':DOUBLE) (R-REF7871 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7866 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF7869 :DOUBLE) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7870 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF7871 :INT32) R) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7867 D) (LLD-REF7868 LLD)) + (%%DLANEG N-REF7866 D-REF7867 LLD-REF7868 SIGMA-REF7869 PIVMIN-REF7870 + R-REF7871)))) + +(CFFI:DEFCFUN ("dlangb_" %%DLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (N :POINTER) @@ -9324,17 +9305,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7922 ':INT32) (KL-REF7923 ':INT32) - (KU-REF7924 ':INT32) (LDAB-REF7926 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7922 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7923 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7924 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7926 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7925 AB) (WORK-REF7927 WORK)) - (%%DLANGB NORM N-REF7922 KL-REF7923 KU-REF7924 AB-REF7925 LDAB-REF7926 - WORK-REF7927)))) - -(CFFI:DEFCFUN ("dlange_" %%DLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7873 ':INT32) (KL-REF7874 ':INT32) + (KU-REF7875 ':INT32) (LDAB-REF7877 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7873 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7874 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7875 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7877 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7876 AB) (WORK-REF7878 WORK)) + (%%DLANGB NORM N-REF7873 KL-REF7874 KU-REF7875 AB-REF7876 LDAB-REF7877 + WORK-REF7878)))) + +(CFFI:DEFCFUN ("dlange_" %%DLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (M :POINTER) @@ -9354,15 +9335,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7929 ':INT32) (N-REF7930 ':INT32) - (LDA-REF7932 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7929 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7930 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7932 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7931 A) (WORK-REF7933 WORK)) - (%%DLANGE NORM M-REF7929 N-REF7930 A-REF7931 LDA-REF7932 WORK-REF7933)))) - -(CFFI:DEFCFUN ("dlangt_" %%DLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7880 ':INT32) (N-REF7881 ':INT32) + (LDA-REF7883 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7880 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7881 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7883 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7882 A) (WORK-REF7884 WORK)) + (%%DLANGE NORM M-REF7880 N-REF7881 A-REF7882 LDA-REF7883 WORK-REF7884)))) + +(CFFI:DEFCFUN ("dlangt_" %%DLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (N :POINTER) @@ -9381,13 +9362,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7935 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7935 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7936 DL) (D-REF7937 D) - (DU-REF7938 DU)) - (%%DLANGT NORM N-REF7935 DL-REF7936 D-REF7937 DU-REF7938)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7886 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7886 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7887 DL) (D-REF7888 D) + (DU-REF7889 DU)) + (%%DLANGT NORM N-REF7886 DL-REF7887 D-REF7888 DU-REF7889)))) -(CFFI:DEFCFUN ("dlanhs_" %%DLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlanhs_" %%DLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (N :POINTER) @@ -9405,13 +9386,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7940 ':INT32) (LDA-REF7942 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7940 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7942 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7941 A) (WORK-REF7943 WORK)) - (%%DLANHS NORM N-REF7940 A-REF7941 LDA-REF7942 WORK-REF7943)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7891 ':INT32) (LDA-REF7893 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7891 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7893 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7892 A) (WORK-REF7894 WORK)) + (%%DLANHS NORM N-REF7891 A-REF7892 LDA-REF7893 WORK-REF7894)))) -(CFFI:DEFCFUN ("dlansb_" %%DLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlansb_" %%DLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -9433,16 +9414,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7946 ':INT32) (K-REF7947 ':INT32) - (LDAB-REF7949 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7946 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7947 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7949 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7948 AB) (WORK-REF7950 WORK)) - (%%DLANSB NORM UPLO N-REF7946 K-REF7947 AB-REF7948 LDAB-REF7949 - WORK-REF7950)))) - -(CFFI:DEFCFUN ("dlansf_" %%DLANSF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7897 ':INT32) (K-REF7898 ':INT32) + (LDAB-REF7900 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7897 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7898 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7900 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7899 AB) (WORK-REF7901 WORK)) + (%%DLANSB NORM UPLO N-REF7897 K-REF7898 AB-REF7899 LDAB-REF7900 + WORK-REF7901)))) + +(CFFI:DEFCFUN ("dlansf_" %%DLANSF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (TRANSR :STRING) @@ -9462,12 +9443,12 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7954 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7954 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7955 A) (WORK-REF7956 WORK)) - (%%DLANSF NORM TRANSR UPLO N-REF7954 A-REF7955 WORK-REF7956)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7905 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7905 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7906 A) (WORK-REF7907 WORK)) + (%%DLANSF NORM TRANSR UPLO N-REF7905 A-REF7906 WORK-REF7907)))) -(CFFI:DEFCFUN ("dlansp_" %%DLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlansp_" %%DLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -9485,12 +9466,12 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7959 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7959 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7960 AP) (WORK-REF7961 WORK)) - (%%DLANSP NORM UPLO N-REF7959 AP-REF7960 WORK-REF7961)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7910 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7910 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7911 AP) (WORK-REF7912 WORK)) + (%%DLANSP NORM UPLO N-REF7910 AP-REF7911 WORK-REF7912)))) -(CFFI:DEFCFUN ("dlanst_" %%DLANST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlanst_" %%DLANST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (N :POINTER) @@ -9505,12 +9486,12 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7963 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7963 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7964 D) (E-REF7965 E)) - (%%DLANST NORM N-REF7963 D-REF7964 E-REF7965)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7914 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7914 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7915 D) (E-REF7916 E)) + (%%DLANST NORM N-REF7914 D-REF7915 E-REF7916)))) -(CFFI:DEFCFUN ("dlansy_" %%DLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlansy_" %%DLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -9530,13 +9511,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7968 ':INT32) (LDA-REF7970 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7968 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7970 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7969 A) (WORK-REF7971 WORK)) - (%%DLANSY NORM UPLO N-REF7968 A-REF7969 LDA-REF7970 WORK-REF7971)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7919 ':INT32) (LDA-REF7921 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7919 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7921 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7920 A) (WORK-REF7922 WORK)) + (%%DLANSY NORM UPLO N-REF7919 A-REF7920 LDA-REF7921 WORK-REF7922)))) -(CFFI:DEFCFUN ("dlantb_" %%DLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlantb_" %%DLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -9560,16 +9541,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7975 ':INT32) (K-REF7976 ':INT32) - (LDAB-REF7978 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7975 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7976 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7978 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7977 AB) (WORK-REF7979 WORK)) - (%%DLANTB NORM UPLO DIAG N-REF7975 K-REF7976 AB-REF7977 LDAB-REF7978 - WORK-REF7979)))) - -(CFFI:DEFCFUN ("dlantp_" %%DLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7926 ':INT32) (K-REF7927 ':INT32) + (LDAB-REF7929 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7926 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7927 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7929 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7928 AB) (WORK-REF7930 WORK)) + (%%DLANTB NORM UPLO DIAG N-REF7926 K-REF7927 AB-REF7928 LDAB-REF7929 + WORK-REF7930)))) + +(CFFI:DEFCFUN ("dlantp_" %%DLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -9589,12 +9570,12 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7983 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7983 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7984 AP) (WORK-REF7985 WORK)) - (%%DLANTP NORM UPLO DIAG N-REF7983 AP-REF7984 WORK-REF7985)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7934 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7934 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7935 AP) (WORK-REF7936 WORK)) + (%%DLANTP NORM UPLO DIAG N-REF7934 AP-REF7935 WORK-REF7936)))) -(CFFI:DEFCFUN ("dlantr_" %%DLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlantr_" %%DLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -9618,16 +9599,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7989 ':INT32) (N-REF7990 ':INT32) - (LDA-REF7992 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7989 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7990 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7992 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7991 A) (WORK-REF7993 WORK)) - (%%DLANTR NORM UPLO DIAG M-REF7989 N-REF7990 A-REF7991 LDA-REF7992 - WORK-REF7993)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7940 ':INT32) (N-REF7941 ':INT32) + (LDA-REF7943 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7940 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7941 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7943 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7942 A) (WORK-REF7944 WORK)) + (%%DLANTR NORM UPLO DIAG M-REF7940 N-REF7941 A-REF7942 LDA-REF7943 + WORK-REF7944)))) -(CFFI:DEFCFUN ("dlanv2_" %%DLANV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlanv2_" %%DLANV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -9652,26 +9633,86 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2I) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7994 ':DOUBLE) (B-REF7995 ':DOUBLE) - (C-REF7996 ':DOUBLE) (D-REF7997 ':DOUBLE) - (RT1R-REF7998 ':DOUBLE) (RT1I-REF7999 ':DOUBLE) - (RT2R-REF8000 ':DOUBLE) (RT2I-REF8001 ':DOUBLE) - (CS-REF8002 ':DOUBLE) (SN-REF8003 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7994 :DOUBLE) A) - (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7995 :DOUBLE) B) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7996 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7997 :DOUBLE) D) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF7998 :DOUBLE) RT1R) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF7999 :DOUBLE) RT1I) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF8000 :DOUBLE) RT2R) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF8001 :DOUBLE) RT2I) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8002 :DOUBLE) CS) - (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8003 :DOUBLE) SN) + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7945 ':DOUBLE) (B-REF7946 ':DOUBLE) + (C-REF7947 ':DOUBLE) (D-REF7948 ':DOUBLE) + (RT1R-REF7949 ':DOUBLE) (RT1I-REF7950 ':DOUBLE) + (RT2R-REF7951 ':DOUBLE) (RT2I-REF7952 ':DOUBLE) + (CS-REF7953 ':DOUBLE) (SN-REF7954 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7945 :DOUBLE) A) + (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7946 :DOUBLE) B) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7947 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7948 :DOUBLE) D) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF7949 :DOUBLE) RT1R) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF7950 :DOUBLE) RT1I) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF7951 :DOUBLE) RT2R) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF7952 :DOUBLE) RT2I) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF7953 :DOUBLE) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF7954 :DOUBLE) SN) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLANV2 A-REF7994 B-REF7995 C-REF7996 D-REF7997 RT1R-REF7998 - RT1I-REF7999 RT2R-REF8000 RT2I-REF8001 CS-REF8002 SN-REF8003)))) + (%%DLANV2 A-REF7945 B-REF7946 C-REF7947 D-REF7948 RT1R-REF7949 + RT1I-REF7950 RT2R-REF7951 RT2I-REF7952 CS-REF7953 SN-REF7954)))) + +(CFFI:DEFCFUN ("dlaorhr_col_getrfnp_" %%DLAORHR_COL_GETRFNP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (A :POINTER) + (LDA :POINTER) + (D :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %DLAORHR_COL_GETRFNP (M N A LDA D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAORHR_COL_GETRFNP) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7955 ':INT32) (N-REF7956 ':INT32) + (LDA-REF7958 ':INT32) (INFO-REF7960 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7955 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7956 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7958 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7960 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7957 A) (D-REF7959 D)) + (%%DLAORHR_COL_GETRFNP M-REF7955 N-REF7956 A-REF7957 LDA-REF7958 + D-REF7959 INFO-REF7960)))) -(CFFI:DEFCFUN ("dlapll_" %%DLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlaorhr_col_getrfnp2_" %%DLAORHR_COL_GETRFNP2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (A :POINTER) + (LDA :POINTER) + (D :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %DLAORHR_COL_GETRFNP2 (M N A LDA D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAORHR_COL_GETRFNP2) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7961 ':INT32) (N-REF7962 ':INT32) + (LDA-REF7964 ':INT32) (INFO-REF7966 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7961 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7962 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7964 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7966 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7963 A) (D-REF7965 D)) + (%%DLAORHR_COL_GETRFNP2 M-REF7961 N-REF7962 A-REF7963 LDA-REF7964 + D-REF7965 INFO-REF7966)))) + +(CFFI:DEFCFUN ("dlapll_" %%DLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -9690,17 +9731,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8004 ':INT32) (INCX-REF8006 ':INT32) - (INCY-REF8008 ':INT32) (SSMIN-REF8009 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8004 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8006 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8008 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8009 :DOUBLE) SSMIN) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8005 X) (Y-REF8007 Y)) - (%%DLAPLL N-REF8004 X-REF8005 INCX-REF8006 Y-REF8007 INCY-REF8008 - SSMIN-REF8009)))) - -(CFFI:DEFCFUN ("dlapmr_" %%DLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7967 ':INT32) (INCX-REF7969 ':INT32) + (INCY-REF7971 ':INT32) (SSMIN-REF7972 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7967 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7969 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7971 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF7972 :DOUBLE) SSMIN) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7968 X) (Y-REF7970 Y)) + (%%DLAPLL N-REF7967 X-REF7968 INCX-REF7969 Y-REF7970 INCY-REF7971 + SSMIN-REF7972)))) + +(CFFI:DEFCFUN ("dlapmr_" %%DLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FORWRD :POINTER) (M :POINTER) @@ -9721,17 +9762,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) K)) - (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF8010 ':INT32) (M-REF8011 ':INT32) - (N-REF8012 ':INT32) (LDX-REF8014 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF8010 :INT32) FORWRD) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8011 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8012 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8014 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8013 X) (K-REF8015 K)) - (%%DLAPMR FORWRD-REF8010 M-REF8011 N-REF8012 X-REF8013 LDX-REF8014 - K-REF8015)))) - -(CFFI:DEFCFUN ("dlapmt_" %%DLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF7973 ':INT32) (M-REF7974 ':INT32) + (N-REF7975 ':INT32) (LDX-REF7977 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF7973 :INT32) FORWRD) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7974 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7975 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7977 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7976 X) (K-REF7978 K)) + (%%DLAPMR FORWRD-REF7973 M-REF7974 N-REF7975 X-REF7976 LDX-REF7977 + K-REF7978)))) + +(CFFI:DEFCFUN ("dlapmt_" %%DLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FORWRD :POINTER) (M :POINTER) @@ -9752,17 +9793,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) K)) - (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF8016 ':INT32) (M-REF8017 ':INT32) - (N-REF8018 ':INT32) (LDX-REF8020 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF8016 :INT32) FORWRD) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8017 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8018 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8020 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8019 X) (K-REF8021 K)) - (%%DLAPMT FORWRD-REF8016 M-REF8017 N-REF8018 X-REF8019 LDX-REF8020 - K-REF8021)))) - -(CFFI:DEFCFUN ("dlapy2_" %%DLAPY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF7979 ':INT32) (M-REF7980 ':INT32) + (N-REF7981 ':INT32) (LDX-REF7983 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF7979 :INT32) FORWRD) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7980 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7981 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7983 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7982 X) (K-REF7984 K)) + (%%DLAPMT FORWRD-REF7979 M-REF7980 N-REF7981 X-REF7982 LDX-REF7983 + K-REF7984)))) + +(CFFI:DEFCFUN ("dlapy2_" %%DLAPY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (X :POINTER) (Y :POINTER)) @@ -9771,13 +9812,13 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPY2) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y)) - (CFFI:WITH-FOREIGN-OBJECTS ((X-REF8022 ':DOUBLE) (Y-REF8023 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF X-REF8022 :DOUBLE) X) - (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF8023 :DOUBLE) Y) + (CFFI:WITH-FOREIGN-OBJECTS ((X-REF7985 ':DOUBLE) (Y-REF7986 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF X-REF7985 :DOUBLE) X) + (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF7986 :DOUBLE) Y) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLAPY2 X-REF8022 Y-REF8023)))) + (%%DLAPY2 X-REF7985 Y-REF7986)))) -(CFFI:DEFCFUN ("dlapy3_" %%DLAPY3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlapy3_" %%DLAPY3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (X :POINTER) (Y :POINTER) @@ -9788,15 +9829,15 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Z)) - (CFFI:WITH-FOREIGN-OBJECTS ((X-REF8024 ':DOUBLE) (Y-REF8025 ':DOUBLE) - (Z-REF8026 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF X-REF8024 :DOUBLE) X) - (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF8025 :DOUBLE) Y) - (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF8026 :DOUBLE) Z) + (CFFI:WITH-FOREIGN-OBJECTS ((X-REF7987 ':DOUBLE) (Y-REF7988 ':DOUBLE) + (Z-REF7989 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF X-REF7987 :DOUBLE) X) + (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF7988 :DOUBLE) Y) + (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF7989 :DOUBLE) Z) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLAPY3 X-REF8024 Y-REF8025 Z-REF8026)))) + (%%DLAPY3 X-REF7987 Y-REF7988 Z-REF7989)))) -(CFFI:DEFCFUN ("dlaqgb_" %%DLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlaqgb_" %%DLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -9828,25 +9869,25 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8027 ':INT32) (N-REF8028 ':INT32) - (KL-REF8029 ':INT32) (KU-REF8030 ':INT32) - (LDAB-REF8032 ':INT32) (ROWCND-REF8035 ':DOUBLE) - (COLCND-REF8036 ':DOUBLE) (AMAX-REF8037 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8027 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8028 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8029 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8030 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8032 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8035 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8036 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8037 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8031 AB) (R-REF8033 R) - (C-REF8034 C)) - (%%DLAQGB M-REF8027 N-REF8028 KL-REF8029 KU-REF8030 AB-REF8031 - LDAB-REF8032 R-REF8033 C-REF8034 ROWCND-REF8035 COLCND-REF8036 - AMAX-REF8037 EQUED)))) - -(CFFI:DEFCFUN ("dlaqge_" %%DLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7990 ':INT32) (N-REF7991 ':INT32) + (KL-REF7992 ':INT32) (KU-REF7993 ':INT32) + (LDAB-REF7995 ':INT32) (ROWCND-REF7998 ':DOUBLE) + (COLCND-REF7999 ':DOUBLE) (AMAX-REF8000 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7990 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7991 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7992 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7993 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7995 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF7998 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF7999 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8000 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7994 AB) (R-REF7996 R) + (C-REF7997 C)) + (%%DLAQGB M-REF7990 N-REF7991 KL-REF7992 KU-REF7993 AB-REF7994 + LDAB-REF7995 R-REF7996 C-REF7997 ROWCND-REF7998 COLCND-REF7999 + AMAX-REF8000 EQUED)))) + +(CFFI:DEFCFUN ("dlaqge_" %%DLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -9874,21 +9915,21 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8039 ':INT32) (N-REF8040 ':INT32) - (LDA-REF8042 ':INT32) (ROWCND-REF8045 ':DOUBLE) - (COLCND-REF8046 ':DOUBLE) (AMAX-REF8047 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8039 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8040 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8042 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8045 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8046 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8047 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8041 A) (R-REF8043 R) - (C-REF8044 C)) - (%%DLAQGE M-REF8039 N-REF8040 A-REF8041 LDA-REF8042 R-REF8043 C-REF8044 - ROWCND-REF8045 COLCND-REF8046 AMAX-REF8047 EQUED)))) - -(CFFI:DEFCFUN ("dlaqp2_" %%DLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8002 ':INT32) (N-REF8003 ':INT32) + (LDA-REF8005 ':INT32) (ROWCND-REF8008 ':DOUBLE) + (COLCND-REF8009 ':DOUBLE) (AMAX-REF8010 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8002 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8003 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8005 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8008 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8009 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8010 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8004 A) (R-REF8006 R) + (C-REF8007 C)) + (%%DLAQGE M-REF8002 N-REF8003 A-REF8004 LDA-REF8005 R-REF8006 C-REF8007 + ROWCND-REF8008 COLCND-REF8009 AMAX-REF8010 EQUED)))) + +(CFFI:DEFCFUN ("dlaqp2_" %%DLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -9925,21 +9966,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8049 ':INT32) (N-REF8050 ':INT32) - (OFFSET-REF8051 ':INT32) (LDA-REF8053 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8049 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8050 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8051 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8053 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8052 A) (JPVT-REF8054 JPVT) - (TAU-REF8055 TAU) (VN1-REF8056 VN1) - (VN2-REF8057 VN2) - (WORK-REF8058 WORK)) - (%%DLAQP2 M-REF8049 N-REF8050 OFFSET-REF8051 A-REF8052 LDA-REF8053 - JPVT-REF8054 TAU-REF8055 VN1-REF8056 VN2-REF8057 - WORK-REF8058)))) - -(CFFI:DEFCFUN ("dlaqps_" %%DLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8012 ':INT32) (N-REF8013 ':INT32) + (OFFSET-REF8014 ':INT32) (LDA-REF8016 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8012 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8013 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8014 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8016 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8015 A) (JPVT-REF8017 JPVT) + (TAU-REF8018 TAU) (VN1-REF8019 VN1) + (VN2-REF8020 VN2) + (WORK-REF8021 WORK)) + (%%DLAQP2 M-REF8012 N-REF8013 OFFSET-REF8014 A-REF8015 LDA-REF8016 + JPVT-REF8017 TAU-REF8018 VN1-REF8019 VN2-REF8020 WORK-REF8021)))) + +(CFFI:DEFCFUN ("dlaqps_" %%DLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -9985,26 +10025,26 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8059 ':INT32) (N-REF8060 ':INT32) - (OFFSET-REF8061 ':INT32) (NB-REF8062 ':INT32) - (KB-REF8063 ':INT32) (LDA-REF8065 ':INT32) - (LDF-REF8072 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8059 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8060 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8061 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8062 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8063 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8065 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF8072 :INT32) LDF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8064 A) (JPVT-REF8066 JPVT) - (TAU-REF8067 TAU) (VN1-REF8068 VN1) - (VN2-REF8069 VN2) - (AUXV-REF8070 AUXV) (F-REF8071 F)) - (%%DLAQPS M-REF8059 N-REF8060 OFFSET-REF8061 NB-REF8062 KB-REF8063 - A-REF8064 LDA-REF8065 JPVT-REF8066 TAU-REF8067 VN1-REF8068 - VN2-REF8069 AUXV-REF8070 F-REF8071 LDF-REF8072)))) - -(CFFI:DEFCFUN ("dlaqr0_" %%DLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8022 ':INT32) (N-REF8023 ':INT32) + (OFFSET-REF8024 ':INT32) (NB-REF8025 ':INT32) + (KB-REF8026 ':INT32) (LDA-REF8028 ':INT32) + (LDF-REF8035 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8022 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8023 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8024 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8025 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8026 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8028 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF8035 :INT32) LDF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8027 A) (JPVT-REF8029 JPVT) + (TAU-REF8030 TAU) (VN1-REF8031 VN1) + (VN2-REF8032 VN2) + (AUXV-REF8033 AUXV) (F-REF8034 F)) + (%%DLAQPS M-REF8022 N-REF8023 OFFSET-REF8024 NB-REF8025 KB-REF8026 + A-REF8027 LDA-REF8028 JPVT-REF8029 TAU-REF8030 VN1-REF8031 VN2-REF8032 + AUXV-REF8033 F-REF8034 LDF-REF8035)))) + +(CFFI:DEFCFUN ("dlaqr0_" %%DLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -10049,32 +10089,31 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8073 ':INT32) (WANTZ-REF8074 ':INT32) - (N-REF8075 ':INT32) (ILO-REF8076 ':INT32) - (IHI-REF8077 ':INT32) (LDH-REF8079 ':INT32) - (ILOZ-REF8082 ':INT32) (IHIZ-REF8083 ':INT32) - (LDZ-REF8085 ':INT32) (LWORK-REF8087 ':INT32) - (INFO-REF8088 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8073 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8074 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8075 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8076 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8077 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8079 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8082 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8083 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8085 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8087 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8088 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8078 H) (WR-REF8080 WR) - (WI-REF8081 WI) (Z-REF8084 Z) - (WORK-REF8086 WORK)) - (%%DLAQR0 WANTT-REF8073 WANTZ-REF8074 N-REF8075 ILO-REF8076 IHI-REF8077 - H-REF8078 LDH-REF8079 WR-REF8080 WI-REF8081 ILOZ-REF8082 - IHIZ-REF8083 Z-REF8084 LDZ-REF8085 WORK-REF8086 LWORK-REF8087 - INFO-REF8088)))) - -(CFFI:DEFCFUN ("dlaqr1_" %%DLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8036 ':INT32) (WANTZ-REF8037 ':INT32) + (N-REF8038 ':INT32) (ILO-REF8039 ':INT32) + (IHI-REF8040 ':INT32) (LDH-REF8042 ':INT32) + (ILOZ-REF8045 ':INT32) (IHIZ-REF8046 ':INT32) + (LDZ-REF8048 ':INT32) (LWORK-REF8050 ':INT32) + (INFO-REF8051 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8036 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8037 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8038 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8039 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8040 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8042 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8045 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8046 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8048 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8050 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8051 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8041 H) (WR-REF8043 WR) + (WI-REF8044 WI) (Z-REF8047 Z) + (WORK-REF8049 WORK)) + (%%DLAQR0 WANTT-REF8036 WANTZ-REF8037 N-REF8038 ILO-REF8039 IHI-REF8040 + H-REF8041 LDH-REF8042 WR-REF8043 WI-REF8044 ILOZ-REF8045 IHIZ-REF8046 + Z-REF8047 LDZ-REF8048 WORK-REF8049 LWORK-REF8050 INFO-REF8051)))) + +(CFFI:DEFCFUN ("dlaqr1_" %%DLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (H :POINTER) @@ -10097,20 +10136,20 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SI2) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8089 ':INT32) (LDH-REF8091 ':INT32) - (SR1-REF8092 ':DOUBLE) (SI1-REF8093 ':DOUBLE) - (SR2-REF8094 ':DOUBLE) (SI2-REF8095 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8089 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8091 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF8092 :DOUBLE) SR1) - (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF8093 :DOUBLE) SI1) - (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF8094 :DOUBLE) SR2) - (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF8095 :DOUBLE) SI2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8090 H) (V-REF8096 V)) - (%%DLAQR1 N-REF8089 H-REF8090 LDH-REF8091 SR1-REF8092 SI1-REF8093 - SR2-REF8094 SI2-REF8095 V-REF8096)))) - -(CFFI:DEFCFUN ("dlaqr2_" %%DLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8052 ':INT32) (LDH-REF8054 ':INT32) + (SR1-REF8055 ':DOUBLE) (SI1-REF8056 ':DOUBLE) + (SR2-REF8057 ':DOUBLE) (SI2-REF8058 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8052 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8054 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF8055 :DOUBLE) SR1) + (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF8056 :DOUBLE) SI1) + (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF8057 :DOUBLE) SR2) + (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF8058 :DOUBLE) SI2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8053 H) (V-REF8059 V)) + (%%DLAQR1 N-REF8052 H-REF8053 LDH-REF8054 SR1-REF8055 SI1-REF8056 + SR2-REF8057 SI2-REF8058 V-REF8059)))) + +(CFFI:DEFCFUN ("dlaqr2_" %%DLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -10178,45 +10217,44 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8097 ':INT32) (WANTZ-REF8098 ':INT32) - (N-REF8099 ':INT32) (KTOP-REF8100 ':INT32) - (KBOT-REF8101 ':INT32) (NW-REF8102 ':INT32) - (LDH-REF8104 ':INT32) (ILOZ-REF8105 ':INT32) - (IHIZ-REF8106 ':INT32) (LDZ-REF8108 ':INT32) - (NS-REF8109 ':INT32) (ND-REF8110 ':INT32) - (LDV-REF8114 ':INT32) (NH-REF8115 ':INT32) - (LDT-REF8117 ':INT32) (NV-REF8118 ':INT32) - (LDWV-REF8120 ':INT32) (LWORK-REF8122 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8097 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8098 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8099 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8100 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8101 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8102 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8104 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8105 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8106 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8108 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8109 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8110 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8114 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8115 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8117 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8118 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8120 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8122 :INT32) LWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8103 H) (Z-REF8107 Z) - (SR-REF8111 SR) (SI-REF8112 SI) - (V-REF8113 V) (T-REF8116 T) - (WV-REF8119 WV) (WORK-REF8121 WORK)) - (%%DLAQR2 WANTT-REF8097 WANTZ-REF8098 N-REF8099 KTOP-REF8100 KBOT-REF8101 - NW-REF8102 H-REF8103 LDH-REF8104 ILOZ-REF8105 IHIZ-REF8106 - Z-REF8107 LDZ-REF8108 NS-REF8109 ND-REF8110 SR-REF8111 - SI-REF8112 V-REF8113 LDV-REF8114 NH-REF8115 T-REF8116 - LDT-REF8117 NV-REF8118 WV-REF8119 LDWV-REF8120 WORK-REF8121 - LWORK-REF8122)))) - -(CFFI:DEFCFUN ("dlaqr3_" %%DLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8060 ':INT32) (WANTZ-REF8061 ':INT32) + (N-REF8062 ':INT32) (KTOP-REF8063 ':INT32) + (KBOT-REF8064 ':INT32) (NW-REF8065 ':INT32) + (LDH-REF8067 ':INT32) (ILOZ-REF8068 ':INT32) + (IHIZ-REF8069 ':INT32) (LDZ-REF8071 ':INT32) + (NS-REF8072 ':INT32) (ND-REF8073 ':INT32) + (LDV-REF8077 ':INT32) (NH-REF8078 ':INT32) + (LDT-REF8080 ':INT32) (NV-REF8081 ':INT32) + (LDWV-REF8083 ':INT32) (LWORK-REF8085 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8060 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8061 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8062 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8063 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8064 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8065 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8067 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8068 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8069 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8071 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8072 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8073 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8077 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8078 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8080 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8081 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8083 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8085 :INT32) LWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8066 H) (Z-REF8070 Z) + (SR-REF8074 SR) (SI-REF8075 SI) + (V-REF8076 V) (T-REF8079 T) + (WV-REF8082 WV) (WORK-REF8084 WORK)) + (%%DLAQR2 WANTT-REF8060 WANTZ-REF8061 N-REF8062 KTOP-REF8063 KBOT-REF8064 + NW-REF8065 H-REF8066 LDH-REF8067 ILOZ-REF8068 IHIZ-REF8069 Z-REF8070 + LDZ-REF8071 NS-REF8072 ND-REF8073 SR-REF8074 SI-REF8075 V-REF8076 + LDV-REF8077 NH-REF8078 T-REF8079 LDT-REF8080 NV-REF8081 WV-REF8082 + LDWV-REF8083 WORK-REF8084 LWORK-REF8085)))) + +(CFFI:DEFCFUN ("dlaqr3_" %%DLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -10284,45 +10322,44 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8123 ':INT32) (WANTZ-REF8124 ':INT32) - (N-REF8125 ':INT32) (KTOP-REF8126 ':INT32) - (KBOT-REF8127 ':INT32) (NW-REF8128 ':INT32) - (LDH-REF8130 ':INT32) (ILOZ-REF8131 ':INT32) - (IHIZ-REF8132 ':INT32) (LDZ-REF8134 ':INT32) - (NS-REF8135 ':INT32) (ND-REF8136 ':INT32) - (LDV-REF8140 ':INT32) (NH-REF8141 ':INT32) - (LDT-REF8143 ':INT32) (NV-REF8144 ':INT32) - (LDWV-REF8146 ':INT32) (LWORK-REF8148 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8123 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8124 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8125 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8126 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8127 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8128 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8130 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8131 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8132 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8134 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8135 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8136 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8140 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8141 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8143 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8144 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8146 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8148 :INT32) LWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8129 H) (Z-REF8133 Z) - (SR-REF8137 SR) (SI-REF8138 SI) - (V-REF8139 V) (T-REF8142 T) - (WV-REF8145 WV) (WORK-REF8147 WORK)) - (%%DLAQR3 WANTT-REF8123 WANTZ-REF8124 N-REF8125 KTOP-REF8126 KBOT-REF8127 - NW-REF8128 H-REF8129 LDH-REF8130 ILOZ-REF8131 IHIZ-REF8132 - Z-REF8133 LDZ-REF8134 NS-REF8135 ND-REF8136 SR-REF8137 - SI-REF8138 V-REF8139 LDV-REF8140 NH-REF8141 T-REF8142 - LDT-REF8143 NV-REF8144 WV-REF8145 LDWV-REF8146 WORK-REF8147 - LWORK-REF8148)))) - -(CFFI:DEFCFUN ("dlaqr4_" %%DLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8086 ':INT32) (WANTZ-REF8087 ':INT32) + (N-REF8088 ':INT32) (KTOP-REF8089 ':INT32) + (KBOT-REF8090 ':INT32) (NW-REF8091 ':INT32) + (LDH-REF8093 ':INT32) (ILOZ-REF8094 ':INT32) + (IHIZ-REF8095 ':INT32) (LDZ-REF8097 ':INT32) + (NS-REF8098 ':INT32) (ND-REF8099 ':INT32) + (LDV-REF8103 ':INT32) (NH-REF8104 ':INT32) + (LDT-REF8106 ':INT32) (NV-REF8107 ':INT32) + (LDWV-REF8109 ':INT32) (LWORK-REF8111 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8086 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8087 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8088 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8089 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8090 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8091 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8093 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8094 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8095 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8097 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8098 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8099 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8103 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8104 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8106 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8107 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8109 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8111 :INT32) LWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8092 H) (Z-REF8096 Z) + (SR-REF8100 SR) (SI-REF8101 SI) + (V-REF8102 V) (T-REF8105 T) + (WV-REF8108 WV) (WORK-REF8110 WORK)) + (%%DLAQR3 WANTT-REF8086 WANTZ-REF8087 N-REF8088 KTOP-REF8089 KBOT-REF8090 + NW-REF8091 H-REF8092 LDH-REF8093 ILOZ-REF8094 IHIZ-REF8095 Z-REF8096 + LDZ-REF8097 NS-REF8098 ND-REF8099 SR-REF8100 SI-REF8101 V-REF8102 + LDV-REF8103 NH-REF8104 T-REF8105 LDT-REF8106 NV-REF8107 WV-REF8108 + LDWV-REF8109 WORK-REF8110 LWORK-REF8111)))) + +(CFFI:DEFCFUN ("dlaqr4_" %%DLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -10367,32 +10404,31 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8149 ':INT32) (WANTZ-REF8150 ':INT32) - (N-REF8151 ':INT32) (ILO-REF8152 ':INT32) - (IHI-REF8153 ':INT32) (LDH-REF8155 ':INT32) - (ILOZ-REF8158 ':INT32) (IHIZ-REF8159 ':INT32) - (LDZ-REF8161 ':INT32) (LWORK-REF8163 ':INT32) - (INFO-REF8164 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8149 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8150 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8151 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8152 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8153 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8155 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8158 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8159 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8161 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8163 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8164 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8154 H) (WR-REF8156 WR) - (WI-REF8157 WI) (Z-REF8160 Z) - (WORK-REF8162 WORK)) - (%%DLAQR4 WANTT-REF8149 WANTZ-REF8150 N-REF8151 ILO-REF8152 IHI-REF8153 - H-REF8154 LDH-REF8155 WR-REF8156 WI-REF8157 ILOZ-REF8158 - IHIZ-REF8159 Z-REF8160 LDZ-REF8161 WORK-REF8162 LWORK-REF8163 - INFO-REF8164)))) - -(CFFI:DEFCFUN ("dlaqr5_" %%DLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8112 ':INT32) (WANTZ-REF8113 ':INT32) + (N-REF8114 ':INT32) (ILO-REF8115 ':INT32) + (IHI-REF8116 ':INT32) (LDH-REF8118 ':INT32) + (ILOZ-REF8121 ':INT32) (IHIZ-REF8122 ':INT32) + (LDZ-REF8124 ':INT32) (LWORK-REF8126 ':INT32) + (INFO-REF8127 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8112 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8113 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8114 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8115 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8116 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8118 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8121 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8122 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8124 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8126 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8127 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8117 H) (WR-REF8119 WR) + (WI-REF8120 WI) (Z-REF8123 Z) + (WORK-REF8125 WORK)) + (%%DLAQR4 WANTT-REF8112 WANTZ-REF8113 N-REF8114 ILO-REF8115 IHI-REF8116 + H-REF8117 LDH-REF8118 WR-REF8119 WI-REF8120 ILOZ-REF8121 IHIZ-REF8122 + Z-REF8123 LDZ-REF8124 WORK-REF8125 LWORK-REF8126 INFO-REF8127)))) + +(CFFI:DEFCFUN ("dlaqr5_" %%DLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -10457,44 +10493,43 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WH) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8165 ':INT32) (WANTZ-REF8166 ':INT32) - (KACC22-REF8167 ':INT32) (N-REF8168 ':INT32) - (KTOP-REF8169 ':INT32) (KBOT-REF8170 ':INT32) - (NSHFTS-REF8171 ':INT32) (LDH-REF8175 ':INT32) - (ILOZ-REF8176 ':INT32) (IHIZ-REF8177 ':INT32) - (LDZ-REF8179 ':INT32) (LDV-REF8181 ':INT32) - (LDU-REF8183 ':INT32) (NV-REF8184 ':INT32) - (LDWV-REF8186 ':INT32) (NH-REF8187 ':INT32) - (LDWH-REF8189 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8165 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8166 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF8167 :INT32) KACC22) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8168 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8169 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8170 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF8171 :INT32) NSHFTS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8175 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8176 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8177 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8179 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8181 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8183 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8184 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8186 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8187 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF8189 :INT32) LDWH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF8172 SR) (SI-REF8173 SI) - (H-REF8174 H) (Z-REF8178 Z) - (V-REF8180 V) (U-REF8182 U) - (WV-REF8185 WV) (WH-REF8188 WH)) - (%%DLAQR5 WANTT-REF8165 WANTZ-REF8166 KACC22-REF8167 N-REF8168 - KTOP-REF8169 KBOT-REF8170 NSHFTS-REF8171 SR-REF8172 SI-REF8173 - H-REF8174 LDH-REF8175 ILOZ-REF8176 IHIZ-REF8177 Z-REF8178 - LDZ-REF8179 V-REF8180 LDV-REF8181 U-REF8182 LDU-REF8183 - NV-REF8184 WV-REF8185 LDWV-REF8186 NH-REF8187 WH-REF8188 - LDWH-REF8189)))) - -(CFFI:DEFCFUN ("dlaqsb_" %%DLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8128 ':INT32) (WANTZ-REF8129 ':INT32) + (KACC22-REF8130 ':INT32) (N-REF8131 ':INT32) + (KTOP-REF8132 ':INT32) (KBOT-REF8133 ':INT32) + (NSHFTS-REF8134 ':INT32) (LDH-REF8138 ':INT32) + (ILOZ-REF8139 ':INT32) (IHIZ-REF8140 ':INT32) + (LDZ-REF8142 ':INT32) (LDV-REF8144 ':INT32) + (LDU-REF8146 ':INT32) (NV-REF8147 ':INT32) + (LDWV-REF8149 ':INT32) (NH-REF8150 ':INT32) + (LDWH-REF8152 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8128 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8129 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF8130 :INT32) KACC22) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8131 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8132 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8133 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF8134 :INT32) NSHFTS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8138 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8139 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8140 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8142 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8144 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8146 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8147 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8149 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8150 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF8152 :INT32) LDWH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF8135 SR) (SI-REF8136 SI) + (H-REF8137 H) (Z-REF8141 Z) + (V-REF8143 V) (U-REF8145 U) + (WV-REF8148 WV) (WH-REF8151 WH)) + (%%DLAQR5 WANTT-REF8128 WANTZ-REF8129 KACC22-REF8130 N-REF8131 + KTOP-REF8132 KBOT-REF8133 NSHFTS-REF8134 SR-REF8135 SI-REF8136 H-REF8137 + LDH-REF8138 ILOZ-REF8139 IHIZ-REF8140 Z-REF8141 LDZ-REF8142 V-REF8143 + LDV-REF8144 U-REF8145 LDU-REF8146 NV-REF8147 WV-REF8148 LDWV-REF8149 + NH-REF8150 WH-REF8151 LDWH-REF8152)))) + +(CFFI:DEFCFUN ("dlaqsb_" %%DLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10519,19 +10554,19 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8191 ':INT32) (KD-REF8192 ':INT32) - (LDAB-REF8194 ':INT32) (SCOND-REF8196 ':DOUBLE) - (AMAX-REF8197 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8191 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8192 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8194 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8196 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8197 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8193 AB) (S-REF8195 S)) - (%%DLAQSB UPLO N-REF8191 KD-REF8192 AB-REF8193 LDAB-REF8194 S-REF8195 - SCOND-REF8196 AMAX-REF8197 EQUED)))) - -(CFFI:DEFCFUN ("dlaqsp_" %%DLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8154 ':INT32) (KD-REF8155 ':INT32) + (LDAB-REF8157 ':INT32) (SCOND-REF8159 ':DOUBLE) + (AMAX-REF8160 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8154 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8155 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8157 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8159 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8160 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8156 AB) (S-REF8158 S)) + (%%DLAQSB UPLO N-REF8154 KD-REF8155 AB-REF8156 LDAB-REF8157 S-REF8158 + SCOND-REF8159 AMAX-REF8160 EQUED)))) + +(CFFI:DEFCFUN ("dlaqsp_" %%DLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10552,16 +10587,16 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8200 ':INT32) (SCOND-REF8203 ':DOUBLE) - (AMAX-REF8204 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8200 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8203 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8204 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8201 AP) (S-REF8202 S)) - (%%DLAQSP UPLO N-REF8200 AP-REF8201 S-REF8202 SCOND-REF8203 AMAX-REF8204 - EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8163 ':INT32) (SCOND-REF8166 ':DOUBLE) + (AMAX-REF8167 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8163 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8166 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8167 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8164 AP) (S-REF8165 S)) + (%%DLAQSP UPLO N-REF8163 AP-REF8164 S-REF8165 SCOND-REF8166 AMAX-REF8167 + EQUED)))) -(CFFI:DEFCFUN ("dlaqsy_" %%DLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlaqsy_" %%DLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10584,17 +10619,17 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8207 ':INT32) (LDA-REF8209 ':INT32) - (SCOND-REF8211 ':DOUBLE) (AMAX-REF8212 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8207 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8209 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8211 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8212 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8208 A) (S-REF8210 S)) - (%%DLAQSY UPLO N-REF8207 A-REF8208 LDA-REF8209 S-REF8210 SCOND-REF8211 - AMAX-REF8212 EQUED)))) - -(CFFI:DEFCFUN ("dlaqtr_" %%DLAQTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8170 ':INT32) (LDA-REF8172 ':INT32) + (SCOND-REF8174 ':DOUBLE) (AMAX-REF8175 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8170 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8172 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8174 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8175 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8171 A) (S-REF8173 S)) + (%%DLAQSY UPLO N-REF8170 A-REF8171 LDA-REF8172 S-REF8173 SCOND-REF8174 + AMAX-REF8175 EQUED)))) + +(CFFI:DEFCFUN ("dlaqtr_" %%DLAQTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (LTRAN :POINTER) (LREAL :POINTER) @@ -10626,24 +10661,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF8214 ':INT32) (LREAL-REF8215 ':INT32) - (N-REF8216 ':INT32) (LDT-REF8218 ':INT32) - (W-REF8220 ':DOUBLE) (SCALE-REF8221 ':DOUBLE) - (INFO-REF8224 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF8214 :INT32) LTRAN) - (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF8215 :INT32) LREAL) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8216 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8218 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8220 :DOUBLE) W) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8221 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8224 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF8217 T) (B-REF8219 B) - (X-REF8222 X) (WORK-REF8223 WORK)) - (%%DLAQTR LTRAN-REF8214 LREAL-REF8215 N-REF8216 T-REF8217 LDT-REF8218 - B-REF8219 W-REF8220 SCALE-REF8221 X-REF8222 WORK-REF8223 - INFO-REF8224)))) - -(CFFI:DEFCFUN ("dlar1v_" %%DLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF8177 ':INT32) (LREAL-REF8178 ':INT32) + (N-REF8179 ':INT32) (LDT-REF8181 ':INT32) + (W-REF8183 ':DOUBLE) (SCALE-REF8184 ':DOUBLE) + (INFO-REF8187 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF8177 :INT32) LTRAN) + (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF8178 :INT32) LREAL) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8179 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8181 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8183 :DOUBLE) W) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8184 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8187 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF8180 T) (B-REF8182 B) + (X-REF8185 X) (WORK-REF8186 WORK)) + (%%DLAQTR LTRAN-REF8177 LREAL-REF8178 N-REF8179 T-REF8180 LDT-REF8181 + B-REF8182 W-REF8183 SCALE-REF8184 X-REF8185 WORK-REF8186 INFO-REF8187)))) + +(CFFI:DEFCFUN ("dlar1v_" %%DLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (B1 :POINTER) @@ -10703,41 +10737,41 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8225 ':INT32) (B1-REF8226 ':INT32) - (BN-REF8227 ':INT32) (LAMBDA-REF8228 ':DOUBLE) - (PIVMIN-REF8233 ':DOUBLE) - (GAPTOL-REF8234 ':DOUBLE) - (WANTNC-REF8236 ':INT32) (NEGCNT-REF8237 ':INT32) - (ZTZ-REF8238 ':DOUBLE) (MINGMA-REF8239 ':DOUBLE) - (R-REF8240 ':INT32) (NRMINV-REF8242 ':DOUBLE) - (RESID-REF8243 ':DOUBLE) - (RQCORR-REF8244 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8225 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF8226 :INT32) B1) - (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF8227 :INT32) BN) - (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF8228 :DOUBLE) LAMBDA) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8233 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF8234 :DOUBLE) GAPTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF8236 :INT32) WANTNC) - (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF8237 :INT32) NEGCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF8238 :DOUBLE) ZTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF8239 :DOUBLE) MINGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8240 :INT32) R) - (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF8242 :DOUBLE) NRMINV) - (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF8243 :DOUBLE) RESID) - (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF8244 :DOUBLE) RQCORR) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8229 D) (L-REF8230 L) - (LD-REF8231 LD) (LLD-REF8232 LLD) - (Z-REF8235 Z) - (ISUPPZ-REF8241 ISUPPZ) - (WORK-REF8245 WORK)) - (%%DLAR1V N-REF8225 B1-REF8226 BN-REF8227 LAMBDA-REF8228 D-REF8229 - L-REF8230 LD-REF8231 LLD-REF8232 PIVMIN-REF8233 GAPTOL-REF8234 - Z-REF8235 WANTNC-REF8236 NEGCNT-REF8237 ZTZ-REF8238 - MINGMA-REF8239 R-REF8240 ISUPPZ-REF8241 NRMINV-REF8242 - RESID-REF8243 RQCORR-REF8244 WORK-REF8245)))) - -(CFFI:DEFCFUN ("dlar2v_" %%DLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8188 ':INT32) (B1-REF8189 ':INT32) + (BN-REF8190 ':INT32) (LAMBDA-REF8191 ':DOUBLE) + (PIVMIN-REF8196 ':DOUBLE) + (GAPTOL-REF8197 ':DOUBLE) + (WANTNC-REF8199 ':INT32) (NEGCNT-REF8200 ':INT32) + (ZTZ-REF8201 ':DOUBLE) (MINGMA-REF8202 ':DOUBLE) + (R-REF8203 ':INT32) (NRMINV-REF8205 ':DOUBLE) + (RESID-REF8206 ':DOUBLE) + (RQCORR-REF8207 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8188 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF8189 :INT32) B1) + (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF8190 :INT32) BN) + (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF8191 :DOUBLE) LAMBDA) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8196 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF8197 :DOUBLE) GAPTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF8199 :INT32) WANTNC) + (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF8200 :INT32) NEGCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF8201 :DOUBLE) ZTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF8202 :DOUBLE) MINGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8203 :INT32) R) + (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF8205 :DOUBLE) NRMINV) + (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF8206 :DOUBLE) RESID) + (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF8207 :DOUBLE) RQCORR) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8192 D) (L-REF8193 L) + (LD-REF8194 LD) (LLD-REF8195 LLD) + (Z-REF8198 Z) + (ISUPPZ-REF8204 ISUPPZ) + (WORK-REF8208 WORK)) + (%%DLAR1V N-REF8188 B1-REF8189 BN-REF8190 LAMBDA-REF8191 D-REF8192 + L-REF8193 LD-REF8194 LLD-REF8195 PIVMIN-REF8196 GAPTOL-REF8197 Z-REF8198 + WANTNC-REF8199 NEGCNT-REF8200 ZTZ-REF8201 MINGMA-REF8202 R-REF8203 + ISUPPZ-REF8204 NRMINV-REF8205 RESID-REF8206 RQCORR-REF8207 + WORK-REF8208)))) + +(CFFI:DEFCFUN ("dlar2v_" %%DLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -10763,18 +10797,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8246 ':INT32) (INCX-REF8250 ':INT32) - (INCC-REF8253 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8246 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8250 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8253 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8247 X) (Y-REF8248 Y) - (Z-REF8249 Z) (C-REF8251 C) - (S-REF8252 S)) - (%%DLAR2V N-REF8246 X-REF8247 Y-REF8248 Z-REF8249 INCX-REF8250 C-REF8251 - S-REF8252 INCC-REF8253)))) - -(CFFI:DEFCFUN ("dlarf_" %%DLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8209 ':INT32) (INCX-REF8213 ':INT32) + (INCC-REF8216 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8209 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8213 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8216 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8210 X) (Y-REF8211 Y) + (Z-REF8212 Z) (C-REF8214 C) + (S-REF8215 S)) + (%%DLAR2V N-REF8209 X-REF8210 Y-REF8211 Z-REF8212 INCX-REF8213 C-REF8214 + S-REF8215 INCC-REF8216)))) + +(CFFI:DEFCFUN ("dlarf_" %%DLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -10801,20 +10835,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8255 ':INT32) (N-REF8256 ':INT32) - (INCV-REF8258 ':INT32) (TAU-REF8259 ':DOUBLE) - (LDC-REF8261 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8255 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8256 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8258 :INT32) INCV) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8259 :DOUBLE) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8261 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8257 V) (C-REF8260 C) - (WORK-REF8262 WORK)) - (%%DLARF SIDE M-REF8255 N-REF8256 V-REF8257 INCV-REF8258 TAU-REF8259 - C-REF8260 LDC-REF8261 WORK-REF8262)))) - -(CFFI:DEFCFUN ("dlarfb_" %%DLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8218 ':INT32) (N-REF8219 ':INT32) + (INCV-REF8221 ':INT32) (TAU-REF8222 ':DOUBLE) + (LDC-REF8224 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8218 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8219 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8221 :INT32) INCV) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8222 :DOUBLE) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8224 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8220 V) (C-REF8223 C) + (WORK-REF8225 WORK)) + (%%DLARF SIDE M-REF8218 N-REF8219 V-REF8220 INCV-REF8221 TAU-REF8222 + C-REF8223 LDC-REF8224 WORK-REF8225)))) + +(CFFI:DEFCFUN ("dlarfb_" %%DLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -10856,24 +10890,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8267 ':INT32) (N-REF8268 ':INT32) - (K-REF8269 ':INT32) (LDV-REF8271 ':INT32) - (LDT-REF8273 ':INT32) (LDC-REF8275 ':INT32) - (LDWORK-REF8277 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8267 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8268 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8269 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8271 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8273 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8275 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8277 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8270 V) (T-REF8272 T) - (C-REF8274 C) (WORK-REF8276 WORK)) - (%%DLARFB SIDE TRANS DIRECT STOREV M-REF8267 N-REF8268 K-REF8269 - V-REF8270 LDV-REF8271 T-REF8272 LDT-REF8273 C-REF8274 - LDC-REF8275 WORK-REF8276 LDWORK-REF8277)))) - -(CFFI:DEFCFUN ("dlarfg_" %%DLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8230 ':INT32) (N-REF8231 ':INT32) + (K-REF8232 ':INT32) (LDV-REF8234 ':INT32) + (LDT-REF8236 ':INT32) (LDC-REF8238 ':INT32) + (LDWORK-REF8240 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8230 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8231 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8232 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8234 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8236 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8238 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8240 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8233 V) (T-REF8235 T) + (C-REF8237 C) (WORK-REF8239 WORK)) + (%%DLARFB SIDE TRANS DIRECT STOREV M-REF8230 N-REF8231 K-REF8232 + V-REF8233 LDV-REF8234 T-REF8235 LDT-REF8236 C-REF8237 LDC-REF8238 + WORK-REF8239 LDWORK-REF8240)))) + +(CFFI:DEFCFUN ("dlarfg_" %%DLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ALPHA :POINTER) @@ -10889,16 +10923,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8278 ':INT32) (ALPHA-REF8279 ':DOUBLE) - (INCX-REF8281 ':INT32) (TAU-REF8282 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8278 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8279 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8281 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8282 :DOUBLE) TAU) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8280 X)) - (%%DLARFG N-REF8278 ALPHA-REF8279 X-REF8280 INCX-REF8281 TAU-REF8282)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8241 ':INT32) (ALPHA-REF8242 ':DOUBLE) + (INCX-REF8244 ':INT32) (TAU-REF8245 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8241 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8242 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8244 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8245 :DOUBLE) TAU) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8243 X)) + (%%DLARFG N-REF8241 ALPHA-REF8242 X-REF8243 INCX-REF8244 TAU-REF8245)))) -(CFFI:DEFCFUN ("dlarfgp_" %%DLARFGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlarfgp_" %%DLARFGP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ALPHA :POINTER) @@ -10914,16 +10949,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8283 ':INT32) (ALPHA-REF8284 ':DOUBLE) - (INCX-REF8286 ':INT32) (TAU-REF8287 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8283 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8284 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8286 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8287 :DOUBLE) TAU) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8285 X)) - (%%DLARFGP N-REF8283 ALPHA-REF8284 X-REF8285 INCX-REF8286 TAU-REF8287)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8246 ':INT32) (ALPHA-REF8247 ':DOUBLE) + (INCX-REF8249 ':INT32) (TAU-REF8250 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8246 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8247 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8249 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8250 :DOUBLE) TAU) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8248 X)) + (%%DLARFGP N-REF8246 ALPHA-REF8247 X-REF8248 INCX-REF8249 TAU-REF8250)))) -(CFFI:DEFCFUN ("dlarft_" %%DLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlarft_" %%DLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (DIRECT :STRING) (STOREV :STRING) @@ -10950,18 +10985,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8290 ':INT32) (K-REF8291 ':INT32) - (LDV-REF8293 ':INT32) (LDT-REF8296 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8290 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8291 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8293 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8296 :INT32) LDT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8292 V) (TAU-REF8294 TAU) - (T-REF8295 T)) - (%%DLARFT DIRECT STOREV N-REF8290 K-REF8291 V-REF8292 LDV-REF8293 - TAU-REF8294 T-REF8295 LDT-REF8296)))) - -(CFFI:DEFCFUN ("dlarfx_" %%DLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8253 ':INT32) (K-REF8254 ':INT32) + (LDV-REF8256 ':INT32) (LDT-REF8259 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8253 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8254 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8256 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8259 :INT32) LDT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8255 V) (TAU-REF8257 TAU) + (T-REF8258 T)) + (%%DLARFT DIRECT STOREV N-REF8253 K-REF8254 V-REF8255 LDV-REF8256 + TAU-REF8257 T-REF8258 LDT-REF8259)))) + +(CFFI:DEFCFUN ("dlarfx_" %%DLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -10986,18 +11021,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8298 ':INT32) (N-REF8299 ':INT32) - (TAU-REF8301 ':DOUBLE) (LDC-REF8303 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8298 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8299 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8301 :DOUBLE) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8303 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8300 V) (C-REF8302 C) - (WORK-REF8304 WORK)) - (%%DLARFX SIDE M-REF8298 N-REF8299 V-REF8300 TAU-REF8301 C-REF8302 - LDC-REF8303 WORK-REF8304)))) - -(CFFI:DEFCFUN ("dlarfy_" %%DLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8261 ':INT32) (N-REF8262 ':INT32) + (TAU-REF8264 ':DOUBLE) (LDC-REF8266 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8261 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8262 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8264 :DOUBLE) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8266 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8263 V) (C-REF8265 C) + (WORK-REF8267 WORK)) + (%%DLARFX SIDE M-REF8261 N-REF8262 V-REF8263 TAU-REF8264 C-REF8265 + LDC-REF8266 WORK-REF8267)))) + +(CFFI:DEFCFUN ("dlarfy_" %%DLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11022,18 +11057,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8306 ':INT32) (INCV-REF8308 ':INT32) - (TAU-REF8309 ':DOUBLE) (LDC-REF8311 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8306 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8308 :INT32) INCV) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8309 :DOUBLE) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8311 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8307 V) (C-REF8310 C) - (WORK-REF8312 WORK)) - (%%DLARFY UPLO N-REF8306 V-REF8307 INCV-REF8308 TAU-REF8309 C-REF8310 - LDC-REF8311 WORK-REF8312)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8269 ':INT32) (INCV-REF8271 ':INT32) + (TAU-REF8272 ':DOUBLE) (LDC-REF8274 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8269 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8271 :INT32) INCV) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8272 :DOUBLE) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8274 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8270 V) (C-REF8273 C) + (WORK-REF8275 WORK)) + (%%DLARFY UPLO N-REF8269 V-REF8270 INCV-REF8271 TAU-REF8272 C-REF8273 + LDC-REF8274 WORK-REF8275)))) -(CFFI:DEFCFUN ("dlargv_" %%DLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlargv_" %%DLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -11055,18 +11090,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8313 ':INT32) (INCX-REF8315 ':INT32) - (INCY-REF8317 ':INT32) (INCC-REF8319 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8313 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8315 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8317 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8319 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8314 X) (Y-REF8316 Y) - (C-REF8318 C)) - (%%DLARGV N-REF8313 X-REF8314 INCX-REF8315 Y-REF8316 INCY-REF8317 - C-REF8318 INCC-REF8319)))) - -(CFFI:DEFCFUN ("dlarnv_" %%DLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8276 ':INT32) (INCX-REF8278 ':INT32) + (INCY-REF8280 ':INT32) (INCC-REF8282 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8276 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8278 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8280 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8282 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8277 X) (Y-REF8279 Y) + (C-REF8281 C)) + (%%DLARGV N-REF8276 X-REF8277 INCX-REF8278 Y-REF8279 INCY-REF8280 + C-REF8281 INCC-REF8282)))) + +(CFFI:DEFCFUN ("dlarnv_" %%DLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IDIST :POINTER) (ISEED :POINTER) @@ -11083,13 +11118,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)) - (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF8320 ':INT32) (N-REF8322 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF8320 :INT32) IDIST) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8322 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8321 ISEED) (X-REF8323 X)) - (%%DLARNV IDIST-REF8320 ISEED-REF8321 N-REF8322 X-REF8323)))) + (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF8283 ':INT32) (N-REF8285 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF8283 :INT32) IDIST) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8285 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8284 ISEED) (X-REF8286 X)) + (%%DLARNV IDIST-REF8283 ISEED-REF8284 N-REF8285 X-REF8286)))) -(CFFI:DEFCFUN ("dlarra_" %%DLARRA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlarra_" %%DLARRA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -11118,21 +11153,21 @@ (COMMON-LISP:*)) ISPLIT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8324 ':INT32) (SPLTOL-REF8328 ':DOUBLE) - (TNRM-REF8329 ':DOUBLE) (NSPLIT-REF8330 ':INT32) - (INFO-REF8332 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8324 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8328 :DOUBLE) SPLTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF8329 :DOUBLE) TNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8330 :INT32) NSPLIT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8332 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8325 D) (E-REF8326 E) - (E2-REF8327 E2) - (ISPLIT-REF8331 ISPLIT)) - (%%DLARRA N-REF8324 D-REF8325 E-REF8326 E2-REF8327 SPLTOL-REF8328 - TNRM-REF8329 NSPLIT-REF8330 ISPLIT-REF8331 INFO-REF8332)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8287 ':INT32) (SPLTOL-REF8291 ':DOUBLE) + (TNRM-REF8292 ':DOUBLE) (NSPLIT-REF8293 ':INT32) + (INFO-REF8295 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8287 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8291 :DOUBLE) SPLTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF8292 :DOUBLE) TNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8293 :INT32) NSPLIT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8295 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8288 D) (E-REF8289 E) + (E2-REF8290 E2) + (ISPLIT-REF8294 ISPLIT)) + (%%DLARRA N-REF8287 D-REF8288 E-REF8289 E2-REF8290 SPLTOL-REF8291 + TNRM-REF8292 NSPLIT-REF8293 ISPLIT-REF8294 INFO-REF8295)))) -(CFFI:DEFCFUN ("dlarrb_" %%DLARRB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlarrb_" %%DLARRB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -11186,33 +11221,33 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TWIST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8333 ':INT32) (IFIRST-REF8336 ':INT32) - (ILAST-REF8337 ':INT32) (RTOL1-REF8338 ':DOUBLE) - (RTOL2-REF8339 ':DOUBLE) (OFFSET-REF8340 ':INT32) - (PIVMIN-REF8346 ':DOUBLE) - (SPDIAM-REF8347 ':DOUBLE) (TWIST-REF8348 ':INT32) - (INFO-REF8349 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8333 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8336 :INT32) IFIRST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8337 :INT32) ILAST) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8338 :DOUBLE) RTOL1) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8339 :DOUBLE) RTOL2) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8340 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8346 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8347 :DOUBLE) SPDIAM) - (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF8348 :INT32) TWIST) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8349 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8334 D) (LLD-REF8335 LLD) - (W-REF8341 W) (WGAP-REF8342 WGAP) - (WERR-REF8343 WERR) - (WORK-REF8344 WORK) - (IWORK-REF8345 IWORK)) - (%%DLARRB N-REF8333 D-REF8334 LLD-REF8335 IFIRST-REF8336 ILAST-REF8337 - RTOL1-REF8338 RTOL2-REF8339 OFFSET-REF8340 W-REF8341 - WGAP-REF8342 WERR-REF8343 WORK-REF8344 IWORK-REF8345 - PIVMIN-REF8346 SPDIAM-REF8347 TWIST-REF8348 INFO-REF8349)))) - -(CFFI:DEFCFUN ("dlarrc_" %%DLARRC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8296 ':INT32) (IFIRST-REF8299 ':INT32) + (ILAST-REF8300 ':INT32) (RTOL1-REF8301 ':DOUBLE) + (RTOL2-REF8302 ':DOUBLE) (OFFSET-REF8303 ':INT32) + (PIVMIN-REF8309 ':DOUBLE) + (SPDIAM-REF8310 ':DOUBLE) (TWIST-REF8311 ':INT32) + (INFO-REF8312 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8296 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8299 :INT32) IFIRST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8300 :INT32) ILAST) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8301 :DOUBLE) RTOL1) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8302 :DOUBLE) RTOL2) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8303 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8309 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8310 :DOUBLE) SPDIAM) + (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF8311 :INT32) TWIST) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8312 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8297 D) (LLD-REF8298 LLD) + (W-REF8304 W) (WGAP-REF8305 WGAP) + (WERR-REF8306 WERR) + (WORK-REF8307 WORK) + (IWORK-REF8308 IWORK)) + (%%DLARRB N-REF8296 D-REF8297 LLD-REF8298 IFIRST-REF8299 ILAST-REF8300 + RTOL1-REF8301 RTOL2-REF8302 OFFSET-REF8303 W-REF8304 WGAP-REF8305 + WERR-REF8306 WORK-REF8307 IWORK-REF8308 PIVMIN-REF8309 SPDIAM-REF8310 + TWIST-REF8311 INFO-REF8312)))) + +(CFFI:DEFCFUN ("dlarrc_" %%DLARRC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBT :STRING) (N :POINTER) @@ -11241,24 +11276,23 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCNT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RCNT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8351 ':INT32) (VL-REF8352 ':DOUBLE) - (VU-REF8353 ':DOUBLE) (PIVMIN-REF8356 ':DOUBLE) - (EIGCNT-REF8357 ':INT32) (LCNT-REF8358 ':INT32) - (RCNT-REF8359 ':INT32) (INFO-REF8360 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8351 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8352 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8353 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8356 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF8357 :INT32) EIGCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF8358 :INT32) LCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF8359 :INT32) RCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8360 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8354 D) (E-REF8355 E)) - (%%DLARRC JOBT N-REF8351 VL-REF8352 VU-REF8353 D-REF8354 E-REF8355 - PIVMIN-REF8356 EIGCNT-REF8357 LCNT-REF8358 RCNT-REF8359 - INFO-REF8360)))) - -(CFFI:DEFCFUN ("dlarrd_" %%DLARRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8314 ':INT32) (VL-REF8315 ':DOUBLE) + (VU-REF8316 ':DOUBLE) (PIVMIN-REF8319 ':DOUBLE) + (EIGCNT-REF8320 ':INT32) (LCNT-REF8321 ':INT32) + (RCNT-REF8322 ':INT32) (INFO-REF8323 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8314 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8315 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8316 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8319 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF8320 :INT32) EIGCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF8321 :INT32) LCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF8322 :INT32) RCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8323 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8317 D) (E-REF8318 E)) + (%%DLARRC JOBT N-REF8314 VL-REF8315 VU-REF8316 D-REF8317 E-REF8318 + PIVMIN-REF8319 EIGCNT-REF8320 LCNT-REF8321 RCNT-REF8322 INFO-REF8323)))) + +(CFFI:DEFCFUN ("dlarrd_" %%DLARRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RANGE :STRING) (ORDER :STRING) @@ -11337,41 +11371,40 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8363 ':INT32) (VL-REF8364 ':DOUBLE) - (VU-REF8365 ':DOUBLE) (IL-REF8366 ':INT32) - (IU-REF8367 ':INT32) (RELTOL-REF8369 ':DOUBLE) - (PIVMIN-REF8373 ':DOUBLE) - (NSPLIT-REF8374 ':INT32) (M-REF8376 ':INT32) - (WL-REF8379 ':DOUBLE) (WU-REF8380 ':DOUBLE) - (INFO-REF8385 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8363 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8364 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8365 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8366 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8367 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8369 :DOUBLE) RELTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8373 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8374 :INT32) NSPLIT) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8376 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF8379 :DOUBLE) WL) - (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF8380 :DOUBLE) WU) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8385 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF8368 GERS) (D-REF8370 D) - (E-REF8371 E) (E2-REF8372 E2) - (ISPLIT-REF8375 ISPLIT) - (W-REF8377 W) (WERR-REF8378 WERR) - (IBLOCK-REF8381 IBLOCK) - (INDEXW-REF8382 INDEXW) - (WORK-REF8383 WORK) - (IWORK-REF8384 IWORK)) - (%%DLARRD RANGE ORDER N-REF8363 VL-REF8364 VU-REF8365 IL-REF8366 - IU-REF8367 GERS-REF8368 RELTOL-REF8369 D-REF8370 E-REF8371 - E2-REF8372 PIVMIN-REF8373 NSPLIT-REF8374 ISPLIT-REF8375 - M-REF8376 W-REF8377 WERR-REF8378 WL-REF8379 WU-REF8380 - IBLOCK-REF8381 INDEXW-REF8382 WORK-REF8383 IWORK-REF8384 - INFO-REF8385)))) - -(CFFI:DEFCFUN ("dlarre_" %%DLARRE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8326 ':INT32) (VL-REF8327 ':DOUBLE) + (VU-REF8328 ':DOUBLE) (IL-REF8329 ':INT32) + (IU-REF8330 ':INT32) (RELTOL-REF8332 ':DOUBLE) + (PIVMIN-REF8336 ':DOUBLE) + (NSPLIT-REF8337 ':INT32) (M-REF8339 ':INT32) + (WL-REF8342 ':DOUBLE) (WU-REF8343 ':DOUBLE) + (INFO-REF8348 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8326 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8327 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8328 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8329 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8330 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8332 :DOUBLE) RELTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8336 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8337 :INT32) NSPLIT) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8339 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF8342 :DOUBLE) WL) + (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF8343 :DOUBLE) WU) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8348 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF8331 GERS) (D-REF8333 D) + (E-REF8334 E) (E2-REF8335 E2) + (ISPLIT-REF8338 ISPLIT) + (W-REF8340 W) (WERR-REF8341 WERR) + (IBLOCK-REF8344 IBLOCK) + (INDEXW-REF8345 INDEXW) + (WORK-REF8346 WORK) + (IWORK-REF8347 IWORK)) + (%%DLARRD RANGE ORDER N-REF8326 VL-REF8327 VU-REF8328 IL-REF8329 + IU-REF8330 GERS-REF8331 RELTOL-REF8332 D-REF8333 E-REF8334 E2-REF8335 + PIVMIN-REF8336 NSPLIT-REF8337 ISPLIT-REF8338 M-REF8339 W-REF8340 + WERR-REF8341 WL-REF8342 WU-REF8343 IBLOCK-REF8344 INDEXW-REF8345 + WORK-REF8346 IWORK-REF8347 INFO-REF8348)))) + +(CFFI:DEFCFUN ("dlarre_" %%DLARRE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RANGE :STRING) (N :POINTER) @@ -11452,43 +11485,42 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8387 ':INT32) (VL-REF8388 ':DOUBLE) - (VU-REF8389 ':DOUBLE) (IL-REF8390 ':INT32) - (IU-REF8391 ':INT32) (RTOL1-REF8395 ':DOUBLE) - (RTOL2-REF8396 ':DOUBLE) - (SPLTOL-REF8397 ':DOUBLE) - (NSPLIT-REF8398 ':INT32) (M-REF8400 ':INT32) - (PIVMIN-REF8407 ':DOUBLE) (INFO-REF8410 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8387 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8388 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8389 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8390 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8391 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8395 :DOUBLE) RTOL1) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8396 :DOUBLE) RTOL2) - (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8397 :DOUBLE) SPLTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8398 :INT32) NSPLIT) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8400 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8407 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8410 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8392 D) (E-REF8393 E) - (E2-REF8394 E2) - (ISPLIT-REF8399 ISPLIT) - (W-REF8401 W) (WERR-REF8402 WERR) - (WGAP-REF8403 WGAP) - (IBLOCK-REF8404 IBLOCK) - (INDEXW-REF8405 INDEXW) - (GERS-REF8406 GERS) - (WORK-REF8408 WORK) - (IWORK-REF8409 IWORK)) - (%%DLARRE RANGE N-REF8387 VL-REF8388 VU-REF8389 IL-REF8390 IU-REF8391 - D-REF8392 E-REF8393 E2-REF8394 RTOL1-REF8395 RTOL2-REF8396 - SPLTOL-REF8397 NSPLIT-REF8398 ISPLIT-REF8399 M-REF8400 - W-REF8401 WERR-REF8402 WGAP-REF8403 IBLOCK-REF8404 - INDEXW-REF8405 GERS-REF8406 PIVMIN-REF8407 WORK-REF8408 - IWORK-REF8409 INFO-REF8410)))) - -(CFFI:DEFCFUN ("dlarrf_" %%DLARRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8350 ':INT32) (VL-REF8351 ':DOUBLE) + (VU-REF8352 ':DOUBLE) (IL-REF8353 ':INT32) + (IU-REF8354 ':INT32) (RTOL1-REF8358 ':DOUBLE) + (RTOL2-REF8359 ':DOUBLE) + (SPLTOL-REF8360 ':DOUBLE) + (NSPLIT-REF8361 ':INT32) (M-REF8363 ':INT32) + (PIVMIN-REF8370 ':DOUBLE) (INFO-REF8373 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8350 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8351 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8352 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8353 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8354 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8358 :DOUBLE) RTOL1) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8359 :DOUBLE) RTOL2) + (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8360 :DOUBLE) SPLTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8361 :INT32) NSPLIT) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8363 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8370 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8373 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8355 D) (E-REF8356 E) + (E2-REF8357 E2) + (ISPLIT-REF8362 ISPLIT) + (W-REF8364 W) (WERR-REF8365 WERR) + (WGAP-REF8366 WGAP) + (IBLOCK-REF8367 IBLOCK) + (INDEXW-REF8368 INDEXW) + (GERS-REF8369 GERS) + (WORK-REF8371 WORK) + (IWORK-REF8372 IWORK)) + (%%DLARRE RANGE N-REF8350 VL-REF8351 VU-REF8352 IL-REF8353 IU-REF8354 + D-REF8355 E-REF8356 E2-REF8357 RTOL1-REF8358 RTOL2-REF8359 + SPLTOL-REF8360 NSPLIT-REF8361 ISPLIT-REF8362 M-REF8363 W-REF8364 + WERR-REF8365 WGAP-REF8366 IBLOCK-REF8367 INDEXW-REF8368 GERS-REF8369 + PIVMIN-REF8370 WORK-REF8371 IWORK-REF8372 INFO-REF8373)))) + +(CFFI:DEFCFUN ("dlarrf_" %%DLARRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -11545,35 +11577,34 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8411 ':INT32) (CLSTRT-REF8415 ':INT32) - (CLEND-REF8416 ':INT32) (SPDIAM-REF8420 ':DOUBLE) - (CLGAPL-REF8421 ':DOUBLE) - (CLGAPR-REF8422 ':DOUBLE) - (PIVMIN-REF8423 ':DOUBLE) - (SIGMA-REF8424 ':DOUBLE) (INFO-REF8428 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8411 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF8415 :INT32) CLSTRT) - (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF8416 :INT32) CLEND) - (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8420 :DOUBLE) SPDIAM) - (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF8421 :DOUBLE) CLGAPL) - (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF8422 :DOUBLE) CLGAPR) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8423 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8424 :DOUBLE) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8428 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8412 D) (L-REF8413 L) - (LD-REF8414 LD) (W-REF8417 W) - (WGAP-REF8418 WGAP) - (WERR-REF8419 WERR) - (DPLUS-REF8425 DPLUS) - (LPLUS-REF8426 LPLUS) - (WORK-REF8427 WORK)) - (%%DLARRF N-REF8411 D-REF8412 L-REF8413 LD-REF8414 CLSTRT-REF8415 - CLEND-REF8416 W-REF8417 WGAP-REF8418 WERR-REF8419 - SPDIAM-REF8420 CLGAPL-REF8421 CLGAPR-REF8422 PIVMIN-REF8423 - SIGMA-REF8424 DPLUS-REF8425 LPLUS-REF8426 WORK-REF8427 - INFO-REF8428)))) - -(CFFI:DEFCFUN ("dlarrj_" %%DLARRJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8374 ':INT32) (CLSTRT-REF8378 ':INT32) + (CLEND-REF8379 ':INT32) (SPDIAM-REF8383 ':DOUBLE) + (CLGAPL-REF8384 ':DOUBLE) + (CLGAPR-REF8385 ':DOUBLE) + (PIVMIN-REF8386 ':DOUBLE) + (SIGMA-REF8387 ':DOUBLE) (INFO-REF8391 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8374 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF8378 :INT32) CLSTRT) + (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF8379 :INT32) CLEND) + (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8383 :DOUBLE) SPDIAM) + (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF8384 :DOUBLE) CLGAPL) + (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF8385 :DOUBLE) CLGAPR) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8386 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8387 :DOUBLE) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8391 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8375 D) (L-REF8376 L) + (LD-REF8377 LD) (W-REF8380 W) + (WGAP-REF8381 WGAP) + (WERR-REF8382 WERR) + (DPLUS-REF8388 DPLUS) + (LPLUS-REF8389 LPLUS) + (WORK-REF8390 WORK)) + (%%DLARRF N-REF8374 D-REF8375 L-REF8376 LD-REF8377 CLSTRT-REF8378 + CLEND-REF8379 W-REF8380 WGAP-REF8381 WERR-REF8382 SPDIAM-REF8383 + CLGAPL-REF8384 CLGAPR-REF8385 PIVMIN-REF8386 SIGMA-REF8387 DPLUS-REF8388 + LPLUS-REF8389 WORK-REF8390 INFO-REF8391)))) + +(CFFI:DEFCFUN ("dlarrj_" %%DLARRJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -11618,28 +11649,28 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8429 ':INT32) (IFIRST-REF8432 ':INT32) - (ILAST-REF8433 ':INT32) (RTOL-REF8434 ':DOUBLE) - (OFFSET-REF8435 ':INT32) - (PIVMIN-REF8440 ':DOUBLE) - (SPDIAM-REF8441 ':DOUBLE) (INFO-REF8442 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8429 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8432 :INT32) IFIRST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8433 :INT32) ILAST) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF8434 :DOUBLE) RTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8435 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8440 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8441 :DOUBLE) SPDIAM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8442 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8430 D) (E2-REF8431 E2) - (W-REF8436 W) (WERR-REF8437 WERR) - (WORK-REF8438 WORK) - (IWORK-REF8439 IWORK)) - (%%DLARRJ N-REF8429 D-REF8430 E2-REF8431 IFIRST-REF8432 ILAST-REF8433 - RTOL-REF8434 OFFSET-REF8435 W-REF8436 WERR-REF8437 WORK-REF8438 - IWORK-REF8439 PIVMIN-REF8440 SPDIAM-REF8441 INFO-REF8442)))) - -(CFFI:DEFCFUN ("dlarrk_" %%DLARRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8392 ':INT32) (IFIRST-REF8395 ':INT32) + (ILAST-REF8396 ':INT32) (RTOL-REF8397 ':DOUBLE) + (OFFSET-REF8398 ':INT32) + (PIVMIN-REF8403 ':DOUBLE) + (SPDIAM-REF8404 ':DOUBLE) (INFO-REF8405 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8392 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8395 :INT32) IFIRST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8396 :INT32) ILAST) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF8397 :DOUBLE) RTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8398 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8403 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8404 :DOUBLE) SPDIAM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8405 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8393 D) (E2-REF8394 E2) + (W-REF8399 W) (WERR-REF8400 WERR) + (WORK-REF8401 WORK) + (IWORK-REF8402 IWORK)) + (%%DLARRJ N-REF8392 D-REF8393 E2-REF8394 IFIRST-REF8395 ILAST-REF8396 + RTOL-REF8397 OFFSET-REF8398 W-REF8399 WERR-REF8400 WORK-REF8401 + IWORK-REF8402 PIVMIN-REF8403 SPDIAM-REF8404 INFO-REF8405)))) + +(CFFI:DEFCFUN ("dlarrk_" %%DLARRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (IW :POINTER) @@ -11668,26 +11699,25 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT W) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WERR) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8443 ':INT32) (IW-REF8444 ':INT32) - (GL-REF8445 ':DOUBLE) (GU-REF8446 ':DOUBLE) - (PIVMIN-REF8449 ':DOUBLE) - (RELTOL-REF8450 ':DOUBLE) (W-REF8451 ':DOUBLE) - (WERR-REF8452 ':DOUBLE) (INFO-REF8453 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8443 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF8444 :INT32) IW) - (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF8445 :DOUBLE) GL) - (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF8446 :DOUBLE) GU) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8449 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8450 :DOUBLE) RELTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8451 :DOUBLE) W) - (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF8452 :DOUBLE) WERR) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8453 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8447 D) (E2-REF8448 E2)) - (%%DLARRK N-REF8443 IW-REF8444 GL-REF8445 GU-REF8446 D-REF8447 E2-REF8448 - PIVMIN-REF8449 RELTOL-REF8450 W-REF8451 WERR-REF8452 - INFO-REF8453)))) - -(CFFI:DEFCFUN ("dlarrr_" %%DLARRR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8406 ':INT32) (IW-REF8407 ':INT32) + (GL-REF8408 ':DOUBLE) (GU-REF8409 ':DOUBLE) + (PIVMIN-REF8412 ':DOUBLE) + (RELTOL-REF8413 ':DOUBLE) (W-REF8414 ':DOUBLE) + (WERR-REF8415 ':DOUBLE) (INFO-REF8416 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8406 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF8407 :INT32) IW) + (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF8408 :DOUBLE) GL) + (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF8409 :DOUBLE) GU) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8412 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8413 :DOUBLE) RELTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8414 :DOUBLE) W) + (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF8415 :DOUBLE) WERR) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8416 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8410 D) (E2-REF8411 E2)) + (%%DLARRK N-REF8406 IW-REF8407 GL-REF8408 GU-REF8409 D-REF8410 E2-REF8411 + PIVMIN-REF8412 RELTOL-REF8413 W-REF8414 WERR-REF8415 INFO-REF8416)))) + +(CFFI:DEFCFUN ("dlarrr_" %%DLARRR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -11702,13 +11732,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8454 ':INT32) (INFO-REF8457 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8454 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8457 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8455 D) (E-REF8456 E)) - (%%DLARRR N-REF8454 D-REF8455 E-REF8456 INFO-REF8457)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8417 ':INT32) (INFO-REF8420 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8417 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8420 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8418 D) (E-REF8419 E)) + (%%DLARRR N-REF8417 D-REF8418 E-REF8419 INFO-REF8420)))) -(CFFI:DEFCFUN ("dlarrv_" %%DLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlarrv_" %%DLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (VL :POINTER) @@ -11792,43 +11822,42 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8458 ':INT32) (VL-REF8459 ':DOUBLE) - (VU-REF8460 ':DOUBLE) (PIVMIN-REF8463 ':DOUBLE) - (M-REF8465 ':INT32) (DOL-REF8466 ':INT32) - (DOU-REF8467 ':INT32) (MINRGP-REF8468 ':DOUBLE) - (RTOL1-REF8469 ':DOUBLE) (RTOL2-REF8470 ':DOUBLE) - (LDZ-REF8478 ':INT32) (INFO-REF8482 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8458 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8459 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8460 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8463 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8465 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF8466 :INT32) DOL) - (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF8467 :INT32) DOU) - (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF8468 :DOUBLE) MINRGP) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8469 :DOUBLE) RTOL1) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8470 :DOUBLE) RTOL2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8478 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8482 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8461 D) (L-REF8462 L) - (ISPLIT-REF8464 ISPLIT) - (W-REF8471 W) (WERR-REF8472 WERR) - (WGAP-REF8473 WGAP) - (IBLOCK-REF8474 IBLOCK) - (INDEXW-REF8475 INDEXW) - (GERS-REF8476 GERS) (Z-REF8477 Z) - (ISUPPZ-REF8479 ISUPPZ) - (WORK-REF8480 WORK) - (IWORK-REF8481 IWORK)) - (%%DLARRV N-REF8458 VL-REF8459 VU-REF8460 D-REF8461 L-REF8462 - PIVMIN-REF8463 ISPLIT-REF8464 M-REF8465 DOL-REF8466 DOU-REF8467 - MINRGP-REF8468 RTOL1-REF8469 RTOL2-REF8470 W-REF8471 - WERR-REF8472 WGAP-REF8473 IBLOCK-REF8474 INDEXW-REF8475 - GERS-REF8476 Z-REF8477 LDZ-REF8478 ISUPPZ-REF8479 WORK-REF8480 - IWORK-REF8481 INFO-REF8482)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8421 ':INT32) (VL-REF8422 ':DOUBLE) + (VU-REF8423 ':DOUBLE) (PIVMIN-REF8426 ':DOUBLE) + (M-REF8428 ':INT32) (DOL-REF8429 ':INT32) + (DOU-REF8430 ':INT32) (MINRGP-REF8431 ':DOUBLE) + (RTOL1-REF8432 ':DOUBLE) (RTOL2-REF8433 ':DOUBLE) + (LDZ-REF8441 ':INT32) (INFO-REF8445 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8421 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8422 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8423 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8426 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8428 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF8429 :INT32) DOL) + (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF8430 :INT32) DOU) + (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF8431 :DOUBLE) MINRGP) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8432 :DOUBLE) RTOL1) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8433 :DOUBLE) RTOL2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8441 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8445 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8424 D) (L-REF8425 L) + (ISPLIT-REF8427 ISPLIT) + (W-REF8434 W) (WERR-REF8435 WERR) + (WGAP-REF8436 WGAP) + (IBLOCK-REF8437 IBLOCK) + (INDEXW-REF8438 INDEXW) + (GERS-REF8439 GERS) (Z-REF8440 Z) + (ISUPPZ-REF8442 ISUPPZ) + (WORK-REF8443 WORK) + (IWORK-REF8444 IWORK)) + (%%DLARRV N-REF8421 VL-REF8422 VU-REF8423 D-REF8424 L-REF8425 + PIVMIN-REF8426 ISPLIT-REF8427 M-REF8428 DOL-REF8429 DOU-REF8430 + MINRGP-REF8431 RTOL1-REF8432 RTOL2-REF8433 W-REF8434 WERR-REF8435 + WGAP-REF8436 IBLOCK-REF8437 INDEXW-REF8438 GERS-REF8439 Z-REF8440 + LDZ-REF8441 ISUPPZ-REF8442 WORK-REF8443 IWORK-REF8444 INFO-REF8445)))) (CFFI:DEFCFUN ("dlarscl2_" %%DLARSCL2 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11845,15 +11874,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8483 ':INT32) (N-REF8484 ':INT32) - (LDX-REF8487 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8483 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8484 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8487 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8485 D) (X-REF8486 X)) - (%%DLARSCL2 M-REF8483 N-REF8484 D-REF8485 X-REF8486 LDX-REF8487)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8446 ':INT32) (N-REF8447 ':INT32) + (LDX-REF8450 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8446 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8447 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8450 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8448 D) (X-REF8449 X)) + (%%DLARSCL2 M-REF8446 N-REF8447 D-REF8448 X-REF8449 LDX-REF8450)))) -(CFFI:DEFCFUN ("dlartg_" %%DLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlartg_" %%DLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -11868,18 +11897,19 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT R)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8488 ':DOUBLE) (G-REF8489 ':DOUBLE) - (CS-REF8490 ':DOUBLE) (SN-REF8491 ':DOUBLE) - (R-REF8492 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8488 :DOUBLE) F) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8489 :DOUBLE) G) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8490 :DOUBLE) CS) - (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8491 :DOUBLE) SN) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8492 :DOUBLE) R) + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8451 ':DOUBLE) (G-REF8452 ':DOUBLE) + (CS-REF8453 ':DOUBLE) (SN-REF8454 ':DOUBLE) + (R-REF8455 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8451 :DOUBLE) F) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8452 :DOUBLE) G) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8453 :DOUBLE) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8454 :DOUBLE) SN) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8455 :DOUBLE) R) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLARTG F-REF8488 G-REF8489 CS-REF8490 SN-REF8491 R-REF8492)))) + (%%DLARTG F-REF8451 G-REF8452 CS-REF8453 SN-REF8454 R-REF8455)))) -(CFFI:DEFCFUN ("dlartgp_" %%DLARTGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlartgp_" %%DLARTGP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -11894,18 +11924,19 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT R)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8493 ':DOUBLE) (G-REF8494 ':DOUBLE) - (CS-REF8495 ':DOUBLE) (SN-REF8496 ':DOUBLE) - (R-REF8497 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8493 :DOUBLE) F) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8494 :DOUBLE) G) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8495 :DOUBLE) CS) - (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8496 :DOUBLE) SN) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8497 :DOUBLE) R) + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8456 ':DOUBLE) (G-REF8457 ':DOUBLE) + (CS-REF8458 ':DOUBLE) (SN-REF8459 ':DOUBLE) + (R-REF8460 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8456 :DOUBLE) F) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8457 :DOUBLE) G) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8458 :DOUBLE) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8459 :DOUBLE) SN) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8460 :DOUBLE) R) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLARTGP F-REF8493 G-REF8494 CS-REF8495 SN-REF8496 R-REF8497)))) + (%%DLARTGP F-REF8456 G-REF8457 CS-REF8458 SN-REF8459 R-REF8460)))) -(CFFI:DEFCFUN ("dlartgs_" %%DLARTGS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlartgs_" %%DLARTGS :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (X :POINTER) (Y :POINTER) @@ -11920,18 +11951,18 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN)) - (CFFI:WITH-FOREIGN-OBJECTS ((X-REF8498 ':DOUBLE) (Y-REF8499 ':DOUBLE) - (SIGMA-REF8500 ':DOUBLE) (CS-REF8501 ':DOUBLE) - (SN-REF8502 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF X-REF8498 :DOUBLE) X) - (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF8499 :DOUBLE) Y) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8500 :DOUBLE) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8501 :DOUBLE) CS) - (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8502 :DOUBLE) SN) + (CFFI:WITH-FOREIGN-OBJECTS ((X-REF8461 ':DOUBLE) (Y-REF8462 ':DOUBLE) + (SIGMA-REF8463 ':DOUBLE) (CS-REF8464 ':DOUBLE) + (SN-REF8465 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF X-REF8461 :DOUBLE) X) + (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF8462 :DOUBLE) Y) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8463 :DOUBLE) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8464 :DOUBLE) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8465 :DOUBLE) SN) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLARTGS X-REF8498 Y-REF8499 SIGMA-REF8500 CS-REF8501 SN-REF8502)))) + (%%DLARTGS X-REF8461 Y-REF8462 SIGMA-REF8463 CS-REF8464 SN-REF8465)))) -(CFFI:DEFCFUN ("dlartv_" %%DLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlartv_" %%DLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -11956,18 +11987,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8503 ':INT32) (INCX-REF8505 ':INT32) - (INCY-REF8507 ':INT32) (INCC-REF8510 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8503 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8505 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8507 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8510 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8504 X) (Y-REF8506 Y) - (C-REF8508 C) (S-REF8509 S)) - (%%DLARTV N-REF8503 X-REF8504 INCX-REF8505 Y-REF8506 INCY-REF8507 - C-REF8508 S-REF8509 INCC-REF8510)))) - -(CFFI:DEFCFUN ("dlaruv_" %%DLARUV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8466 ':INT32) (INCX-REF8468 ':INT32) + (INCY-REF8470 ':INT32) (INCC-REF8473 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8466 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8468 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8470 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8473 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8467 X) (Y-REF8469 Y) + (C-REF8471 C) (S-REF8472 S)) + (%%DLARTV N-REF8466 X-REF8467 INCX-REF8468 Y-REF8469 INCY-REF8470 + C-REF8471 S-REF8472 INCC-REF8473)))) + +(CFFI:DEFCFUN ("dlaruv_" %%DLARUV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ISEED :POINTER) (N :POINTER) @@ -11982,12 +12013,12 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8512 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8512 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8511 ISEED) (X-REF8513 X)) - (%%DLARUV ISEED-REF8511 N-REF8512 X-REF8513)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8475 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8475 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8474 ISEED) (X-REF8476 X)) + (%%DLARUV ISEED-REF8474 N-REF8475 X-REF8476)))) -(CFFI:DEFCFUN ("dlarz_" %%DLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlarz_" %%DLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -12016,21 +12047,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8515 ':INT32) (N-REF8516 ':INT32) - (L-REF8517 ':INT32) (INCV-REF8519 ':INT32) - (TAU-REF8520 ':DOUBLE) (LDC-REF8522 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8515 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8516 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8517 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8519 :INT32) INCV) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8520 :DOUBLE) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8522 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8518 V) (C-REF8521 C) - (WORK-REF8523 WORK)) - (%%DLARZ SIDE M-REF8515 N-REF8516 L-REF8517 V-REF8518 INCV-REF8519 - TAU-REF8520 C-REF8521 LDC-REF8522 WORK-REF8523)))) - -(CFFI:DEFCFUN ("dlarzb_" %%DLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8478 ':INT32) (N-REF8479 ':INT32) + (L-REF8480 ':INT32) (INCV-REF8482 ':INT32) + (TAU-REF8483 ':DOUBLE) (LDC-REF8485 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8478 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8479 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8480 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8482 :INT32) INCV) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8483 :DOUBLE) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8485 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8481 V) (C-REF8484 C) + (WORK-REF8486 WORK)) + (%%DLARZ SIDE M-REF8478 N-REF8479 L-REF8480 V-REF8481 INCV-REF8482 + TAU-REF8483 C-REF8484 LDC-REF8485 WORK-REF8486)))) + +(CFFI:DEFCFUN ("dlarzb_" %%DLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12074,25 +12105,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8528 ':INT32) (N-REF8529 ':INT32) - (K-REF8530 ':INT32) (L-REF8531 ':INT32) - (LDV-REF8533 ':INT32) (LDT-REF8535 ':INT32) - (LDC-REF8537 ':INT32) (LDWORK-REF8539 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8528 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8529 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8530 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8531 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8533 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8535 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8537 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8539 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8532 V) (T-REF8534 T) - (C-REF8536 C) (WORK-REF8538 WORK)) - (%%DLARZB SIDE TRANS DIRECT STOREV M-REF8528 N-REF8529 K-REF8530 - L-REF8531 V-REF8532 LDV-REF8533 T-REF8534 LDT-REF8535 C-REF8536 - LDC-REF8537 WORK-REF8538 LDWORK-REF8539)))) - -(CFFI:DEFCFUN ("dlarzt_" %%DLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8491 ':INT32) (N-REF8492 ':INT32) + (K-REF8493 ':INT32) (L-REF8494 ':INT32) + (LDV-REF8496 ':INT32) (LDT-REF8498 ':INT32) + (LDC-REF8500 ':INT32) (LDWORK-REF8502 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8491 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8492 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8493 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8494 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8496 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8498 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8500 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8502 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8495 V) (T-REF8497 T) + (C-REF8499 C) (WORK-REF8501 WORK)) + (%%DLARZB SIDE TRANS DIRECT STOREV M-REF8491 N-REF8492 K-REF8493 + L-REF8494 V-REF8495 LDV-REF8496 T-REF8497 LDT-REF8498 C-REF8499 + LDC-REF8500 WORK-REF8501 LDWORK-REF8502)))) + +(CFFI:DEFCFUN ("dlarzt_" %%DLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (DIRECT :STRING) (STOREV :STRING) @@ -12119,18 +12150,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8542 ':INT32) (K-REF8543 ':INT32) - (LDV-REF8545 ':INT32) (LDT-REF8548 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8542 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8543 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8545 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8548 :INT32) LDT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8544 V) (TAU-REF8546 TAU) - (T-REF8547 T)) - (%%DLARZT DIRECT STOREV N-REF8542 K-REF8543 V-REF8544 LDV-REF8545 - TAU-REF8546 T-REF8547 LDT-REF8548)))) - -(CFFI:DEFCFUN ("dlas2_" %%DLAS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8505 ':INT32) (K-REF8506 ':INT32) + (LDV-REF8508 ':INT32) (LDT-REF8511 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8505 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8506 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8508 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8511 :INT32) LDT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8507 V) (TAU-REF8509 TAU) + (T-REF8510 T)) + (%%DLARZT DIRECT STOREV N-REF8505 K-REF8506 V-REF8507 LDV-REF8508 + TAU-REF8509 T-REF8510 LDT-REF8511)))) + +(CFFI:DEFCFUN ("dlas2_" %%DLAS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -12145,18 +12176,18 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT H) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMAX)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8549 ':DOUBLE) (G-REF8550 ':DOUBLE) - (H-REF8551 ':DOUBLE) (SSMIN-REF8552 ':DOUBLE) - (SSMAX-REF8553 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8549 :DOUBLE) F) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8550 :DOUBLE) G) - (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8551 :DOUBLE) H) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8552 :DOUBLE) SSMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8553 :DOUBLE) SSMAX) + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8512 ':DOUBLE) (G-REF8513 ':DOUBLE) + (H-REF8514 ':DOUBLE) (SSMIN-REF8515 ':DOUBLE) + (SSMAX-REF8516 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8512 :DOUBLE) F) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8513 :DOUBLE) G) + (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8514 :DOUBLE) H) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8515 :DOUBLE) SSMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8516 :DOUBLE) SSMAX) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLAS2 F-REF8549 G-REF8550 H-REF8551 SSMIN-REF8552 SSMAX-REF8553)))) + (%%DLAS2 F-REF8512 G-REF8513 H-REF8514 SSMIN-REF8515 SSMAX-REF8516)))) -(CFFI:DEFCFUN ("dlascl_" %%DLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlascl_" %%DLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TYPE :STRING) (KL :POINTER) @@ -12182,23 +12213,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF8555 ':INT32) (KU-REF8556 ':INT32) - (CFROM-REF8557 ':DOUBLE) (CTO-REF8558 ':DOUBLE) - (M-REF8559 ':INT32) (N-REF8560 ':INT32) - (LDA-REF8562 ':INT32) (INFO-REF8563 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8555 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8556 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF8557 :DOUBLE) CFROM) - (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF8558 :DOUBLE) CTO) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8559 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8560 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8562 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8563 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8561 A)) - (%%DLASCL TYPE KL-REF8555 KU-REF8556 CFROM-REF8557 CTO-REF8558 M-REF8559 - N-REF8560 A-REF8561 LDA-REF8562 INFO-REF8563)))) - -(CFFI:DEFCFUN ("dlascl2_" %%DLASCL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF8518 ':INT32) (KU-REF8519 ':INT32) + (CFROM-REF8520 ':DOUBLE) (CTO-REF8521 ':DOUBLE) + (M-REF8522 ':INT32) (N-REF8523 ':INT32) + (LDA-REF8525 ':INT32) (INFO-REF8526 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8518 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8519 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF8520 :DOUBLE) CFROM) + (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF8521 :DOUBLE) CTO) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8522 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8523 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8525 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8526 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8524 A)) + (%%DLASCL TYPE KL-REF8518 KU-REF8519 CFROM-REF8520 CTO-REF8521 M-REF8522 + N-REF8523 A-REF8524 LDA-REF8525 INFO-REF8526)))) + +(CFFI:DEFCFUN ("dlascl2_" %%DLASCL2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12215,15 +12247,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8564 ':INT32) (N-REF8565 ':INT32) - (LDX-REF8568 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8564 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8565 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8568 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8566 D) (X-REF8567 X)) - (%%DLASCL2 M-REF8564 N-REF8565 D-REF8566 X-REF8567 LDX-REF8568)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8527 ':INT32) (N-REF8528 ':INT32) + (LDX-REF8531 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8527 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8528 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8531 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8529 D) (X-REF8530 X)) + (%%DLASCL2 M-REF8527 N-REF8528 D-REF8529 X-REF8530 LDX-REF8531)))) -(CFFI:DEFCFUN ("dlasd0_" %%DLASD0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlasd0_" %%DLASD0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (SQRE :POINTER) @@ -12261,24 +12293,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8569 ':INT32) (SQRE-REF8570 ':INT32) - (LDU-REF8574 ':INT32) (LDVT-REF8576 ':INT32) - (SMLSIZ-REF8577 ':INT32) (INFO-REF8580 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8569 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8570 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8574 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8576 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8577 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8580 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8571 D) (E-REF8572 E) - (U-REF8573 U) (VT-REF8575 VT) - (IWORK-REF8578 IWORK) - (WORK-REF8579 WORK)) - (%%DLASD0 N-REF8569 SQRE-REF8570 D-REF8571 E-REF8572 U-REF8573 - LDU-REF8574 VT-REF8575 LDVT-REF8576 SMLSIZ-REF8577 - IWORK-REF8578 WORK-REF8579 INFO-REF8580)))) - -(CFFI:DEFCFUN ("dlasd1_" %%DLASD1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8532 ':INT32) (SQRE-REF8533 ':INT32) + (LDU-REF8537 ':INT32) (LDVT-REF8539 ':INT32) + (SMLSIZ-REF8540 ':INT32) (INFO-REF8543 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8532 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8533 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8537 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8539 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8540 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8543 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8534 D) (E-REF8535 E) + (U-REF8536 U) (VT-REF8538 VT) + (IWORK-REF8541 IWORK) + (WORK-REF8542 WORK)) + (%%DLASD0 N-REF8532 SQRE-REF8533 D-REF8534 E-REF8535 U-REF8536 + LDU-REF8537 VT-REF8538 LDVT-REF8539 SMLSIZ-REF8540 IWORK-REF8541 + WORK-REF8542 INFO-REF8543)))) + +(CFFI:DEFCFUN ("dlasd1_" %%DLASD1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NL :POINTER) (NR :POINTER) @@ -12323,27 +12355,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8581 ':INT32) (NR-REF8582 ':INT32) - (SQRE-REF8583 ':INT32) (ALPHA-REF8585 ':DOUBLE) - (BETA-REF8586 ':DOUBLE) (LDU-REF8588 ':INT32) - (LDVT-REF8590 ':INT32) (INFO-REF8594 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8581 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8582 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8583 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8585 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8586 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8588 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8590 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8594 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8584 D) (U-REF8587 U) - (VT-REF8589 VT) (IDXQ-REF8591 IDXQ) - (IWORK-REF8592 IWORK) - (WORK-REF8593 WORK)) - (%%DLASD1 NL-REF8581 NR-REF8582 SQRE-REF8583 D-REF8584 ALPHA-REF8585 - BETA-REF8586 U-REF8587 LDU-REF8588 VT-REF8589 LDVT-REF8590 - IDXQ-REF8591 IWORK-REF8592 WORK-REF8593 INFO-REF8594)))) - -(CFFI:DEFCFUN ("dlasd2_" %%DLASD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8544 ':INT32) (NR-REF8545 ':INT32) + (SQRE-REF8546 ':INT32) (ALPHA-REF8548 ':DOUBLE) + (BETA-REF8549 ':DOUBLE) (LDU-REF8551 ':INT32) + (LDVT-REF8553 ':INT32) (INFO-REF8557 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8544 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8545 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8546 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8548 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8549 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8551 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8553 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8557 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8547 D) (U-REF8550 U) + (VT-REF8552 VT) (IDXQ-REF8554 IDXQ) + (IWORK-REF8555 IWORK) + (WORK-REF8556 WORK)) + (%%DLASD1 NL-REF8544 NR-REF8545 SQRE-REF8546 D-REF8547 ALPHA-REF8548 + BETA-REF8549 U-REF8550 LDU-REF8551 VT-REF8552 LDVT-REF8553 IDXQ-REF8554 + IWORK-REF8555 WORK-REF8556 INFO-REF8557)))) + +(CFFI:DEFCFUN ("dlasd2_" %%DLASD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NL :POINTER) (NR :POINTER) @@ -12420,39 +12452,39 @@ (COMMON-LISP:*)) COLTYP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8595 ':INT32) (NR-REF8596 ':INT32) - (SQRE-REF8597 ':INT32) (K-REF8598 ':INT32) - (ALPHA-REF8601 ':DOUBLE) (BETA-REF8602 ':DOUBLE) - (LDU-REF8604 ':INT32) (LDVT-REF8606 ':INT32) - (LDU2-REF8609 ':INT32) (LDVT2-REF8611 ':INT32) - (INFO-REF8617 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8595 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8596 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8597 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8598 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8601 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8602 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8604 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8606 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8609 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8611 :INT32) LDVT2) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8617 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8599 D) (Z-REF8600 Z) - (U-REF8603 U) (VT-REF8605 VT) - (DSIGMA-REF8607 DSIGMA) - (U2-REF8608 U2) (VT2-REF8610 VT2) - (IDXP-REF8612 IDXP) - (IDX-REF8613 IDX) - (IDXC-REF8614 IDXC) - (IDXQ-REF8615 IDXQ) - (COLTYP-REF8616 COLTYP)) - (%%DLASD2 NL-REF8595 NR-REF8596 SQRE-REF8597 K-REF8598 D-REF8599 - Z-REF8600 ALPHA-REF8601 BETA-REF8602 U-REF8603 LDU-REF8604 - VT-REF8605 LDVT-REF8606 DSIGMA-REF8607 U2-REF8608 LDU2-REF8609 - VT2-REF8610 LDVT2-REF8611 IDXP-REF8612 IDX-REF8613 IDXC-REF8614 - IDXQ-REF8615 COLTYP-REF8616 INFO-REF8617)))) - -(CFFI:DEFCFUN ("dlasd3_" %%DLASD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8558 ':INT32) (NR-REF8559 ':INT32) + (SQRE-REF8560 ':INT32) (K-REF8561 ':INT32) + (ALPHA-REF8564 ':DOUBLE) (BETA-REF8565 ':DOUBLE) + (LDU-REF8567 ':INT32) (LDVT-REF8569 ':INT32) + (LDU2-REF8572 ':INT32) (LDVT2-REF8574 ':INT32) + (INFO-REF8580 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8558 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8559 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8560 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8561 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8564 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8565 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8567 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8569 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8572 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8574 :INT32) LDVT2) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8580 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8562 D) (Z-REF8563 Z) + (U-REF8566 U) (VT-REF8568 VT) + (DSIGMA-REF8570 DSIGMA) + (U2-REF8571 U2) (VT2-REF8573 VT2) + (IDXP-REF8575 IDXP) + (IDX-REF8576 IDX) + (IDXC-REF8577 IDXC) + (IDXQ-REF8578 IDXQ) + (COLTYP-REF8579 COLTYP)) + (%%DLASD2 NL-REF8558 NR-REF8559 SQRE-REF8560 K-REF8561 D-REF8562 + Z-REF8563 ALPHA-REF8564 BETA-REF8565 U-REF8566 LDU-REF8567 VT-REF8568 + LDVT-REF8569 DSIGMA-REF8570 U2-REF8571 LDU2-REF8572 VT2-REF8573 + LDVT2-REF8574 IDXP-REF8575 IDX-REF8576 IDXC-REF8577 IDXQ-REF8578 + COLTYP-REF8579 INFO-REF8580)))) + +(CFFI:DEFCFUN ("dlasd3_" %%DLASD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NL :POINTER) (NR :POINTER) @@ -12515,34 +12547,33 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8618 ':INT32) (NR-REF8619 ':INT32) - (SQRE-REF8620 ':INT32) (K-REF8621 ':INT32) - (LDQ-REF8624 ':INT32) (LDU-REF8627 ':INT32) - (LDU2-REF8629 ':INT32) (LDVT-REF8631 ':INT32) - (LDVT2-REF8633 ':INT32) (INFO-REF8637 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8618 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8619 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8620 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8621 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8624 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8627 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8629 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8631 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8633 :INT32) LDVT2) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8637 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8622 D) (Q-REF8623 Q) - (DSIGMA-REF8625 DSIGMA) - (U-REF8626 U) (U2-REF8628 U2) - (VT-REF8630 VT) (VT2-REF8632 VT2) - (IDXC-REF8634 IDXC) - (CTOT-REF8635 CTOT) (Z-REF8636 Z)) - (%%DLASD3 NL-REF8618 NR-REF8619 SQRE-REF8620 K-REF8621 D-REF8622 - Q-REF8623 LDQ-REF8624 DSIGMA-REF8625 U-REF8626 LDU-REF8627 - U2-REF8628 LDU2-REF8629 VT-REF8630 LDVT-REF8631 VT2-REF8632 - LDVT2-REF8633 IDXC-REF8634 CTOT-REF8635 Z-REF8636 - INFO-REF8637)))) - -(CFFI:DEFCFUN ("dlasd4_" %%DLASD4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8581 ':INT32) (NR-REF8582 ':INT32) + (SQRE-REF8583 ':INT32) (K-REF8584 ':INT32) + (LDQ-REF8587 ':INT32) (LDU-REF8590 ':INT32) + (LDU2-REF8592 ':INT32) (LDVT-REF8594 ':INT32) + (LDVT2-REF8596 ':INT32) (INFO-REF8600 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8581 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8582 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8583 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8584 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8587 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8590 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8592 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8594 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8596 :INT32) LDVT2) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8600 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8585 D) (Q-REF8586 Q) + (DSIGMA-REF8588 DSIGMA) + (U-REF8589 U) (U2-REF8591 U2) + (VT-REF8593 VT) (VT2-REF8595 VT2) + (IDXC-REF8597 IDXC) + (CTOT-REF8598 CTOT) (Z-REF8599 Z)) + (%%DLASD3 NL-REF8581 NR-REF8582 SQRE-REF8583 K-REF8584 D-REF8585 + Q-REF8586 LDQ-REF8587 DSIGMA-REF8588 U-REF8589 LDU-REF8590 U2-REF8591 + LDU2-REF8592 VT-REF8593 LDVT-REF8594 VT2-REF8595 LDVT2-REF8596 + IDXC-REF8597 CTOT-REF8598 Z-REF8599 INFO-REF8600)))) + +(CFFI:DEFCFUN ("dlasd4_" %%DLASD4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (I :POINTER) @@ -12571,21 +12602,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8638 ':INT32) (I-REF8639 ':INT32) - (RHO-REF8643 ':DOUBLE) (SIGMA-REF8644 ':DOUBLE) - (INFO-REF8646 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8638 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8639 :INT32) I) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8643 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8644 :DOUBLE) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8646 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8640 D) (Z-REF8641 Z) - (DELTA-REF8642 DELTA) - (WORK-REF8645 WORK)) - (%%DLASD4 N-REF8638 I-REF8639 D-REF8640 Z-REF8641 DELTA-REF8642 - RHO-REF8643 SIGMA-REF8644 WORK-REF8645 INFO-REF8646)))) - -(CFFI:DEFCFUN ("dlasd5_" %%DLASD5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8601 ':INT32) (I-REF8602 ':INT32) + (RHO-REF8606 ':DOUBLE) (SIGMA-REF8607 ':DOUBLE) + (INFO-REF8609 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8601 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8602 :INT32) I) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8606 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8607 :DOUBLE) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8609 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8603 D) (Z-REF8604 Z) + (DELTA-REF8605 DELTA) + (WORK-REF8608 WORK)) + (%%DLASD4 N-REF8601 I-REF8602 D-REF8603 Z-REF8604 DELTA-REF8605 + RHO-REF8606 SIGMA-REF8607 WORK-REF8608 INFO-REF8609)))) + +(CFFI:DEFCFUN ("dlasd5_" %%DLASD5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I :POINTER) (D :POINTER) @@ -12610,18 +12641,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((I-REF8647 ':INT32) (RHO-REF8651 ':DOUBLE) - (DSIGMA-REF8652 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8647 :INT32) I) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8651 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF8652 :DOUBLE) DSIGMA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8648 D) (Z-REF8649 Z) - (DELTA-REF8650 DELTA) - (WORK-REF8653 WORK)) - (%%DLASD5 I-REF8647 D-REF8648 Z-REF8649 DELTA-REF8650 RHO-REF8651 - DSIGMA-REF8652 WORK-REF8653)))) - -(CFFI:DEFCFUN ("dlasd6_" %%DLASD6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I-REF8610 ':INT32) (RHO-REF8614 ':DOUBLE) + (DSIGMA-REF8615 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8610 :INT32) I) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8614 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF8615 :DOUBLE) DSIGMA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8611 D) (Z-REF8612 Z) + (DELTA-REF8613 DELTA) + (WORK-REF8616 WORK)) + (%%DLASD5 I-REF8610 D-REF8611 Z-REF8612 DELTA-REF8613 RHO-REF8614 + DSIGMA-REF8615 WORK-REF8616)))) + +(CFFI:DEFCFUN ("dlasd6_" %%DLASD6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (NL :POINTER) @@ -12707,44 +12738,43 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8654 ':INT32) (NL-REF8655 ':INT32) - (NR-REF8656 ':INT32) (SQRE-REF8657 ':INT32) - (ALPHA-REF8661 ':DOUBLE) (BETA-REF8662 ':DOUBLE) - (GIVPTR-REF8665 ':INT32) (LDGCOL-REF8667 ':INT32) - (LDGNUM-REF8669 ':INT32) (K-REF8674 ':INT32) - (C-REF8675 ':DOUBLE) (S-REF8676 ':DOUBLE) - (INFO-REF8679 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8654 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8655 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8656 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8657 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8661 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8662 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8665 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8667 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8669 :INT32) LDGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8674 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8675 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8676 :DOUBLE) S) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8679 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8658 D) (VF-REF8659 VF) - (VL-REF8660 VL) (IDXQ-REF8663 IDXQ) - (PERM-REF8664 PERM) - (GIVCOL-REF8666 GIVCOL) - (GIVNUM-REF8668 GIVNUM) - (POLES-REF8670 POLES) - (DIFL-REF8671 DIFL) - (DIFR-REF8672 DIFR) (Z-REF8673 Z) - (WORK-REF8677 WORK) - (IWORK-REF8678 IWORK)) - (%%DLASD6 ICOMPQ-REF8654 NL-REF8655 NR-REF8656 SQRE-REF8657 D-REF8658 - VF-REF8659 VL-REF8660 ALPHA-REF8661 BETA-REF8662 IDXQ-REF8663 - PERM-REF8664 GIVPTR-REF8665 GIVCOL-REF8666 LDGCOL-REF8667 - GIVNUM-REF8668 LDGNUM-REF8669 POLES-REF8670 DIFL-REF8671 - DIFR-REF8672 Z-REF8673 K-REF8674 C-REF8675 S-REF8676 - WORK-REF8677 IWORK-REF8678 INFO-REF8679)))) - -(CFFI:DEFCFUN ("dlasd7_" %%DLASD7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8617 ':INT32) (NL-REF8618 ':INT32) + (NR-REF8619 ':INT32) (SQRE-REF8620 ':INT32) + (ALPHA-REF8624 ':DOUBLE) (BETA-REF8625 ':DOUBLE) + (GIVPTR-REF8628 ':INT32) (LDGCOL-REF8630 ':INT32) + (LDGNUM-REF8632 ':INT32) (K-REF8637 ':INT32) + (C-REF8638 ':DOUBLE) (S-REF8639 ':DOUBLE) + (INFO-REF8642 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8617 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8618 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8619 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8620 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8624 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8625 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8628 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8630 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8632 :INT32) LDGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8637 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8638 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8639 :DOUBLE) S) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8642 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8621 D) (VF-REF8622 VF) + (VL-REF8623 VL) (IDXQ-REF8626 IDXQ) + (PERM-REF8627 PERM) + (GIVCOL-REF8629 GIVCOL) + (GIVNUM-REF8631 GIVNUM) + (POLES-REF8633 POLES) + (DIFL-REF8634 DIFL) + (DIFR-REF8635 DIFR) (Z-REF8636 Z) + (WORK-REF8640 WORK) + (IWORK-REF8641 IWORK)) + (%%DLASD6 ICOMPQ-REF8617 NL-REF8618 NR-REF8619 SQRE-REF8620 D-REF8621 + VF-REF8622 VL-REF8623 ALPHA-REF8624 BETA-REF8625 IDXQ-REF8626 + PERM-REF8627 GIVPTR-REF8628 GIVCOL-REF8629 LDGCOL-REF8630 GIVNUM-REF8631 + LDGNUM-REF8632 POLES-REF8633 DIFL-REF8634 DIFR-REF8635 Z-REF8636 + K-REF8637 C-REF8638 S-REF8639 WORK-REF8640 IWORK-REF8641 INFO-REF8642)))) + +(CFFI:DEFCFUN ("dlasd7_" %%DLASD7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (NL :POINTER) @@ -12834,46 +12864,45 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8680 ':INT32) (NL-REF8681 ':INT32) - (NR-REF8682 ':INT32) (SQRE-REF8683 ':INT32) - (K-REF8684 ':INT32) (ALPHA-REF8692 ':DOUBLE) - (BETA-REF8693 ':DOUBLE) (GIVPTR-REF8699 ':INT32) - (LDGCOL-REF8701 ':INT32) (LDGNUM-REF8703 ':INT32) - (C-REF8704 ':DOUBLE) (S-REF8705 ':DOUBLE) - (INFO-REF8706 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8680 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8681 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8682 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8683 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8684 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8692 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8693 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8699 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8701 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8703 :INT32) LDGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8704 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8705 :DOUBLE) S) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8706 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8685 D) (Z-REF8686 Z) - (ZW-REF8687 ZW) (VF-REF8688 VF) - (VFW-REF8689 VFW) (VL-REF8690 VL) - (VLW-REF8691 VLW) - (DSIGMA-REF8694 DSIGMA) - (IDX-REF8695 IDX) - (IDXP-REF8696 IDXP) - (IDXQ-REF8697 IDXQ) - (PERM-REF8698 PERM) - (GIVCOL-REF8700 GIVCOL) - (GIVNUM-REF8702 GIVNUM)) - (%%DLASD7 ICOMPQ-REF8680 NL-REF8681 NR-REF8682 SQRE-REF8683 K-REF8684 - D-REF8685 Z-REF8686 ZW-REF8687 VF-REF8688 VFW-REF8689 - VL-REF8690 VLW-REF8691 ALPHA-REF8692 BETA-REF8693 - DSIGMA-REF8694 IDX-REF8695 IDXP-REF8696 IDXQ-REF8697 - PERM-REF8698 GIVPTR-REF8699 GIVCOL-REF8700 LDGCOL-REF8701 - GIVNUM-REF8702 LDGNUM-REF8703 C-REF8704 S-REF8705 - INFO-REF8706)))) - -(CFFI:DEFCFUN ("dlasd8_" %%DLASD8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8643 ':INT32) (NL-REF8644 ':INT32) + (NR-REF8645 ':INT32) (SQRE-REF8646 ':INT32) + (K-REF8647 ':INT32) (ALPHA-REF8655 ':DOUBLE) + (BETA-REF8656 ':DOUBLE) (GIVPTR-REF8662 ':INT32) + (LDGCOL-REF8664 ':INT32) (LDGNUM-REF8666 ':INT32) + (C-REF8667 ':DOUBLE) (S-REF8668 ':DOUBLE) + (INFO-REF8669 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8643 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8644 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8645 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8646 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8647 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8655 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8656 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8662 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8664 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8666 :INT32) LDGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8667 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8668 :DOUBLE) S) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8669 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8648 D) (Z-REF8649 Z) + (ZW-REF8650 ZW) (VF-REF8651 VF) + (VFW-REF8652 VFW) (VL-REF8653 VL) + (VLW-REF8654 VLW) + (DSIGMA-REF8657 DSIGMA) + (IDX-REF8658 IDX) + (IDXP-REF8659 IDXP) + (IDXQ-REF8660 IDXQ) + (PERM-REF8661 PERM) + (GIVCOL-REF8663 GIVCOL) + (GIVNUM-REF8665 GIVNUM)) + (%%DLASD7 ICOMPQ-REF8643 NL-REF8644 NR-REF8645 SQRE-REF8646 K-REF8647 + D-REF8648 Z-REF8649 ZW-REF8650 VF-REF8651 VFW-REF8652 VL-REF8653 + VLW-REF8654 ALPHA-REF8655 BETA-REF8656 DSIGMA-REF8657 IDX-REF8658 + IDXP-REF8659 IDXQ-REF8660 PERM-REF8661 GIVPTR-REF8662 GIVCOL-REF8663 + LDGCOL-REF8664 GIVNUM-REF8665 LDGNUM-REF8666 C-REF8667 S-REF8668 + INFO-REF8669)))) + +(CFFI:DEFCFUN ("dlasd8_" %%DLASD8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (K :POINTER) @@ -12915,23 +12944,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8707 ':INT32) (K-REF8708 ':INT32) - (LDDIFR-REF8715 ':INT32) (INFO-REF8718 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8707 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8708 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF8715 :INT32) LDDIFR) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8718 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8709 D) (Z-REF8710 Z) - (VF-REF8711 VF) (VL-REF8712 VL) - (DIFL-REF8713 DIFL) - (DIFR-REF8714 DIFR) - (DSIGMA-REF8716 DSIGMA) - (WORK-REF8717 WORK)) - (%%DLASD8 ICOMPQ-REF8707 K-REF8708 D-REF8709 Z-REF8710 VF-REF8711 - VL-REF8712 DIFL-REF8713 DIFR-REF8714 LDDIFR-REF8715 - DSIGMA-REF8716 WORK-REF8717 INFO-REF8718)))) - -(CFFI:DEFCFUN ("dlasda_" %%DLASDA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8670 ':INT32) (K-REF8671 ':INT32) + (LDDIFR-REF8678 ':INT32) (INFO-REF8681 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8670 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8671 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF8678 :INT32) LDDIFR) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8681 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8672 D) (Z-REF8673 Z) + (VF-REF8674 VF) (VL-REF8675 VL) + (DIFL-REF8676 DIFL) + (DIFR-REF8677 DIFR) + (DSIGMA-REF8679 DSIGMA) + (WORK-REF8680 WORK)) + (%%DLASD8 ICOMPQ-REF8670 K-REF8671 D-REF8672 Z-REF8673 VF-REF8674 + VL-REF8675 DIFL-REF8676 DIFR-REF8677 LDDIFR-REF8678 DSIGMA-REF8679 + WORK-REF8680 INFO-REF8681)))) + +(CFFI:DEFCFUN ("dlasda_" %%DLASDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (SMLSIZ :POINTER) @@ -13018,37 +13047,36 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8719 ':INT32) (SMLSIZ-REF8720 ':INT32) - (N-REF8721 ':INT32) (SQRE-REF8722 ':INT32) - (LDU-REF8726 ':INT32) (LDGCOL-REF8735 ':INT32) - (INFO-REF8742 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8719 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8720 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8721 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8722 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8726 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8735 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8742 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8723 D) (E-REF8724 E) - (U-REF8725 U) (VT-REF8727 VT) - (K-REF8728 K) (DIFL-REF8729 DIFL) - (DIFR-REF8730 DIFR) (Z-REF8731 Z) - (POLES-REF8732 POLES) - (GIVPTR-REF8733 GIVPTR) - (GIVCOL-REF8734 GIVCOL) - (PERM-REF8736 PERM) - (GIVNUM-REF8737 GIVNUM) - (C-REF8738 C) (S-REF8739 S) - (WORK-REF8740 WORK) - (IWORK-REF8741 IWORK)) - (%%DLASDA ICOMPQ-REF8719 SMLSIZ-REF8720 N-REF8721 SQRE-REF8722 D-REF8723 - E-REF8724 U-REF8725 LDU-REF8726 VT-REF8727 K-REF8728 - DIFL-REF8729 DIFR-REF8730 Z-REF8731 POLES-REF8732 - GIVPTR-REF8733 GIVCOL-REF8734 LDGCOL-REF8735 PERM-REF8736 - GIVNUM-REF8737 C-REF8738 S-REF8739 WORK-REF8740 IWORK-REF8741 - INFO-REF8742)))) - -(CFFI:DEFCFUN ("dlasdq_" %%DLASDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8682 ':INT32) (SMLSIZ-REF8683 ':INT32) + (N-REF8684 ':INT32) (SQRE-REF8685 ':INT32) + (LDU-REF8689 ':INT32) (LDGCOL-REF8698 ':INT32) + (INFO-REF8705 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8682 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8683 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8684 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8685 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8689 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8698 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8705 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8686 D) (E-REF8687 E) + (U-REF8688 U) (VT-REF8690 VT) + (K-REF8691 K) (DIFL-REF8692 DIFL) + (DIFR-REF8693 DIFR) (Z-REF8694 Z) + (POLES-REF8695 POLES) + (GIVPTR-REF8696 GIVPTR) + (GIVCOL-REF8697 GIVCOL) + (PERM-REF8699 PERM) + (GIVNUM-REF8700 GIVNUM) + (C-REF8701 C) (S-REF8702 S) + (WORK-REF8703 WORK) + (IWORK-REF8704 IWORK)) + (%%DLASDA ICOMPQ-REF8682 SMLSIZ-REF8683 N-REF8684 SQRE-REF8685 D-REF8686 + E-REF8687 U-REF8688 LDU-REF8689 VT-REF8690 K-REF8691 DIFL-REF8692 + DIFR-REF8693 Z-REF8694 POLES-REF8695 GIVPTR-REF8696 GIVCOL-REF8697 + LDGCOL-REF8698 PERM-REF8699 GIVNUM-REF8700 C-REF8701 S-REF8702 + WORK-REF8703 IWORK-REF8704 INFO-REF8705)))) + +(CFFI:DEFCFUN ("dlasdq_" %%DLASDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (SQRE :POINTER) @@ -13093,29 +13121,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF8744 ':INT32) (N-REF8745 ':INT32) - (NCVT-REF8746 ':INT32) (NRU-REF8747 ':INT32) - (NCC-REF8748 ':INT32) (LDVT-REF8752 ':INT32) - (LDU-REF8754 ':INT32) (LDC-REF8756 ':INT32) - (INFO-REF8758 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8744 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8745 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF8746 :INT32) NCVT) - (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF8747 :INT32) NRU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF8748 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8752 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8754 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8756 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8758 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8749 D) (E-REF8750 E) - (VT-REF8751 VT) (U-REF8753 U) - (C-REF8755 C) (WORK-REF8757 WORK)) - (%%DLASDQ UPLO SQRE-REF8744 N-REF8745 NCVT-REF8746 NRU-REF8747 - NCC-REF8748 D-REF8749 E-REF8750 VT-REF8751 LDVT-REF8752 - U-REF8753 LDU-REF8754 C-REF8755 LDC-REF8756 WORK-REF8757 - INFO-REF8758)))) - -(CFFI:DEFCFUN ("dlasdt_" %%DLASDT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF8707 ':INT32) (N-REF8708 ':INT32) + (NCVT-REF8709 ':INT32) (NRU-REF8710 ':INT32) + (NCC-REF8711 ':INT32) (LDVT-REF8715 ':INT32) + (LDU-REF8717 ':INT32) (LDC-REF8719 ':INT32) + (INFO-REF8721 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8707 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8708 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF8709 :INT32) NCVT) + (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF8710 :INT32) NRU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF8711 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8715 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8717 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8719 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8721 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8712 D) (E-REF8713 E) + (VT-REF8714 VT) (U-REF8716 U) + (C-REF8718 C) (WORK-REF8720 WORK)) + (%%DLASDQ UPLO SQRE-REF8707 N-REF8708 NCVT-REF8709 NRU-REF8710 + NCC-REF8711 D-REF8712 E-REF8713 VT-REF8714 LDVT-REF8715 U-REF8716 + LDU-REF8717 C-REF8718 LDC-REF8719 WORK-REF8720 INFO-REF8721)))) + +(CFFI:DEFCFUN ("dlasdt_" %%DLASDT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (LVL :POINTER) @@ -13143,19 +13170,19 @@ (COMMON-LISP:*)) NDIMR) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MSUB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8759 ':INT32) (LVL-REF8760 ':INT32) - (ND-REF8761 ':INT32) (MSUB-REF8765 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8759 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF8760 :INT32) LVL) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8761 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF8765 :INT32) MSUB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF8762 INODE) - (NDIML-REF8763 NDIML) - (NDIMR-REF8764 NDIMR)) - (%%DLASDT N-REF8759 LVL-REF8760 ND-REF8761 INODE-REF8762 NDIML-REF8763 - NDIMR-REF8764 MSUB-REF8765)))) - -(CFFI:DEFCFUN ("dlaset_" %%DLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8722 ':INT32) (LVL-REF8723 ':INT32) + (ND-REF8724 ':INT32) (MSUB-REF8728 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8722 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF8723 :INT32) LVL) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8724 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF8728 :INT32) MSUB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF8725 INODE) + (NDIML-REF8726 NDIML) + (NDIMR-REF8727 NDIMR)) + (%%DLASDT N-REF8722 LVL-REF8723 ND-REF8724 INODE-REF8725 NDIML-REF8726 + NDIMR-REF8727 MSUB-REF8728)))) + +(CFFI:DEFCFUN ("dlaset_" %%DLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -13175,19 +13202,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8767 ':INT32) (N-REF8768 ':INT32) - (ALPHA-REF8769 ':DOUBLE) (BETA-REF8770 ':DOUBLE) - (LDA-REF8772 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8767 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8768 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8769 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8770 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8772 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8771 A)) - (%%DLASET UPLO M-REF8767 N-REF8768 ALPHA-REF8769 BETA-REF8770 A-REF8771 - LDA-REF8772)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8730 ':INT32) (N-REF8731 ':INT32) + (ALPHA-REF8732 ':DOUBLE) (BETA-REF8733 ':DOUBLE) + (LDA-REF8735 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8730 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8731 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8732 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8733 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8735 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8734 A)) + (%%DLASET UPLO M-REF8730 N-REF8731 ALPHA-REF8732 BETA-REF8733 A-REF8734 + LDA-REF8735)))) -(CFFI:DEFCFUN ("dlasq1_" %%DLASQ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlasq1_" %%DLASQ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -13206,14 +13233,14 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8773 ':INT32) (INFO-REF8777 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8773 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8777 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8774 D) (E-REF8775 E) - (WORK-REF8776 WORK)) - (%%DLASQ1 N-REF8773 D-REF8774 E-REF8775 WORK-REF8776 INFO-REF8777)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8736 ':INT32) (INFO-REF8740 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8736 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8740 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8737 D) (E-REF8738 E) + (WORK-REF8739 WORK)) + (%%DLASQ1 N-REF8736 D-REF8737 E-REF8738 WORK-REF8739 INFO-REF8740)))) -(CFFI:DEFCFUN ("dlasq2_" %%DLASQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlasq2_" %%DLASQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (Z :POINTER) @@ -13225,13 +13252,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8778 ':INT32) (INFO-REF8780 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8778 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8780 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8779 Z)) - (%%DLASQ2 N-REF8778 Z-REF8779 INFO-REF8780)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8741 ':INT32) (INFO-REF8743 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8741 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8743 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8742 Z)) + (%%DLASQ2 N-REF8741 Z-REF8742 INFO-REF8743)))) -(CFFI:DEFCFUN ("dlasq3_" %%DLASQ3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlasq3_" %%DLASQ3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I0 :POINTER) (N0 :POINTER) @@ -13279,43 +13306,42 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN2) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8781 ':INT32) (N0-REF8782 ':INT32) - (PP-REF8784 ':INT32) (DMIN-REF8785 ':DOUBLE) - (SIGMA-REF8786 ':DOUBLE) (DESIG-REF8787 ':DOUBLE) - (QMAX-REF8788 ':DOUBLE) (NFAIL-REF8789 ':INT32) - (ITER-REF8790 ':INT32) (NDIV-REF8791 ':INT32) - (IEEE-REF8792 ':INT32) (TTYPE-REF8793 ':INT32) - (DMIN1-REF8794 ':DOUBLE) (DMIN2-REF8795 ':DOUBLE) - (DN-REF8796 ':DOUBLE) (DN1-REF8797 ':DOUBLE) - (DN2-REF8798 ':DOUBLE) (G-REF8799 ':DOUBLE) - (TAU-REF8800 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8781 :INT32) I0) - (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8782 :INT32) N0) - (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8784 :INT32) PP) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8785 :DOUBLE) DMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8786 :DOUBLE) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF8787 :DOUBLE) DESIG) - (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF8788 :DOUBLE) QMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF8789 :INT32) NFAIL) - (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF8790 :INT32) ITER) - (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF8791 :INT32) NDIV) - (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8792 :INT32) IEEE) - (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8793 :INT32) TTYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8794 :DOUBLE) DMIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8795 :DOUBLE) DMIN2) - (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8796 :DOUBLE) DN) - (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8797 :DOUBLE) DN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8798 :DOUBLE) DN2) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8799 :DOUBLE) G) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8800 :DOUBLE) TAU) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8783 Z)) - (%%DLASQ3 I0-REF8781 N0-REF8782 Z-REF8783 PP-REF8784 DMIN-REF8785 - SIGMA-REF8786 DESIG-REF8787 QMAX-REF8788 NFAIL-REF8789 - ITER-REF8790 NDIV-REF8791 IEEE-REF8792 TTYPE-REF8793 - DMIN1-REF8794 DMIN2-REF8795 DN-REF8796 DN1-REF8797 DN2-REF8798 - G-REF8799 TAU-REF8800)))) - -(CFFI:DEFCFUN ("dlasq4_" %%DLASQ4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8744 ':INT32) (N0-REF8745 ':INT32) + (PP-REF8747 ':INT32) (DMIN-REF8748 ':DOUBLE) + (SIGMA-REF8749 ':DOUBLE) (DESIG-REF8750 ':DOUBLE) + (QMAX-REF8751 ':DOUBLE) (NFAIL-REF8752 ':INT32) + (ITER-REF8753 ':INT32) (NDIV-REF8754 ':INT32) + (IEEE-REF8755 ':INT32) (TTYPE-REF8756 ':INT32) + (DMIN1-REF8757 ':DOUBLE) (DMIN2-REF8758 ':DOUBLE) + (DN-REF8759 ':DOUBLE) (DN1-REF8760 ':DOUBLE) + (DN2-REF8761 ':DOUBLE) (G-REF8762 ':DOUBLE) + (TAU-REF8763 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8744 :INT32) I0) + (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8745 :INT32) N0) + (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8747 :INT32) PP) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8748 :DOUBLE) DMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8749 :DOUBLE) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF8750 :DOUBLE) DESIG) + (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF8751 :DOUBLE) QMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF8752 :INT32) NFAIL) + (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF8753 :INT32) ITER) + (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF8754 :INT32) NDIV) + (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8755 :INT32) IEEE) + (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8756 :INT32) TTYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8757 :DOUBLE) DMIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8758 :DOUBLE) DMIN2) + (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8759 :DOUBLE) DN) + (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8760 :DOUBLE) DN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8761 :DOUBLE) DN2) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8762 :DOUBLE) G) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8763 :DOUBLE) TAU) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8746 Z)) + (%%DLASQ3 I0-REF8744 N0-REF8745 Z-REF8746 PP-REF8747 DMIN-REF8748 + SIGMA-REF8749 DESIG-REF8750 QMAX-REF8751 NFAIL-REF8752 ITER-REF8753 + NDIV-REF8754 IEEE-REF8755 TTYPE-REF8756 DMIN1-REF8757 DMIN2-REF8758 + DN-REF8759 DN1-REF8760 DN2-REF8761 G-REF8762 TAU-REF8763)))) + +(CFFI:DEFCFUN ("dlasq4_" %%DLASQ4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I0 :POINTER) (N0 :POINTER) @@ -13350,32 +13376,32 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)) - (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8801 ':INT32) (N0-REF8802 ':INT32) - (PP-REF8804 ':INT32) (N0IN-REF8805 ':INT32) - (DMIN-REF8806 ':DOUBLE) (DMIN1-REF8807 ':DOUBLE) - (DMIN2-REF8808 ':DOUBLE) (DN-REF8809 ':DOUBLE) - (DN1-REF8810 ':DOUBLE) (DN2-REF8811 ':DOUBLE) - (TAU-REF8812 ':DOUBLE) (TTYPE-REF8813 ':INT32) - (G-REF8814 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8801 :INT32) I0) - (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8802 :INT32) N0) - (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8804 :INT32) PP) - (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF8805 :INT32) N0IN) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8806 :DOUBLE) DMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8807 :DOUBLE) DMIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8808 :DOUBLE) DMIN2) - (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8809 :DOUBLE) DN) - (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8810 :DOUBLE) DN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8811 :DOUBLE) DN2) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8812 :DOUBLE) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8813 :INT32) TTYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8814 :DOUBLE) G) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8803 Z)) - (%%DLASQ4 I0-REF8801 N0-REF8802 Z-REF8803 PP-REF8804 N0IN-REF8805 - DMIN-REF8806 DMIN1-REF8807 DMIN2-REF8808 DN-REF8809 DN1-REF8810 - DN2-REF8811 TAU-REF8812 TTYPE-REF8813 G-REF8814)))) - -(CFFI:DEFCFUN ("dlasq5_" %%DLASQ5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8764 ':INT32) (N0-REF8765 ':INT32) + (PP-REF8767 ':INT32) (N0IN-REF8768 ':INT32) + (DMIN-REF8769 ':DOUBLE) (DMIN1-REF8770 ':DOUBLE) + (DMIN2-REF8771 ':DOUBLE) (DN-REF8772 ':DOUBLE) + (DN1-REF8773 ':DOUBLE) (DN2-REF8774 ':DOUBLE) + (TAU-REF8775 ':DOUBLE) (TTYPE-REF8776 ':INT32) + (G-REF8777 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8764 :INT32) I0) + (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8765 :INT32) N0) + (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8767 :INT32) PP) + (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF8768 :INT32) N0IN) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8769 :DOUBLE) DMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8770 :DOUBLE) DMIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8771 :DOUBLE) DMIN2) + (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8772 :DOUBLE) DN) + (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8773 :DOUBLE) DN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8774 :DOUBLE) DN2) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8775 :DOUBLE) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8776 :INT32) TTYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8777 :DOUBLE) G) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8766 Z)) + (%%DLASQ4 I0-REF8764 N0-REF8765 Z-REF8766 PP-REF8767 N0IN-REF8768 + DMIN-REF8769 DMIN1-REF8770 DMIN2-REF8771 DN-REF8772 DN1-REF8773 + DN2-REF8774 TAU-REF8775 TTYPE-REF8776 G-REF8777)))) + +(CFFI:DEFCFUN ("dlasq5_" %%DLASQ5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I0 :POINTER) (N0 :POINTER) @@ -13411,33 +13437,32 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)) - (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8815 ':INT32) (N0-REF8816 ':INT32) - (PP-REF8818 ':INT32) (TAU-REF8819 ':DOUBLE) - (SIGMA-REF8820 ':DOUBLE) (DMIN-REF8821 ':DOUBLE) - (DMIN1-REF8822 ':DOUBLE) (DMIN2-REF8823 ':DOUBLE) - (DN-REF8824 ':DOUBLE) (DNM1-REF8825 ':DOUBLE) - (DNM2-REF8826 ':DOUBLE) (IEEE-REF8827 ':INT32) - (EPS-REF8828 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8815 :INT32) I0) - (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8816 :INT32) N0) - (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8818 :INT32) PP) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8819 :DOUBLE) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8820 :DOUBLE) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8821 :DOUBLE) DMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8822 :DOUBLE) DMIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8823 :DOUBLE) DMIN2) - (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8824 :DOUBLE) DN) - (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8825 :DOUBLE) DNM1) - (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8826 :DOUBLE) DNM2) - (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8827 :INT32) IEEE) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF8828 :DOUBLE) EPS) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8817 Z)) - (%%DLASQ5 I0-REF8815 N0-REF8816 Z-REF8817 PP-REF8818 TAU-REF8819 - SIGMA-REF8820 DMIN-REF8821 DMIN1-REF8822 DMIN2-REF8823 - DN-REF8824 DNM1-REF8825 DNM2-REF8826 IEEE-REF8827 - EPS-REF8828)))) - -(CFFI:DEFCFUN ("dlasq6_" %%DLASQ6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8778 ':INT32) (N0-REF8779 ':INT32) + (PP-REF8781 ':INT32) (TAU-REF8782 ':DOUBLE) + (SIGMA-REF8783 ':DOUBLE) (DMIN-REF8784 ':DOUBLE) + (DMIN1-REF8785 ':DOUBLE) (DMIN2-REF8786 ':DOUBLE) + (DN-REF8787 ':DOUBLE) (DNM1-REF8788 ':DOUBLE) + (DNM2-REF8789 ':DOUBLE) (IEEE-REF8790 ':INT32) + (EPS-REF8791 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8778 :INT32) I0) + (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8779 :INT32) N0) + (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8781 :INT32) PP) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8782 :DOUBLE) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8783 :DOUBLE) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8784 :DOUBLE) DMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8785 :DOUBLE) DMIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8786 :DOUBLE) DMIN2) + (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8787 :DOUBLE) DN) + (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8788 :DOUBLE) DNM1) + (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8789 :DOUBLE) DNM2) + (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8790 :INT32) IEEE) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF8791 :DOUBLE) EPS) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8780 Z)) + (%%DLASQ5 I0-REF8778 N0-REF8779 Z-REF8780 PP-REF8781 TAU-REF8782 + SIGMA-REF8783 DMIN-REF8784 DMIN1-REF8785 DMIN2-REF8786 DN-REF8787 + DNM1-REF8788 DNM2-REF8789 IEEE-REF8790 EPS-REF8791)))) + +(CFFI:DEFCFUN ("dlasq6_" %%DLASQ6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I0 :POINTER) (N0 :POINTER) @@ -13463,26 +13488,25 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM1) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2)) - (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8829 ':INT32) (N0-REF8830 ':INT32) - (PP-REF8832 ':INT32) (DMIN-REF8833 ':DOUBLE) - (DMIN1-REF8834 ':DOUBLE) (DMIN2-REF8835 ':DOUBLE) - (DN-REF8836 ':DOUBLE) (DNM1-REF8837 ':DOUBLE) - (DNM2-REF8838 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8829 :INT32) I0) - (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8830 :INT32) N0) - (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8832 :INT32) PP) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8833 :DOUBLE) DMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8834 :DOUBLE) DMIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8835 :DOUBLE) DMIN2) - (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8836 :DOUBLE) DN) - (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8837 :DOUBLE) DNM1) - (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8838 :DOUBLE) DNM2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8831 Z)) - (%%DLASQ6 I0-REF8829 N0-REF8830 Z-REF8831 PP-REF8832 DMIN-REF8833 - DMIN1-REF8834 DMIN2-REF8835 DN-REF8836 DNM1-REF8837 - DNM2-REF8838)))) - -(CFFI:DEFCFUN ("dlasr_" %%DLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8792 ':INT32) (N0-REF8793 ':INT32) + (PP-REF8795 ':INT32) (DMIN-REF8796 ':DOUBLE) + (DMIN1-REF8797 ':DOUBLE) (DMIN2-REF8798 ':DOUBLE) + (DN-REF8799 ':DOUBLE) (DNM1-REF8800 ':DOUBLE) + (DNM2-REF8801 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8792 :INT32) I0) + (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8793 :INT32) N0) + (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8795 :INT32) PP) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8796 :DOUBLE) DMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8797 :DOUBLE) DMIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8798 :DOUBLE) DMIN2) + (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8799 :DOUBLE) DN) + (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8800 :DOUBLE) DNM1) + (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8801 :DOUBLE) DNM2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8794 Z)) + (%%DLASQ6 I0-REF8792 N0-REF8793 Z-REF8794 PP-REF8795 DMIN-REF8796 + DMIN1-REF8797 DMIN2-REF8798 DN-REF8799 DNM1-REF8800 DNM2-REF8801)))) + +(CFFI:DEFCFUN ("dlasr_" %%DLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (PIVOT :STRING) @@ -13508,17 +13532,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8842 ':INT32) (N-REF8843 ':INT32) - (LDA-REF8847 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8842 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8843 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8847 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF8844 C) (S-REF8845 S) - (A-REF8846 A)) - (%%DLASR SIDE PIVOT DIRECT M-REF8842 N-REF8843 C-REF8844 S-REF8845 - A-REF8846 LDA-REF8847)))) - -(CFFI:DEFCFUN ("dlasrt_" %%DLASRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8805 ':INT32) (N-REF8806 ':INT32) + (LDA-REF8810 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8805 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8806 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8810 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF8807 C) (S-REF8808 S) + (A-REF8809 A)) + (%%DLASR SIDE PIVOT DIRECT M-REF8805 N-REF8806 C-REF8807 S-REF8808 + A-REF8809 LDA-REF8810)))) + +(CFFI:DEFCFUN ("dlasrt_" %%DLASRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ID :STRING) (N :POINTER) @@ -13532,13 +13556,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8849 ':INT32) (INFO-REF8851 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8849 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8851 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8850 D)) - (%%DLASRT ID N-REF8849 D-REF8850 INFO-REF8851)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8812 ':INT32) (INFO-REF8814 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8812 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8814 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8813 D)) + (%%DLASRT ID N-REF8812 D-REF8813 INFO-REF8814)))) -(CFFI:DEFCFUN ("dlassq_" %%DLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlassq_" %%DLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -13554,16 +13578,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SUMSQ)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8852 ':INT32) (INCX-REF8854 ':INT32) - (SCALE-REF8855 ':DOUBLE) (SUMSQ-REF8856 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8852 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8854 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8855 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF8856 :DOUBLE) SUMSQ) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8853 X)) - (%%DLASSQ N-REF8852 X-REF8853 INCX-REF8854 SCALE-REF8855 SUMSQ-REF8856)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8815 ':INT32) (INCX-REF8817 ':INT32) + (SCALE-REF8818 ':DOUBLE) (SUMSQ-REF8819 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8815 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8817 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8818 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF8819 :DOUBLE) SUMSQ) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8816 X)) + (%%DLASSQ N-REF8815 X-REF8816 INCX-REF8817 SCALE-REF8818 SUMSQ-REF8819)))) -(CFFI:DEFCFUN ("dlasv2_" %%DLASV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlasv2_" %%DLASV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -13586,25 +13610,26 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSL)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8857 ':DOUBLE) (G-REF8858 ':DOUBLE) - (H-REF8859 ':DOUBLE) (SSMIN-REF8860 ':DOUBLE) - (SSMAX-REF8861 ':DOUBLE) (SNR-REF8862 ':DOUBLE) - (CSR-REF8863 ':DOUBLE) (SNL-REF8864 ':DOUBLE) - (CSL-REF8865 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8857 :DOUBLE) F) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8858 :DOUBLE) G) - (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8859 :DOUBLE) H) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8860 :DOUBLE) SSMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8861 :DOUBLE) SSMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF8862 :DOUBLE) SNR) - (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF8863 :DOUBLE) CSR) - (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF8864 :DOUBLE) SNL) - (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF8865 :DOUBLE) CSL) + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8820 ':DOUBLE) (G-REF8821 ':DOUBLE) + (H-REF8822 ':DOUBLE) (SSMIN-REF8823 ':DOUBLE) + (SSMAX-REF8824 ':DOUBLE) (SNR-REF8825 ':DOUBLE) + (CSR-REF8826 ':DOUBLE) (SNL-REF8827 ':DOUBLE) + (CSL-REF8828 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8820 :DOUBLE) F) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8821 :DOUBLE) G) + (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8822 :DOUBLE) H) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8823 :DOUBLE) SSMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8824 :DOUBLE) SSMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF8825 :DOUBLE) SNR) + (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF8826 :DOUBLE) CSR) + (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF8827 :DOUBLE) SNL) + (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF8828 :DOUBLE) CSL) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%DLASV2 F-REF8857 G-REF8858 H-REF8859 SSMIN-REF8860 SSMAX-REF8861 - SNR-REF8862 CSR-REF8863 SNL-REF8864 CSL-REF8865)))) + (%%DLASV2 F-REF8820 G-REF8821 H-REF8822 SSMIN-REF8823 SSMAX-REF8824 + SNR-REF8825 CSR-REF8826 SNL-REF8827 CSL-REF8828)))) -(CFFI:DEFCFUN ("dlaswlq_" %%DLASWLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlaswlq_" %%DLASWLQ :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -13635,23 +13660,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8866 ':INT32) (N-REF8867 ':INT32) - (MB-REF8868 ':INT32) (NB-REF8869 ':INT32) - (LDA-REF8871 ':INT32) (LDT-REF8873 ':INT32) - (LWORK-REF8875 ':INT32) (INFO-REF8876 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8866 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8867 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF8868 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8869 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8871 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8873 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8875 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8876 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8870 A) (T-REF8872 T) - (WORK-REF8874 WORK)) - (%%DLASWLQ M-REF8866 N-REF8867 MB-REF8868 NB-REF8869 A-REF8870 - LDA-REF8871 T-REF8872 LDT-REF8873 WORK-REF8874 LWORK-REF8875 - INFO-REF8876)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8829 ':INT32) (N-REF8830 ':INT32) + (MB-REF8831 ':INT32) (NB-REF8832 ':INT32) + (LDA-REF8834 ':INT32) (LDT-REF8836 ':INT32) + (LWORK-REF8838 ':INT32) (INFO-REF8839 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8829 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8830 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF8831 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8832 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8834 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8836 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8838 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8839 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8833 A) (T-REF8835 T) + (WORK-REF8837 WORK)) + (%%DLASWLQ M-REF8829 N-REF8830 MB-REF8831 NB-REF8832 A-REF8833 + LDA-REF8834 T-REF8835 LDT-REF8836 WORK-REF8837 LWORK-REF8838 + INFO-REF8839)))) (COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%DGBBRD %DGBBRD %%DGBCON %DGBCON %%DGBEQU %DGBEQU @@ -13696,317 +13721,367 @@ %%DLAMSWLQ %DLAMSWLQ %%DLAMTSQR %DLAMTSQR %%DLANEG %DLANEG %%DLANGB %DLANGB %%DLANGE %DLANGE %%DLANGT %DLANGT %%DLANHS %DLANHS %%DLANSB %DLANSB %%DLANSF %DLANSF %%DLANSP %DLANSP %%DLANST %DLANST %%DLANSY %DLANSY %%DLANTB %DLANTB - %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAPLL %DLAPLL %%DLAPMR - %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3 %%DLAQGB %DLAQGB - %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0 %DLAQR0 %%DLAQR1 - %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4 %%DLAQR5 %DLAQR5 - %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR %DLAQTR %%DLAR1V - %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB %%DLARFG %DLARFG - %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX %%DLARFY %DLARFY - %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB %DLARRB %%DLARRC - %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF %%DLARRJ %DLARRJ - %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV %%DLARSCL2 %DLARSCL2 - %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS %%DLARTV %DLARTV - %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT %DLARZT %%DLAS2 - %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0 %%DLASD1 %DLASD1 - %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5 %DLASD5 %%DLASD6 - %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA %%DLASDQ %DLASDQ - %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2 %DLASQ2 %%DLASQ3 - %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6 %%DLASR %DLASR - %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ %DLASWLQ)) - -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK - '(("DGBBRD" "dgbbrd_" %%DGBBRD %DGBBRD) - ("DGBCON" "dgbcon_" %%DGBCON %DGBCON) - ("DGBEQU" "dgbequ_" %%DGBEQU %DGBEQU) - ("DGBEQUB" "dgbequb_" %%DGBEQUB %DGBEQUB) - ("DGBRFS" "dgbrfs_" %%DGBRFS %DGBRFS) - ("DGBRFSX" "dgbrfsx_" %%DGBRFSX %DGBRFSX) - ("DGBSV" "dgbsv_" %%DGBSV %DGBSV) - ("DGBSVX" "dgbsvx_" %%DGBSVX %DGBSVX) - ("DGBSVXX" "dgbsvxx_" %%DGBSVXX %DGBSVXX) - ("DGBTF2" "dgbtf2_" %%DGBTF2 %DGBTF2) - ("DGBTRF" "dgbtrf_" %%DGBTRF %DGBTRF) - ("DGBTRS" "dgbtrs_" %%DGBTRS %DGBTRS) - ("DGEBAK" "dgebak_" %%DGEBAK %DGEBAK) - ("DGEBAL" "dgebal_" %%DGEBAL %DGEBAL) - ("DGEBD2" "dgebd2_" %%DGEBD2 %DGEBD2) - ("DGEBRD" "dgebrd_" %%DGEBRD %DGEBRD) - ("DGECON" "dgecon_" %%DGECON %DGECON) - ("DGEEQU" "dgeequ_" %%DGEEQU %DGEEQU) - ("DGEEQUB" "dgeequb_" %%DGEEQUB %DGEEQUB) - ("DGEES" "dgees_" %%DGEES %DGEES) - ("DGEESX" "dgeesx_" %%DGEESX %DGEESX) - ("DGEEV" "dgeev_" %%DGEEV %DGEEV) - ("DGEEVX" "dgeevx_" %%DGEEVX %DGEEVX) - ("DGEHD2" "dgehd2_" %%DGEHD2 %DGEHD2) - ("DGEHRD" "dgehrd_" %%DGEHRD %DGEHRD) - ("DGEJSV" "dgejsv_" %%DGEJSV %DGEJSV) - ("DGELQ" "dgelq_" %%DGELQ %DGELQ) - ("DGELQ2" "dgelq2_" %%DGELQ2 %DGELQ2) - ("DGELQF" "dgelqf_" %%DGELQF %DGELQF) - ("DGELQT" "dgelqt_" %%DGELQT %DGELQT) - ("DGELQT3" "dgelqt3_" %%DGELQT3 %DGELQT3) - ("DGELS" "dgels_" %%DGELS %DGELS) - ("DGELSD" "dgelsd_" %%DGELSD %DGELSD) - ("DGELSS" "dgelss_" %%DGELSS %DGELSS) - ("DGELSY" "dgelsy_" %%DGELSY %DGELSY) - ("DGEMLQ" "dgemlq_" %%DGEMLQ %DGEMLQ) - ("DGEMLQT" "dgemlqt_" %%DGEMLQT %DGEMLQT) - ("DGEMQR" "dgemqr_" %%DGEMQR %DGEMQR) - ("DGEMQRT" "dgemqrt_" %%DGEMQRT %DGEMQRT) - ("DGEQL2" "dgeql2_" %%DGEQL2 %DGEQL2) - ("DGEQLF" "dgeqlf_" %%DGEQLF %DGEQLF) - ("DGEQP3" "dgeqp3_" %%DGEQP3 %DGEQP3) - ("DGEQR" "dgeqr_" %%DGEQR %DGEQR) - ("DGEQR2" "dgeqr2_" %%DGEQR2 %DGEQR2) - ("DGEQR2P" "dgeqr2p_" %%DGEQR2P %DGEQR2P) - ("DGEQRF" "dgeqrf_" %%DGEQRF %DGEQRF) - ("DGEQRFP" "dgeqrfp_" %%DGEQRFP %DGEQRFP) - ("DGEQRT" "dgeqrt_" %%DGEQRT %DGEQRT) - ("DGEQRT2" "dgeqrt2_" %%DGEQRT2 %DGEQRT2) - ("DGEQRT3" "dgeqrt3_" %%DGEQRT3 %DGEQRT3) - ("DGERFS" "dgerfs_" %%DGERFS %DGERFS) - ("DGERFSX" "dgerfsx_" %%DGERFSX %DGERFSX) - ("DGERQ2" "dgerq2_" %%DGERQ2 %DGERQ2) - ("DGERQF" "dgerqf_" %%DGERQF %DGERQF) - ("DGESC2" "dgesc2_" %%DGESC2 %DGESC2) - ("DGESDD" "dgesdd_" %%DGESDD %DGESDD) - ("DGESV" "dgesv_" %%DGESV %DGESV) - ("DGESVD" "dgesvd_" %%DGESVD %DGESVD) - ("DGESVDQ" "dgesvdq_" %%DGESVDQ %DGESVDQ) - ("DGESVDX" "dgesvdx_" %%DGESVDX %DGESVDX) - ("DGESVJ" "dgesvj_" %%DGESVJ %DGESVJ) - ("DGESVX" "dgesvx_" %%DGESVX %DGESVX) - ("DGESVXX" "dgesvxx_" %%DGESVXX %DGESVXX) - ("DGETC2" "dgetc2_" %%DGETC2 %DGETC2) - ("DGETF2" "dgetf2_" %%DGETF2 %DGETF2) - ("DGETRF" "dgetrf_" %%DGETRF %DGETRF) - ("DGETRF2" "dgetrf2_" %%DGETRF2 %DGETRF2) - ("DGETRI" "dgetri_" %%DGETRI %DGETRI) - ("DGETRS" "dgetrs_" %%DGETRS %DGETRS) - ("DGETSLS" "dgetsls_" %%DGETSLS %DGETSLS) - ("DGGBAK" "dggbak_" %%DGGBAK %DGGBAK) - ("DGGBAL" "dggbal_" %%DGGBAL %DGGBAL) - ("DGGES" "dgges_" %%DGGES %DGGES) - ("DGGES3" "dgges3_" %%DGGES3 %DGGES3) - ("DGGESX" "dggesx_" %%DGGESX %DGGESX) - ("DGGEV" "dggev_" %%DGGEV %DGGEV) - ("DGGEV3" "dggev3_" %%DGGEV3 %DGGEV3) - ("DGGEVX" "dggevx_" %%DGGEVX %DGGEVX) - ("DGGGLM" "dggglm_" %%DGGGLM %DGGGLM) - ("DGGHD3" "dgghd3_" %%DGGHD3 %DGGHD3) - ("DGGHRD" "dgghrd_" %%DGGHRD %DGGHRD) - ("DGGLSE" "dgglse_" %%DGGLSE %DGGLSE) - ("DGGQRF" "dggqrf_" %%DGGQRF %DGGQRF) - ("DGGRQF" "dggrqf_" %%DGGRQF %DGGRQF) - ("DGGSVD3" "dggsvd3_" %%DGGSVD3 %DGGSVD3) - ("DGGSVP3" "dggsvp3_" %%DGGSVP3 %DGGSVP3) - ("DGSVJ0" "dgsvj0_" %%DGSVJ0 %DGSVJ0) - ("DGSVJ1" "dgsvj1_" %%DGSVJ1 %DGSVJ1) - ("DGTCON" "dgtcon_" %%DGTCON %DGTCON) - ("DGTRFS" "dgtrfs_" %%DGTRFS %DGTRFS) - ("DGTSV" "dgtsv_" %%DGTSV %DGTSV) - ("DGTSVX" "dgtsvx_" %%DGTSVX %DGTSVX) - ("DGTTRF" "dgttrf_" %%DGTTRF %DGTTRF) - ("DGTTRS" "dgttrs_" %%DGTTRS %DGTTRS) - ("DGTTS2" "dgtts2_" %%DGTTS2 %DGTTS2) - ("DHGEQZ" "dhgeqz_" %%DHGEQZ %DHGEQZ) - ("DHSEIN" "dhsein_" %%DHSEIN %DHSEIN) - ("DHSEQR" "dhseqr_" %%DHSEQR %DHSEQR) - ("DISNAN" "disnan_" %%DISNAN %DISNAN) - ("DLA_GBAMV" "dla_gbamv_" %%DLA_GBAMV %DLA_GBAMV) - ("DLA_GBRCOND" "dla_gbrcond_" %%DLA_GBRCOND %DLA_GBRCOND) - ("DLA_GBRFSX_EXTENDED" "dla_gbrfsx_extended_" - %%DLA_GBRFSX_EXTENDED %DLA_GBRFSX_EXTENDED) - ("DLA_GBRPVGRW" "dla_gbrpvgrw_" %%DLA_GBRPVGRW - %DLA_GBRPVGRW) - ("DLA_GEAMV" "dla_geamv_" %%DLA_GEAMV %DLA_GEAMV) - ("DLA_GERCOND" "dla_gercond_" %%DLA_GERCOND %DLA_GERCOND) - ("DLA_GERFSX_EXTENDED" "dla_gerfsx_extended_" - %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED) - ("DLA_GERPVGRW" "dla_gerpvgrw_" %%DLA_GERPVGRW - %DLA_GERPVGRW) - ("DLA_LIN_BERR" "dla_lin_berr_" %%DLA_LIN_BERR - %DLA_LIN_BERR) - ("DLA_PORCOND" "dla_porcond_" %%DLA_PORCOND %DLA_PORCOND) - ("DLA_PORFSX_EXTENDED" "dla_porfsx_extended_" - %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED) - ("DLA_PORPVGRW" "dla_porpvgrw_" %%DLA_PORPVGRW - %DLA_PORPVGRW) - ("DLA_SYAMV" "dla_syamv_" %%DLA_SYAMV %DLA_SYAMV) - ("DLA_SYRCOND" "dla_syrcond_" %%DLA_SYRCOND %DLA_SYRCOND) - ("DLA_SYRFSX_EXTENDED" "dla_syrfsx_extended_" - %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED) - ("DLA_SYRPVGRW" "dla_syrpvgrw_" %%DLA_SYRPVGRW - %DLA_SYRPVGRW) - ("DLA_WWADDW" "dla_wwaddw_" %%DLA_WWADDW %DLA_WWADDW) - ("DLABAD" "dlabad_" %%DLABAD %DLABAD) - ("DLABRD" "dlabrd_" %%DLABRD %DLABRD) - ("DLACN2" "dlacn2_" %%DLACN2 %DLACN2) - ("DLACON" "dlacon_" %%DLACON %DLACON) - ("DLACPY" "dlacpy_" %%DLACPY %DLACPY) - ("DLADIV" "dladiv_" %%DLADIV %DLADIV) - ("DLAE2" "dlae2_" %%DLAE2 %DLAE2) - ("DLAEBZ" "dlaebz_" %%DLAEBZ %DLAEBZ) - ("DLAED0" "dlaed0_" %%DLAED0 %DLAED0) - ("DLAED1" "dlaed1_" %%DLAED1 %DLAED1) - ("DLAED2" "dlaed2_" %%DLAED2 %DLAED2) - ("DLAED3" "dlaed3_" %%DLAED3 %DLAED3) - ("DLAED4" "dlaed4_" %%DLAED4 %DLAED4) - ("DLAED5" "dlaed5_" %%DLAED5 %DLAED5) - ("DLAED6" "dlaed6_" %%DLAED6 %DLAED6) - ("DLAED7" "dlaed7_" %%DLAED7 %DLAED7) - ("DLAED8" "dlaed8_" %%DLAED8 %DLAED8) - ("DLAED9" "dlaed9_" %%DLAED9 %DLAED9) - ("DLAEDA" "dlaeda_" %%DLAEDA %DLAEDA) - ("DLAEIN" "dlaein_" %%DLAEIN %DLAEIN) - ("DLAEV2" "dlaev2_" %%DLAEV2 %DLAEV2) - ("DLAEXC" "dlaexc_" %%DLAEXC %DLAEXC) - ("DLAG2" "dlag2_" %%DLAG2 %DLAG2) - ("DLAG2S" "dlag2s_" %%DLAG2S %DLAG2S) - ("DLAGS2" "dlags2_" %%DLAGS2 %DLAGS2) - ("DLAGTF" "dlagtf_" %%DLAGTF %DLAGTF) - ("DLAGTM" "dlagtm_" %%DLAGTM %DLAGTM) - ("DLAGTS" "dlagts_" %%DLAGTS %DLAGTS) - ("DLAGV2" "dlagv2_" %%DLAGV2 %DLAGV2) - ("DLAHQR" "dlahqr_" %%DLAHQR %DLAHQR) - ("DLAHR2" "dlahr2_" %%DLAHR2 %DLAHR2) - ("DLAIC1" "dlaic1_" %%DLAIC1 %DLAIC1) - ("DLAISNAN" "dlaisnan_" %%DLAISNAN %DLAISNAN) - ("DLALN2" "dlaln2_" %%DLALN2 %DLALN2) - ("DLALS0" "dlals0_" %%DLALS0 %DLALS0) - ("DLALSA" "dlalsa_" %%DLALSA %DLALSA) - ("DLALSD" "dlalsd_" %%DLALSD %DLALSD) - ("DLAMRG" "dlamrg_" %%DLAMRG %DLAMRG) - ("DLAMSWLQ" "dlamswlq_" %%DLAMSWLQ %DLAMSWLQ) - ("DLAMTSQR" "dlamtsqr_" %%DLAMTSQR %DLAMTSQR) - ("DLANEG" "dlaneg_" %%DLANEG %DLANEG) - ("DLANGB" "dlangb_" %%DLANGB %DLANGB) - ("DLANGE" "dlange_" %%DLANGE %DLANGE) - ("DLANGT" "dlangt_" %%DLANGT %DLANGT) - ("DLANHS" "dlanhs_" %%DLANHS %DLANHS) - ("DLANSB" "dlansb_" %%DLANSB %DLANSB) - ("DLANSF" "dlansf_" %%DLANSF %DLANSF) - ("DLANSP" "dlansp_" %%DLANSP %DLANSP) - ("DLANST" "dlanst_" %%DLANST %DLANST) - ("DLANSY" "dlansy_" %%DLANSY %DLANSY) - ("DLANTB" "dlantb_" %%DLANTB %DLANTB) - ("DLANTP" "dlantp_" %%DLANTP %DLANTP) - ("DLANTR" "dlantr_" %%DLANTR %DLANTR) - ("DLANV2" "dlanv2_" %%DLANV2 %DLANV2) - ("DLAPLL" "dlapll_" %%DLAPLL %DLAPLL) - ("DLAPMR" "dlapmr_" %%DLAPMR %DLAPMR) - ("DLAPMT" "dlapmt_" %%DLAPMT %DLAPMT) - ("DLAPY2" "dlapy2_" %%DLAPY2 %DLAPY2) - ("DLAPY3" "dlapy3_" %%DLAPY3 %DLAPY3) - ("DLAQGB" "dlaqgb_" %%DLAQGB %DLAQGB) - ("DLAQGE" "dlaqge_" %%DLAQGE %DLAQGE) - ("DLAQP2" "dlaqp2_" %%DLAQP2 %DLAQP2) - ("DLAQPS" "dlaqps_" %%DLAQPS %DLAQPS) - ("DLAQR0" "dlaqr0_" %%DLAQR0 %DLAQR0) - ("DLAQR1" "dlaqr1_" %%DLAQR1 %DLAQR1) - ("DLAQR2" "dlaqr2_" %%DLAQR2 %DLAQR2) - ("DLAQR3" "dlaqr3_" %%DLAQR3 %DLAQR3) - ("DLAQR4" "dlaqr4_" %%DLAQR4 %DLAQR4) - ("DLAQR5" "dlaqr5_" %%DLAQR5 %DLAQR5) - ("DLAQSB" "dlaqsb_" %%DLAQSB %DLAQSB) - ("DLAQSP" "dlaqsp_" %%DLAQSP %DLAQSP) - ("DLAQSY" "dlaqsy_" %%DLAQSY %DLAQSY) - ("DLAQTR" "dlaqtr_" %%DLAQTR %DLAQTR) - ("DLAR1V" "dlar1v_" %%DLAR1V %DLAR1V) - ("DLAR2V" "dlar2v_" %%DLAR2V %DLAR2V) - ("DLARF" "dlarf_" %%DLARF %DLARF) - ("DLARFB" "dlarfb_" %%DLARFB %DLARFB) - ("DLARFG" "dlarfg_" %%DLARFG %DLARFG) - ("DLARFGP" "dlarfgp_" %%DLARFGP %DLARFGP) - ("DLARFT" "dlarft_" %%DLARFT %DLARFT) - ("DLARFX" "dlarfx_" %%DLARFX %DLARFX) - ("DLARFY" "dlarfy_" %%DLARFY %DLARFY) - ("DLARGV" "dlargv_" %%DLARGV %DLARGV) - ("DLARNV" "dlarnv_" %%DLARNV %DLARNV) - ("DLARRA" "dlarra_" %%DLARRA %DLARRA) - ("DLARRB" "dlarrb_" %%DLARRB %DLARRB) - ("DLARRC" "dlarrc_" %%DLARRC %DLARRC) - ("DLARRD" "dlarrd_" %%DLARRD %DLARRD) - ("DLARRE" "dlarre_" %%DLARRE %DLARRE) - ("DLARRF" "dlarrf_" %%DLARRF %DLARRF) - ("DLARRJ" "dlarrj_" %%DLARRJ %DLARRJ) - ("DLARRK" "dlarrk_" %%DLARRK %DLARRK) - ("DLARRR" "dlarrr_" %%DLARRR %DLARRR) - ("DLARRV" "dlarrv_" %%DLARRV %DLARRV) - ("DLARSCL2" "dlarscl2_" %%DLARSCL2 %DLARSCL2) - ("DLARTG" "dlartg_" %%DLARTG %DLARTG) - ("DLARTGP" "dlartgp_" %%DLARTGP %DLARTGP) - ("DLARTGS" "dlartgs_" %%DLARTGS %DLARTGS) - ("DLARTV" "dlartv_" %%DLARTV %DLARTV) - ("DLARUV" "dlaruv_" %%DLARUV %DLARUV) - ("DLARZ" "dlarz_" %%DLARZ %DLARZ) - ("DLARZB" "dlarzb_" %%DLARZB %DLARZB) - ("DLARZT" "dlarzt_" %%DLARZT %DLARZT) - ("DLAS2" "dlas2_" %%DLAS2 %DLAS2) - ("DLASCL" "dlascl_" %%DLASCL %DLASCL) - ("DLASCL2" "dlascl2_" %%DLASCL2 %DLASCL2) - ("DLASD0" "dlasd0_" %%DLASD0 %DLASD0) - ("DLASD1" "dlasd1_" %%DLASD1 %DLASD1) - ("DLASD2" "dlasd2_" %%DLASD2 %DLASD2) - ("DLASD3" "dlasd3_" %%DLASD3 %DLASD3) - ("DLASD4" "dlasd4_" %%DLASD4 %DLASD4) - ("DLASD5" "dlasd5_" %%DLASD5 %DLASD5) - ("DLASD6" "dlasd6_" %%DLASD6 %DLASD6) - ("DLASD7" "dlasd7_" %%DLASD7 %DLASD7) - ("DLASD8" "dlasd8_" %%DLASD8 %DLASD8) - ("DLASDA" "dlasda_" %%DLASDA %DLASDA) - ("DLASDQ" "dlasdq_" %%DLASDQ %DLASDQ) - ("DLASDT" "dlasdt_" %%DLASDT %DLASDT) - ("DLASET" "dlaset_" %%DLASET %DLASET) - ("DLASQ1" "dlasq1_" %%DLASQ1 %DLASQ1) - ("DLASQ2" "dlasq2_" %%DLASQ2 %DLASQ2) - ("DLASQ3" "dlasq3_" %%DLASQ3 %DLASQ3) - ("DLASQ4" "dlasq4_" %%DLASQ4 %DLASQ4) - ("DLASQ5" "dlasq5_" %%DLASQ5 %DLASQ5) - ("DLASQ6" "dlasq6_" %%DLASQ6 %DLASQ6) - ("DLASR" "dlasr_" %%DLASR %DLASR) - ("DLASRT" "dlasrt_" %%DLASRT %DLASRT) - ("DLASSQ" "dlassq_" %%DLASSQ %DLASSQ) - ("DLASV2" "dlasv2_" %%DLASV2 %DLASV2) - ("DLASWLQ" "dlaswlq_" %%DLASWLQ %DLASWLQ))) + %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAORHR_COL_GETRFNP + %DLAORHR_COL_GETRFNP %%DLAORHR_COL_GETRFNP2 %DLAORHR_COL_GETRFNP2 %%DLAPLL + %DLAPLL %%DLAPMR %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3 + %%DLAQGB %DLAQGB %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0 + %DLAQR0 %%DLAQR1 %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4 + %%DLAQR5 %DLAQR5 %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR + %DLAQTR %%DLAR1V %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB + %%DLARFG %DLARFG %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX + %%DLARFY %DLARFY %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB + %DLARRB %%DLARRC %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF + %%DLARRJ %DLARRJ %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV + %%DLARSCL2 %DLARSCL2 %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS + %%DLARTV %DLARTV %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT + %DLARZT %%DLAS2 %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0 + %%DLASD1 %DLASD1 %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5 + %DLASD5 %%DLASD6 %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA + %%DLASDQ %DLASDQ %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2 + %DLASQ2 %%DLASQ3 %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6 + %%DLASR %DLASR %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ + %DLASWLQ)) + +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK + '(("DGBBRD" "dgbbrd_" %%DGBBRD %DGBBRD) + ("DGBCON" "dgbcon_" %%DGBCON %DGBCON) + ("DGBEQU" "dgbequ_" %%DGBEQU %DGBEQU) + ("DGBEQUB" "dgbequb_" %%DGBEQUB + %DGBEQUB) + ("DGBRFS" "dgbrfs_" %%DGBRFS %DGBRFS) + ("DGBRFSX" "dgbrfsx_" %%DGBRFSX + %DGBRFSX) + ("DGBSV" "dgbsv_" %%DGBSV %DGBSV) + ("DGBSVX" "dgbsvx_" %%DGBSVX %DGBSVX) + ("DGBSVXX" "dgbsvxx_" %%DGBSVXX + %DGBSVXX) + ("DGBTF2" "dgbtf2_" %%DGBTF2 %DGBTF2) + ("DGBTRF" "dgbtrf_" %%DGBTRF %DGBTRF) + ("DGBTRS" "dgbtrs_" %%DGBTRS %DGBTRS) + ("DGEBAK" "dgebak_" %%DGEBAK %DGEBAK) + ("DGEBAL" "dgebal_" %%DGEBAL %DGEBAL) + ("DGEBD2" "dgebd2_" %%DGEBD2 %DGEBD2) + ("DGEBRD" "dgebrd_" %%DGEBRD %DGEBRD) + ("DGECON" "dgecon_" %%DGECON %DGECON) + ("DGEEQU" "dgeequ_" %%DGEEQU %DGEEQU) + ("DGEEQUB" "dgeequb_" %%DGEEQUB + %DGEEQUB) + ("DGEES" "dgees_" %%DGEES %DGEES) + ("DGEESX" "dgeesx_" %%DGEESX %DGEESX) + ("DGEEV" "dgeev_" %%DGEEV %DGEEV) + ("DGEEVX" "dgeevx_" %%DGEEVX %DGEEVX) + ("DGEHD2" "dgehd2_" %%DGEHD2 %DGEHD2) + ("DGEHRD" "dgehrd_" %%DGEHRD %DGEHRD) + ("DGEJSV" "dgejsv_" %%DGEJSV %DGEJSV) + ("DGELQ" "dgelq_" %%DGELQ %DGELQ) + ("DGELQ2" "dgelq2_" %%DGELQ2 %DGELQ2) + ("DGELQF" "dgelqf_" %%DGELQF %DGELQF) + ("DGELQT" "dgelqt_" %%DGELQT %DGELQT) + ("DGELQT3" "dgelqt3_" %%DGELQT3 + %DGELQT3) + ("DGELS" "dgels_" %%DGELS %DGELS) + ("DGELSD" "dgelsd_" %%DGELSD %DGELSD) + ("DGELSS" "dgelss_" %%DGELSS %DGELSS) + ("DGELSY" "dgelsy_" %%DGELSY %DGELSY) + ("DGEMLQ" "dgemlq_" %%DGEMLQ %DGEMLQ) + ("DGEMLQT" "dgemlqt_" %%DGEMLQT + %DGEMLQT) + ("DGEMQR" "dgemqr_" %%DGEMQR %DGEMQR) + ("DGEMQRT" "dgemqrt_" %%DGEMQRT + %DGEMQRT) + ("DGEQL2" "dgeql2_" %%DGEQL2 %DGEQL2) + ("DGEQLF" "dgeqlf_" %%DGEQLF %DGEQLF) + ("DGEQP3" "dgeqp3_" %%DGEQP3 %DGEQP3) + ("DGEQR" "dgeqr_" %%DGEQR %DGEQR) + ("DGEQR2" "dgeqr2_" %%DGEQR2 %DGEQR2) + ("DGEQR2P" "dgeqr2p_" %%DGEQR2P + %DGEQR2P) + ("DGEQRF" "dgeqrf_" %%DGEQRF %DGEQRF) + ("DGEQRFP" "dgeqrfp_" %%DGEQRFP + %DGEQRFP) + ("DGEQRT" "dgeqrt_" %%DGEQRT %DGEQRT) + ("DGEQRT2" "dgeqrt2_" %%DGEQRT2 + %DGEQRT2) + ("DGEQRT3" "dgeqrt3_" %%DGEQRT3 + %DGEQRT3) + ("DGERFS" "dgerfs_" %%DGERFS %DGERFS) + ("DGERFSX" "dgerfsx_" %%DGERFSX + %DGERFSX) + ("DGERQ2" "dgerq2_" %%DGERQ2 %DGERQ2) + ("DGERQF" "dgerqf_" %%DGERQF %DGERQF) + ("DGESC2" "dgesc2_" %%DGESC2 %DGESC2) + ("DGESDD" "dgesdd_" %%DGESDD %DGESDD) + ("DGESV" "dgesv_" %%DGESV %DGESV) + ("DGESVD" "dgesvd_" %%DGESVD %DGESVD) + ("DGESVDQ" "dgesvdq_" %%DGESVDQ + %DGESVDQ) + ("DGESVDX" "dgesvdx_" %%DGESVDX + %DGESVDX) + ("DGESVJ" "dgesvj_" %%DGESVJ %DGESVJ) + ("DGESVX" "dgesvx_" %%DGESVX %DGESVX) + ("DGESVXX" "dgesvxx_" %%DGESVXX + %DGESVXX) + ("DGETC2" "dgetc2_" %%DGETC2 %DGETC2) + ("DGETF2" "dgetf2_" %%DGETF2 %DGETF2) + ("DGETRF" "dgetrf_" %%DGETRF %DGETRF) + ("DGETRF2" "dgetrf2_" %%DGETRF2 + %DGETRF2) + ("DGETRI" "dgetri_" %%DGETRI %DGETRI) + ("DGETRS" "dgetrs_" %%DGETRS %DGETRS) + ("DGETSLS" "dgetsls_" %%DGETSLS + %DGETSLS) + ("DGGBAK" "dggbak_" %%DGGBAK %DGGBAK) + ("DGGBAL" "dggbal_" %%DGGBAL %DGGBAL) + ("DGGES" "dgges_" %%DGGES %DGGES) + ("DGGES3" "dgges3_" %%DGGES3 %DGGES3) + ("DGGESX" "dggesx_" %%DGGESX %DGGESX) + ("DGGEV" "dggev_" %%DGGEV %DGGEV) + ("DGGEV3" "dggev3_" %%DGGEV3 %DGGEV3) + ("DGGEVX" "dggevx_" %%DGGEVX %DGGEVX) + ("DGGGLM" "dggglm_" %%DGGGLM %DGGGLM) + ("DGGHD3" "dgghd3_" %%DGGHD3 %DGGHD3) + ("DGGHRD" "dgghrd_" %%DGGHRD %DGGHRD) + ("DGGLSE" "dgglse_" %%DGGLSE %DGGLSE) + ("DGGQRF" "dggqrf_" %%DGGQRF %DGGQRF) + ("DGGRQF" "dggrqf_" %%DGGRQF %DGGRQF) + ("DGGSVD3" "dggsvd3_" %%DGGSVD3 + %DGGSVD3) + ("DGGSVP3" "dggsvp3_" %%DGGSVP3 + %DGGSVP3) + ("DGSVJ0" "dgsvj0_" %%DGSVJ0 %DGSVJ0) + ("DGSVJ1" "dgsvj1_" %%DGSVJ1 %DGSVJ1) + ("DGTCON" "dgtcon_" %%DGTCON %DGTCON) + ("DGTRFS" "dgtrfs_" %%DGTRFS %DGTRFS) + ("DGTSV" "dgtsv_" %%DGTSV %DGTSV) + ("DGTSVX" "dgtsvx_" %%DGTSVX %DGTSVX) + ("DGTTRF" "dgttrf_" %%DGTTRF %DGTTRF) + ("DGTTRS" "dgttrs_" %%DGTTRS %DGTTRS) + ("DGTTS2" "dgtts2_" %%DGTTS2 %DGTTS2) + ("DHGEQZ" "dhgeqz_" %%DHGEQZ %DHGEQZ) + ("DHSEIN" "dhsein_" %%DHSEIN %DHSEIN) + ("DHSEQR" "dhseqr_" %%DHSEQR %DHSEQR) + ("DISNAN" "disnan_" %%DISNAN %DISNAN) + ("DLA_GBAMV" "dla_gbamv_" %%DLA_GBAMV + %DLA_GBAMV) + ("DLA_GBRCOND" "dla_gbrcond_" + %%DLA_GBRCOND %DLA_GBRCOND) + ("DLA_GBRFSX_EXTENDED" + "dla_gbrfsx_extended_" + %%DLA_GBRFSX_EXTENDED + %DLA_GBRFSX_EXTENDED) + ("DLA_GBRPVGRW" "dla_gbrpvgrw_" + %%DLA_GBRPVGRW %DLA_GBRPVGRW) + ("DLA_GEAMV" "dla_geamv_" %%DLA_GEAMV + %DLA_GEAMV) + ("DLA_GERCOND" "dla_gercond_" + %%DLA_GERCOND %DLA_GERCOND) + ("DLA_GERFSX_EXTENDED" + "dla_gerfsx_extended_" + %%DLA_GERFSX_EXTENDED + %DLA_GERFSX_EXTENDED) + ("DLA_GERPVGRW" "dla_gerpvgrw_" + %%DLA_GERPVGRW %DLA_GERPVGRW) + ("DLA_LIN_BERR" "dla_lin_berr_" + %%DLA_LIN_BERR %DLA_LIN_BERR) + ("DLA_PORCOND" "dla_porcond_" + %%DLA_PORCOND %DLA_PORCOND) + ("DLA_PORFSX_EXTENDED" + "dla_porfsx_extended_" + %%DLA_PORFSX_EXTENDED + %DLA_PORFSX_EXTENDED) + ("DLA_PORPVGRW" "dla_porpvgrw_" + %%DLA_PORPVGRW %DLA_PORPVGRW) + ("DLA_SYAMV" "dla_syamv_" %%DLA_SYAMV + %DLA_SYAMV) + ("DLA_SYRCOND" "dla_syrcond_" + %%DLA_SYRCOND %DLA_SYRCOND) + ("DLA_SYRFSX_EXTENDED" + "dla_syrfsx_extended_" + %%DLA_SYRFSX_EXTENDED + %DLA_SYRFSX_EXTENDED) + ("DLA_SYRPVGRW" "dla_syrpvgrw_" + %%DLA_SYRPVGRW %DLA_SYRPVGRW) + ("DLA_WWADDW" "dla_wwaddw_" + %%DLA_WWADDW %DLA_WWADDW) + ("DLABAD" "dlabad_" %%DLABAD %DLABAD) + ("DLABRD" "dlabrd_" %%DLABRD %DLABRD) + ("DLACN2" "dlacn2_" %%DLACN2 %DLACN2) + ("DLACON" "dlacon_" %%DLACON %DLACON) + ("DLACPY" "dlacpy_" %%DLACPY %DLACPY) + ("DLADIV" "dladiv_" %%DLADIV %DLADIV) + ("DLAE2" "dlae2_" %%DLAE2 %DLAE2) + ("DLAEBZ" "dlaebz_" %%DLAEBZ %DLAEBZ) + ("DLAED0" "dlaed0_" %%DLAED0 %DLAED0) + ("DLAED1" "dlaed1_" %%DLAED1 %DLAED1) + ("DLAED2" "dlaed2_" %%DLAED2 %DLAED2) + ("DLAED3" "dlaed3_" %%DLAED3 %DLAED3) + ("DLAED4" "dlaed4_" %%DLAED4 %DLAED4) + ("DLAED5" "dlaed5_" %%DLAED5 %DLAED5) + ("DLAED6" "dlaed6_" %%DLAED6 %DLAED6) + ("DLAED7" "dlaed7_" %%DLAED7 %DLAED7) + ("DLAED8" "dlaed8_" %%DLAED8 %DLAED8) + ("DLAED9" "dlaed9_" %%DLAED9 %DLAED9) + ("DLAEDA" "dlaeda_" %%DLAEDA %DLAEDA) + ("DLAEIN" "dlaein_" %%DLAEIN %DLAEIN) + ("DLAEV2" "dlaev2_" %%DLAEV2 %DLAEV2) + ("DLAEXC" "dlaexc_" %%DLAEXC %DLAEXC) + ("DLAG2" "dlag2_" %%DLAG2 %DLAG2) + ("DLAG2S" "dlag2s_" %%DLAG2S %DLAG2S) + ("DLAGS2" "dlags2_" %%DLAGS2 %DLAGS2) + ("DLAGTF" "dlagtf_" %%DLAGTF %DLAGTF) + ("DLAGTM" "dlagtm_" %%DLAGTM %DLAGTM) + ("DLAGTS" "dlagts_" %%DLAGTS %DLAGTS) + ("DLAGV2" "dlagv2_" %%DLAGV2 %DLAGV2) + ("DLAHQR" "dlahqr_" %%DLAHQR %DLAHQR) + ("DLAHR2" "dlahr2_" %%DLAHR2 %DLAHR2) + ("DLAIC1" "dlaic1_" %%DLAIC1 %DLAIC1) + ("DLAISNAN" "dlaisnan_" %%DLAISNAN + %DLAISNAN) + ("DLALN2" "dlaln2_" %%DLALN2 %DLALN2) + ("DLALS0" "dlals0_" %%DLALS0 %DLALS0) + ("DLALSA" "dlalsa_" %%DLALSA %DLALSA) + ("DLALSD" "dlalsd_" %%DLALSD %DLALSD) + ("DLAMRG" "dlamrg_" %%DLAMRG %DLAMRG) + ("DLAMSWLQ" "dlamswlq_" %%DLAMSWLQ + %DLAMSWLQ) + ("DLAMTSQR" "dlamtsqr_" %%DLAMTSQR + %DLAMTSQR) + ("DLANEG" "dlaneg_" %%DLANEG %DLANEG) + ("DLANGB" "dlangb_" %%DLANGB %DLANGB) + ("DLANGE" "dlange_" %%DLANGE %DLANGE) + ("DLANGT" "dlangt_" %%DLANGT %DLANGT) + ("DLANHS" "dlanhs_" %%DLANHS %DLANHS) + ("DLANSB" "dlansb_" %%DLANSB %DLANSB) + ("DLANSF" "dlansf_" %%DLANSF %DLANSF) + ("DLANSP" "dlansp_" %%DLANSP %DLANSP) + ("DLANST" "dlanst_" %%DLANST %DLANST) + ("DLANSY" "dlansy_" %%DLANSY %DLANSY) + ("DLANTB" "dlantb_" %%DLANTB %DLANTB) + ("DLANTP" "dlantp_" %%DLANTP %DLANTP) + ("DLANTR" "dlantr_" %%DLANTR %DLANTR) + ("DLANV2" "dlanv2_" %%DLANV2 %DLANV2) + ("DLAORHR_COL_GETRFNP" + "dlaorhr_col_getrfnp_" + %%DLAORHR_COL_GETRFNP + %DLAORHR_COL_GETRFNP) + ("DLAORHR_COL_GETRFNP2" + "dlaorhr_col_getrfnp2_" + %%DLAORHR_COL_GETRFNP2 + %DLAORHR_COL_GETRFNP2) + ("DLAPLL" "dlapll_" %%DLAPLL %DLAPLL) + ("DLAPMR" "dlapmr_" %%DLAPMR %DLAPMR) + ("DLAPMT" "dlapmt_" %%DLAPMT %DLAPMT) + ("DLAPY2" "dlapy2_" %%DLAPY2 %DLAPY2) + ("DLAPY3" "dlapy3_" %%DLAPY3 %DLAPY3) + ("DLAQGB" "dlaqgb_" %%DLAQGB %DLAQGB) + ("DLAQGE" "dlaqge_" %%DLAQGE %DLAQGE) + ("DLAQP2" "dlaqp2_" %%DLAQP2 %DLAQP2) + ("DLAQPS" "dlaqps_" %%DLAQPS %DLAQPS) + ("DLAQR0" "dlaqr0_" %%DLAQR0 %DLAQR0) + ("DLAQR1" "dlaqr1_" %%DLAQR1 %DLAQR1) + ("DLAQR2" "dlaqr2_" %%DLAQR2 %DLAQR2) + ("DLAQR3" "dlaqr3_" %%DLAQR3 %DLAQR3) + ("DLAQR4" "dlaqr4_" %%DLAQR4 %DLAQR4) + ("DLAQR5" "dlaqr5_" %%DLAQR5 %DLAQR5) + ("DLAQSB" "dlaqsb_" %%DLAQSB %DLAQSB) + ("DLAQSP" "dlaqsp_" %%DLAQSP %DLAQSP) + ("DLAQSY" "dlaqsy_" %%DLAQSY %DLAQSY) + ("DLAQTR" "dlaqtr_" %%DLAQTR %DLAQTR) + ("DLAR1V" "dlar1v_" %%DLAR1V %DLAR1V) + ("DLAR2V" "dlar2v_" %%DLAR2V %DLAR2V) + ("DLARF" "dlarf_" %%DLARF %DLARF) + ("DLARFB" "dlarfb_" %%DLARFB %DLARFB) + ("DLARFG" "dlarfg_" %%DLARFG %DLARFG) + ("DLARFGP" "dlarfgp_" %%DLARFGP + %DLARFGP) + ("DLARFT" "dlarft_" %%DLARFT %DLARFT) + ("DLARFX" "dlarfx_" %%DLARFX %DLARFX) + ("DLARFY" "dlarfy_" %%DLARFY %DLARFY) + ("DLARGV" "dlargv_" %%DLARGV %DLARGV) + ("DLARNV" "dlarnv_" %%DLARNV %DLARNV) + ("DLARRA" "dlarra_" %%DLARRA %DLARRA) + ("DLARRB" "dlarrb_" %%DLARRB %DLARRB) + ("DLARRC" "dlarrc_" %%DLARRC %DLARRC) + ("DLARRD" "dlarrd_" %%DLARRD %DLARRD) + ("DLARRE" "dlarre_" %%DLARRE %DLARRE) + ("DLARRF" "dlarrf_" %%DLARRF %DLARRF) + ("DLARRJ" "dlarrj_" %%DLARRJ %DLARRJ) + ("DLARRK" "dlarrk_" %%DLARRK %DLARRK) + ("DLARRR" "dlarrr_" %%DLARRR %DLARRR) + ("DLARRV" "dlarrv_" %%DLARRV %DLARRV) + ("DLARSCL2" "dlarscl2_" %%DLARSCL2 + %DLARSCL2) + ("DLARTG" "dlartg_" %%DLARTG %DLARTG) + ("DLARTGP" "dlartgp_" %%DLARTGP + %DLARTGP) + ("DLARTGS" "dlartgs_" %%DLARTGS + %DLARTGS) + ("DLARTV" "dlartv_" %%DLARTV %DLARTV) + ("DLARUV" "dlaruv_" %%DLARUV %DLARUV) + ("DLARZ" "dlarz_" %%DLARZ %DLARZ) + ("DLARZB" "dlarzb_" %%DLARZB %DLARZB) + ("DLARZT" "dlarzt_" %%DLARZT %DLARZT) + ("DLAS2" "dlas2_" %%DLAS2 %DLAS2) + ("DLASCL" "dlascl_" %%DLASCL %DLASCL) + ("DLASCL2" "dlascl2_" %%DLASCL2 + %DLASCL2) + ("DLASD0" "dlasd0_" %%DLASD0 %DLASD0) + ("DLASD1" "dlasd1_" %%DLASD1 %DLASD1) + ("DLASD2" "dlasd2_" %%DLASD2 %DLASD2) + ("DLASD3" "dlasd3_" %%DLASD3 %DLASD3) + ("DLASD4" "dlasd4_" %%DLASD4 %DLASD4) + ("DLASD5" "dlasd5_" %%DLASD5 %DLASD5) + ("DLASD6" "dlasd6_" %%DLASD6 %DLASD6) + ("DLASD7" "dlasd7_" %%DLASD7 %DLASD7) + ("DLASD8" "dlasd8_" %%DLASD8 %DLASD8) + ("DLASDA" "dlasda_" %%DLASDA %DLASDA) + ("DLASDQ" "dlasdq_" %%DLASDQ %DLASDQ) + ("DLASDT" "dlasdt_" %%DLASDT %DLASDT) + ("DLASET" "dlaset_" %%DLASET %DLASET) + ("DLASQ1" "dlasq1_" %%DLASQ1 %DLASQ1) + ("DLASQ2" "dlasq2_" %%DLASQ2 %DLASQ2) + ("DLASQ3" "dlasq3_" %%DLASQ3 %DLASQ3) + ("DLASQ4" "dlasq4_" %%DLASQ4 %DLASQ4) + ("DLASQ5" "dlasq5_" %%DLASQ5 %DLASQ5) + ("DLASQ6" "dlasq6_" %%DLASQ6 %DLASQ6) + ("DLASR" "dlasr_" %%DLASR %DLASR) + ("DLASRT" "dlasrt_" %%DLASRT %DLASRT) + ("DLASSQ" "dlassq_" %%DLASSQ %DLASSQ) + ("DLASV2" "dlasv2_" %%DLASV2 %DLASV2) + ("DLASWLQ" "dlaswlq_" %%DLASWLQ + %DLASWLQ))) (COMMON-LISP:EXPORT '(%DGBBRD %DGBCON %DGBEQU %DGBEQUB %DGBRFS %DGBRFSX %DGBSV %DGBSVX %DGBSVXX - %DGBTF2 %DGBTRF %DGBTRS %DGEBAK %DGEBAL %DGEBD2 %DGEBRD %DGECON - %DGEEQU %DGEEQUB %DGEES %DGEESX %DGEEV %DGEEVX %DGEHD2 %DGEHRD - %DGEJSV %DGELQ %DGELQ2 %DGELQF %DGELQT %DGELQT3 %DGELS %DGELSD - %DGELSS %DGELSY %DGEMLQ %DGEMLQT %DGEMQR %DGEMQRT %DGEQL2 %DGEQLF - %DGEQP3 %DGEQR %DGEQR2 %DGEQR2P %DGEQRF %DGEQRFP %DGEQRT %DGEQRT2 - %DGEQRT3 %DGERFS %DGERFSX %DGERQ2 %DGERQF %DGESC2 %DGESDD %DGESV - %DGESVD %DGESVDQ %DGESVDX %DGESVJ %DGESVX %DGESVXX %DGETC2 %DGETF2 - %DGETRF %DGETRF2 %DGETRI %DGETRS %DGETSLS %DGGBAK %DGGBAL %DGGES - %DGGES3 %DGGESX %DGGEV %DGGEV3 %DGGEVX %DGGGLM %DGGHD3 %DGGHRD - %DGGLSE %DGGQRF %DGGRQF %DGGSVD3 %DGGSVP3 %DGSVJ0 %DGSVJ1 %DGTCON - %DGTRFS %DGTSV %DGTSVX %DGTTRF %DGTTRS %DGTTS2 %DHGEQZ %DHSEIN - %DHSEQR %DISNAN %DLA_GBAMV %DLA_GBRCOND %DLA_GBRFSX_EXTENDED - %DLA_GBRPVGRW %DLA_GEAMV %DLA_GERCOND %DLA_GERFSX_EXTENDED - %DLA_GERPVGRW %DLA_LIN_BERR %DLA_PORCOND %DLA_PORFSX_EXTENDED - %DLA_PORPVGRW %DLA_SYAMV %DLA_SYRCOND %DLA_SYRFSX_EXTENDED - %DLA_SYRPVGRW %DLA_WWADDW %DLABAD %DLABRD %DLACN2 %DLACON %DLACPY - %DLADIV %DLAE2 %DLAEBZ %DLAED0 %DLAED1 %DLAED2 %DLAED3 %DLAED4 - %DLAED5 %DLAED6 %DLAED7 %DLAED8 %DLAED9 %DLAEDA %DLAEIN %DLAEV2 - %DLAEXC %DLAG2 %DLAG2S %DLAGS2 %DLAGTF %DLAGTM %DLAGTS %DLAGV2 - %DLAHQR %DLAHR2 %DLAIC1 %DLAISNAN %DLALN2 %DLALS0 %DLALSA %DLALSD - %DLAMRG %DLAMSWLQ %DLAMTSQR %DLANEG %DLANGB %DLANGE %DLANGT %DLANHS - %DLANSB %DLANSF %DLANSP %DLANST %DLANSY %DLANTB %DLANTP %DLANTR - %DLANV2 %DLAPLL %DLAPMR %DLAPMT %DLAPY2 %DLAPY3 %DLAQGB %DLAQGE - %DLAQP2 %DLAQPS %DLAQR0 %DLAQR1 %DLAQR2 %DLAQR3 %DLAQR4 %DLAQR5 - %DLAQSB %DLAQSP %DLAQSY %DLAQTR %DLAR1V %DLAR2V %DLARF %DLARFB - %DLARFG %DLARFGP %DLARFT %DLARFX %DLARFY %DLARGV %DLARNV %DLARRA - %DLARRB %DLARRC %DLARRD %DLARRE %DLARRF %DLARRJ %DLARRK %DLARRR - %DLARRV %DLARSCL2 %DLARTG %DLARTGP %DLARTGS %DLARTV %DLARUV %DLARZ - %DLARZB %DLARZT %DLAS2 %DLASCL %DLASCL2 %DLASD0 %DLASD1 %DLASD2 - %DLASD3 %DLASD4 %DLASD5 %DLASD6 %DLASD7 %DLASD8 %DLASDA %DLASDQ - %DLASDT %DLASET %DLASQ1 %DLASQ2 %DLASQ3 %DLASQ4 %DLASQ5 %DLASQ6 - %DLASR %DLASRT %DLASSQ %DLASV2 %DLASWLQ) + %DGBTF2 %DGBTRF %DGBTRS %DGEBAK %DGEBAL %DGEBD2 %DGEBRD %DGECON %DGEEQU + %DGEEQUB %DGEES %DGEESX %DGEEV %DGEEVX %DGEHD2 %DGEHRD %DGEJSV %DGELQ + %DGELQ2 %DGELQF %DGELQT %DGELQT3 %DGELS %DGELSD %DGELSS %DGELSY %DGEMLQ + %DGEMLQT %DGEMQR %DGEMQRT %DGEQL2 %DGEQLF %DGEQP3 %DGEQR %DGEQR2 %DGEQR2P + %DGEQRF %DGEQRFP %DGEQRT %DGEQRT2 %DGEQRT3 %DGERFS %DGERFSX %DGERQ2 %DGERQF + %DGESC2 %DGESDD %DGESV %DGESVD %DGESVDQ %DGESVDX %DGESVJ %DGESVX %DGESVXX + %DGETC2 %DGETF2 %DGETRF %DGETRF2 %DGETRI %DGETRS %DGETSLS %DGGBAK %DGGBAL + %DGGES %DGGES3 %DGGESX %DGGEV %DGGEV3 %DGGEVX %DGGGLM %DGGHD3 %DGGHRD + %DGGLSE %DGGQRF %DGGRQF %DGGSVD3 %DGGSVP3 %DGSVJ0 %DGSVJ1 %DGTCON %DGTRFS + %DGTSV %DGTSVX %DGTTRF %DGTTRS %DGTTS2 %DHGEQZ %DHSEIN %DHSEQR %DISNAN + %DLA_GBAMV %DLA_GBRCOND %DLA_GBRFSX_EXTENDED %DLA_GBRPVGRW %DLA_GEAMV + %DLA_GERCOND %DLA_GERFSX_EXTENDED %DLA_GERPVGRW %DLA_LIN_BERR %DLA_PORCOND + %DLA_PORFSX_EXTENDED %DLA_PORPVGRW %DLA_SYAMV %DLA_SYRCOND + %DLA_SYRFSX_EXTENDED %DLA_SYRPVGRW %DLA_WWADDW %DLABAD %DLABRD %DLACN2 + %DLACON %DLACPY %DLADIV %DLAE2 %DLAEBZ %DLAED0 %DLAED1 %DLAED2 %DLAED3 + %DLAED4 %DLAED5 %DLAED6 %DLAED7 %DLAED8 %DLAED9 %DLAEDA %DLAEIN %DLAEV2 + %DLAEXC %DLAG2 %DLAG2S %DLAGS2 %DLAGTF %DLAGTM %DLAGTS %DLAGV2 %DLAHQR + %DLAHR2 %DLAIC1 %DLAISNAN %DLALN2 %DLALS0 %DLALSA %DLALSD %DLAMRG %DLAMSWLQ + %DLAMTSQR %DLANEG %DLANGB %DLANGE %DLANGT %DLANHS %DLANSB %DLANSF %DLANSP + %DLANST %DLANSY %DLANTB %DLANTP %DLANTR %DLANV2 %DLAORHR_COL_GETRFNP + %DLAORHR_COL_GETRFNP2 %DLAPLL %DLAPMR %DLAPMT %DLAPY2 %DLAPY3 %DLAQGB + %DLAQGE %DLAQP2 %DLAQPS %DLAQR0 %DLAQR1 %DLAQR2 %DLAQR3 %DLAQR4 %DLAQR5 + %DLAQSB %DLAQSP %DLAQSY %DLAQTR %DLAR1V %DLAR2V %DLARF %DLARFB %DLARFG + %DLARFGP %DLARFT %DLARFX %DLARFY %DLARGV %DLARNV %DLARRA %DLARRB %DLARRC + %DLARRD %DLARRE %DLARRF %DLARRJ %DLARRK %DLARRR %DLARRV %DLARSCL2 %DLARTG + %DLARTGP %DLARTGS %DLARTV %DLARUV %DLARZ %DLARZB %DLARZT %DLAS2 %DLASCL + %DLASCL2 %DLASD0 %DLASD1 %DLASD2 %DLASD3 %DLASD4 %DLASD5 %DLASD6 %DLASD7 + %DLASD8 %DLASDA %DLASDQ %DLASDT %DLASET %DLASQ1 %DLASQ2 %DLASQ3 %DLASQ4 + %DLASQ5 %DLASQ6 %DLASR %DLASRT %DLASSQ %DLASV2 %DLASWLQ) '#:MAGICL.LAPACK-CFFI) ;;; End of file. diff --git a/src/bindings/lapack03-cffi.lisp b/src/bindings/lapack03-cffi.lisp index 90a9ada8..8809b0c2 100644 --- a/src/bindings/lapack03-cffi.lisp +++ b/src/bindings/lapack03-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 5/21/2019 at 13:37:09 (UTC+1). +;;;; Generated on 3/22/2021 at 17:54:19 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -16,61 +16,62 @@ %DORBDB5 %%DORBDB6 %DORBDB6 %%DORCSD %DORCSD %%DORCSD2BY1 %DORCSD2BY1 %%DORG2L %DORG2L %%DORG2R %DORG2R %%DORGBR %DORGBR %%DORGHR %DORGHR %%DORGL2 %DORGL2 %%DORGLQ %DORGLQ %%DORGQL %DORGQL %%DORGQR %DORGQR %%DORGR2 %DORGR2 - %%DORGRQ %DORGRQ %%DORGTR %DORGTR %%DORM22 %DORM22 %%DORM2L %DORM2L %%DORM2R - %DORM2R %%DORMBR %DORMBR %%DORMHR %DORMHR %%DORML2 %DORML2 %%DORMLQ %DORMLQ - %%DORMQL %DORMQL %%DORMQR %DORMQR %%DORMR2 %DORMR2 %%DORMR3 %DORMR3 %%DORMRQ - %DORMRQ %%DORMRZ %DORMRZ %%DORMTR %DORMTR %%DPBCON %DPBCON %%DPBEQU %DPBEQU - %%DPBRFS %DPBRFS %%DPBSTF %DPBSTF %%DPBSV %DPBSV %%DPBSVX %DPBSVX %%DPBTF2 - %DPBTF2 %%DPBTRF %DPBTRF %%DPBTRS %DPBTRS %%DPFTRF %DPFTRF %%DPFTRI %DPFTRI - %%DPFTRS %DPFTRS %%DPOCON %DPOCON %%DPOEQU %DPOEQU %%DPOEQUB %DPOEQUB - %%DPORFS %DPORFS %%DPORFSX %DPORFSX %%DPOSV %DPOSV %%DPOSVX %DPOSVX %%DPOSVXX - %DPOSVXX %%DPOTF2 %DPOTF2 %%DPOTRF %DPOTRF %%DPOTRF2 %DPOTRF2 %%DPOTRI - %DPOTRI %%DPOTRS %DPOTRS %%DPPCON %DPPCON %%DPPEQU %DPPEQU %%DPPRFS %DPPRFS - %%DPPSV %DPPSV %%DPPSVX %DPPSVX %%DPPTRF %DPPTRF %%DPPTRI %DPPTRI %%DPPTRS - %DPPTRS %%DPSTF2 %DPSTF2 %%DPSTRF %DPSTRF %%DPTCON %DPTCON %%DPTEQR %DPTEQR - %%DPTRFS %DPTRFS %%DPTSV %DPTSV %%DPTSVX %DPTSVX %%DPTTRF %DPTTRF %%DPTTRS - %DPTTRS %%DPTTS2 %DPTTS2 %%DRSCL %DRSCL %%DSB2ST_KERNELS %DSB2ST_KERNELS - %%DSBEV %DSBEV %%DSBEV_2STAGE %DSBEV_2STAGE %%DSBEVD %DSBEVD %%DSBEVD_2STAGE - %DSBEVD_2STAGE %%DSBEVX %DSBEVX %%DSBEVX_2STAGE %DSBEVX_2STAGE %%DSBGST - %DSBGST %%DSBGV %DSBGV %%DSBGVD %DSBGVD %%DSBGVX %DSBGVX %%DSBTRD %DSBTRD - %%DSFRK %DSFRK %%DSGESV %DSGESV %%DSPCON %DSPCON %%DSPEV %DSPEV %%DSPEVD - %DSPEVD %%DSPEVX %DSPEVX %%DSPGST %DSPGST %%DSPGV %DSPGV %%DSPGVD %DSPGVD - %%DSPGVX %DSPGVX %%DSPOSV %DSPOSV %%DSPRFS %DSPRFS %%DSPSV %DSPSV %%DSPSVX - %DSPSVX %%DSPTRD %DSPTRD %%DSPTRF %DSPTRF %%DSPTRI %DSPTRI %%DSPTRS %DSPTRS - %%DSTEBZ %DSTEBZ %%DSTEDC %DSTEDC %%DSTEGR %DSTEGR %%DSTEIN %DSTEIN %%DSTEMR - %DSTEMR %%DSTEQR %DSTEQR %%DSTERF %DSTERF %%DSTEV %DSTEV %%DSTEVD %DSTEVD - %%DSTEVR %DSTEVR %%DSTEVX %DSTEVX %%DSYCON %DSYCON %%DSYCON_3 %DSYCON_3 - %%DSYCON_ROOK %DSYCON_ROOK %%DSYCONV %DSYCONV %%DSYCONVF %DSYCONVF - %%DSYCONVF_ROOK %DSYCONVF_ROOK %%DSYEQUB %DSYEQUB %%DSYEV %DSYEV - %%DSYEV_2STAGE %DSYEV_2STAGE %%DSYEVD %DSYEVD %%DSYEVD_2STAGE %DSYEVD_2STAGE - %%DSYEVR %DSYEVR %%DSYEVR_2STAGE %DSYEVR_2STAGE %%DSYEVX %DSYEVX - %%DSYEVX_2STAGE %DSYEVX_2STAGE %%DSYGS2 %DSYGS2 %%DSYGST %DSYGST %%DSYGV - %DSYGV %%DSYGV_2STAGE %DSYGV_2STAGE %%DSYGVD %DSYGVD %%DSYGVX %DSYGVX - %%DSYRFS %DSYRFS %%DSYRFSX %DSYRFSX %%DSYSV %DSYSV %%DSYSV_AA %DSYSV_AA - %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE %%DSYSV_RK %DSYSV_RK %%DSYSV_ROOK - %DSYSV_ROOK %%DSYSVX %DSYSVX %%DSYSVXX %DSYSVXX %%DSYSWAPR %DSYSWAPR %%DSYTD2 - %DSYTD2 %%DSYTF2 %DSYTF2 %%DSYTF2_RK %DSYTF2_RK %%DSYTF2_ROOK %DSYTF2_ROOK - %%DSYTRD %DSYTRD %%DSYTRD_2STAGE %DSYTRD_2STAGE %%DSYTRD_SY2SB %DSYTRD_SY2SB - %%DSYTRF %DSYTRF %%DSYTRF_AA %DSYTRF_AA %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE - %%DSYTRF_RK %DSYTRF_RK %%DSYTRF_ROOK %DSYTRF_ROOK %%DSYTRI %DSYTRI %%DSYTRI2 - %DSYTRI2 %%DSYTRI2X %DSYTRI2X %%DSYTRI_3 %DSYTRI_3 %%DSYTRI_3X %DSYTRI_3X - %%DSYTRI_ROOK %DSYTRI_ROOK %%DSYTRS %DSYTRS %%DSYTRS2 %DSYTRS2 %%DSYTRS_3 - %DSYTRS_3 %%DSYTRS_AA %DSYTRS_AA %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE - %%DSYTRS_ROOK %DSYTRS_ROOK %%DTBCON %DTBCON %%DTBRFS %DTBRFS %%DTBTRS %DTBTRS - %%DTFSM %DTFSM %%DTFTRI %DTFTRI %%DTFTTP %DTFTTP %%DTFTTR %DTFTTR %%DTGEVC - %DTGEVC %%DTGEX2 %DTGEX2 %%DTGEXC %DTGEXC %%DTGSEN %DTGSEN %%DTGSJA %DTGSJA - %%DTGSNA %DTGSNA %%DTGSY2 %DTGSY2 %%DTGSYL %DTGSYL %%DTPCON %DTPCON %%DTPLQT - %DTPLQT %%DTPLQT2 %DTPLQT2 %%DTPMLQT %DTPMLQT %%DTPMQRT %DTPMQRT %%DTPQRT - %DTPQRT %%DTPQRT2 %DTPQRT2 %%DTPRFB %DTPRFB %%DTPRFS %DTPRFS %%DTPTRI %DTPTRI - %%DTPTRS %DTPTRS %%DTPTTF %DTPTTF %%DTPTTR %DTPTTR %%DTRCON %DTRCON %%DTREVC - %DTREVC %%DTREVC3 %DTREVC3 %%DTREXC %DTREXC %%DTRRFS %DTRRFS %%DTRSEN %DTRSEN - %%DTRSNA %DTRSNA %%DTRSYL %DTRSYL %%DTRTI2 %DTRTI2 %%DTRTRI %DTRTRI %%DTRTRS - %DTRTRS %%DTRTTF %DTRTTF %%DTRTTP %DTRTTP %%DTZRZF %DTZRZF %%DZSUM1 %DZSUM1 - %%ICMAX1 %ICMAX1 %%IEEECK %IEEECK %%ILACLC %ILACLC %%ILACLR %ILACLR %%ILADIAG - %ILADIAG %%ILADLC %ILADLC %%ILADLR %ILADLR %%ILAENV %ILAENV %%ILAENV2STAGE - %ILAENV2STAGE %%ILAPREC %ILAPREC %%ILASLC %ILASLC)) - -(CFFI:DEFCFUN ("dlaswp_" %%DLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + %%DORGRQ %DORGRQ %%DORGTR %DORGTR %%DORGTSQR %DORGTSQR %%DORHR_COL %DORHR_COL + %%DORM22 %DORM22 %%DORM2L %DORM2L %%DORM2R %DORM2R %%DORMBR %DORMBR %%DORMHR + %DORMHR %%DORML2 %DORML2 %%DORMLQ %DORMLQ %%DORMQL %DORMQL %%DORMQR %DORMQR + %%DORMR2 %DORMR2 %%DORMR3 %DORMR3 %%DORMRQ %DORMRQ %%DORMRZ %DORMRZ %%DORMTR + %DORMTR %%DPBCON %DPBCON %%DPBEQU %DPBEQU %%DPBRFS %DPBRFS %%DPBSTF %DPBSTF + %%DPBSV %DPBSV %%DPBSVX %DPBSVX %%DPBTF2 %DPBTF2 %%DPBTRF %DPBTRF %%DPBTRS + %DPBTRS %%DPFTRF %DPFTRF %%DPFTRI %DPFTRI %%DPFTRS %DPFTRS %%DPOCON %DPOCON + %%DPOEQU %DPOEQU %%DPOEQUB %DPOEQUB %%DPORFS %DPORFS %%DPORFSX %DPORFSX + %%DPOSV %DPOSV %%DPOSVX %DPOSVX %%DPOSVXX %DPOSVXX %%DPOTF2 %DPOTF2 %%DPOTRF + %DPOTRF %%DPOTRF2 %DPOTRF2 %%DPOTRI %DPOTRI %%DPOTRS %DPOTRS %%DPPCON %DPPCON + %%DPPEQU %DPPEQU %%DPPRFS %DPPRFS %%DPPSV %DPPSV %%DPPSVX %DPPSVX %%DPPTRF + %DPPTRF %%DPPTRI %DPPTRI %%DPPTRS %DPPTRS %%DPSTF2 %DPSTF2 %%DPSTRF %DPSTRF + %%DPTCON %DPTCON %%DPTEQR %DPTEQR %%DPTRFS %DPTRFS %%DPTSV %DPTSV %%DPTSVX + %DPTSVX %%DPTTRF %DPTTRF %%DPTTRS %DPTTRS %%DPTTS2 %DPTTS2 %%DRSCL %DRSCL + %%DSB2ST_KERNELS %DSB2ST_KERNELS %%DSBEV %DSBEV %%DSBEV_2STAGE %DSBEV_2STAGE + %%DSBEVD %DSBEVD %%DSBEVD_2STAGE %DSBEVD_2STAGE %%DSBEVX %DSBEVX + %%DSBEVX_2STAGE %DSBEVX_2STAGE %%DSBGST %DSBGST %%DSBGV %DSBGV %%DSBGVD + %DSBGVD %%DSBGVX %DSBGVX %%DSBTRD %DSBTRD %%DSFRK %DSFRK %%DSGESV %DSGESV + %%DSPCON %DSPCON %%DSPEV %DSPEV %%DSPEVD %DSPEVD %%DSPEVX %DSPEVX %%DSPGST + %DSPGST %%DSPGV %DSPGV %%DSPGVD %DSPGVD %%DSPGVX %DSPGVX %%DSPOSV %DSPOSV + %%DSPRFS %DSPRFS %%DSPSV %DSPSV %%DSPSVX %DSPSVX %%DSPTRD %DSPTRD %%DSPTRF + %DSPTRF %%DSPTRI %DSPTRI %%DSPTRS %DSPTRS %%DSTEBZ %DSTEBZ %%DSTEDC %DSTEDC + %%DSTEGR %DSTEGR %%DSTEIN %DSTEIN %%DSTEMR %DSTEMR %%DSTEQR %DSTEQR %%DSTERF + %DSTERF %%DSTEV %DSTEV %%DSTEVD %DSTEVD %%DSTEVR %DSTEVR %%DSTEVX %DSTEVX + %%DSYCON %DSYCON %%DSYCON_3 %DSYCON_3 %%DSYCON_ROOK %DSYCON_ROOK %%DSYCONV + %DSYCONV %%DSYCONVF %DSYCONVF %%DSYCONVF_ROOK %DSYCONVF_ROOK %%DSYEQUB + %DSYEQUB %%DSYEV %DSYEV %%DSYEV_2STAGE %DSYEV_2STAGE %%DSYEVD %DSYEVD + %%DSYEVD_2STAGE %DSYEVD_2STAGE %%DSYEVR %DSYEVR %%DSYEVR_2STAGE + %DSYEVR_2STAGE %%DSYEVX %DSYEVX %%DSYEVX_2STAGE %DSYEVX_2STAGE %%DSYGS2 + %DSYGS2 %%DSYGST %DSYGST %%DSYGV %DSYGV %%DSYGV_2STAGE %DSYGV_2STAGE %%DSYGVD + %DSYGVD %%DSYGVX %DSYGVX %%DSYRFS %DSYRFS %%DSYRFSX %DSYRFSX %%DSYSV %DSYSV + %%DSYSV_AA %DSYSV_AA %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE %%DSYSV_RK %DSYSV_RK + %%DSYSV_ROOK %DSYSV_ROOK %%DSYSVX %DSYSVX %%DSYSVXX %DSYSVXX %%DSYSWAPR + %DSYSWAPR %%DSYTD2 %DSYTD2 %%DSYTF2 %DSYTF2 %%DSYTF2_RK %DSYTF2_RK + %%DSYTF2_ROOK %DSYTF2_ROOK %%DSYTRD %DSYTRD %%DSYTRD_2STAGE %DSYTRD_2STAGE + %%DSYTRD_SY2SB %DSYTRD_SY2SB %%DSYTRF %DSYTRF %%DSYTRF_AA %DSYTRF_AA + %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE %%DSYTRF_RK %DSYTRF_RK %%DSYTRF_ROOK + %DSYTRF_ROOK %%DSYTRI %DSYTRI %%DSYTRI2 %DSYTRI2 %%DSYTRI2X %DSYTRI2X + %%DSYTRI_3 %DSYTRI_3 %%DSYTRI_3X %DSYTRI_3X %%DSYTRI_ROOK %DSYTRI_ROOK + %%DSYTRS %DSYTRS %%DSYTRS2 %DSYTRS2 %%DSYTRS_3 %DSYTRS_3 %%DSYTRS_AA + %DSYTRS_AA %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE %%DSYTRS_ROOK %DSYTRS_ROOK + %%DTBCON %DTBCON %%DTBRFS %DTBRFS %%DTBTRS %DTBTRS %%DTFSM %DTFSM %%DTFTRI + %DTFTRI %%DTFTTP %DTFTTP %%DTFTTR %DTFTTR %%DTGEVC %DTGEVC %%DTGEX2 %DTGEX2 + %%DTGEXC %DTGEXC %%DTGSEN %DTGSEN %%DTGSJA %DTGSJA %%DTGSNA %DTGSNA %%DTGSY2 + %DTGSY2 %%DTGSYL %DTGSYL %%DTPCON %DTPCON %%DTPLQT %DTPLQT %%DTPLQT2 %DTPLQT2 + %%DTPMLQT %DTPMLQT %%DTPMQRT %DTPMQRT %%DTPQRT %DTPQRT %%DTPQRT2 %DTPQRT2 + %%DTPRFB %DTPRFB %%DTPRFS %DTPRFS %%DTPTRI %DTPTRI %%DTPTRS %DTPTRS %%DTPTTF + %DTPTTF %%DTPTTR %DTPTTR %%DTRCON %DTRCON %%DTREVC %DTREVC %%DTREVC3 %DTREVC3 + %%DTREXC %DTREXC %%DTRRFS %DTRRFS %%DTRSEN %DTRSEN %%DTRSNA %DTRSNA %%DTRSYL + %DTRSYL %%DTRTI2 %DTRTI2 %%DTRTRI %DTRTRI %%DTRTRS %DTRTRS %%DTRTTF %DTRTTF + %%DTRTTP %DTRTTP %%DTZRZF %DTZRZF %%DZSUM1 %DZSUM1 %%ICMAX1 %ICMAX1 %%IEEECK + %IEEECK %%ILACLC %ILACLC %%ILACLR %ILACLR %%ILADIAG %ILADIAG %%ILADLC %ILADLC + %%ILADLR %ILADLR %%ILAENV %ILAENV %%ILAENV2STAGE %ILAENV2STAGE %%ILAPREC + %ILAPREC %%ILASLC %ILASLC)) + +(CFFI:DEFCFUN ("dlaswp_" %%DLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -93,19 +94,19 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8877 ':INT32) (LDA-REF8879 ':INT32) - (K1-REF8880 ':INT32) (K2-REF8881 ':INT32) - (INCX-REF8883 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8877 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8879 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF8880 :INT32) K1) - (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF8881 :INT32) K2) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8883 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8878 A) (IPIV-REF8882 IPIV)) - (%%DLASWP N-REF8877 A-REF8878 LDA-REF8879 K1-REF8880 K2-REF8881 - IPIV-REF8882 INCX-REF8883)))) - -(CFFI:DEFCFUN ("dlasy2_" %%DLASY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8840 ':INT32) (LDA-REF8842 ':INT32) + (K1-REF8843 ':INT32) (K2-REF8844 ':INT32) + (INCX-REF8846 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8840 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8842 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF8843 :INT32) K1) + (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF8844 :INT32) K2) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8846 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8841 A) (IPIV-REF8845 IPIV)) + (%%DLASWP N-REF8840 A-REF8841 LDA-REF8842 K1-REF8843 K2-REF8844 + IPIV-REF8845 INCX-REF8846)))) + +(CFFI:DEFCFUN ("dlasy2_" %%DLASY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (LTRANL :POINTER) (LTRANR :POINTER) @@ -148,32 +149,32 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT XNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF8884 ':INT32) (LTRANR-REF8885 ':INT32) - (ISGN-REF8886 ':INT32) (N1-REF8887 ':INT32) - (N2-REF8888 ':INT32) (LDTL-REF8890 ':INT32) - (LDTR-REF8892 ':INT32) (LDB-REF8894 ':INT32) - (SCALE-REF8895 ':DOUBLE) (LDX-REF8897 ':INT32) - (XNORM-REF8898 ':DOUBLE) (INFO-REF8899 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF8884 :INT32) LTRANL) - (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF8885 :INT32) LTRANR) - (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF8886 :INT32) ISGN) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF8887 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF8888 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF8890 :INT32) LDTL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF8892 :INT32) LDTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8894 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8895 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8897 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF8898 :DOUBLE) XNORM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8899 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF8889 TL) (TR-REF8891 TR) - (B-REF8893 B) (X-REF8896 X)) - (%%DLASY2 LTRANL-REF8884 LTRANR-REF8885 ISGN-REF8886 N1-REF8887 - N2-REF8888 TL-REF8889 LDTL-REF8890 TR-REF8891 LDTR-REF8892 - B-REF8893 LDB-REF8894 SCALE-REF8895 X-REF8896 LDX-REF8897 - XNORM-REF8898 INFO-REF8899)))) - -(CFFI:DEFCFUN ("dlasyf_" %%DLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF8847 ':INT32) (LTRANR-REF8848 ':INT32) + (ISGN-REF8849 ':INT32) (N1-REF8850 ':INT32) + (N2-REF8851 ':INT32) (LDTL-REF8853 ':INT32) + (LDTR-REF8855 ':INT32) (LDB-REF8857 ':INT32) + (SCALE-REF8858 ':DOUBLE) (LDX-REF8860 ':INT32) + (XNORM-REF8861 ':DOUBLE) (INFO-REF8862 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF8847 :INT32) LTRANL) + (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF8848 :INT32) LTRANR) + (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF8849 :INT32) ISGN) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF8850 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF8851 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF8853 :INT32) LDTL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF8855 :INT32) LDTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8857 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8858 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8860 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF8861 :DOUBLE) XNORM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8862 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF8852 TL) (TR-REF8854 TR) + (B-REF8856 B) (X-REF8859 X)) + (%%DLASY2 LTRANL-REF8847 LTRANR-REF8848 ISGN-REF8849 N1-REF8850 + N2-REF8851 TL-REF8852 LDTL-REF8853 TR-REF8854 LDTR-REF8855 B-REF8856 + LDB-REF8857 SCALE-REF8858 X-REF8859 LDX-REF8860 XNORM-REF8861 + INFO-REF8862)))) + +(CFFI:DEFCFUN ("dlasyf_" %%DLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -203,22 +204,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8901 ':INT32) (NB-REF8902 ':INT32) - (KB-REF8903 ':INT32) (LDA-REF8905 ':INT32) - (LDW-REF8908 ':INT32) (INFO-REF8909 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8901 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8902 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8903 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8905 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8908 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8909 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8904 A) (IPIV-REF8906 IPIV) - (W-REF8907 W)) - (%%DLASYF UPLO N-REF8901 NB-REF8902 KB-REF8903 A-REF8904 LDA-REF8905 - IPIV-REF8906 W-REF8907 LDW-REF8908 INFO-REF8909)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8864 ':INT32) (NB-REF8865 ':INT32) + (KB-REF8866 ':INT32) (LDA-REF8868 ':INT32) + (LDW-REF8871 ':INT32) (INFO-REF8872 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8864 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8865 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8866 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8868 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8871 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8872 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8867 A) (IPIV-REF8869 IPIV) + (W-REF8870 W)) + (%%DLASYF UPLO N-REF8864 NB-REF8865 KB-REF8866 A-REF8867 LDA-REF8868 + IPIV-REF8869 W-REF8870 LDW-REF8871 INFO-REF8872)))) (CFFI:DEFCFUN ("dlasyf_aa_" %%DLASYF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (J1 :POINTER) @@ -250,21 +251,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF8911 ':INT32) (M-REF8912 ':INT32) - (NB-REF8913 ':INT32) (LDA-REF8915 ':INT32) - (LDH-REF8918 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF8911 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8912 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8913 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8915 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8918 :INT32) LDH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8914 A) (IPIV-REF8916 IPIV) - (H-REF8917 H) (WORK-REF8919 WORK)) - (%%DLASYF_AA UPLO J1-REF8911 M-REF8912 NB-REF8913 A-REF8914 LDA-REF8915 - IPIV-REF8916 H-REF8917 LDH-REF8918 WORK-REF8919)))) + (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF8874 ':INT32) (M-REF8875 ':INT32) + (NB-REF8876 ':INT32) (LDA-REF8878 ':INT32) + (LDH-REF8881 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF8874 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8875 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8876 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8878 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8881 :INT32) LDH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8877 A) (IPIV-REF8879 IPIV) + (H-REF8880 H) (WORK-REF8882 WORK)) + (%%DLASYF_AA UPLO J1-REF8874 M-REF8875 NB-REF8876 A-REF8877 LDA-REF8878 + IPIV-REF8879 H-REF8880 LDH-REF8881 WORK-REF8882)))) (CFFI:DEFCFUN ("dlasyf_rk_" %%DLASYF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -297,22 +298,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8921 ':INT32) (NB-REF8922 ':INT32) - (KB-REF8923 ':INT32) (LDA-REF8925 ':INT32) - (LDW-REF8929 ':INT32) (INFO-REF8930 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8921 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8922 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8923 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8925 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8929 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8930 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8924 A) (E-REF8926 E) - (IPIV-REF8927 IPIV) (W-REF8928 W)) - (%%DLASYF_RK UPLO N-REF8921 NB-REF8922 KB-REF8923 A-REF8924 LDA-REF8925 - E-REF8926 IPIV-REF8927 W-REF8928 LDW-REF8929 INFO-REF8930)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8884 ':INT32) (NB-REF8885 ':INT32) + (KB-REF8886 ':INT32) (LDA-REF8888 ':INT32) + (LDW-REF8892 ':INT32) (INFO-REF8893 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8884 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8885 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8886 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8888 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8892 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8893 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8887 A) (E-REF8889 E) + (IPIV-REF8890 IPIV) (W-REF8891 W)) + (%%DLASYF_RK UPLO N-REF8884 NB-REF8885 KB-REF8886 A-REF8887 LDA-REF8888 + E-REF8889 IPIV-REF8890 W-REF8891 LDW-REF8892 INFO-REF8893)))) (CFFI:DEFCFUN ("dlasyf_rook_" %%DLASYF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -342,21 +343,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8932 ':INT32) (NB-REF8933 ':INT32) - (KB-REF8934 ':INT32) (LDA-REF8936 ':INT32) - (LDW-REF8939 ':INT32) (INFO-REF8940 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8932 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8933 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8934 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8936 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8939 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8940 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8935 A) (IPIV-REF8937 IPIV) - (W-REF8938 W)) - (%%DLASYF_ROOK UPLO N-REF8932 NB-REF8933 KB-REF8934 A-REF8935 LDA-REF8936 - IPIV-REF8937 W-REF8938 LDW-REF8939 INFO-REF8940)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8895 ':INT32) (NB-REF8896 ':INT32) + (KB-REF8897 ':INT32) (LDA-REF8899 ':INT32) + (LDW-REF8902 ':INT32) (INFO-REF8903 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8895 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8896 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8897 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8899 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8902 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8903 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8898 A) (IPIV-REF8900 IPIV) + (W-REF8901 W)) + (%%DLASYF_ROOK UPLO N-REF8895 NB-REF8896 KB-REF8897 A-REF8898 LDA-REF8899 + IPIV-REF8900 W-REF8901 LDW-REF8902 INFO-REF8903)))) -(CFFI:DEFCFUN ("dlat2s_" %%DLAT2S :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlat2s_" %%DLAT2S :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -377,17 +378,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8942 ':INT32) (LDA-REF8944 ':INT32) - (LDSA-REF8946 ':INT32) (INFO-REF8947 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8942 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8944 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF8946 :INT32) LDSA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8947 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8943 A) (SA-REF8945 SA)) - (%%DLAT2S UPLO N-REF8942 A-REF8943 LDA-REF8944 SA-REF8945 LDSA-REF8946 - INFO-REF8947)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8905 ':INT32) (LDA-REF8907 ':INT32) + (LDSA-REF8909 ':INT32) (INFO-REF8910 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8905 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8907 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF8909 :INT32) LDSA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8910 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8906 A) (SA-REF8908 SA)) + (%%DLAT2S UPLO N-REF8905 A-REF8906 LDA-REF8907 SA-REF8908 LDSA-REF8909 + INFO-REF8910)))) -(CFFI:DEFCFUN ("dlatbs_" %%DLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlatbs_" %%DLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -421,21 +422,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8952 ':INT32) (KD-REF8953 ':INT32) - (LDAB-REF8955 ':INT32) (SCALE-REF8957 ':DOUBLE) - (INFO-REF8959 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8952 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8953 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8955 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8957 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8959 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8954 AB) (X-REF8956 X) - (CNORM-REF8958 CNORM)) - (%%DLATBS UPLO TRANS DIAG NORMIN N-REF8952 KD-REF8953 AB-REF8954 - LDAB-REF8955 X-REF8956 SCALE-REF8957 CNORM-REF8958 - INFO-REF8959)))) - -(CFFI:DEFCFUN ("dlatdf_" %%DLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8915 ':INT32) (KD-REF8916 ':INT32) + (LDAB-REF8918 ':INT32) (SCALE-REF8920 ':DOUBLE) + (INFO-REF8922 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8915 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8916 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8918 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8920 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8922 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8917 AB) (X-REF8919 X) + (CNORM-REF8921 CNORM)) + (%%DLATBS UPLO TRANS DIAG NORMIN N-REF8915 KD-REF8916 AB-REF8917 + LDAB-REF8918 X-REF8919 SCALE-REF8920 CNORM-REF8921 INFO-REF8922)))) + +(CFFI:DEFCFUN ("dlatdf_" %%DLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (N :POINTER) @@ -467,21 +467,21 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) JPIV)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF8960 ':INT32) (N-REF8961 ':INT32) - (LDZ-REF8963 ':INT32) (RDSUM-REF8965 ':DOUBLE) - (RDSCAL-REF8966 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF8960 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8961 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8963 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF8965 :DOUBLE) RDSUM) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF8966 :DOUBLE) RDSCAL) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8962 Z) (RHS-REF8964 RHS) - (IPIV-REF8967 IPIV) - (JPIV-REF8968 JPIV)) - (%%DLATDF IJOB-REF8960 N-REF8961 Z-REF8962 LDZ-REF8963 RHS-REF8964 - RDSUM-REF8965 RDSCAL-REF8966 IPIV-REF8967 JPIV-REF8968)))) - -(CFFI:DEFCFUN ("dlatps_" %%DLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF8923 ':INT32) (N-REF8924 ':INT32) + (LDZ-REF8926 ':INT32) (RDSUM-REF8928 ':DOUBLE) + (RDSCAL-REF8929 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF8923 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8924 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8926 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF8928 :DOUBLE) RDSUM) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF8929 :DOUBLE) RDSCAL) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8925 Z) (RHS-REF8927 RHS) + (IPIV-REF8930 IPIV) + (JPIV-REF8931 JPIV)) + (%%DLATDF IJOB-REF8923 N-REF8924 Z-REF8925 LDZ-REF8926 RHS-REF8927 + RDSUM-REF8928 RDSCAL-REF8929 IPIV-REF8930 JPIV-REF8931)))) + +(CFFI:DEFCFUN ("dlatps_" %%DLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -510,17 +510,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8973 ':INT32) (SCALE-REF8976 ':DOUBLE) - (INFO-REF8978 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8973 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8976 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8978 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8974 AP) (X-REF8975 X) - (CNORM-REF8977 CNORM)) - (%%DLATPS UPLO TRANS DIAG NORMIN N-REF8973 AP-REF8974 X-REF8975 - SCALE-REF8976 CNORM-REF8977 INFO-REF8978)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8936 ':INT32) (SCALE-REF8939 ':DOUBLE) + (INFO-REF8941 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8936 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8939 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8941 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8937 AP) (X-REF8938 X) + (CNORM-REF8940 CNORM)) + (%%DLATPS UPLO TRANS DIAG NORMIN N-REF8936 AP-REF8937 X-REF8938 + SCALE-REF8939 CNORM-REF8940 INFO-REF8941)))) -(CFFI:DEFCFUN ("dlatrd_" %%DLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlatrd_" %%DLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -548,18 +548,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8980 ':INT32) (NB-REF8981 ':INT32) - (LDA-REF8983 ':INT32) (LDW-REF8987 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8980 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8981 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8983 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8987 :INT32) LDW) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8982 A) (E-REF8984 E) - (TAU-REF8985 TAU) (W-REF8986 W)) - (%%DLATRD UPLO N-REF8980 NB-REF8981 A-REF8982 LDA-REF8983 E-REF8984 - TAU-REF8985 W-REF8986 LDW-REF8987)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8943 ':INT32) (NB-REF8944 ':INT32) + (LDA-REF8946 ':INT32) (LDW-REF8950 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8943 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8944 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8946 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8950 :INT32) LDW) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8945 A) (E-REF8947 E) + (TAU-REF8948 TAU) (W-REF8949 W)) + (%%DLATRD UPLO N-REF8943 NB-REF8944 A-REF8945 LDA-REF8946 E-REF8947 + TAU-REF8948 W-REF8949 LDW-REF8950)))) -(CFFI:DEFCFUN ("dlatrs_" %%DLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlatrs_" %%DLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -590,18 +590,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8992 ':INT32) (LDA-REF8994 ':INT32) - (SCALE-REF8996 ':DOUBLE) (INFO-REF8998 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8992 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8994 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8996 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8998 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8993 A) (X-REF8995 X) - (CNORM-REF8997 CNORM)) - (%%DLATRS UPLO TRANS DIAG NORMIN N-REF8992 A-REF8993 LDA-REF8994 - X-REF8995 SCALE-REF8996 CNORM-REF8997 INFO-REF8998)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8955 ':INT32) (LDA-REF8957 ':INT32) + (SCALE-REF8959 ':DOUBLE) (INFO-REF8961 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8955 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8957 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8959 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8961 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8956 A) (X-REF8958 X) + (CNORM-REF8960 CNORM)) + (%%DLATRS UPLO TRANS DIAG NORMIN N-REF8955 A-REF8956 LDA-REF8957 + X-REF8958 SCALE-REF8959 CNORM-REF8960 INFO-REF8961)))) -(CFFI:DEFCFUN ("dlatrz_" %%DLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlatrz_" %%DLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -625,18 +625,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8999 ':INT32) (N-REF9000 ':INT32) - (L-REF9001 ':INT32) (LDA-REF9003 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8999 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9000 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9001 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9003 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9002 A) (TAU-REF9004 TAU) - (WORK-REF9005 WORK)) - (%%DLATRZ M-REF8999 N-REF9000 L-REF9001 A-REF9002 LDA-REF9003 TAU-REF9004 - WORK-REF9005)))) - -(CFFI:DEFCFUN ("dlatsqr_" %%DLATSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8962 ':INT32) (N-REF8963 ':INT32) + (L-REF8964 ':INT32) (LDA-REF8966 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8962 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8963 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8964 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8966 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8965 A) (TAU-REF8967 TAU) + (WORK-REF8968 WORK)) + (%%DLATRZ M-REF8962 N-REF8963 L-REF8964 A-REF8965 LDA-REF8966 TAU-REF8967 + WORK-REF8968)))) + +(CFFI:DEFCFUN ("dlatsqr_" %%DLATSQR :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -667,25 +668,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9006 ':INT32) (N-REF9007 ':INT32) - (MB-REF9008 ':INT32) (NB-REF9009 ':INT32) - (LDA-REF9011 ':INT32) (LDT-REF9013 ':INT32) - (LWORK-REF9015 ':INT32) (INFO-REF9016 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9006 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9007 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF9008 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9009 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9011 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9013 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9015 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9016 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9010 A) (T-REF9012 T) - (WORK-REF9014 WORK)) - (%%DLATSQR M-REF9006 N-REF9007 MB-REF9008 NB-REF9009 A-REF9010 - LDA-REF9011 T-REF9012 LDT-REF9013 WORK-REF9014 LWORK-REF9015 - INFO-REF9016)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8969 ':INT32) (N-REF8970 ':INT32) + (MB-REF8971 ':INT32) (NB-REF8972 ':INT32) + (LDA-REF8974 ':INT32) (LDT-REF8976 ':INT32) + (LWORK-REF8978 ':INT32) (INFO-REF8979 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8969 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8970 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF8971 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8972 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8974 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8976 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8978 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8979 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8973 A) (T-REF8975 T) + (WORK-REF8977 WORK)) + (%%DLATSQR M-REF8969 N-REF8970 MB-REF8971 NB-REF8972 A-REF8973 + LDA-REF8974 T-REF8975 LDT-REF8976 WORK-REF8977 LWORK-REF8978 + INFO-REF8979)))) -(CFFI:DEFCFUN ("dlauu2_" %%DLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlauu2_" %%DLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -701,15 +702,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9018 ':INT32) (LDA-REF9020 ':INT32) - (INFO-REF9021 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9018 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9020 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9021 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9019 A)) - (%%DLAUU2 UPLO N-REF9018 A-REF9019 LDA-REF9020 INFO-REF9021)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8981 ':INT32) (LDA-REF8983 ':INT32) + (INFO-REF8984 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8981 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8983 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8984 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8982 A)) + (%%DLAUU2 UPLO N-REF8981 A-REF8982 LDA-REF8983 INFO-REF8984)))) -(CFFI:DEFCFUN ("dlauum_" %%DLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dlauum_" %%DLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -725,15 +726,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9023 ':INT32) (LDA-REF9025 ':INT32) - (INFO-REF9026 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9023 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9025 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9026 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9024 A)) - (%%DLAUUM UPLO N-REF9023 A-REF9024 LDA-REF9025 INFO-REF9026)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8986 ':INT32) (LDA-REF8988 ':INT32) + (INFO-REF8989 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8986 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8988 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8989 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8987 A)) + (%%DLAUUM UPLO N-REF8986 A-REF8987 LDA-REF8988 INFO-REF8989)))) -(CFFI:DEFCFUN ("dopgtr_" %%DOPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dopgtr_" %%DOPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -760,17 +761,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9028 ':INT32) (LDQ-REF9032 ':INT32) - (INFO-REF9034 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9028 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9032 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9034 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9029 AP) (TAU-REF9030 TAU) - (Q-REF9031 Q) (WORK-REF9033 WORK)) - (%%DOPGTR UPLO N-REF9028 AP-REF9029 TAU-REF9030 Q-REF9031 LDQ-REF9032 - WORK-REF9033 INFO-REF9034)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8991 ':INT32) (LDQ-REF8995 ':INT32) + (INFO-REF8997 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8991 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8995 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8997 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8992 AP) (TAU-REF8993 TAU) + (Q-REF8994 Q) (WORK-REF8996 WORK)) + (%%DOPGTR UPLO N-REF8991 AP-REF8992 TAU-REF8993 Q-REF8994 LDQ-REF8995 + WORK-REF8996 INFO-REF8997)))) -(CFFI:DEFCFUN ("dopmtr_" %%DOPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dopmtr_" %%DOPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (UPLO :STRING) @@ -803,18 +804,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9038 ':INT32) (N-REF9039 ':INT32) - (LDC-REF9043 ':INT32) (INFO-REF9045 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9038 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9039 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9043 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9045 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9040 AP) (TAU-REF9041 TAU) - (C-REF9042 C) (WORK-REF9044 WORK)) - (%%DOPMTR SIDE UPLO TRANS M-REF9038 N-REF9039 AP-REF9040 TAU-REF9041 - C-REF9042 LDC-REF9043 WORK-REF9044 INFO-REF9045)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9001 ':INT32) (N-REF9002 ':INT32) + (LDC-REF9006 ':INT32) (INFO-REF9008 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9001 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9002 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9006 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9008 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9003 AP) (TAU-REF9004 TAU) + (C-REF9005 C) (WORK-REF9007 WORK)) + (%%DOPMTR SIDE UPLO TRANS M-REF9001 N-REF9002 AP-REF9003 TAU-REF9004 + C-REF9005 LDC-REF9006 WORK-REF9007 INFO-REF9008)))) -(CFFI:DEFCFUN ("dorbdb_" %%DORBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dorbdb_" %%DORBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (SIGNS :STRING) @@ -887,36 +888,37 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9048 ':INT32) (P-REF9049 ':INT32) - (Q-REF9050 ':INT32) (LDX11-REF9052 ':INT32) - (LDX12-REF9054 ':INT32) (LDX21-REF9056 ':INT32) - (LDX22-REF9058 ':INT32) (LWORK-REF9066 ':INT32) - (INFO-REF9067 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9048 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9049 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9050 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9052 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF9054 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9056 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF9058 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9066 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9067 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9051 X11) (X12-REF9053 X12) - (X21-REF9055 X21) (X22-REF9057 X22) - (THETA-REF9059 THETA) - (PHI-REF9060 PHI) - (TAUP1-REF9061 TAUP1) - (TAUP2-REF9062 TAUP2) - (TAUQ1-REF9063 TAUQ1) - (TAUQ2-REF9064 TAUQ2) - (WORK-REF9065 WORK)) - (%%DORBDB TRANS SIGNS M-REF9048 P-REF9049 Q-REF9050 X11-REF9051 - LDX11-REF9052 X12-REF9053 LDX12-REF9054 X21-REF9055 - LDX21-REF9056 X22-REF9057 LDX22-REF9058 THETA-REF9059 - PHI-REF9060 TAUP1-REF9061 TAUP2-REF9062 TAUQ1-REF9063 - TAUQ2-REF9064 WORK-REF9065 LWORK-REF9066 INFO-REF9067)))) - -(CFFI:DEFCFUN ("dorbdb1_" %%DORBDB1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9011 ':INT32) (P-REF9012 ':INT32) + (Q-REF9013 ':INT32) (LDX11-REF9015 ':INT32) + (LDX12-REF9017 ':INT32) (LDX21-REF9019 ':INT32) + (LDX22-REF9021 ':INT32) (LWORK-REF9029 ':INT32) + (INFO-REF9030 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9011 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9012 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9013 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9015 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF9017 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9019 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF9021 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9029 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9030 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9014 X11) (X12-REF9016 X12) + (X21-REF9018 X21) (X22-REF9020 X22) + (THETA-REF9022 THETA) + (PHI-REF9023 PHI) + (TAUP1-REF9024 TAUP1) + (TAUP2-REF9025 TAUP2) + (TAUQ1-REF9026 TAUQ1) + (TAUQ2-REF9027 TAUQ2) + (WORK-REF9028 WORK)) + (%%DORBDB TRANS SIGNS M-REF9011 P-REF9012 Q-REF9013 X11-REF9014 + LDX11-REF9015 X12-REF9016 LDX12-REF9017 X21-REF9018 LDX21-REF9019 + X22-REF9020 LDX22-REF9021 THETA-REF9022 PHI-REF9023 TAUP1-REF9024 + TAUP2-REF9025 TAUQ1-REF9026 TAUQ2-REF9027 WORK-REF9028 LWORK-REF9029 + INFO-REF9030)))) + +(CFFI:DEFCFUN ("dorbdb1_" %%DORBDB1 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -969,30 +971,30 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9068 ':INT32) (P-REF9069 ':INT32) - (Q-REF9070 ':INT32) (LDX11-REF9072 ':INT32) - (LDX21-REF9074 ':INT32) (LWORK-REF9081 ':INT32) - (INFO-REF9082 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9068 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9069 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9070 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9072 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9074 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9081 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9082 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9071 X11) (X21-REF9073 X21) - (THETA-REF9075 THETA) - (PHI-REF9076 PHI) - (TAUP1-REF9077 TAUP1) - (TAUP2-REF9078 TAUP2) - (TAUQ1-REF9079 TAUQ1) - (WORK-REF9080 WORK)) - (%%DORBDB1 M-REF9068 P-REF9069 Q-REF9070 X11-REF9071 LDX11-REF9072 - X21-REF9073 LDX21-REF9074 THETA-REF9075 PHI-REF9076 - TAUP1-REF9077 TAUP2-REF9078 TAUQ1-REF9079 WORK-REF9080 - LWORK-REF9081 INFO-REF9082)))) - -(CFFI:DEFCFUN ("dorbdb2_" %%DORBDB2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9031 ':INT32) (P-REF9032 ':INT32) + (Q-REF9033 ':INT32) (LDX11-REF9035 ':INT32) + (LDX21-REF9037 ':INT32) (LWORK-REF9044 ':INT32) + (INFO-REF9045 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9031 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9032 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9033 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9035 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9037 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9044 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9045 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9034 X11) (X21-REF9036 X21) + (THETA-REF9038 THETA) + (PHI-REF9039 PHI) + (TAUP1-REF9040 TAUP1) + (TAUP2-REF9041 TAUP2) + (TAUQ1-REF9042 TAUQ1) + (WORK-REF9043 WORK)) + (%%DORBDB1 M-REF9031 P-REF9032 Q-REF9033 X11-REF9034 LDX11-REF9035 + X21-REF9036 LDX21-REF9037 THETA-REF9038 PHI-REF9039 TAUP1-REF9040 + TAUP2-REF9041 TAUQ1-REF9042 WORK-REF9043 LWORK-REF9044 INFO-REF9045)))) + +(CFFI:DEFCFUN ("dorbdb2_" %%DORBDB2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -1045,30 +1047,30 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9083 ':INT32) (P-REF9084 ':INT32) - (Q-REF9085 ':INT32) (LDX11-REF9087 ':INT32) - (LDX21-REF9089 ':INT32) (LWORK-REF9096 ':INT32) - (INFO-REF9097 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9083 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9084 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9085 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9087 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9089 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9096 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9097 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9086 X11) (X21-REF9088 X21) - (THETA-REF9090 THETA) - (PHI-REF9091 PHI) - (TAUP1-REF9092 TAUP1) - (TAUP2-REF9093 TAUP2) - (TAUQ1-REF9094 TAUQ1) - (WORK-REF9095 WORK)) - (%%DORBDB2 M-REF9083 P-REF9084 Q-REF9085 X11-REF9086 LDX11-REF9087 - X21-REF9088 LDX21-REF9089 THETA-REF9090 PHI-REF9091 - TAUP1-REF9092 TAUP2-REF9093 TAUQ1-REF9094 WORK-REF9095 - LWORK-REF9096 INFO-REF9097)))) - -(CFFI:DEFCFUN ("dorbdb3_" %%DORBDB3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9046 ':INT32) (P-REF9047 ':INT32) + (Q-REF9048 ':INT32) (LDX11-REF9050 ':INT32) + (LDX21-REF9052 ':INT32) (LWORK-REF9059 ':INT32) + (INFO-REF9060 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9046 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9047 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9048 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9050 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9052 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9059 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9060 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9049 X11) (X21-REF9051 X21) + (THETA-REF9053 THETA) + (PHI-REF9054 PHI) + (TAUP1-REF9055 TAUP1) + (TAUP2-REF9056 TAUP2) + (TAUQ1-REF9057 TAUQ1) + (WORK-REF9058 WORK)) + (%%DORBDB2 M-REF9046 P-REF9047 Q-REF9048 X11-REF9049 LDX11-REF9050 + X21-REF9051 LDX21-REF9052 THETA-REF9053 PHI-REF9054 TAUP1-REF9055 + TAUP2-REF9056 TAUQ1-REF9057 WORK-REF9058 LWORK-REF9059 INFO-REF9060)))) + +(CFFI:DEFCFUN ("dorbdb3_" %%DORBDB3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -1121,30 +1123,30 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9098 ':INT32) (P-REF9099 ':INT32) - (Q-REF9100 ':INT32) (LDX11-REF9102 ':INT32) - (LDX21-REF9104 ':INT32) (LWORK-REF9111 ':INT32) - (INFO-REF9112 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9098 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9099 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9100 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9102 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9104 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9111 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9112 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9101 X11) (X21-REF9103 X21) - (THETA-REF9105 THETA) - (PHI-REF9106 PHI) - (TAUP1-REF9107 TAUP1) - (TAUP2-REF9108 TAUP2) - (TAUQ1-REF9109 TAUQ1) - (WORK-REF9110 WORK)) - (%%DORBDB3 M-REF9098 P-REF9099 Q-REF9100 X11-REF9101 LDX11-REF9102 - X21-REF9103 LDX21-REF9104 THETA-REF9105 PHI-REF9106 - TAUP1-REF9107 TAUP2-REF9108 TAUQ1-REF9109 WORK-REF9110 - LWORK-REF9111 INFO-REF9112)))) - -(CFFI:DEFCFUN ("dorbdb4_" %%DORBDB4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9061 ':INT32) (P-REF9062 ':INT32) + (Q-REF9063 ':INT32) (LDX11-REF9065 ':INT32) + (LDX21-REF9067 ':INT32) (LWORK-REF9074 ':INT32) + (INFO-REF9075 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9061 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9062 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9063 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9065 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9067 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9074 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9075 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9064 X11) (X21-REF9066 X21) + (THETA-REF9068 THETA) + (PHI-REF9069 PHI) + (TAUP1-REF9070 TAUP1) + (TAUP2-REF9071 TAUP2) + (TAUQ1-REF9072 TAUQ1) + (WORK-REF9073 WORK)) + (%%DORBDB3 M-REF9061 P-REF9062 Q-REF9063 X11-REF9064 LDX11-REF9065 + X21-REF9066 LDX21-REF9067 THETA-REF9068 PHI-REF9069 TAUP1-REF9070 + TAUP2-REF9071 TAUQ1-REF9072 WORK-REF9073 LWORK-REF9074 INFO-REF9075)))) + +(CFFI:DEFCFUN ("dorbdb4_" %%DORBDB4 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -1201,31 +1203,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9113 ':INT32) (P-REF9114 ':INT32) - (Q-REF9115 ':INT32) (LDX11-REF9117 ':INT32) - (LDX21-REF9119 ':INT32) (LWORK-REF9127 ':INT32) - (INFO-REF9128 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9113 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9114 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9115 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9117 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9119 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9127 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9128 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9116 X11) (X21-REF9118 X21) - (THETA-REF9120 THETA) - (PHI-REF9121 PHI) - (TAUP1-REF9122 TAUP1) - (TAUP2-REF9123 TAUP2) - (TAUQ1-REF9124 TAUQ1) - (PHANTOM-REF9125 PHANTOM) - (WORK-REF9126 WORK)) - (%%DORBDB4 M-REF9113 P-REF9114 Q-REF9115 X11-REF9116 LDX11-REF9117 - X21-REF9118 LDX21-REF9119 THETA-REF9120 PHI-REF9121 - TAUP1-REF9122 TAUP2-REF9123 TAUQ1-REF9124 PHANTOM-REF9125 - WORK-REF9126 LWORK-REF9127 INFO-REF9128)))) - -(CFFI:DEFCFUN ("dorbdb5_" %%DORBDB5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9076 ':INT32) (P-REF9077 ':INT32) + (Q-REF9078 ':INT32) (LDX11-REF9080 ':INT32) + (LDX21-REF9082 ':INT32) (LWORK-REF9090 ':INT32) + (INFO-REF9091 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9076 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9077 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9078 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9080 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9082 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9090 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9091 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9079 X11) (X21-REF9081 X21) + (THETA-REF9083 THETA) + (PHI-REF9084 PHI) + (TAUP1-REF9085 TAUP1) + (TAUP2-REF9086 TAUP2) + (TAUQ1-REF9087 TAUQ1) + (PHANTOM-REF9088 PHANTOM) + (WORK-REF9089 WORK)) + (%%DORBDB4 M-REF9076 P-REF9077 Q-REF9078 X11-REF9079 LDX11-REF9080 + X21-REF9081 LDX21-REF9082 THETA-REF9083 PHI-REF9084 TAUP1-REF9085 + TAUP2-REF9086 TAUQ1-REF9087 PHANTOM-REF9088 WORK-REF9089 LWORK-REF9090 + INFO-REF9091)))) + +(CFFI:DEFCFUN ("dorbdb5_" %%DORBDB5 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M1 :POINTER) (M2 :POINTER) @@ -1265,28 +1268,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF9129 ':INT32) (M2-REF9130 ':INT32) - (N-REF9131 ':INT32) (INCX1-REF9133 ':INT32) - (INCX2-REF9135 ':INT32) (LDQ1-REF9137 ':INT32) - (LDQ2-REF9139 ':INT32) (LWORK-REF9141 ':INT32) - (INFO-REF9142 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF9129 :INT32) M1) - (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF9130 :INT32) M2) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9131 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF9133 :INT32) INCX1) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF9135 :INT32) INCX2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF9137 :INT32) LDQ1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF9139 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9141 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9142 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF9132 X1) (X2-REF9134 X2) - (Q1-REF9136 Q1) (Q2-REF9138 Q2) - (WORK-REF9140 WORK)) - (%%DORBDB5 M1-REF9129 M2-REF9130 N-REF9131 X1-REF9132 INCX1-REF9133 - X2-REF9134 INCX2-REF9135 Q1-REF9136 LDQ1-REF9137 Q2-REF9138 - LDQ2-REF9139 WORK-REF9140 LWORK-REF9141 INFO-REF9142)))) - -(CFFI:DEFCFUN ("dorbdb6_" %%DORBDB6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF9092 ':INT32) (M2-REF9093 ':INT32) + (N-REF9094 ':INT32) (INCX1-REF9096 ':INT32) + (INCX2-REF9098 ':INT32) (LDQ1-REF9100 ':INT32) + (LDQ2-REF9102 ':INT32) (LWORK-REF9104 ':INT32) + (INFO-REF9105 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF9092 :INT32) M1) + (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF9093 :INT32) M2) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9094 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF9096 :INT32) INCX1) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF9098 :INT32) INCX2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF9100 :INT32) LDQ1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF9102 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9104 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9105 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF9095 X1) (X2-REF9097 X2) + (Q1-REF9099 Q1) (Q2-REF9101 Q2) + (WORK-REF9103 WORK)) + (%%DORBDB5 M1-REF9092 M2-REF9093 N-REF9094 X1-REF9095 INCX1-REF9096 + X2-REF9097 INCX2-REF9098 Q1-REF9099 LDQ1-REF9100 Q2-REF9101 LDQ2-REF9102 + WORK-REF9103 LWORK-REF9104 INFO-REF9105)))) + +(CFFI:DEFCFUN ("dorbdb6_" %%DORBDB6 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M1 :POINTER) (M2 :POINTER) @@ -1326,28 +1330,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF9143 ':INT32) (M2-REF9144 ':INT32) - (N-REF9145 ':INT32) (INCX1-REF9147 ':INT32) - (INCX2-REF9149 ':INT32) (LDQ1-REF9151 ':INT32) - (LDQ2-REF9153 ':INT32) (LWORK-REF9155 ':INT32) - (INFO-REF9156 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF9143 :INT32) M1) - (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF9144 :INT32) M2) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9145 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF9147 :INT32) INCX1) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF9149 :INT32) INCX2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF9151 :INT32) LDQ1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF9153 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9155 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9156 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF9146 X1) (X2-REF9148 X2) - (Q1-REF9150 Q1) (Q2-REF9152 Q2) - (WORK-REF9154 WORK)) - (%%DORBDB6 M1-REF9143 M2-REF9144 N-REF9145 X1-REF9146 INCX1-REF9147 - X2-REF9148 INCX2-REF9149 Q1-REF9150 LDQ1-REF9151 Q2-REF9152 - LDQ2-REF9153 WORK-REF9154 LWORK-REF9155 INFO-REF9156)))) - -(CFFI:DEFCFUN ("dorcsd_" %%DORCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF9106 ':INT32) (M2-REF9107 ':INT32) + (N-REF9108 ':INT32) (INCX1-REF9110 ':INT32) + (INCX2-REF9112 ':INT32) (LDQ1-REF9114 ':INT32) + (LDQ2-REF9116 ':INT32) (LWORK-REF9118 ':INT32) + (INFO-REF9119 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF9106 :INT32) M1) + (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF9107 :INT32) M2) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9108 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF9110 :INT32) INCX1) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF9112 :INT32) INCX2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF9114 :INT32) LDQ1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF9116 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9118 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9119 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF9109 X1) (X2-REF9111 X2) + (Q1-REF9113 Q1) (Q2-REF9115 Q2) + (WORK-REF9117 WORK)) + (%%DORBDB6 M1-REF9106 M2-REF9107 N-REF9108 X1-REF9109 INCX1-REF9110 + X2-REF9111 INCX2-REF9112 Q1-REF9113 LDQ1-REF9114 Q2-REF9115 LDQ2-REF9116 + WORK-REF9117 LWORK-REF9118 INFO-REF9119)))) + +(CFFI:DEFCFUN ("dorcsd_" %%DORCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -1436,42 +1440,42 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9163 ':INT32) (P-REF9164 ':INT32) - (Q-REF9165 ':INT32) (LDX11-REF9167 ':INT32) - (LDX12-REF9169 ':INT32) (LDX21-REF9171 ':INT32) - (LDX22-REF9173 ':INT32) (LDU1-REF9176 ':INT32) - (LDU2-REF9178 ':INT32) (LDV1T-REF9180 ':INT32) - (LDV2T-REF9182 ':INT32) (LWORK-REF9184 ':INT32) - (INFO-REF9186 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9163 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9164 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9165 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9167 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF9169 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9171 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF9173 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF9176 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF9178 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF9180 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF9182 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9184 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9186 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9166 X11) (X12-REF9168 X12) - (X21-REF9170 X21) (X22-REF9172 X22) - (THETA-REF9174 THETA) - (U1-REF9175 U1) (U2-REF9177 U2) - (V1T-REF9179 V1T) (V2T-REF9181 V2T) - (WORK-REF9183 WORK) - (IWORK-REF9185 IWORK)) - (%%DORCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF9163 P-REF9164 - Q-REF9165 X11-REF9166 LDX11-REF9167 X12-REF9168 LDX12-REF9169 - X21-REF9170 LDX21-REF9171 X22-REF9172 LDX22-REF9173 - THETA-REF9174 U1-REF9175 LDU1-REF9176 U2-REF9177 LDU2-REF9178 - V1T-REF9179 LDV1T-REF9180 V2T-REF9181 LDV2T-REF9182 - WORK-REF9183 LWORK-REF9184 IWORK-REF9185 INFO-REF9186)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9126 ':INT32) (P-REF9127 ':INT32) + (Q-REF9128 ':INT32) (LDX11-REF9130 ':INT32) + (LDX12-REF9132 ':INT32) (LDX21-REF9134 ':INT32) + (LDX22-REF9136 ':INT32) (LDU1-REF9139 ':INT32) + (LDU2-REF9141 ':INT32) (LDV1T-REF9143 ':INT32) + (LDV2T-REF9145 ':INT32) (LWORK-REF9147 ':INT32) + (INFO-REF9149 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9126 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9127 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9128 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9130 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF9132 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9134 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF9136 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF9139 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF9141 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF9143 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF9145 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9147 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9149 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9129 X11) (X12-REF9131 X12) + (X21-REF9133 X21) (X22-REF9135 X22) + (THETA-REF9137 THETA) + (U1-REF9138 U1) (U2-REF9140 U2) + (V1T-REF9142 V1T) (V2T-REF9144 V2T) + (WORK-REF9146 WORK) + (IWORK-REF9148 IWORK)) + (%%DORCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF9126 P-REF9127 + Q-REF9128 X11-REF9129 LDX11-REF9130 X12-REF9131 LDX12-REF9132 + X21-REF9133 LDX21-REF9134 X22-REF9135 LDX22-REF9136 THETA-REF9137 + U1-REF9138 LDU1-REF9139 U2-REF9140 LDU2-REF9141 V1T-REF9142 + LDV1T-REF9143 V2T-REF9144 LDV2T-REF9145 WORK-REF9146 LWORK-REF9147 + IWORK-REF9148 INFO-REF9149)))) (CFFI:DEFCFUN ("dorcsd2by1_" %%DORCSD2BY1 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -1535,34 +1539,33 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9190 ':INT32) (P-REF9191 ':INT32) - (Q-REF9192 ':INT32) (LDX11-REF9194 ':INT32) - (LDX21-REF9196 ':INT32) (LDU1-REF9199 ':INT32) - (LDU2-REF9201 ':INT32) (LDV1T-REF9203 ':INT32) - (LWORK-REF9205 ':INT32) (INFO-REF9207 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9190 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9191 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9192 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9194 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9196 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF9199 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF9201 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF9203 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9205 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9207 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9193 X11) (X21-REF9195 X21) - (THETA-REF9197 THETA) - (U1-REF9198 U1) (U2-REF9200 U2) - (V1T-REF9202 V1T) - (WORK-REF9204 WORK) - (IWORK-REF9206 IWORK)) - (%%DORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF9190 P-REF9191 Q-REF9192 - X11-REF9193 LDX11-REF9194 X21-REF9195 LDX21-REF9196 - THETA-REF9197 U1-REF9198 LDU1-REF9199 U2-REF9200 - LDU2-REF9201 V1T-REF9202 LDV1T-REF9203 WORK-REF9204 - LWORK-REF9205 IWORK-REF9206 INFO-REF9207)))) - -(CFFI:DEFCFUN ("dorg2l_" %%DORG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9153 ':INT32) (P-REF9154 ':INT32) + (Q-REF9155 ':INT32) (LDX11-REF9157 ':INT32) + (LDX21-REF9159 ':INT32) (LDU1-REF9162 ':INT32) + (LDU2-REF9164 ':INT32) (LDV1T-REF9166 ':INT32) + (LWORK-REF9168 ':INT32) (INFO-REF9170 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9153 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9154 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9155 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9157 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9159 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF9162 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF9164 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF9166 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9168 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9170 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9156 X11) (X21-REF9158 X21) + (THETA-REF9160 THETA) + (U1-REF9161 U1) (U2-REF9163 U2) + (V1T-REF9165 V1T) + (WORK-REF9167 WORK) + (IWORK-REF9169 IWORK)) + (%%DORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF9153 P-REF9154 Q-REF9155 + X11-REF9156 LDX11-REF9157 X21-REF9158 LDX21-REF9159 THETA-REF9160 + U1-REF9161 LDU1-REF9162 U2-REF9163 LDU2-REF9164 V1T-REF9165 + LDV1T-REF9166 WORK-REF9167 LWORK-REF9168 IWORK-REF9169 INFO-REF9170)))) + +(CFFI:DEFCFUN ("dorg2l_" %%DORG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1588,20 +1591,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9208 ':INT32) (N-REF9209 ':INT32) - (K-REF9210 ':INT32) (LDA-REF9212 ':INT32) - (INFO-REF9215 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9208 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9209 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9210 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9212 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9215 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9211 A) (TAU-REF9213 TAU) - (WORK-REF9214 WORK)) - (%%DORG2L M-REF9208 N-REF9209 K-REF9210 A-REF9211 LDA-REF9212 TAU-REF9213 - WORK-REF9214 INFO-REF9215)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9171 ':INT32) (N-REF9172 ':INT32) + (K-REF9173 ':INT32) (LDA-REF9175 ':INT32) + (INFO-REF9178 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9171 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9172 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9173 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9175 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9178 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9174 A) (TAU-REF9176 TAU) + (WORK-REF9177 WORK)) + (%%DORG2L M-REF9171 N-REF9172 K-REF9173 A-REF9174 LDA-REF9175 TAU-REF9176 + WORK-REF9177 INFO-REF9178)))) -(CFFI:DEFCFUN ("dorg2r_" %%DORG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dorg2r_" %%DORG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1627,20 +1630,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9216 ':INT32) (N-REF9217 ':INT32) - (K-REF9218 ':INT32) (LDA-REF9220 ':INT32) - (INFO-REF9223 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9216 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9217 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9218 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9220 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9223 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9219 A) (TAU-REF9221 TAU) - (WORK-REF9222 WORK)) - (%%DORG2R M-REF9216 N-REF9217 K-REF9218 A-REF9219 LDA-REF9220 TAU-REF9221 - WORK-REF9222 INFO-REF9223)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9179 ':INT32) (N-REF9180 ':INT32) + (K-REF9181 ':INT32) (LDA-REF9183 ':INT32) + (INFO-REF9186 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9179 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9180 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9181 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9183 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9186 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9182 A) (TAU-REF9184 TAU) + (WORK-REF9185 WORK)) + (%%DORG2R M-REF9179 N-REF9180 K-REF9181 A-REF9182 LDA-REF9183 TAU-REF9184 + WORK-REF9185 INFO-REF9186)))) -(CFFI:DEFCFUN ("dorgbr_" %%DORGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dorgbr_" %%DORGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (M :POINTER) @@ -1670,21 +1673,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9225 ':INT32) (N-REF9226 ':INT32) - (K-REF9227 ':INT32) (LDA-REF9229 ':INT32) - (LWORK-REF9232 ':INT32) (INFO-REF9233 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9225 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9226 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9227 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9229 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9232 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9233 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9228 A) (TAU-REF9230 TAU) - (WORK-REF9231 WORK)) - (%%DORGBR VECT M-REF9225 N-REF9226 K-REF9227 A-REF9228 LDA-REF9229 - TAU-REF9230 WORK-REF9231 LWORK-REF9232 INFO-REF9233)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9188 ':INT32) (N-REF9189 ':INT32) + (K-REF9190 ':INT32) (LDA-REF9192 ':INT32) + (LWORK-REF9195 ':INT32) (INFO-REF9196 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9188 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9189 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9190 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9192 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9195 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9196 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9191 A) (TAU-REF9193 TAU) + (WORK-REF9194 WORK)) + (%%DORGBR VECT M-REF9188 N-REF9189 K-REF9190 A-REF9191 LDA-REF9192 + TAU-REF9193 WORK-REF9194 LWORK-REF9195 INFO-REF9196)))) -(CFFI:DEFCFUN ("dorghr_" %%DORGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dorghr_" %%DORGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -1712,21 +1715,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9234 ':INT32) (ILO-REF9235 ':INT32) - (IHI-REF9236 ':INT32) (LDA-REF9238 ':INT32) - (LWORK-REF9241 ':INT32) (INFO-REF9242 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9234 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9235 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9236 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9238 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9241 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9242 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9237 A) (TAU-REF9239 TAU) - (WORK-REF9240 WORK)) - (%%DORGHR N-REF9234 ILO-REF9235 IHI-REF9236 A-REF9237 LDA-REF9238 - TAU-REF9239 WORK-REF9240 LWORK-REF9241 INFO-REF9242)))) - -(CFFI:DEFCFUN ("dorgl2_" %%DORGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9197 ':INT32) (ILO-REF9198 ':INT32) + (IHI-REF9199 ':INT32) (LDA-REF9201 ':INT32) + (LWORK-REF9204 ':INT32) (INFO-REF9205 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9197 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9198 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9199 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9201 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9204 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9205 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9200 A) (TAU-REF9202 TAU) + (WORK-REF9203 WORK)) + (%%DORGHR N-REF9197 ILO-REF9198 IHI-REF9199 A-REF9200 LDA-REF9201 + TAU-REF9202 WORK-REF9203 LWORK-REF9204 INFO-REF9205)))) + +(CFFI:DEFCFUN ("dorgl2_" %%DORGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1752,20 +1755,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9243 ':INT32) (N-REF9244 ':INT32) - (K-REF9245 ':INT32) (LDA-REF9247 ':INT32) - (INFO-REF9250 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9243 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9244 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9245 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9247 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9250 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9246 A) (TAU-REF9248 TAU) - (WORK-REF9249 WORK)) - (%%DORGL2 M-REF9243 N-REF9244 K-REF9245 A-REF9246 LDA-REF9247 TAU-REF9248 - WORK-REF9249 INFO-REF9250)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9206 ':INT32) (N-REF9207 ':INT32) + (K-REF9208 ':INT32) (LDA-REF9210 ':INT32) + (INFO-REF9213 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9206 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9207 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9208 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9210 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9213 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9209 A) (TAU-REF9211 TAU) + (WORK-REF9212 WORK)) + (%%DORGL2 M-REF9206 N-REF9207 K-REF9208 A-REF9209 LDA-REF9210 TAU-REF9211 + WORK-REF9212 INFO-REF9213)))) -(CFFI:DEFCFUN ("dorglq_" %%DORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dorglq_" %%DORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1793,21 +1796,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9251 ':INT32) (N-REF9252 ':INT32) - (K-REF9253 ':INT32) (LDA-REF9255 ':INT32) - (LWORK-REF9258 ':INT32) (INFO-REF9259 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9251 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9252 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9253 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9255 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9258 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9259 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9254 A) (TAU-REF9256 TAU) - (WORK-REF9257 WORK)) - (%%DORGLQ M-REF9251 N-REF9252 K-REF9253 A-REF9254 LDA-REF9255 TAU-REF9256 - WORK-REF9257 LWORK-REF9258 INFO-REF9259)))) - -(CFFI:DEFCFUN ("dorgql_" %%DORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9214 ':INT32) (N-REF9215 ':INT32) + (K-REF9216 ':INT32) (LDA-REF9218 ':INT32) + (LWORK-REF9221 ':INT32) (INFO-REF9222 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9214 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9215 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9216 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9218 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9221 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9222 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9217 A) (TAU-REF9219 TAU) + (WORK-REF9220 WORK)) + (%%DORGLQ M-REF9214 N-REF9215 K-REF9216 A-REF9217 LDA-REF9218 TAU-REF9219 + WORK-REF9220 LWORK-REF9221 INFO-REF9222)))) + +(CFFI:DEFCFUN ("dorgql_" %%DORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1835,21 +1838,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9260 ':INT32) (N-REF9261 ':INT32) - (K-REF9262 ':INT32) (LDA-REF9264 ':INT32) - (LWORK-REF9267 ':INT32) (INFO-REF9268 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9260 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9261 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9262 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9264 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9267 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9268 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9263 A) (TAU-REF9265 TAU) - (WORK-REF9266 WORK)) - (%%DORGQL M-REF9260 N-REF9261 K-REF9262 A-REF9263 LDA-REF9264 TAU-REF9265 - WORK-REF9266 LWORK-REF9267 INFO-REF9268)))) - -(CFFI:DEFCFUN ("dorgqr_" %%DORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9223 ':INT32) (N-REF9224 ':INT32) + (K-REF9225 ':INT32) (LDA-REF9227 ':INT32) + (LWORK-REF9230 ':INT32) (INFO-REF9231 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9223 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9224 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9225 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9227 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9230 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9231 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9226 A) (TAU-REF9228 TAU) + (WORK-REF9229 WORK)) + (%%DORGQL M-REF9223 N-REF9224 K-REF9225 A-REF9226 LDA-REF9227 TAU-REF9228 + WORK-REF9229 LWORK-REF9230 INFO-REF9231)))) + +(CFFI:DEFCFUN ("dorgqr_" %%DORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1877,21 +1880,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9269 ':INT32) (N-REF9270 ':INT32) - (K-REF9271 ':INT32) (LDA-REF9273 ':INT32) - (LWORK-REF9276 ':INT32) (INFO-REF9277 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9269 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9270 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9271 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9273 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9276 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9277 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9272 A) (TAU-REF9274 TAU) - (WORK-REF9275 WORK)) - (%%DORGQR M-REF9269 N-REF9270 K-REF9271 A-REF9272 LDA-REF9273 TAU-REF9274 - WORK-REF9275 LWORK-REF9276 INFO-REF9277)))) - -(CFFI:DEFCFUN ("dorgr2_" %%DORGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9232 ':INT32) (N-REF9233 ':INT32) + (K-REF9234 ':INT32) (LDA-REF9236 ':INT32) + (LWORK-REF9239 ':INT32) (INFO-REF9240 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9232 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9233 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9234 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9236 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9239 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9240 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9235 A) (TAU-REF9237 TAU) + (WORK-REF9238 WORK)) + (%%DORGQR M-REF9232 N-REF9233 K-REF9234 A-REF9235 LDA-REF9236 TAU-REF9237 + WORK-REF9238 LWORK-REF9239 INFO-REF9240)))) + +(CFFI:DEFCFUN ("dorgr2_" %%DORGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1917,20 +1920,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9278 ':INT32) (N-REF9279 ':INT32) - (K-REF9280 ':INT32) (LDA-REF9282 ':INT32) - (INFO-REF9285 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9278 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9279 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9280 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9282 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9285 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9281 A) (TAU-REF9283 TAU) - (WORK-REF9284 WORK)) - (%%DORGR2 M-REF9278 N-REF9279 K-REF9280 A-REF9281 LDA-REF9282 TAU-REF9283 - WORK-REF9284 INFO-REF9285)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9241 ':INT32) (N-REF9242 ':INT32) + (K-REF9243 ':INT32) (LDA-REF9245 ':INT32) + (INFO-REF9248 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9241 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9242 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9243 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9245 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9248 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9244 A) (TAU-REF9246 TAU) + (WORK-REF9247 WORK)) + (%%DORGR2 M-REF9241 N-REF9242 K-REF9243 A-REF9244 LDA-REF9245 TAU-REF9246 + WORK-REF9247 INFO-REF9248)))) -(CFFI:DEFCFUN ("dorgrq_" %%DORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dorgrq_" %%DORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1958,21 +1961,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9286 ':INT32) (N-REF9287 ':INT32) - (K-REF9288 ':INT32) (LDA-REF9290 ':INT32) - (LWORK-REF9293 ':INT32) (INFO-REF9294 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9286 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9287 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9288 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9290 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9293 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9294 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9289 A) (TAU-REF9291 TAU) - (WORK-REF9292 WORK)) - (%%DORGRQ M-REF9286 N-REF9287 K-REF9288 A-REF9289 LDA-REF9290 TAU-REF9291 - WORK-REF9292 LWORK-REF9293 INFO-REF9294)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9249 ':INT32) (N-REF9250 ':INT32) + (K-REF9251 ':INT32) (LDA-REF9253 ':INT32) + (LWORK-REF9256 ':INT32) (INFO-REF9257 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9249 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9250 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9251 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9253 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9256 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9257 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9252 A) (TAU-REF9254 TAU) + (WORK-REF9255 WORK)) + (%%DORGRQ M-REF9249 N-REF9250 K-REF9251 A-REF9252 LDA-REF9253 TAU-REF9254 + WORK-REF9255 LWORK-REF9256 INFO-REF9257)))) -(CFFI:DEFCFUN ("dorgtr_" %%DORGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dorgtr_" %%DORGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1998,18 +2001,109 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9296 ':INT32) (LDA-REF9298 ':INT32) - (LWORK-REF9301 ':INT32) (INFO-REF9302 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9296 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9298 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9301 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9302 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9297 A) (TAU-REF9299 TAU) - (WORK-REF9300 WORK)) - (%%DORGTR UPLO N-REF9296 A-REF9297 LDA-REF9298 TAU-REF9299 WORK-REF9300 - LWORK-REF9301 INFO-REF9302)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9259 ':INT32) (LDA-REF9261 ':INT32) + (LWORK-REF9264 ':INT32) (INFO-REF9265 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9259 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9261 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9264 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9265 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9260 A) (TAU-REF9262 TAU) + (WORK-REF9263 WORK)) + (%%DORGTR UPLO N-REF9259 A-REF9260 LDA-REF9261 TAU-REF9262 WORK-REF9263 + LWORK-REF9264 INFO-REF9265)))) + +(CFFI:DEFCFUN ("dorgtsqr_" %%DORGTSQR :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (MB :POINTER) + (NB :POINTER) + (A :POINTER) + (LDA :POINTER) + (T :POINTER) + (LDT :POINTER) + (WORK :POINTER) + (LWORK :POINTER) + (INFO :POINTER)) -(CFFI:DEFCFUN ("dorm22_" %%DORM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(COMMON-LISP:DEFUN %DORGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGTSQR) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) + WORK) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9266 ':INT32) (N-REF9267 ':INT32) + (MB-REF9268 ':INT32) (NB-REF9269 ':INT32) + (LDA-REF9271 ':INT32) (LDT-REF9273 ':INT32) + (LWORK-REF9275 ':INT32) (INFO-REF9276 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9266 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9267 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF9268 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9269 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9271 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9273 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9275 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9276 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9270 A) (T-REF9272 T) + (WORK-REF9274 WORK)) + (%%DORGTSQR M-REF9266 N-REF9267 MB-REF9268 NB-REF9269 A-REF9270 + LDA-REF9271 T-REF9272 LDT-REF9273 WORK-REF9274 LWORK-REF9275 + INFO-REF9276)))) + +(CFFI:DEFCFUN ("dorhr_col_" %%DORHR_COL :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (NB :POINTER) + (A :POINTER) + (LDA :POINTER) + (T :POINTER) + (LDT :POINTER) + (D :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %DORHR_COL (M N NB A LDA T LDT D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORHR_COL) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9277 ':INT32) (N-REF9278 ':INT32) + (NB-REF9279 ':INT32) (LDA-REF9281 ':INT32) + (LDT-REF9283 ':INT32) (INFO-REF9285 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9277 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9278 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9279 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9281 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9283 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9285 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9280 A) (T-REF9282 T) + (D-REF9284 D)) + (%%DORHR_COL M-REF9277 N-REF9278 NB-REF9279 A-REF9280 LDA-REF9281 + T-REF9282 LDT-REF9283 D-REF9284 INFO-REF9285)))) + +(CFFI:DEFCFUN ("dorm22_" %%DORM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2044,25 +2138,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9305 ':INT32) (N-REF9306 ':INT32) - (N1-REF9307 ':INT32) (N2-REF9308 ':INT32) - (LDQ-REF9310 ':INT32) (LDC-REF9312 ':INT32) - (LWORK-REF9314 ':INT32) (INFO-REF9315 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9305 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9306 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF9307 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF9308 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9310 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9312 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9314 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9315 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF9309 Q) (C-REF9311 C) - (WORK-REF9313 WORK)) - (%%DORM22 SIDE TRANS M-REF9305 N-REF9306 N1-REF9307 N2-REF9308 Q-REF9309 - LDQ-REF9310 C-REF9311 LDC-REF9312 WORK-REF9313 LWORK-REF9314 - INFO-REF9315)))) - -(CFFI:DEFCFUN ("dorm2l_" %%DORM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9288 ':INT32) (N-REF9289 ':INT32) + (N1-REF9290 ':INT32) (N2-REF9291 ':INT32) + (LDQ-REF9293 ':INT32) (LDC-REF9295 ':INT32) + (LWORK-REF9297 ':INT32) (INFO-REF9298 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9288 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9289 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF9290 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF9291 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9293 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9295 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9297 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9298 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF9292 Q) (C-REF9294 C) + (WORK-REF9296 WORK)) + (%%DORM22 SIDE TRANS M-REF9288 N-REF9289 N1-REF9290 N2-REF9291 Q-REF9292 + LDQ-REF9293 C-REF9294 LDC-REF9295 WORK-REF9296 LWORK-REF9297 + INFO-REF9298)))) + +(CFFI:DEFCFUN ("dorm2l_" %%DORM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2097,21 +2191,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9318 ':INT32) (N-REF9319 ':INT32) - (K-REF9320 ':INT32) (LDA-REF9322 ':INT32) - (LDC-REF9325 ':INT32) (INFO-REF9327 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9318 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9319 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9320 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9322 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9325 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9327 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9321 A) (TAU-REF9323 TAU) - (C-REF9324 C) (WORK-REF9326 WORK)) - (%%DORM2L SIDE TRANS M-REF9318 N-REF9319 K-REF9320 A-REF9321 LDA-REF9322 - TAU-REF9323 C-REF9324 LDC-REF9325 WORK-REF9326 INFO-REF9327)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9301 ':INT32) (N-REF9302 ':INT32) + (K-REF9303 ':INT32) (LDA-REF9305 ':INT32) + (LDC-REF9308 ':INT32) (INFO-REF9310 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9301 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9302 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9303 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9305 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9308 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9310 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9304 A) (TAU-REF9306 TAU) + (C-REF9307 C) (WORK-REF9309 WORK)) + (%%DORM2L SIDE TRANS M-REF9301 N-REF9302 K-REF9303 A-REF9304 LDA-REF9305 + TAU-REF9306 C-REF9307 LDC-REF9308 WORK-REF9309 INFO-REF9310)))) -(CFFI:DEFCFUN ("dorm2r_" %%DORM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dorm2r_" %%DORM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2146,21 +2240,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9330 ':INT32) (N-REF9331 ':INT32) - (K-REF9332 ':INT32) (LDA-REF9334 ':INT32) - (LDC-REF9337 ':INT32) (INFO-REF9339 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9330 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9331 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9332 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9334 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9337 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9339 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9333 A) (TAU-REF9335 TAU) - (C-REF9336 C) (WORK-REF9338 WORK)) - (%%DORM2R SIDE TRANS M-REF9330 N-REF9331 K-REF9332 A-REF9333 LDA-REF9334 - TAU-REF9335 C-REF9336 LDC-REF9337 WORK-REF9338 INFO-REF9339)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9313 ':INT32) (N-REF9314 ':INT32) + (K-REF9315 ':INT32) (LDA-REF9317 ':INT32) + (LDC-REF9320 ':INT32) (INFO-REF9322 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9313 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9314 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9315 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9317 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9320 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9322 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9316 A) (TAU-REF9318 TAU) + (C-REF9319 C) (WORK-REF9321 WORK)) + (%%DORM2R SIDE TRANS M-REF9313 N-REF9314 K-REF9315 A-REF9316 LDA-REF9317 + TAU-REF9318 C-REF9319 LDC-REF9320 WORK-REF9321 INFO-REF9322)))) -(CFFI:DEFCFUN ("dormbr_" %%DORMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dormbr_" %%DORMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (SIDE :STRING) @@ -2200,24 +2294,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9343 ':INT32) (N-REF9344 ':INT32) - (K-REF9345 ':INT32) (LDA-REF9347 ':INT32) - (LDC-REF9350 ':INT32) (LWORK-REF9352 ':INT32) - (INFO-REF9353 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9343 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9344 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9345 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9347 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9350 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9352 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9353 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9346 A) (TAU-REF9348 TAU) - (C-REF9349 C) (WORK-REF9351 WORK)) - (%%DORMBR VECT SIDE TRANS M-REF9343 N-REF9344 K-REF9345 A-REF9346 - LDA-REF9347 TAU-REF9348 C-REF9349 LDC-REF9350 WORK-REF9351 - LWORK-REF9352 INFO-REF9353)))) - -(CFFI:DEFCFUN ("dormhr_" %%DORMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9326 ':INT32) (N-REF9327 ':INT32) + (K-REF9328 ':INT32) (LDA-REF9330 ':INT32) + (LDC-REF9333 ':INT32) (LWORK-REF9335 ':INT32) + (INFO-REF9336 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9326 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9327 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9328 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9330 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9333 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9335 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9336 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9329 A) (TAU-REF9331 TAU) + (C-REF9332 C) (WORK-REF9334 WORK)) + (%%DORMBR VECT SIDE TRANS M-REF9326 N-REF9327 K-REF9328 A-REF9329 + LDA-REF9330 TAU-REF9331 C-REF9332 LDC-REF9333 WORK-REF9334 LWORK-REF9335 + INFO-REF9336)))) + +(CFFI:DEFCFUN ("dormhr_" %%DORMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2257,25 +2351,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9356 ':INT32) (N-REF9357 ':INT32) - (ILO-REF9358 ':INT32) (IHI-REF9359 ':INT32) - (LDA-REF9361 ':INT32) (LDC-REF9364 ':INT32) - (LWORK-REF9366 ':INT32) (INFO-REF9367 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9356 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9357 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9358 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9359 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9361 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9364 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9366 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9367 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9360 A) (TAU-REF9362 TAU) - (C-REF9363 C) (WORK-REF9365 WORK)) - (%%DORMHR SIDE TRANS M-REF9356 N-REF9357 ILO-REF9358 IHI-REF9359 - A-REF9360 LDA-REF9361 TAU-REF9362 C-REF9363 LDC-REF9364 - WORK-REF9365 LWORK-REF9366 INFO-REF9367)))) - -(CFFI:DEFCFUN ("dorml2_" %%DORML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9339 ':INT32) (N-REF9340 ':INT32) + (ILO-REF9341 ':INT32) (IHI-REF9342 ':INT32) + (LDA-REF9344 ':INT32) (LDC-REF9347 ':INT32) + (LWORK-REF9349 ':INT32) (INFO-REF9350 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9339 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9340 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9341 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9342 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9344 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9347 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9349 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9350 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9343 A) (TAU-REF9345 TAU) + (C-REF9346 C) (WORK-REF9348 WORK)) + (%%DORMHR SIDE TRANS M-REF9339 N-REF9340 ILO-REF9341 IHI-REF9342 + A-REF9343 LDA-REF9344 TAU-REF9345 C-REF9346 LDC-REF9347 WORK-REF9348 + LWORK-REF9349 INFO-REF9350)))) + +(CFFI:DEFCFUN ("dorml2_" %%DORML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2310,21 +2404,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9370 ':INT32) (N-REF9371 ':INT32) - (K-REF9372 ':INT32) (LDA-REF9374 ':INT32) - (LDC-REF9377 ':INT32) (INFO-REF9379 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9370 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9371 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9372 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9374 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9377 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9379 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9373 A) (TAU-REF9375 TAU) - (C-REF9376 C) (WORK-REF9378 WORK)) - (%%DORML2 SIDE TRANS M-REF9370 N-REF9371 K-REF9372 A-REF9373 LDA-REF9374 - TAU-REF9375 C-REF9376 LDC-REF9377 WORK-REF9378 INFO-REF9379)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9353 ':INT32) (N-REF9354 ':INT32) + (K-REF9355 ':INT32) (LDA-REF9357 ':INT32) + (LDC-REF9360 ':INT32) (INFO-REF9362 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9353 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9354 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9355 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9357 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9360 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9362 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9356 A) (TAU-REF9358 TAU) + (C-REF9359 C) (WORK-REF9361 WORK)) + (%%DORML2 SIDE TRANS M-REF9353 N-REF9354 K-REF9355 A-REF9356 LDA-REF9357 + TAU-REF9358 C-REF9359 LDC-REF9360 WORK-REF9361 INFO-REF9362)))) -(CFFI:DEFCFUN ("dormlq_" %%DORMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dormlq_" %%DORMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2361,24 +2455,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9382 ':INT32) (N-REF9383 ':INT32) - (K-REF9384 ':INT32) (LDA-REF9386 ':INT32) - (LDC-REF9389 ':INT32) (LWORK-REF9391 ':INT32) - (INFO-REF9392 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9382 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9383 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9384 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9386 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9389 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9391 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9392 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9385 A) (TAU-REF9387 TAU) - (C-REF9388 C) (WORK-REF9390 WORK)) - (%%DORMLQ SIDE TRANS M-REF9382 N-REF9383 K-REF9384 A-REF9385 LDA-REF9386 - TAU-REF9387 C-REF9388 LDC-REF9389 WORK-REF9390 LWORK-REF9391 - INFO-REF9392)))) - -(CFFI:DEFCFUN ("dormql_" %%DORMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9365 ':INT32) (N-REF9366 ':INT32) + (K-REF9367 ':INT32) (LDA-REF9369 ':INT32) + (LDC-REF9372 ':INT32) (LWORK-REF9374 ':INT32) + (INFO-REF9375 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9365 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9366 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9367 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9369 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9372 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9374 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9375 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9368 A) (TAU-REF9370 TAU) + (C-REF9371 C) (WORK-REF9373 WORK)) + (%%DORMLQ SIDE TRANS M-REF9365 N-REF9366 K-REF9367 A-REF9368 LDA-REF9369 + TAU-REF9370 C-REF9371 LDC-REF9372 WORK-REF9373 LWORK-REF9374 + INFO-REF9375)))) + +(CFFI:DEFCFUN ("dormql_" %%DORMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2415,24 +2509,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9395 ':INT32) (N-REF9396 ':INT32) - (K-REF9397 ':INT32) (LDA-REF9399 ':INT32) - (LDC-REF9402 ':INT32) (LWORK-REF9404 ':INT32) - (INFO-REF9405 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9395 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9396 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9397 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9399 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9402 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9404 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9405 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9398 A) (TAU-REF9400 TAU) - (C-REF9401 C) (WORK-REF9403 WORK)) - (%%DORMQL SIDE TRANS M-REF9395 N-REF9396 K-REF9397 A-REF9398 LDA-REF9399 - TAU-REF9400 C-REF9401 LDC-REF9402 WORK-REF9403 LWORK-REF9404 - INFO-REF9405)))) - -(CFFI:DEFCFUN ("dormqr_" %%DORMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9378 ':INT32) (N-REF9379 ':INT32) + (K-REF9380 ':INT32) (LDA-REF9382 ':INT32) + (LDC-REF9385 ':INT32) (LWORK-REF9387 ':INT32) + (INFO-REF9388 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9378 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9379 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9380 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9382 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9385 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9387 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9388 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9381 A) (TAU-REF9383 TAU) + (C-REF9384 C) (WORK-REF9386 WORK)) + (%%DORMQL SIDE TRANS M-REF9378 N-REF9379 K-REF9380 A-REF9381 LDA-REF9382 + TAU-REF9383 C-REF9384 LDC-REF9385 WORK-REF9386 LWORK-REF9387 + INFO-REF9388)))) + +(CFFI:DEFCFUN ("dormqr_" %%DORMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2469,24 +2563,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9408 ':INT32) (N-REF9409 ':INT32) - (K-REF9410 ':INT32) (LDA-REF9412 ':INT32) - (LDC-REF9415 ':INT32) (LWORK-REF9417 ':INT32) - (INFO-REF9418 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9408 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9409 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9410 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9412 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9415 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9417 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9418 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9411 A) (TAU-REF9413 TAU) - (C-REF9414 C) (WORK-REF9416 WORK)) - (%%DORMQR SIDE TRANS M-REF9408 N-REF9409 K-REF9410 A-REF9411 LDA-REF9412 - TAU-REF9413 C-REF9414 LDC-REF9415 WORK-REF9416 LWORK-REF9417 - INFO-REF9418)))) - -(CFFI:DEFCFUN ("dormr2_" %%DORMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9391 ':INT32) (N-REF9392 ':INT32) + (K-REF9393 ':INT32) (LDA-REF9395 ':INT32) + (LDC-REF9398 ':INT32) (LWORK-REF9400 ':INT32) + (INFO-REF9401 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9391 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9392 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9393 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9395 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9398 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9400 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9401 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9394 A) (TAU-REF9396 TAU) + (C-REF9397 C) (WORK-REF9399 WORK)) + (%%DORMQR SIDE TRANS M-REF9391 N-REF9392 K-REF9393 A-REF9394 LDA-REF9395 + TAU-REF9396 C-REF9397 LDC-REF9398 WORK-REF9399 LWORK-REF9400 + INFO-REF9401)))) + +(CFFI:DEFCFUN ("dormr2_" %%DORMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2521,21 +2615,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9421 ':INT32) (N-REF9422 ':INT32) - (K-REF9423 ':INT32) (LDA-REF9425 ':INT32) - (LDC-REF9428 ':INT32) (INFO-REF9430 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9421 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9422 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9423 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9425 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9428 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9430 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9424 A) (TAU-REF9426 TAU) - (C-REF9427 C) (WORK-REF9429 WORK)) - (%%DORMR2 SIDE TRANS M-REF9421 N-REF9422 K-REF9423 A-REF9424 LDA-REF9425 - TAU-REF9426 C-REF9427 LDC-REF9428 WORK-REF9429 INFO-REF9430)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9404 ':INT32) (N-REF9405 ':INT32) + (K-REF9406 ':INT32) (LDA-REF9408 ':INT32) + (LDC-REF9411 ':INT32) (INFO-REF9413 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9404 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9405 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9406 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9408 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9411 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9413 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9407 A) (TAU-REF9409 TAU) + (C-REF9410 C) (WORK-REF9412 WORK)) + (%%DORMR2 SIDE TRANS M-REF9404 N-REF9405 K-REF9406 A-REF9407 LDA-REF9408 + TAU-REF9409 C-REF9410 LDC-REF9411 WORK-REF9412 INFO-REF9413)))) -(CFFI:DEFCFUN ("dormr3_" %%DORMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dormr3_" %%DORMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2572,24 +2666,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9433 ':INT32) (N-REF9434 ':INT32) - (K-REF9435 ':INT32) (L-REF9436 ':INT32) - (LDA-REF9438 ':INT32) (LDC-REF9441 ':INT32) - (INFO-REF9443 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9433 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9434 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9435 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9436 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9438 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9441 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9443 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9437 A) (TAU-REF9439 TAU) - (C-REF9440 C) (WORK-REF9442 WORK)) - (%%DORMR3 SIDE TRANS M-REF9433 N-REF9434 K-REF9435 L-REF9436 A-REF9437 - LDA-REF9438 TAU-REF9439 C-REF9440 LDC-REF9441 WORK-REF9442 - INFO-REF9443)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9416 ':INT32) (N-REF9417 ':INT32) + (K-REF9418 ':INT32) (L-REF9419 ':INT32) + (LDA-REF9421 ':INT32) (LDC-REF9424 ':INT32) + (INFO-REF9426 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9416 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9417 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9418 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9419 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9421 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9424 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9426 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9420 A) (TAU-REF9422 TAU) + (C-REF9423 C) (WORK-REF9425 WORK)) + (%%DORMR3 SIDE TRANS M-REF9416 N-REF9417 K-REF9418 L-REF9419 A-REF9420 + LDA-REF9421 TAU-REF9422 C-REF9423 LDC-REF9424 WORK-REF9425 + INFO-REF9426)))) -(CFFI:DEFCFUN ("dormrq_" %%DORMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dormrq_" %%DORMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2626,24 +2720,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9446 ':INT32) (N-REF9447 ':INT32) - (K-REF9448 ':INT32) (LDA-REF9450 ':INT32) - (LDC-REF9453 ':INT32) (LWORK-REF9455 ':INT32) - (INFO-REF9456 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9446 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9447 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9448 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9450 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9453 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9455 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9456 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9449 A) (TAU-REF9451 TAU) - (C-REF9452 C) (WORK-REF9454 WORK)) - (%%DORMRQ SIDE TRANS M-REF9446 N-REF9447 K-REF9448 A-REF9449 LDA-REF9450 - TAU-REF9451 C-REF9452 LDC-REF9453 WORK-REF9454 LWORK-REF9455 - INFO-REF9456)))) - -(CFFI:DEFCFUN ("dormrz_" %%DORMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9429 ':INT32) (N-REF9430 ':INT32) + (K-REF9431 ':INT32) (LDA-REF9433 ':INT32) + (LDC-REF9436 ':INT32) (LWORK-REF9438 ':INT32) + (INFO-REF9439 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9429 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9430 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9431 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9433 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9436 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9438 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9439 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9432 A) (TAU-REF9434 TAU) + (C-REF9435 C) (WORK-REF9437 WORK)) + (%%DORMRQ SIDE TRANS M-REF9429 N-REF9430 K-REF9431 A-REF9432 LDA-REF9433 + TAU-REF9434 C-REF9435 LDC-REF9436 WORK-REF9437 LWORK-REF9438 + INFO-REF9439)))) + +(CFFI:DEFCFUN ("dormrz_" %%DORMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2682,25 +2776,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9459 ':INT32) (N-REF9460 ':INT32) - (K-REF9461 ':INT32) (L-REF9462 ':INT32) - (LDA-REF9464 ':INT32) (LDC-REF9467 ':INT32) - (LWORK-REF9469 ':INT32) (INFO-REF9470 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9459 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9460 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9461 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9462 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9464 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9467 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9469 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9470 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9463 A) (TAU-REF9465 TAU) - (C-REF9466 C) (WORK-REF9468 WORK)) - (%%DORMRZ SIDE TRANS M-REF9459 N-REF9460 K-REF9461 L-REF9462 A-REF9463 - LDA-REF9464 TAU-REF9465 C-REF9466 LDC-REF9467 WORK-REF9468 - LWORK-REF9469 INFO-REF9470)))) - -(CFFI:DEFCFUN ("dormtr_" %%DORMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9442 ':INT32) (N-REF9443 ':INT32) + (K-REF9444 ':INT32) (L-REF9445 ':INT32) + (LDA-REF9447 ':INT32) (LDC-REF9450 ':INT32) + (LWORK-REF9452 ':INT32) (INFO-REF9453 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9442 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9443 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9444 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9445 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9447 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9450 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9452 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9453 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9446 A) (TAU-REF9448 TAU) + (C-REF9449 C) (WORK-REF9451 WORK)) + (%%DORMRZ SIDE TRANS M-REF9442 N-REF9443 K-REF9444 L-REF9445 A-REF9446 + LDA-REF9447 TAU-REF9448 C-REF9449 LDC-REF9450 WORK-REF9451 LWORK-REF9452 + INFO-REF9453)))) + +(CFFI:DEFCFUN ("dormtr_" %%DORMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (UPLO :STRING) @@ -2738,22 +2832,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9474 ':INT32) (N-REF9475 ':INT32) - (LDA-REF9477 ':INT32) (LDC-REF9480 ':INT32) - (LWORK-REF9482 ':INT32) (INFO-REF9483 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9474 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9475 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9477 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9480 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9482 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9483 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9476 A) (TAU-REF9478 TAU) - (C-REF9479 C) (WORK-REF9481 WORK)) - (%%DORMTR SIDE UPLO TRANS M-REF9474 N-REF9475 A-REF9476 LDA-REF9477 - TAU-REF9478 C-REF9479 LDC-REF9480 WORK-REF9481 LWORK-REF9482 - INFO-REF9483)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9457 ':INT32) (N-REF9458 ':INT32) + (LDA-REF9460 ':INT32) (LDC-REF9463 ':INT32) + (LWORK-REF9465 ':INT32) (INFO-REF9466 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9457 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9458 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9460 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9463 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9465 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9466 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9459 A) (TAU-REF9461 TAU) + (C-REF9462 C) (WORK-REF9464 WORK)) + (%%DORMTR SIDE UPLO TRANS M-REF9457 N-REF9458 A-REF9459 LDA-REF9460 + TAU-REF9461 C-REF9462 LDC-REF9463 WORK-REF9464 LWORK-REF9465 + INFO-REF9466)))) -(CFFI:DEFCFUN ("dpbcon_" %%DPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpbcon_" %%DPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2784,21 +2878,21 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9485 ':INT32) (KD-REF9486 ':INT32) - (LDAB-REF9488 ':INT32) (ANORM-REF9489 ':DOUBLE) - (RCOND-REF9490 ':DOUBLE) (INFO-REF9493 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9485 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9486 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9488 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9489 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9490 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9493 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9487 AB) (WORK-REF9491 WORK) - (IWORK-REF9492 IWORK)) - (%%DPBCON UPLO N-REF9485 KD-REF9486 AB-REF9487 LDAB-REF9488 ANORM-REF9489 - RCOND-REF9490 WORK-REF9491 IWORK-REF9492 INFO-REF9493)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9468 ':INT32) (KD-REF9469 ':INT32) + (LDAB-REF9471 ':INT32) (ANORM-REF9472 ':DOUBLE) + (RCOND-REF9473 ':DOUBLE) (INFO-REF9476 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9468 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9469 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9471 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9472 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9473 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9476 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9470 AB) (WORK-REF9474 WORK) + (IWORK-REF9475 IWORK)) + (%%DPBCON UPLO N-REF9468 KD-REF9469 AB-REF9470 LDAB-REF9471 ANORM-REF9472 + RCOND-REF9473 WORK-REF9474 IWORK-REF9475 INFO-REF9476)))) -(CFFI:DEFCFUN ("dpbequ_" %%DPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpbequ_" %%DPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2823,20 +2917,20 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9495 ':INT32) (KD-REF9496 ':INT32) - (LDAB-REF9498 ':INT32) (SCOND-REF9500 ':DOUBLE) - (AMAX-REF9501 ':DOUBLE) (INFO-REF9502 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9495 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9496 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9498 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9500 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9501 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9502 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9497 AB) (S-REF9499 S)) - (%%DPBEQU UPLO N-REF9495 KD-REF9496 AB-REF9497 LDAB-REF9498 S-REF9499 - SCOND-REF9500 AMAX-REF9501 INFO-REF9502)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9478 ':INT32) (KD-REF9479 ':INT32) + (LDAB-REF9481 ':INT32) (SCOND-REF9483 ':DOUBLE) + (AMAX-REF9484 ':DOUBLE) (INFO-REF9485 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9478 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9479 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9481 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9483 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9484 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9485 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9480 AB) (S-REF9482 S)) + (%%DPBEQU UPLO N-REF9478 KD-REF9479 AB-REF9480 LDAB-REF9481 S-REF9482 + SCOND-REF9483 AMAX-REF9484 INFO-REF9485)))) -(CFFI:DEFCFUN ("dpbrfs_" %%DPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpbrfs_" %%DPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2891,30 +2985,29 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9504 ':INT32) (KD-REF9505 ':INT32) - (NRHS-REF9506 ':INT32) (LDAB-REF9508 ':INT32) - (LDAFB-REF9510 ':INT32) (LDB-REF9512 ':INT32) - (LDX-REF9514 ':INT32) (INFO-REF9519 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9504 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9505 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9506 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9508 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9510 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9512 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9514 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9519 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9507 AB) (AFB-REF9509 AFB) - (B-REF9511 B) (X-REF9513 X) - (FERR-REF9515 FERR) - (BERR-REF9516 BERR) - (WORK-REF9517 WORK) - (IWORK-REF9518 IWORK)) - (%%DPBRFS UPLO N-REF9504 KD-REF9505 NRHS-REF9506 AB-REF9507 LDAB-REF9508 - AFB-REF9509 LDAFB-REF9510 B-REF9511 LDB-REF9512 X-REF9513 - LDX-REF9514 FERR-REF9515 BERR-REF9516 WORK-REF9517 - IWORK-REF9518 INFO-REF9519)))) - -(CFFI:DEFCFUN ("dpbstf_" %%DPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9487 ':INT32) (KD-REF9488 ':INT32) + (NRHS-REF9489 ':INT32) (LDAB-REF9491 ':INT32) + (LDAFB-REF9493 ':INT32) (LDB-REF9495 ':INT32) + (LDX-REF9497 ':INT32) (INFO-REF9502 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9487 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9488 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9489 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9491 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9493 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9495 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9497 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9502 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9490 AB) (AFB-REF9492 AFB) + (B-REF9494 B) (X-REF9496 X) + (FERR-REF9498 FERR) + (BERR-REF9499 BERR) + (WORK-REF9500 WORK) + (IWORK-REF9501 IWORK)) + (%%DPBRFS UPLO N-REF9487 KD-REF9488 NRHS-REF9489 AB-REF9490 LDAB-REF9491 + AFB-REF9492 LDAFB-REF9493 B-REF9494 LDB-REF9495 X-REF9496 LDX-REF9497 + FERR-REF9498 BERR-REF9499 WORK-REF9500 IWORK-REF9501 INFO-REF9502)))) + +(CFFI:DEFCFUN ("dpbstf_" %%DPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2932,17 +3025,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9521 ':INT32) (KD-REF9522 ':INT32) - (LDAB-REF9524 ':INT32) (INFO-REF9525 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9521 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9522 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9524 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9525 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9523 AB)) - (%%DPBSTF UPLO N-REF9521 KD-REF9522 AB-REF9523 LDAB-REF9524 - INFO-REF9525)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9504 ':INT32) (KD-REF9505 ':INT32) + (LDAB-REF9507 ':INT32) (INFO-REF9508 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9504 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9505 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9507 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9508 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9506 AB)) + (%%DPBSTF UPLO N-REF9504 KD-REF9505 AB-REF9506 LDAB-REF9507 + INFO-REF9508)))) -(CFFI:DEFCFUN ("dpbsv_" %%DPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpbsv_" %%DPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2967,20 +3060,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9527 ':INT32) (KD-REF9528 ':INT32) - (NRHS-REF9529 ':INT32) (LDAB-REF9531 ':INT32) - (LDB-REF9533 ':INT32) (INFO-REF9534 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9527 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9528 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9529 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9531 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9533 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9534 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9530 AB) (B-REF9532 B)) - (%%DPBSV UPLO N-REF9527 KD-REF9528 NRHS-REF9529 AB-REF9530 LDAB-REF9531 - B-REF9532 LDB-REF9533 INFO-REF9534)))) - -(CFFI:DEFCFUN ("dpbsvx_" %%DPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9510 ':INT32) (KD-REF9511 ':INT32) + (NRHS-REF9512 ':INT32) (LDAB-REF9514 ':INT32) + (LDB-REF9516 ':INT32) (INFO-REF9517 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9510 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9511 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9512 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9514 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9516 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9517 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9513 AB) (B-REF9515 B)) + (%%DPBSV UPLO N-REF9510 KD-REF9511 NRHS-REF9512 AB-REF9513 LDAB-REF9514 + B-REF9515 LDB-REF9516 INFO-REF9517)))) + +(CFFI:DEFCFUN ("dpbsvx_" %%DPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -3044,33 +3137,32 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9537 ':INT32) (KD-REF9538 ':INT32) - (NRHS-REF9539 ':INT32) (LDAB-REF9541 ':INT32) - (LDAFB-REF9543 ':INT32) (LDB-REF9547 ':INT32) - (LDX-REF9549 ':INT32) (RCOND-REF9550 ':DOUBLE) - (INFO-REF9555 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9537 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9538 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9539 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9541 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9543 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9547 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9549 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9550 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9555 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9540 AB) (AFB-REF9542 AFB) - (S-REF9545 S) (B-REF9546 B) - (X-REF9548 X) (FERR-REF9551 FERR) - (BERR-REF9552 BERR) - (WORK-REF9553 WORK) - (IWORK-REF9554 IWORK)) - (%%DPBSVX FACT UPLO N-REF9537 KD-REF9538 NRHS-REF9539 AB-REF9540 - LDAB-REF9541 AFB-REF9542 LDAFB-REF9543 EQUED S-REF9545 - B-REF9546 LDB-REF9547 X-REF9548 LDX-REF9549 RCOND-REF9550 - FERR-REF9551 BERR-REF9552 WORK-REF9553 IWORK-REF9554 - INFO-REF9555)))) - -(CFFI:DEFCFUN ("dpbtf2_" %%DPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9520 ':INT32) (KD-REF9521 ':INT32) + (NRHS-REF9522 ':INT32) (LDAB-REF9524 ':INT32) + (LDAFB-REF9526 ':INT32) (LDB-REF9530 ':INT32) + (LDX-REF9532 ':INT32) (RCOND-REF9533 ':DOUBLE) + (INFO-REF9538 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9520 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9521 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9522 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9524 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9526 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9530 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9532 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9533 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9538 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9523 AB) (AFB-REF9525 AFB) + (S-REF9528 S) (B-REF9529 B) + (X-REF9531 X) (FERR-REF9534 FERR) + (BERR-REF9535 BERR) + (WORK-REF9536 WORK) + (IWORK-REF9537 IWORK)) + (%%DPBSVX FACT UPLO N-REF9520 KD-REF9521 NRHS-REF9522 AB-REF9523 + LDAB-REF9524 AFB-REF9525 LDAFB-REF9526 EQUED S-REF9528 B-REF9529 + LDB-REF9530 X-REF9531 LDX-REF9532 RCOND-REF9533 FERR-REF9534 + BERR-REF9535 WORK-REF9536 IWORK-REF9537 INFO-REF9538)))) + +(CFFI:DEFCFUN ("dpbtf2_" %%DPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3088,17 +3180,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9557 ':INT32) (KD-REF9558 ':INT32) - (LDAB-REF9560 ':INT32) (INFO-REF9561 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9557 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9558 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9560 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9561 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9559 AB)) - (%%DPBTF2 UPLO N-REF9557 KD-REF9558 AB-REF9559 LDAB-REF9560 - INFO-REF9561)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9540 ':INT32) (KD-REF9541 ':INT32) + (LDAB-REF9543 ':INT32) (INFO-REF9544 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9540 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9541 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9543 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9544 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9542 AB)) + (%%DPBTF2 UPLO N-REF9540 KD-REF9541 AB-REF9542 LDAB-REF9543 + INFO-REF9544)))) -(CFFI:DEFCFUN ("dpbtrf_" %%DPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpbtrf_" %%DPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3116,17 +3208,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9563 ':INT32) (KD-REF9564 ':INT32) - (LDAB-REF9566 ':INT32) (INFO-REF9567 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9563 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9564 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9566 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9567 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9565 AB)) - (%%DPBTRF UPLO N-REF9563 KD-REF9564 AB-REF9565 LDAB-REF9566 - INFO-REF9567)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9546 ':INT32) (KD-REF9547 ':INT32) + (LDAB-REF9549 ':INT32) (INFO-REF9550 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9546 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9547 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9549 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9550 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9548 AB)) + (%%DPBTRF UPLO N-REF9546 KD-REF9547 AB-REF9548 LDAB-REF9549 + INFO-REF9550)))) -(CFFI:DEFCFUN ("dpbtrs_" %%DPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpbtrs_" %%DPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3151,20 +3243,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9569 ':INT32) (KD-REF9570 ':INT32) - (NRHS-REF9571 ':INT32) (LDAB-REF9573 ':INT32) - (LDB-REF9575 ':INT32) (INFO-REF9576 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9569 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9570 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9571 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9573 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9575 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9576 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9572 AB) (B-REF9574 B)) - (%%DPBTRS UPLO N-REF9569 KD-REF9570 NRHS-REF9571 AB-REF9572 LDAB-REF9573 - B-REF9574 LDB-REF9575 INFO-REF9576)))) - -(CFFI:DEFCFUN ("dpftrf_" %%DPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9552 ':INT32) (KD-REF9553 ':INT32) + (NRHS-REF9554 ':INT32) (LDAB-REF9556 ':INT32) + (LDB-REF9558 ':INT32) (INFO-REF9559 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9552 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9553 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9554 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9556 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9558 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9559 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9555 AB) (B-REF9557 B)) + (%%DPBTRS UPLO N-REF9552 KD-REF9553 NRHS-REF9554 AB-REF9555 LDAB-REF9556 + B-REF9557 LDB-REF9558 INFO-REF9559)))) + +(CFFI:DEFCFUN ("dpftrf_" %%DPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3180,13 +3272,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9579 ':INT32) (INFO-REF9581 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9579 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9581 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9580 A)) - (%%DPFTRF TRANSR UPLO N-REF9579 A-REF9580 INFO-REF9581)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9562 ':INT32) (INFO-REF9564 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9562 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9564 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9563 A)) + (%%DPFTRF TRANSR UPLO N-REF9562 A-REF9563 INFO-REF9564)))) -(CFFI:DEFCFUN ("dpftri_" %%DPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpftri_" %%DPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3202,13 +3294,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9584 ':INT32) (INFO-REF9586 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9584 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9586 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9585 A)) - (%%DPFTRI TRANSR UPLO N-REF9584 A-REF9585 INFO-REF9586)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9567 ':INT32) (INFO-REF9569 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9567 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9569 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9568 A)) + (%%DPFTRI TRANSR UPLO N-REF9567 A-REF9568 INFO-REF9569)))) -(CFFI:DEFCFUN ("dpftrs_" %%DPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpftrs_" %%DPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3231,17 +3323,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9589 ':INT32) (NRHS-REF9590 ':INT32) - (LDB-REF9593 ':INT32) (INFO-REF9594 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9589 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9590 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9593 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9594 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9591 A) (B-REF9592 B)) - (%%DPFTRS TRANSR UPLO N-REF9589 NRHS-REF9590 A-REF9591 B-REF9592 - LDB-REF9593 INFO-REF9594)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9572 ':INT32) (NRHS-REF9573 ':INT32) + (LDB-REF9576 ':INT32) (INFO-REF9577 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9572 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9573 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9576 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9577 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9574 A) (B-REF9575 B)) + (%%DPFTRS TRANSR UPLO N-REF9572 NRHS-REF9573 A-REF9574 B-REF9575 + LDB-REF9576 INFO-REF9577)))) -(CFFI:DEFCFUN ("dpocon_" %%DPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpocon_" %%DPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3270,20 +3362,20 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9596 ':INT32) (LDA-REF9598 ':INT32) - (ANORM-REF9599 ':DOUBLE) (RCOND-REF9600 ':DOUBLE) - (INFO-REF9603 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9596 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9598 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9599 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9600 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9603 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9597 A) (WORK-REF9601 WORK) - (IWORK-REF9602 IWORK)) - (%%DPOCON UPLO N-REF9596 A-REF9597 LDA-REF9598 ANORM-REF9599 - RCOND-REF9600 WORK-REF9601 IWORK-REF9602 INFO-REF9603)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9579 ':INT32) (LDA-REF9581 ':INT32) + (ANORM-REF9582 ':DOUBLE) (RCOND-REF9583 ':DOUBLE) + (INFO-REF9586 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9579 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9581 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9582 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9583 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9586 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9580 A) (WORK-REF9584 WORK) + (IWORK-REF9585 IWORK)) + (%%DPOCON UPLO N-REF9579 A-REF9580 LDA-REF9581 ANORM-REF9582 + RCOND-REF9583 WORK-REF9584 IWORK-REF9585 INFO-REF9586)))) -(CFFI:DEFCFUN ("dpoequ_" %%DPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpoequ_" %%DPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3304,19 +3396,20 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9604 ':INT32) (LDA-REF9606 ':INT32) - (SCOND-REF9608 ':DOUBLE) (AMAX-REF9609 ':DOUBLE) - (INFO-REF9610 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9604 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9606 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9608 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9609 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9610 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9605 A) (S-REF9607 S)) - (%%DPOEQU N-REF9604 A-REF9605 LDA-REF9606 S-REF9607 SCOND-REF9608 - AMAX-REF9609 INFO-REF9610)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9587 ':INT32) (LDA-REF9589 ':INT32) + (SCOND-REF9591 ':DOUBLE) (AMAX-REF9592 ':DOUBLE) + (INFO-REF9593 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9587 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9589 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9591 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9592 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9593 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9588 A) (S-REF9590 S)) + (%%DPOEQU N-REF9587 A-REF9588 LDA-REF9589 S-REF9590 SCOND-REF9591 + AMAX-REF9592 INFO-REF9593)))) -(CFFI:DEFCFUN ("dpoequb_" %%DPOEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpoequb_" %%DPOEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3337,19 +3430,19 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9611 ':INT32) (LDA-REF9613 ':INT32) - (SCOND-REF9615 ':DOUBLE) (AMAX-REF9616 ':DOUBLE) - (INFO-REF9617 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9611 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9613 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9615 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9616 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9617 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9612 A) (S-REF9614 S)) - (%%DPOEQUB N-REF9611 A-REF9612 LDA-REF9613 S-REF9614 SCOND-REF9615 - AMAX-REF9616 INFO-REF9617)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9594 ':INT32) (LDA-REF9596 ':INT32) + (SCOND-REF9598 ':DOUBLE) (AMAX-REF9599 ':DOUBLE) + (INFO-REF9600 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9594 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9596 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9598 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9599 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9600 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9595 A) (S-REF9597 S)) + (%%DPOEQUB N-REF9594 A-REF9595 LDA-REF9596 S-REF9597 SCOND-REF9598 + AMAX-REF9599 INFO-REF9600)))) -(CFFI:DEFCFUN ("dporfs_" %%DPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dporfs_" %%DPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3401,29 +3494,29 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9619 ':INT32) (NRHS-REF9620 ':INT32) - (LDA-REF9622 ':INT32) (LDAF-REF9624 ':INT32) - (LDB-REF9626 ':INT32) (LDX-REF9628 ':INT32) - (INFO-REF9633 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9619 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9620 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9622 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9624 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9626 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9628 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9633 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9621 A) (AF-REF9623 AF) - (B-REF9625 B) (X-REF9627 X) - (FERR-REF9629 FERR) - (BERR-REF9630 BERR) - (WORK-REF9631 WORK) - (IWORK-REF9632 IWORK)) - (%%DPORFS UPLO N-REF9619 NRHS-REF9620 A-REF9621 LDA-REF9622 AF-REF9623 - LDAF-REF9624 B-REF9625 LDB-REF9626 X-REF9627 LDX-REF9628 - FERR-REF9629 BERR-REF9630 WORK-REF9631 IWORK-REF9632 - INFO-REF9633)))) - -(CFFI:DEFCFUN ("dporfsx_" %%DPORFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9602 ':INT32) (NRHS-REF9603 ':INT32) + (LDA-REF9605 ':INT32) (LDAF-REF9607 ':INT32) + (LDB-REF9609 ':INT32) (LDX-REF9611 ':INT32) + (INFO-REF9616 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9602 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9603 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9605 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9607 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9609 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9611 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9616 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9604 A) (AF-REF9606 AF) + (B-REF9608 B) (X-REF9610 X) + (FERR-REF9612 FERR) + (BERR-REF9613 BERR) + (WORK-REF9614 WORK) + (IWORK-REF9615 IWORK)) + (%%DPORFS UPLO N-REF9602 NRHS-REF9603 A-REF9604 LDA-REF9605 AF-REF9606 + LDAF-REF9607 B-REF9608 LDB-REF9609 X-REF9610 LDX-REF9611 FERR-REF9612 + BERR-REF9613 WORK-REF9614 IWORK-REF9615 INFO-REF9616)))) + +(CFFI:DEFCFUN ("dporfsx_" %%DPORFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -3496,40 +3589,39 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9636 ':INT32) (NRHS-REF9637 ':INT32) - (LDA-REF9639 ':INT32) (LDAF-REF9641 ':INT32) - (LDB-REF9644 ':INT32) (LDX-REF9646 ':INT32) - (RCOND-REF9647 ':DOUBLE) - (N_ERR_BNDS-REF9649 ':INT32) - (NPARAMS-REF9652 ':INT32) (INFO-REF9656 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9636 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9637 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9639 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9641 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9644 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9646 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9647 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF9649 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF9652 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9656 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9638 A) (AF-REF9640 AF) - (S-REF9642 S) (B-REF9643 B) - (X-REF9645 X) (BERR-REF9648 BERR) - (ERR_BNDS_NORM-REF9650 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9619 ':INT32) (NRHS-REF9620 ':INT32) + (LDA-REF9622 ':INT32) (LDAF-REF9624 ':INT32) + (LDB-REF9627 ':INT32) (LDX-REF9629 ':INT32) + (RCOND-REF9630 ':DOUBLE) + (N_ERR_BNDS-REF9632 ':INT32) + (NPARAMS-REF9635 ':INT32) (INFO-REF9639 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9619 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9620 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9622 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9624 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9627 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9629 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9630 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF9632 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF9635 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9639 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9621 A) (AF-REF9623 AF) + (S-REF9625 S) (B-REF9626 B) + (X-REF9628 X) (BERR-REF9631 BERR) + (ERR_BNDS_NORM-REF9633 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF9651 + (ERR_BNDS_COMP-REF9634 ERR_BNDS_COMP) - (PARAMS-REF9653 PARAMS) - (WORK-REF9654 WORK) - (IWORK-REF9655 IWORK)) - (%%DPORFSX UPLO EQUED N-REF9636 NRHS-REF9637 A-REF9638 LDA-REF9639 - AF-REF9640 LDAF-REF9641 S-REF9642 B-REF9643 LDB-REF9644 - X-REF9645 LDX-REF9646 RCOND-REF9647 BERR-REF9648 - N_ERR_BNDS-REF9649 ERR_BNDS_NORM-REF9650 ERR_BNDS_COMP-REF9651 - NPARAMS-REF9652 PARAMS-REF9653 WORK-REF9654 IWORK-REF9655 - INFO-REF9656)))) + (PARAMS-REF9636 PARAMS) + (WORK-REF9637 WORK) + (IWORK-REF9638 IWORK)) + (%%DPORFSX UPLO EQUED N-REF9619 NRHS-REF9620 A-REF9621 LDA-REF9622 + AF-REF9623 LDAF-REF9624 S-REF9625 B-REF9626 LDB-REF9627 X-REF9628 + LDX-REF9629 RCOND-REF9630 BERR-REF9631 N_ERR_BNDS-REF9632 + ERR_BNDS_NORM-REF9633 ERR_BNDS_COMP-REF9634 NPARAMS-REF9635 + PARAMS-REF9636 WORK-REF9637 IWORK-REF9638 INFO-REF9639)))) -(CFFI:DEFCFUN ("dposv_" %%DPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dposv_" %%DPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3552,19 +3644,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9658 ':INT32) (NRHS-REF9659 ':INT32) - (LDA-REF9661 ':INT32) (LDB-REF9663 ':INT32) - (INFO-REF9664 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9658 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9659 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9661 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9663 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9664 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9660 A) (B-REF9662 B)) - (%%DPOSV UPLO N-REF9658 NRHS-REF9659 A-REF9660 LDA-REF9661 B-REF9662 - LDB-REF9663 INFO-REF9664)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9641 ':INT32) (NRHS-REF9642 ':INT32) + (LDA-REF9644 ':INT32) (LDB-REF9646 ':INT32) + (INFO-REF9647 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9641 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9642 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9644 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9646 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9647 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9643 A) (B-REF9645 B)) + (%%DPOSV UPLO N-REF9641 NRHS-REF9642 A-REF9643 LDA-REF9644 B-REF9645 + LDB-REF9646 INFO-REF9647)))) -(CFFI:DEFCFUN ("dposvx_" %%DPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dposvx_" %%DPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -3625,30 +3717,31 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9667 ':INT32) (NRHS-REF9668 ':INT32) - (LDA-REF9670 ':INT32) (LDAF-REF9672 ':INT32) - (LDB-REF9676 ':INT32) (LDX-REF9678 ':INT32) - (RCOND-REF9679 ':DOUBLE) (INFO-REF9684 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9667 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9668 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9670 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9672 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9676 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9678 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9679 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9684 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9669 A) (AF-REF9671 AF) - (S-REF9674 S) (B-REF9675 B) - (X-REF9677 X) (FERR-REF9680 FERR) - (BERR-REF9681 BERR) - (WORK-REF9682 WORK) - (IWORK-REF9683 IWORK)) - (%%DPOSVX FACT UPLO N-REF9667 NRHS-REF9668 A-REF9669 LDA-REF9670 - AF-REF9671 LDAF-REF9672 EQUED S-REF9674 B-REF9675 LDB-REF9676 - X-REF9677 LDX-REF9678 RCOND-REF9679 FERR-REF9680 BERR-REF9681 - WORK-REF9682 IWORK-REF9683 INFO-REF9684)))) - -(CFFI:DEFCFUN ("dposvxx_" %%DPOSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9650 ':INT32) (NRHS-REF9651 ':INT32) + (LDA-REF9653 ':INT32) (LDAF-REF9655 ':INT32) + (LDB-REF9659 ':INT32) (LDX-REF9661 ':INT32) + (RCOND-REF9662 ':DOUBLE) (INFO-REF9667 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9650 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9651 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9653 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9655 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9659 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9661 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9662 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9667 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9652 A) (AF-REF9654 AF) + (S-REF9657 S) (B-REF9658 B) + (X-REF9660 X) (FERR-REF9663 FERR) + (BERR-REF9664 BERR) + (WORK-REF9665 WORK) + (IWORK-REF9666 IWORK)) + (%%DPOSVX FACT UPLO N-REF9650 NRHS-REF9651 A-REF9652 LDA-REF9653 + AF-REF9654 LDAF-REF9655 EQUED S-REF9657 B-REF9658 LDB-REF9659 X-REF9660 + LDX-REF9661 RCOND-REF9662 FERR-REF9663 BERR-REF9664 WORK-REF9665 + IWORK-REF9666 INFO-REF9667)))) + +(CFFI:DEFCFUN ("dposvxx_" %%DPOSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -3725,42 +3818,41 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9687 ':INT32) (NRHS-REF9688 ':INT32) - (LDA-REF9690 ':INT32) (LDAF-REF9692 ':INT32) - (LDB-REF9696 ':INT32) (LDX-REF9698 ':INT32) - (RCOND-REF9699 ':DOUBLE) - (RPVGRW-REF9700 ':DOUBLE) - (N_ERR_BNDS-REF9702 ':INT32) - (NPARAMS-REF9705 ':INT32) (INFO-REF9709 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9687 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9688 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9690 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9692 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9696 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9698 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9699 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF9700 :DOUBLE) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF9702 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF9705 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9709 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9689 A) (AF-REF9691 AF) - (S-REF9694 S) (B-REF9695 B) - (X-REF9697 X) (BERR-REF9701 BERR) - (ERR_BNDS_NORM-REF9703 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9670 ':INT32) (NRHS-REF9671 ':INT32) + (LDA-REF9673 ':INT32) (LDAF-REF9675 ':INT32) + (LDB-REF9679 ':INT32) (LDX-REF9681 ':INT32) + (RCOND-REF9682 ':DOUBLE) + (RPVGRW-REF9683 ':DOUBLE) + (N_ERR_BNDS-REF9685 ':INT32) + (NPARAMS-REF9688 ':INT32) (INFO-REF9692 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9670 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9671 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9673 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9675 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9679 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9681 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9682 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF9683 :DOUBLE) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF9685 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF9688 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9692 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9672 A) (AF-REF9674 AF) + (S-REF9677 S) (B-REF9678 B) + (X-REF9680 X) (BERR-REF9684 BERR) + (ERR_BNDS_NORM-REF9686 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF9704 + (ERR_BNDS_COMP-REF9687 ERR_BNDS_COMP) - (PARAMS-REF9706 PARAMS) - (WORK-REF9707 WORK) - (IWORK-REF9708 IWORK)) - (%%DPOSVXX FACT UPLO N-REF9687 NRHS-REF9688 A-REF9689 LDA-REF9690 - AF-REF9691 LDAF-REF9692 EQUED S-REF9694 B-REF9695 LDB-REF9696 - X-REF9697 LDX-REF9698 RCOND-REF9699 RPVGRW-REF9700 - BERR-REF9701 N_ERR_BNDS-REF9702 ERR_BNDS_NORM-REF9703 - ERR_BNDS_COMP-REF9704 NPARAMS-REF9705 PARAMS-REF9706 - WORK-REF9707 IWORK-REF9708 INFO-REF9709)))) + (PARAMS-REF9689 PARAMS) + (WORK-REF9690 WORK) + (IWORK-REF9691 IWORK)) + (%%DPOSVXX FACT UPLO N-REF9670 NRHS-REF9671 A-REF9672 LDA-REF9673 + AF-REF9674 LDAF-REF9675 EQUED S-REF9677 B-REF9678 LDB-REF9679 X-REF9680 + LDX-REF9681 RCOND-REF9682 RPVGRW-REF9683 BERR-REF9684 N_ERR_BNDS-REF9685 + ERR_BNDS_NORM-REF9686 ERR_BNDS_COMP-REF9687 NPARAMS-REF9688 + PARAMS-REF9689 WORK-REF9690 IWORK-REF9691 INFO-REF9692)))) -(CFFI:DEFCFUN ("dpotf2_" %%DPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpotf2_" %%DPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3776,15 +3868,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9711 ':INT32) (LDA-REF9713 ':INT32) - (INFO-REF9714 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9711 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9713 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9714 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9712 A)) - (%%DPOTF2 UPLO N-REF9711 A-REF9712 LDA-REF9713 INFO-REF9714)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9694 ':INT32) (LDA-REF9696 ':INT32) + (INFO-REF9697 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9694 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9696 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9697 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9695 A)) + (%%DPOTF2 UPLO N-REF9694 A-REF9695 LDA-REF9696 INFO-REF9697)))) -(CFFI:DEFCFUN ("dpotrf_" %%DPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpotrf_" %%DPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3800,15 +3892,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9716 ':INT32) (LDA-REF9718 ':INT32) - (INFO-REF9719 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9716 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9718 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9719 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9717 A)) - (%%DPOTRF UPLO N-REF9716 A-REF9717 LDA-REF9718 INFO-REF9719)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9699 ':INT32) (LDA-REF9701 ':INT32) + (INFO-REF9702 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9699 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9701 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9702 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9700 A)) + (%%DPOTRF UPLO N-REF9699 A-REF9700 LDA-REF9701 INFO-REF9702)))) -(CFFI:DEFCFUN ("dpotrf2_" %%DPOTRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpotrf2_" %%DPOTRF2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3824,15 +3917,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9721 ':INT32) (LDA-REF9723 ':INT32) - (INFO-REF9724 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9721 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9723 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9724 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9722 A)) - (%%DPOTRF2 UPLO N-REF9721 A-REF9722 LDA-REF9723 INFO-REF9724)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9704 ':INT32) (LDA-REF9706 ':INT32) + (INFO-REF9707 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9704 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9706 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9707 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9705 A)) + (%%DPOTRF2 UPLO N-REF9704 A-REF9705 LDA-REF9706 INFO-REF9707)))) -(CFFI:DEFCFUN ("dpotri_" %%DPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpotri_" %%DPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3848,15 +3941,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9726 ':INT32) (LDA-REF9728 ':INT32) - (INFO-REF9729 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9726 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9728 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9729 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9727 A)) - (%%DPOTRI UPLO N-REF9726 A-REF9727 LDA-REF9728 INFO-REF9729)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9709 ':INT32) (LDA-REF9711 ':INT32) + (INFO-REF9712 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9709 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9711 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9712 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9710 A)) + (%%DPOTRI UPLO N-REF9709 A-REF9710 LDA-REF9711 INFO-REF9712)))) -(CFFI:DEFCFUN ("dpotrs_" %%DPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpotrs_" %%DPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3879,19 +3972,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9731 ':INT32) (NRHS-REF9732 ':INT32) - (LDA-REF9734 ':INT32) (LDB-REF9736 ':INT32) - (INFO-REF9737 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9731 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9732 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9734 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9736 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9737 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9733 A) (B-REF9735 B)) - (%%DPOTRS UPLO N-REF9731 NRHS-REF9732 A-REF9733 LDA-REF9734 B-REF9735 - LDB-REF9736 INFO-REF9737)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9714 ':INT32) (NRHS-REF9715 ':INT32) + (LDA-REF9717 ':INT32) (LDB-REF9719 ':INT32) + (INFO-REF9720 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9714 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9715 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9717 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9719 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9720 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9716 A) (B-REF9718 B)) + (%%DPOTRS UPLO N-REF9714 NRHS-REF9715 A-REF9716 LDA-REF9717 B-REF9718 + LDB-REF9719 INFO-REF9720)))) -(CFFI:DEFCFUN ("dppcon_" %%DPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dppcon_" %%DPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3918,18 +4011,18 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9739 ':INT32) (ANORM-REF9741 ':DOUBLE) - (RCOND-REF9742 ':DOUBLE) (INFO-REF9745 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9739 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9741 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9742 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9745 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9740 AP) (WORK-REF9743 WORK) - (IWORK-REF9744 IWORK)) - (%%DPPCON UPLO N-REF9739 AP-REF9740 ANORM-REF9741 RCOND-REF9742 - WORK-REF9743 IWORK-REF9744 INFO-REF9745)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9722 ':INT32) (ANORM-REF9724 ':DOUBLE) + (RCOND-REF9725 ':DOUBLE) (INFO-REF9728 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9722 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9724 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9725 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9728 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9723 AP) (WORK-REF9726 WORK) + (IWORK-REF9727 IWORK)) + (%%DPPCON UPLO N-REF9722 AP-REF9723 ANORM-REF9724 RCOND-REF9725 + WORK-REF9726 IWORK-REF9727 INFO-REF9728)))) -(CFFI:DEFCFUN ("dppequ_" %%DPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dppequ_" %%DPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3950,17 +4043,17 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9747 ':INT32) (SCOND-REF9750 ':DOUBLE) - (AMAX-REF9751 ':DOUBLE) (INFO-REF9752 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9747 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9750 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9751 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9752 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9748 AP) (S-REF9749 S)) - (%%DPPEQU UPLO N-REF9747 AP-REF9748 S-REF9749 SCOND-REF9750 AMAX-REF9751 - INFO-REF9752)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9730 ':INT32) (SCOND-REF9733 ':DOUBLE) + (AMAX-REF9734 ':DOUBLE) (INFO-REF9735 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9730 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9733 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9734 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9735 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9731 AP) (S-REF9732 S)) + (%%DPPEQU UPLO N-REF9730 AP-REF9731 S-REF9732 SCOND-REF9733 AMAX-REF9734 + INFO-REF9735)))) -(CFFI:DEFCFUN ("dpprfs_" %%DPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpprfs_" %%DPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4008,25 +4101,25 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9754 ':INT32) (NRHS-REF9755 ':INT32) - (LDB-REF9759 ':INT32) (LDX-REF9761 ':INT32) - (INFO-REF9766 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9754 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9755 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9759 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9761 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9766 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9756 AP) (AFP-REF9757 AFP) - (B-REF9758 B) (X-REF9760 X) - (FERR-REF9762 FERR) - (BERR-REF9763 BERR) - (WORK-REF9764 WORK) - (IWORK-REF9765 IWORK)) - (%%DPPRFS UPLO N-REF9754 NRHS-REF9755 AP-REF9756 AFP-REF9757 B-REF9758 - LDB-REF9759 X-REF9760 LDX-REF9761 FERR-REF9762 BERR-REF9763 - WORK-REF9764 IWORK-REF9765 INFO-REF9766)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9737 ':INT32) (NRHS-REF9738 ':INT32) + (LDB-REF9742 ':INT32) (LDX-REF9744 ':INT32) + (INFO-REF9749 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9737 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9738 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9742 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9744 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9749 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9739 AP) (AFP-REF9740 AFP) + (B-REF9741 B) (X-REF9743 X) + (FERR-REF9745 FERR) + (BERR-REF9746 BERR) + (WORK-REF9747 WORK) + (IWORK-REF9748 IWORK)) + (%%DPPRFS UPLO N-REF9737 NRHS-REF9738 AP-REF9739 AFP-REF9740 B-REF9741 + LDB-REF9742 X-REF9743 LDX-REF9744 FERR-REF9745 BERR-REF9746 WORK-REF9747 + IWORK-REF9748 INFO-REF9749)))) -(CFFI:DEFCFUN ("dppsv_" %%DPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dppsv_" %%DPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4047,17 +4140,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9768 ':INT32) (NRHS-REF9769 ':INT32) - (LDB-REF9772 ':INT32) (INFO-REF9773 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9768 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9769 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9772 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9773 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9770 AP) (B-REF9771 B)) - (%%DPPSV UPLO N-REF9768 NRHS-REF9769 AP-REF9770 B-REF9771 LDB-REF9772 - INFO-REF9773)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9751 ':INT32) (NRHS-REF9752 ':INT32) + (LDB-REF9755 ':INT32) (INFO-REF9756 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9751 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9752 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9755 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9756 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9753 AP) (B-REF9754 B)) + (%%DPPSV UPLO N-REF9751 NRHS-REF9752 AP-REF9753 B-REF9754 LDB-REF9755 + INFO-REF9756)))) -(CFFI:DEFCFUN ("dppsvx_" %%DPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dppsvx_" %%DPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -4115,27 +4208,26 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9776 ':INT32) (NRHS-REF9777 ':INT32) - (LDB-REF9783 ':INT32) (LDX-REF9785 ':INT32) - (RCOND-REF9786 ':DOUBLE) (INFO-REF9791 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9776 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9777 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9783 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9785 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9786 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9791 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9778 AP) (AFP-REF9779 AFP) - (S-REF9781 S) (B-REF9782 B) - (X-REF9784 X) (FERR-REF9787 FERR) - (BERR-REF9788 BERR) - (WORK-REF9789 WORK) - (IWORK-REF9790 IWORK)) - (%%DPPSVX FACT UPLO N-REF9776 NRHS-REF9777 AP-REF9778 AFP-REF9779 EQUED - S-REF9781 B-REF9782 LDB-REF9783 X-REF9784 LDX-REF9785 - RCOND-REF9786 FERR-REF9787 BERR-REF9788 WORK-REF9789 - IWORK-REF9790 INFO-REF9791)))) - -(CFFI:DEFCFUN ("dpptrf_" %%DPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9759 ':INT32) (NRHS-REF9760 ':INT32) + (LDB-REF9766 ':INT32) (LDX-REF9768 ':INT32) + (RCOND-REF9769 ':DOUBLE) (INFO-REF9774 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9759 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9760 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9766 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9768 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9769 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9774 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9761 AP) (AFP-REF9762 AFP) + (S-REF9764 S) (B-REF9765 B) + (X-REF9767 X) (FERR-REF9770 FERR) + (BERR-REF9771 BERR) + (WORK-REF9772 WORK) + (IWORK-REF9773 IWORK)) + (%%DPPSVX FACT UPLO N-REF9759 NRHS-REF9760 AP-REF9761 AFP-REF9762 EQUED + S-REF9764 B-REF9765 LDB-REF9766 X-REF9767 LDX-REF9768 RCOND-REF9769 + FERR-REF9770 BERR-REF9771 WORK-REF9772 IWORK-REF9773 INFO-REF9774)))) + +(CFFI:DEFCFUN ("dpptrf_" %%DPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4149,13 +4241,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9793 ':INT32) (INFO-REF9795 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9793 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9795 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9794 AP)) - (%%DPPTRF UPLO N-REF9793 AP-REF9794 INFO-REF9795)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9776 ':INT32) (INFO-REF9778 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9776 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9778 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9777 AP)) + (%%DPPTRF UPLO N-REF9776 AP-REF9777 INFO-REF9778)))) -(CFFI:DEFCFUN ("dpptri_" %%DPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpptri_" %%DPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4169,13 +4261,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9797 ':INT32) (INFO-REF9799 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9797 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9799 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9798 AP)) - (%%DPPTRI UPLO N-REF9797 AP-REF9798 INFO-REF9799)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9780 ':INT32) (INFO-REF9782 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9780 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9782 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9781 AP)) + (%%DPPTRI UPLO N-REF9780 AP-REF9781 INFO-REF9782)))) -(CFFI:DEFCFUN ("dpptrs_" %%DPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpptrs_" %%DPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4196,17 +4288,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9801 ':INT32) (NRHS-REF9802 ':INT32) - (LDB-REF9805 ':INT32) (INFO-REF9806 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9801 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9802 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9805 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9806 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9803 AP) (B-REF9804 B)) - (%%DPPTRS UPLO N-REF9801 NRHS-REF9802 AP-REF9803 B-REF9804 LDB-REF9805 - INFO-REF9806)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9784 ':INT32) (NRHS-REF9785 ':INT32) + (LDB-REF9788 ':INT32) (INFO-REF9789 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9784 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9785 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9788 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9789 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9786 AP) (B-REF9787 B)) + (%%DPPTRS UPLO N-REF9784 NRHS-REF9785 AP-REF9786 B-REF9787 LDB-REF9788 + INFO-REF9789)))) -(CFFI:DEFCFUN ("dpstf2_" %%DPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpstf2_" %%DPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4235,20 +4327,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9808 ':INT32) (LDA-REF9810 ':INT32) - (RANK-REF9812 ':INT32) (TOL-REF9813 ':DOUBLE) - (INFO-REF9815 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9808 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9810 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF9812 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF9813 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9815 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9809 A) (PIV-REF9811 PIV) - (WORK-REF9814 WORK)) - (%%DPSTF2 UPLO N-REF9808 A-REF9809 LDA-REF9810 PIV-REF9811 RANK-REF9812 - TOL-REF9813 WORK-REF9814 INFO-REF9815)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9791 ':INT32) (LDA-REF9793 ':INT32) + (RANK-REF9795 ':INT32) (TOL-REF9796 ':DOUBLE) + (INFO-REF9798 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9791 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9793 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF9795 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF9796 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9798 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9792 A) (PIV-REF9794 PIV) + (WORK-REF9797 WORK)) + (%%DPSTF2 UPLO N-REF9791 A-REF9792 LDA-REF9793 PIV-REF9794 RANK-REF9795 + TOL-REF9796 WORK-REF9797 INFO-REF9798)))) -(CFFI:DEFCFUN ("dpstrf_" %%DPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpstrf_" %%DPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4277,20 +4369,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9817 ':INT32) (LDA-REF9819 ':INT32) - (RANK-REF9821 ':INT32) (TOL-REF9822 ':DOUBLE) - (INFO-REF9824 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9817 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9819 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF9821 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF9822 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9824 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9818 A) (PIV-REF9820 PIV) - (WORK-REF9823 WORK)) - (%%DPSTRF UPLO N-REF9817 A-REF9818 LDA-REF9819 PIV-REF9820 RANK-REF9821 - TOL-REF9822 WORK-REF9823 INFO-REF9824)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9800 ':INT32) (LDA-REF9802 ':INT32) + (RANK-REF9804 ':INT32) (TOL-REF9805 ':DOUBLE) + (INFO-REF9807 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9800 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9802 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF9804 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF9805 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9807 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9801 A) (PIV-REF9803 PIV) + (WORK-REF9806 WORK)) + (%%DPSTRF UPLO N-REF9800 A-REF9801 LDA-REF9802 PIV-REF9803 RANK-REF9804 + TOL-REF9805 WORK-REF9806 INFO-REF9807)))) -(CFFI:DEFCFUN ("dptcon_" %%DPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dptcon_" %%DPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -4313,18 +4405,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9825 ':INT32) (ANORM-REF9828 ':DOUBLE) - (RCOND-REF9829 ':DOUBLE) (INFO-REF9831 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9825 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9828 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9829 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9831 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9826 D) (E-REF9827 E) - (WORK-REF9830 WORK)) - (%%DPTCON N-REF9825 D-REF9826 E-REF9827 ANORM-REF9828 RCOND-REF9829 - WORK-REF9830 INFO-REF9831)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9808 ':INT32) (ANORM-REF9811 ':DOUBLE) + (RCOND-REF9812 ':DOUBLE) (INFO-REF9814 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9808 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9811 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9812 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9814 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9809 D) (E-REF9810 E) + (WORK-REF9813 WORK)) + (%%DPTCON N-REF9808 D-REF9809 E-REF9810 ANORM-REF9811 RCOND-REF9812 + WORK-REF9813 INFO-REF9814)))) -(CFFI:DEFCFUN ("dpteqr_" %%DPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpteqr_" %%DPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -4350,17 +4442,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9833 ':INT32) (LDZ-REF9837 ':INT32) - (INFO-REF9839 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9833 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9837 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9839 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9834 D) (E-REF9835 E) - (Z-REF9836 Z) (WORK-REF9838 WORK)) - (%%DPTEQR COMPZ N-REF9833 D-REF9834 E-REF9835 Z-REF9836 LDZ-REF9837 - WORK-REF9838 INFO-REF9839)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9816 ':INT32) (LDZ-REF9820 ':INT32) + (INFO-REF9822 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9816 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9820 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9822 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9817 D) (E-REF9818 E) + (Z-REF9819 Z) (WORK-REF9821 WORK)) + (%%DPTEQR COMPZ N-REF9816 D-REF9817 E-REF9818 Z-REF9819 LDZ-REF9820 + WORK-REF9821 INFO-REF9822)))) -(CFFI:DEFCFUN ("dptrfs_" %%DPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dptrfs_" %%DPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -4405,25 +4497,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9840 ':INT32) (NRHS-REF9841 ':INT32) - (LDB-REF9847 ':INT32) (LDX-REF9849 ':INT32) - (INFO-REF9853 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9840 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9841 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9847 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9849 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9853 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9842 D) (E-REF9843 E) - (DF-REF9844 DF) (EF-REF9845 EF) - (B-REF9846 B) (X-REF9848 X) - (FERR-REF9850 FERR) - (BERR-REF9851 BERR) - (WORK-REF9852 WORK)) - (%%DPTRFS N-REF9840 NRHS-REF9841 D-REF9842 E-REF9843 DF-REF9844 - EF-REF9845 B-REF9846 LDB-REF9847 X-REF9848 LDX-REF9849 - FERR-REF9850 BERR-REF9851 WORK-REF9852 INFO-REF9853)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9823 ':INT32) (NRHS-REF9824 ':INT32) + (LDB-REF9830 ':INT32) (LDX-REF9832 ':INT32) + (INFO-REF9836 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9823 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9824 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9830 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9832 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9836 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9825 D) (E-REF9826 E) + (DF-REF9827 DF) (EF-REF9828 EF) + (B-REF9829 B) (X-REF9831 X) + (FERR-REF9833 FERR) + (BERR-REF9834 BERR) + (WORK-REF9835 WORK)) + (%%DPTRFS N-REF9823 NRHS-REF9824 D-REF9825 E-REF9826 DF-REF9827 + EF-REF9828 B-REF9829 LDB-REF9830 X-REF9831 LDX-REF9832 FERR-REF9833 + BERR-REF9834 WORK-REF9835 INFO-REF9836)))) -(CFFI:DEFCFUN ("dptsv_" %%DPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dptsv_" %%DPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -4445,18 +4537,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9854 ':INT32) (NRHS-REF9855 ':INT32) - (LDB-REF9859 ':INT32) (INFO-REF9860 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9854 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9855 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9859 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9860 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9856 D) (E-REF9857 E) - (B-REF9858 B)) - (%%DPTSV N-REF9854 NRHS-REF9855 D-REF9856 E-REF9857 B-REF9858 LDB-REF9859 - INFO-REF9860)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9837 ':INT32) (NRHS-REF9838 ':INT32) + (LDB-REF9842 ':INT32) (INFO-REF9843 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9837 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9838 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9842 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9843 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9839 D) (E-REF9840 E) + (B-REF9841 B)) + (%%DPTSV N-REF9837 NRHS-REF9838 D-REF9839 E-REF9840 B-REF9841 LDB-REF9842 + INFO-REF9843)))) -(CFFI:DEFCFUN ("dptsvx_" %%DPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dptsvx_" %%DPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (N :POINTER) @@ -4507,27 +4599,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9862 ':INT32) (NRHS-REF9863 ':INT32) - (LDB-REF9869 ':INT32) (LDX-REF9871 ':INT32) - (RCOND-REF9872 ':DOUBLE) (INFO-REF9876 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9862 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9863 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9869 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9871 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9872 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9876 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9864 D) (E-REF9865 E) - (DF-REF9866 DF) (EF-REF9867 EF) - (B-REF9868 B) (X-REF9870 X) - (FERR-REF9873 FERR) - (BERR-REF9874 BERR) - (WORK-REF9875 WORK)) - (%%DPTSVX FACT N-REF9862 NRHS-REF9863 D-REF9864 E-REF9865 DF-REF9866 - EF-REF9867 B-REF9868 LDB-REF9869 X-REF9870 LDX-REF9871 - RCOND-REF9872 FERR-REF9873 BERR-REF9874 WORK-REF9875 - INFO-REF9876)))) - -(CFFI:DEFCFUN ("dpttrf_" %%DPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9845 ':INT32) (NRHS-REF9846 ':INT32) + (LDB-REF9852 ':INT32) (LDX-REF9854 ':INT32) + (RCOND-REF9855 ':DOUBLE) (INFO-REF9859 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9845 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9846 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9852 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9854 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9855 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9859 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9847 D) (E-REF9848 E) + (DF-REF9849 DF) (EF-REF9850 EF) + (B-REF9851 B) (X-REF9853 X) + (FERR-REF9856 FERR) + (BERR-REF9857 BERR) + (WORK-REF9858 WORK)) + (%%DPTSVX FACT N-REF9845 NRHS-REF9846 D-REF9847 E-REF9848 DF-REF9849 + EF-REF9850 B-REF9851 LDB-REF9852 X-REF9853 LDX-REF9854 RCOND-REF9855 + FERR-REF9856 BERR-REF9857 WORK-REF9858 INFO-REF9859)))) + +(CFFI:DEFCFUN ("dpttrf_" %%DPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -4542,13 +4633,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9877 ':INT32) (INFO-REF9880 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9877 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9880 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9878 D) (E-REF9879 E)) - (%%DPTTRF N-REF9877 D-REF9878 E-REF9879 INFO-REF9880)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9860 ':INT32) (INFO-REF9863 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9860 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9863 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9861 D) (E-REF9862 E)) + (%%DPTTRF N-REF9860 D-REF9861 E-REF9862 INFO-REF9863)))) -(CFFI:DEFCFUN ("dpttrs_" %%DPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dpttrs_" %%DPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -4570,18 +4661,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9881 ':INT32) (NRHS-REF9882 ':INT32) - (LDB-REF9886 ':INT32) (INFO-REF9887 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9881 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9882 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9886 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9887 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9883 D) (E-REF9884 E) - (B-REF9885 B)) - (%%DPTTRS N-REF9881 NRHS-REF9882 D-REF9883 E-REF9884 B-REF9885 - LDB-REF9886 INFO-REF9887)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9864 ':INT32) (NRHS-REF9865 ':INT32) + (LDB-REF9869 ':INT32) (INFO-REF9870 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9864 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9865 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9869 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9870 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9866 D) (E-REF9867 E) + (B-REF9868 B)) + (%%DPTTRS N-REF9864 NRHS-REF9865 D-REF9866 E-REF9867 B-REF9868 + LDB-REF9869 INFO-REF9870)))) -(CFFI:DEFCFUN ("dptts2_" %%DPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dptts2_" %%DPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -4601,17 +4692,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9888 ':INT32) (NRHS-REF9889 ':INT32) - (LDB-REF9893 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9888 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9889 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9893 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9890 D) (E-REF9891 E) - (B-REF9892 B)) - (%%DPTTS2 N-REF9888 NRHS-REF9889 D-REF9890 E-REF9891 B-REF9892 - LDB-REF9893)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9871 ':INT32) (NRHS-REF9872 ':INT32) + (LDB-REF9876 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9871 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9872 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9876 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9873 D) (E-REF9874 E) + (B-REF9875 B)) + (%%DPTTS2 N-REF9871 NRHS-REF9872 D-REF9873 E-REF9874 B-REF9875 + LDB-REF9876)))) -(CFFI:DEFCFUN ("drscl_" %%DRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("drscl_" %%DRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (SA :POINTER) @@ -4625,16 +4716,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9894 ':INT32) (SA-REF9895 ':DOUBLE) - (INCX-REF9897 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9894 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF9895 :DOUBLE) SA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF9897 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF9896 SX)) - (%%DRSCL N-REF9894 SA-REF9895 SX-REF9896 INCX-REF9897)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9877 ':INT32) (SA-REF9878 ':DOUBLE) + (INCX-REF9880 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9877 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF9878 :DOUBLE) SA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF9880 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF9879 SX)) + (%%DRSCL N-REF9877 SA-REF9878 SX-REF9879 INCX-REF9880)))) (CFFI:DEFCFUN ("dsb2st_kernels_" %%DSB2ST_KERNELS :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WANTZ :POINTER) @@ -4676,30 +4767,29 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF9899 ':INT32) (TTYPE-REF9900 ':INT32) - (ST-REF9901 ':INT32) (ED-REF9902 ':INT32) - (SWEEP-REF9903 ':INT32) (N-REF9904 ':INT32) - (NB-REF9905 ':INT32) (IB-REF9906 ':INT32) - (LDA-REF9908 ':INT32) (LDVT-REF9911 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9899 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF9900 :INT32) TTYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF9901 :INT32) ST) - (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF9902 :INT32) ED) - (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF9903 :INT32) SWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9904 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9905 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF9906 :INT32) IB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9908 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF9911 :INT32) LDVT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9907 A) (V-REF9909 V) - (TAU-REF9910 TAU) - (WORK-REF9912 WORK)) - (%%DSB2ST_KERNELS UPLO WANTZ-REF9899 TTYPE-REF9900 ST-REF9901 ED-REF9902 - SWEEP-REF9903 N-REF9904 NB-REF9905 IB-REF9906 A-REF9907 - LDA-REF9908 V-REF9909 TAU-REF9910 LDVT-REF9911 - WORK-REF9912)))) - -(CFFI:DEFCFUN ("dsbev_" %%DSBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF9882 ':INT32) (TTYPE-REF9883 ':INT32) + (ST-REF9884 ':INT32) (ED-REF9885 ':INT32) + (SWEEP-REF9886 ':INT32) (N-REF9887 ':INT32) + (NB-REF9888 ':INT32) (IB-REF9889 ':INT32) + (LDA-REF9891 ':INT32) (LDVT-REF9894 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9882 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF9883 :INT32) TTYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF9884 :INT32) ST) + (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF9885 :INT32) ED) + (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF9886 :INT32) SWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9887 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9888 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF9889 :INT32) IB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9891 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF9894 :INT32) LDVT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9890 A) (V-REF9892 V) + (TAU-REF9893 TAU) + (WORK-REF9895 WORK)) + (%%DSB2ST_KERNELS UPLO WANTZ-REF9882 TTYPE-REF9883 ST-REF9884 ED-REF9885 + SWEEP-REF9886 N-REF9887 NB-REF9888 IB-REF9889 A-REF9890 LDA-REF9891 + V-REF9892 TAU-REF9893 LDVT-REF9894 WORK-REF9895)))) + +(CFFI:DEFCFUN ("dsbev_" %%DSBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -4731,21 +4821,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9915 ':INT32) (KD-REF9916 ':INT32) - (LDAB-REF9918 ':INT32) (LDZ-REF9921 ':INT32) - (INFO-REF9923 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9915 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9916 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9918 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9921 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9923 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9917 AB) (W-REF9919 W) - (Z-REF9920 Z) (WORK-REF9922 WORK)) - (%%DSBEV JOBZ UPLO N-REF9915 KD-REF9916 AB-REF9917 LDAB-REF9918 W-REF9919 - Z-REF9920 LDZ-REF9921 WORK-REF9922 INFO-REF9923)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9898 ':INT32) (KD-REF9899 ':INT32) + (LDAB-REF9901 ':INT32) (LDZ-REF9904 ':INT32) + (INFO-REF9906 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9898 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9899 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9901 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9904 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9906 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9900 AB) (W-REF9902 W) + (Z-REF9903 Z) (WORK-REF9905 WORK)) + (%%DSBEV JOBZ UPLO N-REF9898 KD-REF9899 AB-REF9900 LDAB-REF9901 W-REF9902 + Z-REF9903 LDZ-REF9904 WORK-REF9905 INFO-REF9906)))) (CFFI:DEFCFUN ("dsbev_2stage_" %%DSBEV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -4780,22 +4870,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9926 ':INT32) (KD-REF9927 ':INT32) - (LDAB-REF9929 ':INT32) (LDZ-REF9932 ':INT32) - (LWORK-REF9934 ':INT32) (INFO-REF9935 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9926 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9927 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9929 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9932 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9934 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9935 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9928 AB) (W-REF9930 W) - (Z-REF9931 Z) (WORK-REF9933 WORK)) - (%%DSBEV_2STAGE JOBZ UPLO N-REF9926 KD-REF9927 AB-REF9928 LDAB-REF9929 - W-REF9930 Z-REF9931 LDZ-REF9932 WORK-REF9933 - LWORK-REF9934 INFO-REF9935)))) - -(CFFI:DEFCFUN ("dsbevd_" %%DSBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9909 ':INT32) (KD-REF9910 ':INT32) + (LDAB-REF9912 ':INT32) (LDZ-REF9915 ':INT32) + (LWORK-REF9917 ':INT32) (INFO-REF9918 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9909 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9910 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9912 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9915 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9917 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9918 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9911 AB) (W-REF9913 W) + (Z-REF9914 Z) (WORK-REF9916 WORK)) + (%%DSBEV_2STAGE JOBZ UPLO N-REF9909 KD-REF9910 AB-REF9911 LDAB-REF9912 + W-REF9913 Z-REF9914 LDZ-REF9915 WORK-REF9916 LWORK-REF9917 + INFO-REF9918)))) + +(CFFI:DEFCFUN ("dsbevd_" %%DSBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -4838,26 +4928,26 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9938 ':INT32) (KD-REF9939 ':INT32) - (LDAB-REF9941 ':INT32) (LDZ-REF9944 ':INT32) - (LWORK-REF9946 ':INT32) (LIWORK-REF9948 ':INT32) - (INFO-REF9949 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9938 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9939 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9941 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9944 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9946 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9948 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9949 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9940 AB) (W-REF9942 W) - (Z-REF9943 Z) (WORK-REF9945 WORK) - (IWORK-REF9947 IWORK)) - (%%DSBEVD JOBZ UPLO N-REF9938 KD-REF9939 AB-REF9940 LDAB-REF9941 - W-REF9942 Z-REF9943 LDZ-REF9944 WORK-REF9945 LWORK-REF9946 - IWORK-REF9947 LIWORK-REF9948 INFO-REF9949)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9921 ':INT32) (KD-REF9922 ':INT32) + (LDAB-REF9924 ':INT32) (LDZ-REF9927 ':INT32) + (LWORK-REF9929 ':INT32) (LIWORK-REF9931 ':INT32) + (INFO-REF9932 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9921 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9922 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9924 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9927 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9929 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9931 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9932 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9923 AB) (W-REF9925 W) + (Z-REF9926 Z) (WORK-REF9928 WORK) + (IWORK-REF9930 IWORK)) + (%%DSBEVD JOBZ UPLO N-REF9921 KD-REF9922 AB-REF9923 LDAB-REF9924 + W-REF9925 Z-REF9926 LDZ-REF9927 WORK-REF9928 LWORK-REF9929 IWORK-REF9930 + LIWORK-REF9931 INFO-REF9932)))) (CFFI:DEFCFUN ("dsbevd_2stage_" %%DSBEVD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -4900,26 +4990,25 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9952 ':INT32) (KD-REF9953 ':INT32) - (LDAB-REF9955 ':INT32) (LDZ-REF9958 ':INT32) - (LWORK-REF9960 ':INT32) (LIWORK-REF9962 ':INT32) - (INFO-REF9963 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9952 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9953 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9955 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9958 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9960 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9962 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9963 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9954 AB) (W-REF9956 W) - (Z-REF9957 Z) (WORK-REF9959 WORK) - (IWORK-REF9961 IWORK)) - (%%DSBEVD_2STAGE JOBZ UPLO N-REF9952 KD-REF9953 AB-REF9954 LDAB-REF9955 - W-REF9956 Z-REF9957 LDZ-REF9958 WORK-REF9959 - LWORK-REF9960 IWORK-REF9961 LIWORK-REF9962 - INFO-REF9963)))) - -(CFFI:DEFCFUN ("dsbevx_" %%DSBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9935 ':INT32) (KD-REF9936 ':INT32) + (LDAB-REF9938 ':INT32) (LDZ-REF9941 ':INT32) + (LWORK-REF9943 ':INT32) (LIWORK-REF9945 ':INT32) + (INFO-REF9946 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9935 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9936 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9938 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9941 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9943 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9945 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9946 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9937 AB) (W-REF9939 W) + (Z-REF9940 Z) (WORK-REF9942 WORK) + (IWORK-REF9944 IWORK)) + (%%DSBEVD_2STAGE JOBZ UPLO N-REF9935 KD-REF9936 AB-REF9937 LDAB-REF9938 + W-REF9939 Z-REF9940 LDZ-REF9941 WORK-REF9942 LWORK-REF9943 IWORK-REF9944 + LIWORK-REF9945 INFO-REF9946)))) + +(CFFI:DEFCFUN ("dsbevx_" %%DSBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -4982,37 +5071,36 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9967 ':INT32) (KD-REF9968 ':INT32) - (LDAB-REF9970 ':INT32) (LDQ-REF9972 ':INT32) - (VL-REF9973 ':DOUBLE) (VU-REF9974 ':DOUBLE) - (IL-REF9975 ':INT32) (IU-REF9976 ':INT32) - (ABSTOL-REF9977 ':DOUBLE) (M-REF9978 ':INT32) - (LDZ-REF9981 ':INT32) (INFO-REF9985 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9967 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9968 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9970 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9972 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9973 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9974 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9975 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9976 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9977 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9978 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9981 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9985 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9969 AB) (Q-REF9971 Q) - (W-REF9979 W) (Z-REF9980 Z) - (WORK-REF9982 WORK) - (IWORK-REF9983 IWORK) - (IFAIL-REF9984 IFAIL)) - (%%DSBEVX JOBZ RANGE UPLO N-REF9967 KD-REF9968 AB-REF9969 LDAB-REF9970 - Q-REF9971 LDQ-REF9972 VL-REF9973 VU-REF9974 IL-REF9975 - IU-REF9976 ABSTOL-REF9977 M-REF9978 W-REF9979 Z-REF9980 - LDZ-REF9981 WORK-REF9982 IWORK-REF9983 IFAIL-REF9984 - INFO-REF9985)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9950 ':INT32) (KD-REF9951 ':INT32) + (LDAB-REF9953 ':INT32) (LDQ-REF9955 ':INT32) + (VL-REF9956 ':DOUBLE) (VU-REF9957 ':DOUBLE) + (IL-REF9958 ':INT32) (IU-REF9959 ':INT32) + (ABSTOL-REF9960 ':DOUBLE) (M-REF9961 ':INT32) + (LDZ-REF9964 ':INT32) (INFO-REF9968 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9950 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9951 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9953 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9955 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9956 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9957 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9958 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9959 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9960 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9961 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9964 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9968 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9952 AB) (Q-REF9954 Q) + (W-REF9962 W) (Z-REF9963 Z) + (WORK-REF9965 WORK) + (IWORK-REF9966 IWORK) + (IFAIL-REF9967 IFAIL)) + (%%DSBEVX JOBZ RANGE UPLO N-REF9950 KD-REF9951 AB-REF9952 LDAB-REF9953 + Q-REF9954 LDQ-REF9955 VL-REF9956 VU-REF9957 IL-REF9958 IU-REF9959 + ABSTOL-REF9960 M-REF9961 W-REF9962 Z-REF9963 LDZ-REF9964 WORK-REF9965 + IWORK-REF9966 IFAIL-REF9967 INFO-REF9968)))) (CFFI:DEFCFUN ("dsbevx_2stage_" %%DSBEVX_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -5077,39 +5165,37 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9989 ':INT32) (KD-REF9990 ':INT32) - (LDAB-REF9992 ':INT32) (LDQ-REF9994 ':INT32) - (VL-REF9995 ':DOUBLE) (VU-REF9996 ':DOUBLE) - (IL-REF9997 ':INT32) (IU-REF9998 ':INT32) - (ABSTOL-REF9999 ':DOUBLE) (M-REF10000 ':INT32) - (LDZ-REF10003 ':INT32) (LWORK-REF10005 ':INT32) - (INFO-REF10008 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9989 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9990 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9992 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9994 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9995 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9996 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9997 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9998 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9999 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10000 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10003 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10005 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10008 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9991 AB) (Q-REF9993 Q) - (W-REF10001 W) (Z-REF10002 Z) - (WORK-REF10004 WORK) - (IWORK-REF10006 IWORK) - (IFAIL-REF10007 IFAIL)) - (%%DSBEVX_2STAGE JOBZ RANGE UPLO N-REF9989 KD-REF9990 AB-REF9991 - LDAB-REF9992 Q-REF9993 LDQ-REF9994 VL-REF9995 VU-REF9996 - IL-REF9997 IU-REF9998 ABSTOL-REF9999 M-REF10000 - W-REF10001 Z-REF10002 LDZ-REF10003 WORK-REF10004 - LWORK-REF10005 IWORK-REF10006 IFAIL-REF10007 - INFO-REF10008)))) - -(CFFI:DEFCFUN ("dsbgst_" %%DSBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9972 ':INT32) (KD-REF9973 ':INT32) + (LDAB-REF9975 ':INT32) (LDQ-REF9977 ':INT32) + (VL-REF9978 ':DOUBLE) (VU-REF9979 ':DOUBLE) + (IL-REF9980 ':INT32) (IU-REF9981 ':INT32) + (ABSTOL-REF9982 ':DOUBLE) (M-REF9983 ':INT32) + (LDZ-REF9986 ':INT32) (LWORK-REF9988 ':INT32) + (INFO-REF9991 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9972 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9973 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9975 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9977 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9978 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9979 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9980 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9981 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9982 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9983 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9986 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9988 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9991 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9974 AB) (Q-REF9976 Q) + (W-REF9984 W) (Z-REF9985 Z) + (WORK-REF9987 WORK) + (IWORK-REF9989 IWORK) + (IFAIL-REF9990 IFAIL)) + (%%DSBEVX_2STAGE JOBZ RANGE UPLO N-REF9972 KD-REF9973 AB-REF9974 + LDAB-REF9975 Q-REF9976 LDQ-REF9977 VL-REF9978 VU-REF9979 IL-REF9980 + IU-REF9981 ABSTOL-REF9982 M-REF9983 W-REF9984 Z-REF9985 LDZ-REF9986 + WORK-REF9987 LWORK-REF9988 IWORK-REF9989 IFAIL-REF9990 INFO-REF9991)))) + +(CFFI:DEFCFUN ("dsbgst_" %%DSBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -5145,24 +5231,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10011 ':INT32) (KA-REF10012 ':INT32) - (KB-REF10013 ':INT32) (LDAB-REF10015 ':INT32) - (LDBB-REF10017 ':INT32) (LDX-REF10019 ':INT32) - (INFO-REF10021 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10011 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10012 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10013 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10015 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10017 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10019 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10021 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10014 AB) (BB-REF10016 BB) - (X-REF10018 X) (WORK-REF10020 WORK)) - (%%DSBGST VECT UPLO N-REF10011 KA-REF10012 KB-REF10013 AB-REF10014 - LDAB-REF10015 BB-REF10016 LDBB-REF10017 X-REF10018 LDX-REF10019 - WORK-REF10020 INFO-REF10021)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9994 ':INT32) (KA-REF9995 ':INT32) + (KB-REF9996 ':INT32) (LDAB-REF9998 ':INT32) + (LDBB-REF10000 ':INT32) (LDX-REF10002 ':INT32) + (INFO-REF10004 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9994 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF9995 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF9996 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9998 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10000 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10002 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10004 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9997 AB) (BB-REF9999 BB) + (X-REF10001 X) (WORK-REF10003 WORK)) + (%%DSBGST VECT UPLO N-REF9994 KA-REF9995 KB-REF9996 AB-REF9997 + LDAB-REF9998 BB-REF9999 LDBB-REF10000 X-REF10001 LDX-REF10002 + WORK-REF10003 INFO-REF10004)))) -(CFFI:DEFCFUN ("dsbgv_" %%DSBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsbgv_" %%DSBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5201,25 +5287,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10024 ':INT32) (KA-REF10025 ':INT32) - (KB-REF10026 ':INT32) (LDAB-REF10028 ':INT32) - (LDBB-REF10030 ':INT32) (LDZ-REF10033 ':INT32) - (INFO-REF10035 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10024 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10025 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10026 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10028 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10030 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10033 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10035 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10027 AB) (BB-REF10029 BB) - (W-REF10031 W) (Z-REF10032 Z) - (WORK-REF10034 WORK)) - (%%DSBGV JOBZ UPLO N-REF10024 KA-REF10025 KB-REF10026 AB-REF10027 - LDAB-REF10028 BB-REF10029 LDBB-REF10030 W-REF10031 Z-REF10032 - LDZ-REF10033 WORK-REF10034 INFO-REF10035)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10007 ':INT32) (KA-REF10008 ':INT32) + (KB-REF10009 ':INT32) (LDAB-REF10011 ':INT32) + (LDBB-REF10013 ':INT32) (LDZ-REF10016 ':INT32) + (INFO-REF10018 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10007 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10008 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10009 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10011 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10013 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10016 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10018 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10010 AB) (BB-REF10012 BB) + (W-REF10014 W) (Z-REF10015 Z) + (WORK-REF10017 WORK)) + (%%DSBGV JOBZ UPLO N-REF10007 KA-REF10008 KB-REF10009 AB-REF10010 + LDAB-REF10011 BB-REF10012 LDBB-REF10013 W-REF10014 Z-REF10015 + LDZ-REF10016 WORK-REF10017 INFO-REF10018)))) -(CFFI:DEFCFUN ("dsbgvd_" %%DSBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsbgvd_" %%DSBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5269,30 +5355,30 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10038 ':INT32) (KA-REF10039 ':INT32) - (KB-REF10040 ':INT32) (LDAB-REF10042 ':INT32) - (LDBB-REF10044 ':INT32) (LDZ-REF10047 ':INT32) - (LWORK-REF10049 ':INT32) - (LIWORK-REF10051 ':INT32) (INFO-REF10052 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10038 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10039 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10040 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10042 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10044 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10047 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10049 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10051 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10052 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10041 AB) (BB-REF10043 BB) - (W-REF10045 W) (Z-REF10046 Z) - (WORK-REF10048 WORK) - (IWORK-REF10050 IWORK)) - (%%DSBGVD JOBZ UPLO N-REF10038 KA-REF10039 KB-REF10040 AB-REF10041 - LDAB-REF10042 BB-REF10043 LDBB-REF10044 W-REF10045 Z-REF10046 - LDZ-REF10047 WORK-REF10048 LWORK-REF10049 IWORK-REF10050 - LIWORK-REF10051 INFO-REF10052)))) - -(CFFI:DEFCFUN ("dsbgvx_" %%DSBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10021 ':INT32) (KA-REF10022 ':INT32) + (KB-REF10023 ':INT32) (LDAB-REF10025 ':INT32) + (LDBB-REF10027 ':INT32) (LDZ-REF10030 ':INT32) + (LWORK-REF10032 ':INT32) + (LIWORK-REF10034 ':INT32) (INFO-REF10035 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10021 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10022 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10023 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10025 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10027 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10030 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10032 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10034 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10035 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10024 AB) (BB-REF10026 BB) + (W-REF10028 W) (Z-REF10029 Z) + (WORK-REF10031 WORK) + (IWORK-REF10033 IWORK)) + (%%DSBGVD JOBZ UPLO N-REF10021 KA-REF10022 KB-REF10023 AB-REF10024 + LDAB-REF10025 BB-REF10026 LDBB-REF10027 W-REF10028 Z-REF10029 + LDZ-REF10030 WORK-REF10031 LWORK-REF10032 IWORK-REF10033 LIWORK-REF10034 + INFO-REF10035)))) + +(CFFI:DEFCFUN ("dsbgvx_" %%DSBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -5362,39 +5448,39 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10056 ':INT32) (KA-REF10057 ':INT32) - (KB-REF10058 ':INT32) (LDAB-REF10060 ':INT32) - (LDBB-REF10062 ':INT32) (LDQ-REF10064 ':INT32) - (VL-REF10065 ':DOUBLE) (VU-REF10066 ':DOUBLE) - (IL-REF10067 ':INT32) (IU-REF10068 ':INT32) - (ABSTOL-REF10069 ':DOUBLE) (M-REF10070 ':INT32) - (LDZ-REF10073 ':INT32) (INFO-REF10077 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10056 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10057 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10058 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10060 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10062 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF10064 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10065 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10066 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10067 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10068 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10069 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10070 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10073 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10077 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10059 AB) (BB-REF10061 BB) - (Q-REF10063 Q) (W-REF10071 W) - (Z-REF10072 Z) (WORK-REF10074 WORK) - (IWORK-REF10075 IWORK) - (IFAIL-REF10076 IFAIL)) - (%%DSBGVX JOBZ RANGE UPLO N-REF10056 KA-REF10057 KB-REF10058 AB-REF10059 - LDAB-REF10060 BB-REF10061 LDBB-REF10062 Q-REF10063 LDQ-REF10064 - VL-REF10065 VU-REF10066 IL-REF10067 IU-REF10068 ABSTOL-REF10069 - M-REF10070 W-REF10071 Z-REF10072 LDZ-REF10073 WORK-REF10074 - IWORK-REF10075 IFAIL-REF10076 INFO-REF10077)))) - -(CFFI:DEFCFUN ("dsbtrd_" %%DSBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10039 ':INT32) (KA-REF10040 ':INT32) + (KB-REF10041 ':INT32) (LDAB-REF10043 ':INT32) + (LDBB-REF10045 ':INT32) (LDQ-REF10047 ':INT32) + (VL-REF10048 ':DOUBLE) (VU-REF10049 ':DOUBLE) + (IL-REF10050 ':INT32) (IU-REF10051 ':INT32) + (ABSTOL-REF10052 ':DOUBLE) (M-REF10053 ':INT32) + (LDZ-REF10056 ':INT32) (INFO-REF10060 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10039 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF10040 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF10041 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10043 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF10045 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF10047 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10048 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10049 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10050 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10051 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10052 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10053 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10056 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10060 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10042 AB) (BB-REF10044 BB) + (Q-REF10046 Q) (W-REF10054 W) + (Z-REF10055 Z) (WORK-REF10057 WORK) + (IWORK-REF10058 IWORK) + (IFAIL-REF10059 IFAIL)) + (%%DSBGVX JOBZ RANGE UPLO N-REF10039 KA-REF10040 KB-REF10041 AB-REF10042 + LDAB-REF10043 BB-REF10044 LDBB-REF10045 Q-REF10046 LDQ-REF10047 + VL-REF10048 VU-REF10049 IL-REF10050 IU-REF10051 ABSTOL-REF10052 + M-REF10053 W-REF10054 Z-REF10055 LDZ-REF10056 WORK-REF10057 + IWORK-REF10058 IFAIL-REF10059 INFO-REF10060)))) + +(CFFI:DEFCFUN ("dsbtrd_" %%DSBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -5429,22 +5515,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10080 ':INT32) (KD-REF10081 ':INT32) - (LDAB-REF10083 ':INT32) (LDQ-REF10087 ':INT32) - (INFO-REF10089 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10080 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF10081 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10083 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF10087 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10089 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10082 AB) (D-REF10084 D) - (E-REF10085 E) (Q-REF10086 Q) - (WORK-REF10088 WORK)) - (%%DSBTRD VECT UPLO N-REF10080 KD-REF10081 AB-REF10082 LDAB-REF10083 - D-REF10084 E-REF10085 Q-REF10086 LDQ-REF10087 WORK-REF10088 - INFO-REF10089)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10063 ':INT32) (KD-REF10064 ':INT32) + (LDAB-REF10066 ':INT32) (LDQ-REF10070 ':INT32) + (INFO-REF10072 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10063 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF10064 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10066 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF10070 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10072 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10065 AB) (D-REF10067 D) + (E-REF10068 E) (Q-REF10069 Q) + (WORK-REF10071 WORK)) + (%%DSBTRD VECT UPLO N-REF10063 KD-REF10064 AB-REF10065 LDAB-REF10066 + D-REF10067 E-REF10068 Q-REF10069 LDQ-REF10070 WORK-REF10071 + INFO-REF10072)))) -(CFFI:DEFCFUN ("dsfrk_" %%DSFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsfrk_" %%DSFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -5471,19 +5557,19 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10093 ':INT32) (K-REF10094 ':INT32) - (ALPHA-REF10095 ':DOUBLE) (LDA-REF10097 ':INT32) - (BETA-REF10098 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10093 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF10094 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF10095 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10097 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF10098 :DOUBLE) BETA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10096 A) (C-REF10099 C)) - (%%DSFRK TRANSR UPLO TRANS N-REF10093 K-REF10094 ALPHA-REF10095 - A-REF10096 LDA-REF10097 BETA-REF10098 C-REF10099)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10076 ':INT32) (K-REF10077 ':INT32) + (ALPHA-REF10078 ':DOUBLE) (LDA-REF10080 ':INT32) + (BETA-REF10081 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10076 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF10077 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF10078 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10080 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF10081 :DOUBLE) BETA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10079 A) (C-REF10082 C)) + (%%DSFRK TRANSR UPLO TRANS N-REF10076 K-REF10077 ALPHA-REF10078 + A-REF10079 LDA-REF10080 BETA-REF10081 C-REF10082)))) -(CFFI:DEFCFUN ("dsgesv_" %%DSGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsgesv_" %%DSGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -5524,26 +5610,26 @@ SWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10100 ':INT32) (NRHS-REF10101 ':INT32) - (LDA-REF10103 ':INT32) (LDB-REF10106 ':INT32) - (LDX-REF10108 ':INT32) (ITER-REF10111 ':INT32) - (INFO-REF10112 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10100 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10101 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10103 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10106 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10108 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF10111 :INT32) ITER) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10112 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10102 A) (IPIV-REF10104 IPIV) - (B-REF10105 B) (X-REF10107 X) - (WORK-REF10109 WORK) - (SWORK-REF10110 SWORK)) - (%%DSGESV N-REF10100 NRHS-REF10101 A-REF10102 LDA-REF10103 IPIV-REF10104 - B-REF10105 LDB-REF10106 X-REF10107 LDX-REF10108 WORK-REF10109 - SWORK-REF10110 ITER-REF10111 INFO-REF10112)))) - -(CFFI:DEFCFUN ("dspcon_" %%DSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10083 ':INT32) (NRHS-REF10084 ':INT32) + (LDA-REF10086 ':INT32) (LDB-REF10089 ':INT32) + (LDX-REF10091 ':INT32) (ITER-REF10094 ':INT32) + (INFO-REF10095 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10083 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10084 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10086 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10089 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10091 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF10094 :INT32) ITER) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10095 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10085 A) (IPIV-REF10087 IPIV) + (B-REF10088 B) (X-REF10090 X) + (WORK-REF10092 WORK) + (SWORK-REF10093 SWORK)) + (%%DSGESV N-REF10083 NRHS-REF10084 A-REF10085 LDA-REF10086 IPIV-REF10087 + B-REF10088 LDB-REF10089 X-REF10090 LDX-REF10091 WORK-REF10092 + SWORK-REF10093 ITER-REF10094 INFO-REF10095)))) + +(CFFI:DEFCFUN ("dspcon_" %%DSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5575,20 +5661,20 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10114 ':INT32) (ANORM-REF10117 ':DOUBLE) - (RCOND-REF10118 ':DOUBLE) (INFO-REF10121 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10114 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10117 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10118 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10121 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10115 AP) - (IPIV-REF10116 IPIV) - (WORK-REF10119 WORK) - (IWORK-REF10120 IWORK)) - (%%DSPCON UPLO N-REF10114 AP-REF10115 IPIV-REF10116 ANORM-REF10117 - RCOND-REF10118 WORK-REF10119 IWORK-REF10120 INFO-REF10121)))) - -(CFFI:DEFCFUN ("dspev_" %%DSPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10097 ':INT32) (ANORM-REF10100 ':DOUBLE) + (RCOND-REF10101 ':DOUBLE) (INFO-REF10104 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10097 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10100 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10101 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10104 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10098 AP) + (IPIV-REF10099 IPIV) + (WORK-REF10102 WORK) + (IWORK-REF10103 IWORK)) + (%%DSPCON UPLO N-REF10097 AP-REF10098 IPIV-REF10099 ANORM-REF10100 + RCOND-REF10101 WORK-REF10102 IWORK-REF10103 INFO-REF10104)))) + +(CFFI:DEFCFUN ("dspev_" %%DSPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5616,17 +5702,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10124 ':INT32) (LDZ-REF10128 ':INT32) - (INFO-REF10130 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10124 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10128 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10130 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10125 AP) (W-REF10126 W) - (Z-REF10127 Z) (WORK-REF10129 WORK)) - (%%DSPEV JOBZ UPLO N-REF10124 AP-REF10125 W-REF10126 Z-REF10127 - LDZ-REF10128 WORK-REF10129 INFO-REF10130)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10107 ':INT32) (LDZ-REF10111 ':INT32) + (INFO-REF10113 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10107 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10111 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10113 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10108 AP) (W-REF10109 W) + (Z-REF10110 Z) (WORK-REF10112 WORK)) + (%%DSPEV JOBZ UPLO N-REF10107 AP-REF10108 W-REF10109 Z-REF10110 + LDZ-REF10111 WORK-REF10112 INFO-REF10113)))) -(CFFI:DEFCFUN ("dspevd_" %%DSPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dspevd_" %%DSPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5664,22 +5750,22 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10133 ':INT32) (LDZ-REF10137 ':INT32) - (LWORK-REF10139 ':INT32) - (LIWORK-REF10141 ':INT32) (INFO-REF10142 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10133 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10137 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10139 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10141 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10142 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10134 AP) (W-REF10135 W) - (Z-REF10136 Z) (WORK-REF10138 WORK) - (IWORK-REF10140 IWORK)) - (%%DSPEVD JOBZ UPLO N-REF10133 AP-REF10134 W-REF10135 Z-REF10136 - LDZ-REF10137 WORK-REF10138 LWORK-REF10139 IWORK-REF10140 - LIWORK-REF10141 INFO-REF10142)))) - -(CFFI:DEFCFUN ("dspevx_" %%DSPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10116 ':INT32) (LDZ-REF10120 ':INT32) + (LWORK-REF10122 ':INT32) + (LIWORK-REF10124 ':INT32) (INFO-REF10125 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10116 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10120 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10122 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10124 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10125 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10117 AP) (W-REF10118 W) + (Z-REF10119 Z) (WORK-REF10121 WORK) + (IWORK-REF10123 IWORK)) + (%%DSPEVD JOBZ UPLO N-REF10116 AP-REF10117 W-REF10118 Z-REF10119 + LDZ-REF10120 WORK-REF10121 LWORK-REF10122 IWORK-REF10123 LIWORK-REF10124 + INFO-REF10125)))) + +(CFFI:DEFCFUN ("dspevx_" %%DSPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -5733,30 +5819,30 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10146 ':INT32) (VL-REF10148 ':DOUBLE) - (VU-REF10149 ':DOUBLE) (IL-REF10150 ':INT32) - (IU-REF10151 ':INT32) (ABSTOL-REF10152 ':DOUBLE) - (M-REF10153 ':INT32) (LDZ-REF10156 ':INT32) - (INFO-REF10160 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10146 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10148 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10149 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10150 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10151 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10152 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10153 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10156 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10160 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10147 AP) (W-REF10154 W) - (Z-REF10155 Z) (WORK-REF10157 WORK) - (IWORK-REF10158 IWORK) - (IFAIL-REF10159 IFAIL)) - (%%DSPEVX JOBZ RANGE UPLO N-REF10146 AP-REF10147 VL-REF10148 VU-REF10149 - IL-REF10150 IU-REF10151 ABSTOL-REF10152 M-REF10153 W-REF10154 - Z-REF10155 LDZ-REF10156 WORK-REF10157 IWORK-REF10158 - IFAIL-REF10159 INFO-REF10160)))) - -(CFFI:DEFCFUN ("dspgst_" %%DSPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10129 ':INT32) (VL-REF10131 ':DOUBLE) + (VU-REF10132 ':DOUBLE) (IL-REF10133 ':INT32) + (IU-REF10134 ':INT32) (ABSTOL-REF10135 ':DOUBLE) + (M-REF10136 ':INT32) (LDZ-REF10139 ':INT32) + (INFO-REF10143 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10129 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10131 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10132 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10133 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10134 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10135 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10136 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10139 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10143 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10130 AP) (W-REF10137 W) + (Z-REF10138 Z) (WORK-REF10140 WORK) + (IWORK-REF10141 IWORK) + (IFAIL-REF10142 IFAIL)) + (%%DSPEVX JOBZ RANGE UPLO N-REF10129 AP-REF10130 VL-REF10131 VU-REF10132 + IL-REF10133 IU-REF10134 ABSTOL-REF10135 M-REF10136 W-REF10137 Z-REF10138 + LDZ-REF10139 WORK-REF10140 IWORK-REF10141 IFAIL-REF10142 + INFO-REF10143)))) + +(CFFI:DEFCFUN ("dspgst_" %%DSPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -5775,16 +5861,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10161 ':INT32) (N-REF10163 ':INT32) - (INFO-REF10166 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10161 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10163 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10166 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10164 AP) (BP-REF10165 BP)) - (%%DSPGST ITYPE-REF10161 UPLO N-REF10163 AP-REF10164 BP-REF10165 - INFO-REF10166)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10144 ':INT32) (N-REF10146 ':INT32) + (INFO-REF10149 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10144 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10146 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10149 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10147 AP) (BP-REF10148 BP)) + (%%DSPGST ITYPE-REF10144 UPLO N-REF10146 AP-REF10147 BP-REF10148 + INFO-REF10149)))) -(CFFI:DEFCFUN ("dspgv_" %%DSPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dspgv_" %%DSPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -5817,20 +5903,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10167 ':INT32) (N-REF10170 ':INT32) - (LDZ-REF10175 ':INT32) (INFO-REF10177 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10167 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10170 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10175 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10177 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10171 AP) (BP-REF10172 BP) - (W-REF10173 W) (Z-REF10174 Z) - (WORK-REF10176 WORK)) - (%%DSPGV ITYPE-REF10167 JOBZ UPLO N-REF10170 AP-REF10171 BP-REF10172 - W-REF10173 Z-REF10174 LDZ-REF10175 WORK-REF10176 - INFO-REF10177)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10150 ':INT32) (N-REF10153 ':INT32) + (LDZ-REF10158 ':INT32) (INFO-REF10160 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10150 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10153 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10158 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10160 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10154 AP) (BP-REF10155 BP) + (W-REF10156 W) (Z-REF10157 Z) + (WORK-REF10159 WORK)) + (%%DSPGV ITYPE-REF10150 JOBZ UPLO N-REF10153 AP-REF10154 BP-REF10155 + W-REF10156 Z-REF10157 LDZ-REF10158 WORK-REF10159 INFO-REF10160)))) -(CFFI:DEFCFUN ("dspgvd_" %%DSPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dspgvd_" %%DSPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -5874,24 +5959,24 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10178 ':INT32) (N-REF10181 ':INT32) - (LDZ-REF10186 ':INT32) (LWORK-REF10188 ':INT32) - (LIWORK-REF10190 ':INT32) (INFO-REF10191 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10178 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10181 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10186 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10188 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10190 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10191 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10182 AP) (BP-REF10183 BP) - (W-REF10184 W) (Z-REF10185 Z) - (WORK-REF10187 WORK) - (IWORK-REF10189 IWORK)) - (%%DSPGVD ITYPE-REF10178 JOBZ UPLO N-REF10181 AP-REF10182 BP-REF10183 - W-REF10184 Z-REF10185 LDZ-REF10186 WORK-REF10187 LWORK-REF10188 - IWORK-REF10189 LIWORK-REF10190 INFO-REF10191)))) - -(CFFI:DEFCFUN ("dspgvx_" %%DSPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10161 ':INT32) (N-REF10164 ':INT32) + (LDZ-REF10169 ':INT32) (LWORK-REF10171 ':INT32) + (LIWORK-REF10173 ':INT32) (INFO-REF10174 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10161 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10164 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10169 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10171 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10173 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10174 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10165 AP) (BP-REF10166 BP) + (W-REF10167 W) (Z-REF10168 Z) + (WORK-REF10170 WORK) + (IWORK-REF10172 IWORK)) + (%%DSPGVD ITYPE-REF10161 JOBZ UPLO N-REF10164 AP-REF10165 BP-REF10166 + W-REF10167 Z-REF10168 LDZ-REF10169 WORK-REF10170 LWORK-REF10171 + IWORK-REF10172 LIWORK-REF10173 INFO-REF10174)))) + +(CFFI:DEFCFUN ("dspgvx_" %%DSPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -5950,32 +6035,32 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10192 ':INT32) (N-REF10196 ':INT32) - (VL-REF10199 ':DOUBLE) (VU-REF10200 ':DOUBLE) - (IL-REF10201 ':INT32) (IU-REF10202 ':INT32) - (ABSTOL-REF10203 ':DOUBLE) (M-REF10204 ':INT32) - (LDZ-REF10207 ':INT32) (INFO-REF10211 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10192 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10196 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10199 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10200 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10201 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10202 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10203 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10204 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10207 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10211 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10197 AP) (BP-REF10198 BP) - (W-REF10205 W) (Z-REF10206 Z) - (WORK-REF10208 WORK) - (IWORK-REF10209 IWORK) - (IFAIL-REF10210 IFAIL)) - (%%DSPGVX ITYPE-REF10192 JOBZ RANGE UPLO N-REF10196 AP-REF10197 - BP-REF10198 VL-REF10199 VU-REF10200 IL-REF10201 IU-REF10202 - ABSTOL-REF10203 M-REF10204 W-REF10205 Z-REF10206 LDZ-REF10207 - WORK-REF10208 IWORK-REF10209 IFAIL-REF10210 INFO-REF10211)))) - -(CFFI:DEFCFUN ("dsposv_" %%DSPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10175 ':INT32) (N-REF10179 ':INT32) + (VL-REF10182 ':DOUBLE) (VU-REF10183 ':DOUBLE) + (IL-REF10184 ':INT32) (IU-REF10185 ':INT32) + (ABSTOL-REF10186 ':DOUBLE) (M-REF10187 ':INT32) + (LDZ-REF10190 ':INT32) (INFO-REF10194 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10175 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10179 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10182 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10183 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10184 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10185 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10186 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10187 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10190 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10194 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10180 AP) (BP-REF10181 BP) + (W-REF10188 W) (Z-REF10189 Z) + (WORK-REF10191 WORK) + (IWORK-REF10192 IWORK) + (IFAIL-REF10193 IFAIL)) + (%%DSPGVX ITYPE-REF10175 JOBZ RANGE UPLO N-REF10179 AP-REF10180 + BP-REF10181 VL-REF10182 VU-REF10183 IL-REF10184 IU-REF10185 + ABSTOL-REF10186 M-REF10187 W-REF10188 Z-REF10189 LDZ-REF10190 + WORK-REF10191 IWORK-REF10192 IFAIL-REF10193 INFO-REF10194)))) + +(CFFI:DEFCFUN ("dsposv_" %%DSPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6013,25 +6098,25 @@ SWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10213 ':INT32) (NRHS-REF10214 ':INT32) - (LDA-REF10216 ':INT32) (LDB-REF10218 ':INT32) - (LDX-REF10220 ':INT32) (ITER-REF10223 ':INT32) - (INFO-REF10224 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10213 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10214 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10216 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10218 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10220 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF10223 :INT32) ITER) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10224 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10215 A) (B-REF10217 B) - (X-REF10219 X) (WORK-REF10221 WORK) - (SWORK-REF10222 SWORK)) - (%%DSPOSV UPLO N-REF10213 NRHS-REF10214 A-REF10215 LDA-REF10216 - B-REF10217 LDB-REF10218 X-REF10219 LDX-REF10220 WORK-REF10221 - SWORK-REF10222 ITER-REF10223 INFO-REF10224)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10196 ':INT32) (NRHS-REF10197 ':INT32) + (LDA-REF10199 ':INT32) (LDB-REF10201 ':INT32) + (LDX-REF10203 ':INT32) (ITER-REF10206 ':INT32) + (INFO-REF10207 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10196 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10197 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10199 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10201 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10203 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF10206 :INT32) ITER) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10207 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10198 A) (B-REF10200 B) + (X-REF10202 X) (WORK-REF10204 WORK) + (SWORK-REF10205 SWORK)) + (%%DSPOSV UPLO N-REF10196 NRHS-REF10197 A-REF10198 LDA-REF10199 + B-REF10200 LDB-REF10201 X-REF10202 LDX-REF10203 WORK-REF10204 + SWORK-REF10205 ITER-REF10206 INFO-REF10207)))) -(CFFI:DEFCFUN ("dsprfs_" %%DSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsprfs_" %%DSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6085,26 +6170,26 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10226 ':INT32) (NRHS-REF10227 ':INT32) - (LDB-REF10232 ':INT32) (LDX-REF10234 ':INT32) - (INFO-REF10239 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10226 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10227 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10232 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10234 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10239 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10228 AP) (AFP-REF10229 AFP) - (IPIV-REF10230 IPIV) (B-REF10231 B) - (X-REF10233 X) (FERR-REF10235 FERR) - (BERR-REF10236 BERR) - (WORK-REF10237 WORK) - (IWORK-REF10238 IWORK)) - (%%DSPRFS UPLO N-REF10226 NRHS-REF10227 AP-REF10228 AFP-REF10229 - IPIV-REF10230 B-REF10231 LDB-REF10232 X-REF10233 LDX-REF10234 - FERR-REF10235 BERR-REF10236 WORK-REF10237 IWORK-REF10238 - INFO-REF10239)))) - -(CFFI:DEFCFUN ("dspsv_" %%DSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10209 ':INT32) (NRHS-REF10210 ':INT32) + (LDB-REF10215 ':INT32) (LDX-REF10217 ':INT32) + (INFO-REF10222 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10209 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10210 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10215 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10217 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10222 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10211 AP) (AFP-REF10212 AFP) + (IPIV-REF10213 IPIV) (B-REF10214 B) + (X-REF10216 X) (FERR-REF10218 FERR) + (BERR-REF10219 BERR) + (WORK-REF10220 WORK) + (IWORK-REF10221 IWORK)) + (%%DSPRFS UPLO N-REF10209 NRHS-REF10210 AP-REF10211 AFP-REF10212 + IPIV-REF10213 B-REF10214 LDB-REF10215 X-REF10216 LDX-REF10217 + FERR-REF10218 BERR-REF10219 WORK-REF10220 IWORK-REF10221 + INFO-REF10222)))) + +(CFFI:DEFCFUN ("dspsv_" %%DSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6130,18 +6215,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10241 ':INT32) (NRHS-REF10242 ':INT32) - (LDB-REF10246 ':INT32) (INFO-REF10247 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10241 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10242 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10246 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10247 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10243 AP) - (IPIV-REF10244 IPIV) (B-REF10245 B)) - (%%DSPSV UPLO N-REF10241 NRHS-REF10242 AP-REF10243 IPIV-REF10244 - B-REF10245 LDB-REF10246 INFO-REF10247)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10224 ':INT32) (NRHS-REF10225 ':INT32) + (LDB-REF10229 ':INT32) (INFO-REF10230 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10224 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10225 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10229 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10230 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10226 AP) + (IPIV-REF10227 IPIV) (B-REF10228 B)) + (%%DSPSV UPLO N-REF10224 NRHS-REF10225 AP-REF10226 IPIV-REF10227 + B-REF10228 LDB-REF10229 INFO-REF10230)))) -(CFFI:DEFCFUN ("dspsvx_" %%DSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dspsvx_" %%DSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -6199,27 +6284,27 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10250 ':INT32) (NRHS-REF10251 ':INT32) - (LDB-REF10256 ':INT32) (LDX-REF10258 ':INT32) - (RCOND-REF10259 ':DOUBLE) (INFO-REF10264 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10250 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10251 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10256 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10258 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10259 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10264 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10252 AP) (AFP-REF10253 AFP) - (IPIV-REF10254 IPIV) (B-REF10255 B) - (X-REF10257 X) (FERR-REF10260 FERR) - (BERR-REF10261 BERR) - (WORK-REF10262 WORK) - (IWORK-REF10263 IWORK)) - (%%DSPSVX FACT UPLO N-REF10250 NRHS-REF10251 AP-REF10252 AFP-REF10253 - IPIV-REF10254 B-REF10255 LDB-REF10256 X-REF10257 LDX-REF10258 - RCOND-REF10259 FERR-REF10260 BERR-REF10261 WORK-REF10262 - IWORK-REF10263 INFO-REF10264)))) - -(CFFI:DEFCFUN ("dsptrd_" %%DSPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10233 ':INT32) (NRHS-REF10234 ':INT32) + (LDB-REF10239 ':INT32) (LDX-REF10241 ':INT32) + (RCOND-REF10242 ':DOUBLE) (INFO-REF10247 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10233 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10234 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10239 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10241 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10242 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10247 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10235 AP) (AFP-REF10236 AFP) + (IPIV-REF10237 IPIV) (B-REF10238 B) + (X-REF10240 X) (FERR-REF10243 FERR) + (BERR-REF10244 BERR) + (WORK-REF10245 WORK) + (IWORK-REF10246 IWORK)) + (%%DSPSVX FACT UPLO N-REF10233 NRHS-REF10234 AP-REF10235 AFP-REF10236 + IPIV-REF10237 B-REF10238 LDB-REF10239 X-REF10240 LDX-REF10241 + RCOND-REF10242 FERR-REF10243 BERR-REF10244 WORK-REF10245 IWORK-REF10246 + INFO-REF10247)))) + +(CFFI:DEFCFUN ("dsptrd_" %%DSPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6243,15 +6328,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10266 ':INT32) (INFO-REF10271 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10266 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10271 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10267 AP) (D-REF10268 D) - (E-REF10269 E) (TAU-REF10270 TAU)) - (%%DSPTRD UPLO N-REF10266 AP-REF10267 D-REF10268 E-REF10269 TAU-REF10270 - INFO-REF10271)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10249 ':INT32) (INFO-REF10254 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10249 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10254 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10250 AP) (D-REF10251 D) + (E-REF10252 E) (TAU-REF10253 TAU)) + (%%DSPTRD UPLO N-REF10249 AP-REF10250 D-REF10251 E-REF10252 TAU-REF10253 + INFO-REF10254)))) -(CFFI:DEFCFUN ("dsptrf_" %%DSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsptrf_" %%DSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6270,14 +6355,14 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10273 ':INT32) (INFO-REF10276 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10273 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10276 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10274 AP) - (IPIV-REF10275 IPIV)) - (%%DSPTRF UPLO N-REF10273 AP-REF10274 IPIV-REF10275 INFO-REF10276)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10256 ':INT32) (INFO-REF10259 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10256 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10259 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10257 AP) + (IPIV-REF10258 IPIV)) + (%%DSPTRF UPLO N-REF10256 AP-REF10257 IPIV-REF10258 INFO-REF10259)))) -(CFFI:DEFCFUN ("dsptri_" %%DSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsptri_" %%DSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6300,16 +6385,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10278 ':INT32) (INFO-REF10282 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10278 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10282 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10279 AP) - (IPIV-REF10280 IPIV) - (WORK-REF10281 WORK)) - (%%DSPTRI UPLO N-REF10278 AP-REF10279 IPIV-REF10280 WORK-REF10281 - INFO-REF10282)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10261 ':INT32) (INFO-REF10265 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10261 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10265 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10262 AP) + (IPIV-REF10263 IPIV) + (WORK-REF10264 WORK)) + (%%DSPTRI UPLO N-REF10261 AP-REF10262 IPIV-REF10263 WORK-REF10264 + INFO-REF10265)))) -(CFFI:DEFCFUN ("dsptrs_" %%DSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsptrs_" %%DSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6335,18 +6420,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10284 ':INT32) (NRHS-REF10285 ':INT32) - (LDB-REF10289 ':INT32) (INFO-REF10290 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10284 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10285 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10289 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10290 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10286 AP) - (IPIV-REF10287 IPIV) (B-REF10288 B)) - (%%DSPTRS UPLO N-REF10284 NRHS-REF10285 AP-REF10286 IPIV-REF10287 - B-REF10288 LDB-REF10289 INFO-REF10290)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10267 ':INT32) (NRHS-REF10268 ':INT32) + (LDB-REF10272 ':INT32) (INFO-REF10273 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10267 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10268 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10272 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10273 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10269 AP) + (IPIV-REF10270 IPIV) (B-REF10271 B)) + (%%DSPTRS UPLO N-REF10267 NRHS-REF10268 AP-REF10269 IPIV-REF10270 + B-REF10271 LDB-REF10272 INFO-REF10273)))) -(CFFI:DEFCFUN ("dstebz_" %%DSTEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dstebz_" %%DSTEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RANGE :STRING) (ORDER :STRING) @@ -6403,32 +6488,32 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10293 ':INT32) (VL-REF10294 ':DOUBLE) - (VU-REF10295 ':DOUBLE) (IL-REF10296 ':INT32) - (IU-REF10297 ':INT32) (ABSTOL-REF10298 ':DOUBLE) - (M-REF10301 ':INT32) (NSPLIT-REF10302 ':INT32) - (INFO-REF10308 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10293 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10294 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10295 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10296 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10297 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10298 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10301 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF10302 :INT32) NSPLIT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10308 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10299 D) (E-REF10300 E) - (W-REF10303 W) - (IBLOCK-REF10304 IBLOCK) - (ISPLIT-REF10305 ISPLIT) - (WORK-REF10306 WORK) - (IWORK-REF10307 IWORK)) - (%%DSTEBZ RANGE ORDER N-REF10293 VL-REF10294 VU-REF10295 IL-REF10296 - IU-REF10297 ABSTOL-REF10298 D-REF10299 E-REF10300 M-REF10301 - NSPLIT-REF10302 W-REF10303 IBLOCK-REF10304 ISPLIT-REF10305 - WORK-REF10306 IWORK-REF10307 INFO-REF10308)))) - -(CFFI:DEFCFUN ("dstedc_" %%DSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10276 ':INT32) (VL-REF10277 ':DOUBLE) + (VU-REF10278 ':DOUBLE) (IL-REF10279 ':INT32) + (IU-REF10280 ':INT32) (ABSTOL-REF10281 ':DOUBLE) + (M-REF10284 ':INT32) (NSPLIT-REF10285 ':INT32) + (INFO-REF10291 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10276 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10277 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10278 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10279 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10280 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10281 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10284 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF10285 :INT32) NSPLIT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10291 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10282 D) (E-REF10283 E) + (W-REF10286 W) + (IBLOCK-REF10287 IBLOCK) + (ISPLIT-REF10288 ISPLIT) + (WORK-REF10289 WORK) + (IWORK-REF10290 IWORK)) + (%%DSTEBZ RANGE ORDER N-REF10276 VL-REF10277 VU-REF10278 IL-REF10279 + IU-REF10280 ABSTOL-REF10281 D-REF10282 E-REF10283 M-REF10284 + NSPLIT-REF10285 W-REF10286 IBLOCK-REF10287 ISPLIT-REF10288 WORK-REF10289 + IWORK-REF10290 INFO-REF10291)))) + +(CFFI:DEFCFUN ("dstedc_" %%DSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -6463,22 +6548,22 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10310 ':INT32) (LDZ-REF10314 ':INT32) - (LWORK-REF10316 ':INT32) - (LIWORK-REF10318 ':INT32) (INFO-REF10319 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10310 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10314 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10316 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10318 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10319 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10311 D) (E-REF10312 E) - (Z-REF10313 Z) (WORK-REF10315 WORK) - (IWORK-REF10317 IWORK)) - (%%DSTEDC COMPZ N-REF10310 D-REF10311 E-REF10312 Z-REF10313 LDZ-REF10314 - WORK-REF10315 LWORK-REF10316 IWORK-REF10317 LIWORK-REF10318 - INFO-REF10319)))) - -(CFFI:DEFCFUN ("dstegr_" %%DSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10293 ':INT32) (LDZ-REF10297 ':INT32) + (LWORK-REF10299 ':INT32) + (LIWORK-REF10301 ':INT32) (INFO-REF10302 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10293 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10297 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10299 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10301 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10302 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10294 D) (E-REF10295 E) + (Z-REF10296 Z) (WORK-REF10298 WORK) + (IWORK-REF10300 IWORK)) + (%%DSTEDC COMPZ N-REF10293 D-REF10294 E-REF10295 Z-REF10296 LDZ-REF10297 + WORK-REF10298 LWORK-REF10299 IWORK-REF10300 LIWORK-REF10301 + INFO-REF10302)))) + +(CFFI:DEFCFUN ("dstegr_" %%DSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -6537,35 +6622,34 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10322 ':INT32) (VL-REF10325 ':DOUBLE) - (VU-REF10326 ':DOUBLE) (IL-REF10327 ':INT32) - (IU-REF10328 ':INT32) (ABSTOL-REF10329 ':DOUBLE) - (M-REF10330 ':INT32) (LDZ-REF10333 ':INT32) - (LWORK-REF10336 ':INT32) - (LIWORK-REF10338 ':INT32) (INFO-REF10339 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10322 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10325 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10326 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10327 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10328 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10329 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10330 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10333 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10336 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10338 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10339 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10323 D) (E-REF10324 E) - (W-REF10331 W) (Z-REF10332 Z) - (ISUPPZ-REF10334 ISUPPZ) - (WORK-REF10335 WORK) - (IWORK-REF10337 IWORK)) - (%%DSTEGR JOBZ RANGE N-REF10322 D-REF10323 E-REF10324 VL-REF10325 - VU-REF10326 IL-REF10327 IU-REF10328 ABSTOL-REF10329 M-REF10330 - W-REF10331 Z-REF10332 LDZ-REF10333 ISUPPZ-REF10334 - WORK-REF10335 LWORK-REF10336 IWORK-REF10337 LIWORK-REF10338 - INFO-REF10339)))) - -(CFFI:DEFCFUN ("dstein_" %%DSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10305 ':INT32) (VL-REF10308 ':DOUBLE) + (VU-REF10309 ':DOUBLE) (IL-REF10310 ':INT32) + (IU-REF10311 ':INT32) (ABSTOL-REF10312 ':DOUBLE) + (M-REF10313 ':INT32) (LDZ-REF10316 ':INT32) + (LWORK-REF10319 ':INT32) + (LIWORK-REF10321 ':INT32) (INFO-REF10322 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10305 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10308 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10309 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10310 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10311 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10312 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10313 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10316 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10319 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10321 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10322 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10306 D) (E-REF10307 E) + (W-REF10314 W) (Z-REF10315 Z) + (ISUPPZ-REF10317 ISUPPZ) + (WORK-REF10318 WORK) + (IWORK-REF10320 IWORK)) + (%%DSTEGR JOBZ RANGE N-REF10305 D-REF10306 E-REF10307 VL-REF10308 + VU-REF10309 IL-REF10310 IU-REF10311 ABSTOL-REF10312 M-REF10313 + W-REF10314 Z-REF10315 LDZ-REF10316 ISUPPZ-REF10317 WORK-REF10318 + LWORK-REF10319 IWORK-REF10320 LIWORK-REF10321 INFO-REF10322)))) + +(CFFI:DEFCFUN ("dstein_" %%DSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -6615,24 +6699,24 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10340 ':INT32) (M-REF10343 ':INT32) - (LDZ-REF10348 ':INT32) (INFO-REF10352 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10340 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10343 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10348 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10352 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10341 D) (E-REF10342 E) - (W-REF10344 W) - (IBLOCK-REF10345 IBLOCK) - (ISPLIT-REF10346 ISPLIT) - (Z-REF10347 Z) (WORK-REF10349 WORK) - (IWORK-REF10350 IWORK) - (IFAIL-REF10351 IFAIL)) - (%%DSTEIN N-REF10340 D-REF10341 E-REF10342 M-REF10343 W-REF10344 - IBLOCK-REF10345 ISPLIT-REF10346 Z-REF10347 LDZ-REF10348 - WORK-REF10349 IWORK-REF10350 IFAIL-REF10351 INFO-REF10352)))) - -(CFFI:DEFCFUN ("dstemr_" %%DSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10323 ':INT32) (M-REF10326 ':INT32) + (LDZ-REF10331 ':INT32) (INFO-REF10335 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10323 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10326 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10331 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10335 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10324 D) (E-REF10325 E) + (W-REF10327 W) + (IBLOCK-REF10328 IBLOCK) + (ISPLIT-REF10329 ISPLIT) + (Z-REF10330 Z) (WORK-REF10332 WORK) + (IWORK-REF10333 IWORK) + (IFAIL-REF10334 IFAIL)) + (%%DSTEIN N-REF10323 D-REF10324 E-REF10325 M-REF10326 W-REF10327 + IBLOCK-REF10328 ISPLIT-REF10329 Z-REF10330 LDZ-REF10331 WORK-REF10332 + IWORK-REF10333 IFAIL-REF10334 INFO-REF10335)))) + +(CFFI:DEFCFUN ("dstemr_" %%DSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -6693,37 +6777,36 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10355 ':INT32) (VL-REF10358 ':DOUBLE) - (VU-REF10359 ':DOUBLE) (IL-REF10360 ':INT32) - (IU-REF10361 ':INT32) (M-REF10362 ':INT32) - (LDZ-REF10365 ':INT32) (NZC-REF10366 ':INT32) - (TRYRAC-REF10368 ':INT32) - (LWORK-REF10370 ':INT32) - (LIWORK-REF10372 ':INT32) (INFO-REF10373 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10355 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10358 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10359 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10360 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10361 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10362 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10365 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF10366 :INT32) NZC) - (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF10368 :INT32) TRYRAC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10370 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10372 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10373 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10356 D) (E-REF10357 E) - (W-REF10363 W) (Z-REF10364 Z) - (ISUPPZ-REF10367 ISUPPZ) - (WORK-REF10369 WORK) - (IWORK-REF10371 IWORK)) - (%%DSTEMR JOBZ RANGE N-REF10355 D-REF10356 E-REF10357 VL-REF10358 - VU-REF10359 IL-REF10360 IU-REF10361 M-REF10362 W-REF10363 - Z-REF10364 LDZ-REF10365 NZC-REF10366 ISUPPZ-REF10367 - TRYRAC-REF10368 WORK-REF10369 LWORK-REF10370 IWORK-REF10371 - LIWORK-REF10372 INFO-REF10373)))) - -(CFFI:DEFCFUN ("dsteqr_" %%DSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10338 ':INT32) (VL-REF10341 ':DOUBLE) + (VU-REF10342 ':DOUBLE) (IL-REF10343 ':INT32) + (IU-REF10344 ':INT32) (M-REF10345 ':INT32) + (LDZ-REF10348 ':INT32) (NZC-REF10349 ':INT32) + (TRYRAC-REF10351 ':INT32) + (LWORK-REF10353 ':INT32) + (LIWORK-REF10355 ':INT32) (INFO-REF10356 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10338 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10341 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10342 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10343 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10344 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10345 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10348 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF10349 :INT32) NZC) + (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF10351 :INT32) TRYRAC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10353 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10355 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10356 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10339 D) (E-REF10340 E) + (W-REF10346 W) (Z-REF10347 Z) + (ISUPPZ-REF10350 ISUPPZ) + (WORK-REF10352 WORK) + (IWORK-REF10354 IWORK)) + (%%DSTEMR JOBZ RANGE N-REF10338 D-REF10339 E-REF10340 VL-REF10341 + VU-REF10342 IL-REF10343 IU-REF10344 M-REF10345 W-REF10346 Z-REF10347 + LDZ-REF10348 NZC-REF10349 ISUPPZ-REF10350 TRYRAC-REF10351 WORK-REF10352 + LWORK-REF10353 IWORK-REF10354 LIWORK-REF10355 INFO-REF10356)))) + +(CFFI:DEFCFUN ("dsteqr_" %%DSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -6749,17 +6832,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10375 ':INT32) (LDZ-REF10379 ':INT32) - (INFO-REF10381 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10375 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10379 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10381 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10376 D) (E-REF10377 E) - (Z-REF10378 Z) (WORK-REF10380 WORK)) - (%%DSTEQR COMPZ N-REF10375 D-REF10376 E-REF10377 Z-REF10378 LDZ-REF10379 - WORK-REF10380 INFO-REF10381)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10358 ':INT32) (LDZ-REF10362 ':INT32) + (INFO-REF10364 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10358 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10362 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10364 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10359 D) (E-REF10360 E) + (Z-REF10361 Z) (WORK-REF10363 WORK)) + (%%DSTEQR COMPZ N-REF10358 D-REF10359 E-REF10360 Z-REF10361 LDZ-REF10362 + WORK-REF10363 INFO-REF10364)))) -(CFFI:DEFCFUN ("dsterf_" %%DSTERF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsterf_" %%DSTERF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -6774,13 +6857,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10382 ':INT32) (INFO-REF10385 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10382 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10385 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10383 D) (E-REF10384 E)) - (%%DSTERF N-REF10382 D-REF10383 E-REF10384 INFO-REF10385)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10365 ':INT32) (INFO-REF10368 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10365 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10368 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10366 D) (E-REF10367 E)) + (%%DSTERF N-REF10365 D-REF10366 E-REF10367 INFO-REF10368)))) -(CFFI:DEFCFUN ("dstev_" %%DSTEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dstev_" %%DSTEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (N :POINTER) @@ -6806,17 +6889,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10387 ':INT32) (LDZ-REF10391 ':INT32) - (INFO-REF10393 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10387 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10391 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10393 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10388 D) (E-REF10389 E) - (Z-REF10390 Z) (WORK-REF10392 WORK)) - (%%DSTEV JOBZ N-REF10387 D-REF10388 E-REF10389 Z-REF10390 LDZ-REF10391 - WORK-REF10392 INFO-REF10393)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10370 ':INT32) (LDZ-REF10374 ':INT32) + (INFO-REF10376 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10370 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10374 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10376 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10371 D) (E-REF10372 E) + (Z-REF10373 Z) (WORK-REF10375 WORK)) + (%%DSTEV JOBZ N-REF10370 D-REF10371 E-REF10372 Z-REF10373 LDZ-REF10374 + WORK-REF10375 INFO-REF10376)))) -(CFFI:DEFCFUN ("dstevd_" %%DSTEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dstevd_" %%DSTEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (N :POINTER) @@ -6851,22 +6934,22 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10395 ':INT32) (LDZ-REF10399 ':INT32) - (LWORK-REF10401 ':INT32) - (LIWORK-REF10403 ':INT32) (INFO-REF10404 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10395 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10399 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10401 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10403 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10404 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10396 D) (E-REF10397 E) - (Z-REF10398 Z) (WORK-REF10400 WORK) - (IWORK-REF10402 IWORK)) - (%%DSTEVD JOBZ N-REF10395 D-REF10396 E-REF10397 Z-REF10398 LDZ-REF10399 - WORK-REF10400 LWORK-REF10401 IWORK-REF10402 LIWORK-REF10403 - INFO-REF10404)))) - -(CFFI:DEFCFUN ("dstevr_" %%DSTEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10378 ':INT32) (LDZ-REF10382 ':INT32) + (LWORK-REF10384 ':INT32) + (LIWORK-REF10386 ':INT32) (INFO-REF10387 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10378 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10382 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10384 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10386 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10387 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10379 D) (E-REF10380 E) + (Z-REF10381 Z) (WORK-REF10383 WORK) + (IWORK-REF10385 IWORK)) + (%%DSTEVD JOBZ N-REF10378 D-REF10379 E-REF10380 Z-REF10381 LDZ-REF10382 + WORK-REF10383 LWORK-REF10384 IWORK-REF10385 LIWORK-REF10386 + INFO-REF10387)))) + +(CFFI:DEFCFUN ("dstevr_" %%DSTEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -6925,35 +7008,34 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10407 ':INT32) (VL-REF10410 ':DOUBLE) - (VU-REF10411 ':DOUBLE) (IL-REF10412 ':INT32) - (IU-REF10413 ':INT32) (ABSTOL-REF10414 ':DOUBLE) - (M-REF10415 ':INT32) (LDZ-REF10418 ':INT32) - (LWORK-REF10421 ':INT32) - (LIWORK-REF10423 ':INT32) (INFO-REF10424 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10407 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10410 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10411 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10412 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10413 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10414 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10415 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10418 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10421 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10423 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10424 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10408 D) (E-REF10409 E) - (W-REF10416 W) (Z-REF10417 Z) - (ISUPPZ-REF10419 ISUPPZ) - (WORK-REF10420 WORK) - (IWORK-REF10422 IWORK)) - (%%DSTEVR JOBZ RANGE N-REF10407 D-REF10408 E-REF10409 VL-REF10410 - VU-REF10411 IL-REF10412 IU-REF10413 ABSTOL-REF10414 M-REF10415 - W-REF10416 Z-REF10417 LDZ-REF10418 ISUPPZ-REF10419 - WORK-REF10420 LWORK-REF10421 IWORK-REF10422 LIWORK-REF10423 - INFO-REF10424)))) - -(CFFI:DEFCFUN ("dstevx_" %%DSTEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10390 ':INT32) (VL-REF10393 ':DOUBLE) + (VU-REF10394 ':DOUBLE) (IL-REF10395 ':INT32) + (IU-REF10396 ':INT32) (ABSTOL-REF10397 ':DOUBLE) + (M-REF10398 ':INT32) (LDZ-REF10401 ':INT32) + (LWORK-REF10404 ':INT32) + (LIWORK-REF10406 ':INT32) (INFO-REF10407 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10390 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10393 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10394 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10395 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10396 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10397 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10398 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10401 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10404 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10406 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10407 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10391 D) (E-REF10392 E) + (W-REF10399 W) (Z-REF10400 Z) + (ISUPPZ-REF10402 ISUPPZ) + (WORK-REF10403 WORK) + (IWORK-REF10405 IWORK)) + (%%DSTEVR JOBZ RANGE N-REF10390 D-REF10391 E-REF10392 VL-REF10393 + VU-REF10394 IL-REF10395 IU-REF10396 ABSTOL-REF10397 M-REF10398 + W-REF10399 Z-REF10400 LDZ-REF10401 ISUPPZ-REF10402 WORK-REF10403 + LWORK-REF10404 IWORK-REF10405 LIWORK-REF10406 INFO-REF10407)))) + +(CFFI:DEFCFUN ("dstevx_" %%DSTEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7008,31 +7090,31 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10427 ':INT32) (VL-REF10430 ':DOUBLE) - (VU-REF10431 ':DOUBLE) (IL-REF10432 ':INT32) - (IU-REF10433 ':INT32) (ABSTOL-REF10434 ':DOUBLE) - (M-REF10435 ':INT32) (LDZ-REF10438 ':INT32) - (INFO-REF10442 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10427 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10430 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10431 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10432 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10433 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10434 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10435 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10438 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10442 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10428 D) (E-REF10429 E) - (W-REF10436 W) (Z-REF10437 Z) - (WORK-REF10439 WORK) - (IWORK-REF10440 IWORK) - (IFAIL-REF10441 IFAIL)) - (%%DSTEVX JOBZ RANGE N-REF10427 D-REF10428 E-REF10429 VL-REF10430 - VU-REF10431 IL-REF10432 IU-REF10433 ABSTOL-REF10434 M-REF10435 - W-REF10436 Z-REF10437 LDZ-REF10438 WORK-REF10439 IWORK-REF10440 - IFAIL-REF10441 INFO-REF10442)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10410 ':INT32) (VL-REF10413 ':DOUBLE) + (VU-REF10414 ':DOUBLE) (IL-REF10415 ':INT32) + (IU-REF10416 ':INT32) (ABSTOL-REF10417 ':DOUBLE) + (M-REF10418 ':INT32) (LDZ-REF10421 ':INT32) + (INFO-REF10425 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10410 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10413 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10414 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10415 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10416 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10417 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10418 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10421 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10425 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10411 D) (E-REF10412 E) + (W-REF10419 W) (Z-REF10420 Z) + (WORK-REF10422 WORK) + (IWORK-REF10423 IWORK) + (IFAIL-REF10424 IFAIL)) + (%%DSTEVX JOBZ RANGE N-REF10410 D-REF10411 E-REF10412 VL-REF10413 + VU-REF10414 IL-REF10415 IU-REF10416 ABSTOL-REF10417 M-REF10418 + W-REF10419 Z-REF10420 LDZ-REF10421 WORK-REF10422 IWORK-REF10423 + IFAIL-REF10424 INFO-REF10425)))) -(CFFI:DEFCFUN ("dsycon_" %%DSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsycon_" %%DSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7066,23 +7148,23 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10444 ':INT32) (LDA-REF10446 ':INT32) - (ANORM-REF10448 ':DOUBLE) - (RCOND-REF10449 ':DOUBLE) (INFO-REF10452 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10444 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10446 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10448 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10449 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10452 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10445 A) (IPIV-REF10447 IPIV) - (WORK-REF10450 WORK) - (IWORK-REF10451 IWORK)) - (%%DSYCON UPLO N-REF10444 A-REF10445 LDA-REF10446 IPIV-REF10447 - ANORM-REF10448 RCOND-REF10449 WORK-REF10450 IWORK-REF10451 - INFO-REF10452)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10427 ':INT32) (LDA-REF10429 ':INT32) + (ANORM-REF10431 ':DOUBLE) + (RCOND-REF10432 ':DOUBLE) (INFO-REF10435 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10427 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10429 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10431 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10432 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10435 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10428 A) (IPIV-REF10430 IPIV) + (WORK-REF10433 WORK) + (IWORK-REF10434 IWORK)) + (%%DSYCON UPLO N-REF10427 A-REF10428 LDA-REF10429 IPIV-REF10430 + ANORM-REF10431 RCOND-REF10432 WORK-REF10433 IWORK-REF10434 + INFO-REF10435)))) (CFFI:DEFCFUN ("dsycon_3_" %%DSYCON_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7119,24 +7201,24 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10454 ':INT32) (LDA-REF10456 ':INT32) - (ANORM-REF10459 ':DOUBLE) - (RCOND-REF10460 ':DOUBLE) (INFO-REF10463 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10454 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10456 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10459 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10460 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10463 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10455 A) (E-REF10457 E) - (IPIV-REF10458 IPIV) - (WORK-REF10461 WORK) - (IWORK-REF10462 IWORK)) - (%%DSYCON_3 UPLO N-REF10454 A-REF10455 LDA-REF10456 E-REF10457 - IPIV-REF10458 ANORM-REF10459 RCOND-REF10460 WORK-REF10461 - IWORK-REF10462 INFO-REF10463)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10437 ':INT32) (LDA-REF10439 ':INT32) + (ANORM-REF10442 ':DOUBLE) + (RCOND-REF10443 ':DOUBLE) (INFO-REF10446 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10437 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10439 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10442 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10443 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10446 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10438 A) (E-REF10440 E) + (IPIV-REF10441 IPIV) + (WORK-REF10444 WORK) + (IWORK-REF10445 IWORK)) + (%%DSYCON_3 UPLO N-REF10437 A-REF10438 LDA-REF10439 E-REF10440 + IPIV-REF10441 ANORM-REF10442 RCOND-REF10443 WORK-REF10444 IWORK-REF10445 + INFO-REF10446)))) (CFFI:DEFCFUN ("dsycon_rook_" %%DSYCON_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7170,22 +7252,23 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10465 ':INT32) (LDA-REF10467 ':INT32) - (ANORM-REF10469 ':DOUBLE) - (RCOND-REF10470 ':DOUBLE) (INFO-REF10473 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10465 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10467 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10469 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10470 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10473 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10466 A) (IPIV-REF10468 IPIV) - (WORK-REF10471 WORK) - (IWORK-REF10472 IWORK)) - (%%DSYCON_ROOK UPLO N-REF10465 A-REF10466 LDA-REF10467 IPIV-REF10468 - ANORM-REF10469 RCOND-REF10470 WORK-REF10471 IWORK-REF10472 - INFO-REF10473)))) - -(CFFI:DEFCFUN ("dsyconv_" %%DSYCONV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10448 ':INT32) (LDA-REF10450 ':INT32) + (ANORM-REF10452 ':DOUBLE) + (RCOND-REF10453 ':DOUBLE) (INFO-REF10456 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10448 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10450 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10452 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10453 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10456 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10449 A) (IPIV-REF10451 IPIV) + (WORK-REF10454 WORK) + (IWORK-REF10455 IWORK)) + (%%DSYCON_ROOK UPLO N-REF10448 A-REF10449 LDA-REF10450 IPIV-REF10451 + ANORM-REF10452 RCOND-REF10453 WORK-REF10454 IWORK-REF10455 + INFO-REF10456)))) + +(CFFI:DEFCFUN ("dsyconv_" %%DSYCONV :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -7211,18 +7294,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10476 ':INT32) (LDA-REF10478 ':INT32) - (INFO-REF10481 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10476 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10478 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10481 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10477 A) (IPIV-REF10479 IPIV) - (E-REF10480 E)) - (%%DSYCONV UPLO WAY N-REF10476 A-REF10477 LDA-REF10478 IPIV-REF10479 - E-REF10480 INFO-REF10481)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10459 ':INT32) (LDA-REF10461 ':INT32) + (INFO-REF10464 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10459 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10461 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10464 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10460 A) (IPIV-REF10462 IPIV) + (E-REF10463 E)) + (%%DSYCONV UPLO WAY N-REF10459 A-REF10460 LDA-REF10461 IPIV-REF10462 + E-REF10463 INFO-REF10464)))) (CFFI:DEFCFUN ("dsyconvf_" %%DSYCONVF :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -7248,18 +7331,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10484 ':INT32) (LDA-REF10486 ':INT32) - (INFO-REF10489 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10484 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10486 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10489 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10485 A) (E-REF10487 E) - (IPIV-REF10488 IPIV)) - (%%DSYCONVF UPLO WAY N-REF10484 A-REF10485 LDA-REF10486 E-REF10487 - IPIV-REF10488 INFO-REF10489)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10467 ':INT32) (LDA-REF10469 ':INT32) + (INFO-REF10472 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10467 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10469 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10472 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10468 A) (E-REF10470 E) + (IPIV-REF10471 IPIV)) + (%%DSYCONVF UPLO WAY N-REF10467 A-REF10468 LDA-REF10469 E-REF10470 + IPIV-REF10471 INFO-REF10472)))) (CFFI:DEFCFUN ("dsyconvf_rook_" %%DSYCONVF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -7285,17 +7368,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10492 ':INT32) (LDA-REF10494 ':INT32) - (INFO-REF10497 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10492 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10494 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10497 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10493 A) (E-REF10495 E) - (IPIV-REF10496 IPIV)) - (%%DSYCONVF_ROOK UPLO WAY N-REF10492 A-REF10493 LDA-REF10494 E-REF10495 - IPIV-REF10496 INFO-REF10497)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10475 ':INT32) (LDA-REF10477 ':INT32) + (INFO-REF10480 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10475 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10477 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10480 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10476 A) (E-REF10478 E) + (IPIV-REF10479 IPIV)) + (%%DSYCONVF_ROOK UPLO WAY N-REF10475 A-REF10476 LDA-REF10477 E-REF10478 + IPIV-REF10479 INFO-REF10480)))) -(CFFI:DEFCFUN ("dsyequb_" %%DSYEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsyequb_" %%DSYEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7322,20 +7406,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10499 ':INT32) (LDA-REF10501 ':INT32) - (SCOND-REF10503 ':DOUBLE) - (AMAX-REF10504 ':DOUBLE) (INFO-REF10506 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10499 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10501 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF10503 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF10504 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10506 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10500 A) (S-REF10502 S) - (WORK-REF10505 WORK)) - (%%DSYEQUB UPLO N-REF10499 A-REF10500 LDA-REF10501 S-REF10502 - SCOND-REF10503 AMAX-REF10504 WORK-REF10505 INFO-REF10506)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10482 ':INT32) (LDA-REF10484 ':INT32) + (SCOND-REF10486 ':DOUBLE) + (AMAX-REF10487 ':DOUBLE) (INFO-REF10489 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10482 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10484 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF10486 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF10487 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10489 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10483 A) (S-REF10485 S) + (WORK-REF10488 WORK)) + (%%DSYEQUB UPLO N-REF10482 A-REF10483 LDA-REF10484 S-REF10485 + SCOND-REF10486 AMAX-REF10487 WORK-REF10488 INFO-REF10489)))) -(CFFI:DEFCFUN ("dsyev_" %%DSYEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsyev_" %%DSYEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7362,19 +7446,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10509 ':INT32) (LDA-REF10511 ':INT32) - (LWORK-REF10514 ':INT32) (INFO-REF10515 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10509 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10511 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10514 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10515 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10510 A) (W-REF10512 W) - (WORK-REF10513 WORK)) - (%%DSYEV JOBZ UPLO N-REF10509 A-REF10510 LDA-REF10511 W-REF10512 - WORK-REF10513 LWORK-REF10514 INFO-REF10515)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10492 ':INT32) (LDA-REF10494 ':INT32) + (LWORK-REF10497 ':INT32) (INFO-REF10498 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10492 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10494 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10497 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10498 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10493 A) (W-REF10495 W) + (WORK-REF10496 WORK)) + (%%DSYEV JOBZ UPLO N-REF10492 A-REF10493 LDA-REF10494 W-REF10495 + WORK-REF10496 LWORK-REF10497 INFO-REF10498)))) (CFFI:DEFCFUN ("dsyev_2stage_" %%DSYEV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7401,18 +7485,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10518 ':INT32) (LDA-REF10520 ':INT32) - (LWORK-REF10523 ':INT32) (INFO-REF10524 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10518 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10520 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10523 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10524 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10519 A) (W-REF10521 W) - (WORK-REF10522 WORK)) - (%%DSYEV_2STAGE JOBZ UPLO N-REF10518 A-REF10519 LDA-REF10520 W-REF10521 - WORK-REF10522 LWORK-REF10523 INFO-REF10524)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10501 ':INT32) (LDA-REF10503 ':INT32) + (LWORK-REF10506 ':INT32) (INFO-REF10507 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10501 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10503 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10506 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10507 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10502 A) (W-REF10504 W) + (WORK-REF10505 WORK)) + (%%DSYEV_2STAGE JOBZ UPLO N-REF10501 A-REF10502 LDA-REF10503 W-REF10504 + WORK-REF10505 LWORK-REF10506 INFO-REF10507)))) -(CFFI:DEFCFUN ("dsyevd_" %%DSYEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsyevd_" %%DSYEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7446,23 +7530,23 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10527 ':INT32) (LDA-REF10529 ':INT32) - (LWORK-REF10532 ':INT32) - (LIWORK-REF10534 ':INT32) (INFO-REF10535 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10527 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10529 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10532 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10534 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10535 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10528 A) (W-REF10530 W) - (WORK-REF10531 WORK) - (IWORK-REF10533 IWORK)) - (%%DSYEVD JOBZ UPLO N-REF10527 A-REF10528 LDA-REF10529 W-REF10530 - WORK-REF10531 LWORK-REF10532 IWORK-REF10533 LIWORK-REF10534 - INFO-REF10535)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10510 ':INT32) (LDA-REF10512 ':INT32) + (LWORK-REF10515 ':INT32) + (LIWORK-REF10517 ':INT32) (INFO-REF10518 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10510 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10512 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10515 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10517 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10518 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10511 A) (W-REF10513 W) + (WORK-REF10514 WORK) + (IWORK-REF10516 IWORK)) + (%%DSYEVD JOBZ UPLO N-REF10510 A-REF10511 LDA-REF10512 W-REF10513 + WORK-REF10514 LWORK-REF10515 IWORK-REF10516 LIWORK-REF10517 + INFO-REF10518)))) (CFFI:DEFCFUN ("dsyevd_2stage_" %%DSYEVD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7497,22 +7581,22 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10538 ':INT32) (LDA-REF10540 ':INT32) - (LWORK-REF10543 ':INT32) - (LIWORK-REF10545 ':INT32) (INFO-REF10546 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10538 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10540 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10543 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10545 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10546 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10539 A) (W-REF10541 W) - (WORK-REF10542 WORK) - (IWORK-REF10544 IWORK)) - (%%DSYEVD_2STAGE JOBZ UPLO N-REF10538 A-REF10539 LDA-REF10540 W-REF10541 - WORK-REF10542 LWORK-REF10543 IWORK-REF10544 - LIWORK-REF10545 INFO-REF10546)))) - -(CFFI:DEFCFUN ("dsyevr_" %%DSYEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10521 ':INT32) (LDA-REF10523 ':INT32) + (LWORK-REF10526 ':INT32) + (LIWORK-REF10528 ':INT32) (INFO-REF10529 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10521 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10523 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10526 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10528 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10529 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10522 A) (W-REF10524 W) + (WORK-REF10525 WORK) + (IWORK-REF10527 IWORK)) + (%%DSYEVD_2STAGE JOBZ UPLO N-REF10521 A-REF10522 LDA-REF10523 W-REF10524 + WORK-REF10525 LWORK-REF10526 IWORK-REF10527 LIWORK-REF10528 + INFO-REF10529)))) + +(CFFI:DEFCFUN ("dsyevr_" %%DSYEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7572,37 +7656,36 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10550 ':INT32) (LDA-REF10552 ':INT32) - (VL-REF10553 ':DOUBLE) (VU-REF10554 ':DOUBLE) - (IL-REF10555 ':INT32) (IU-REF10556 ':INT32) - (ABSTOL-REF10557 ':DOUBLE) (M-REF10558 ':INT32) - (LDZ-REF10561 ':INT32) (LWORK-REF10564 ':INT32) - (LIWORK-REF10566 ':INT32) (INFO-REF10567 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10550 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10552 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10553 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10554 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10555 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10556 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10557 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10558 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10561 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10564 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10566 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10567 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10551 A) (W-REF10559 W) - (Z-REF10560 Z) - (ISUPPZ-REF10562 ISUPPZ) - (WORK-REF10563 WORK) - (IWORK-REF10565 IWORK)) - (%%DSYEVR JOBZ RANGE UPLO N-REF10550 A-REF10551 LDA-REF10552 VL-REF10553 - VU-REF10554 IL-REF10555 IU-REF10556 ABSTOL-REF10557 M-REF10558 - W-REF10559 Z-REF10560 LDZ-REF10561 ISUPPZ-REF10562 - WORK-REF10563 LWORK-REF10564 IWORK-REF10565 LIWORK-REF10566 - INFO-REF10567)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10533 ':INT32) (LDA-REF10535 ':INT32) + (VL-REF10536 ':DOUBLE) (VU-REF10537 ':DOUBLE) + (IL-REF10538 ':INT32) (IU-REF10539 ':INT32) + (ABSTOL-REF10540 ':DOUBLE) (M-REF10541 ':INT32) + (LDZ-REF10544 ':INT32) (LWORK-REF10547 ':INT32) + (LIWORK-REF10549 ':INT32) (INFO-REF10550 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10533 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10535 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10536 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10537 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10538 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10539 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10540 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10541 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10544 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10547 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10549 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10550 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10534 A) (W-REF10542 W) + (Z-REF10543 Z) + (ISUPPZ-REF10545 ISUPPZ) + (WORK-REF10546 WORK) + (IWORK-REF10548 IWORK)) + (%%DSYEVR JOBZ RANGE UPLO N-REF10533 A-REF10534 LDA-REF10535 VL-REF10536 + VU-REF10537 IL-REF10538 IU-REF10539 ABSTOL-REF10540 M-REF10541 + W-REF10542 Z-REF10543 LDZ-REF10544 ISUPPZ-REF10545 WORK-REF10546 + LWORK-REF10547 IWORK-REF10548 LIWORK-REF10549 INFO-REF10550)))) (CFFI:DEFCFUN ("dsyevr_2stage_" %%DSYEVR_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7662,37 +7745,36 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10571 ':INT32) (LDA-REF10573 ':INT32) - (VL-REF10574 ':DOUBLE) (VU-REF10575 ':DOUBLE) - (IL-REF10576 ':INT32) (IU-REF10577 ':INT32) - (ABSTOL-REF10578 ':DOUBLE) (M-REF10579 ':INT32) - (LDZ-REF10582 ':INT32) (LWORK-REF10585 ':INT32) - (LIWORK-REF10587 ':INT32) (INFO-REF10588 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10571 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10573 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10574 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10575 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10576 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10577 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10578 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10579 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10582 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10585 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10587 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10588 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10572 A) (W-REF10580 W) - (Z-REF10581 Z) - (ISUPPZ-REF10583 ISUPPZ) - (WORK-REF10584 WORK) - (IWORK-REF10586 IWORK)) - (%%DSYEVR_2STAGE JOBZ RANGE UPLO N-REF10571 A-REF10572 LDA-REF10573 - VL-REF10574 VU-REF10575 IL-REF10576 IU-REF10577 - ABSTOL-REF10578 M-REF10579 W-REF10580 Z-REF10581 - LDZ-REF10582 ISUPPZ-REF10583 WORK-REF10584 - LWORK-REF10585 IWORK-REF10586 LIWORK-REF10587 - INFO-REF10588)))) - -(CFFI:DEFCFUN ("dsyevx_" %%DSYEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10554 ':INT32) (LDA-REF10556 ':INT32) + (VL-REF10557 ':DOUBLE) (VU-REF10558 ':DOUBLE) + (IL-REF10559 ':INT32) (IU-REF10560 ':INT32) + (ABSTOL-REF10561 ':DOUBLE) (M-REF10562 ':INT32) + (LDZ-REF10565 ':INT32) (LWORK-REF10568 ':INT32) + (LIWORK-REF10570 ':INT32) (INFO-REF10571 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10554 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10556 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10557 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10558 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10559 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10560 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10561 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10562 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10565 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10568 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10570 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10571 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10555 A) (W-REF10563 W) + (Z-REF10564 Z) + (ISUPPZ-REF10566 ISUPPZ) + (WORK-REF10567 WORK) + (IWORK-REF10569 IWORK)) + (%%DSYEVR_2STAGE JOBZ RANGE UPLO N-REF10554 A-REF10555 LDA-REF10556 + VL-REF10557 VU-REF10558 IL-REF10559 IU-REF10560 ABSTOL-REF10561 + M-REF10562 W-REF10563 Z-REF10564 LDZ-REF10565 ISUPPZ-REF10566 + WORK-REF10567 LWORK-REF10568 IWORK-REF10569 LIWORK-REF10570 + INFO-REF10571)))) + +(CFFI:DEFCFUN ("dsyevx_" %%DSYEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7750,34 +7832,34 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10592 ':INT32) (LDA-REF10594 ':INT32) - (VL-REF10595 ':DOUBLE) (VU-REF10596 ':DOUBLE) - (IL-REF10597 ':INT32) (IU-REF10598 ':INT32) - (ABSTOL-REF10599 ':DOUBLE) (M-REF10600 ':INT32) - (LDZ-REF10603 ':INT32) (LWORK-REF10605 ':INT32) - (INFO-REF10608 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10592 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10594 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10595 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10596 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10597 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10598 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10599 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10600 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10603 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10605 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10608 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10593 A) (W-REF10601 W) - (Z-REF10602 Z) (WORK-REF10604 WORK) - (IWORK-REF10606 IWORK) - (IFAIL-REF10607 IFAIL)) - (%%DSYEVX JOBZ RANGE UPLO N-REF10592 A-REF10593 LDA-REF10594 VL-REF10595 - VU-REF10596 IL-REF10597 IU-REF10598 ABSTOL-REF10599 M-REF10600 - W-REF10601 Z-REF10602 LDZ-REF10603 WORK-REF10604 LWORK-REF10605 - IWORK-REF10606 IFAIL-REF10607 INFO-REF10608)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10575 ':INT32) (LDA-REF10577 ':INT32) + (VL-REF10578 ':DOUBLE) (VU-REF10579 ':DOUBLE) + (IL-REF10580 ':INT32) (IU-REF10581 ':INT32) + (ABSTOL-REF10582 ':DOUBLE) (M-REF10583 ':INT32) + (LDZ-REF10586 ':INT32) (LWORK-REF10588 ':INT32) + (INFO-REF10591 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10575 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10577 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10578 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10579 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10580 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10581 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10582 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10583 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10586 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10588 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10591 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10576 A) (W-REF10584 W) + (Z-REF10585 Z) (WORK-REF10587 WORK) + (IWORK-REF10589 IWORK) + (IFAIL-REF10590 IFAIL)) + (%%DSYEVX JOBZ RANGE UPLO N-REF10575 A-REF10576 LDA-REF10577 VL-REF10578 + VU-REF10579 IL-REF10580 IU-REF10581 ABSTOL-REF10582 M-REF10583 + W-REF10584 Z-REF10585 LDZ-REF10586 WORK-REF10587 LWORK-REF10588 + IWORK-REF10589 IFAIL-REF10590 INFO-REF10591)))) (CFFI:DEFCFUN ("dsyevx_2stage_" %%DSYEVX_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7835,34 +7917,33 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10612 ':INT32) (LDA-REF10614 ':INT32) - (VL-REF10615 ':DOUBLE) (VU-REF10616 ':DOUBLE) - (IL-REF10617 ':INT32) (IU-REF10618 ':INT32) - (ABSTOL-REF10619 ':DOUBLE) (M-REF10620 ':INT32) - (LDZ-REF10623 ':INT32) (LWORK-REF10625 ':INT32) - (INFO-REF10628 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10612 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10614 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10615 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10616 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10617 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10618 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10619 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10620 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10623 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10625 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10628 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10613 A) (W-REF10621 W) - (Z-REF10622 Z) (WORK-REF10624 WORK) - (IWORK-REF10626 IWORK) - (IFAIL-REF10627 IFAIL)) - (%%DSYEVX_2STAGE JOBZ RANGE UPLO N-REF10612 A-REF10613 LDA-REF10614 - VL-REF10615 VU-REF10616 IL-REF10617 IU-REF10618 - ABSTOL-REF10619 M-REF10620 W-REF10621 Z-REF10622 - LDZ-REF10623 WORK-REF10624 LWORK-REF10625 IWORK-REF10626 - IFAIL-REF10627 INFO-REF10628)))) - -(CFFI:DEFCFUN ("dsygs2_" %%DSYGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10595 ':INT32) (LDA-REF10597 ':INT32) + (VL-REF10598 ':DOUBLE) (VU-REF10599 ':DOUBLE) + (IL-REF10600 ':INT32) (IU-REF10601 ':INT32) + (ABSTOL-REF10602 ':DOUBLE) (M-REF10603 ':INT32) + (LDZ-REF10606 ':INT32) (LWORK-REF10608 ':INT32) + (INFO-REF10611 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10595 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10597 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10598 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10599 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10600 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10601 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10602 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10603 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10606 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10608 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10611 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10596 A) (W-REF10604 W) + (Z-REF10605 Z) (WORK-REF10607 WORK) + (IWORK-REF10609 IWORK) + (IFAIL-REF10610 IFAIL)) + (%%DSYEVX_2STAGE JOBZ RANGE UPLO N-REF10595 A-REF10596 LDA-REF10597 + VL-REF10598 VU-REF10599 IL-REF10600 IU-REF10601 ABSTOL-REF10602 + M-REF10603 W-REF10604 Z-REF10605 LDZ-REF10606 WORK-REF10607 + LWORK-REF10608 IWORK-REF10609 IFAIL-REF10610 INFO-REF10611)))) + +(CFFI:DEFCFUN ("dsygs2_" %%DSYGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -7885,19 +7966,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10629 ':INT32) (N-REF10631 ':INT32) - (LDA-REF10633 ':INT32) (LDB-REF10635 ':INT32) - (INFO-REF10636 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10629 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10631 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10633 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10635 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10636 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10632 A) (B-REF10634 B)) - (%%DSYGS2 ITYPE-REF10629 UPLO N-REF10631 A-REF10632 LDA-REF10633 - B-REF10634 LDB-REF10635 INFO-REF10636)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10612 ':INT32) (N-REF10614 ':INT32) + (LDA-REF10616 ':INT32) (LDB-REF10618 ':INT32) + (INFO-REF10619 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10612 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10614 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10616 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10618 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10619 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10615 A) (B-REF10617 B)) + (%%DSYGS2 ITYPE-REF10612 UPLO N-REF10614 A-REF10615 LDA-REF10616 + B-REF10617 LDB-REF10618 INFO-REF10619)))) -(CFFI:DEFCFUN ("dsygst_" %%DSYGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsygst_" %%DSYGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -7920,19 +8001,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10637 ':INT32) (N-REF10639 ':INT32) - (LDA-REF10641 ':INT32) (LDB-REF10643 ':INT32) - (INFO-REF10644 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10637 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10639 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10641 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10643 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10644 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10640 A) (B-REF10642 B)) - (%%DSYGST ITYPE-REF10637 UPLO N-REF10639 A-REF10640 LDA-REF10641 - B-REF10642 LDB-REF10643 INFO-REF10644)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10620 ':INT32) (N-REF10622 ':INT32) + (LDA-REF10624 ':INT32) (LDB-REF10626 ':INT32) + (INFO-REF10627 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10620 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10622 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10624 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10626 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10627 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10623 A) (B-REF10625 B)) + (%%DSYGST ITYPE-REF10620 UPLO N-REF10622 A-REF10623 LDA-REF10624 + B-REF10625 LDB-REF10626 INFO-REF10627)))) -(CFFI:DEFCFUN ("dsygv_" %%DSYGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsygv_" %%DSYGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -7966,23 +8047,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10645 ':INT32) (N-REF10648 ':INT32) - (LDA-REF10650 ':INT32) (LDB-REF10652 ':INT32) - (LWORK-REF10655 ':INT32) (INFO-REF10656 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10645 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10648 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10650 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10652 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10655 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10656 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10649 A) (B-REF10651 B) - (W-REF10653 W) (WORK-REF10654 WORK)) - (%%DSYGV ITYPE-REF10645 JOBZ UPLO N-REF10648 A-REF10649 LDA-REF10650 - B-REF10651 LDB-REF10652 W-REF10653 WORK-REF10654 LWORK-REF10655 - INFO-REF10656)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10628 ':INT32) (N-REF10631 ':INT32) + (LDA-REF10633 ':INT32) (LDB-REF10635 ':INT32) + (LWORK-REF10638 ':INT32) (INFO-REF10639 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10628 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10631 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10633 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10635 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10638 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10639 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10632 A) (B-REF10634 B) + (W-REF10636 W) (WORK-REF10637 WORK)) + (%%DSYGV ITYPE-REF10628 JOBZ UPLO N-REF10631 A-REF10632 LDA-REF10633 + B-REF10634 LDB-REF10635 W-REF10636 WORK-REF10637 LWORK-REF10638 + INFO-REF10639)))) (CFFI:DEFCFUN ("dsygv_2stage_" %%DSYGV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8017,22 +8098,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10657 ':INT32) (N-REF10660 ':INT32) - (LDA-REF10662 ':INT32) (LDB-REF10664 ':INT32) - (LWORK-REF10667 ':INT32) (INFO-REF10668 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10657 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10660 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10662 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10664 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10667 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10668 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10661 A) (B-REF10663 B) - (W-REF10665 W) (WORK-REF10666 WORK)) - (%%DSYGV_2STAGE ITYPE-REF10657 JOBZ UPLO N-REF10660 A-REF10661 - LDA-REF10662 B-REF10663 LDB-REF10664 W-REF10665 - WORK-REF10666 LWORK-REF10667 INFO-REF10668)))) - -(CFFI:DEFCFUN ("dsygvd_" %%DSYGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10640 ':INT32) (N-REF10643 ':INT32) + (LDA-REF10645 ':INT32) (LDB-REF10647 ':INT32) + (LWORK-REF10650 ':INT32) (INFO-REF10651 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10640 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10643 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10645 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10647 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10650 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10651 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10644 A) (B-REF10646 B) + (W-REF10648 W) (WORK-REF10649 WORK)) + (%%DSYGV_2STAGE ITYPE-REF10640 JOBZ UPLO N-REF10643 A-REF10644 + LDA-REF10645 B-REF10646 LDB-REF10647 W-REF10648 WORK-REF10649 + LWORK-REF10650 INFO-REF10651)))) + +(CFFI:DEFCFUN ("dsygvd_" %%DSYGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8075,25 +8156,25 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10669 ':INT32) (N-REF10672 ':INT32) - (LDA-REF10674 ':INT32) (LDB-REF10676 ':INT32) - (LWORK-REF10679 ':INT32) - (LIWORK-REF10681 ':INT32) (INFO-REF10682 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10669 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10672 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10674 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10676 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10679 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10681 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10682 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10673 A) (B-REF10675 B) - (W-REF10677 W) (WORK-REF10678 WORK) - (IWORK-REF10680 IWORK)) - (%%DSYGVD ITYPE-REF10669 JOBZ UPLO N-REF10672 A-REF10673 LDA-REF10674 - B-REF10675 LDB-REF10676 W-REF10677 WORK-REF10678 LWORK-REF10679 - IWORK-REF10680 LIWORK-REF10681 INFO-REF10682)))) - -(CFFI:DEFCFUN ("dsygvx_" %%DSYGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10652 ':INT32) (N-REF10655 ':INT32) + (LDA-REF10657 ':INT32) (LDB-REF10659 ':INT32) + (LWORK-REF10662 ':INT32) + (LIWORK-REF10664 ':INT32) (INFO-REF10665 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10652 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10655 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10657 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10659 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10662 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10664 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10665 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10656 A) (B-REF10658 B) + (W-REF10660 W) (WORK-REF10661 WORK) + (IWORK-REF10663 IWORK)) + (%%DSYGVD ITYPE-REF10652 JOBZ UPLO N-REF10655 A-REF10656 LDA-REF10657 + B-REF10658 LDB-REF10659 W-REF10660 WORK-REF10661 LWORK-REF10662 + IWORK-REF10663 LIWORK-REF10664 INFO-REF10665)))) + +(CFFI:DEFCFUN ("dsygvx_" %%DSYGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8158,38 +8239,38 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10683 ':INT32) (N-REF10687 ':INT32) - (LDA-REF10689 ':INT32) (LDB-REF10691 ':INT32) - (VL-REF10692 ':DOUBLE) (VU-REF10693 ':DOUBLE) - (IL-REF10694 ':INT32) (IU-REF10695 ':INT32) - (ABSTOL-REF10696 ':DOUBLE) (M-REF10697 ':INT32) - (LDZ-REF10700 ':INT32) (LWORK-REF10702 ':INT32) - (INFO-REF10705 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10683 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10687 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10689 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10691 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10692 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10693 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10694 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10695 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10696 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10697 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10700 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10702 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10705 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10688 A) (B-REF10690 B) - (W-REF10698 W) (Z-REF10699 Z) - (WORK-REF10701 WORK) - (IWORK-REF10703 IWORK) - (IFAIL-REF10704 IFAIL)) - (%%DSYGVX ITYPE-REF10683 JOBZ RANGE UPLO N-REF10687 A-REF10688 - LDA-REF10689 B-REF10690 LDB-REF10691 VL-REF10692 VU-REF10693 - IL-REF10694 IU-REF10695 ABSTOL-REF10696 M-REF10697 W-REF10698 - Z-REF10699 LDZ-REF10700 WORK-REF10701 LWORK-REF10702 - IWORK-REF10703 IFAIL-REF10704 INFO-REF10705)))) - -(CFFI:DEFCFUN ("dsyrfs_" %%DSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF10666 ':INT32) (N-REF10670 ':INT32) + (LDA-REF10672 ':INT32) (LDB-REF10674 ':INT32) + (VL-REF10675 ':DOUBLE) (VU-REF10676 ':DOUBLE) + (IL-REF10677 ':INT32) (IU-REF10678 ':INT32) + (ABSTOL-REF10679 ':DOUBLE) (M-REF10680 ':INT32) + (LDZ-REF10683 ':INT32) (LWORK-REF10685 ':INT32) + (INFO-REF10688 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF10666 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10670 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10672 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10674 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF10675 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF10676 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF10677 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF10678 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF10679 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10680 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF10683 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10685 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10688 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10671 A) (B-REF10673 B) + (W-REF10681 W) (Z-REF10682 Z) + (WORK-REF10684 WORK) + (IWORK-REF10686 IWORK) + (IFAIL-REF10687 IFAIL)) + (%%DSYGVX ITYPE-REF10666 JOBZ RANGE UPLO N-REF10670 A-REF10671 + LDA-REF10672 B-REF10673 LDB-REF10674 VL-REF10675 VU-REF10676 IL-REF10677 + IU-REF10678 ABSTOL-REF10679 M-REF10680 W-REF10681 Z-REF10682 + LDZ-REF10683 WORK-REF10684 LWORK-REF10685 IWORK-REF10686 IFAIL-REF10687 + INFO-REF10688)))) + +(CFFI:DEFCFUN ("dsyrfs_" %%DSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8246,29 +8327,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10707 ':INT32) (NRHS-REF10708 ':INT32) - (LDA-REF10710 ':INT32) (LDAF-REF10712 ':INT32) - (LDB-REF10715 ':INT32) (LDX-REF10717 ':INT32) - (INFO-REF10722 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10707 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10708 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10710 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10712 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10715 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10717 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10722 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10709 A) (AF-REF10711 AF) - (IPIV-REF10713 IPIV) (B-REF10714 B) - (X-REF10716 X) (FERR-REF10718 FERR) - (BERR-REF10719 BERR) - (WORK-REF10720 WORK) - (IWORK-REF10721 IWORK)) - (%%DSYRFS UPLO N-REF10707 NRHS-REF10708 A-REF10709 LDA-REF10710 - AF-REF10711 LDAF-REF10712 IPIV-REF10713 B-REF10714 LDB-REF10715 - X-REF10716 LDX-REF10717 FERR-REF10718 BERR-REF10719 - WORK-REF10720 IWORK-REF10721 INFO-REF10722)))) - -(CFFI:DEFCFUN ("dsyrfsx_" %%DSYRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10690 ':INT32) (NRHS-REF10691 ':INT32) + (LDA-REF10693 ':INT32) (LDAF-REF10695 ':INT32) + (LDB-REF10698 ':INT32) (LDX-REF10700 ':INT32) + (INFO-REF10705 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10690 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10691 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10693 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10695 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10698 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10700 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10705 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10692 A) (AF-REF10694 AF) + (IPIV-REF10696 IPIV) (B-REF10697 B) + (X-REF10699 X) (FERR-REF10701 FERR) + (BERR-REF10702 BERR) + (WORK-REF10703 WORK) + (IWORK-REF10704 IWORK)) + (%%DSYRFS UPLO N-REF10690 NRHS-REF10691 A-REF10692 LDA-REF10693 + AF-REF10694 LDAF-REF10695 IPIV-REF10696 B-REF10697 LDB-REF10698 + X-REF10699 LDX-REF10700 FERR-REF10701 BERR-REF10702 WORK-REF10703 + IWORK-REF10704 INFO-REF10705)))) + +(CFFI:DEFCFUN ("dsyrfsx_" %%DSYRFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -8346,42 +8428,42 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10725 ':INT32) (NRHS-REF10726 ':INT32) - (LDA-REF10728 ':INT32) (LDAF-REF10730 ':INT32) - (LDB-REF10734 ':INT32) (LDX-REF10736 ':INT32) - (RCOND-REF10737 ':DOUBLE) - (N_ERR_BNDS-REF10739 ':INT32) - (NPARAMS-REF10742 ':INT32) - (INFO-REF10746 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10725 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10726 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10728 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10730 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10734 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10736 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10737 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF10739 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF10742 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10746 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10727 A) (AF-REF10729 AF) - (IPIV-REF10731 IPIV) (S-REF10732 S) - (B-REF10733 B) (X-REF10735 X) - (BERR-REF10738 BERR) - (ERR_BNDS_NORM-REF10740 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10708 ':INT32) (NRHS-REF10709 ':INT32) + (LDA-REF10711 ':INT32) (LDAF-REF10713 ':INT32) + (LDB-REF10717 ':INT32) (LDX-REF10719 ':INT32) + (RCOND-REF10720 ':DOUBLE) + (N_ERR_BNDS-REF10722 ':INT32) + (NPARAMS-REF10725 ':INT32) + (INFO-REF10729 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10708 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10709 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10711 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10713 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10717 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10719 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10720 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF10722 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF10725 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10729 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10710 A) (AF-REF10712 AF) + (IPIV-REF10714 IPIV) (S-REF10715 S) + (B-REF10716 B) (X-REF10718 X) + (BERR-REF10721 BERR) + (ERR_BNDS_NORM-REF10723 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF10741 + (ERR_BNDS_COMP-REF10724 ERR_BNDS_COMP) - (PARAMS-REF10743 PARAMS) - (WORK-REF10744 WORK) - (IWORK-REF10745 IWORK)) - (%%DSYRFSX UPLO EQUED N-REF10725 NRHS-REF10726 A-REF10727 LDA-REF10728 - AF-REF10729 LDAF-REF10730 IPIV-REF10731 S-REF10732 B-REF10733 - LDB-REF10734 X-REF10735 LDX-REF10736 RCOND-REF10737 - BERR-REF10738 N_ERR_BNDS-REF10739 ERR_BNDS_NORM-REF10740 - ERR_BNDS_COMP-REF10741 NPARAMS-REF10742 PARAMS-REF10743 - WORK-REF10744 IWORK-REF10745 INFO-REF10746)))) + (PARAMS-REF10726 PARAMS) + (WORK-REF10727 WORK) + (IWORK-REF10728 IWORK)) + (%%DSYRFSX UPLO EQUED N-REF10708 NRHS-REF10709 A-REF10710 LDA-REF10711 + AF-REF10712 LDAF-REF10713 IPIV-REF10714 S-REF10715 B-REF10716 + LDB-REF10717 X-REF10718 LDX-REF10719 RCOND-REF10720 BERR-REF10721 + N_ERR_BNDS-REF10722 ERR_BNDS_NORM-REF10723 ERR_BNDS_COMP-REF10724 + NPARAMS-REF10725 PARAMS-REF10726 WORK-REF10727 IWORK-REF10728 + INFO-REF10729)))) -(CFFI:DEFCFUN ("dsysv_" %%DSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsysv_" %%DSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8415,23 +8497,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10748 ':INT32) (NRHS-REF10749 ':INT32) - (LDA-REF10751 ':INT32) (LDB-REF10754 ':INT32) - (LWORK-REF10756 ':INT32) (INFO-REF10757 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10748 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10749 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10751 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10754 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10756 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10757 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10750 A) (IPIV-REF10752 IPIV) - (B-REF10753 B) (WORK-REF10755 WORK)) - (%%DSYSV UPLO N-REF10748 NRHS-REF10749 A-REF10750 LDA-REF10751 - IPIV-REF10752 B-REF10753 LDB-REF10754 WORK-REF10755 - LWORK-REF10756 INFO-REF10757)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10731 ':INT32) (NRHS-REF10732 ':INT32) + (LDA-REF10734 ':INT32) (LDB-REF10737 ':INT32) + (LWORK-REF10739 ':INT32) (INFO-REF10740 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10731 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10732 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10734 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10737 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10739 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10740 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10733 A) (IPIV-REF10735 IPIV) + (B-REF10736 B) (WORK-REF10738 WORK)) + (%%DSYSV UPLO N-REF10731 NRHS-REF10732 A-REF10733 LDA-REF10734 + IPIV-REF10735 B-REF10736 LDB-REF10737 WORK-REF10738 LWORK-REF10739 + INFO-REF10740)))) (CFFI:DEFCFUN ("dsysv_aa_" %%DSYSV_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8465,23 +8547,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10759 ':INT32) (NRHS-REF10760 ':INT32) - (LDA-REF10762 ':INT32) (LDB-REF10765 ':INT32) - (LWORK-REF10767 ':INT32) (INFO-REF10768 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10759 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10760 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10762 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10765 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10767 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10768 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10761 A) (IPIV-REF10763 IPIV) - (B-REF10764 B) (WORK-REF10766 WORK)) - (%%DSYSV_AA UPLO N-REF10759 NRHS-REF10760 A-REF10761 LDA-REF10762 - IPIV-REF10763 B-REF10764 LDB-REF10765 WORK-REF10766 - LWORK-REF10767 INFO-REF10768)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10742 ':INT32) (NRHS-REF10743 ':INT32) + (LDA-REF10745 ':INT32) (LDB-REF10748 ':INT32) + (LWORK-REF10750 ':INT32) (INFO-REF10751 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10742 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10743 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10745 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10748 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10750 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10751 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10744 A) (IPIV-REF10746 IPIV) + (B-REF10747 B) (WORK-REF10749 WORK)) + (%%DSYSV_AA UPLO N-REF10742 NRHS-REF10743 A-REF10744 LDA-REF10745 + IPIV-REF10746 B-REF10747 LDB-REF10748 WORK-REF10749 LWORK-REF10750 + INFO-REF10751)))) (CFFI:DEFCFUN ("dsysv_aa_2stage_" %%DSYSV_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8526,28 +8608,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10770 ':INT32) (NRHS-REF10771 ':INT32) - (LDA-REF10773 ':INT32) (LTB-REF10775 ':INT32) - (LDB-REF10779 ':INT32) (LWORK-REF10781 ':INT32) - (INFO-REF10782 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10770 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10771 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10773 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF10775 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10779 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10781 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10782 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10772 A) (TB-REF10774 TB) - (IPIV-REF10776 IPIV) - (IPIV2-REF10777 IPIV2) - (B-REF10778 B) (WORK-REF10780 WORK)) - (%%DSYSV_AA_2STAGE UPLO N-REF10770 NRHS-REF10771 A-REF10772 LDA-REF10773 - TB-REF10774 LTB-REF10775 IPIV-REF10776 IPIV2-REF10777 - B-REF10778 LDB-REF10779 WORK-REF10780 LWORK-REF10781 - INFO-REF10782)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10753 ':INT32) (NRHS-REF10754 ':INT32) + (LDA-REF10756 ':INT32) (LTB-REF10758 ':INT32) + (LDB-REF10762 ':INT32) (LWORK-REF10764 ':INT32) + (INFO-REF10765 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10753 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10754 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10756 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF10758 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10762 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10764 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10765 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10755 A) (TB-REF10757 TB) + (IPIV-REF10759 IPIV) + (IPIV2-REF10760 IPIV2) + (B-REF10761 B) (WORK-REF10763 WORK)) + (%%DSYSV_AA_2STAGE UPLO N-REF10753 NRHS-REF10754 A-REF10755 LDA-REF10756 + TB-REF10757 LTB-REF10758 IPIV-REF10759 IPIV2-REF10760 B-REF10761 + LDB-REF10762 WORK-REF10763 LWORK-REF10764 INFO-REF10765)))) (CFFI:DEFCFUN ("dsysv_rk_" %%DSYSV_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8584,24 +8665,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10784 ':INT32) (NRHS-REF10785 ':INT32) - (LDA-REF10787 ':INT32) (LDB-REF10791 ':INT32) - (LWORK-REF10793 ':INT32) (INFO-REF10794 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10784 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10785 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10787 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10791 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10793 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10794 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10786 A) (E-REF10788 E) - (IPIV-REF10789 IPIV) (B-REF10790 B) - (WORK-REF10792 WORK)) - (%%DSYSV_RK UPLO N-REF10784 NRHS-REF10785 A-REF10786 LDA-REF10787 - E-REF10788 IPIV-REF10789 B-REF10790 LDB-REF10791 - WORK-REF10792 LWORK-REF10793 INFO-REF10794)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10767 ':INT32) (NRHS-REF10768 ':INT32) + (LDA-REF10770 ':INT32) (LDB-REF10774 ':INT32) + (LWORK-REF10776 ':INT32) (INFO-REF10777 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10767 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10768 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10770 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10774 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10776 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10777 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10769 A) (E-REF10771 E) + (IPIV-REF10772 IPIV) (B-REF10773 B) + (WORK-REF10775 WORK)) + (%%DSYSV_RK UPLO N-REF10767 NRHS-REF10768 A-REF10769 LDA-REF10770 + E-REF10771 IPIV-REF10772 B-REF10773 LDB-REF10774 WORK-REF10775 + LWORK-REF10776 INFO-REF10777)))) (CFFI:DEFCFUN ("dsysv_rook_" %%DSYSV_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8635,22 +8716,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10796 ':INT32) (NRHS-REF10797 ':INT32) - (LDA-REF10799 ':INT32) (LDB-REF10802 ':INT32) - (LWORK-REF10804 ':INT32) (INFO-REF10805 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10796 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10797 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10799 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10802 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10804 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10805 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10798 A) (IPIV-REF10800 IPIV) - (B-REF10801 B) (WORK-REF10803 WORK)) - (%%DSYSV_ROOK UPLO N-REF10796 NRHS-REF10797 A-REF10798 LDA-REF10799 - IPIV-REF10800 B-REF10801 LDB-REF10802 WORK-REF10803 - LWORK-REF10804 INFO-REF10805)))) - -(CFFI:DEFCFUN ("dsysvx_" %%DSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10779 ':INT32) (NRHS-REF10780 ':INT32) + (LDA-REF10782 ':INT32) (LDB-REF10785 ':INT32) + (LWORK-REF10787 ':INT32) (INFO-REF10788 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10779 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10780 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10782 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10785 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10787 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10788 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10781 A) (IPIV-REF10783 IPIV) + (B-REF10784 B) (WORK-REF10786 WORK)) + (%%DSYSV_ROOK UPLO N-REF10779 NRHS-REF10780 A-REF10781 LDA-REF10782 + IPIV-REF10783 B-REF10784 LDB-REF10785 WORK-REF10786 LWORK-REF10787 + INFO-REF10788)))) + +(CFFI:DEFCFUN ("dsysvx_" %%DSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -8713,33 +8794,33 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10808 ':INT32) (NRHS-REF10809 ':INT32) - (LDA-REF10811 ':INT32) (LDAF-REF10813 ':INT32) - (LDB-REF10816 ':INT32) (LDX-REF10818 ':INT32) - (RCOND-REF10819 ':DOUBLE) - (LWORK-REF10823 ':INT32) (INFO-REF10825 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10808 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10809 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10811 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10813 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10816 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10818 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10819 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10823 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10825 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10810 A) (AF-REF10812 AF) - (IPIV-REF10814 IPIV) (B-REF10815 B) - (X-REF10817 X) (FERR-REF10820 FERR) - (BERR-REF10821 BERR) - (WORK-REF10822 WORK) - (IWORK-REF10824 IWORK)) - (%%DSYSVX FACT UPLO N-REF10808 NRHS-REF10809 A-REF10810 LDA-REF10811 - AF-REF10812 LDAF-REF10813 IPIV-REF10814 B-REF10815 LDB-REF10816 - X-REF10817 LDX-REF10818 RCOND-REF10819 FERR-REF10820 - BERR-REF10821 WORK-REF10822 LWORK-REF10823 IWORK-REF10824 - INFO-REF10825)))) - -(CFFI:DEFCFUN ("dsysvxx_" %%DSYSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10791 ':INT32) (NRHS-REF10792 ':INT32) + (LDA-REF10794 ':INT32) (LDAF-REF10796 ':INT32) + (LDB-REF10799 ':INT32) (LDX-REF10801 ':INT32) + (RCOND-REF10802 ':DOUBLE) + (LWORK-REF10806 ':INT32) (INFO-REF10808 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10791 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10792 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10794 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10796 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10799 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10801 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10802 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10806 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10808 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10793 A) (AF-REF10795 AF) + (IPIV-REF10797 IPIV) (B-REF10798 B) + (X-REF10800 X) (FERR-REF10803 FERR) + (BERR-REF10804 BERR) + (WORK-REF10805 WORK) + (IWORK-REF10807 IWORK)) + (%%DSYSVX FACT UPLO N-REF10791 NRHS-REF10792 A-REF10793 LDA-REF10794 + AF-REF10795 LDAF-REF10796 IPIV-REF10797 B-REF10798 LDB-REF10799 + X-REF10800 LDX-REF10801 RCOND-REF10802 FERR-REF10803 BERR-REF10804 + WORK-REF10805 LWORK-REF10806 IWORK-REF10807 INFO-REF10808)))) + +(CFFI:DEFCFUN ("dsysvxx_" %%DSYSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -8821,45 +8902,45 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10828 ':INT32) (NRHS-REF10829 ':INT32) - (LDA-REF10831 ':INT32) (LDAF-REF10833 ':INT32) - (LDB-REF10838 ':INT32) (LDX-REF10840 ':INT32) - (RCOND-REF10841 ':DOUBLE) - (RPVGRW-REF10842 ':DOUBLE) - (N_ERR_BNDS-REF10844 ':INT32) - (NPARAMS-REF10847 ':INT32) - (INFO-REF10851 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10828 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10829 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10831 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10833 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10838 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10840 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10841 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF10842 :DOUBLE) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF10844 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF10847 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10851 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10830 A) (AF-REF10832 AF) - (IPIV-REF10834 IPIV) (S-REF10836 S) - (B-REF10837 B) (X-REF10839 X) - (BERR-REF10843 BERR) - (ERR_BNDS_NORM-REF10845 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10811 ':INT32) (NRHS-REF10812 ':INT32) + (LDA-REF10814 ':INT32) (LDAF-REF10816 ':INT32) + (LDB-REF10821 ':INT32) (LDX-REF10823 ':INT32) + (RCOND-REF10824 ':DOUBLE) + (RPVGRW-REF10825 ':DOUBLE) + (N_ERR_BNDS-REF10827 ':INT32) + (NPARAMS-REF10830 ':INT32) + (INFO-REF10834 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10811 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10812 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10814 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF10816 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10821 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10823 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10824 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF10825 :DOUBLE) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF10827 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF10830 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10834 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10813 A) (AF-REF10815 AF) + (IPIV-REF10817 IPIV) (S-REF10819 S) + (B-REF10820 B) (X-REF10822 X) + (BERR-REF10826 BERR) + (ERR_BNDS_NORM-REF10828 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF10846 + (ERR_BNDS_COMP-REF10829 ERR_BNDS_COMP) - (PARAMS-REF10848 PARAMS) - (WORK-REF10849 WORK) - (IWORK-REF10850 IWORK)) - (%%DSYSVXX FACT UPLO N-REF10828 NRHS-REF10829 A-REF10830 LDA-REF10831 - AF-REF10832 LDAF-REF10833 IPIV-REF10834 EQUED S-REF10836 - B-REF10837 LDB-REF10838 X-REF10839 LDX-REF10840 RCOND-REF10841 - RPVGRW-REF10842 BERR-REF10843 N_ERR_BNDS-REF10844 - ERR_BNDS_NORM-REF10845 ERR_BNDS_COMP-REF10846 NPARAMS-REF10847 - PARAMS-REF10848 WORK-REF10849 IWORK-REF10850 INFO-REF10851)))) + (PARAMS-REF10831 PARAMS) + (WORK-REF10832 WORK) + (IWORK-REF10833 IWORK)) + (%%DSYSVXX FACT UPLO N-REF10811 NRHS-REF10812 A-REF10813 LDA-REF10814 + AF-REF10815 LDAF-REF10816 IPIV-REF10817 EQUED S-REF10819 B-REF10820 + LDB-REF10821 X-REF10822 LDX-REF10823 RCOND-REF10824 RPVGRW-REF10825 + BERR-REF10826 N_ERR_BNDS-REF10827 ERR_BNDS_NORM-REF10828 + ERR_BNDS_COMP-REF10829 NPARAMS-REF10830 PARAMS-REF10831 WORK-REF10832 + IWORK-REF10833 INFO-REF10834)))) (CFFI:DEFCFUN ("dsyswapr_" %%DSYSWAPR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8877,17 +8958,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10853 ':INT32) (LDA-REF10855 ':INT32) - (I1-REF10856 ':INT32) (I2-REF10857 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10853 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10855 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF10856 :INT32) I1) - (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF10857 :INT32) I2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10854 A)) - (%%DSYSWAPR UPLO N-REF10853 A-REF10854 LDA-REF10855 I1-REF10856 - I2-REF10857)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10836 ':INT32) (LDA-REF10838 ':INT32) + (I1-REF10839 ':INT32) (I2-REF10840 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10836 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10838 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF10839 :INT32) I1) + (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF10840 :INT32) I2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10837 A)) + (%%DSYSWAPR UPLO N-REF10836 A-REF10837 LDA-REF10838 I1-REF10839 + I2-REF10840)))) -(CFFI:DEFCFUN ("dsytd2_" %%DSYTD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsytd2_" %%DSYTD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8913,17 +8994,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10859 ':INT32) (LDA-REF10861 ':INT32) - (INFO-REF10865 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10859 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10861 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10865 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10860 A) (D-REF10862 D) - (E-REF10863 E) (TAU-REF10864 TAU)) - (%%DSYTD2 UPLO N-REF10859 A-REF10860 LDA-REF10861 D-REF10862 E-REF10863 - TAU-REF10864 INFO-REF10865)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10842 ':INT32) (LDA-REF10844 ':INT32) + (INFO-REF10848 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10842 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10844 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10848 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10843 A) (D-REF10845 D) + (E-REF10846 E) (TAU-REF10847 TAU)) + (%%DSYTD2 UPLO N-REF10842 A-REF10843 LDA-REF10844 D-REF10845 E-REF10846 + TAU-REF10847 INFO-REF10848)))) -(CFFI:DEFCFUN ("dsytf2_" %%DSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsytf2_" %%DSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8944,17 +9025,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10867 ':INT32) (LDA-REF10869 ':INT32) - (INFO-REF10871 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10867 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10869 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10871 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10868 A) (IPIV-REF10870 IPIV)) - (%%DSYTF2 UPLO N-REF10867 A-REF10868 LDA-REF10869 IPIV-REF10870 - INFO-REF10871)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10850 ':INT32) (LDA-REF10852 ':INT32) + (INFO-REF10854 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10850 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10852 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10854 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10851 A) (IPIV-REF10853 IPIV)) + (%%DSYTF2 UPLO N-REF10850 A-REF10851 LDA-REF10852 IPIV-REF10853 + INFO-REF10854)))) (CFFI:DEFCFUN ("dsytf2_rk_" %%DSYTF2_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8978,18 +9059,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10873 ':INT32) (LDA-REF10875 ':INT32) - (INFO-REF10878 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10873 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10875 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10878 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10874 A) (E-REF10876 E) - (IPIV-REF10877 IPIV)) - (%%DSYTF2_RK UPLO N-REF10873 A-REF10874 LDA-REF10875 E-REF10876 - IPIV-REF10877 INFO-REF10878)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10856 ':INT32) (LDA-REF10858 ':INT32) + (INFO-REF10861 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10856 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10858 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10861 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10857 A) (E-REF10859 E) + (IPIV-REF10860 IPIV)) + (%%DSYTF2_RK UPLO N-REF10856 A-REF10857 LDA-REF10858 E-REF10859 + IPIV-REF10860 INFO-REF10861)))) (CFFI:DEFCFUN ("dsytf2_rook_" %%DSYTF2_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9010,16 +9091,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10880 ':INT32) (LDA-REF10882 ':INT32) - (INFO-REF10884 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10880 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10882 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10884 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10881 A) (IPIV-REF10883 IPIV)) - (%%DSYTF2_ROOK UPLO N-REF10880 A-REF10881 LDA-REF10882 IPIV-REF10883 - INFO-REF10884)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10863 ':INT32) (LDA-REF10865 ':INT32) + (INFO-REF10867 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10863 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10865 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10867 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10864 A) (IPIV-REF10866 IPIV)) + (%%DSYTF2_ROOK UPLO N-REF10863 A-REF10864 LDA-REF10865 IPIV-REF10866 + INFO-REF10867)))) -(CFFI:DEFCFUN ("dsytrd_" %%DSYTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsytrd_" %%DSYTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9051,20 +9132,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10886 ':INT32) (LDA-REF10888 ':INT32) - (LWORK-REF10893 ':INT32) (INFO-REF10894 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10886 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10888 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10893 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10894 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10887 A) (D-REF10889 D) - (E-REF10890 E) (TAU-REF10891 TAU) - (WORK-REF10892 WORK)) - (%%DSYTRD UPLO N-REF10886 A-REF10887 LDA-REF10888 D-REF10889 E-REF10890 - TAU-REF10891 WORK-REF10892 LWORK-REF10893 INFO-REF10894)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10869 ':INT32) (LDA-REF10871 ':INT32) + (LWORK-REF10876 ':INT32) (INFO-REF10877 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10869 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10871 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10876 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10877 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10870 A) (D-REF10872 D) + (E-REF10873 E) (TAU-REF10874 TAU) + (WORK-REF10875 WORK)) + (%%DSYTRD UPLO N-REF10869 A-REF10870 LDA-REF10871 D-REF10872 E-REF10873 + TAU-REF10874 WORK-REF10875 LWORK-REF10876 INFO-REF10877)))) (CFFI:DEFCFUN ("dsytrd_2stage_" %%DSYTRD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -9105,24 +9186,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10897 ':INT32) (LDA-REF10899 ':INT32) - (LHOUS2-REF10904 ':INT32) - (LWORK-REF10906 ':INT32) (INFO-REF10907 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10897 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10899 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF10904 :INT32) LHOUS2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10906 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10907 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10898 A) (D-REF10900 D) - (E-REF10901 E) (TAU-REF10902 TAU) - (HOUS2-REF10903 HOUS2) - (WORK-REF10905 WORK)) - (%%DSYTRD_2STAGE VECT UPLO N-REF10897 A-REF10898 LDA-REF10899 D-REF10900 - E-REF10901 TAU-REF10902 HOUS2-REF10903 LHOUS2-REF10904 - WORK-REF10905 LWORK-REF10906 INFO-REF10907)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10880 ':INT32) (LDA-REF10882 ':INT32) + (LHOUS2-REF10887 ':INT32) + (LWORK-REF10889 ':INT32) (INFO-REF10890 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10880 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10882 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF10887 :INT32) LHOUS2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10889 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10890 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10881 A) (D-REF10883 D) + (E-REF10884 E) (TAU-REF10885 TAU) + (HOUS2-REF10886 HOUS2) + (WORK-REF10888 WORK)) + (%%DSYTRD_2STAGE VECT UPLO N-REF10880 A-REF10881 LDA-REF10882 D-REF10883 + E-REF10884 TAU-REF10885 HOUS2-REF10886 LHOUS2-REF10887 WORK-REF10888 + LWORK-REF10889 INFO-REF10890)))) (CFFI:DEFCFUN ("dsytrd_sy2sb_" %%DSYTRD_SY2SB :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9155,23 +9236,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10909 ':INT32) (KD-REF10910 ':INT32) - (LDA-REF10912 ':INT32) (LDAB-REF10914 ':INT32) - (LWORK-REF10917 ':INT32) (INFO-REF10918 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10909 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF10910 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10912 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10914 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10917 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10918 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10911 A) (AB-REF10913 AB) - (TAU-REF10915 TAU) - (WORK-REF10916 WORK)) - (%%DSYTRD_SY2SB UPLO N-REF10909 KD-REF10910 A-REF10911 LDA-REF10912 - AB-REF10913 LDAB-REF10914 TAU-REF10915 WORK-REF10916 - LWORK-REF10917 INFO-REF10918)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10892 ':INT32) (KD-REF10893 ':INT32) + (LDA-REF10895 ':INT32) (LDAB-REF10897 ':INT32) + (LWORK-REF10900 ':INT32) (INFO-REF10901 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10892 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF10893 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10895 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10897 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10900 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10901 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10894 A) (AB-REF10896 AB) + (TAU-REF10898 TAU) + (WORK-REF10899 WORK)) + (%%DSYTRD_SY2SB UPLO N-REF10892 KD-REF10893 A-REF10894 LDA-REF10895 + AB-REF10896 LDAB-REF10897 TAU-REF10898 WORK-REF10899 LWORK-REF10900 + INFO-REF10901)))) -(CFFI:DEFCFUN ("dsytrf_" %%DSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsytrf_" %%DSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9198,19 +9279,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10920 ':INT32) (LDA-REF10922 ':INT32) - (LWORK-REF10925 ':INT32) (INFO-REF10926 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10920 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10922 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10925 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10926 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10921 A) (IPIV-REF10923 IPIV) - (WORK-REF10924 WORK)) - (%%DSYTRF UPLO N-REF10920 A-REF10921 LDA-REF10922 IPIV-REF10923 - WORK-REF10924 LWORK-REF10925 INFO-REF10926)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10903 ':INT32) (LDA-REF10905 ':INT32) + (LWORK-REF10908 ':INT32) (INFO-REF10909 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10903 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10905 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10908 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10909 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10904 A) (IPIV-REF10906 IPIV) + (WORK-REF10907 WORK)) + (%%DSYTRF UPLO N-REF10903 A-REF10904 LDA-REF10905 IPIV-REF10906 + WORK-REF10907 LWORK-REF10908 INFO-REF10909)))) (CFFI:DEFCFUN ("dsytrf_aa_" %%DSYTRF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9237,19 +9318,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10928 ':INT32) (LDA-REF10930 ':INT32) - (LWORK-REF10933 ':INT32) (INFO-REF10934 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10928 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10930 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10933 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10934 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10929 A) (IPIV-REF10931 IPIV) - (WORK-REF10932 WORK)) - (%%DSYTRF_AA UPLO N-REF10928 A-REF10929 LDA-REF10930 IPIV-REF10931 - WORK-REF10932 LWORK-REF10933 INFO-REF10934)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10911 ':INT32) (LDA-REF10913 ':INT32) + (LWORK-REF10916 ':INT32) (INFO-REF10917 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10911 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10913 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10916 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10917 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10912 A) (IPIV-REF10914 IPIV) + (WORK-REF10915 WORK)) + (%%DSYTRF_AA UPLO N-REF10911 A-REF10912 LDA-REF10913 IPIV-REF10914 + WORK-REF10915 LWORK-REF10916 INFO-REF10917)))) (CFFI:DEFCFUN ("dsytrf_aa_2stage_" %%DSYTRF_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9287,24 +9368,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10936 ':INT32) (LDA-REF10938 ':INT32) - (LTB-REF10940 ':INT32) (LWORK-REF10944 ':INT32) - (INFO-REF10945 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10936 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10938 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF10940 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10944 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10945 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10937 A) (TB-REF10939 TB) - (IPIV-REF10941 IPIV) - (IPIV2-REF10942 IPIV2) - (WORK-REF10943 WORK)) - (%%DSYTRF_AA_2STAGE UPLO N-REF10936 A-REF10937 LDA-REF10938 TB-REF10939 - LTB-REF10940 IPIV-REF10941 IPIV2-REF10942 - WORK-REF10943 LWORK-REF10944 INFO-REF10945)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10919 ':INT32) (LDA-REF10921 ':INT32) + (LTB-REF10923 ':INT32) (LWORK-REF10927 ':INT32) + (INFO-REF10928 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10919 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10921 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF10923 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10927 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10928 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10920 A) (TB-REF10922 TB) + (IPIV-REF10924 IPIV) + (IPIV2-REF10925 IPIV2) + (WORK-REF10926 WORK)) + (%%DSYTRF_AA_2STAGE UPLO N-REF10919 A-REF10920 LDA-REF10921 TB-REF10922 + LTB-REF10923 IPIV-REF10924 IPIV2-REF10925 WORK-REF10926 LWORK-REF10927 + INFO-REF10928)))) (CFFI:DEFCFUN ("dsytrf_rk_" %%DSYTRF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9334,20 +9415,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10947 ':INT32) (LDA-REF10949 ':INT32) - (LWORK-REF10953 ':INT32) (INFO-REF10954 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10947 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10949 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10953 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10954 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10948 A) (E-REF10950 E) - (IPIV-REF10951 IPIV) - (WORK-REF10952 WORK)) - (%%DSYTRF_RK UPLO N-REF10947 A-REF10948 LDA-REF10949 E-REF10950 - IPIV-REF10951 WORK-REF10952 LWORK-REF10953 INFO-REF10954)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10930 ':INT32) (LDA-REF10932 ':INT32) + (LWORK-REF10936 ':INT32) (INFO-REF10937 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10930 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10932 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10936 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10937 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10931 A) (E-REF10933 E) + (IPIV-REF10934 IPIV) + (WORK-REF10935 WORK)) + (%%DSYTRF_RK UPLO N-REF10930 A-REF10931 LDA-REF10932 E-REF10933 + IPIV-REF10934 WORK-REF10935 LWORK-REF10936 INFO-REF10937)))) (CFFI:DEFCFUN ("dsytrf_rook_" %%DSYTRF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9374,18 +9455,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10956 ':INT32) (LDA-REF10958 ':INT32) - (LWORK-REF10961 ':INT32) (INFO-REF10962 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10956 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10958 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10961 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10962 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10957 A) (IPIV-REF10959 IPIV) - (WORK-REF10960 WORK)) - (%%DSYTRF_ROOK UPLO N-REF10956 A-REF10957 LDA-REF10958 IPIV-REF10959 - WORK-REF10960 LWORK-REF10961 INFO-REF10962)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10939 ':INT32) (LDA-REF10941 ':INT32) + (LWORK-REF10944 ':INT32) (INFO-REF10945 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10939 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10941 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10944 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10945 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10940 A) (IPIV-REF10942 IPIV) + (WORK-REF10943 WORK)) + (%%DSYTRF_ROOK UPLO N-REF10939 A-REF10940 LDA-REF10941 IPIV-REF10942 + WORK-REF10943 LWORK-REF10944 INFO-REF10945)))) -(CFFI:DEFCFUN ("dsytri_" %%DSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsytri_" %%DSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9410,17 +9491,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10964 ':INT32) (LDA-REF10966 ':INT32) - (INFO-REF10969 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10964 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10966 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10969 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10965 A) (IPIV-REF10967 IPIV) - (WORK-REF10968 WORK)) - (%%DSYTRI UPLO N-REF10964 A-REF10965 LDA-REF10966 IPIV-REF10967 - WORK-REF10968 INFO-REF10969)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10947 ':INT32) (LDA-REF10949 ':INT32) + (INFO-REF10952 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10947 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10949 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10952 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10948 A) (IPIV-REF10950 IPIV) + (WORK-REF10951 WORK)) + (%%DSYTRI UPLO N-REF10947 A-REF10948 LDA-REF10949 IPIV-REF10950 + WORK-REF10951 INFO-REF10952)))) -(CFFI:DEFCFUN ("dsytri2_" %%DSYTRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsytri2_" %%DSYTRI2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9447,19 +9529,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10971 ':INT32) (LDA-REF10973 ':INT32) - (LWORK-REF10976 ':INT32) (INFO-REF10977 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10971 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10973 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10976 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10977 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10972 A) (IPIV-REF10974 IPIV) - (WORK-REF10975 WORK)) - (%%DSYTRI2 UPLO N-REF10971 A-REF10972 LDA-REF10973 IPIV-REF10974 - WORK-REF10975 LWORK-REF10976 INFO-REF10977)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10954 ':INT32) (LDA-REF10956 ':INT32) + (LWORK-REF10959 ':INT32) (INFO-REF10960 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10954 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10956 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10959 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10960 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10955 A) (IPIV-REF10957 IPIV) + (WORK-REF10958 WORK)) + (%%DSYTRI2 UPLO N-REF10954 A-REF10955 LDA-REF10956 IPIV-REF10957 + WORK-REF10958 LWORK-REF10959 INFO-REF10960)))) (CFFI:DEFCFUN ("dsytri2x_" %%DSYTRI2X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9486,19 +9568,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10979 ':INT32) (LDA-REF10981 ':INT32) - (NB-REF10984 ':INT32) (INFO-REF10985 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10979 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10981 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF10984 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10985 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10980 A) (IPIV-REF10982 IPIV) - (WORK-REF10983 WORK)) - (%%DSYTRI2X UPLO N-REF10979 A-REF10980 LDA-REF10981 IPIV-REF10982 - WORK-REF10983 NB-REF10984 INFO-REF10985)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10962 ':INT32) (LDA-REF10964 ':INT32) + (NB-REF10967 ':INT32) (INFO-REF10968 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10962 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10964 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF10967 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10968 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10963 A) (IPIV-REF10965 IPIV) + (WORK-REF10966 WORK)) + (%%DSYTRI2X UPLO N-REF10962 A-REF10963 LDA-REF10964 IPIV-REF10965 + WORK-REF10966 NB-REF10967 INFO-REF10968)))) (CFFI:DEFCFUN ("dsytri_3_" %%DSYTRI_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9528,20 +9610,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10987 ':INT32) (LDA-REF10989 ':INT32) - (LWORK-REF10993 ':INT32) (INFO-REF10994 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10987 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10989 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10993 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10994 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10988 A) (E-REF10990 E) - (IPIV-REF10991 IPIV) - (WORK-REF10992 WORK)) - (%%DSYTRI_3 UPLO N-REF10987 A-REF10988 LDA-REF10989 E-REF10990 - IPIV-REF10991 WORK-REF10992 LWORK-REF10993 INFO-REF10994)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10970 ':INT32) (LDA-REF10972 ':INT32) + (LWORK-REF10976 ':INT32) (INFO-REF10977 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10970 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10972 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10976 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10977 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10971 A) (E-REF10973 E) + (IPIV-REF10974 IPIV) + (WORK-REF10975 WORK)) + (%%DSYTRI_3 UPLO N-REF10970 A-REF10971 LDA-REF10972 E-REF10973 + IPIV-REF10974 WORK-REF10975 LWORK-REF10976 INFO-REF10977)))) (CFFI:DEFCFUN ("dsytri_3x_" %%DSYTRI_3X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9571,20 +9653,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10996 ':INT32) (LDA-REF10998 ':INT32) - (NB-REF11002 ':INT32) (INFO-REF11003 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10996 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10998 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11002 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11003 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10997 A) (E-REF10999 E) - (IPIV-REF11000 IPIV) - (WORK-REF11001 WORK)) - (%%DSYTRI_3X UPLO N-REF10996 A-REF10997 LDA-REF10998 E-REF10999 - IPIV-REF11000 WORK-REF11001 NB-REF11002 INFO-REF11003)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10979 ':INT32) (LDA-REF10981 ':INT32) + (NB-REF10985 ':INT32) (INFO-REF10986 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10979 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10981 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF10985 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10986 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10980 A) (E-REF10982 E) + (IPIV-REF10983 IPIV) + (WORK-REF10984 WORK)) + (%%DSYTRI_3X UPLO N-REF10979 A-REF10980 LDA-REF10981 E-REF10982 + IPIV-REF10983 WORK-REF10984 NB-REF10985 INFO-REF10986)))) (CFFI:DEFCFUN ("dsytri_rook_" %%DSYTRI_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9609,17 +9691,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11005 ':INT32) (LDA-REF11007 ':INT32) - (INFO-REF11010 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11005 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11007 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11010 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11006 A) (IPIV-REF11008 IPIV) - (WORK-REF11009 WORK)) - (%%DSYTRI_ROOK UPLO N-REF11005 A-REF11006 LDA-REF11007 IPIV-REF11008 - WORK-REF11009 INFO-REF11010)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10988 ':INT32) (LDA-REF10990 ':INT32) + (INFO-REF10993 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10988 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10990 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10993 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10989 A) (IPIV-REF10991 IPIV) + (WORK-REF10992 WORK)) + (%%DSYTRI_ROOK UPLO N-REF10988 A-REF10989 LDA-REF10990 IPIV-REF10991 + WORK-REF10992 INFO-REF10993)))) -(CFFI:DEFCFUN ("dsytrs_" %%DSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsytrs_" %%DSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9647,20 +9729,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11012 ':INT32) (NRHS-REF11013 ':INT32) - (LDA-REF11015 ':INT32) (LDB-REF11018 ':INT32) - (INFO-REF11019 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11012 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11013 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11015 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11018 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11019 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11014 A) (IPIV-REF11016 IPIV) - (B-REF11017 B)) - (%%DSYTRS UPLO N-REF11012 NRHS-REF11013 A-REF11014 LDA-REF11015 - IPIV-REF11016 B-REF11017 LDB-REF11018 INFO-REF11019)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10995 ':INT32) (NRHS-REF10996 ':INT32) + (LDA-REF10998 ':INT32) (LDB-REF11001 ':INT32) + (INFO-REF11002 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10995 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10996 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10998 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11001 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11002 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10997 A) (IPIV-REF10999 IPIV) + (B-REF11000 B)) + (%%DSYTRS UPLO N-REF10995 NRHS-REF10996 A-REF10997 LDA-REF10998 + IPIV-REF10999 B-REF11000 LDB-REF11001 INFO-REF11002)))) -(CFFI:DEFCFUN ("dsytrs2_" %%DSYTRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dsytrs2_" %%DSYTRS2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9692,22 +9775,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11021 ':INT32) (NRHS-REF11022 ':INT32) - (LDA-REF11024 ':INT32) (LDB-REF11027 ':INT32) - (INFO-REF11029 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11021 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11022 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11024 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11027 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11029 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11023 A) (IPIV-REF11025 IPIV) - (B-REF11026 B) (WORK-REF11028 WORK)) - (%%DSYTRS2 UPLO N-REF11021 NRHS-REF11022 A-REF11023 LDA-REF11024 - IPIV-REF11025 B-REF11026 LDB-REF11027 WORK-REF11028 - INFO-REF11029)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11004 ':INT32) (NRHS-REF11005 ':INT32) + (LDA-REF11007 ':INT32) (LDB-REF11010 ':INT32) + (INFO-REF11012 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11004 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11005 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11007 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11010 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11012 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11006 A) (IPIV-REF11008 IPIV) + (B-REF11009 B) (WORK-REF11011 WORK)) + (%%DSYTRS2 UPLO N-REF11004 NRHS-REF11005 A-REF11006 LDA-REF11007 + IPIV-REF11008 B-REF11009 LDB-REF11010 WORK-REF11011 INFO-REF11012)))) (CFFI:DEFCFUN ("dsytrs_3_" %%DSYTRS_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9738,22 +9820,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11031 ':INT32) (NRHS-REF11032 ':INT32) - (LDA-REF11034 ':INT32) (LDB-REF11038 ':INT32) - (INFO-REF11039 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11031 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11032 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11034 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11038 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11039 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11033 A) (E-REF11035 E) - (IPIV-REF11036 IPIV) (B-REF11037 B)) - (%%DSYTRS_3 UPLO N-REF11031 NRHS-REF11032 A-REF11033 LDA-REF11034 - E-REF11035 IPIV-REF11036 B-REF11037 LDB-REF11038 - INFO-REF11039)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11014 ':INT32) (NRHS-REF11015 ':INT32) + (LDA-REF11017 ':INT32) (LDB-REF11021 ':INT32) + (INFO-REF11022 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11014 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11015 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11017 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11021 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11022 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11016 A) (E-REF11018 E) + (IPIV-REF11019 IPIV) (B-REF11020 B)) + (%%DSYTRS_3 UPLO N-REF11014 NRHS-REF11015 A-REF11016 LDA-REF11017 + E-REF11018 IPIV-REF11019 B-REF11020 LDB-REF11021 INFO-REF11022)))) (CFFI:DEFCFUN ("dsytrs_aa_" %%DSYTRS_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9787,23 +9868,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11041 ':INT32) (NRHS-REF11042 ':INT32) - (LDA-REF11044 ':INT32) (LDB-REF11047 ':INT32) - (LWORK-REF11049 ':INT32) (INFO-REF11050 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11041 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11042 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11044 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11047 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11049 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11050 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11043 A) (IPIV-REF11045 IPIV) - (B-REF11046 B) (WORK-REF11048 WORK)) - (%%DSYTRS_AA UPLO N-REF11041 NRHS-REF11042 A-REF11043 LDA-REF11044 - IPIV-REF11045 B-REF11046 LDB-REF11047 WORK-REF11048 - LWORK-REF11049 INFO-REF11050)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11024 ':INT32) (NRHS-REF11025 ':INT32) + (LDA-REF11027 ':INT32) (LDB-REF11030 ':INT32) + (LWORK-REF11032 ':INT32) (INFO-REF11033 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11024 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11025 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11027 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11030 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11032 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11033 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11026 A) (IPIV-REF11028 IPIV) + (B-REF11029 B) (WORK-REF11031 WORK)) + (%%DSYTRS_AA UPLO N-REF11024 NRHS-REF11025 A-REF11026 LDA-REF11027 + IPIV-REF11028 B-REF11029 LDB-REF11030 WORK-REF11031 LWORK-REF11032 + INFO-REF11033)))) (CFFI:DEFCFUN ("dsytrs_aa_2stage_" %%DSYTRS_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9842,25 +9923,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11052 ':INT32) (NRHS-REF11053 ':INT32) - (LDA-REF11055 ':INT32) (LTB-REF11057 ':INT32) - (LDB-REF11061 ':INT32) (INFO-REF11062 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11052 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11053 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11055 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF11057 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11061 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11062 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11054 A) (TB-REF11056 TB) - (IPIV-REF11058 IPIV) - (IPIV2-REF11059 IPIV2) - (B-REF11060 B)) - (%%DSYTRS_AA_2STAGE UPLO N-REF11052 NRHS-REF11053 A-REF11054 LDA-REF11055 - TB-REF11056 LTB-REF11057 IPIV-REF11058 IPIV2-REF11059 - B-REF11060 LDB-REF11061 INFO-REF11062)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11035 ':INT32) (NRHS-REF11036 ':INT32) + (LDA-REF11038 ':INT32) (LTB-REF11040 ':INT32) + (LDB-REF11044 ':INT32) (INFO-REF11045 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11035 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11036 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11038 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF11040 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11044 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11045 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11037 A) (TB-REF11039 TB) + (IPIV-REF11041 IPIV) + (IPIV2-REF11042 IPIV2) + (B-REF11043 B)) + (%%DSYTRS_AA_2STAGE UPLO N-REF11035 NRHS-REF11036 A-REF11037 LDA-REF11038 + TB-REF11039 LTB-REF11040 IPIV-REF11041 IPIV2-REF11042 B-REF11043 + LDB-REF11044 INFO-REF11045)))) (CFFI:DEFCFUN ("dsytrs_rook_" %%DSYTRS_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9888,20 +9969,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11064 ':INT32) (NRHS-REF11065 ':INT32) - (LDA-REF11067 ':INT32) (LDB-REF11070 ':INT32) - (INFO-REF11071 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11064 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11065 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11067 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11070 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11071 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11066 A) (IPIV-REF11068 IPIV) - (B-REF11069 B)) - (%%DSYTRS_ROOK UPLO N-REF11064 NRHS-REF11065 A-REF11066 LDA-REF11067 - IPIV-REF11068 B-REF11069 LDB-REF11070 INFO-REF11071)))) - -(CFFI:DEFCFUN ("dtbcon_" %%DTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11047 ':INT32) (NRHS-REF11048 ':INT32) + (LDA-REF11050 ':INT32) (LDB-REF11053 ':INT32) + (INFO-REF11054 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11047 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11048 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11050 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11053 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11054 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11049 A) (IPIV-REF11051 IPIV) + (B-REF11052 B)) + (%%DSYTRS_ROOK UPLO N-REF11047 NRHS-REF11048 A-REF11049 LDA-REF11050 + IPIV-REF11051 B-REF11052 LDB-REF11053 INFO-REF11054)))) + +(CFFI:DEFCFUN ("dtbcon_" %%DTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -9934,21 +10015,21 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11075 ':INT32) (KD-REF11076 ':INT32) - (LDAB-REF11078 ':INT32) (RCOND-REF11079 ':DOUBLE) - (INFO-REF11082 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11075 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11076 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11078 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11079 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11082 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11077 AB) - (WORK-REF11080 WORK) - (IWORK-REF11081 IWORK)) - (%%DTBCON NORM UPLO DIAG N-REF11075 KD-REF11076 AB-REF11077 LDAB-REF11078 - RCOND-REF11079 WORK-REF11080 IWORK-REF11081 INFO-REF11082)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11058 ':INT32) (KD-REF11059 ':INT32) + (LDAB-REF11061 ':INT32) (RCOND-REF11062 ':DOUBLE) + (INFO-REF11065 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11058 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11059 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11061 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11062 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11065 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11060 AB) + (WORK-REF11063 WORK) + (IWORK-REF11064 IWORK)) + (%%DTBCON NORM UPLO DIAG N-REF11058 KD-REF11059 AB-REF11060 LDAB-REF11061 + RCOND-REF11062 WORK-REF11063 IWORK-REF11064 INFO-REF11065)))) -(CFFI:DEFCFUN ("dtbrfs_" %%DTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtbrfs_" %%DTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10001,28 +10082,28 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11086 ':INT32) (KD-REF11087 ':INT32) - (NRHS-REF11088 ':INT32) (LDAB-REF11090 ':INT32) - (LDB-REF11092 ':INT32) (LDX-REF11094 ':INT32) - (INFO-REF11099 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11086 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11087 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11088 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11090 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11092 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11094 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11099 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11089 AB) (B-REF11091 B) - (X-REF11093 X) (FERR-REF11095 FERR) - (BERR-REF11096 BERR) - (WORK-REF11097 WORK) - (IWORK-REF11098 IWORK)) - (%%DTBRFS UPLO TRANS DIAG N-REF11086 KD-REF11087 NRHS-REF11088 - AB-REF11089 LDAB-REF11090 B-REF11091 LDB-REF11092 X-REF11093 - LDX-REF11094 FERR-REF11095 BERR-REF11096 WORK-REF11097 - IWORK-REF11098 INFO-REF11099)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11069 ':INT32) (KD-REF11070 ':INT32) + (NRHS-REF11071 ':INT32) (LDAB-REF11073 ':INT32) + (LDB-REF11075 ':INT32) (LDX-REF11077 ':INT32) + (INFO-REF11082 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11069 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11070 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11071 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11073 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11075 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11077 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11082 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11072 AB) (B-REF11074 B) + (X-REF11076 X) (FERR-REF11078 FERR) + (BERR-REF11079 BERR) + (WORK-REF11080 WORK) + (IWORK-REF11081 IWORK)) + (%%DTBRFS UPLO TRANS DIAG N-REF11069 KD-REF11070 NRHS-REF11071 + AB-REF11072 LDAB-REF11073 B-REF11074 LDB-REF11075 X-REF11076 + LDX-REF11077 FERR-REF11078 BERR-REF11079 WORK-REF11080 IWORK-REF11081 + INFO-REF11082)))) -(CFFI:DEFCFUN ("dtbtrs_" %%DTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtbtrs_" %%DTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10051,21 +10132,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11103 ':INT32) (KD-REF11104 ':INT32) - (NRHS-REF11105 ':INT32) (LDAB-REF11107 ':INT32) - (LDB-REF11109 ':INT32) (INFO-REF11110 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11103 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11104 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11105 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11107 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11109 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11110 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11106 AB) (B-REF11108 B)) - (%%DTBTRS UPLO TRANS DIAG N-REF11103 KD-REF11104 NRHS-REF11105 - AB-REF11106 LDAB-REF11107 B-REF11108 LDB-REF11109 - INFO-REF11110)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11086 ':INT32) (KD-REF11087 ':INT32) + (NRHS-REF11088 ':INT32) (LDAB-REF11090 ':INT32) + (LDB-REF11092 ':INT32) (INFO-REF11093 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11086 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF11087 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11088 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11090 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11092 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11093 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11089 AB) (B-REF11091 B)) + (%%DTBTRS UPLO TRANS DIAG N-REF11086 KD-REF11087 NRHS-REF11088 + AB-REF11089 LDAB-REF11090 B-REF11091 LDB-REF11092 INFO-REF11093)))) -(CFFI:DEFCFUN ("dtfsm_" %%DTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtfsm_" %%DTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (SIDE :STRING) @@ -10094,17 +10174,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11116 ':INT32) (N-REF11117 ':INT32) - (ALPHA-REF11118 ':DOUBLE) (LDB-REF11121 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11116 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11117 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF11118 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11121 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11119 A) (B-REF11120 B)) - (%%DTFSM TRANSR SIDE UPLO TRANS DIAG M-REF11116 N-REF11117 ALPHA-REF11118 - A-REF11119 B-REF11120 LDB-REF11121)))) - -(CFFI:DEFCFUN ("dtftri_" %%DTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11099 ':INT32) (N-REF11100 ':INT32) + (ALPHA-REF11101 ':DOUBLE) (LDB-REF11104 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11099 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11100 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF11101 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11104 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11102 A) (B-REF11103 B)) + (%%DTFSM TRANSR SIDE UPLO TRANS DIAG M-REF11099 N-REF11100 ALPHA-REF11101 + A-REF11102 B-REF11103 LDB-REF11104)))) + +(CFFI:DEFCFUN ("dtftri_" %%DTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -10122,13 +10202,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11125 ':INT32) (INFO-REF11127 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11125 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11127 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11126 A)) - (%%DTFTRI TRANSR UPLO DIAG N-REF11125 A-REF11126 INFO-REF11127)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11108 ':INT32) (INFO-REF11110 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11108 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11110 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11109 A)) + (%%DTFTRI TRANSR UPLO DIAG N-REF11108 A-REF11109 INFO-REF11110)))) -(CFFI:DEFCFUN ("dtfttp_" %%DTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtfttp_" %%DTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -10148,14 +10228,14 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11130 ':INT32) (INFO-REF11133 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11130 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11133 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF11131 ARF) (AP-REF11132 AP)) - (%%DTFTTP TRANSR UPLO N-REF11130 ARF-REF11131 AP-REF11132 - INFO-REF11133)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11113 ':INT32) (INFO-REF11116 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11113 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11116 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF11114 ARF) (AP-REF11115 AP)) + (%%DTFTTP TRANSR UPLO N-REF11113 ARF-REF11114 AP-REF11115 + INFO-REF11116)))) -(CFFI:DEFCFUN ("dtfttr_" %%DTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtfttr_" %%DTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -10177,16 +10257,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11136 ':INT32) (LDA-REF11139 ':INT32) - (INFO-REF11140 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11136 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11139 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11140 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF11137 ARF) (A-REF11138 A)) - (%%DTFTTR TRANSR UPLO N-REF11136 ARF-REF11137 A-REF11138 LDA-REF11139 - INFO-REF11140)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11119 ':INT32) (LDA-REF11122 ':INT32) + (INFO-REF11123 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11119 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11122 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11123 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF11120 ARF) (A-REF11121 A)) + (%%DTFTTR TRANSR UPLO N-REF11119 ARF-REF11120 A-REF11121 LDA-REF11122 + INFO-REF11123)))) -(CFFI:DEFCFUN ("dtgevc_" %%DTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtgevc_" %%DTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -10234,28 +10314,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11144 ':INT32) (LDS-REF11146 ':INT32) - (LDP-REF11148 ':INT32) (LDVL-REF11150 ':INT32) - (LDVR-REF11152 ':INT32) (MM-REF11153 ':INT32) - (M-REF11154 ':INT32) (INFO-REF11156 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11144 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF11146 :INT32) LDS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF11148 :INT32) LDP) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11150 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11152 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11153 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11154 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11156 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11143 SELECT) - (S-REF11145 S) (P-REF11147 P) - (VL-REF11149 VL) (VR-REF11151 VR) - (WORK-REF11155 WORK)) - (%%DTGEVC SIDE HOWMNY SELECT-REF11143 N-REF11144 S-REF11145 LDS-REF11146 - P-REF11147 LDP-REF11148 VL-REF11149 LDVL-REF11150 VR-REF11151 - LDVR-REF11152 MM-REF11153 M-REF11154 WORK-REF11155 - INFO-REF11156)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11127 ':INT32) (LDS-REF11129 ':INT32) + (LDP-REF11131 ':INT32) (LDVL-REF11133 ':INT32) + (LDVR-REF11135 ':INT32) (MM-REF11136 ':INT32) + (M-REF11137 ':INT32) (INFO-REF11139 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11127 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF11129 :INT32) LDS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF11131 :INT32) LDP) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11133 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11135 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11136 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11137 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11139 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11126 SELECT) + (S-REF11128 S) (P-REF11130 P) + (VL-REF11132 VL) (VR-REF11134 VR) + (WORK-REF11138 WORK)) + (%%DTGEVC SIDE HOWMNY SELECT-REF11126 N-REF11127 S-REF11128 LDS-REF11129 + P-REF11130 LDP-REF11131 VL-REF11132 LDVL-REF11133 VR-REF11134 + LDVR-REF11135 MM-REF11136 M-REF11137 WORK-REF11138 INFO-REF11139)))) -(CFFI:DEFCFUN ("dtgex2_" %%DTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtgex2_" %%DTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (WANTZ :POINTER) @@ -10302,33 +10381,33 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF11157 ':INT32) (WANTZ-REF11158 ':INT32) - (N-REF11159 ':INT32) (LDA-REF11161 ':INT32) - (LDB-REF11163 ':INT32) (LDQ-REF11165 ':INT32) - (LDZ-REF11167 ':INT32) (J1-REF11168 ':INT32) - (N1-REF11169 ':INT32) (N2-REF11170 ':INT32) - (LWORK-REF11172 ':INT32) (INFO-REF11173 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11157 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11158 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11159 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11161 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11163 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11165 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11167 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF11168 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11169 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11170 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11172 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11173 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11160 A) (B-REF11162 B) - (Q-REF11164 Q) (Z-REF11166 Z) - (WORK-REF11171 WORK)) - (%%DTGEX2 WANTQ-REF11157 WANTZ-REF11158 N-REF11159 A-REF11160 - LDA-REF11161 B-REF11162 LDB-REF11163 Q-REF11164 LDQ-REF11165 - Z-REF11166 LDZ-REF11167 J1-REF11168 N1-REF11169 N2-REF11170 - WORK-REF11171 LWORK-REF11172 INFO-REF11173)))) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF11140 ':INT32) (WANTZ-REF11141 ':INT32) + (N-REF11142 ':INT32) (LDA-REF11144 ':INT32) + (LDB-REF11146 ':INT32) (LDQ-REF11148 ':INT32) + (LDZ-REF11150 ':INT32) (J1-REF11151 ':INT32) + (N1-REF11152 ':INT32) (N2-REF11153 ':INT32) + (LWORK-REF11155 ':INT32) (INFO-REF11156 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11140 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11141 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11142 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11144 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11146 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11148 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11150 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF11151 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11152 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11153 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11155 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11156 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11143 A) (B-REF11145 B) + (Q-REF11147 Q) (Z-REF11149 Z) + (WORK-REF11154 WORK)) + (%%DTGEX2 WANTQ-REF11140 WANTZ-REF11141 N-REF11142 A-REF11143 + LDA-REF11144 B-REF11145 LDB-REF11146 Q-REF11147 LDQ-REF11148 Z-REF11149 + LDZ-REF11150 J1-REF11151 N1-REF11152 N2-REF11153 WORK-REF11154 + LWORK-REF11155 INFO-REF11156)))) -(CFFI:DEFCFUN ("dtgexc_" %%DTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtgexc_" %%DTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (WANTZ :POINTER) @@ -10373,32 +10452,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF11174 ':INT32) (WANTZ-REF11175 ':INT32) - (N-REF11176 ':INT32) (LDA-REF11178 ':INT32) - (LDB-REF11180 ':INT32) (LDQ-REF11182 ':INT32) - (LDZ-REF11184 ':INT32) (IFST-REF11185 ':INT32) - (ILST-REF11186 ':INT32) (LWORK-REF11188 ':INT32) - (INFO-REF11189 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11174 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11175 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11176 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11178 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11180 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11182 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11184 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF11185 :INT32) IFST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF11186 :INT32) ILST) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11188 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11189 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11177 A) (B-REF11179 B) - (Q-REF11181 Q) (Z-REF11183 Z) - (WORK-REF11187 WORK)) - (%%DTGEXC WANTQ-REF11174 WANTZ-REF11175 N-REF11176 A-REF11177 - LDA-REF11178 B-REF11179 LDB-REF11180 Q-REF11181 LDQ-REF11182 - Z-REF11183 LDZ-REF11184 IFST-REF11185 ILST-REF11186 - WORK-REF11187 LWORK-REF11188 INFO-REF11189)))) - -(CFFI:DEFCFUN ("dtgsen_" %%DTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF11157 ':INT32) (WANTZ-REF11158 ':INT32) + (N-REF11159 ':INT32) (LDA-REF11161 ':INT32) + (LDB-REF11163 ':INT32) (LDQ-REF11165 ':INT32) + (LDZ-REF11167 ':INT32) (IFST-REF11168 ':INT32) + (ILST-REF11169 ':INT32) (LWORK-REF11171 ':INT32) + (INFO-REF11172 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11157 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11158 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11159 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11161 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11163 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11165 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11167 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF11168 :INT32) IFST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF11169 :INT32) ILST) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11171 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11172 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11160 A) (B-REF11162 B) + (Q-REF11164 Q) (Z-REF11166 Z) + (WORK-REF11170 WORK)) + (%%DTGEXC WANTQ-REF11157 WANTZ-REF11158 N-REF11159 A-REF11160 + LDA-REF11161 B-REF11162 LDB-REF11163 Q-REF11164 LDQ-REF11165 Z-REF11166 + LDZ-REF11167 IFST-REF11168 ILST-REF11169 WORK-REF11170 LWORK-REF11171 + INFO-REF11172)))) + +(CFFI:DEFCFUN ("dtgsen_" %%DTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (WANTQ :POINTER) @@ -10475,43 +10554,43 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11190 ':INT32) (WANTQ-REF11191 ':INT32) - (WANTZ-REF11192 ':INT32) (N-REF11194 ':INT32) - (LDA-REF11196 ':INT32) (LDB-REF11198 ':INT32) - (LDQ-REF11203 ':INT32) (LDZ-REF11205 ':INT32) - (M-REF11206 ':INT32) (PL-REF11207 ':DOUBLE) - (PR-REF11208 ':DOUBLE) (LWORK-REF11211 ':INT32) - (LIWORK-REF11213 ':INT32) (INFO-REF11214 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11190 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11191 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11192 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11194 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11196 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11198 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11203 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11205 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11206 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF11207 :DOUBLE) PL) - (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF11208 :DOUBLE) PR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11211 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF11213 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11214 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11193 SELECT) - (A-REF11195 A) (B-REF11197 B) - (ALPHAR-REF11199 ALPHAR) - (ALPHAI-REF11200 ALPHAI) - (BETA-REF11201 BETA) (Q-REF11202 Q) - (Z-REF11204 Z) (DIF-REF11209 DIF) - (WORK-REF11210 WORK) - (IWORK-REF11212 IWORK)) - (%%DTGSEN IJOB-REF11190 WANTQ-REF11191 WANTZ-REF11192 SELECT-REF11193 - N-REF11194 A-REF11195 LDA-REF11196 B-REF11197 LDB-REF11198 - ALPHAR-REF11199 ALPHAI-REF11200 BETA-REF11201 Q-REF11202 - LDQ-REF11203 Z-REF11204 LDZ-REF11205 M-REF11206 PL-REF11207 - PR-REF11208 DIF-REF11209 WORK-REF11210 LWORK-REF11211 - IWORK-REF11212 LIWORK-REF11213 INFO-REF11214)))) - -(CFFI:DEFCFUN ("dtgsja_" %%DTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11173 ':INT32) (WANTQ-REF11174 ':INT32) + (WANTZ-REF11175 ':INT32) (N-REF11177 ':INT32) + (LDA-REF11179 ':INT32) (LDB-REF11181 ':INT32) + (LDQ-REF11186 ':INT32) (LDZ-REF11188 ':INT32) + (M-REF11189 ':INT32) (PL-REF11190 ':DOUBLE) + (PR-REF11191 ':DOUBLE) (LWORK-REF11194 ':INT32) + (LIWORK-REF11196 ':INT32) (INFO-REF11197 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11173 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF11174 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF11175 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11177 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11179 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11181 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11186 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11188 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11189 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF11190 :DOUBLE) PL) + (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF11191 :DOUBLE) PR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11194 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF11196 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11197 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11176 SELECT) + (A-REF11178 A) (B-REF11180 B) + (ALPHAR-REF11182 ALPHAR) + (ALPHAI-REF11183 ALPHAI) + (BETA-REF11184 BETA) (Q-REF11185 Q) + (Z-REF11187 Z) (DIF-REF11192 DIF) + (WORK-REF11193 WORK) + (IWORK-REF11195 IWORK)) + (%%DTGSEN IJOB-REF11173 WANTQ-REF11174 WANTZ-REF11175 SELECT-REF11176 + N-REF11177 A-REF11178 LDA-REF11179 B-REF11180 LDB-REF11181 + ALPHAR-REF11182 ALPHAI-REF11183 BETA-REF11184 Q-REF11185 LDQ-REF11186 + Z-REF11187 LDZ-REF11188 M-REF11189 PL-REF11190 PR-REF11191 DIF-REF11192 + WORK-REF11193 LWORK-REF11194 IWORK-REF11195 LIWORK-REF11196 + INFO-REF11197)))) + +(CFFI:DEFCFUN ("dtgsja_" %%DTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -10579,39 +10658,39 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11218 ':INT32) (P-REF11219 ':INT32) - (N-REF11220 ':INT32) (K-REF11221 ':INT32) - (L-REF11222 ':INT32) (LDA-REF11224 ':INT32) - (LDB-REF11226 ':INT32) (TOLA-REF11227 ':DOUBLE) - (TOLB-REF11228 ':DOUBLE) (LDU-REF11232 ':INT32) - (LDV-REF11234 ':INT32) (LDQ-REF11236 ':INT32) - (NCYCLE-REF11238 ':INT32) (INFO-REF11239 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11218 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF11219 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11220 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11221 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11222 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11224 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11226 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF11227 :DOUBLE) TOLA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF11228 :DOUBLE) TOLB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11232 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11234 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11236 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF11238 :INT32) NCYCLE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11239 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11223 A) (B-REF11225 B) - (ALPHA-REF11229 ALPHA) - (BETA-REF11230 BETA) (U-REF11231 U) - (V-REF11233 V) (Q-REF11235 Q) - (WORK-REF11237 WORK)) - (%%DTGSJA JOBU JOBV JOBQ M-REF11218 P-REF11219 N-REF11220 K-REF11221 - L-REF11222 A-REF11223 LDA-REF11224 B-REF11225 LDB-REF11226 - TOLA-REF11227 TOLB-REF11228 ALPHA-REF11229 BETA-REF11230 - U-REF11231 LDU-REF11232 V-REF11233 LDV-REF11234 Q-REF11235 - LDQ-REF11236 WORK-REF11237 NCYCLE-REF11238 INFO-REF11239)))) - -(CFFI:DEFCFUN ("dtgsna_" %%DTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11201 ':INT32) (P-REF11202 ':INT32) + (N-REF11203 ':INT32) (K-REF11204 ':INT32) + (L-REF11205 ':INT32) (LDA-REF11207 ':INT32) + (LDB-REF11209 ':INT32) (TOLA-REF11210 ':DOUBLE) + (TOLB-REF11211 ':DOUBLE) (LDU-REF11215 ':INT32) + (LDV-REF11217 ':INT32) (LDQ-REF11219 ':INT32) + (NCYCLE-REF11221 ':INT32) (INFO-REF11222 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11201 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF11202 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11203 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11204 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11205 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11207 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11209 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF11210 :DOUBLE) TOLA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF11211 :DOUBLE) TOLB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11215 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11217 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11219 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF11221 :INT32) NCYCLE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11222 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11206 A) (B-REF11208 B) + (ALPHA-REF11212 ALPHA) + (BETA-REF11213 BETA) (U-REF11214 U) + (V-REF11216 V) (Q-REF11218 Q) + (WORK-REF11220 WORK)) + (%%DTGSJA JOBU JOBV JOBQ M-REF11201 P-REF11202 N-REF11203 K-REF11204 + L-REF11205 A-REF11206 LDA-REF11207 B-REF11208 LDB-REF11209 TOLA-REF11210 + TOLB-REF11211 ALPHA-REF11212 BETA-REF11213 U-REF11214 LDU-REF11215 + V-REF11216 LDV-REF11217 Q-REF11218 LDQ-REF11219 WORK-REF11220 + NCYCLE-REF11221 INFO-REF11222)))) + +(CFFI:DEFCFUN ("dtgsna_" %%DTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (HOWMNY :STRING) @@ -10673,32 +10752,32 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11243 ':INT32) (LDA-REF11245 ':INT32) - (LDB-REF11247 ':INT32) (LDVL-REF11249 ':INT32) - (LDVR-REF11251 ':INT32) (MM-REF11254 ':INT32) - (M-REF11255 ':INT32) (LWORK-REF11257 ':INT32) - (INFO-REF11259 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11243 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11245 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11247 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11249 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11251 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11254 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11255 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11257 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11259 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11242 SELECT) - (A-REF11244 A) (B-REF11246 B) - (VL-REF11248 VL) (VR-REF11250 VR) - (S-REF11252 S) (DIF-REF11253 DIF) - (WORK-REF11256 WORK) - (IWORK-REF11258 IWORK)) - (%%DTGSNA JOB HOWMNY SELECT-REF11242 N-REF11243 A-REF11244 LDA-REF11245 - B-REF11246 LDB-REF11247 VL-REF11248 LDVL-REF11249 VR-REF11250 - LDVR-REF11251 S-REF11252 DIF-REF11253 MM-REF11254 M-REF11255 - WORK-REF11256 LWORK-REF11257 IWORK-REF11258 INFO-REF11259)))) - -(CFFI:DEFCFUN ("dtgsy2_" %%DTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11226 ':INT32) (LDA-REF11228 ':INT32) + (LDB-REF11230 ':INT32) (LDVL-REF11232 ':INT32) + (LDVR-REF11234 ':INT32) (MM-REF11237 ':INT32) + (M-REF11238 ':INT32) (LWORK-REF11240 ':INT32) + (INFO-REF11242 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11226 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11228 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11230 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11232 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11234 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11237 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11238 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11240 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11242 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11225 SELECT) + (A-REF11227 A) (B-REF11229 B) + (VL-REF11231 VL) (VR-REF11233 VR) + (S-REF11235 S) (DIF-REF11236 DIF) + (WORK-REF11239 WORK) + (IWORK-REF11241 IWORK)) + (%%DTGSNA JOB HOWMNY SELECT-REF11225 N-REF11226 A-REF11227 LDA-REF11228 + B-REF11229 LDB-REF11230 VL-REF11231 LDVL-REF11232 VR-REF11233 + LDVR-REF11234 S-REF11235 DIF-REF11236 MM-REF11237 M-REF11238 + WORK-REF11239 LWORK-REF11240 IWORK-REF11241 INFO-REF11242)))) + +(CFFI:DEFCFUN ("dtgsy2_" %%DTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (IJOB :POINTER) @@ -10758,39 +10837,39 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PQ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11261 ':INT32) (M-REF11262 ':INT32) - (N-REF11263 ':INT32) (LDA-REF11265 ':INT32) - (LDB-REF11267 ':INT32) (LDC-REF11269 ':INT32) - (LDD-REF11271 ':INT32) (LDE-REF11273 ':INT32) - (LDF-REF11275 ':INT32) (SCALE-REF11276 ':DOUBLE) - (RDSUM-REF11277 ':DOUBLE) - (RDSCAL-REF11278 ':DOUBLE) (PQ-REF11280 ':INT32) - (INFO-REF11281 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11261 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11262 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11263 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11265 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11267 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11269 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF11271 :INT32) LDD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF11273 :INT32) LDE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF11275 :INT32) LDF) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11276 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF11277 :DOUBLE) RDSUM) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF11278 :DOUBLE) RDSCAL) - (COMMON-LISP:SETF (CFFI:MEM-REF PQ-REF11280 :INT32) PQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11281 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11264 A) (B-REF11266 B) - (C-REF11268 C) (D-REF11270 D) - (E-REF11272 E) (F-REF11274 F) - (IWORK-REF11279 IWORK)) - (%%DTGSY2 TRANS IJOB-REF11261 M-REF11262 N-REF11263 A-REF11264 - LDA-REF11265 B-REF11266 LDB-REF11267 C-REF11268 LDC-REF11269 - D-REF11270 LDD-REF11271 E-REF11272 LDE-REF11273 F-REF11274 - LDF-REF11275 SCALE-REF11276 RDSUM-REF11277 RDSCAL-REF11278 - IWORK-REF11279 PQ-REF11280 INFO-REF11281)))) - -(CFFI:DEFCFUN ("dtgsyl_" %%DTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11244 ':INT32) (M-REF11245 ':INT32) + (N-REF11246 ':INT32) (LDA-REF11248 ':INT32) + (LDB-REF11250 ':INT32) (LDC-REF11252 ':INT32) + (LDD-REF11254 ':INT32) (LDE-REF11256 ':INT32) + (LDF-REF11258 ':INT32) (SCALE-REF11259 ':DOUBLE) + (RDSUM-REF11260 ':DOUBLE) + (RDSCAL-REF11261 ':DOUBLE) (PQ-REF11263 ':INT32) + (INFO-REF11264 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11244 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11245 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11246 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11248 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11250 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11252 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF11254 :INT32) LDD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF11256 :INT32) LDE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF11258 :INT32) LDF) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11259 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF11260 :DOUBLE) RDSUM) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF11261 :DOUBLE) RDSCAL) + (COMMON-LISP:SETF (CFFI:MEM-REF PQ-REF11263 :INT32) PQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11264 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11247 A) (B-REF11249 B) + (C-REF11251 C) (D-REF11253 D) + (E-REF11255 E) (F-REF11257 F) + (IWORK-REF11262 IWORK)) + (%%DTGSY2 TRANS IJOB-REF11244 M-REF11245 N-REF11246 A-REF11247 + LDA-REF11248 B-REF11249 LDB-REF11250 C-REF11251 LDC-REF11252 D-REF11253 + LDD-REF11254 E-REF11255 LDE-REF11256 F-REF11257 LDF-REF11258 + SCALE-REF11259 RDSUM-REF11260 RDSCAL-REF11261 IWORK-REF11262 PQ-REF11263 + INFO-REF11264)))) + +(CFFI:DEFCFUN ("dtgsyl_" %%DTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (IJOB :POINTER) @@ -10852,38 +10931,38 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11283 ':INT32) (M-REF11284 ':INT32) - (N-REF11285 ':INT32) (LDA-REF11287 ':INT32) - (LDB-REF11289 ':INT32) (LDC-REF11291 ':INT32) - (LDD-REF11293 ':INT32) (LDE-REF11295 ':INT32) - (LDF-REF11297 ':INT32) (SCALE-REF11298 ':DOUBLE) - (DIF-REF11299 ':DOUBLE) (LWORK-REF11301 ':INT32) - (INFO-REF11303 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11283 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11284 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11285 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11287 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11289 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11291 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF11293 :INT32) LDD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF11295 :INT32) LDE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF11297 :INT32) LDF) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11298 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF11299 :DOUBLE) DIF) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11301 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11303 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11286 A) (B-REF11288 B) - (C-REF11290 C) (D-REF11292 D) - (E-REF11294 E) (F-REF11296 F) - (WORK-REF11300 WORK) - (IWORK-REF11302 IWORK)) - (%%DTGSYL TRANS IJOB-REF11283 M-REF11284 N-REF11285 A-REF11286 - LDA-REF11287 B-REF11288 LDB-REF11289 C-REF11290 LDC-REF11291 - D-REF11292 LDD-REF11293 E-REF11294 LDE-REF11295 F-REF11296 - LDF-REF11297 SCALE-REF11298 DIF-REF11299 WORK-REF11300 - LWORK-REF11301 IWORK-REF11302 INFO-REF11303)))) - -(CFFI:DEFCFUN ("dtpcon_" %%DTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF11266 ':INT32) (M-REF11267 ':INT32) + (N-REF11268 ':INT32) (LDA-REF11270 ':INT32) + (LDB-REF11272 ':INT32) (LDC-REF11274 ':INT32) + (LDD-REF11276 ':INT32) (LDE-REF11278 ':INT32) + (LDF-REF11280 ':INT32) (SCALE-REF11281 ':DOUBLE) + (DIF-REF11282 ':DOUBLE) (LWORK-REF11284 ':INT32) + (INFO-REF11286 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF11266 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11267 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11268 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11270 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11272 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11274 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF11276 :INT32) LDD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF11278 :INT32) LDE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF11280 :INT32) LDF) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11281 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF11282 :DOUBLE) DIF) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11284 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11286 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11269 A) (B-REF11271 B) + (C-REF11273 C) (D-REF11275 D) + (E-REF11277 E) (F-REF11279 F) + (WORK-REF11283 WORK) + (IWORK-REF11285 IWORK)) + (%%DTGSYL TRANS IJOB-REF11266 M-REF11267 N-REF11268 A-REF11269 + LDA-REF11270 B-REF11271 LDB-REF11272 C-REF11273 LDC-REF11274 D-REF11275 + LDD-REF11276 E-REF11277 LDE-REF11278 F-REF11279 LDF-REF11280 + SCALE-REF11281 DIF-REF11282 WORK-REF11283 LWORK-REF11284 IWORK-REF11285 + INFO-REF11286)))) + +(CFFI:DEFCFUN ("dtpcon_" %%DTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -10912,18 +10991,18 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11307 ':INT32) (RCOND-REF11309 ':DOUBLE) - (INFO-REF11312 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11307 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11309 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11312 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11308 AP) - (WORK-REF11310 WORK) - (IWORK-REF11311 IWORK)) - (%%DTPCON NORM UPLO DIAG N-REF11307 AP-REF11308 RCOND-REF11309 - WORK-REF11310 IWORK-REF11311 INFO-REF11312)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11290 ':INT32) (RCOND-REF11292 ':DOUBLE) + (INFO-REF11295 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11290 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11292 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11295 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11291 AP) + (WORK-REF11293 WORK) + (IWORK-REF11294 IWORK)) + (%%DTPCON NORM UPLO DIAG N-REF11290 AP-REF11291 RCOND-REF11292 + WORK-REF11293 IWORK-REF11294 INFO-REF11295)))) -(CFFI:DEFCFUN ("dtplqt_" %%DTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtplqt_" %%DTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -10957,25 +11036,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11313 ':INT32) (N-REF11314 ':INT32) - (L-REF11315 ':INT32) (MB-REF11316 ':INT32) - (LDA-REF11318 ':INT32) (LDB-REF11320 ':INT32) - (LDT-REF11322 ':INT32) (INFO-REF11324 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11313 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11314 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11315 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF11316 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11318 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11320 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11322 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11324 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11317 A) (B-REF11319 B) - (T-REF11321 T) (WORK-REF11323 WORK)) - (%%DTPLQT M-REF11313 N-REF11314 L-REF11315 MB-REF11316 A-REF11317 - LDA-REF11318 B-REF11319 LDB-REF11320 T-REF11321 LDT-REF11322 - WORK-REF11323 INFO-REF11324)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11296 ':INT32) (N-REF11297 ':INT32) + (L-REF11298 ':INT32) (MB-REF11299 ':INT32) + (LDA-REF11301 ':INT32) (LDB-REF11303 ':INT32) + (LDT-REF11305 ':INT32) (INFO-REF11307 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11296 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11297 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11298 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF11299 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11301 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11303 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11305 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11307 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11300 A) (B-REF11302 B) + (T-REF11304 T) (WORK-REF11306 WORK)) + (%%DTPLQT M-REF11296 N-REF11297 L-REF11298 MB-REF11299 A-REF11300 + LDA-REF11301 B-REF11302 LDB-REF11303 T-REF11304 LDT-REF11305 + WORK-REF11306 INFO-REF11307)))) -(CFFI:DEFCFUN ("dtplqt2_" %%DTPLQT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtplqt2_" %%DTPLQT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11003,24 +11083,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11325 ':INT32) (N-REF11326 ':INT32) - (L-REF11327 ':INT32) (LDA-REF11329 ':INT32) - (LDB-REF11331 ':INT32) (LDT-REF11333 ':INT32) - (INFO-REF11334 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11325 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11326 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11327 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11329 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11331 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11333 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11334 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11328 A) (B-REF11330 B) - (T-REF11332 T)) - (%%DTPLQT2 M-REF11325 N-REF11326 L-REF11327 A-REF11328 LDA-REF11329 - B-REF11330 LDB-REF11331 T-REF11332 LDT-REF11333 - INFO-REF11334)))) - -(CFFI:DEFCFUN ("dtpmlqt_" %%DTPMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11308 ':INT32) (N-REF11309 ':INT32) + (L-REF11310 ':INT32) (LDA-REF11312 ':INT32) + (LDB-REF11314 ':INT32) (LDT-REF11316 ':INT32) + (INFO-REF11317 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11308 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11309 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11310 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11312 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11314 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11316 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11317 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11311 A) (B-REF11313 B) + (T-REF11315 T)) + (%%DTPLQT2 M-REF11308 N-REF11309 L-REF11310 A-REF11311 LDA-REF11312 + B-REF11313 LDB-REF11314 T-REF11315 LDT-REF11316 INFO-REF11317)))) + +(CFFI:DEFCFUN ("dtpmlqt_" %%DTPMLQT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -11066,30 +11146,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11337 ':INT32) (N-REF11338 ':INT32) - (K-REF11339 ':INT32) (L-REF11340 ':INT32) - (MB-REF11341 ':INT32) (LDV-REF11343 ':INT32) - (LDT-REF11345 ':INT32) (LDA-REF11347 ':INT32) - (LDB-REF11349 ':INT32) (INFO-REF11351 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11337 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11338 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11339 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11340 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF11341 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11343 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11345 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11347 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11349 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11351 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11342 V) (T-REF11344 T) - (A-REF11346 A) (B-REF11348 B) - (WORK-REF11350 WORK)) - (%%DTPMLQT SIDE TRANS M-REF11337 N-REF11338 K-REF11339 L-REF11340 - MB-REF11341 V-REF11342 LDV-REF11343 T-REF11344 LDT-REF11345 - A-REF11346 LDA-REF11347 B-REF11348 LDB-REF11349 WORK-REF11350 - INFO-REF11351)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11320 ':INT32) (N-REF11321 ':INT32) + (K-REF11322 ':INT32) (L-REF11323 ':INT32) + (MB-REF11324 ':INT32) (LDV-REF11326 ':INT32) + (LDT-REF11328 ':INT32) (LDA-REF11330 ':INT32) + (LDB-REF11332 ':INT32) (INFO-REF11334 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11320 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11321 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11322 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11323 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF11324 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11326 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11328 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11330 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11332 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11334 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11325 V) (T-REF11327 T) + (A-REF11329 A) (B-REF11331 B) + (WORK-REF11333 WORK)) + (%%DTPMLQT SIDE TRANS M-REF11320 N-REF11321 K-REF11322 L-REF11323 + MB-REF11324 V-REF11325 LDV-REF11326 T-REF11327 LDT-REF11328 A-REF11329 + LDA-REF11330 B-REF11331 LDB-REF11332 WORK-REF11333 INFO-REF11334)))) -(CFFI:DEFCFUN ("dtpmqrt_" %%DTPMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtpmqrt_" %%DTPMQRT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -11135,30 +11215,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11354 ':INT32) (N-REF11355 ':INT32) - (K-REF11356 ':INT32) (L-REF11357 ':INT32) - (NB-REF11358 ':INT32) (LDV-REF11360 ':INT32) - (LDT-REF11362 ':INT32) (LDA-REF11364 ':INT32) - (LDB-REF11366 ':INT32) (INFO-REF11368 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11354 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11355 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11356 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11357 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11358 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11360 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11362 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11364 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11366 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11368 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11359 V) (T-REF11361 T) - (A-REF11363 A) (B-REF11365 B) - (WORK-REF11367 WORK)) - (%%DTPMQRT SIDE TRANS M-REF11354 N-REF11355 K-REF11356 L-REF11357 - NB-REF11358 V-REF11359 LDV-REF11360 T-REF11361 LDT-REF11362 - A-REF11363 LDA-REF11364 B-REF11365 LDB-REF11366 WORK-REF11367 - INFO-REF11368)))) - -(CFFI:DEFCFUN ("dtpqrt_" %%DTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11337 ':INT32) (N-REF11338 ':INT32) + (K-REF11339 ':INT32) (L-REF11340 ':INT32) + (NB-REF11341 ':INT32) (LDV-REF11343 ':INT32) + (LDT-REF11345 ':INT32) (LDA-REF11347 ':INT32) + (LDB-REF11349 ':INT32) (INFO-REF11351 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11337 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11338 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11339 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11340 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11341 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11343 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11345 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11347 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11349 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11351 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11342 V) (T-REF11344 T) + (A-REF11346 A) (B-REF11348 B) + (WORK-REF11350 WORK)) + (%%DTPMQRT SIDE TRANS M-REF11337 N-REF11338 K-REF11339 L-REF11340 + NB-REF11341 V-REF11342 LDV-REF11343 T-REF11344 LDT-REF11345 A-REF11346 + LDA-REF11347 B-REF11348 LDB-REF11349 WORK-REF11350 INFO-REF11351)))) + +(CFFI:DEFCFUN ("dtpqrt_" %%DTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11192,25 +11271,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11369 ':INT32) (N-REF11370 ':INT32) - (L-REF11371 ':INT32) (NB-REF11372 ':INT32) - (LDA-REF11374 ':INT32) (LDB-REF11376 ':INT32) - (LDT-REF11378 ':INT32) (INFO-REF11380 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11369 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11370 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11371 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11372 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11374 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11376 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11378 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11380 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11373 A) (B-REF11375 B) - (T-REF11377 T) (WORK-REF11379 WORK)) - (%%DTPQRT M-REF11369 N-REF11370 L-REF11371 NB-REF11372 A-REF11373 - LDA-REF11374 B-REF11375 LDB-REF11376 T-REF11377 LDT-REF11378 - WORK-REF11379 INFO-REF11380)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11352 ':INT32) (N-REF11353 ':INT32) + (L-REF11354 ':INT32) (NB-REF11355 ':INT32) + (LDA-REF11357 ':INT32) (LDB-REF11359 ':INT32) + (LDT-REF11361 ':INT32) (INFO-REF11363 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11352 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11353 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11354 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF11355 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11357 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11359 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11361 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11363 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11356 A) (B-REF11358 B) + (T-REF11360 T) (WORK-REF11362 WORK)) + (%%DTPQRT M-REF11352 N-REF11353 L-REF11354 NB-REF11355 A-REF11356 + LDA-REF11357 B-REF11358 LDB-REF11359 T-REF11360 LDT-REF11361 + WORK-REF11362 INFO-REF11363)))) -(CFFI:DEFCFUN ("dtpqrt2_" %%DTPQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtpqrt2_" %%DTPQRT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11238,24 +11318,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11381 ':INT32) (N-REF11382 ':INT32) - (L-REF11383 ':INT32) (LDA-REF11385 ':INT32) - (LDB-REF11387 ':INT32) (LDT-REF11389 ':INT32) - (INFO-REF11390 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11381 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11382 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11383 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11385 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11387 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11389 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11390 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11384 A) (B-REF11386 B) - (T-REF11388 T)) - (%%DTPQRT2 M-REF11381 N-REF11382 L-REF11383 A-REF11384 LDA-REF11385 - B-REF11386 LDB-REF11387 T-REF11388 LDT-REF11389 - INFO-REF11390)))) - -(CFFI:DEFCFUN ("dtprfb_" %%DTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11364 ':INT32) (N-REF11365 ':INT32) + (L-REF11366 ':INT32) (LDA-REF11368 ':INT32) + (LDB-REF11370 ':INT32) (LDT-REF11372 ':INT32) + (INFO-REF11373 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11364 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11365 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11366 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11368 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11370 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11372 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11373 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11367 A) (B-REF11369 B) + (T-REF11371 T)) + (%%DTPQRT2 M-REF11364 N-REF11365 L-REF11366 A-REF11367 LDA-REF11368 + B-REF11369 LDB-REF11370 T-REF11371 LDT-REF11372 INFO-REF11373)))) + +(CFFI:DEFCFUN ("dtprfb_" %%DTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -11304,29 +11383,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11395 ':INT32) (N-REF11396 ':INT32) - (K-REF11397 ':INT32) (L-REF11398 ':INT32) - (LDV-REF11400 ':INT32) (LDT-REF11402 ':INT32) - (LDA-REF11404 ':INT32) (LDB-REF11406 ':INT32) - (LDWORK-REF11408 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11395 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11396 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11397 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11398 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11400 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11402 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11404 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11406 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF11408 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11399 V) (T-REF11401 T) - (A-REF11403 A) (B-REF11405 B) - (WORK-REF11407 WORK)) - (%%DTPRFB SIDE TRANS DIRECT STOREV M-REF11395 N-REF11396 K-REF11397 - L-REF11398 V-REF11399 LDV-REF11400 T-REF11401 LDT-REF11402 - A-REF11403 LDA-REF11404 B-REF11405 LDB-REF11406 WORK-REF11407 - LDWORK-REF11408)))) - -(CFFI:DEFCFUN ("dtprfs_" %%DTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11378 ':INT32) (N-REF11379 ':INT32) + (K-REF11380 ':INT32) (L-REF11381 ':INT32) + (LDV-REF11383 ':INT32) (LDT-REF11385 ':INT32) + (LDA-REF11387 ':INT32) (LDB-REF11389 ':INT32) + (LDWORK-REF11391 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11378 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11379 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF11380 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF11381 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11383 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11385 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11387 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11389 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF11391 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF11382 V) (T-REF11384 T) + (A-REF11386 A) (B-REF11388 B) + (WORK-REF11390 WORK)) + (%%DTPRFB SIDE TRANS DIRECT STOREV M-REF11378 N-REF11379 K-REF11380 + L-REF11381 V-REF11382 LDV-REF11383 T-REF11384 LDT-REF11385 A-REF11386 + LDA-REF11387 B-REF11388 LDB-REF11389 WORK-REF11390 LDWORK-REF11391)))) + +(CFFI:DEFCFUN ("dtprfs_" %%DTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -11375,24 +11453,24 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11412 ':INT32) (NRHS-REF11413 ':INT32) - (LDB-REF11416 ':INT32) (LDX-REF11418 ':INT32) - (INFO-REF11423 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11412 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11413 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11416 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11418 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11423 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11414 AP) (B-REF11415 B) - (X-REF11417 X) (FERR-REF11419 FERR) - (BERR-REF11420 BERR) - (WORK-REF11421 WORK) - (IWORK-REF11422 IWORK)) - (%%DTPRFS UPLO TRANS DIAG N-REF11412 NRHS-REF11413 AP-REF11414 B-REF11415 - LDB-REF11416 X-REF11417 LDX-REF11418 FERR-REF11419 - BERR-REF11420 WORK-REF11421 IWORK-REF11422 INFO-REF11423)))) - -(CFFI:DEFCFUN ("dtptri_" %%DTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11395 ':INT32) (NRHS-REF11396 ':INT32) + (LDB-REF11399 ':INT32) (LDX-REF11401 ':INT32) + (INFO-REF11406 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11395 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11396 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11399 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11401 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11406 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11397 AP) (B-REF11398 B) + (X-REF11400 X) (FERR-REF11402 FERR) + (BERR-REF11403 BERR) + (WORK-REF11404 WORK) + (IWORK-REF11405 IWORK)) + (%%DTPRFS UPLO TRANS DIAG N-REF11395 NRHS-REF11396 AP-REF11397 B-REF11398 + LDB-REF11399 X-REF11400 LDX-REF11401 FERR-REF11402 BERR-REF11403 + WORK-REF11404 IWORK-REF11405 INFO-REF11406)))) + +(CFFI:DEFCFUN ("dtptri_" %%DTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -11408,13 +11486,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11426 ':INT32) (INFO-REF11428 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11426 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11428 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11427 AP)) - (%%DTPTRI UPLO DIAG N-REF11426 AP-REF11427 INFO-REF11428)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11409 ':INT32) (INFO-REF11411 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11409 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11411 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11410 AP)) + (%%DTPTRI UPLO DIAG N-REF11409 AP-REF11410 INFO-REF11411)))) -(CFFI:DEFCFUN ("dtptrs_" %%DTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtptrs_" %%DTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -11439,17 +11517,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11432 ':INT32) (NRHS-REF11433 ':INT32) - (LDB-REF11436 ':INT32) (INFO-REF11437 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11432 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11433 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11436 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11437 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11434 AP) (B-REF11435 B)) - (%%DTPTRS UPLO TRANS DIAG N-REF11432 NRHS-REF11433 AP-REF11434 B-REF11435 - LDB-REF11436 INFO-REF11437)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11415 ':INT32) (NRHS-REF11416 ':INT32) + (LDB-REF11419 ':INT32) (INFO-REF11420 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11415 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11416 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11419 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11420 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11417 AP) (B-REF11418 B)) + (%%DTPTRS UPLO TRANS DIAG N-REF11415 NRHS-REF11416 AP-REF11417 B-REF11418 + LDB-REF11419 INFO-REF11420)))) -(CFFI:DEFCFUN ("dtpttf_" %%DTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtpttf_" %%DTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -11469,14 +11547,14 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ARF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11440 ':INT32) (INFO-REF11443 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11440 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11443 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11441 AP) (ARF-REF11442 ARF)) - (%%DTPTTF TRANSR UPLO N-REF11440 AP-REF11441 ARF-REF11442 - INFO-REF11443)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11423 ':INT32) (INFO-REF11426 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11423 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11426 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11424 AP) (ARF-REF11425 ARF)) + (%%DTPTTF TRANSR UPLO N-REF11423 AP-REF11424 ARF-REF11425 + INFO-REF11426)))) -(CFFI:DEFCFUN ("dtpttr_" %%DTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtpttr_" %%DTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11495,16 +11573,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11445 ':INT32) (LDA-REF11448 ':INT32) - (INFO-REF11449 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11445 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11448 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11449 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11446 AP) (A-REF11447 A)) - (%%DTPTTR UPLO N-REF11445 AP-REF11446 A-REF11447 LDA-REF11448 - INFO-REF11449)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11428 ':INT32) (LDA-REF11431 ':INT32) + (INFO-REF11432 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11428 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11431 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11432 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF11429 AP) (A-REF11430 A)) + (%%DTPTTR UPLO N-REF11428 AP-REF11429 A-REF11430 LDA-REF11431 + INFO-REF11432)))) -(CFFI:DEFCFUN ("dtrcon_" %%DTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtrcon_" %%DTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -11535,18 +11613,18 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11453 ':INT32) (LDA-REF11455 ':INT32) - (RCOND-REF11456 ':DOUBLE) (INFO-REF11459 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11453 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11455 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11456 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11459 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11454 A) (WORK-REF11457 WORK) - (IWORK-REF11458 IWORK)) - (%%DTRCON NORM UPLO DIAG N-REF11453 A-REF11454 LDA-REF11455 - RCOND-REF11456 WORK-REF11457 IWORK-REF11458 INFO-REF11459)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11436 ':INT32) (LDA-REF11438 ':INT32) + (RCOND-REF11439 ':DOUBLE) (INFO-REF11442 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11436 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11438 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11439 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11442 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11437 A) (WORK-REF11440 WORK) + (IWORK-REF11441 IWORK)) + (%%DTRCON NORM UPLO DIAG N-REF11436 A-REF11437 LDA-REF11438 + RCOND-REF11439 WORK-REF11440 IWORK-REF11441 INFO-REF11442)))) -(CFFI:DEFCFUN ("dtrevc_" %%DTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtrevc_" %%DTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -11588,26 +11666,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11463 ':INT32) (LDT-REF11465 ':INT32) - (LDVL-REF11467 ':INT32) (LDVR-REF11469 ':INT32) - (MM-REF11470 ':INT32) (M-REF11471 ':INT32) - (INFO-REF11473 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11463 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11465 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11467 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11469 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11470 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11471 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11473 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11462 SELECT) - (T-REF11464 T) (VL-REF11466 VL) - (VR-REF11468 VR) - (WORK-REF11472 WORK)) - (%%DTREVC SIDE HOWMNY SELECT-REF11462 N-REF11463 T-REF11464 LDT-REF11465 - VL-REF11466 LDVL-REF11467 VR-REF11468 LDVR-REF11469 MM-REF11470 - M-REF11471 WORK-REF11472 INFO-REF11473)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11446 ':INT32) (LDT-REF11448 ':INT32) + (LDVL-REF11450 ':INT32) (LDVR-REF11452 ':INT32) + (MM-REF11453 ':INT32) (M-REF11454 ':INT32) + (INFO-REF11456 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11446 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11448 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11450 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11452 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11453 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11454 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11456 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11445 SELECT) + (T-REF11447 T) (VL-REF11449 VL) + (VR-REF11451 VR) + (WORK-REF11455 WORK)) + (%%DTREVC SIDE HOWMNY SELECT-REF11445 N-REF11446 T-REF11447 LDT-REF11448 + VL-REF11449 LDVL-REF11450 VR-REF11451 LDVR-REF11452 MM-REF11453 + M-REF11454 WORK-REF11455 INFO-REF11456)))) -(CFFI:DEFCFUN ("dtrevc3_" %%DTREVC3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtrevc3_" %%DTREVC3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -11652,28 +11731,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11477 ':INT32) (LDT-REF11479 ':INT32) - (LDVL-REF11481 ':INT32) (LDVR-REF11483 ':INT32) - (MM-REF11484 ':INT32) (M-REF11485 ':INT32) - (LWORK-REF11487 ':INT32) (INFO-REF11488 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11477 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11479 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11481 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11483 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11484 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11485 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11487 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11488 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11476 SELECT) - (T-REF11478 T) (VL-REF11480 VL) - (VR-REF11482 VR) - (WORK-REF11486 WORK)) - (%%DTREVC3 SIDE HOWMNY SELECT-REF11476 N-REF11477 T-REF11478 LDT-REF11479 - VL-REF11480 LDVL-REF11481 VR-REF11482 LDVR-REF11483 - MM-REF11484 M-REF11485 WORK-REF11486 LWORK-REF11487 - INFO-REF11488)))) - -(CFFI:DEFCFUN ("dtrexc_" %%DTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11460 ':INT32) (LDT-REF11462 ':INT32) + (LDVL-REF11464 ':INT32) (LDVR-REF11466 ':INT32) + (MM-REF11467 ':INT32) (M-REF11468 ':INT32) + (LWORK-REF11470 ':INT32) (INFO-REF11471 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11460 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11462 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11464 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11466 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11467 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11468 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11470 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11471 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11459 SELECT) + (T-REF11461 T) (VL-REF11463 VL) + (VR-REF11465 VR) + (WORK-REF11469 WORK)) + (%%DTREVC3 SIDE HOWMNY SELECT-REF11459 N-REF11460 T-REF11461 LDT-REF11462 + VL-REF11463 LDVL-REF11464 VR-REF11465 LDVR-REF11466 MM-REF11467 + M-REF11468 WORK-REF11469 LWORK-REF11470 INFO-REF11471)))) + +(CFFI:DEFCFUN ("dtrexc_" %%DTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (N :POINTER) @@ -11702,22 +11780,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11490 ':INT32) (LDT-REF11492 ':INT32) - (LDQ-REF11494 ':INT32) (IFST-REF11495 ':INT32) - (ILST-REF11496 ':INT32) (INFO-REF11498 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11490 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11492 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11494 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF11495 :INT32) IFST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF11496 :INT32) ILST) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11498 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF11491 T) (Q-REF11493 Q) - (WORK-REF11497 WORK)) - (%%DTREXC COMPQ N-REF11490 T-REF11491 LDT-REF11492 Q-REF11493 - LDQ-REF11494 IFST-REF11495 ILST-REF11496 WORK-REF11497 - INFO-REF11498)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11473 ':INT32) (LDT-REF11475 ':INT32) + (LDQ-REF11477 ':INT32) (IFST-REF11478 ':INT32) + (ILST-REF11479 ':INT32) (INFO-REF11481 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11473 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11475 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11477 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF11478 :INT32) IFST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF11479 :INT32) ILST) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11481 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF11474 T) (Q-REF11476 Q) + (WORK-REF11480 WORK)) + (%%DTREXC COMPQ N-REF11473 T-REF11474 LDT-REF11475 Q-REF11476 + LDQ-REF11477 IFST-REF11478 ILST-REF11479 WORK-REF11480 INFO-REF11481)))) -(CFFI:DEFCFUN ("dtrrfs_" %%DTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtrrfs_" %%DTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -11768,26 +11845,26 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11502 ':INT32) (NRHS-REF11503 ':INT32) - (LDA-REF11505 ':INT32) (LDB-REF11507 ':INT32) - (LDX-REF11509 ':INT32) (INFO-REF11514 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11502 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11503 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11505 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11507 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11509 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11514 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11504 A) (B-REF11506 B) - (X-REF11508 X) (FERR-REF11510 FERR) - (BERR-REF11511 BERR) - (WORK-REF11512 WORK) - (IWORK-REF11513 IWORK)) - (%%DTRRFS UPLO TRANS DIAG N-REF11502 NRHS-REF11503 A-REF11504 - LDA-REF11505 B-REF11506 LDB-REF11507 X-REF11508 LDX-REF11509 - FERR-REF11510 BERR-REF11511 WORK-REF11512 IWORK-REF11513 - INFO-REF11514)))) - -(CFFI:DEFCFUN ("dtrsen_" %%DTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11485 ':INT32) (NRHS-REF11486 ':INT32) + (LDA-REF11488 ':INT32) (LDB-REF11490 ':INT32) + (LDX-REF11492 ':INT32) (INFO-REF11497 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11485 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11486 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11488 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11490 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11492 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11497 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11487 A) (B-REF11489 B) + (X-REF11491 X) (FERR-REF11493 FERR) + (BERR-REF11494 BERR) + (WORK-REF11495 WORK) + (IWORK-REF11496 IWORK)) + (%%DTRRFS UPLO TRANS DIAG N-REF11485 NRHS-REF11486 A-REF11487 + LDA-REF11488 B-REF11489 LDB-REF11490 X-REF11491 LDX-REF11492 + FERR-REF11493 BERR-REF11494 WORK-REF11495 IWORK-REF11496 + INFO-REF11497)))) + +(CFFI:DEFCFUN ("dtrsen_" %%DTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPQ :STRING) @@ -11842,31 +11919,31 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11518 ':INT32) (LDT-REF11520 ':INT32) - (LDQ-REF11522 ':INT32) (M-REF11525 ':INT32) - (S-REF11526 ':DOUBLE) (SEP-REF11527 ':DOUBLE) - (LWORK-REF11529 ':INT32) - (LIWORK-REF11531 ':INT32) (INFO-REF11532 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11518 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11520 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11522 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11525 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF11526 :DOUBLE) S) - (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF11527 :DOUBLE) SEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11529 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF11531 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11532 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11517 SELECT) - (T-REF11519 T) (Q-REF11521 Q) - (WR-REF11523 WR) (WI-REF11524 WI) - (WORK-REF11528 WORK) - (IWORK-REF11530 IWORK)) - (%%DTRSEN JOB COMPQ SELECT-REF11517 N-REF11518 T-REF11519 LDT-REF11520 - Q-REF11521 LDQ-REF11522 WR-REF11523 WI-REF11524 M-REF11525 - S-REF11526 SEP-REF11527 WORK-REF11528 LWORK-REF11529 - IWORK-REF11530 LIWORK-REF11531 INFO-REF11532)))) - -(CFFI:DEFCFUN ("dtrsna_" %%DTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11501 ':INT32) (LDT-REF11503 ':INT32) + (LDQ-REF11505 ':INT32) (M-REF11508 ':INT32) + (S-REF11509 ':DOUBLE) (SEP-REF11510 ':DOUBLE) + (LWORK-REF11512 ':INT32) + (LIWORK-REF11514 ':INT32) (INFO-REF11515 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11501 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11503 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11505 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11508 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF11509 :DOUBLE) S) + (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF11510 :DOUBLE) SEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11512 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF11514 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11515 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11500 SELECT) + (T-REF11502 T) (Q-REF11504 Q) + (WR-REF11506 WR) (WI-REF11507 WI) + (WORK-REF11511 WORK) + (IWORK-REF11513 IWORK)) + (%%DTRSEN JOB COMPQ SELECT-REF11500 N-REF11501 T-REF11502 LDT-REF11503 + Q-REF11504 LDQ-REF11505 WR-REF11506 WI-REF11507 M-REF11508 S-REF11509 + SEP-REF11510 WORK-REF11511 LWORK-REF11512 IWORK-REF11513 LIWORK-REF11514 + INFO-REF11515)))) + +(CFFI:DEFCFUN ("dtrsna_" %%DTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (HOWMNY :STRING) @@ -11923,30 +12000,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11536 ':INT32) (LDT-REF11538 ':INT32) - (LDVL-REF11540 ':INT32) (LDVR-REF11542 ':INT32) - (MM-REF11545 ':INT32) (M-REF11546 ':INT32) - (LDWORK-REF11548 ':INT32) (INFO-REF11550 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11536 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11538 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11540 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11542 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11545 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11546 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF11548 :INT32) LDWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11550 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11535 SELECT) - (T-REF11537 T) (VL-REF11539 VL) - (VR-REF11541 VR) (S-REF11543 S) - (SEP-REF11544 SEP) - (WORK-REF11547 WORK) - (IWORK-REF11549 IWORK)) - (%%DTRSNA JOB HOWMNY SELECT-REF11535 N-REF11536 T-REF11537 LDT-REF11538 - VL-REF11539 LDVL-REF11540 VR-REF11541 LDVR-REF11542 S-REF11543 - SEP-REF11544 MM-REF11545 M-REF11546 WORK-REF11547 - LDWORK-REF11548 IWORK-REF11549 INFO-REF11550)))) - -(CFFI:DEFCFUN ("dtrsyl_" %%DTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11519 ':INT32) (LDT-REF11521 ':INT32) + (LDVL-REF11523 ':INT32) (LDVR-REF11525 ':INT32) + (MM-REF11528 ':INT32) (M-REF11529 ':INT32) + (LDWORK-REF11531 ':INT32) (INFO-REF11533 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11519 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF11521 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF11523 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF11525 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF11528 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11529 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF11531 :INT32) LDWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11533 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF11518 SELECT) + (T-REF11520 T) (VL-REF11522 VL) + (VR-REF11524 VR) (S-REF11526 S) + (SEP-REF11527 SEP) + (WORK-REF11530 WORK) + (IWORK-REF11532 IWORK)) + (%%DTRSNA JOB HOWMNY SELECT-REF11518 N-REF11519 T-REF11520 LDT-REF11521 + VL-REF11522 LDVL-REF11523 VR-REF11524 LDVR-REF11525 S-REF11526 + SEP-REF11527 MM-REF11528 M-REF11529 WORK-REF11530 LDWORK-REF11531 + IWORK-REF11532 INFO-REF11533)))) + +(CFFI:DEFCFUN ("dtrsyl_" %%DTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANA :STRING) (TRANB :STRING) @@ -11980,25 +12057,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF11553 ':INT32) (M-REF11554 ':INT32) - (N-REF11555 ':INT32) (LDA-REF11557 ':INT32) - (LDB-REF11559 ':INT32) (LDC-REF11561 ':INT32) - (SCALE-REF11562 ':DOUBLE) (INFO-REF11563 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF11553 :INT32) ISGN) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11554 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11555 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11557 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11559 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11561 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11562 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11563 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11556 A) (B-REF11558 B) - (C-REF11560 C)) - (%%DTRSYL TRANA TRANB ISGN-REF11553 M-REF11554 N-REF11555 A-REF11556 - LDA-REF11557 B-REF11558 LDB-REF11559 C-REF11560 LDC-REF11561 - SCALE-REF11562 INFO-REF11563)))) - -(CFFI:DEFCFUN ("dtrti2_" %%DTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF11536 ':INT32) (M-REF11537 ':INT32) + (N-REF11538 ':INT32) (LDA-REF11540 ':INT32) + (LDB-REF11542 ':INT32) (LDC-REF11544 ':INT32) + (SCALE-REF11545 ':DOUBLE) (INFO-REF11546 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF11536 :INT32) ISGN) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11537 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11538 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11540 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11542 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11544 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF11545 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11546 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11539 A) (B-REF11541 B) + (C-REF11543 C)) + (%%DTRSYL TRANA TRANB ISGN-REF11536 M-REF11537 N-REF11538 A-REF11539 + LDA-REF11540 B-REF11541 LDB-REF11542 C-REF11543 LDC-REF11544 + SCALE-REF11545 INFO-REF11546)))) + +(CFFI:DEFCFUN ("dtrti2_" %%DTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -12016,15 +12093,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11566 ':INT32) (LDA-REF11568 ':INT32) - (INFO-REF11569 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11566 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11568 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11569 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11567 A)) - (%%DTRTI2 UPLO DIAG N-REF11566 A-REF11567 LDA-REF11568 INFO-REF11569)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11549 ':INT32) (LDA-REF11551 ':INT32) + (INFO-REF11552 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11549 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11551 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11552 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11550 A)) + (%%DTRTI2 UPLO DIAG N-REF11549 A-REF11550 LDA-REF11551 INFO-REF11552)))) -(CFFI:DEFCFUN ("dtrtri_" %%DTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtrtri_" %%DTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -12042,15 +12119,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11572 ':INT32) (LDA-REF11574 ':INT32) - (INFO-REF11575 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11572 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11574 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11575 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11573 A)) - (%%DTRTRI UPLO DIAG N-REF11572 A-REF11573 LDA-REF11574 INFO-REF11575)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11555 ':INT32) (LDA-REF11557 ':INT32) + (INFO-REF11558 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11555 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11557 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11558 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11556 A)) + (%%DTRTRI UPLO DIAG N-REF11555 A-REF11556 LDA-REF11557 INFO-REF11558)))) -(CFFI:DEFCFUN ("dtrtrs_" %%DTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtrtrs_" %%DTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -12077,19 +12154,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11579 ':INT32) (NRHS-REF11580 ':INT32) - (LDA-REF11582 ':INT32) (LDB-REF11584 ':INT32) - (INFO-REF11585 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11579 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11580 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11582 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11584 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11585 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11581 A) (B-REF11583 B)) - (%%DTRTRS UPLO TRANS DIAG N-REF11579 NRHS-REF11580 A-REF11581 - LDA-REF11582 B-REF11583 LDB-REF11584 INFO-REF11585)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11562 ':INT32) (NRHS-REF11563 ':INT32) + (LDA-REF11565 ':INT32) (LDB-REF11567 ':INT32) + (INFO-REF11568 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11562 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11563 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11565 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11567 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11568 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11564 A) (B-REF11566 B)) + (%%DTRTRS UPLO TRANS DIAG N-REF11562 NRHS-REF11563 A-REF11564 + LDA-REF11565 B-REF11566 LDB-REF11567 INFO-REF11568)))) -(CFFI:DEFCFUN ("dtrttf_" %%DTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtrttf_" %%DTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -12111,16 +12188,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ARF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11588 ':INT32) (LDA-REF11590 ':INT32) - (INFO-REF11592 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11588 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11590 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11592 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11589 A) (ARF-REF11591 ARF)) - (%%DTRTTF TRANSR UPLO N-REF11588 A-REF11589 LDA-REF11590 ARF-REF11591 - INFO-REF11592)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11571 ':INT32) (LDA-REF11573 ':INT32) + (INFO-REF11575 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11571 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11573 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11575 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11572 A) (ARF-REF11574 ARF)) + (%%DTRTTF TRANSR UPLO N-REF11571 A-REF11572 LDA-REF11573 ARF-REF11574 + INFO-REF11575)))) -(CFFI:DEFCFUN ("dtrttp_" %%DTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtrttp_" %%DTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12139,16 +12216,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11594 ':INT32) (LDA-REF11596 ':INT32) - (INFO-REF11598 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11594 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11596 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11598 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11595 A) (AP-REF11597 AP)) - (%%DTRTTP UPLO N-REF11594 A-REF11595 LDA-REF11596 AP-REF11597 - INFO-REF11598)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11577 ':INT32) (LDA-REF11579 ':INT32) + (INFO-REF11581 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11577 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11579 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11581 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11578 A) (AP-REF11580 AP)) + (%%DTRTTP UPLO N-REF11577 A-REF11578 LDA-REF11579 AP-REF11580 + INFO-REF11581)))) -(CFFI:DEFCFUN ("dtzrzf_" %%DTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("dtzrzf_" %%DTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12174,20 +12251,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11599 ':INT32) (N-REF11600 ':INT32) - (LDA-REF11602 ':INT32) (LWORK-REF11605 ':INT32) - (INFO-REF11606 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11599 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11600 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11602 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11605 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11606 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11601 A) (TAU-REF11603 TAU) - (WORK-REF11604 WORK)) - (%%DTZRZF M-REF11599 N-REF11600 A-REF11601 LDA-REF11602 TAU-REF11603 - WORK-REF11604 LWORK-REF11605 INFO-REF11606)))) - -(CFFI:DEFCFUN ("dzsum1_" %%DZSUM1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11582 ':INT32) (N-REF11583 ':INT32) + (LDA-REF11585 ':INT32) (LWORK-REF11588 ':INT32) + (INFO-REF11589 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11582 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11583 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11585 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11588 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11589 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11584 A) (TAU-REF11586 TAU) + (WORK-REF11587 WORK)) + (%%DTZRZF M-REF11582 N-REF11583 A-REF11584 LDA-REF11585 TAU-REF11586 + WORK-REF11587 LWORK-REF11588 INFO-REF11589)))) + +(CFFI:DEFCFUN ("dzsum1_" %%DZSUM1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (N :POINTER) (CX :POINTER) @@ -12202,13 +12279,13 @@ (COMMON-LISP:*)) CX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11607 ':INT32) (INCX-REF11609 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11607 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11609 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11608 CX)) - (%%DZSUM1 N-REF11607 CX-REF11608 INCX-REF11609)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11590 ':INT32) (INCX-REF11592 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11590 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11592 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11591 CX)) + (%%DZSUM1 N-REF11590 CX-REF11591 INCX-REF11592)))) -(CFFI:DEFCFUN ("icmax1_" %%ICMAX1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("icmax1_" %%ICMAX1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (N :POINTER) (CX :POINTER) @@ -12223,13 +12300,13 @@ (COMMON-LISP:*)) CX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11610 ':INT32) (INCX-REF11612 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11610 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11612 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11611 CX)) - (%%ICMAX1 N-REF11610 CX-REF11611 INCX-REF11612)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11593 ':INT32) (INCX-REF11595 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11593 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11595 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11594 CX)) + (%%ICMAX1 N-REF11593 CX-REF11594 INCX-REF11595)))) -(CFFI:DEFCFUN ("ieeeck_" %%IEEECK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ieeeck_" %%IEEECK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (ISPEC :POINTER) (ZERO :POINTER) @@ -12240,15 +12317,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ZERO) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ONE)) - (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11613 ':INT32) (ZERO-REF11614 ':FLOAT) - (ONE-REF11615 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11613 :INT32) ISPEC) - (COMMON-LISP:SETF (CFFI:MEM-REF ZERO-REF11614 :FLOAT) ZERO) - (COMMON-LISP:SETF (CFFI:MEM-REF ONE-REF11615 :FLOAT) ONE) + (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11596 ':INT32) (ZERO-REF11597 ':FLOAT) + (ONE-REF11598 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11596 :INT32) ISPEC) + (COMMON-LISP:SETF (CFFI:MEM-REF ZERO-REF11597 :FLOAT) ZERO) + (COMMON-LISP:SETF (CFFI:MEM-REF ONE-REF11598 :FLOAT) ONE) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%IEEECK ISPEC-REF11613 ZERO-REF11614 ONE-REF11615)))) + (%%IEEECK ISPEC-REF11596 ZERO-REF11597 ONE-REF11598)))) -(CFFI:DEFCFUN ("ilaclc_" %%ILACLC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ilaclc_" %%ILACLC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (M :POINTER) (N :POINTER) @@ -12265,15 +12342,15 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11616 ':INT32) (N-REF11617 ':INT32) - (LDA-REF11619 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11616 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11617 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11619 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11618 A)) - (%%ILACLC M-REF11616 N-REF11617 A-REF11618 LDA-REF11619)))) - -(CFFI:DEFCFUN ("ilaclr_" %%ILACLR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11599 ':INT32) (N-REF11600 ':INT32) + (LDA-REF11602 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11599 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11600 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11602 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11601 A)) + (%%ILACLC M-REF11599 N-REF11600 A-REF11601 LDA-REF11602)))) + +(CFFI:DEFCFUN ("ilaclr_" %%ILACLR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (M :POINTER) (N :POINTER) @@ -12290,15 +12367,16 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11620 ':INT32) (N-REF11621 ':INT32) - (LDA-REF11623 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11620 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11621 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11623 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11622 A)) - (%%ILACLR M-REF11620 N-REF11621 A-REF11622 LDA-REF11623)))) - -(CFFI:DEFCFUN ("iladiag_" %%ILADIAG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11603 ':INT32) (N-REF11604 ':INT32) + (LDA-REF11606 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11603 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11604 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11606 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11605 A)) + (%%ILACLR M-REF11603 N-REF11604 A-REF11605 LDA-REF11606)))) + +(CFFI:DEFCFUN ("iladiag_" %%ILADIAG :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (DIAG :STRING)) @@ -12309,7 +12387,7 @@ (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL (%%ILADIAG DIAG)))) -(CFFI:DEFCFUN ("iladlc_" %%ILADLC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("iladlc_" %%ILADLC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (M :POINTER) (N :POINTER) @@ -12323,15 +12401,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11625 ':INT32) (N-REF11626 ':INT32) - (LDA-REF11628 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11625 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11626 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11628 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11627 A)) - (%%ILADLC M-REF11625 N-REF11626 A-REF11627 LDA-REF11628)))) - -(CFFI:DEFCFUN ("iladlr_" %%ILADLR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11608 ':INT32) (N-REF11609 ':INT32) + (LDA-REF11611 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11608 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11609 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11611 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11610 A)) + (%%ILADLC M-REF11608 N-REF11609 A-REF11610 LDA-REF11611)))) + +(CFFI:DEFCFUN ("iladlr_" %%ILADLR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (M :POINTER) (N :POINTER) @@ -12345,15 +12423,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11629 ':INT32) (N-REF11630 ':INT32) - (LDA-REF11632 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11629 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11630 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11632 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11631 A)) - (%%ILADLR M-REF11629 N-REF11630 A-REF11631 LDA-REF11632)))) - -(CFFI:DEFCFUN ("ilaenv_" %%ILAENV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11612 ':INT32) (N-REF11613 ':INT32) + (LDA-REF11615 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11612 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11613 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11615 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11614 A)) + (%%ILADLR M-REF11612 N-REF11613 A-REF11614 LDA-REF11615)))) + +(CFFI:DEFCFUN ("ilaenv_" %%ILAENV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (ISPEC :POINTER) (NAME :STRING) @@ -12372,20 +12450,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N3) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N4)) - (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11633 ':INT32) (N1-REF11636 ':INT32) - (N2-REF11637 ':INT32) (N3-REF11638 ':INT32) - (N4-REF11639 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11633 :INT32) ISPEC) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11636 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11637 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF11638 :INT32) N3) - (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF11639 :INT32) N4) + (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11616 ':INT32) (N1-REF11619 ':INT32) + (N2-REF11620 ':INT32) (N3-REF11621 ':INT32) + (N4-REF11622 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11616 :INT32) ISPEC) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11619 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11620 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF11621 :INT32) N3) + (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF11622 :INT32) N4) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%ILAENV ISPEC-REF11633 NAME OPTS N1-REF11636 N2-REF11637 N3-REF11638 - N4-REF11639)))) + (%%ILAENV ISPEC-REF11616 NAME OPTS N1-REF11619 N2-REF11620 N3-REF11621 + N4-REF11622)))) (CFFI:DEFCFUN ("ilaenv2stage_" %%ILAENV2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (ISPEC :POINTER) (NAME :STRING) @@ -12404,19 +12482,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N3) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N4)) - (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11640 ':INT32) (N1-REF11643 ':INT32) - (N2-REF11644 ':INT32) (N3-REF11645 ':INT32) - (N4-REF11646 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11640 :INT32) ISPEC) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11643 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11644 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF11645 :INT32) N3) - (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF11646 :INT32) N4) + (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11623 ':INT32) (N1-REF11626 ':INT32) + (N2-REF11627 ':INT32) (N3-REF11628 ':INT32) + (N4-REF11629 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11623 :INT32) ISPEC) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF11626 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF11627 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF11628 :INT32) N3) + (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF11629 :INT32) N4) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%ILAENV2STAGE ISPEC-REF11640 NAME OPTS N1-REF11643 N2-REF11644 - N3-REF11645 N4-REF11646)))) + (%%ILAENV2STAGE ISPEC-REF11623 NAME OPTS N1-REF11626 N2-REF11627 + N3-REF11628 N4-REF11629)))) -(CFFI:DEFCFUN ("ilaprec_" %%ILAPREC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ilaprec_" %%ILAPREC :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (PREC :STRING)) @@ -12427,7 +12506,7 @@ (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL (%%ILAPREC PREC)))) -(CFFI:DEFCFUN ("ilaslc_" %%ILASLC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ilaslc_" %%ILASLC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (M :POINTER) (N :POINTER) @@ -12441,13 +12520,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11648 ':INT32) (N-REF11649 ':INT32) - (LDA-REF11651 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11648 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11649 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11651 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11650 A)) - (%%ILASLC M-REF11648 N-REF11649 A-REF11650 LDA-REF11651)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11631 ':INT32) (N-REF11632 ':INT32) + (LDA-REF11634 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11631 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11632 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11634 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11633 A)) + (%%ILASLC M-REF11631 N-REF11632 A-REF11633 LDA-REF11634)))) (COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%DLASWP %DLASWP %%DLASY2 %DLASY2 %%DLASYF %DLASYF @@ -12459,360 +12538,412 @@ %DORBDB5 %%DORBDB6 %DORBDB6 %%DORCSD %DORCSD %%DORCSD2BY1 %DORCSD2BY1 %%DORG2L %DORG2L %%DORG2R %DORG2R %%DORGBR %DORGBR %%DORGHR %DORGHR %%DORGL2 %DORGL2 %%DORGLQ %DORGLQ %%DORGQL %DORGQL %%DORGQR %DORGQR %%DORGR2 %DORGR2 - %%DORGRQ %DORGRQ %%DORGTR %DORGTR %%DORM22 %DORM22 %%DORM2L %DORM2L %%DORM2R - %DORM2R %%DORMBR %DORMBR %%DORMHR %DORMHR %%DORML2 %DORML2 %%DORMLQ %DORMLQ - %%DORMQL %DORMQL %%DORMQR %DORMQR %%DORMR2 %DORMR2 %%DORMR3 %DORMR3 %%DORMRQ - %DORMRQ %%DORMRZ %DORMRZ %%DORMTR %DORMTR %%DPBCON %DPBCON %%DPBEQU %DPBEQU - %%DPBRFS %DPBRFS %%DPBSTF %DPBSTF %%DPBSV %DPBSV %%DPBSVX %DPBSVX %%DPBTF2 - %DPBTF2 %%DPBTRF %DPBTRF %%DPBTRS %DPBTRS %%DPFTRF %DPFTRF %%DPFTRI %DPFTRI - %%DPFTRS %DPFTRS %%DPOCON %DPOCON %%DPOEQU %DPOEQU %%DPOEQUB %DPOEQUB - %%DPORFS %DPORFS %%DPORFSX %DPORFSX %%DPOSV %DPOSV %%DPOSVX %DPOSVX %%DPOSVXX - %DPOSVXX %%DPOTF2 %DPOTF2 %%DPOTRF %DPOTRF %%DPOTRF2 %DPOTRF2 %%DPOTRI - %DPOTRI %%DPOTRS %DPOTRS %%DPPCON %DPPCON %%DPPEQU %DPPEQU %%DPPRFS %DPPRFS - %%DPPSV %DPPSV %%DPPSVX %DPPSVX %%DPPTRF %DPPTRF %%DPPTRI %DPPTRI %%DPPTRS - %DPPTRS %%DPSTF2 %DPSTF2 %%DPSTRF %DPSTRF %%DPTCON %DPTCON %%DPTEQR %DPTEQR - %%DPTRFS %DPTRFS %%DPTSV %DPTSV %%DPTSVX %DPTSVX %%DPTTRF %DPTTRF %%DPTTRS - %DPTTRS %%DPTTS2 %DPTTS2 %%DRSCL %DRSCL %%DSB2ST_KERNELS %DSB2ST_KERNELS - %%DSBEV %DSBEV %%DSBEV_2STAGE %DSBEV_2STAGE %%DSBEVD %DSBEVD %%DSBEVD_2STAGE - %DSBEVD_2STAGE %%DSBEVX %DSBEVX %%DSBEVX_2STAGE %DSBEVX_2STAGE %%DSBGST - %DSBGST %%DSBGV %DSBGV %%DSBGVD %DSBGVD %%DSBGVX %DSBGVX %%DSBTRD %DSBTRD - %%DSFRK %DSFRK %%DSGESV %DSGESV %%DSPCON %DSPCON %%DSPEV %DSPEV %%DSPEVD - %DSPEVD %%DSPEVX %DSPEVX %%DSPGST %DSPGST %%DSPGV %DSPGV %%DSPGVD %DSPGVD - %%DSPGVX %DSPGVX %%DSPOSV %DSPOSV %%DSPRFS %DSPRFS %%DSPSV %DSPSV %%DSPSVX - %DSPSVX %%DSPTRD %DSPTRD %%DSPTRF %DSPTRF %%DSPTRI %DSPTRI %%DSPTRS %DSPTRS - %%DSTEBZ %DSTEBZ %%DSTEDC %DSTEDC %%DSTEGR %DSTEGR %%DSTEIN %DSTEIN %%DSTEMR - %DSTEMR %%DSTEQR %DSTEQR %%DSTERF %DSTERF %%DSTEV %DSTEV %%DSTEVD %DSTEVD - %%DSTEVR %DSTEVR %%DSTEVX %DSTEVX %%DSYCON %DSYCON %%DSYCON_3 %DSYCON_3 - %%DSYCON_ROOK %DSYCON_ROOK %%DSYCONV %DSYCONV %%DSYCONVF %DSYCONVF - %%DSYCONVF_ROOK %DSYCONVF_ROOK %%DSYEQUB %DSYEQUB %%DSYEV %DSYEV - %%DSYEV_2STAGE %DSYEV_2STAGE %%DSYEVD %DSYEVD %%DSYEVD_2STAGE %DSYEVD_2STAGE - %%DSYEVR %DSYEVR %%DSYEVR_2STAGE %DSYEVR_2STAGE %%DSYEVX %DSYEVX - %%DSYEVX_2STAGE %DSYEVX_2STAGE %%DSYGS2 %DSYGS2 %%DSYGST %DSYGST %%DSYGV - %DSYGV %%DSYGV_2STAGE %DSYGV_2STAGE %%DSYGVD %DSYGVD %%DSYGVX %DSYGVX - %%DSYRFS %DSYRFS %%DSYRFSX %DSYRFSX %%DSYSV %DSYSV %%DSYSV_AA %DSYSV_AA - %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE %%DSYSV_RK %DSYSV_RK %%DSYSV_ROOK - %DSYSV_ROOK %%DSYSVX %DSYSVX %%DSYSVXX %DSYSVXX %%DSYSWAPR %DSYSWAPR %%DSYTD2 - %DSYTD2 %%DSYTF2 %DSYTF2 %%DSYTF2_RK %DSYTF2_RK %%DSYTF2_ROOK %DSYTF2_ROOK - %%DSYTRD %DSYTRD %%DSYTRD_2STAGE %DSYTRD_2STAGE %%DSYTRD_SY2SB %DSYTRD_SY2SB - %%DSYTRF %DSYTRF %%DSYTRF_AA %DSYTRF_AA %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE - %%DSYTRF_RK %DSYTRF_RK %%DSYTRF_ROOK %DSYTRF_ROOK %%DSYTRI %DSYTRI %%DSYTRI2 - %DSYTRI2 %%DSYTRI2X %DSYTRI2X %%DSYTRI_3 %DSYTRI_3 %%DSYTRI_3X %DSYTRI_3X - %%DSYTRI_ROOK %DSYTRI_ROOK %%DSYTRS %DSYTRS %%DSYTRS2 %DSYTRS2 %%DSYTRS_3 - %DSYTRS_3 %%DSYTRS_AA %DSYTRS_AA %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE - %%DSYTRS_ROOK %DSYTRS_ROOK %%DTBCON %DTBCON %%DTBRFS %DTBRFS %%DTBTRS %DTBTRS - %%DTFSM %DTFSM %%DTFTRI %DTFTRI %%DTFTTP %DTFTTP %%DTFTTR %DTFTTR %%DTGEVC - %DTGEVC %%DTGEX2 %DTGEX2 %%DTGEXC %DTGEXC %%DTGSEN %DTGSEN %%DTGSJA %DTGSJA - %%DTGSNA %DTGSNA %%DTGSY2 %DTGSY2 %%DTGSYL %DTGSYL %%DTPCON %DTPCON %%DTPLQT - %DTPLQT %%DTPLQT2 %DTPLQT2 %%DTPMLQT %DTPMLQT %%DTPMQRT %DTPMQRT %%DTPQRT - %DTPQRT %%DTPQRT2 %DTPQRT2 %%DTPRFB %DTPRFB %%DTPRFS %DTPRFS %%DTPTRI %DTPTRI - %%DTPTRS %DTPTRS %%DTPTTF %DTPTTF %%DTPTTR %DTPTTR %%DTRCON %DTRCON %%DTREVC - %DTREVC %%DTREVC3 %DTREVC3 %%DTREXC %DTREXC %%DTRRFS %DTRRFS %%DTRSEN %DTRSEN - %%DTRSNA %DTRSNA %%DTRSYL %DTRSYL %%DTRTI2 %DTRTI2 %%DTRTRI %DTRTRI %%DTRTRS - %DTRTRS %%DTRTTF %DTRTTF %%DTRTTP %DTRTTP %%DTZRZF %DTZRZF %%DZSUM1 %DZSUM1 - %%ICMAX1 %ICMAX1 %%IEEECK %IEEECK %%ILACLC %ILACLC %%ILACLR %ILACLR %%ILADIAG - %ILADIAG %%ILADLC %ILADLC %%ILADLR %ILADLR %%ILAENV %ILAENV %%ILAENV2STAGE - %ILAENV2STAGE %%ILAPREC %ILAPREC %%ILASLC %ILASLC)) - -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK - '(("DLASWP" "dlaswp_" %%DLASWP %DLASWP) - ("DLASY2" "dlasy2_" %%DLASY2 %DLASY2) - ("DLASYF" "dlasyf_" %%DLASYF %DLASYF) - ("DLASYF_AA" "dlasyf_aa_" %%DLASYF_AA %DLASYF_AA) - ("DLASYF_RK" "dlasyf_rk_" %%DLASYF_RK %DLASYF_RK) - ("DLASYF_ROOK" "dlasyf_rook_" %%DLASYF_ROOK %DLASYF_ROOK) - ("DLAT2S" "dlat2s_" %%DLAT2S %DLAT2S) - ("DLATBS" "dlatbs_" %%DLATBS %DLATBS) - ("DLATDF" "dlatdf_" %%DLATDF %DLATDF) - ("DLATPS" "dlatps_" %%DLATPS %DLATPS) - ("DLATRD" "dlatrd_" %%DLATRD %DLATRD) - ("DLATRS" "dlatrs_" %%DLATRS %DLATRS) - ("DLATRZ" "dlatrz_" %%DLATRZ %DLATRZ) - ("DLATSQR" "dlatsqr_" %%DLATSQR %DLATSQR) - ("DLAUU2" "dlauu2_" %%DLAUU2 %DLAUU2) - ("DLAUUM" "dlauum_" %%DLAUUM %DLAUUM) - ("DOPGTR" "dopgtr_" %%DOPGTR %DOPGTR) - ("DOPMTR" "dopmtr_" %%DOPMTR %DOPMTR) - ("DORBDB" "dorbdb_" %%DORBDB %DORBDB) - ("DORBDB1" "dorbdb1_" %%DORBDB1 %DORBDB1) - ("DORBDB2" "dorbdb2_" %%DORBDB2 %DORBDB2) - ("DORBDB3" "dorbdb3_" %%DORBDB3 %DORBDB3) - ("DORBDB4" "dorbdb4_" %%DORBDB4 %DORBDB4) - ("DORBDB5" "dorbdb5_" %%DORBDB5 %DORBDB5) - ("DORBDB6" "dorbdb6_" %%DORBDB6 %DORBDB6) - ("DORCSD" "dorcsd_" %%DORCSD %DORCSD) - ("DORCSD2BY1" "dorcsd2by1_" %%DORCSD2BY1 %DORCSD2BY1) - ("DORG2L" "dorg2l_" %%DORG2L %DORG2L) - ("DORG2R" "dorg2r_" %%DORG2R %DORG2R) - ("DORGBR" "dorgbr_" %%DORGBR %DORGBR) - ("DORGHR" "dorghr_" %%DORGHR %DORGHR) - ("DORGL2" "dorgl2_" %%DORGL2 %DORGL2) - ("DORGLQ" "dorglq_" %%DORGLQ %DORGLQ) - ("DORGQL" "dorgql_" %%DORGQL %DORGQL) - ("DORGQR" "dorgqr_" %%DORGQR %DORGQR) - ("DORGR2" "dorgr2_" %%DORGR2 %DORGR2) - ("DORGRQ" "dorgrq_" %%DORGRQ %DORGRQ) - ("DORGTR" "dorgtr_" %%DORGTR %DORGTR) - ("DORM22" "dorm22_" %%DORM22 %DORM22) - ("DORM2L" "dorm2l_" %%DORM2L %DORM2L) - ("DORM2R" "dorm2r_" %%DORM2R %DORM2R) - ("DORMBR" "dormbr_" %%DORMBR %DORMBR) - ("DORMHR" "dormhr_" %%DORMHR %DORMHR) - ("DORML2" "dorml2_" %%DORML2 %DORML2) - ("DORMLQ" "dormlq_" %%DORMLQ %DORMLQ) - ("DORMQL" "dormql_" %%DORMQL %DORMQL) - ("DORMQR" "dormqr_" %%DORMQR %DORMQR) - ("DORMR2" "dormr2_" %%DORMR2 %DORMR2) - ("DORMR3" "dormr3_" %%DORMR3 %DORMR3) - ("DORMRQ" "dormrq_" %%DORMRQ %DORMRQ) - ("DORMRZ" "dormrz_" %%DORMRZ %DORMRZ) - ("DORMTR" "dormtr_" %%DORMTR %DORMTR) - ("DPBCON" "dpbcon_" %%DPBCON %DPBCON) - ("DPBEQU" "dpbequ_" %%DPBEQU %DPBEQU) - ("DPBRFS" "dpbrfs_" %%DPBRFS %DPBRFS) - ("DPBSTF" "dpbstf_" %%DPBSTF %DPBSTF) - ("DPBSV" "dpbsv_" %%DPBSV %DPBSV) - ("DPBSVX" "dpbsvx_" %%DPBSVX %DPBSVX) - ("DPBTF2" "dpbtf2_" %%DPBTF2 %DPBTF2) - ("DPBTRF" "dpbtrf_" %%DPBTRF %DPBTRF) - ("DPBTRS" "dpbtrs_" %%DPBTRS %DPBTRS) - ("DPFTRF" "dpftrf_" %%DPFTRF %DPFTRF) - ("DPFTRI" "dpftri_" %%DPFTRI %DPFTRI) - ("DPFTRS" "dpftrs_" %%DPFTRS %DPFTRS) - ("DPOCON" "dpocon_" %%DPOCON %DPOCON) - ("DPOEQU" "dpoequ_" %%DPOEQU %DPOEQU) - ("DPOEQUB" "dpoequb_" %%DPOEQUB %DPOEQUB) - ("DPORFS" "dporfs_" %%DPORFS %DPORFS) - ("DPORFSX" "dporfsx_" %%DPORFSX %DPORFSX) - ("DPOSV" "dposv_" %%DPOSV %DPOSV) - ("DPOSVX" "dposvx_" %%DPOSVX %DPOSVX) - ("DPOSVXX" "dposvxx_" %%DPOSVXX %DPOSVXX) - ("DPOTF2" "dpotf2_" %%DPOTF2 %DPOTF2) - ("DPOTRF" "dpotrf_" %%DPOTRF %DPOTRF) - ("DPOTRF2" "dpotrf2_" %%DPOTRF2 %DPOTRF2) - ("DPOTRI" "dpotri_" %%DPOTRI %DPOTRI) - ("DPOTRS" "dpotrs_" %%DPOTRS %DPOTRS) - ("DPPCON" "dppcon_" %%DPPCON %DPPCON) - ("DPPEQU" "dppequ_" %%DPPEQU %DPPEQU) - ("DPPRFS" "dpprfs_" %%DPPRFS %DPPRFS) - ("DPPSV" "dppsv_" %%DPPSV %DPPSV) - ("DPPSVX" "dppsvx_" %%DPPSVX %DPPSVX) - ("DPPTRF" "dpptrf_" %%DPPTRF %DPPTRF) - ("DPPTRI" "dpptri_" %%DPPTRI %DPPTRI) - ("DPPTRS" "dpptrs_" %%DPPTRS %DPPTRS) - ("DPSTF2" "dpstf2_" %%DPSTF2 %DPSTF2) - ("DPSTRF" "dpstrf_" %%DPSTRF %DPSTRF) - ("DPTCON" "dptcon_" %%DPTCON %DPTCON) - ("DPTEQR" "dpteqr_" %%DPTEQR %DPTEQR) - ("DPTRFS" "dptrfs_" %%DPTRFS %DPTRFS) - ("DPTSV" "dptsv_" %%DPTSV %DPTSV) - ("DPTSVX" "dptsvx_" %%DPTSVX %DPTSVX) - ("DPTTRF" "dpttrf_" %%DPTTRF %DPTTRF) - ("DPTTRS" "dpttrs_" %%DPTTRS %DPTTRS) - ("DPTTS2" "dptts2_" %%DPTTS2 %DPTTS2) - ("DRSCL" "drscl_" %%DRSCL %DRSCL) - ("DSB2ST_KERNELS" "dsb2st_kernels_" %%DSB2ST_KERNELS - %DSB2ST_KERNELS) - ("DSBEV" "dsbev_" %%DSBEV %DSBEV) - ("DSBEV_2STAGE" "dsbev_2stage_" %%DSBEV_2STAGE - %DSBEV_2STAGE) - ("DSBEVD" "dsbevd_" %%DSBEVD %DSBEVD) - ("DSBEVD_2STAGE" "dsbevd_2stage_" %%DSBEVD_2STAGE - %DSBEVD_2STAGE) - ("DSBEVX" "dsbevx_" %%DSBEVX %DSBEVX) - ("DSBEVX_2STAGE" "dsbevx_2stage_" %%DSBEVX_2STAGE - %DSBEVX_2STAGE) - ("DSBGST" "dsbgst_" %%DSBGST %DSBGST) - ("DSBGV" "dsbgv_" %%DSBGV %DSBGV) - ("DSBGVD" "dsbgvd_" %%DSBGVD %DSBGVD) - ("DSBGVX" "dsbgvx_" %%DSBGVX %DSBGVX) - ("DSBTRD" "dsbtrd_" %%DSBTRD %DSBTRD) - ("DSFRK" "dsfrk_" %%DSFRK %DSFRK) - ("DSGESV" "dsgesv_" %%DSGESV %DSGESV) - ("DSPCON" "dspcon_" %%DSPCON %DSPCON) - ("DSPEV" "dspev_" %%DSPEV %DSPEV) - ("DSPEVD" "dspevd_" %%DSPEVD %DSPEVD) - ("DSPEVX" "dspevx_" %%DSPEVX %DSPEVX) - ("DSPGST" "dspgst_" %%DSPGST %DSPGST) - ("DSPGV" "dspgv_" %%DSPGV %DSPGV) - ("DSPGVD" "dspgvd_" %%DSPGVD %DSPGVD) - ("DSPGVX" "dspgvx_" %%DSPGVX %DSPGVX) - ("DSPOSV" "dsposv_" %%DSPOSV %DSPOSV) - ("DSPRFS" "dsprfs_" %%DSPRFS %DSPRFS) - ("DSPSV" "dspsv_" %%DSPSV %DSPSV) - ("DSPSVX" "dspsvx_" %%DSPSVX %DSPSVX) - ("DSPTRD" "dsptrd_" %%DSPTRD %DSPTRD) - ("DSPTRF" "dsptrf_" %%DSPTRF %DSPTRF) - ("DSPTRI" "dsptri_" %%DSPTRI %DSPTRI) - ("DSPTRS" "dsptrs_" %%DSPTRS %DSPTRS) - ("DSTEBZ" "dstebz_" %%DSTEBZ %DSTEBZ) - ("DSTEDC" "dstedc_" %%DSTEDC %DSTEDC) - ("DSTEGR" "dstegr_" %%DSTEGR %DSTEGR) - ("DSTEIN" "dstein_" %%DSTEIN %DSTEIN) - ("DSTEMR" "dstemr_" %%DSTEMR %DSTEMR) - ("DSTEQR" "dsteqr_" %%DSTEQR %DSTEQR) - ("DSTERF" "dsterf_" %%DSTERF %DSTERF) - ("DSTEV" "dstev_" %%DSTEV %DSTEV) - ("DSTEVD" "dstevd_" %%DSTEVD %DSTEVD) - ("DSTEVR" "dstevr_" %%DSTEVR %DSTEVR) - ("DSTEVX" "dstevx_" %%DSTEVX %DSTEVX) - ("DSYCON" "dsycon_" %%DSYCON %DSYCON) - ("DSYCON_3" "dsycon_3_" %%DSYCON_3 %DSYCON_3) - ("DSYCON_ROOK" "dsycon_rook_" %%DSYCON_ROOK %DSYCON_ROOK) - ("DSYCONV" "dsyconv_" %%DSYCONV %DSYCONV) - ("DSYCONVF" "dsyconvf_" %%DSYCONVF %DSYCONVF) - ("DSYCONVF_ROOK" "dsyconvf_rook_" %%DSYCONVF_ROOK - %DSYCONVF_ROOK) - ("DSYEQUB" "dsyequb_" %%DSYEQUB %DSYEQUB) - ("DSYEV" "dsyev_" %%DSYEV %DSYEV) - ("DSYEV_2STAGE" "dsyev_2stage_" %%DSYEV_2STAGE - %DSYEV_2STAGE) - ("DSYEVD" "dsyevd_" %%DSYEVD %DSYEVD) - ("DSYEVD_2STAGE" "dsyevd_2stage_" %%DSYEVD_2STAGE - %DSYEVD_2STAGE) - ("DSYEVR" "dsyevr_" %%DSYEVR %DSYEVR) - ("DSYEVR_2STAGE" "dsyevr_2stage_" %%DSYEVR_2STAGE - %DSYEVR_2STAGE) - ("DSYEVX" "dsyevx_" %%DSYEVX %DSYEVX) - ("DSYEVX_2STAGE" "dsyevx_2stage_" %%DSYEVX_2STAGE - %DSYEVX_2STAGE) - ("DSYGS2" "dsygs2_" %%DSYGS2 %DSYGS2) - ("DSYGST" "dsygst_" %%DSYGST %DSYGST) - ("DSYGV" "dsygv_" %%DSYGV %DSYGV) - ("DSYGV_2STAGE" "dsygv_2stage_" %%DSYGV_2STAGE - %DSYGV_2STAGE) - ("DSYGVD" "dsygvd_" %%DSYGVD %DSYGVD) - ("DSYGVX" "dsygvx_" %%DSYGVX %DSYGVX) - ("DSYRFS" "dsyrfs_" %%DSYRFS %DSYRFS) - ("DSYRFSX" "dsyrfsx_" %%DSYRFSX %DSYRFSX) - ("DSYSV" "dsysv_" %%DSYSV %DSYSV) - ("DSYSV_AA" "dsysv_aa_" %%DSYSV_AA %DSYSV_AA) - ("DSYSV_AA_2STAGE" "dsysv_aa_2stage_" %%DSYSV_AA_2STAGE - %DSYSV_AA_2STAGE) - ("DSYSV_RK" "dsysv_rk_" %%DSYSV_RK %DSYSV_RK) - ("DSYSV_ROOK" "dsysv_rook_" %%DSYSV_ROOK %DSYSV_ROOK) - ("DSYSVX" "dsysvx_" %%DSYSVX %DSYSVX) - ("DSYSVXX" "dsysvxx_" %%DSYSVXX %DSYSVXX) - ("DSYSWAPR" "dsyswapr_" %%DSYSWAPR %DSYSWAPR) - ("DSYTD2" "dsytd2_" %%DSYTD2 %DSYTD2) - ("DSYTF2" "dsytf2_" %%DSYTF2 %DSYTF2) - ("DSYTF2_RK" "dsytf2_rk_" %%DSYTF2_RK %DSYTF2_RK) - ("DSYTF2_ROOK" "dsytf2_rook_" %%DSYTF2_ROOK %DSYTF2_ROOK) - ("DSYTRD" "dsytrd_" %%DSYTRD %DSYTRD) - ("DSYTRD_2STAGE" "dsytrd_2stage_" %%DSYTRD_2STAGE - %DSYTRD_2STAGE) - ("DSYTRD_SY2SB" "dsytrd_sy2sb_" %%DSYTRD_SY2SB - %DSYTRD_SY2SB) - ("DSYTRF" "dsytrf_" %%DSYTRF %DSYTRF) - ("DSYTRF_AA" "dsytrf_aa_" %%DSYTRF_AA %DSYTRF_AA) - ("DSYTRF_AA_2STAGE" "dsytrf_aa_2stage_" - %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE) - ("DSYTRF_RK" "dsytrf_rk_" %%DSYTRF_RK %DSYTRF_RK) - ("DSYTRF_ROOK" "dsytrf_rook_" %%DSYTRF_ROOK %DSYTRF_ROOK) - ("DSYTRI" "dsytri_" %%DSYTRI %DSYTRI) - ("DSYTRI2" "dsytri2_" %%DSYTRI2 %DSYTRI2) - ("DSYTRI2X" "dsytri2x_" %%DSYTRI2X %DSYTRI2X) - ("DSYTRI_3" "dsytri_3_" %%DSYTRI_3 %DSYTRI_3) - ("DSYTRI_3X" "dsytri_3x_" %%DSYTRI_3X %DSYTRI_3X) - ("DSYTRI_ROOK" "dsytri_rook_" %%DSYTRI_ROOK %DSYTRI_ROOK) - ("DSYTRS" "dsytrs_" %%DSYTRS %DSYTRS) - ("DSYTRS2" "dsytrs2_" %%DSYTRS2 %DSYTRS2) - ("DSYTRS_3" "dsytrs_3_" %%DSYTRS_3 %DSYTRS_3) - ("DSYTRS_AA" "dsytrs_aa_" %%DSYTRS_AA %DSYTRS_AA) - ("DSYTRS_AA_2STAGE" "dsytrs_aa_2stage_" - %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE) - ("DSYTRS_ROOK" "dsytrs_rook_" %%DSYTRS_ROOK %DSYTRS_ROOK) - ("DTBCON" "dtbcon_" %%DTBCON %DTBCON) - ("DTBRFS" "dtbrfs_" %%DTBRFS %DTBRFS) - ("DTBTRS" "dtbtrs_" %%DTBTRS %DTBTRS) - ("DTFSM" "dtfsm_" %%DTFSM %DTFSM) - ("DTFTRI" "dtftri_" %%DTFTRI %DTFTRI) - ("DTFTTP" "dtfttp_" %%DTFTTP %DTFTTP) - ("DTFTTR" "dtfttr_" %%DTFTTR %DTFTTR) - ("DTGEVC" "dtgevc_" %%DTGEVC %DTGEVC) - ("DTGEX2" "dtgex2_" %%DTGEX2 %DTGEX2) - ("DTGEXC" "dtgexc_" %%DTGEXC %DTGEXC) - ("DTGSEN" "dtgsen_" %%DTGSEN %DTGSEN) - ("DTGSJA" "dtgsja_" %%DTGSJA %DTGSJA) - ("DTGSNA" "dtgsna_" %%DTGSNA %DTGSNA) - ("DTGSY2" "dtgsy2_" %%DTGSY2 %DTGSY2) - ("DTGSYL" "dtgsyl_" %%DTGSYL %DTGSYL) - ("DTPCON" "dtpcon_" %%DTPCON %DTPCON) - ("DTPLQT" "dtplqt_" %%DTPLQT %DTPLQT) - ("DTPLQT2" "dtplqt2_" %%DTPLQT2 %DTPLQT2) - ("DTPMLQT" "dtpmlqt_" %%DTPMLQT %DTPMLQT) - ("DTPMQRT" "dtpmqrt_" %%DTPMQRT %DTPMQRT) - ("DTPQRT" "dtpqrt_" %%DTPQRT %DTPQRT) - ("DTPQRT2" "dtpqrt2_" %%DTPQRT2 %DTPQRT2) - ("DTPRFB" "dtprfb_" %%DTPRFB %DTPRFB) - ("DTPRFS" "dtprfs_" %%DTPRFS %DTPRFS) - ("DTPTRI" "dtptri_" %%DTPTRI %DTPTRI) - ("DTPTRS" "dtptrs_" %%DTPTRS %DTPTRS) - ("DTPTTF" "dtpttf_" %%DTPTTF %DTPTTF) - ("DTPTTR" "dtpttr_" %%DTPTTR %DTPTTR) - ("DTRCON" "dtrcon_" %%DTRCON %DTRCON) - ("DTREVC" "dtrevc_" %%DTREVC %DTREVC) - ("DTREVC3" "dtrevc3_" %%DTREVC3 %DTREVC3) - ("DTREXC" "dtrexc_" %%DTREXC %DTREXC) - ("DTRRFS" "dtrrfs_" %%DTRRFS %DTRRFS) - ("DTRSEN" "dtrsen_" %%DTRSEN %DTRSEN) - ("DTRSNA" "dtrsna_" %%DTRSNA %DTRSNA) - ("DTRSYL" "dtrsyl_" %%DTRSYL %DTRSYL) - ("DTRTI2" "dtrti2_" %%DTRTI2 %DTRTI2) - ("DTRTRI" "dtrtri_" %%DTRTRI %DTRTRI) - ("DTRTRS" "dtrtrs_" %%DTRTRS %DTRTRS) - ("DTRTTF" "dtrttf_" %%DTRTTF %DTRTTF) - ("DTRTTP" "dtrttp_" %%DTRTTP %DTRTTP) - ("DTZRZF" "dtzrzf_" %%DTZRZF %DTZRZF) - ("DZSUM1" "dzsum1_" %%DZSUM1 %DZSUM1) - ("ICMAX1" "icmax1_" %%ICMAX1 %ICMAX1) - ("IEEECK" "ieeeck_" %%IEEECK %IEEECK) - ("ILACLC" "ilaclc_" %%ILACLC %ILACLC) - ("ILACLR" "ilaclr_" %%ILACLR %ILACLR) - ("ILADIAG" "iladiag_" %%ILADIAG %ILADIAG) - ("ILADLC" "iladlc_" %%ILADLC %ILADLC) - ("ILADLR" "iladlr_" %%ILADLR %ILADLR) - ("ILAENV" "ilaenv_" %%ILAENV %ILAENV) - ("ILAENV2STAGE" "ilaenv2stage_" %%ILAENV2STAGE - %ILAENV2STAGE) - ("ILAPREC" "ilaprec_" %%ILAPREC %ILAPREC) - ("ILASLC" "ilaslc_" %%ILASLC %ILASLC))) + %%DORGRQ %DORGRQ %%DORGTR %DORGTR %%DORGTSQR %DORGTSQR %%DORHR_COL %DORHR_COL + %%DORM22 %DORM22 %%DORM2L %DORM2L %%DORM2R %DORM2R %%DORMBR %DORMBR %%DORMHR + %DORMHR %%DORML2 %DORML2 %%DORMLQ %DORMLQ %%DORMQL %DORMQL %%DORMQR %DORMQR + %%DORMR2 %DORMR2 %%DORMR3 %DORMR3 %%DORMRQ %DORMRQ %%DORMRZ %DORMRZ %%DORMTR + %DORMTR %%DPBCON %DPBCON %%DPBEQU %DPBEQU %%DPBRFS %DPBRFS %%DPBSTF %DPBSTF + %%DPBSV %DPBSV %%DPBSVX %DPBSVX %%DPBTF2 %DPBTF2 %%DPBTRF %DPBTRF %%DPBTRS + %DPBTRS %%DPFTRF %DPFTRF %%DPFTRI %DPFTRI %%DPFTRS %DPFTRS %%DPOCON %DPOCON + %%DPOEQU %DPOEQU %%DPOEQUB %DPOEQUB %%DPORFS %DPORFS %%DPORFSX %DPORFSX + %%DPOSV %DPOSV %%DPOSVX %DPOSVX %%DPOSVXX %DPOSVXX %%DPOTF2 %DPOTF2 %%DPOTRF + %DPOTRF %%DPOTRF2 %DPOTRF2 %%DPOTRI %DPOTRI %%DPOTRS %DPOTRS %%DPPCON %DPPCON + %%DPPEQU %DPPEQU %%DPPRFS %DPPRFS %%DPPSV %DPPSV %%DPPSVX %DPPSVX %%DPPTRF + %DPPTRF %%DPPTRI %DPPTRI %%DPPTRS %DPPTRS %%DPSTF2 %DPSTF2 %%DPSTRF %DPSTRF + %%DPTCON %DPTCON %%DPTEQR %DPTEQR %%DPTRFS %DPTRFS %%DPTSV %DPTSV %%DPTSVX + %DPTSVX %%DPTTRF %DPTTRF %%DPTTRS %DPTTRS %%DPTTS2 %DPTTS2 %%DRSCL %DRSCL + %%DSB2ST_KERNELS %DSB2ST_KERNELS %%DSBEV %DSBEV %%DSBEV_2STAGE %DSBEV_2STAGE + %%DSBEVD %DSBEVD %%DSBEVD_2STAGE %DSBEVD_2STAGE %%DSBEVX %DSBEVX + %%DSBEVX_2STAGE %DSBEVX_2STAGE %%DSBGST %DSBGST %%DSBGV %DSBGV %%DSBGVD + %DSBGVD %%DSBGVX %DSBGVX %%DSBTRD %DSBTRD %%DSFRK %DSFRK %%DSGESV %DSGESV + %%DSPCON %DSPCON %%DSPEV %DSPEV %%DSPEVD %DSPEVD %%DSPEVX %DSPEVX %%DSPGST + %DSPGST %%DSPGV %DSPGV %%DSPGVD %DSPGVD %%DSPGVX %DSPGVX %%DSPOSV %DSPOSV + %%DSPRFS %DSPRFS %%DSPSV %DSPSV %%DSPSVX %DSPSVX %%DSPTRD %DSPTRD %%DSPTRF + %DSPTRF %%DSPTRI %DSPTRI %%DSPTRS %DSPTRS %%DSTEBZ %DSTEBZ %%DSTEDC %DSTEDC + %%DSTEGR %DSTEGR %%DSTEIN %DSTEIN %%DSTEMR %DSTEMR %%DSTEQR %DSTEQR %%DSTERF + %DSTERF %%DSTEV %DSTEV %%DSTEVD %DSTEVD %%DSTEVR %DSTEVR %%DSTEVX %DSTEVX + %%DSYCON %DSYCON %%DSYCON_3 %DSYCON_3 %%DSYCON_ROOK %DSYCON_ROOK %%DSYCONV + %DSYCONV %%DSYCONVF %DSYCONVF %%DSYCONVF_ROOK %DSYCONVF_ROOK %%DSYEQUB + %DSYEQUB %%DSYEV %DSYEV %%DSYEV_2STAGE %DSYEV_2STAGE %%DSYEVD %DSYEVD + %%DSYEVD_2STAGE %DSYEVD_2STAGE %%DSYEVR %DSYEVR %%DSYEVR_2STAGE + %DSYEVR_2STAGE %%DSYEVX %DSYEVX %%DSYEVX_2STAGE %DSYEVX_2STAGE %%DSYGS2 + %DSYGS2 %%DSYGST %DSYGST %%DSYGV %DSYGV %%DSYGV_2STAGE %DSYGV_2STAGE %%DSYGVD + %DSYGVD %%DSYGVX %DSYGVX %%DSYRFS %DSYRFS %%DSYRFSX %DSYRFSX %%DSYSV %DSYSV + %%DSYSV_AA %DSYSV_AA %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE %%DSYSV_RK %DSYSV_RK + %%DSYSV_ROOK %DSYSV_ROOK %%DSYSVX %DSYSVX %%DSYSVXX %DSYSVXX %%DSYSWAPR + %DSYSWAPR %%DSYTD2 %DSYTD2 %%DSYTF2 %DSYTF2 %%DSYTF2_RK %DSYTF2_RK + %%DSYTF2_ROOK %DSYTF2_ROOK %%DSYTRD %DSYTRD %%DSYTRD_2STAGE %DSYTRD_2STAGE + %%DSYTRD_SY2SB %DSYTRD_SY2SB %%DSYTRF %DSYTRF %%DSYTRF_AA %DSYTRF_AA + %%DSYTRF_AA_2STAGE %DSYTRF_AA_2STAGE %%DSYTRF_RK %DSYTRF_RK %%DSYTRF_ROOK + %DSYTRF_ROOK %%DSYTRI %DSYTRI %%DSYTRI2 %DSYTRI2 %%DSYTRI2X %DSYTRI2X + %%DSYTRI_3 %DSYTRI_3 %%DSYTRI_3X %DSYTRI_3X %%DSYTRI_ROOK %DSYTRI_ROOK + %%DSYTRS %DSYTRS %%DSYTRS2 %DSYTRS2 %%DSYTRS_3 %DSYTRS_3 %%DSYTRS_AA + %DSYTRS_AA %%DSYTRS_AA_2STAGE %DSYTRS_AA_2STAGE %%DSYTRS_ROOK %DSYTRS_ROOK + %%DTBCON %DTBCON %%DTBRFS %DTBRFS %%DTBTRS %DTBTRS %%DTFSM %DTFSM %%DTFTRI + %DTFTRI %%DTFTTP %DTFTTP %%DTFTTR %DTFTTR %%DTGEVC %DTGEVC %%DTGEX2 %DTGEX2 + %%DTGEXC %DTGEXC %%DTGSEN %DTGSEN %%DTGSJA %DTGSJA %%DTGSNA %DTGSNA %%DTGSY2 + %DTGSY2 %%DTGSYL %DTGSYL %%DTPCON %DTPCON %%DTPLQT %DTPLQT %%DTPLQT2 %DTPLQT2 + %%DTPMLQT %DTPMLQT %%DTPMQRT %DTPMQRT %%DTPQRT %DTPQRT %%DTPQRT2 %DTPQRT2 + %%DTPRFB %DTPRFB %%DTPRFS %DTPRFS %%DTPTRI %DTPTRI %%DTPTRS %DTPTRS %%DTPTTF + %DTPTTF %%DTPTTR %DTPTTR %%DTRCON %DTRCON %%DTREVC %DTREVC %%DTREVC3 %DTREVC3 + %%DTREXC %DTREXC %%DTRRFS %DTRRFS %%DTRSEN %DTRSEN %%DTRSNA %DTRSNA %%DTRSYL + %DTRSYL %%DTRTI2 %DTRTI2 %%DTRTRI %DTRTRI %%DTRTRS %DTRTRS %%DTRTTF %DTRTTF + %%DTRTTP %DTRTTP %%DTZRZF %DTZRZF %%DZSUM1 %DZSUM1 %%ICMAX1 %ICMAX1 %%IEEECK + %IEEECK %%ILACLC %ILACLC %%ILACLR %ILACLR %%ILADIAG %ILADIAG %%ILADLC %ILADLC + %%ILADLR %ILADLR %%ILAENV %ILAENV %%ILAENV2STAGE %ILAENV2STAGE %%ILAPREC + %ILAPREC %%ILASLC %ILASLC)) + +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK + '(("DLASWP" "dlaswp_" %%DLASWP %DLASWP) + ("DLASY2" "dlasy2_" %%DLASY2 %DLASY2) + ("DLASYF" "dlasyf_" %%DLASYF %DLASYF) + ("DLASYF_AA" "dlasyf_aa_" %%DLASYF_AA + %DLASYF_AA) + ("DLASYF_RK" "dlasyf_rk_" %%DLASYF_RK + %DLASYF_RK) + ("DLASYF_ROOK" "dlasyf_rook_" + %%DLASYF_ROOK %DLASYF_ROOK) + ("DLAT2S" "dlat2s_" %%DLAT2S %DLAT2S) + ("DLATBS" "dlatbs_" %%DLATBS %DLATBS) + ("DLATDF" "dlatdf_" %%DLATDF %DLATDF) + ("DLATPS" "dlatps_" %%DLATPS %DLATPS) + ("DLATRD" "dlatrd_" %%DLATRD %DLATRD) + ("DLATRS" "dlatrs_" %%DLATRS %DLATRS) + ("DLATRZ" "dlatrz_" %%DLATRZ %DLATRZ) + ("DLATSQR" "dlatsqr_" %%DLATSQR + %DLATSQR) + ("DLAUU2" "dlauu2_" %%DLAUU2 %DLAUU2) + ("DLAUUM" "dlauum_" %%DLAUUM %DLAUUM) + ("DOPGTR" "dopgtr_" %%DOPGTR %DOPGTR) + ("DOPMTR" "dopmtr_" %%DOPMTR %DOPMTR) + ("DORBDB" "dorbdb_" %%DORBDB %DORBDB) + ("DORBDB1" "dorbdb1_" %%DORBDB1 + %DORBDB1) + ("DORBDB2" "dorbdb2_" %%DORBDB2 + %DORBDB2) + ("DORBDB3" "dorbdb3_" %%DORBDB3 + %DORBDB3) + ("DORBDB4" "dorbdb4_" %%DORBDB4 + %DORBDB4) + ("DORBDB5" "dorbdb5_" %%DORBDB5 + %DORBDB5) + ("DORBDB6" "dorbdb6_" %%DORBDB6 + %DORBDB6) + ("DORCSD" "dorcsd_" %%DORCSD %DORCSD) + ("DORCSD2BY1" "dorcsd2by1_" + %%DORCSD2BY1 %DORCSD2BY1) + ("DORG2L" "dorg2l_" %%DORG2L %DORG2L) + ("DORG2R" "dorg2r_" %%DORG2R %DORG2R) + ("DORGBR" "dorgbr_" %%DORGBR %DORGBR) + ("DORGHR" "dorghr_" %%DORGHR %DORGHR) + ("DORGL2" "dorgl2_" %%DORGL2 %DORGL2) + ("DORGLQ" "dorglq_" %%DORGLQ %DORGLQ) + ("DORGQL" "dorgql_" %%DORGQL %DORGQL) + ("DORGQR" "dorgqr_" %%DORGQR %DORGQR) + ("DORGR2" "dorgr2_" %%DORGR2 %DORGR2) + ("DORGRQ" "dorgrq_" %%DORGRQ %DORGRQ) + ("DORGTR" "dorgtr_" %%DORGTR %DORGTR) + ("DORGTSQR" "dorgtsqr_" %%DORGTSQR + %DORGTSQR) + ("DORHR_COL" "dorhr_col_" %%DORHR_COL + %DORHR_COL) + ("DORM22" "dorm22_" %%DORM22 %DORM22) + ("DORM2L" "dorm2l_" %%DORM2L %DORM2L) + ("DORM2R" "dorm2r_" %%DORM2R %DORM2R) + ("DORMBR" "dormbr_" %%DORMBR %DORMBR) + ("DORMHR" "dormhr_" %%DORMHR %DORMHR) + ("DORML2" "dorml2_" %%DORML2 %DORML2) + ("DORMLQ" "dormlq_" %%DORMLQ %DORMLQ) + ("DORMQL" "dormql_" %%DORMQL %DORMQL) + ("DORMQR" "dormqr_" %%DORMQR %DORMQR) + ("DORMR2" "dormr2_" %%DORMR2 %DORMR2) + ("DORMR3" "dormr3_" %%DORMR3 %DORMR3) + ("DORMRQ" "dormrq_" %%DORMRQ %DORMRQ) + ("DORMRZ" "dormrz_" %%DORMRZ %DORMRZ) + ("DORMTR" "dormtr_" %%DORMTR %DORMTR) + ("DPBCON" "dpbcon_" %%DPBCON %DPBCON) + ("DPBEQU" "dpbequ_" %%DPBEQU %DPBEQU) + ("DPBRFS" "dpbrfs_" %%DPBRFS %DPBRFS) + ("DPBSTF" "dpbstf_" %%DPBSTF %DPBSTF) + ("DPBSV" "dpbsv_" %%DPBSV %DPBSV) + ("DPBSVX" "dpbsvx_" %%DPBSVX %DPBSVX) + ("DPBTF2" "dpbtf2_" %%DPBTF2 %DPBTF2) + ("DPBTRF" "dpbtrf_" %%DPBTRF %DPBTRF) + ("DPBTRS" "dpbtrs_" %%DPBTRS %DPBTRS) + ("DPFTRF" "dpftrf_" %%DPFTRF %DPFTRF) + ("DPFTRI" "dpftri_" %%DPFTRI %DPFTRI) + ("DPFTRS" "dpftrs_" %%DPFTRS %DPFTRS) + ("DPOCON" "dpocon_" %%DPOCON %DPOCON) + ("DPOEQU" "dpoequ_" %%DPOEQU %DPOEQU) + ("DPOEQUB" "dpoequb_" %%DPOEQUB + %DPOEQUB) + ("DPORFS" "dporfs_" %%DPORFS %DPORFS) + ("DPORFSX" "dporfsx_" %%DPORFSX + %DPORFSX) + ("DPOSV" "dposv_" %%DPOSV %DPOSV) + ("DPOSVX" "dposvx_" %%DPOSVX %DPOSVX) + ("DPOSVXX" "dposvxx_" %%DPOSVXX + %DPOSVXX) + ("DPOTF2" "dpotf2_" %%DPOTF2 %DPOTF2) + ("DPOTRF" "dpotrf_" %%DPOTRF %DPOTRF) + ("DPOTRF2" "dpotrf2_" %%DPOTRF2 + %DPOTRF2) + ("DPOTRI" "dpotri_" %%DPOTRI %DPOTRI) + ("DPOTRS" "dpotrs_" %%DPOTRS %DPOTRS) + ("DPPCON" "dppcon_" %%DPPCON %DPPCON) + ("DPPEQU" "dppequ_" %%DPPEQU %DPPEQU) + ("DPPRFS" "dpprfs_" %%DPPRFS %DPPRFS) + ("DPPSV" "dppsv_" %%DPPSV %DPPSV) + ("DPPSVX" "dppsvx_" %%DPPSVX %DPPSVX) + ("DPPTRF" "dpptrf_" %%DPPTRF %DPPTRF) + ("DPPTRI" "dpptri_" %%DPPTRI %DPPTRI) + ("DPPTRS" "dpptrs_" %%DPPTRS %DPPTRS) + ("DPSTF2" "dpstf2_" %%DPSTF2 %DPSTF2) + ("DPSTRF" "dpstrf_" %%DPSTRF %DPSTRF) + ("DPTCON" "dptcon_" %%DPTCON %DPTCON) + ("DPTEQR" "dpteqr_" %%DPTEQR %DPTEQR) + ("DPTRFS" "dptrfs_" %%DPTRFS %DPTRFS) + ("DPTSV" "dptsv_" %%DPTSV %DPTSV) + ("DPTSVX" "dptsvx_" %%DPTSVX %DPTSVX) + ("DPTTRF" "dpttrf_" %%DPTTRF %DPTTRF) + ("DPTTRS" "dpttrs_" %%DPTTRS %DPTTRS) + ("DPTTS2" "dptts2_" %%DPTTS2 %DPTTS2) + ("DRSCL" "drscl_" %%DRSCL %DRSCL) + ("DSB2ST_KERNELS" "dsb2st_kernels_" + %%DSB2ST_KERNELS %DSB2ST_KERNELS) + ("DSBEV" "dsbev_" %%DSBEV %DSBEV) + ("DSBEV_2STAGE" "dsbev_2stage_" + %%DSBEV_2STAGE %DSBEV_2STAGE) + ("DSBEVD" "dsbevd_" %%DSBEVD %DSBEVD) + ("DSBEVD_2STAGE" "dsbevd_2stage_" + %%DSBEVD_2STAGE %DSBEVD_2STAGE) + ("DSBEVX" "dsbevx_" %%DSBEVX %DSBEVX) + ("DSBEVX_2STAGE" "dsbevx_2stage_" + %%DSBEVX_2STAGE %DSBEVX_2STAGE) + ("DSBGST" "dsbgst_" %%DSBGST %DSBGST) + ("DSBGV" "dsbgv_" %%DSBGV %DSBGV) + ("DSBGVD" "dsbgvd_" %%DSBGVD %DSBGVD) + ("DSBGVX" "dsbgvx_" %%DSBGVX %DSBGVX) + ("DSBTRD" "dsbtrd_" %%DSBTRD %DSBTRD) + ("DSFRK" "dsfrk_" %%DSFRK %DSFRK) + ("DSGESV" "dsgesv_" %%DSGESV %DSGESV) + ("DSPCON" "dspcon_" %%DSPCON %DSPCON) + ("DSPEV" "dspev_" %%DSPEV %DSPEV) + ("DSPEVD" "dspevd_" %%DSPEVD %DSPEVD) + ("DSPEVX" "dspevx_" %%DSPEVX %DSPEVX) + ("DSPGST" "dspgst_" %%DSPGST %DSPGST) + ("DSPGV" "dspgv_" %%DSPGV %DSPGV) + ("DSPGVD" "dspgvd_" %%DSPGVD %DSPGVD) + ("DSPGVX" "dspgvx_" %%DSPGVX %DSPGVX) + ("DSPOSV" "dsposv_" %%DSPOSV %DSPOSV) + ("DSPRFS" "dsprfs_" %%DSPRFS %DSPRFS) + ("DSPSV" "dspsv_" %%DSPSV %DSPSV) + ("DSPSVX" "dspsvx_" %%DSPSVX %DSPSVX) + ("DSPTRD" "dsptrd_" %%DSPTRD %DSPTRD) + ("DSPTRF" "dsptrf_" %%DSPTRF %DSPTRF) + ("DSPTRI" "dsptri_" %%DSPTRI %DSPTRI) + ("DSPTRS" "dsptrs_" %%DSPTRS %DSPTRS) + ("DSTEBZ" "dstebz_" %%DSTEBZ %DSTEBZ) + ("DSTEDC" "dstedc_" %%DSTEDC %DSTEDC) + ("DSTEGR" "dstegr_" %%DSTEGR %DSTEGR) + ("DSTEIN" "dstein_" %%DSTEIN %DSTEIN) + ("DSTEMR" "dstemr_" %%DSTEMR %DSTEMR) + ("DSTEQR" "dsteqr_" %%DSTEQR %DSTEQR) + ("DSTERF" "dsterf_" %%DSTERF %DSTERF) + ("DSTEV" "dstev_" %%DSTEV %DSTEV) + ("DSTEVD" "dstevd_" %%DSTEVD %DSTEVD) + ("DSTEVR" "dstevr_" %%DSTEVR %DSTEVR) + ("DSTEVX" "dstevx_" %%DSTEVX %DSTEVX) + ("DSYCON" "dsycon_" %%DSYCON %DSYCON) + ("DSYCON_3" "dsycon_3_" %%DSYCON_3 + %DSYCON_3) + ("DSYCON_ROOK" "dsycon_rook_" + %%DSYCON_ROOK %DSYCON_ROOK) + ("DSYCONV" "dsyconv_" %%DSYCONV + %DSYCONV) + ("DSYCONVF" "dsyconvf_" %%DSYCONVF + %DSYCONVF) + ("DSYCONVF_ROOK" "dsyconvf_rook_" + %%DSYCONVF_ROOK %DSYCONVF_ROOK) + ("DSYEQUB" "dsyequb_" %%DSYEQUB + %DSYEQUB) + ("DSYEV" "dsyev_" %%DSYEV %DSYEV) + ("DSYEV_2STAGE" "dsyev_2stage_" + %%DSYEV_2STAGE %DSYEV_2STAGE) + ("DSYEVD" "dsyevd_" %%DSYEVD %DSYEVD) + ("DSYEVD_2STAGE" "dsyevd_2stage_" + %%DSYEVD_2STAGE %DSYEVD_2STAGE) + ("DSYEVR" "dsyevr_" %%DSYEVR %DSYEVR) + ("DSYEVR_2STAGE" "dsyevr_2stage_" + %%DSYEVR_2STAGE %DSYEVR_2STAGE) + ("DSYEVX" "dsyevx_" %%DSYEVX %DSYEVX) + ("DSYEVX_2STAGE" "dsyevx_2stage_" + %%DSYEVX_2STAGE %DSYEVX_2STAGE) + ("DSYGS2" "dsygs2_" %%DSYGS2 %DSYGS2) + ("DSYGST" "dsygst_" %%DSYGST %DSYGST) + ("DSYGV" "dsygv_" %%DSYGV %DSYGV) + ("DSYGV_2STAGE" "dsygv_2stage_" + %%DSYGV_2STAGE %DSYGV_2STAGE) + ("DSYGVD" "dsygvd_" %%DSYGVD %DSYGVD) + ("DSYGVX" "dsygvx_" %%DSYGVX %DSYGVX) + ("DSYRFS" "dsyrfs_" %%DSYRFS %DSYRFS) + ("DSYRFSX" "dsyrfsx_" %%DSYRFSX + %DSYRFSX) + ("DSYSV" "dsysv_" %%DSYSV %DSYSV) + ("DSYSV_AA" "dsysv_aa_" %%DSYSV_AA + %DSYSV_AA) + ("DSYSV_AA_2STAGE" "dsysv_aa_2stage_" + %%DSYSV_AA_2STAGE %DSYSV_AA_2STAGE) + ("DSYSV_RK" "dsysv_rk_" %%DSYSV_RK + %DSYSV_RK) + ("DSYSV_ROOK" "dsysv_rook_" + %%DSYSV_ROOK %DSYSV_ROOK) + ("DSYSVX" "dsysvx_" %%DSYSVX %DSYSVX) + ("DSYSVXX" "dsysvxx_" %%DSYSVXX + %DSYSVXX) + ("DSYSWAPR" "dsyswapr_" %%DSYSWAPR + %DSYSWAPR) + ("DSYTD2" "dsytd2_" %%DSYTD2 %DSYTD2) + ("DSYTF2" "dsytf2_" %%DSYTF2 %DSYTF2) + ("DSYTF2_RK" "dsytf2_rk_" %%DSYTF2_RK + %DSYTF2_RK) + ("DSYTF2_ROOK" "dsytf2_rook_" + %%DSYTF2_ROOK %DSYTF2_ROOK) + ("DSYTRD" "dsytrd_" %%DSYTRD %DSYTRD) + ("DSYTRD_2STAGE" "dsytrd_2stage_" + %%DSYTRD_2STAGE %DSYTRD_2STAGE) + ("DSYTRD_SY2SB" "dsytrd_sy2sb_" + %%DSYTRD_SY2SB %DSYTRD_SY2SB) + ("DSYTRF" "dsytrf_" %%DSYTRF %DSYTRF) + ("DSYTRF_AA" "dsytrf_aa_" %%DSYTRF_AA + %DSYTRF_AA) + ("DSYTRF_AA_2STAGE" + "dsytrf_aa_2stage_" + %%DSYTRF_AA_2STAGE + %DSYTRF_AA_2STAGE) + ("DSYTRF_RK" "dsytrf_rk_" %%DSYTRF_RK + %DSYTRF_RK) + ("DSYTRF_ROOK" "dsytrf_rook_" + %%DSYTRF_ROOK %DSYTRF_ROOK) + ("DSYTRI" "dsytri_" %%DSYTRI %DSYTRI) + ("DSYTRI2" "dsytri2_" %%DSYTRI2 + %DSYTRI2) + ("DSYTRI2X" "dsytri2x_" %%DSYTRI2X + %DSYTRI2X) + ("DSYTRI_3" "dsytri_3_" %%DSYTRI_3 + %DSYTRI_3) + ("DSYTRI_3X" "dsytri_3x_" %%DSYTRI_3X + %DSYTRI_3X) + ("DSYTRI_ROOK" "dsytri_rook_" + %%DSYTRI_ROOK %DSYTRI_ROOK) + ("DSYTRS" "dsytrs_" %%DSYTRS %DSYTRS) + ("DSYTRS2" "dsytrs2_" %%DSYTRS2 + %DSYTRS2) + ("DSYTRS_3" "dsytrs_3_" %%DSYTRS_3 + %DSYTRS_3) + ("DSYTRS_AA" "dsytrs_aa_" %%DSYTRS_AA + %DSYTRS_AA) + ("DSYTRS_AA_2STAGE" + "dsytrs_aa_2stage_" + %%DSYTRS_AA_2STAGE + %DSYTRS_AA_2STAGE) + ("DSYTRS_ROOK" "dsytrs_rook_" + %%DSYTRS_ROOK %DSYTRS_ROOK) + ("DTBCON" "dtbcon_" %%DTBCON %DTBCON) + ("DTBRFS" "dtbrfs_" %%DTBRFS %DTBRFS) + ("DTBTRS" "dtbtrs_" %%DTBTRS %DTBTRS) + ("DTFSM" "dtfsm_" %%DTFSM %DTFSM) + ("DTFTRI" "dtftri_" %%DTFTRI %DTFTRI) + ("DTFTTP" "dtfttp_" %%DTFTTP %DTFTTP) + ("DTFTTR" "dtfttr_" %%DTFTTR %DTFTTR) + ("DTGEVC" "dtgevc_" %%DTGEVC %DTGEVC) + ("DTGEX2" "dtgex2_" %%DTGEX2 %DTGEX2) + ("DTGEXC" "dtgexc_" %%DTGEXC %DTGEXC) + ("DTGSEN" "dtgsen_" %%DTGSEN %DTGSEN) + ("DTGSJA" "dtgsja_" %%DTGSJA %DTGSJA) + ("DTGSNA" "dtgsna_" %%DTGSNA %DTGSNA) + ("DTGSY2" "dtgsy2_" %%DTGSY2 %DTGSY2) + ("DTGSYL" "dtgsyl_" %%DTGSYL %DTGSYL) + ("DTPCON" "dtpcon_" %%DTPCON %DTPCON) + ("DTPLQT" "dtplqt_" %%DTPLQT %DTPLQT) + ("DTPLQT2" "dtplqt2_" %%DTPLQT2 + %DTPLQT2) + ("DTPMLQT" "dtpmlqt_" %%DTPMLQT + %DTPMLQT) + ("DTPMQRT" "dtpmqrt_" %%DTPMQRT + %DTPMQRT) + ("DTPQRT" "dtpqrt_" %%DTPQRT %DTPQRT) + ("DTPQRT2" "dtpqrt2_" %%DTPQRT2 + %DTPQRT2) + ("DTPRFB" "dtprfb_" %%DTPRFB %DTPRFB) + ("DTPRFS" "dtprfs_" %%DTPRFS %DTPRFS) + ("DTPTRI" "dtptri_" %%DTPTRI %DTPTRI) + ("DTPTRS" "dtptrs_" %%DTPTRS %DTPTRS) + ("DTPTTF" "dtpttf_" %%DTPTTF %DTPTTF) + ("DTPTTR" "dtpttr_" %%DTPTTR %DTPTTR) + ("DTRCON" "dtrcon_" %%DTRCON %DTRCON) + ("DTREVC" "dtrevc_" %%DTREVC %DTREVC) + ("DTREVC3" "dtrevc3_" %%DTREVC3 + %DTREVC3) + ("DTREXC" "dtrexc_" %%DTREXC %DTREXC) + ("DTRRFS" "dtrrfs_" %%DTRRFS %DTRRFS) + ("DTRSEN" "dtrsen_" %%DTRSEN %DTRSEN) + ("DTRSNA" "dtrsna_" %%DTRSNA %DTRSNA) + ("DTRSYL" "dtrsyl_" %%DTRSYL %DTRSYL) + ("DTRTI2" "dtrti2_" %%DTRTI2 %DTRTI2) + ("DTRTRI" "dtrtri_" %%DTRTRI %DTRTRI) + ("DTRTRS" "dtrtrs_" %%DTRTRS %DTRTRS) + ("DTRTTF" "dtrttf_" %%DTRTTF %DTRTTF) + ("DTRTTP" "dtrttp_" %%DTRTTP %DTRTTP) + ("DTZRZF" "dtzrzf_" %%DTZRZF %DTZRZF) + ("DZSUM1" "dzsum1_" %%DZSUM1 %DZSUM1) + ("ICMAX1" "icmax1_" %%ICMAX1 %ICMAX1) + ("IEEECK" "ieeeck_" %%IEEECK %IEEECK) + ("ILACLC" "ilaclc_" %%ILACLC %ILACLC) + ("ILACLR" "ilaclr_" %%ILACLR %ILACLR) + ("ILADIAG" "iladiag_" %%ILADIAG + %ILADIAG) + ("ILADLC" "iladlc_" %%ILADLC %ILADLC) + ("ILADLR" "iladlr_" %%ILADLR %ILADLR) + ("ILAENV" "ilaenv_" %%ILAENV %ILAENV) + ("ILAENV2STAGE" "ilaenv2stage_" + %%ILAENV2STAGE %ILAENV2STAGE) + ("ILAPREC" "ilaprec_" %%ILAPREC + %ILAPREC) + ("ILASLC" "ilaslc_" %%ILASLC + %ILASLC))) (COMMON-LISP:EXPORT '(%DLASWP %DLASY2 %DLASYF %DLASYF_AA %DLASYF_RK %DLASYF_ROOK %DLAT2S %DLATBS - %DLATDF %DLATPS %DLATRD %DLATRS %DLATRZ %DLATSQR %DLAUU2 %DLAUUM - %DOPGTR %DOPMTR %DORBDB %DORBDB1 %DORBDB2 %DORBDB3 %DORBDB4 %DORBDB5 - %DORBDB6 %DORCSD %DORCSD2BY1 %DORG2L %DORG2R %DORGBR %DORGHR %DORGL2 - %DORGLQ %DORGQL %DORGQR %DORGR2 %DORGRQ %DORGTR %DORM22 %DORM2L - %DORM2R %DORMBR %DORMHR %DORML2 %DORMLQ %DORMQL %DORMQR %DORMR2 - %DORMR3 %DORMRQ %DORMRZ %DORMTR %DPBCON %DPBEQU %DPBRFS %DPBSTF - %DPBSV %DPBSVX %DPBTF2 %DPBTRF %DPBTRS %DPFTRF %DPFTRI %DPFTRS - %DPOCON %DPOEQU %DPOEQUB %DPORFS %DPORFSX %DPOSV %DPOSVX %DPOSVXX - %DPOTF2 %DPOTRF %DPOTRF2 %DPOTRI %DPOTRS %DPPCON %DPPEQU %DPPRFS - %DPPSV %DPPSVX %DPPTRF %DPPTRI %DPPTRS %DPSTF2 %DPSTRF %DPTCON - %DPTEQR %DPTRFS %DPTSV %DPTSVX %DPTTRF %DPTTRS %DPTTS2 %DRSCL - %DSB2ST_KERNELS %DSBEV %DSBEV_2STAGE %DSBEVD %DSBEVD_2STAGE %DSBEVX - %DSBEVX_2STAGE %DSBGST %DSBGV %DSBGVD %DSBGVX %DSBTRD %DSFRK %DSGESV - %DSPCON %DSPEV %DSPEVD %DSPEVX %DSPGST %DSPGV %DSPGVD %DSPGVX - %DSPOSV %DSPRFS %DSPSV %DSPSVX %DSPTRD %DSPTRF %DSPTRI %DSPTRS - %DSTEBZ %DSTEDC %DSTEGR %DSTEIN %DSTEMR %DSTEQR %DSTERF %DSTEV - %DSTEVD %DSTEVR %DSTEVX %DSYCON %DSYCON_3 %DSYCON_ROOK %DSYCONV - %DSYCONVF %DSYCONVF_ROOK %DSYEQUB %DSYEV %DSYEV_2STAGE %DSYEVD - %DSYEVD_2STAGE %DSYEVR %DSYEVR_2STAGE %DSYEVX %DSYEVX_2STAGE %DSYGS2 - %DSYGST %DSYGV %DSYGV_2STAGE %DSYGVD %DSYGVX %DSYRFS %DSYRFSX %DSYSV - %DSYSV_AA %DSYSV_AA_2STAGE %DSYSV_RK %DSYSV_ROOK %DSYSVX %DSYSVXX - %DSYSWAPR %DSYTD2 %DSYTF2 %DSYTF2_RK %DSYTF2_ROOK %DSYTRD - %DSYTRD_2STAGE %DSYTRD_SY2SB %DSYTRF %DSYTRF_AA %DSYTRF_AA_2STAGE - %DSYTRF_RK %DSYTRF_ROOK %DSYTRI %DSYTRI2 %DSYTRI2X %DSYTRI_3 - %DSYTRI_3X %DSYTRI_ROOK %DSYTRS %DSYTRS2 %DSYTRS_3 %DSYTRS_AA - %DSYTRS_AA_2STAGE %DSYTRS_ROOK %DTBCON %DTBRFS %DTBTRS %DTFSM - %DTFTRI %DTFTTP %DTFTTR %DTGEVC %DTGEX2 %DTGEXC %DTGSEN %DTGSJA - %DTGSNA %DTGSY2 %DTGSYL %DTPCON %DTPLQT %DTPLQT2 %DTPMLQT %DTPMQRT - %DTPQRT %DTPQRT2 %DTPRFB %DTPRFS %DTPTRI %DTPTRS %DTPTTF %DTPTTR - %DTRCON %DTREVC %DTREVC3 %DTREXC %DTRRFS %DTRSEN %DTRSNA %DTRSYL - %DTRTI2 %DTRTRI %DTRTRS %DTRTTF %DTRTTP %DTZRZF %DZSUM1 %ICMAX1 - %IEEECK %ILACLC %ILACLR %ILADIAG %ILADLC %ILADLR %ILAENV - %ILAENV2STAGE %ILAPREC %ILASLC) + %DLATDF %DLATPS %DLATRD %DLATRS %DLATRZ %DLATSQR %DLAUU2 %DLAUUM %DOPGTR + %DOPMTR %DORBDB %DORBDB1 %DORBDB2 %DORBDB3 %DORBDB4 %DORBDB5 %DORBDB6 + %DORCSD %DORCSD2BY1 %DORG2L %DORG2R %DORGBR %DORGHR %DORGL2 %DORGLQ %DORGQL + %DORGQR %DORGR2 %DORGRQ %DORGTR %DORGTSQR %DORHR_COL %DORM22 %DORM2L %DORM2R + %DORMBR %DORMHR %DORML2 %DORMLQ %DORMQL %DORMQR %DORMR2 %DORMR3 %DORMRQ + %DORMRZ %DORMTR %DPBCON %DPBEQU %DPBRFS %DPBSTF %DPBSV %DPBSVX %DPBTF2 + %DPBTRF %DPBTRS %DPFTRF %DPFTRI %DPFTRS %DPOCON %DPOEQU %DPOEQUB %DPORFS + %DPORFSX %DPOSV %DPOSVX %DPOSVXX %DPOTF2 %DPOTRF %DPOTRF2 %DPOTRI %DPOTRS + %DPPCON %DPPEQU %DPPRFS %DPPSV %DPPSVX %DPPTRF %DPPTRI %DPPTRS %DPSTF2 + %DPSTRF %DPTCON %DPTEQR %DPTRFS %DPTSV %DPTSVX %DPTTRF %DPTTRS %DPTTS2 + %DRSCL %DSB2ST_KERNELS %DSBEV %DSBEV_2STAGE %DSBEVD %DSBEVD_2STAGE %DSBEVX + %DSBEVX_2STAGE %DSBGST %DSBGV %DSBGVD %DSBGVX %DSBTRD %DSFRK %DSGESV %DSPCON + %DSPEV %DSPEVD %DSPEVX %DSPGST %DSPGV %DSPGVD %DSPGVX %DSPOSV %DSPRFS %DSPSV + %DSPSVX %DSPTRD %DSPTRF %DSPTRI %DSPTRS %DSTEBZ %DSTEDC %DSTEGR %DSTEIN + %DSTEMR %DSTEQR %DSTERF %DSTEV %DSTEVD %DSTEVR %DSTEVX %DSYCON %DSYCON_3 + %DSYCON_ROOK %DSYCONV %DSYCONVF %DSYCONVF_ROOK %DSYEQUB %DSYEV %DSYEV_2STAGE + %DSYEVD %DSYEVD_2STAGE %DSYEVR %DSYEVR_2STAGE %DSYEVX %DSYEVX_2STAGE %DSYGS2 + %DSYGST %DSYGV %DSYGV_2STAGE %DSYGVD %DSYGVX %DSYRFS %DSYRFSX %DSYSV + %DSYSV_AA %DSYSV_AA_2STAGE %DSYSV_RK %DSYSV_ROOK %DSYSVX %DSYSVXX %DSYSWAPR + %DSYTD2 %DSYTF2 %DSYTF2_RK %DSYTF2_ROOK %DSYTRD %DSYTRD_2STAGE %DSYTRD_SY2SB + %DSYTRF %DSYTRF_AA %DSYTRF_AA_2STAGE %DSYTRF_RK %DSYTRF_ROOK %DSYTRI + %DSYTRI2 %DSYTRI2X %DSYTRI_3 %DSYTRI_3X %DSYTRI_ROOK %DSYTRS %DSYTRS2 + %DSYTRS_3 %DSYTRS_AA %DSYTRS_AA_2STAGE %DSYTRS_ROOK %DTBCON %DTBRFS %DTBTRS + %DTFSM %DTFTRI %DTFTTP %DTFTTR %DTGEVC %DTGEX2 %DTGEXC %DTGSEN %DTGSJA + %DTGSNA %DTGSY2 %DTGSYL %DTPCON %DTPLQT %DTPLQT2 %DTPMLQT %DTPMQRT %DTPQRT + %DTPQRT2 %DTPRFB %DTPRFS %DTPTRI %DTPTRS %DTPTTF %DTPTTR %DTRCON %DTREVC + %DTREVC3 %DTREXC %DTRRFS %DTRSEN %DTRSNA %DTRSYL %DTRTI2 %DTRTRI %DTRTRS + %DTRTTF %DTRTTP %DTZRZF %DZSUM1 %ICMAX1 %IEEECK %ILACLC %ILACLR %ILADIAG + %ILADLC %ILADLR %ILAENV %ILAENV2STAGE %ILAPREC %ILASLC) '#:MAGICL.LAPACK-CFFI) ;;; End of file. diff --git a/src/bindings/lapack04-cffi.lisp b/src/bindings/lapack04-cffi.lisp index 7d3bdd8a..f761381b 100644 --- a/src/bindings/lapack04-cffi.lisp +++ b/src/bindings/lapack04-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 5/21/2019 at 13:37:09 (UTC+1). +;;;; Generated on 3/22/2021 at 17:54:19 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -53,23 +53,24 @@ %%SLAMSWLQ %SLAMSWLQ %%SLAMTSQR %SLAMTSQR %%SLANEG %SLANEG %%SLANGB %SLANGB %%SLANGE %SLANGE %%SLANGT %SLANGT %%SLANHS %SLANHS %%SLANSB %SLANSB %%SLANSF %SLANSF %%SLANSP %SLANSP %%SLANST %SLANST %%SLANSY %SLANSY %%SLANTB %SLANTB - %%SLANTP %SLANTP %%SLANTR %SLANTR %%SLANV2 %SLANV2 %%SLAPLL %SLAPLL %%SLAPMR - %SLAPMR %%SLAPMT %SLAPMT %%SLAPY2 %SLAPY2 %%SLAPY3 %SLAPY3 %%SLAQGB %SLAQGB - %%SLAQGE %SLAQGE %%SLAQP2 %SLAQP2 %%SLAQPS %SLAQPS %%SLAQR0 %SLAQR0 %%SLAQR1 - %SLAQR1 %%SLAQR2 %SLAQR2 %%SLAQR3 %SLAQR3 %%SLAQR4 %SLAQR4 %%SLAQR5 %SLAQR5 - %%SLAQSB %SLAQSB %%SLAQSP %SLAQSP %%SLAQSY %SLAQSY %%SLAQTR %SLAQTR %%SLAR1V - %SLAR1V %%SLAR2V %SLAR2V %%SLARF %SLARF %%SLARFB %SLARFB %%SLARFG %SLARFG - %%SLARFGP %SLARFGP %%SLARFT %SLARFT %%SLARFX %SLARFX %%SLARFY %SLARFY - %%SLARGV %SLARGV %%SLARNV %SLARNV %%SLARRA %SLARRA %%SLARRB %SLARRB %%SLARRC - %SLARRC %%SLARRD %SLARRD %%SLARRE %SLARRE %%SLARRF %SLARRF %%SLARRJ %SLARRJ - %%SLARRK %SLARRK %%SLARRR %SLARRR %%SLARRV %SLARRV %%SLARSCL2 %SLARSCL2 - %%SLARTG %SLARTG %%SLARTGP %SLARTGP %%SLARTGS %SLARTGS %%SLARTV %SLARTV - %%SLARUV %SLARUV %%SLARZ %SLARZ %%SLARZB %SLARZB %%SLARZT %SLARZT %%SLAS2 - %SLAS2 %%SLASCL %SLASCL %%SLASCL2 %SLASCL2 %%SLASD0 %SLASD0 %%SLASD1 %SLASD1 - %%SLASD2 %SLASD2 %%SLASD3 %SLASD3 %%SLASD4 %SLASD4 %%SLASD5 %SLASD5 %%SLASD6 - %SLASD6 %%SLASD7 %SLASD7 %%SLASD8 %SLASD8)) - -(CFFI:DEFCFUN ("ilaslr_" %%ILASLR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + %%SLANTP %SLANTP %%SLANTR %SLANTR %%SLANV2 %SLANV2 %%SLAORHR_COL_GETRFNP + %SLAORHR_COL_GETRFNP %%SLAORHR_COL_GETRFNP2 %SLAORHR_COL_GETRFNP2 %%SLAPLL + %SLAPLL %%SLAPMR %SLAPMR %%SLAPMT %SLAPMT %%SLAPY2 %SLAPY2 %%SLAPY3 %SLAPY3 + %%SLAQGB %SLAQGB %%SLAQGE %SLAQGE %%SLAQP2 %SLAQP2 %%SLAQPS %SLAQPS %%SLAQR0 + %SLAQR0 %%SLAQR1 %SLAQR1 %%SLAQR2 %SLAQR2 %%SLAQR3 %SLAQR3 %%SLAQR4 %SLAQR4 + %%SLAQR5 %SLAQR5 %%SLAQSB %SLAQSB %%SLAQSP %SLAQSP %%SLAQSY %SLAQSY %%SLAQTR + %SLAQTR %%SLAR1V %SLAR1V %%SLAR2V %SLAR2V %%SLARF %SLARF %%SLARFB %SLARFB + %%SLARFG %SLARFG %%SLARFGP %SLARFGP %%SLARFT %SLARFT %%SLARFX %SLARFX + %%SLARFY %SLARFY %%SLARGV %SLARGV %%SLARNV %SLARNV %%SLARRA %SLARRA %%SLARRB + %SLARRB %%SLARRC %SLARRC %%SLARRD %SLARRD %%SLARRE %SLARRE %%SLARRF %SLARRF + %%SLARRJ %SLARRJ %%SLARRK %SLARRK %%SLARRR %SLARRR %%SLARRV %SLARRV + %%SLARSCL2 %SLARSCL2 %%SLARTG %SLARTG %%SLARTGP %SLARTGP %%SLARTGS %SLARTGS + %%SLARTV %SLARTV %%SLARUV %SLARUV %%SLARZ %SLARZ %%SLARZB %SLARZB %%SLARZT + %SLARZT %%SLAS2 %SLAS2 %%SLASCL %SLASCL %%SLASCL2 %SLASCL2 %%SLASD0 %SLASD0 + %%SLASD1 %SLASD1 %%SLASD2 %SLASD2 %%SLASD3 %SLASD3 %%SLASD4 %SLASD4 %%SLASD5 + %SLASD5 %%SLASD6 %SLASD6 %%SLASD7 %SLASD7 %%SLASD8 %SLASD8)) + +(CFFI:DEFCFUN ("ilaslr_" %%ILASLR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (M :POINTER) (N :POINTER) @@ -83,16 +84,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11652 ':INT32) (N-REF11653 ':INT32) - (LDA-REF11655 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11652 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11653 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11655 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11654 A)) - (%%ILASLR M-REF11652 N-REF11653 A-REF11654 LDA-REF11655)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11635 ':INT32) (N-REF11636 ':INT32) + (LDA-REF11638 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11635 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11636 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11638 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11637 A)) + (%%ILASLR M-REF11635 N-REF11636 A-REF11637 LDA-REF11638)))) (CFFI:DEFCFUN ("ilatrans_" %%ILATRANS :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (TRANS :STRING)) @@ -103,7 +104,8 @@ (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL (%%ILATRANS TRANS)))) -(CFFI:DEFCFUN ("ilauplo_" %%ILAUPLO :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ilauplo_" %%ILAUPLO :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (UPLO :STRING)) @@ -114,7 +116,7 @@ (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL (%%ILAUPLO UPLO)))) -(CFFI:DEFCFUN ("ilazlc_" %%ILAZLC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ilazlc_" %%ILAZLC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (M :POINTER) (N :POINTER) @@ -131,15 +133,15 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11658 ':INT32) (N-REF11659 ':INT32) - (LDA-REF11661 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11658 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11659 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11661 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11660 A)) - (%%ILAZLC M-REF11658 N-REF11659 A-REF11660 LDA-REF11661)))) - -(CFFI:DEFCFUN ("ilazlr_" %%ILAZLR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11641 ':INT32) (N-REF11642 ':INT32) + (LDA-REF11644 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11641 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11642 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11644 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11643 A)) + (%%ILAZLC M-REF11641 N-REF11642 A-REF11643 LDA-REF11644)))) + +(CFFI:DEFCFUN ("ilazlr_" %%ILAZLR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (M :POINTER) (N :POINTER) @@ -156,15 +158,15 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11662 ':INT32) (N-REF11663 ':INT32) - (LDA-REF11665 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11662 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11663 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11665 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11664 A)) - (%%ILAZLR M-REF11662 N-REF11663 A-REF11664 LDA-REF11665)))) - -(CFFI:DEFCFUN ("iparmq_" %%IPARMQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11645 ':INT32) (N-REF11646 ':INT32) + (LDA-REF11648 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11645 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11646 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11648 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11647 A)) + (%%ILAZLR M-REF11645 N-REF11646 A-REF11647 LDA-REF11648)))) + +(CFFI:DEFCFUN ("iparmq_" %%IPARMQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (ISPEC :POINTER) (NAME :STRING) @@ -183,19 +185,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11666 ':INT32) (N-REF11669 ':INT32) - (ILO-REF11670 ':INT32) (IHI-REF11671 ':INT32) - (LWORK-REF11672 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11666 :INT32) ISPEC) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11669 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11670 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11671 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11672 :INT32) LWORK) + (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF11649 ':INT32) (N-REF11652 ':INT32) + (ILO-REF11653 ':INT32) (IHI-REF11654 ':INT32) + (LWORK-REF11655 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF11649 :INT32) ISPEC) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11652 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11653 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11654 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11655 :INT32) LWORK) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%IPARMQ ISPEC-REF11666 NAME OPTS N-REF11669 ILO-REF11670 IHI-REF11671 - LWORK-REF11672)))) + (%%IPARMQ ISPEC-REF11649 NAME OPTS N-REF11652 ILO-REF11653 IHI-REF11654 + LWORK-REF11655)))) -(CFFI:DEFCFUN ("izmax1_" %%IZMAX1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("izmax1_" %%IZMAX1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (N :POINTER) (ZX :POINTER) @@ -210,13 +212,13 @@ (COMMON-LISP:*)) ZX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11673 ':INT32) (INCX-REF11675 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11673 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11675 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF11674 ZX)) - (%%IZMAX1 N-REF11673 ZX-REF11674 INCX-REF11675)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11656 ':INT32) (INCX-REF11658 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11656 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11658 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF11657 ZX)) + (%%IZMAX1 N-REF11656 ZX-REF11657 INCX-REF11658)))) -(CFFI:DEFCFUN ("lsamen_" %%LSAMEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("lsamen_" %%LSAMEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (N :POINTER) (CA :STRING) @@ -227,12 +229,12 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) (COMMON-LISP:TYPE COMMON-LISP:STRING CA) (COMMON-LISP:TYPE COMMON-LISP:STRING CB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11676 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11676 :INT32) N) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11659 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11659 :INT32) N) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%LSAMEN N-REF11676 CA CB)))) + (%%LSAMEN N-REF11659 CA CB)))) -(CFFI:DEFCFUN ("sbbcsd_" %%SBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sbbcsd_" %%SBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -326,42 +328,41 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11684 ':INT32) (P-REF11685 ':INT32) - (Q-REF11686 ':INT32) (LDU1-REF11690 ':INT32) - (LDU2-REF11692 ':INT32) (LDV1T-REF11694 ':INT32) - (LDV2T-REF11696 ':INT32) (LWORK-REF11706 ':INT32) - (INFO-REF11707 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11684 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF11685 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF11686 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF11690 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF11692 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF11694 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF11696 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11706 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11707 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF11687 THETA) - (PHI-REF11688 PHI) (U1-REF11689 U1) - (U2-REF11691 U2) (V1T-REF11693 V1T) - (V2T-REF11695 V2T) - (B11D-REF11697 B11D) - (B11E-REF11698 B11E) - (B12D-REF11699 B12D) - (B12E-REF11700 B12E) - (B21D-REF11701 B21D) - (B21E-REF11702 B21E) - (B22D-REF11703 B22D) - (B22E-REF11704 B22E) - (WORK-REF11705 WORK)) - (%%SBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF11684 P-REF11685 - Q-REF11686 THETA-REF11687 PHI-REF11688 U1-REF11689 - LDU1-REF11690 U2-REF11691 LDU2-REF11692 V1T-REF11693 - LDV1T-REF11694 V2T-REF11695 LDV2T-REF11696 B11D-REF11697 - B11E-REF11698 B12D-REF11699 B12E-REF11700 B21D-REF11701 - B21E-REF11702 B22D-REF11703 B22E-REF11704 WORK-REF11705 - LWORK-REF11706 INFO-REF11707)))) - -(CFFI:DEFCFUN ("sbdsdc_" %%SBDSDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11667 ':INT32) (P-REF11668 ':INT32) + (Q-REF11669 ':INT32) (LDU1-REF11673 ':INT32) + (LDU2-REF11675 ':INT32) (LDV1T-REF11677 ':INT32) + (LDV2T-REF11679 ':INT32) (LWORK-REF11689 ':INT32) + (INFO-REF11690 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11667 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF11668 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF11669 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF11673 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF11675 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF11677 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF11679 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11689 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11690 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF11670 THETA) + (PHI-REF11671 PHI) (U1-REF11672 U1) + (U2-REF11674 U2) (V1T-REF11676 V1T) + (V2T-REF11678 V2T) + (B11D-REF11680 B11D) + (B11E-REF11681 B11E) + (B12D-REF11682 B12D) + (B12E-REF11683 B12E) + (B21D-REF11684 B21D) + (B21E-REF11685 B21E) + (B22D-REF11686 B22D) + (B22E-REF11687 B22E) + (WORK-REF11688 WORK)) + (%%SBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF11667 P-REF11668 + Q-REF11669 THETA-REF11670 PHI-REF11671 U1-REF11672 LDU1-REF11673 + U2-REF11674 LDU2-REF11675 V1T-REF11676 LDV1T-REF11677 V2T-REF11678 + LDV2T-REF11679 B11D-REF11680 B11E-REF11681 B12D-REF11682 B12E-REF11683 + B21D-REF11684 B21E-REF11685 B22D-REF11686 B22E-REF11687 WORK-REF11688 + LWORK-REF11689 INFO-REF11690)))) + +(CFFI:DEFCFUN ("sbdsdc_" %%SBDSDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (COMPQ :STRING) @@ -408,22 +409,22 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11710 ':INT32) (LDU-REF11714 ':INT32) - (LDVT-REF11716 ':INT32) (INFO-REF11721 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11710 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11714 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF11716 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11721 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11711 D) (E-REF11712 E) - (U-REF11713 U) (VT-REF11715 VT) - (Q-REF11717 Q) (IQ-REF11718 IQ) - (WORK-REF11719 WORK) - (IWORK-REF11720 IWORK)) - (%%SBDSDC UPLO COMPQ N-REF11710 D-REF11711 E-REF11712 U-REF11713 - LDU-REF11714 VT-REF11715 LDVT-REF11716 Q-REF11717 IQ-REF11718 - WORK-REF11719 IWORK-REF11720 INFO-REF11721)))) - -(CFFI:DEFCFUN ("sbdsqr_" %%SBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11693 ':INT32) (LDU-REF11697 ':INT32) + (LDVT-REF11699 ':INT32) (INFO-REF11704 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11693 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11697 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF11699 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11704 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11694 D) (E-REF11695 E) + (U-REF11696 U) (VT-REF11698 VT) + (Q-REF11700 Q) (IQ-REF11701 IQ) + (WORK-REF11702 WORK) + (IWORK-REF11703 IWORK)) + (%%SBDSDC UPLO COMPQ N-REF11693 D-REF11694 E-REF11695 U-REF11696 + LDU-REF11697 VT-REF11698 LDVT-REF11699 Q-REF11700 IQ-REF11701 + WORK-REF11702 IWORK-REF11703 INFO-REF11704)))) + +(CFFI:DEFCFUN ("sbdsqr_" %%SBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -466,27 +467,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11723 ':INT32) (NCVT-REF11724 ':INT32) - (NRU-REF11725 ':INT32) (NCC-REF11726 ':INT32) - (LDVT-REF11730 ':INT32) (LDU-REF11732 ':INT32) - (LDC-REF11734 ':INT32) (INFO-REF11736 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11723 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF11724 :INT32) NCVT) - (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF11725 :INT32) NRU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF11726 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF11730 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11732 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11734 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11736 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11727 D) (E-REF11728 E) - (VT-REF11729 VT) (U-REF11731 U) - (C-REF11733 C) (WORK-REF11735 WORK)) - (%%SBDSQR UPLO N-REF11723 NCVT-REF11724 NRU-REF11725 NCC-REF11726 - D-REF11727 E-REF11728 VT-REF11729 LDVT-REF11730 U-REF11731 - LDU-REF11732 C-REF11733 LDC-REF11734 WORK-REF11735 - INFO-REF11736)))) - -(CFFI:DEFCFUN ("sbdsvdx_" %%SBDSVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11706 ':INT32) (NCVT-REF11707 ':INT32) + (NRU-REF11708 ':INT32) (NCC-REF11709 ':INT32) + (LDVT-REF11713 ':INT32) (LDU-REF11715 ':INT32) + (LDC-REF11717 ':INT32) (INFO-REF11719 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11706 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF11707 :INT32) NCVT) + (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF11708 :INT32) NRU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF11709 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF11713 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF11715 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11717 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11719 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11710 D) (E-REF11711 E) + (VT-REF11712 VT) (U-REF11714 U) + (C-REF11716 C) (WORK-REF11718 WORK)) + (%%SBDSQR UPLO N-REF11706 NCVT-REF11707 NRU-REF11708 NCC-REF11709 + D-REF11710 E-REF11711 VT-REF11712 LDVT-REF11713 U-REF11714 LDU-REF11715 + C-REF11716 LDC-REF11717 WORK-REF11718 INFO-REF11719)))) + +(CFFI:DEFCFUN ("sbdsvdx_" %%SBDSVDX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (JOBZ :STRING) @@ -536,29 +537,28 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11740 ':INT32) (VL-REF11743 ':FLOAT) - (VU-REF11744 ':FLOAT) (IL-REF11745 ':INT32) - (IU-REF11746 ':INT32) (NS-REF11747 ':INT32) - (LDZ-REF11750 ':INT32) (INFO-REF11753 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11740 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF11743 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF11744 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF11745 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF11746 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF11747 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11750 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11753 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11741 D) (E-REF11742 E) - (S-REF11748 S) (Z-REF11749 Z) - (WORK-REF11751 WORK) - (IWORK-REF11752 IWORK)) - (%%SBDSVDX UPLO JOBZ RANGE N-REF11740 D-REF11741 E-REF11742 VL-REF11743 - VU-REF11744 IL-REF11745 IU-REF11746 NS-REF11747 S-REF11748 - Z-REF11749 LDZ-REF11750 WORK-REF11751 IWORK-REF11752 - INFO-REF11753)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11723 ':INT32) (VL-REF11726 ':FLOAT) + (VU-REF11727 ':FLOAT) (IL-REF11728 ':INT32) + (IU-REF11729 ':INT32) (NS-REF11730 ':INT32) + (LDZ-REF11733 ':INT32) (INFO-REF11736 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11723 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF11726 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF11727 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF11728 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF11729 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF11730 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF11733 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11736 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11724 D) (E-REF11725 E) + (S-REF11731 S) (Z-REF11732 Z) + (WORK-REF11734 WORK) + (IWORK-REF11735 IWORK)) + (%%SBDSVDX UPLO JOBZ RANGE N-REF11723 D-REF11724 E-REF11725 VL-REF11726 + VU-REF11727 IL-REF11728 IU-REF11729 NS-REF11730 S-REF11731 Z-REF11732 + LDZ-REF11733 WORK-REF11734 IWORK-REF11735 INFO-REF11736)))) (CFFI:DEFCFUN ("scombssq_" %%SCOMBSSQ :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (V1 :POINTER) (V2 :POINTER)) @@ -571,10 +571,10 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V2)) (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF11754 V1) (V2-REF11755 V2)) - (%%SCOMBSSQ V1-REF11754 V2-REF11755)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V1-REF11737 V1) (V2-REF11738 V2)) + (%%SCOMBSSQ V1-REF11737 V2-REF11738)))) -(CFFI:DEFCFUN ("scsum1_" %%SCSUM1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("scsum1_" %%SCSUM1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (N :POINTER) (CX :POINTER) @@ -589,13 +589,13 @@ (COMMON-LISP:*)) CX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11756 ':INT32) (INCX-REF11758 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11756 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11758 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11757 CX)) - (%%SCSUM1 N-REF11756 CX-REF11757 INCX-REF11758)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11739 ':INT32) (INCX-REF11741 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11739 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF11741 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF11740 CX)) + (%%SCSUM1 N-REF11739 CX-REF11740 INCX-REF11741)))) -(CFFI:DEFCFUN ("sdisna_" %%SDISNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sdisna_" %%SDISNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (M :POINTER) @@ -615,16 +615,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SEP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11760 ':INT32) (N-REF11761 ':INT32) - (INFO-REF11764 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11760 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11761 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11764 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11762 D) (SEP-REF11763 SEP)) - (%%SDISNA JOB M-REF11760 N-REF11761 D-REF11762 SEP-REF11763 - INFO-REF11764)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11743 ':INT32) (N-REF11744 ':INT32) + (INFO-REF11747 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11743 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11744 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11747 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF11745 D) (SEP-REF11746 SEP)) + (%%SDISNA JOB M-REF11743 N-REF11744 D-REF11745 SEP-REF11746 + INFO-REF11747)))) -(CFFI:DEFCFUN ("sgbbrd_" %%SGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgbbrd_" %%SGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (M :POINTER) @@ -675,31 +675,31 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11766 ':INT32) (N-REF11767 ':INT32) - (NCC-REF11768 ':INT32) (KL-REF11769 ':INT32) - (KU-REF11770 ':INT32) (LDAB-REF11772 ':INT32) - (LDQ-REF11776 ':INT32) (LDPT-REF11778 ':INT32) - (LDC-REF11780 ':INT32) (INFO-REF11782 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11766 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11767 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF11768 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11769 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11770 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11772 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11776 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF11778 :INT32) LDPT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11780 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11782 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11771 AB) (D-REF11773 D) - (E-REF11774 E) (Q-REF11775 Q) - (PT-REF11777 PT) (C-REF11779 C) - (WORK-REF11781 WORK)) - (%%SGBBRD VECT M-REF11766 N-REF11767 NCC-REF11768 KL-REF11769 KU-REF11770 - AB-REF11771 LDAB-REF11772 D-REF11773 E-REF11774 Q-REF11775 - LDQ-REF11776 PT-REF11777 LDPT-REF11778 C-REF11779 LDC-REF11780 - WORK-REF11781 INFO-REF11782)))) - -(CFFI:DEFCFUN ("sgbcon_" %%SGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11749 ':INT32) (N-REF11750 ':INT32) + (NCC-REF11751 ':INT32) (KL-REF11752 ':INT32) + (KU-REF11753 ':INT32) (LDAB-REF11755 ':INT32) + (LDQ-REF11759 ':INT32) (LDPT-REF11761 ':INT32) + (LDC-REF11763 ':INT32) (INFO-REF11765 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11749 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11750 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF11751 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11752 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11753 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11755 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF11759 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF11761 :INT32) LDPT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF11763 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11765 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11754 AB) (D-REF11756 D) + (E-REF11757 E) (Q-REF11758 Q) + (PT-REF11760 PT) (C-REF11762 C) + (WORK-REF11764 WORK)) + (%%SGBBRD VECT M-REF11749 N-REF11750 NCC-REF11751 KL-REF11752 KU-REF11753 + AB-REF11754 LDAB-REF11755 D-REF11756 E-REF11757 Q-REF11758 LDQ-REF11759 + PT-REF11760 LDPT-REF11761 C-REF11762 LDC-REF11763 WORK-REF11764 + INFO-REF11765)))) + +(CFFI:DEFCFUN ("sgbcon_" %%SGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -738,26 +738,26 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11784 ':INT32) (KL-REF11785 ':INT32) - (KU-REF11786 ':INT32) (LDAB-REF11788 ':INT32) - (ANORM-REF11790 ':FLOAT) (RCOND-REF11791 ':FLOAT) - (INFO-REF11794 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11784 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11785 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11786 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11788 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF11790 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11791 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11794 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11787 AB) - (IPIV-REF11789 IPIV) - (WORK-REF11792 WORK) - (IWORK-REF11793 IWORK)) - (%%SGBCON NORM N-REF11784 KL-REF11785 KU-REF11786 AB-REF11787 - LDAB-REF11788 IPIV-REF11789 ANORM-REF11790 RCOND-REF11791 - WORK-REF11792 IWORK-REF11793 INFO-REF11794)))) - -(CFFI:DEFCFUN ("sgbequ_" %%SGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11767 ':INT32) (KL-REF11768 ':INT32) + (KU-REF11769 ':INT32) (LDAB-REF11771 ':INT32) + (ANORM-REF11773 ':FLOAT) (RCOND-REF11774 ':FLOAT) + (INFO-REF11777 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11767 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11768 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11769 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11771 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF11773 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11774 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11777 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11770 AB) + (IPIV-REF11772 IPIV) + (WORK-REF11775 WORK) + (IWORK-REF11776 IWORK)) + (%%SGBCON NORM N-REF11767 KL-REF11768 KU-REF11769 AB-REF11770 + LDAB-REF11771 IPIV-REF11772 ANORM-REF11773 RCOND-REF11774 WORK-REF11775 + IWORK-REF11776 INFO-REF11777)))) + +(CFFI:DEFCFUN ("sgbequ_" %%SGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -789,27 +789,28 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11795 ':INT32) (N-REF11796 ':INT32) - (KL-REF11797 ':INT32) (KU-REF11798 ':INT32) - (LDAB-REF11800 ':INT32) (ROWCND-REF11803 ':FLOAT) - (COLCND-REF11804 ':FLOAT) (AMAX-REF11805 ':FLOAT) - (INFO-REF11806 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11795 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11796 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11797 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11798 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11800 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11803 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11804 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11805 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11806 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11799 AB) (R-REF11801 R) - (C-REF11802 C)) - (%%SGBEQU M-REF11795 N-REF11796 KL-REF11797 KU-REF11798 AB-REF11799 - LDAB-REF11800 R-REF11801 C-REF11802 ROWCND-REF11803 - COLCND-REF11804 AMAX-REF11805 INFO-REF11806)))) - -(CFFI:DEFCFUN ("sgbequb_" %%SGBEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11778 ':INT32) (N-REF11779 ':INT32) + (KL-REF11780 ':INT32) (KU-REF11781 ':INT32) + (LDAB-REF11783 ':INT32) (ROWCND-REF11786 ':FLOAT) + (COLCND-REF11787 ':FLOAT) (AMAX-REF11788 ':FLOAT) + (INFO-REF11789 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11778 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11779 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11780 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11781 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11783 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11786 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11787 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11788 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11789 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11782 AB) (R-REF11784 R) + (C-REF11785 C)) + (%%SGBEQU M-REF11778 N-REF11779 KL-REF11780 KU-REF11781 AB-REF11782 + LDAB-REF11783 R-REF11784 C-REF11785 ROWCND-REF11786 COLCND-REF11787 + AMAX-REF11788 INFO-REF11789)))) + +(CFFI:DEFCFUN ("sgbequb_" %%SGBEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -841,27 +842,27 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11807 ':INT32) (N-REF11808 ':INT32) - (KL-REF11809 ':INT32) (KU-REF11810 ':INT32) - (LDAB-REF11812 ':INT32) (ROWCND-REF11815 ':FLOAT) - (COLCND-REF11816 ':FLOAT) (AMAX-REF11817 ':FLOAT) - (INFO-REF11818 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11807 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11808 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11809 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11810 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11812 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11815 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11816 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11817 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11818 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11811 AB) (R-REF11813 R) - (C-REF11814 C)) - (%%SGBEQUB M-REF11807 N-REF11808 KL-REF11809 KU-REF11810 AB-REF11811 - LDAB-REF11812 R-REF11813 C-REF11814 ROWCND-REF11815 - COLCND-REF11816 AMAX-REF11817 INFO-REF11818)))) - -(CFFI:DEFCFUN ("sgbrfs_" %%SGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11790 ':INT32) (N-REF11791 ':INT32) + (KL-REF11792 ':INT32) (KU-REF11793 ':INT32) + (LDAB-REF11795 ':INT32) (ROWCND-REF11798 ':FLOAT) + (COLCND-REF11799 ':FLOAT) (AMAX-REF11800 ':FLOAT) + (INFO-REF11801 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11790 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11791 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11792 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11793 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11795 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11798 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11799 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11800 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11801 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11794 AB) (R-REF11796 R) + (C-REF11797 C)) + (%%SGBEQUB M-REF11790 N-REF11791 KL-REF11792 KU-REF11793 AB-REF11794 + LDAB-REF11795 R-REF11796 C-REF11797 ROWCND-REF11798 COLCND-REF11799 + AMAX-REF11800 INFO-REF11801)))) + +(CFFI:DEFCFUN ("sgbrfs_" %%SGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -923,33 +924,33 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11820 ':INT32) (KL-REF11821 ':INT32) - (KU-REF11822 ':INT32) (NRHS-REF11823 ':INT32) - (LDAB-REF11825 ':INT32) (LDAFB-REF11827 ':INT32) - (LDB-REF11830 ':INT32) (LDX-REF11832 ':INT32) - (INFO-REF11837 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11820 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11821 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11822 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11823 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11825 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11827 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11830 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11832 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11837 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11824 AB) (AFB-REF11826 AFB) - (IPIV-REF11828 IPIV) (B-REF11829 B) - (X-REF11831 X) (FERR-REF11833 FERR) - (BERR-REF11834 BERR) - (WORK-REF11835 WORK) - (IWORK-REF11836 IWORK)) - (%%SGBRFS TRANS N-REF11820 KL-REF11821 KU-REF11822 NRHS-REF11823 - AB-REF11824 LDAB-REF11825 AFB-REF11826 LDAFB-REF11827 - IPIV-REF11828 B-REF11829 LDB-REF11830 X-REF11831 LDX-REF11832 - FERR-REF11833 BERR-REF11834 WORK-REF11835 IWORK-REF11836 - INFO-REF11837)))) - -(CFFI:DEFCFUN ("sgbrfsx_" %%SGBRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11803 ':INT32) (KL-REF11804 ':INT32) + (KU-REF11805 ':INT32) (NRHS-REF11806 ':INT32) + (LDAB-REF11808 ':INT32) (LDAFB-REF11810 ':INT32) + (LDB-REF11813 ':INT32) (LDX-REF11815 ':INT32) + (INFO-REF11820 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11803 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11804 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11805 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11806 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11808 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11810 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11813 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11815 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11820 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11807 AB) (AFB-REF11809 AFB) + (IPIV-REF11811 IPIV) (B-REF11812 B) + (X-REF11814 X) (FERR-REF11816 FERR) + (BERR-REF11817 BERR) + (WORK-REF11818 WORK) + (IWORK-REF11819 IWORK)) + (%%SGBRFS TRANS N-REF11803 KL-REF11804 KU-REF11805 NRHS-REF11806 + AB-REF11807 LDAB-REF11808 AFB-REF11809 LDAFB-REF11810 IPIV-REF11811 + B-REF11812 LDB-REF11813 X-REF11814 LDX-REF11815 FERR-REF11816 + BERR-REF11817 WORK-REF11818 IWORK-REF11819 INFO-REF11820)))) + +(CFFI:DEFCFUN ("sgbrfsx_" %%SGBRFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (EQUED :STRING) @@ -1035,46 +1036,45 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11840 ':INT32) (KL-REF11841 ':INT32) - (KU-REF11842 ':INT32) (NRHS-REF11843 ':INT32) - (LDAB-REF11845 ':INT32) (LDAFB-REF11847 ':INT32) - (LDB-REF11852 ':INT32) (LDX-REF11854 ':INT32) - (RCOND-REF11855 ':FLOAT) - (N_ERR_BNDS-REF11857 ':INT32) - (NPARAMS-REF11860 ':INT32) - (INFO-REF11864 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11840 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11841 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11842 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11843 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11845 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11847 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11852 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11854 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11855 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF11857 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF11860 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11864 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11844 AB) (AFB-REF11846 AFB) - (IPIV-REF11848 IPIV) (R-REF11849 R) - (C-REF11850 C) (B-REF11851 B) - (X-REF11853 X) (BERR-REF11856 BERR) - (ERR_BNDS_NORM-REF11858 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11823 ':INT32) (KL-REF11824 ':INT32) + (KU-REF11825 ':INT32) (NRHS-REF11826 ':INT32) + (LDAB-REF11828 ':INT32) (LDAFB-REF11830 ':INT32) + (LDB-REF11835 ':INT32) (LDX-REF11837 ':INT32) + (RCOND-REF11838 ':FLOAT) + (N_ERR_BNDS-REF11840 ':INT32) + (NPARAMS-REF11843 ':INT32) + (INFO-REF11847 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11823 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11824 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11825 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11826 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11828 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11830 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11835 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11837 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11838 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF11840 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF11843 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11847 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11827 AB) (AFB-REF11829 AFB) + (IPIV-REF11831 IPIV) (R-REF11832 R) + (C-REF11833 C) (B-REF11834 B) + (X-REF11836 X) (BERR-REF11839 BERR) + (ERR_BNDS_NORM-REF11841 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF11859 + (ERR_BNDS_COMP-REF11842 ERR_BNDS_COMP) - (PARAMS-REF11861 PARAMS) - (WORK-REF11862 WORK) - (IWORK-REF11863 IWORK)) - (%%SGBRFSX TRANS EQUED N-REF11840 KL-REF11841 KU-REF11842 NRHS-REF11843 - AB-REF11844 LDAB-REF11845 AFB-REF11846 LDAFB-REF11847 - IPIV-REF11848 R-REF11849 C-REF11850 B-REF11851 LDB-REF11852 - X-REF11853 LDX-REF11854 RCOND-REF11855 BERR-REF11856 - N_ERR_BNDS-REF11857 ERR_BNDS_NORM-REF11858 - ERR_BNDS_COMP-REF11859 NPARAMS-REF11860 PARAMS-REF11861 - WORK-REF11862 IWORK-REF11863 INFO-REF11864)))) + (PARAMS-REF11844 PARAMS) + (WORK-REF11845 WORK) + (IWORK-REF11846 IWORK)) + (%%SGBRFSX TRANS EQUED N-REF11823 KL-REF11824 KU-REF11825 NRHS-REF11826 + AB-REF11827 LDAB-REF11828 AFB-REF11829 LDAFB-REF11830 IPIV-REF11831 + R-REF11832 C-REF11833 B-REF11834 LDB-REF11835 X-REF11836 LDX-REF11837 + RCOND-REF11838 BERR-REF11839 N_ERR_BNDS-REF11840 ERR_BNDS_NORM-REF11841 + ERR_BNDS_COMP-REF11842 NPARAMS-REF11843 PARAMS-REF11844 WORK-REF11845 + IWORK-REF11846 INFO-REF11847)))) -(CFFI:DEFCFUN ("sgbsv_" %%SGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgbsv_" %%SGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (KL :POINTER) @@ -1104,24 +1104,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11865 ':INT32) (KL-REF11866 ':INT32) - (KU-REF11867 ':INT32) (NRHS-REF11868 ':INT32) - (LDAB-REF11870 ':INT32) (LDB-REF11873 ':INT32) - (INFO-REF11874 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11865 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11866 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11867 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11868 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11870 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11873 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11874 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11869 AB) - (IPIV-REF11871 IPIV) (B-REF11872 B)) - (%%SGBSV N-REF11865 KL-REF11866 KU-REF11867 NRHS-REF11868 AB-REF11869 - LDAB-REF11870 IPIV-REF11871 B-REF11872 LDB-REF11873 - INFO-REF11874)))) - -(CFFI:DEFCFUN ("sgbsvx_" %%SGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11848 ':INT32) (KL-REF11849 ':INT32) + (KU-REF11850 ':INT32) (NRHS-REF11851 ':INT32) + (LDAB-REF11853 ':INT32) (LDB-REF11856 ':INT32) + (INFO-REF11857 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11848 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11849 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11850 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11851 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11853 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11856 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11857 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11852 AB) + (IPIV-REF11854 IPIV) (B-REF11855 B)) + (%%SGBSV N-REF11848 KL-REF11849 KU-REF11850 NRHS-REF11851 AB-REF11852 + LDAB-REF11853 IPIV-REF11854 B-REF11855 LDB-REF11856 INFO-REF11857)))) + +(CFFI:DEFCFUN ("sgbsvx_" %%SGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -1195,36 +1194,36 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11877 ':INT32) (KL-REF11878 ':INT32) - (KU-REF11879 ':INT32) (NRHS-REF11880 ':INT32) - (LDAB-REF11882 ':INT32) (LDAFB-REF11884 ':INT32) - (LDB-REF11890 ':INT32) (LDX-REF11892 ':INT32) - (RCOND-REF11893 ':FLOAT) (INFO-REF11898 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11877 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11878 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11879 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11880 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11882 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11884 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11890 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11892 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11893 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11898 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11881 AB) (AFB-REF11883 AFB) - (IPIV-REF11885 IPIV) (R-REF11887 R) - (C-REF11888 C) (B-REF11889 B) - (X-REF11891 X) (FERR-REF11894 FERR) - (BERR-REF11895 BERR) - (WORK-REF11896 WORK) - (IWORK-REF11897 IWORK)) - (%%SGBSVX FACT TRANS N-REF11877 KL-REF11878 KU-REF11879 NRHS-REF11880 - AB-REF11881 LDAB-REF11882 AFB-REF11883 LDAFB-REF11884 - IPIV-REF11885 EQUED R-REF11887 C-REF11888 B-REF11889 - LDB-REF11890 X-REF11891 LDX-REF11892 RCOND-REF11893 - FERR-REF11894 BERR-REF11895 WORK-REF11896 IWORK-REF11897 - INFO-REF11898)))) - -(CFFI:DEFCFUN ("sgbsvxx_" %%SGBSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11860 ':INT32) (KL-REF11861 ':INT32) + (KU-REF11862 ':INT32) (NRHS-REF11863 ':INT32) + (LDAB-REF11865 ':INT32) (LDAFB-REF11867 ':INT32) + (LDB-REF11873 ':INT32) (LDX-REF11875 ':INT32) + (RCOND-REF11876 ':FLOAT) (INFO-REF11881 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11860 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11861 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11862 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11863 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11865 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11867 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11873 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11875 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11876 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11881 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11864 AB) (AFB-REF11866 AFB) + (IPIV-REF11868 IPIV) (R-REF11870 R) + (C-REF11871 C) (B-REF11872 B) + (X-REF11874 X) (FERR-REF11877 FERR) + (BERR-REF11878 BERR) + (WORK-REF11879 WORK) + (IWORK-REF11880 IWORK)) + (%%SGBSVX FACT TRANS N-REF11860 KL-REF11861 KU-REF11862 NRHS-REF11863 + AB-REF11864 LDAB-REF11865 AFB-REF11866 LDAFB-REF11867 IPIV-REF11868 + EQUED R-REF11870 C-REF11871 B-REF11872 LDB-REF11873 X-REF11874 + LDX-REF11875 RCOND-REF11876 FERR-REF11877 BERR-REF11878 WORK-REF11879 + IWORK-REF11880 INFO-REF11881)))) + +(CFFI:DEFCFUN ("sgbsvxx_" %%SGBSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -1314,48 +1313,48 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11901 ':INT32) (KL-REF11902 ':INT32) - (KU-REF11903 ':INT32) (NRHS-REF11904 ':INT32) - (LDAB-REF11906 ':INT32) (LDAFB-REF11908 ':INT32) - (LDB-REF11914 ':INT32) (LDX-REF11916 ':INT32) - (RCOND-REF11917 ':FLOAT) - (RPVGRW-REF11918 ':FLOAT) - (N_ERR_BNDS-REF11920 ':INT32) - (NPARAMS-REF11923 ':INT32) - (INFO-REF11927 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11901 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11902 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11903 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11904 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11906 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11908 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11914 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11916 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11917 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF11918 :FLOAT) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF11920 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF11923 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11927 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11905 AB) (AFB-REF11907 AFB) - (IPIV-REF11909 IPIV) (R-REF11911 R) - (C-REF11912 C) (B-REF11913 B) - (X-REF11915 X) (BERR-REF11919 BERR) - (ERR_BNDS_NORM-REF11921 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11884 ':INT32) (KL-REF11885 ':INT32) + (KU-REF11886 ':INT32) (NRHS-REF11887 ':INT32) + (LDAB-REF11889 ':INT32) (LDAFB-REF11891 ':INT32) + (LDB-REF11897 ':INT32) (LDX-REF11899 ':INT32) + (RCOND-REF11900 ':FLOAT) + (RPVGRW-REF11901 ':FLOAT) + (N_ERR_BNDS-REF11903 ':INT32) + (NPARAMS-REF11906 ':INT32) + (INFO-REF11910 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11884 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11885 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11886 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11887 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11889 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF11891 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11897 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF11899 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11900 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF11901 :FLOAT) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF11903 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF11906 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11910 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11888 AB) (AFB-REF11890 AFB) + (IPIV-REF11892 IPIV) (R-REF11894 R) + (C-REF11895 C) (B-REF11896 B) + (X-REF11898 X) (BERR-REF11902 BERR) + (ERR_BNDS_NORM-REF11904 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF11922 + (ERR_BNDS_COMP-REF11905 ERR_BNDS_COMP) - (PARAMS-REF11924 PARAMS) - (WORK-REF11925 WORK) - (IWORK-REF11926 IWORK)) - (%%SGBSVXX FACT TRANS N-REF11901 KL-REF11902 KU-REF11903 NRHS-REF11904 - AB-REF11905 LDAB-REF11906 AFB-REF11907 LDAFB-REF11908 - IPIV-REF11909 EQUED R-REF11911 C-REF11912 B-REF11913 - LDB-REF11914 X-REF11915 LDX-REF11916 RCOND-REF11917 - RPVGRW-REF11918 BERR-REF11919 N_ERR_BNDS-REF11920 - ERR_BNDS_NORM-REF11921 ERR_BNDS_COMP-REF11922 NPARAMS-REF11923 - PARAMS-REF11924 WORK-REF11925 IWORK-REF11926 INFO-REF11927)))) - -(CFFI:DEFCFUN ("sgbtf2_" %%SGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF11907 PARAMS) + (WORK-REF11908 WORK) + (IWORK-REF11909 IWORK)) + (%%SGBSVXX FACT TRANS N-REF11884 KL-REF11885 KU-REF11886 NRHS-REF11887 + AB-REF11888 LDAB-REF11889 AFB-REF11890 LDAFB-REF11891 IPIV-REF11892 + EQUED R-REF11894 C-REF11895 B-REF11896 LDB-REF11897 X-REF11898 + LDX-REF11899 RCOND-REF11900 RPVGRW-REF11901 BERR-REF11902 + N_ERR_BNDS-REF11903 ERR_BNDS_NORM-REF11904 ERR_BNDS_COMP-REF11905 + NPARAMS-REF11906 PARAMS-REF11907 WORK-REF11908 IWORK-REF11909 + INFO-REF11910)))) + +(CFFI:DEFCFUN ("sgbtf2_" %%SGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1380,21 +1379,21 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11928 ':INT32) (N-REF11929 ':INT32) - (KL-REF11930 ':INT32) (KU-REF11931 ':INT32) - (LDAB-REF11933 ':INT32) (INFO-REF11935 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11928 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11929 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11930 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11931 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11933 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11935 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11932 AB) - (IPIV-REF11934 IPIV)) - (%%SGBTF2 M-REF11928 N-REF11929 KL-REF11930 KU-REF11931 AB-REF11932 - LDAB-REF11933 IPIV-REF11934 INFO-REF11935)))) - -(CFFI:DEFCFUN ("sgbtrf_" %%SGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11911 ':INT32) (N-REF11912 ':INT32) + (KL-REF11913 ':INT32) (KU-REF11914 ':INT32) + (LDAB-REF11916 ':INT32) (INFO-REF11918 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11911 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11912 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11913 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11914 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11916 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11918 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11915 AB) + (IPIV-REF11917 IPIV)) + (%%SGBTF2 M-REF11911 N-REF11912 KL-REF11913 KU-REF11914 AB-REF11915 + LDAB-REF11916 IPIV-REF11917 INFO-REF11918)))) + +(CFFI:DEFCFUN ("sgbtrf_" %%SGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1419,21 +1418,21 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11936 ':INT32) (N-REF11937 ':INT32) - (KL-REF11938 ':INT32) (KU-REF11939 ':INT32) - (LDAB-REF11941 ':INT32) (INFO-REF11943 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11936 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11937 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11938 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11939 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11941 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11943 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11940 AB) - (IPIV-REF11942 IPIV)) - (%%SGBTRF M-REF11936 N-REF11937 KL-REF11938 KU-REF11939 AB-REF11940 - LDAB-REF11941 IPIV-REF11942 INFO-REF11943)))) - -(CFFI:DEFCFUN ("sgbtrs_" %%SGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11919 ':INT32) (N-REF11920 ':INT32) + (KL-REF11921 ':INT32) (KU-REF11922 ':INT32) + (LDAB-REF11924 ':INT32) (INFO-REF11926 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11919 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11920 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11921 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11922 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11924 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11926 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11923 AB) + (IPIV-REF11925 IPIV)) + (%%SGBTRF M-REF11919 N-REF11920 KL-REF11921 KU-REF11922 AB-REF11923 + LDAB-REF11924 IPIV-REF11925 INFO-REF11926)))) + +(CFFI:DEFCFUN ("sgbtrs_" %%SGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -1465,24 +1464,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11945 ':INT32) (KL-REF11946 ':INT32) - (KU-REF11947 ':INT32) (NRHS-REF11948 ':INT32) - (LDAB-REF11950 ':INT32) (LDB-REF11953 ':INT32) - (INFO-REF11954 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11945 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11946 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11947 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11948 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11950 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11953 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11954 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11949 AB) - (IPIV-REF11951 IPIV) (B-REF11952 B)) - (%%SGBTRS TRANS N-REF11945 KL-REF11946 KU-REF11947 NRHS-REF11948 - AB-REF11949 LDAB-REF11950 IPIV-REF11951 B-REF11952 LDB-REF11953 - INFO-REF11954)))) - -(CFFI:DEFCFUN ("sgebak_" %%SGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11928 ':INT32) (KL-REF11929 ':INT32) + (KU-REF11930 ':INT32) (NRHS-REF11931 ':INT32) + (LDAB-REF11933 ':INT32) (LDB-REF11936 ':INT32) + (INFO-REF11937 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11928 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF11929 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF11930 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF11931 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF11933 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF11936 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11937 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF11932 AB) + (IPIV-REF11934 IPIV) (B-REF11935 B)) + (%%SGBTRS TRANS N-REF11928 KL-REF11929 KU-REF11930 NRHS-REF11931 + AB-REF11932 LDAB-REF11933 IPIV-REF11934 B-REF11935 LDB-REF11936 + INFO-REF11937)))) + +(CFFI:DEFCFUN ("sgebak_" %%SGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (SIDE :STRING) @@ -1510,21 +1509,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11957 ':INT32) (ILO-REF11958 ':INT32) - (IHI-REF11959 ':INT32) (M-REF11961 ':INT32) - (LDV-REF11963 ':INT32) (INFO-REF11964 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11957 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11958 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11959 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11961 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11963 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11964 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF11960 SCALE) - (V-REF11962 V)) - (%%SGEBAK JOB SIDE N-REF11957 ILO-REF11958 IHI-REF11959 SCALE-REF11960 - M-REF11961 V-REF11962 LDV-REF11963 INFO-REF11964)))) - -(CFFI:DEFCFUN ("sgebal_" %%SGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11940 ':INT32) (ILO-REF11941 ':INT32) + (IHI-REF11942 ':INT32) (M-REF11944 ':INT32) + (LDV-REF11946 ':INT32) (INFO-REF11947 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11940 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11941 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11942 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11944 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF11946 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11947 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF11943 SCALE) + (V-REF11945 V)) + (%%SGEBAK JOB SIDE N-REF11940 ILO-REF11941 IHI-REF11942 SCALE-REF11943 + M-REF11944 V-REF11945 LDV-REF11946 INFO-REF11947)))) + +(CFFI:DEFCFUN ("sgebal_" %%SGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (N :POINTER) @@ -1548,20 +1547,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SCALE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11966 ':INT32) (LDA-REF11968 ':INT32) - (ILO-REF11969 ':INT32) (IHI-REF11970 ':INT32) - (INFO-REF11972 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11966 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11968 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11969 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11970 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11972 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11967 A) - (SCALE-REF11971 SCALE)) - (%%SGEBAL JOB N-REF11966 A-REF11967 LDA-REF11968 ILO-REF11969 - IHI-REF11970 SCALE-REF11971 INFO-REF11972)))) - -(CFFI:DEFCFUN ("sgebd2_" %%SGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11949 ':INT32) (LDA-REF11951 ':INT32) + (ILO-REF11952 ':INT32) (IHI-REF11953 ':INT32) + (INFO-REF11955 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11949 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11951 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF11952 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF11953 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11955 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11950 A) + (SCALE-REF11954 SCALE)) + (%%SGEBAL JOB N-REF11949 A-REF11950 LDA-REF11951 ILO-REF11952 + IHI-REF11953 SCALE-REF11954 INFO-REF11955)))) + +(CFFI:DEFCFUN ("sgebd2_" %%SGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1595,21 +1594,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11973 ':INT32) (N-REF11974 ':INT32) - (LDA-REF11976 ':INT32) (INFO-REF11982 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11973 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11974 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11976 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11982 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11975 A) (D-REF11977 D) - (E-REF11978 E) (TAUQ-REF11979 TAUQ) - (TAUP-REF11980 TAUP) - (WORK-REF11981 WORK)) - (%%SGEBD2 M-REF11973 N-REF11974 A-REF11975 LDA-REF11976 D-REF11977 - E-REF11978 TAUQ-REF11979 TAUP-REF11980 WORK-REF11981 - INFO-REF11982)))) - -(CFFI:DEFCFUN ("sgebrd_" %%SGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11956 ':INT32) (N-REF11957 ':INT32) + (LDA-REF11959 ':INT32) (INFO-REF11965 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11956 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11957 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11959 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11965 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11958 A) (D-REF11960 D) + (E-REF11961 E) (TAUQ-REF11962 TAUQ) + (TAUP-REF11963 TAUP) + (WORK-REF11964 WORK)) + (%%SGEBD2 M-REF11956 N-REF11957 A-REF11958 LDA-REF11959 D-REF11960 + E-REF11961 TAUQ-REF11962 TAUP-REF11963 WORK-REF11964 INFO-REF11965)))) + +(CFFI:DEFCFUN ("sgebrd_" %%SGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1645,23 +1643,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11983 ':INT32) (N-REF11984 ':INT32) - (LDA-REF11986 ':INT32) (LWORK-REF11992 ':INT32) - (INFO-REF11993 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11983 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11984 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11986 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11992 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11993 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11985 A) (D-REF11987 D) - (E-REF11988 E) (TAUQ-REF11989 TAUQ) - (TAUP-REF11990 TAUP) - (WORK-REF11991 WORK)) - (%%SGEBRD M-REF11983 N-REF11984 A-REF11985 LDA-REF11986 D-REF11987 - E-REF11988 TAUQ-REF11989 TAUP-REF11990 WORK-REF11991 - LWORK-REF11992 INFO-REF11993)))) - -(CFFI:DEFCFUN ("sgecon_" %%SGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11966 ':INT32) (N-REF11967 ':INT32) + (LDA-REF11969 ':INT32) (LWORK-REF11975 ':INT32) + (INFO-REF11976 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11966 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11967 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11969 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF11975 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11976 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11968 A) (D-REF11970 D) + (E-REF11971 E) (TAUQ-REF11972 TAUQ) + (TAUP-REF11973 TAUP) + (WORK-REF11974 WORK)) + (%%SGEBRD M-REF11966 N-REF11967 A-REF11968 LDA-REF11969 D-REF11970 + E-REF11971 TAUQ-REF11972 TAUP-REF11973 WORK-REF11974 LWORK-REF11975 + INFO-REF11976)))) + +(CFFI:DEFCFUN ("sgecon_" %%SGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -1690,20 +1688,20 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11995 ':INT32) (LDA-REF11997 ':INT32) - (ANORM-REF11998 ':FLOAT) (RCOND-REF11999 ':FLOAT) - (INFO-REF12002 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11995 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11997 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF11998 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11999 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12002 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11996 A) (WORK-REF12000 WORK) - (IWORK-REF12001 IWORK)) - (%%SGECON NORM N-REF11995 A-REF11996 LDA-REF11997 ANORM-REF11998 - RCOND-REF11999 WORK-REF12000 IWORK-REF12001 INFO-REF12002)))) - -(CFFI:DEFCFUN ("sgeequ_" %%SGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF11978 ':INT32) (LDA-REF11980 ':INT32) + (ANORM-REF11981 ':FLOAT) (RCOND-REF11982 ':FLOAT) + (INFO-REF11985 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11978 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11980 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF11981 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF11982 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11985 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11979 A) (WORK-REF11983 WORK) + (IWORK-REF11984 IWORK)) + (%%SGECON NORM N-REF11978 A-REF11979 LDA-REF11980 ANORM-REF11981 + RCOND-REF11982 WORK-REF11983 IWORK-REF11984 INFO-REF11985)))) + +(CFFI:DEFCFUN ("sgeequ_" %%SGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1731,24 +1729,25 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12003 ':INT32) (N-REF12004 ':INT32) - (LDA-REF12006 ':INT32) (ROWCND-REF12009 ':FLOAT) - (COLCND-REF12010 ':FLOAT) (AMAX-REF12011 ':FLOAT) - (INFO-REF12012 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12003 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12004 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12006 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF12009 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF12010 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF12011 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12012 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12005 A) (R-REF12007 R) - (C-REF12008 C)) - (%%SGEEQU M-REF12003 N-REF12004 A-REF12005 LDA-REF12006 R-REF12007 - C-REF12008 ROWCND-REF12009 COLCND-REF12010 AMAX-REF12011 - INFO-REF12012)))) - -(CFFI:DEFCFUN ("sgeequb_" %%SGEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11986 ':INT32) (N-REF11987 ':INT32) + (LDA-REF11989 ':INT32) (ROWCND-REF11992 ':FLOAT) + (COLCND-REF11993 ':FLOAT) (AMAX-REF11994 ':FLOAT) + (INFO-REF11995 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11986 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11987 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11989 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF11992 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF11993 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF11994 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF11995 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11988 A) (R-REF11990 R) + (C-REF11991 C)) + (%%SGEEQU M-REF11986 N-REF11987 A-REF11988 LDA-REF11989 R-REF11990 + C-REF11991 ROWCND-REF11992 COLCND-REF11993 AMAX-REF11994 + INFO-REF11995)))) + +(CFFI:DEFCFUN ("sgeequb_" %%SGEEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1776,24 +1775,24 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12013 ':INT32) (N-REF12014 ':INT32) - (LDA-REF12016 ':INT32) (ROWCND-REF12019 ':FLOAT) - (COLCND-REF12020 ':FLOAT) (AMAX-REF12021 ':FLOAT) - (INFO-REF12022 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12013 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12014 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12016 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF12019 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF12020 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF12021 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12022 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12015 A) (R-REF12017 R) - (C-REF12018 C)) - (%%SGEEQUB M-REF12013 N-REF12014 A-REF12015 LDA-REF12016 R-REF12017 - C-REF12018 ROWCND-REF12019 COLCND-REF12020 AMAX-REF12021 - INFO-REF12022)))) - -(CFFI:DEFCFUN ("sgees_" %%SGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF11996 ':INT32) (N-REF11997 ':INT32) + (LDA-REF11999 ':INT32) (ROWCND-REF12002 ':FLOAT) + (COLCND-REF12003 ':FLOAT) (AMAX-REF12004 ':FLOAT) + (INFO-REF12005 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF11996 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF11997 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF11999 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF12002 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF12003 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF12004 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12005 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF11998 A) (R-REF12000 R) + (C-REF12001 C)) + (%%SGEEQUB M-REF11996 N-REF11997 A-REF11998 LDA-REF11999 R-REF12000 + C-REF12001 ROWCND-REF12002 COLCND-REF12003 AMAX-REF12004 + INFO-REF12005)))) + +(CFFI:DEFCFUN ("sgees_" %%SGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVS :STRING) (SORT :STRING) @@ -1839,26 +1838,26 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF12025 ':INT32) (N-REF12026 ':INT32) - (LDA-REF12028 ':INT32) (SDIM-REF12029 ':INT32) - (LDVS-REF12033 ':INT32) (LWORK-REF12035 ':INT32) - (INFO-REF12037 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF12025 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12026 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12028 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12029 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF12033 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12035 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12037 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12027 A) (WR-REF12030 WR) - (WI-REF12031 WI) (VS-REF12032 VS) - (WORK-REF12034 WORK) - (BWORK-REF12036 BWORK)) - (%%SGEES JOBVS SORT SELECT-REF12025 N-REF12026 A-REF12027 LDA-REF12028 - SDIM-REF12029 WR-REF12030 WI-REF12031 VS-REF12032 LDVS-REF12033 - WORK-REF12034 LWORK-REF12035 BWORK-REF12036 INFO-REF12037)))) - -(CFFI:DEFCFUN ("sgeesx_" %%SGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF12008 ':INT32) (N-REF12009 ':INT32) + (LDA-REF12011 ':INT32) (SDIM-REF12012 ':INT32) + (LDVS-REF12016 ':INT32) (LWORK-REF12018 ':INT32) + (INFO-REF12020 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF12008 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12009 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12011 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12012 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF12016 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12018 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12020 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12010 A) (WR-REF12013 WR) + (WI-REF12014 WI) (VS-REF12015 VS) + (WORK-REF12017 WORK) + (BWORK-REF12019 BWORK)) + (%%SGEES JOBVS SORT SELECT-REF12008 N-REF12009 A-REF12010 LDA-REF12011 + SDIM-REF12012 WR-REF12013 WI-REF12014 VS-REF12015 LDVS-REF12016 + WORK-REF12017 LWORK-REF12018 BWORK-REF12019 INFO-REF12020)))) + +(CFFI:DEFCFUN ("sgeesx_" %%SGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVS :STRING) (SORT :STRING) @@ -1917,34 +1916,34 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF12040 ':INT32) (N-REF12042 ':INT32) - (LDA-REF12044 ':INT32) (SDIM-REF12045 ':INT32) - (LDVS-REF12049 ':INT32) (RCONDE-REF12050 ':FLOAT) - (RCONDV-REF12051 ':FLOAT) - (LWORK-REF12053 ':INT32) - (LIWORK-REF12055 ':INT32) (INFO-REF12057 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF12040 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12042 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12044 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12045 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF12049 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF12050 :FLOAT) RCONDE) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF12051 :FLOAT) RCONDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12053 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12055 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12057 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12043 A) (WR-REF12046 WR) - (WI-REF12047 WI) (VS-REF12048 VS) - (WORK-REF12052 WORK) - (IWORK-REF12054 IWORK) - (BWORK-REF12056 BWORK)) - (%%SGEESX JOBVS SORT SELECT-REF12040 SENSE N-REF12042 A-REF12043 - LDA-REF12044 SDIM-REF12045 WR-REF12046 WI-REF12047 VS-REF12048 - LDVS-REF12049 RCONDE-REF12050 RCONDV-REF12051 WORK-REF12052 - LWORK-REF12053 IWORK-REF12054 LIWORK-REF12055 BWORK-REF12056 - INFO-REF12057)))) - -(CFFI:DEFCFUN ("sgeev_" %%SGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF12023 ':INT32) (N-REF12025 ':INT32) + (LDA-REF12027 ':INT32) (SDIM-REF12028 ':INT32) + (LDVS-REF12032 ':INT32) (RCONDE-REF12033 ':FLOAT) + (RCONDV-REF12034 ':FLOAT) + (LWORK-REF12036 ':INT32) + (LIWORK-REF12038 ':INT32) (INFO-REF12040 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF12023 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12025 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12027 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12028 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF12032 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF12033 :FLOAT) RCONDE) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF12034 :FLOAT) RCONDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12036 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12038 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12040 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12026 A) (WR-REF12029 WR) + (WI-REF12030 WI) (VS-REF12031 VS) + (WORK-REF12035 WORK) + (IWORK-REF12037 IWORK) + (BWORK-REF12039 BWORK)) + (%%SGEESX JOBVS SORT SELECT-REF12023 SENSE N-REF12025 A-REF12026 + LDA-REF12027 SDIM-REF12028 WR-REF12029 WI-REF12030 VS-REF12031 + LDVS-REF12032 RCONDE-REF12033 RCONDV-REF12034 WORK-REF12035 + LWORK-REF12036 IWORK-REF12037 LIWORK-REF12038 BWORK-REF12039 + INFO-REF12040)))) + +(CFFI:DEFCFUN ("sgeev_" %%SGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -1985,24 +1984,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12060 ':INT32) (LDA-REF12062 ':INT32) - (LDVL-REF12066 ':INT32) (LDVR-REF12068 ':INT32) - (LWORK-REF12070 ':INT32) (INFO-REF12071 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12060 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12062 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12066 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12068 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12070 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12071 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12061 A) (WR-REF12063 WR) - (WI-REF12064 WI) (VL-REF12065 VL) - (VR-REF12067 VR) - (WORK-REF12069 WORK)) - (%%SGEEV JOBVL JOBVR N-REF12060 A-REF12061 LDA-REF12062 WR-REF12063 - WI-REF12064 VL-REF12065 LDVL-REF12066 VR-REF12067 LDVR-REF12068 - WORK-REF12069 LWORK-REF12070 INFO-REF12071)))) - -(CFFI:DEFCFUN ("sgeevx_" %%SGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12043 ':INT32) (LDA-REF12045 ':INT32) + (LDVL-REF12049 ':INT32) (LDVR-REF12051 ':INT32) + (LWORK-REF12053 ':INT32) (INFO-REF12054 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12043 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12045 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12049 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12051 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12053 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12054 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12044 A) (WR-REF12046 WR) + (WI-REF12047 WI) (VL-REF12048 VL) + (VR-REF12050 VR) + (WORK-REF12052 WORK)) + (%%SGEEV JOBVL JOBVR N-REF12043 A-REF12044 LDA-REF12045 WR-REF12046 + WI-REF12047 VL-REF12048 LDVL-REF12049 VR-REF12050 LDVR-REF12051 + WORK-REF12052 LWORK-REF12053 INFO-REF12054)))) + +(CFFI:DEFCFUN ("sgeevx_" %%SGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (BALANC :STRING) (JOBVL :STRING) @@ -2071,35 +2070,35 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12076 ':INT32) (LDA-REF12078 ':INT32) - (LDVL-REF12082 ':INT32) (LDVR-REF12084 ':INT32) - (ILO-REF12085 ':INT32) (IHI-REF12086 ':INT32) - (ABNRM-REF12088 ':FLOAT) (LWORK-REF12092 ':INT32) - (INFO-REF12094 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12076 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12078 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12082 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12084 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12085 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12086 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF12088 :FLOAT) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12092 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12094 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12077 A) (WR-REF12079 WR) - (WI-REF12080 WI) (VL-REF12081 VL) - (VR-REF12083 VR) - (SCALE-REF12087 SCALE) - (RCONDE-REF12089 RCONDE) - (RCONDV-REF12090 RCONDV) - (WORK-REF12091 WORK) - (IWORK-REF12093 IWORK)) - (%%SGEEVX BALANC JOBVL JOBVR SENSE N-REF12076 A-REF12077 LDA-REF12078 - WR-REF12079 WI-REF12080 VL-REF12081 LDVL-REF12082 VR-REF12083 - LDVR-REF12084 ILO-REF12085 IHI-REF12086 SCALE-REF12087 - ABNRM-REF12088 RCONDE-REF12089 RCONDV-REF12090 WORK-REF12091 - LWORK-REF12092 IWORK-REF12093 INFO-REF12094)))) - -(CFFI:DEFCFUN ("sgehd2_" %%SGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12059 ':INT32) (LDA-REF12061 ':INT32) + (LDVL-REF12065 ':INT32) (LDVR-REF12067 ':INT32) + (ILO-REF12068 ':INT32) (IHI-REF12069 ':INT32) + (ABNRM-REF12071 ':FLOAT) (LWORK-REF12075 ':INT32) + (INFO-REF12077 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12059 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12061 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12065 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12067 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12068 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12069 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF12071 :FLOAT) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12075 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12077 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12060 A) (WR-REF12062 WR) + (WI-REF12063 WI) (VL-REF12064 VL) + (VR-REF12066 VR) + (SCALE-REF12070 SCALE) + (RCONDE-REF12072 RCONDE) + (RCONDV-REF12073 RCONDV) + (WORK-REF12074 WORK) + (IWORK-REF12076 IWORK)) + (%%SGEEVX BALANC JOBVL JOBVR SENSE N-REF12059 A-REF12060 LDA-REF12061 + WR-REF12062 WI-REF12063 VL-REF12064 LDVL-REF12065 VR-REF12066 + LDVR-REF12067 ILO-REF12068 IHI-REF12069 SCALE-REF12070 ABNRM-REF12071 + RCONDE-REF12072 RCONDV-REF12073 WORK-REF12074 LWORK-REF12075 + IWORK-REF12076 INFO-REF12077)))) + +(CFFI:DEFCFUN ("sgehd2_" %%SGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -2125,20 +2124,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12095 ':INT32) (ILO-REF12096 ':INT32) - (IHI-REF12097 ':INT32) (LDA-REF12099 ':INT32) - (INFO-REF12102 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12095 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12096 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12097 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12099 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12102 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12098 A) (TAU-REF12100 TAU) - (WORK-REF12101 WORK)) - (%%SGEHD2 N-REF12095 ILO-REF12096 IHI-REF12097 A-REF12098 LDA-REF12099 - TAU-REF12100 WORK-REF12101 INFO-REF12102)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12078 ':INT32) (ILO-REF12079 ':INT32) + (IHI-REF12080 ':INT32) (LDA-REF12082 ':INT32) + (INFO-REF12085 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12078 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12079 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12080 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12082 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12085 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12081 A) (TAU-REF12083 TAU) + (WORK-REF12084 WORK)) + (%%SGEHD2 N-REF12078 ILO-REF12079 IHI-REF12080 A-REF12081 LDA-REF12082 + TAU-REF12083 WORK-REF12084 INFO-REF12085)))) -(CFFI:DEFCFUN ("sgehrd_" %%SGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgehrd_" %%SGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -2166,21 +2165,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12103 ':INT32) (ILO-REF12104 ':INT32) - (IHI-REF12105 ':INT32) (LDA-REF12107 ':INT32) - (LWORK-REF12110 ':INT32) (INFO-REF12111 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12103 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12104 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12105 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12107 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12110 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12111 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12106 A) (TAU-REF12108 TAU) - (WORK-REF12109 WORK)) - (%%SGEHRD N-REF12103 ILO-REF12104 IHI-REF12105 A-REF12106 LDA-REF12107 - TAU-REF12108 WORK-REF12109 LWORK-REF12110 INFO-REF12111)))) - -(CFFI:DEFCFUN ("sgejsv_" %%SGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12086 ':INT32) (ILO-REF12087 ':INT32) + (IHI-REF12088 ':INT32) (LDA-REF12090 ':INT32) + (LWORK-REF12093 ':INT32) (INFO-REF12094 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12086 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12087 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12088 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12090 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12093 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12094 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12089 A) (TAU-REF12091 TAU) + (WORK-REF12092 WORK)) + (%%SGEHRD N-REF12086 ILO-REF12087 IHI-REF12088 A-REF12089 LDA-REF12090 + TAU-REF12091 WORK-REF12092 LWORK-REF12093 INFO-REF12094)))) + +(CFFI:DEFCFUN ("sgejsv_" %%SGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBU :STRING) @@ -2235,27 +2234,27 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12118 ':INT32) (N-REF12119 ':INT32) - (LDA-REF12121 ':INT32) (LDU-REF12124 ':INT32) - (LDV-REF12126 ':INT32) (LWORK-REF12128 ':INT32) - (INFO-REF12130 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12118 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12119 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12121 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12124 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12126 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12128 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12130 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12120 A) (SVA-REF12122 SVA) - (U-REF12123 U) (V-REF12125 V) - (WORK-REF12127 WORK) - (IWORK-REF12129 IWORK)) - (%%SGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF12118 N-REF12119 A-REF12120 - LDA-REF12121 SVA-REF12122 U-REF12123 LDU-REF12124 V-REF12125 - LDV-REF12126 WORK-REF12127 LWORK-REF12128 IWORK-REF12129 - INFO-REF12130)))) - -(CFFI:DEFCFUN ("sgelq_" %%SGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12101 ':INT32) (N-REF12102 ':INT32) + (LDA-REF12104 ':INT32) (LDU-REF12107 ':INT32) + (LDV-REF12109 ':INT32) (LWORK-REF12111 ':INT32) + (INFO-REF12113 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12101 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12102 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12104 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12107 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12109 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12111 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12113 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12103 A) (SVA-REF12105 SVA) + (U-REF12106 U) (V-REF12108 V) + (WORK-REF12110 WORK) + (IWORK-REF12112 IWORK)) + (%%SGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF12101 N-REF12102 A-REF12103 + LDA-REF12104 SVA-REF12105 U-REF12106 LDU-REF12107 V-REF12108 + LDV-REF12109 WORK-REF12110 LWORK-REF12111 IWORK-REF12112 + INFO-REF12113)))) + +(CFFI:DEFCFUN ("sgelq_" %%SGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2282,21 +2281,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12131 ':INT32) (N-REF12132 ':INT32) - (LDA-REF12134 ':INT32) (TSIZE-REF12136 ':INT32) - (LWORK-REF12138 ':INT32) (INFO-REF12139 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12131 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12132 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12134 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12136 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12138 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12139 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12133 A) (T-REF12135 T) - (WORK-REF12137 WORK)) - (%%SGELQ M-REF12131 N-REF12132 A-REF12133 LDA-REF12134 T-REF12135 - TSIZE-REF12136 WORK-REF12137 LWORK-REF12138 INFO-REF12139)))) - -(CFFI:DEFCFUN ("sgelq2_" %%SGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12114 ':INT32) (N-REF12115 ':INT32) + (LDA-REF12117 ':INT32) (TSIZE-REF12119 ':INT32) + (LWORK-REF12121 ':INT32) (INFO-REF12122 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12114 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12115 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12117 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12119 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12121 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12122 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12116 A) (T-REF12118 T) + (WORK-REF12120 WORK)) + (%%SGELQ M-REF12114 N-REF12115 A-REF12116 LDA-REF12117 T-REF12118 + TSIZE-REF12119 WORK-REF12120 LWORK-REF12121 INFO-REF12122)))) + +(CFFI:DEFCFUN ("sgelq2_" %%SGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2320,18 +2319,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12140 ':INT32) (N-REF12141 ':INT32) - (LDA-REF12143 ':INT32) (INFO-REF12146 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12140 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12141 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12143 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12146 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12142 A) (TAU-REF12144 TAU) - (WORK-REF12145 WORK)) - (%%SGELQ2 M-REF12140 N-REF12141 A-REF12142 LDA-REF12143 TAU-REF12144 - WORK-REF12145 INFO-REF12146)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12123 ':INT32) (N-REF12124 ':INT32) + (LDA-REF12126 ':INT32) (INFO-REF12129 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12123 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12124 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12126 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12129 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12125 A) (TAU-REF12127 TAU) + (WORK-REF12128 WORK)) + (%%SGELQ2 M-REF12123 N-REF12124 A-REF12125 LDA-REF12126 TAU-REF12127 + WORK-REF12128 INFO-REF12129)))) -(CFFI:DEFCFUN ("sgelqf_" %%SGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgelqf_" %%SGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2357,20 +2356,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12147 ':INT32) (N-REF12148 ':INT32) - (LDA-REF12150 ':INT32) (LWORK-REF12153 ':INT32) - (INFO-REF12154 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12147 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12148 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12150 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12153 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12154 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12149 A) (TAU-REF12151 TAU) - (WORK-REF12152 WORK)) - (%%SGELQF M-REF12147 N-REF12148 A-REF12149 LDA-REF12150 TAU-REF12151 - WORK-REF12152 LWORK-REF12153 INFO-REF12154)))) - -(CFFI:DEFCFUN ("sgelqt_" %%SGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12130 ':INT32) (N-REF12131 ':INT32) + (LDA-REF12133 ':INT32) (LWORK-REF12136 ':INT32) + (INFO-REF12137 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12130 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12131 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12133 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12136 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12137 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12132 A) (TAU-REF12134 TAU) + (WORK-REF12135 WORK)) + (%%SGELQF M-REF12130 N-REF12131 A-REF12132 LDA-REF12133 TAU-REF12134 + WORK-REF12135 LWORK-REF12136 INFO-REF12137)))) + +(CFFI:DEFCFUN ("sgelqt_" %%SGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2397,21 +2396,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12155 ':INT32) (N-REF12156 ':INT32) - (MB-REF12157 ':INT32) (LDA-REF12159 ':INT32) - (LDT-REF12161 ':INT32) (INFO-REF12163 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12155 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12156 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF12157 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12159 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12161 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12163 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12158 A) (T-REF12160 T) - (WORK-REF12162 WORK)) - (%%SGELQT M-REF12155 N-REF12156 MB-REF12157 A-REF12158 LDA-REF12159 - T-REF12160 LDT-REF12161 WORK-REF12162 INFO-REF12163)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12138 ':INT32) (N-REF12139 ':INT32) + (MB-REF12140 ':INT32) (LDA-REF12142 ':INT32) + (LDT-REF12144 ':INT32) (INFO-REF12146 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12138 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12139 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF12140 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12142 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12144 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12146 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12141 A) (T-REF12143 T) + (WORK-REF12145 WORK)) + (%%SGELQT M-REF12138 N-REF12139 MB-REF12140 A-REF12141 LDA-REF12142 + T-REF12143 LDT-REF12144 WORK-REF12145 INFO-REF12146)))) -(CFFI:DEFCFUN ("sgelqt3_" %%SGELQT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgelqt3_" %%SGELQT3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2432,19 +2432,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12164 ':INT32) (N-REF12165 ':INT32) - (LDA-REF12167 ':INT32) (LDT-REF12169 ':INT32) - (INFO-REF12170 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12164 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12165 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12167 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12169 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12170 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12166 A) (T-REF12168 T)) - (%%SGELQT3 M-REF12164 N-REF12165 A-REF12166 LDA-REF12167 T-REF12168 - LDT-REF12169 INFO-REF12170)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12147 ':INT32) (N-REF12148 ':INT32) + (LDA-REF12150 ':INT32) (LDT-REF12152 ':INT32) + (INFO-REF12153 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12147 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12148 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12150 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12152 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12153 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12149 A) (T-REF12151 T)) + (%%SGELQT3 M-REF12147 N-REF12148 A-REF12149 LDA-REF12150 T-REF12151 + LDT-REF12152 INFO-REF12153)))) -(CFFI:DEFCFUN ("sgels_" %%SGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgels_" %%SGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (M :POINTER) @@ -2475,24 +2475,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12172 ':INT32) (N-REF12173 ':INT32) - (NRHS-REF12174 ':INT32) (LDA-REF12176 ':INT32) - (LDB-REF12178 ':INT32) (LWORK-REF12180 ':INT32) - (INFO-REF12181 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12172 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12173 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12174 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12176 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12178 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12180 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12181 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12175 A) (B-REF12177 B) - (WORK-REF12179 WORK)) - (%%SGELS TRANS M-REF12172 N-REF12173 NRHS-REF12174 A-REF12175 - LDA-REF12176 B-REF12177 LDB-REF12178 WORK-REF12179 - LWORK-REF12180 INFO-REF12181)))) - -(CFFI:DEFCFUN ("sgelsd_" %%SGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12155 ':INT32) (N-REF12156 ':INT32) + (NRHS-REF12157 ':INT32) (LDA-REF12159 ':INT32) + (LDB-REF12161 ':INT32) (LWORK-REF12163 ':INT32) + (INFO-REF12164 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12155 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12156 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12157 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12159 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12161 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12163 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12164 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12158 A) (B-REF12160 B) + (WORK-REF12162 WORK)) + (%%SGELS TRANS M-REF12155 N-REF12156 NRHS-REF12157 A-REF12158 + LDA-REF12159 B-REF12160 LDB-REF12161 WORK-REF12162 LWORK-REF12163 + INFO-REF12164)))) + +(CFFI:DEFCFUN ("sgelsd_" %%SGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2534,28 +2534,28 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12182 ':INT32) (N-REF12183 ':INT32) - (NRHS-REF12184 ':INT32) (LDA-REF12186 ':INT32) - (LDB-REF12188 ':INT32) (RCOND-REF12190 ':FLOAT) - (RANK-REF12191 ':INT32) (LWORK-REF12193 ':INT32) - (INFO-REF12195 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12182 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12183 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12184 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12186 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12188 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12190 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12191 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12193 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12195 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12185 A) (B-REF12187 B) - (S-REF12189 S) (WORK-REF12192 WORK) - (IWORK-REF12194 IWORK)) - (%%SGELSD M-REF12182 N-REF12183 NRHS-REF12184 A-REF12185 LDA-REF12186 - B-REF12187 LDB-REF12188 S-REF12189 RCOND-REF12190 RANK-REF12191 - WORK-REF12192 LWORK-REF12193 IWORK-REF12194 INFO-REF12195)))) - -(CFFI:DEFCFUN ("sgelss_" %%SGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12165 ':INT32) (N-REF12166 ':INT32) + (NRHS-REF12167 ':INT32) (LDA-REF12169 ':INT32) + (LDB-REF12171 ':INT32) (RCOND-REF12173 ':FLOAT) + (RANK-REF12174 ':INT32) (LWORK-REF12176 ':INT32) + (INFO-REF12178 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12165 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12166 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12167 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12169 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12171 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12173 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12174 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12176 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12178 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12168 A) (B-REF12170 B) + (S-REF12172 S) (WORK-REF12175 WORK) + (IWORK-REF12177 IWORK)) + (%%SGELSD M-REF12165 N-REF12166 NRHS-REF12167 A-REF12168 LDA-REF12169 + B-REF12170 LDB-REF12171 S-REF12172 RCOND-REF12173 RANK-REF12174 + WORK-REF12175 LWORK-REF12176 IWORK-REF12177 INFO-REF12178)))) + +(CFFI:DEFCFUN ("sgelss_" %%SGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2591,27 +2591,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12196 ':INT32) (N-REF12197 ':INT32) - (NRHS-REF12198 ':INT32) (LDA-REF12200 ':INT32) - (LDB-REF12202 ':INT32) (RCOND-REF12204 ':FLOAT) - (RANK-REF12205 ':INT32) (LWORK-REF12207 ':INT32) - (INFO-REF12208 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12196 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12197 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12198 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12200 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12202 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12204 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12205 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12207 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12208 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12199 A) (B-REF12201 B) - (S-REF12203 S) (WORK-REF12206 WORK)) - (%%SGELSS M-REF12196 N-REF12197 NRHS-REF12198 A-REF12199 LDA-REF12200 - B-REF12201 LDB-REF12202 S-REF12203 RCOND-REF12204 RANK-REF12205 - WORK-REF12206 LWORK-REF12207 INFO-REF12208)))) - -(CFFI:DEFCFUN ("sgelsy_" %%SGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12179 ':INT32) (N-REF12180 ':INT32) + (NRHS-REF12181 ':INT32) (LDA-REF12183 ':INT32) + (LDB-REF12185 ':INT32) (RCOND-REF12187 ':FLOAT) + (RANK-REF12188 ':INT32) (LWORK-REF12190 ':INT32) + (INFO-REF12191 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12179 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12180 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12181 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12183 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12185 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12187 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12188 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12190 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12191 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12182 A) (B-REF12184 B) + (S-REF12186 S) (WORK-REF12189 WORK)) + (%%SGELSS M-REF12179 N-REF12180 NRHS-REF12181 A-REF12182 LDA-REF12183 + B-REF12184 LDB-REF12185 S-REF12186 RCOND-REF12187 RANK-REF12188 + WORK-REF12189 LWORK-REF12190 INFO-REF12191)))) + +(CFFI:DEFCFUN ("sgelsy_" %%SGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2650,28 +2650,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12209 ':INT32) (N-REF12210 ':INT32) - (NRHS-REF12211 ':INT32) (LDA-REF12213 ':INT32) - (LDB-REF12215 ':INT32) (RCOND-REF12217 ':FLOAT) - (RANK-REF12218 ':INT32) (LWORK-REF12220 ':INT32) - (INFO-REF12221 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12209 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12210 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12211 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12213 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12215 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12217 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12218 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12220 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12221 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12212 A) (B-REF12214 B) - (JPVT-REF12216 JPVT) - (WORK-REF12219 WORK)) - (%%SGELSY M-REF12209 N-REF12210 NRHS-REF12211 A-REF12212 LDA-REF12213 - B-REF12214 LDB-REF12215 JPVT-REF12216 RCOND-REF12217 - RANK-REF12218 WORK-REF12219 LWORK-REF12220 INFO-REF12221)))) - -(CFFI:DEFCFUN ("sgemlq_" %%SGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12192 ':INT32) (N-REF12193 ':INT32) + (NRHS-REF12194 ':INT32) (LDA-REF12196 ':INT32) + (LDB-REF12198 ':INT32) (RCOND-REF12200 ':FLOAT) + (RANK-REF12201 ':INT32) (LWORK-REF12203 ':INT32) + (INFO-REF12204 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12192 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12193 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12194 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12196 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12198 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12200 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF12201 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12203 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12204 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12195 A) (B-REF12197 B) + (JPVT-REF12199 JPVT) + (WORK-REF12202 WORK)) + (%%SGELSY M-REF12192 N-REF12193 NRHS-REF12194 A-REF12195 LDA-REF12196 + B-REF12197 LDB-REF12198 JPVT-REF12199 RCOND-REF12200 RANK-REF12201 + WORK-REF12202 LWORK-REF12203 INFO-REF12204)))) + +(CFFI:DEFCFUN ("sgemlq_" %%SGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2710,25 +2710,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12224 ':INT32) (N-REF12225 ':INT32) - (K-REF12226 ':INT32) (LDA-REF12228 ':INT32) - (TSIZE-REF12230 ':INT32) (LDC-REF12232 ':INT32) - (LWORK-REF12234 ':INT32) (INFO-REF12235 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12224 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12225 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12226 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12228 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12230 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12232 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12234 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12235 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12227 A) (T-REF12229 T) - (C-REF12231 C) (WORK-REF12233 WORK)) - (%%SGEMLQ SIDE TRANS M-REF12224 N-REF12225 K-REF12226 A-REF12227 - LDA-REF12228 T-REF12229 TSIZE-REF12230 C-REF12231 LDC-REF12232 - WORK-REF12233 LWORK-REF12234 INFO-REF12235)))) - -(CFFI:DEFCFUN ("sgemlqt_" %%SGEMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12207 ':INT32) (N-REF12208 ':INT32) + (K-REF12209 ':INT32) (LDA-REF12211 ':INT32) + (TSIZE-REF12213 ':INT32) (LDC-REF12215 ':INT32) + (LWORK-REF12217 ':INT32) (INFO-REF12218 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12207 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12208 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12209 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12211 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12213 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12215 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12217 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12218 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12210 A) (T-REF12212 T) + (C-REF12214 C) (WORK-REF12216 WORK)) + (%%SGEMLQ SIDE TRANS M-REF12207 N-REF12208 K-REF12209 A-REF12210 + LDA-REF12211 T-REF12212 TSIZE-REF12213 C-REF12214 LDC-REF12215 + WORK-REF12216 LWORK-REF12217 INFO-REF12218)))) + +(CFFI:DEFCFUN ("sgemlqt_" %%SGEMLQT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2766,25 +2767,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12238 ':INT32) (N-REF12239 ':INT32) - (K-REF12240 ':INT32) (MB-REF12241 ':INT32) - (LDV-REF12243 ':INT32) (LDT-REF12245 ':INT32) - (LDC-REF12247 ':INT32) (INFO-REF12249 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12238 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12239 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12240 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF12241 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12243 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12245 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12247 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12249 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF12242 V) (T-REF12244 T) - (C-REF12246 C) (WORK-REF12248 WORK)) - (%%SGEMLQT SIDE TRANS M-REF12238 N-REF12239 K-REF12240 MB-REF12241 - V-REF12242 LDV-REF12243 T-REF12244 LDT-REF12245 C-REF12246 - LDC-REF12247 WORK-REF12248 INFO-REF12249)))) - -(CFFI:DEFCFUN ("sgemqr_" %%SGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12221 ':INT32) (N-REF12222 ':INT32) + (K-REF12223 ':INT32) (MB-REF12224 ':INT32) + (LDV-REF12226 ':INT32) (LDT-REF12228 ':INT32) + (LDC-REF12230 ':INT32) (INFO-REF12232 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12221 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12222 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12223 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF12224 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12226 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12228 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12230 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12232 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF12225 V) (T-REF12227 T) + (C-REF12229 C) (WORK-REF12231 WORK)) + (%%SGEMLQT SIDE TRANS M-REF12221 N-REF12222 K-REF12223 MB-REF12224 + V-REF12225 LDV-REF12226 T-REF12227 LDT-REF12228 C-REF12229 LDC-REF12230 + WORK-REF12231 INFO-REF12232)))) + +(CFFI:DEFCFUN ("sgemqr_" %%SGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2823,25 +2824,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12252 ':INT32) (N-REF12253 ':INT32) - (K-REF12254 ':INT32) (LDA-REF12256 ':INT32) - (TSIZE-REF12258 ':INT32) (LDC-REF12260 ':INT32) - (LWORK-REF12262 ':INT32) (INFO-REF12263 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12252 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12253 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12254 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12256 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12258 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12260 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12262 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12263 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12255 A) (T-REF12257 T) - (C-REF12259 C) (WORK-REF12261 WORK)) - (%%SGEMQR SIDE TRANS M-REF12252 N-REF12253 K-REF12254 A-REF12255 - LDA-REF12256 T-REF12257 TSIZE-REF12258 C-REF12259 LDC-REF12260 - WORK-REF12261 LWORK-REF12262 INFO-REF12263)))) - -(CFFI:DEFCFUN ("sgemqrt_" %%SGEMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12235 ':INT32) (N-REF12236 ':INT32) + (K-REF12237 ':INT32) (LDA-REF12239 ':INT32) + (TSIZE-REF12241 ':INT32) (LDC-REF12243 ':INT32) + (LWORK-REF12245 ':INT32) (INFO-REF12246 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12235 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12236 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12237 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12239 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12241 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12243 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12245 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12246 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12238 A) (T-REF12240 T) + (C-REF12242 C) (WORK-REF12244 WORK)) + (%%SGEMQR SIDE TRANS M-REF12235 N-REF12236 K-REF12237 A-REF12238 + LDA-REF12239 T-REF12240 TSIZE-REF12241 C-REF12242 LDC-REF12243 + WORK-REF12244 LWORK-REF12245 INFO-REF12246)))) + +(CFFI:DEFCFUN ("sgemqrt_" %%SGEMQRT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2879,25 +2881,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12266 ':INT32) (N-REF12267 ':INT32) - (K-REF12268 ':INT32) (NB-REF12269 ':INT32) - (LDV-REF12271 ':INT32) (LDT-REF12273 ':INT32) - (LDC-REF12275 ':INT32) (INFO-REF12277 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12266 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12267 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12268 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF12269 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12271 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12273 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12275 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12277 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF12270 V) (T-REF12272 T) - (C-REF12274 C) (WORK-REF12276 WORK)) - (%%SGEMQRT SIDE TRANS M-REF12266 N-REF12267 K-REF12268 NB-REF12269 - V-REF12270 LDV-REF12271 T-REF12272 LDT-REF12273 C-REF12274 - LDC-REF12275 WORK-REF12276 INFO-REF12277)))) - -(CFFI:DEFCFUN ("sgeql2_" %%SGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12249 ':INT32) (N-REF12250 ':INT32) + (K-REF12251 ':INT32) (NB-REF12252 ':INT32) + (LDV-REF12254 ':INT32) (LDT-REF12256 ':INT32) + (LDC-REF12258 ':INT32) (INFO-REF12260 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12249 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12250 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12251 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF12252 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12254 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12256 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF12258 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12260 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF12253 V) (T-REF12255 T) + (C-REF12257 C) (WORK-REF12259 WORK)) + (%%SGEMQRT SIDE TRANS M-REF12249 N-REF12250 K-REF12251 NB-REF12252 + V-REF12253 LDV-REF12254 T-REF12255 LDT-REF12256 C-REF12257 LDC-REF12258 + WORK-REF12259 INFO-REF12260)))) + +(CFFI:DEFCFUN ("sgeql2_" %%SGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2921,18 +2923,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12278 ':INT32) (N-REF12279 ':INT32) - (LDA-REF12281 ':INT32) (INFO-REF12284 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12278 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12279 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12281 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12284 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12280 A) (TAU-REF12282 TAU) - (WORK-REF12283 WORK)) - (%%SGEQL2 M-REF12278 N-REF12279 A-REF12280 LDA-REF12281 TAU-REF12282 - WORK-REF12283 INFO-REF12284)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12261 ':INT32) (N-REF12262 ':INT32) + (LDA-REF12264 ':INT32) (INFO-REF12267 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12261 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12262 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12264 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12267 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12263 A) (TAU-REF12265 TAU) + (WORK-REF12266 WORK)) + (%%SGEQL2 M-REF12261 N-REF12262 A-REF12263 LDA-REF12264 TAU-REF12265 + WORK-REF12266 INFO-REF12267)))) -(CFFI:DEFCFUN ("sgeqlf_" %%SGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgeqlf_" %%SGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2958,20 +2960,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12285 ':INT32) (N-REF12286 ':INT32) - (LDA-REF12288 ':INT32) (LWORK-REF12291 ':INT32) - (INFO-REF12292 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12285 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12286 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12288 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12291 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12292 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12287 A) (TAU-REF12289 TAU) - (WORK-REF12290 WORK)) - (%%SGEQLF M-REF12285 N-REF12286 A-REF12287 LDA-REF12288 TAU-REF12289 - WORK-REF12290 LWORK-REF12291 INFO-REF12292)))) - -(CFFI:DEFCFUN ("sgeqp3_" %%SGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12268 ':INT32) (N-REF12269 ':INT32) + (LDA-REF12271 ':INT32) (LWORK-REF12274 ':INT32) + (INFO-REF12275 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12268 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12269 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12271 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12274 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12275 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12270 A) (TAU-REF12272 TAU) + (WORK-REF12273 WORK)) + (%%SGEQLF M-REF12268 N-REF12269 A-REF12270 LDA-REF12271 TAU-REF12272 + WORK-REF12273 LWORK-REF12274 INFO-REF12275)))) + +(CFFI:DEFCFUN ("sgeqp3_" %%SGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3002,21 +3004,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12293 ':INT32) (N-REF12294 ':INT32) - (LDA-REF12296 ':INT32) (LWORK-REF12300 ':INT32) - (INFO-REF12301 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12293 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12294 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12296 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12300 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12301 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12295 A) (JPVT-REF12297 JPVT) - (TAU-REF12298 TAU) - (WORK-REF12299 WORK)) - (%%SGEQP3 M-REF12293 N-REF12294 A-REF12295 LDA-REF12296 JPVT-REF12297 - TAU-REF12298 WORK-REF12299 LWORK-REF12300 INFO-REF12301)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12276 ':INT32) (N-REF12277 ':INT32) + (LDA-REF12279 ':INT32) (LWORK-REF12283 ':INT32) + (INFO-REF12284 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12276 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12277 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12279 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12283 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12284 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12278 A) (JPVT-REF12280 JPVT) + (TAU-REF12281 TAU) + (WORK-REF12282 WORK)) + (%%SGEQP3 M-REF12276 N-REF12277 A-REF12278 LDA-REF12279 JPVT-REF12280 + TAU-REF12281 WORK-REF12282 LWORK-REF12283 INFO-REF12284)))) -(CFFI:DEFCFUN ("sgeqr_" %%SGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgeqr_" %%SGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3043,21 +3045,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12302 ':INT32) (N-REF12303 ':INT32) - (LDA-REF12305 ':INT32) (TSIZE-REF12307 ':INT32) - (LWORK-REF12309 ':INT32) (INFO-REF12310 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12302 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12303 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12305 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12307 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12309 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12310 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12304 A) (T-REF12306 T) - (WORK-REF12308 WORK)) - (%%SGEQR M-REF12302 N-REF12303 A-REF12304 LDA-REF12305 T-REF12306 - TSIZE-REF12307 WORK-REF12308 LWORK-REF12309 INFO-REF12310)))) - -(CFFI:DEFCFUN ("sgeqr2_" %%SGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12285 ':INT32) (N-REF12286 ':INT32) + (LDA-REF12288 ':INT32) (TSIZE-REF12290 ':INT32) + (LWORK-REF12292 ':INT32) (INFO-REF12293 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12285 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12286 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12288 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF12290 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12292 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12293 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12287 A) (T-REF12289 T) + (WORK-REF12291 WORK)) + (%%SGEQR M-REF12285 N-REF12286 A-REF12287 LDA-REF12288 T-REF12289 + TSIZE-REF12290 WORK-REF12291 LWORK-REF12292 INFO-REF12293)))) + +(CFFI:DEFCFUN ("sgeqr2_" %%SGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3081,18 +3083,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12311 ':INT32) (N-REF12312 ':INT32) - (LDA-REF12314 ':INT32) (INFO-REF12317 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12311 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12312 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12314 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12317 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12313 A) (TAU-REF12315 TAU) - (WORK-REF12316 WORK)) - (%%SGEQR2 M-REF12311 N-REF12312 A-REF12313 LDA-REF12314 TAU-REF12315 - WORK-REF12316 INFO-REF12317)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12294 ':INT32) (N-REF12295 ':INT32) + (LDA-REF12297 ':INT32) (INFO-REF12300 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12294 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12295 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12297 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12300 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12296 A) (TAU-REF12298 TAU) + (WORK-REF12299 WORK)) + (%%SGEQR2 M-REF12294 N-REF12295 A-REF12296 LDA-REF12297 TAU-REF12298 + WORK-REF12299 INFO-REF12300)))) -(CFFI:DEFCFUN ("sgeqr2p_" %%SGEQR2P :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgeqr2p_" %%SGEQR2P :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3116,18 +3119,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12318 ':INT32) (N-REF12319 ':INT32) - (LDA-REF12321 ':INT32) (INFO-REF12324 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12318 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12319 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12321 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12324 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12320 A) (TAU-REF12322 TAU) - (WORK-REF12323 WORK)) - (%%SGEQR2P M-REF12318 N-REF12319 A-REF12320 LDA-REF12321 TAU-REF12322 - WORK-REF12323 INFO-REF12324)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12301 ':INT32) (N-REF12302 ':INT32) + (LDA-REF12304 ':INT32) (INFO-REF12307 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12301 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12302 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12304 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12307 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12303 A) (TAU-REF12305 TAU) + (WORK-REF12306 WORK)) + (%%SGEQR2P M-REF12301 N-REF12302 A-REF12303 LDA-REF12304 TAU-REF12305 + WORK-REF12306 INFO-REF12307)))) -(CFFI:DEFCFUN ("sgeqrf_" %%SGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgeqrf_" %%SGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3153,20 +3156,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12325 ':INT32) (N-REF12326 ':INT32) - (LDA-REF12328 ':INT32) (LWORK-REF12331 ':INT32) - (INFO-REF12332 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12325 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12326 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12328 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12331 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12332 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12327 A) (TAU-REF12329 TAU) - (WORK-REF12330 WORK)) - (%%SGEQRF M-REF12325 N-REF12326 A-REF12327 LDA-REF12328 TAU-REF12329 - WORK-REF12330 LWORK-REF12331 INFO-REF12332)))) - -(CFFI:DEFCFUN ("sgeqrfp_" %%SGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12308 ':INT32) (N-REF12309 ':INT32) + (LDA-REF12311 ':INT32) (LWORK-REF12314 ':INT32) + (INFO-REF12315 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12308 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12309 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12311 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12314 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12315 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12310 A) (TAU-REF12312 TAU) + (WORK-REF12313 WORK)) + (%%SGEQRF M-REF12308 N-REF12309 A-REF12310 LDA-REF12311 TAU-REF12312 + WORK-REF12313 LWORK-REF12314 INFO-REF12315)))) + +(CFFI:DEFCFUN ("sgeqrfp_" %%SGEQRFP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3192,20 +3196,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12333 ':INT32) (N-REF12334 ':INT32) - (LDA-REF12336 ':INT32) (LWORK-REF12339 ':INT32) - (INFO-REF12340 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12333 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12334 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12336 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12339 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12340 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12335 A) (TAU-REF12337 TAU) - (WORK-REF12338 WORK)) - (%%SGEQRFP M-REF12333 N-REF12334 A-REF12335 LDA-REF12336 TAU-REF12337 - WORK-REF12338 LWORK-REF12339 INFO-REF12340)))) - -(CFFI:DEFCFUN ("sgeqrt_" %%SGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12316 ':INT32) (N-REF12317 ':INT32) + (LDA-REF12319 ':INT32) (LWORK-REF12322 ':INT32) + (INFO-REF12323 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12316 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12317 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12319 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12322 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12323 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12318 A) (TAU-REF12320 TAU) + (WORK-REF12321 WORK)) + (%%SGEQRFP M-REF12316 N-REF12317 A-REF12318 LDA-REF12319 TAU-REF12320 + WORK-REF12321 LWORK-REF12322 INFO-REF12323)))) + +(CFFI:DEFCFUN ("sgeqrt_" %%SGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3232,21 +3236,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12341 ':INT32) (N-REF12342 ':INT32) - (NB-REF12343 ':INT32) (LDA-REF12345 ':INT32) - (LDT-REF12347 ':INT32) (INFO-REF12349 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12341 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12342 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF12343 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12345 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12347 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12349 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12344 A) (T-REF12346 T) - (WORK-REF12348 WORK)) - (%%SGEQRT M-REF12341 N-REF12342 NB-REF12343 A-REF12344 LDA-REF12345 - T-REF12346 LDT-REF12347 WORK-REF12348 INFO-REF12349)))) - -(CFFI:DEFCFUN ("sgeqrt2_" %%SGEQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12324 ':INT32) (N-REF12325 ':INT32) + (NB-REF12326 ':INT32) (LDA-REF12328 ':INT32) + (LDT-REF12330 ':INT32) (INFO-REF12332 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12324 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12325 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF12326 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12328 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12330 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12332 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12327 A) (T-REF12329 T) + (WORK-REF12331 WORK)) + (%%SGEQRT M-REF12324 N-REF12325 NB-REF12326 A-REF12327 LDA-REF12328 + T-REF12329 LDT-REF12330 WORK-REF12331 INFO-REF12332)))) + +(CFFI:DEFCFUN ("sgeqrt2_" %%SGEQRT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3267,19 +3272,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12350 ':INT32) (N-REF12351 ':INT32) - (LDA-REF12353 ':INT32) (LDT-REF12355 ':INT32) - (INFO-REF12356 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12350 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12351 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12353 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12355 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12356 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12352 A) (T-REF12354 T)) - (%%SGEQRT2 M-REF12350 N-REF12351 A-REF12352 LDA-REF12353 T-REF12354 - LDT-REF12355 INFO-REF12356)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12333 ':INT32) (N-REF12334 ':INT32) + (LDA-REF12336 ':INT32) (LDT-REF12338 ':INT32) + (INFO-REF12339 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12333 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12334 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12336 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12338 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12339 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12335 A) (T-REF12337 T)) + (%%SGEQRT2 M-REF12333 N-REF12334 A-REF12335 LDA-REF12336 T-REF12337 + LDT-REF12338 INFO-REF12339)))) -(CFFI:DEFCFUN ("sgeqrt3_" %%SGEQRT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgeqrt3_" %%SGEQRT3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3300,19 +3306,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12357 ':INT32) (N-REF12358 ':INT32) - (LDA-REF12360 ':INT32) (LDT-REF12362 ':INT32) - (INFO-REF12363 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12357 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12358 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12360 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12362 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12363 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12359 A) (T-REF12361 T)) - (%%SGEQRT3 M-REF12357 N-REF12358 A-REF12359 LDA-REF12360 T-REF12361 - LDT-REF12362 INFO-REF12363)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12340 ':INT32) (N-REF12341 ':INT32) + (LDA-REF12343 ':INT32) (LDT-REF12345 ':INT32) + (INFO-REF12346 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12340 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12341 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12343 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF12345 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12346 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12342 A) (T-REF12344 T)) + (%%SGEQRT3 M-REF12340 N-REF12341 A-REF12342 LDA-REF12343 T-REF12344 + LDT-REF12345 INFO-REF12346)))) -(CFFI:DEFCFUN ("sgerfs_" %%SGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgerfs_" %%SGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -3369,29 +3375,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12365 ':INT32) (NRHS-REF12366 ':INT32) - (LDA-REF12368 ':INT32) (LDAF-REF12370 ':INT32) - (LDB-REF12373 ':INT32) (LDX-REF12375 ':INT32) - (INFO-REF12380 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12365 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12366 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12368 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12370 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12373 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12375 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12380 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12367 A) (AF-REF12369 AF) - (IPIV-REF12371 IPIV) (B-REF12372 B) - (X-REF12374 X) (FERR-REF12376 FERR) - (BERR-REF12377 BERR) - (WORK-REF12378 WORK) - (IWORK-REF12379 IWORK)) - (%%SGERFS TRANS N-REF12365 NRHS-REF12366 A-REF12367 LDA-REF12368 - AF-REF12369 LDAF-REF12370 IPIV-REF12371 B-REF12372 LDB-REF12373 - X-REF12374 LDX-REF12375 FERR-REF12376 BERR-REF12377 - WORK-REF12378 IWORK-REF12379 INFO-REF12380)))) - -(CFFI:DEFCFUN ("sgerfsx_" %%SGERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12348 ':INT32) (NRHS-REF12349 ':INT32) + (LDA-REF12351 ':INT32) (LDAF-REF12353 ':INT32) + (LDB-REF12356 ':INT32) (LDX-REF12358 ':INT32) + (INFO-REF12363 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12348 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12349 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12351 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12353 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12356 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12358 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12363 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12350 A) (AF-REF12352 AF) + (IPIV-REF12354 IPIV) (B-REF12355 B) + (X-REF12357 X) (FERR-REF12359 FERR) + (BERR-REF12360 BERR) + (WORK-REF12361 WORK) + (IWORK-REF12362 IWORK)) + (%%SGERFS TRANS N-REF12348 NRHS-REF12349 A-REF12350 LDA-REF12351 + AF-REF12352 LDAF-REF12353 IPIV-REF12354 B-REF12355 LDB-REF12356 + X-REF12357 LDX-REF12358 FERR-REF12359 BERR-REF12360 WORK-REF12361 + IWORK-REF12362 INFO-REF12363)))) + +(CFFI:DEFCFUN ("sgerfsx_" %%SGERFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (EQUED :STRING) @@ -3472,42 +3479,42 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12383 ':INT32) (NRHS-REF12384 ':INT32) - (LDA-REF12386 ':INT32) (LDAF-REF12388 ':INT32) - (LDB-REF12393 ':INT32) (LDX-REF12395 ':INT32) - (RCOND-REF12396 ':FLOAT) - (N_ERR_BNDS-REF12398 ':INT32) - (NPARAMS-REF12401 ':INT32) - (INFO-REF12405 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12383 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12384 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12386 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12388 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12393 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12395 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12396 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF12398 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF12401 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12405 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12385 A) (AF-REF12387 AF) - (IPIV-REF12389 IPIV) (R-REF12390 R) - (C-REF12391 C) (B-REF12392 B) - (X-REF12394 X) (BERR-REF12397 BERR) - (ERR_BNDS_NORM-REF12399 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12366 ':INT32) (NRHS-REF12367 ':INT32) + (LDA-REF12369 ':INT32) (LDAF-REF12371 ':INT32) + (LDB-REF12376 ':INT32) (LDX-REF12378 ':INT32) + (RCOND-REF12379 ':FLOAT) + (N_ERR_BNDS-REF12381 ':INT32) + (NPARAMS-REF12384 ':INT32) + (INFO-REF12388 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12366 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12367 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12369 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12371 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12376 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12378 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12379 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF12381 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF12384 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12388 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12368 A) (AF-REF12370 AF) + (IPIV-REF12372 IPIV) (R-REF12373 R) + (C-REF12374 C) (B-REF12375 B) + (X-REF12377 X) (BERR-REF12380 BERR) + (ERR_BNDS_NORM-REF12382 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF12400 + (ERR_BNDS_COMP-REF12383 ERR_BNDS_COMP) - (PARAMS-REF12402 PARAMS) - (WORK-REF12403 WORK) - (IWORK-REF12404 IWORK)) - (%%SGERFSX TRANS EQUED N-REF12383 NRHS-REF12384 A-REF12385 LDA-REF12386 - AF-REF12387 LDAF-REF12388 IPIV-REF12389 R-REF12390 C-REF12391 - B-REF12392 LDB-REF12393 X-REF12394 LDX-REF12395 RCOND-REF12396 - BERR-REF12397 N_ERR_BNDS-REF12398 ERR_BNDS_NORM-REF12399 - ERR_BNDS_COMP-REF12400 NPARAMS-REF12401 PARAMS-REF12402 - WORK-REF12403 IWORK-REF12404 INFO-REF12405)))) - -(CFFI:DEFCFUN ("sgerq2_" %%SGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF12385 PARAMS) + (WORK-REF12386 WORK) + (IWORK-REF12387 IWORK)) + (%%SGERFSX TRANS EQUED N-REF12366 NRHS-REF12367 A-REF12368 LDA-REF12369 + AF-REF12370 LDAF-REF12371 IPIV-REF12372 R-REF12373 C-REF12374 B-REF12375 + LDB-REF12376 X-REF12377 LDX-REF12378 RCOND-REF12379 BERR-REF12380 + N_ERR_BNDS-REF12381 ERR_BNDS_NORM-REF12382 ERR_BNDS_COMP-REF12383 + NPARAMS-REF12384 PARAMS-REF12385 WORK-REF12386 IWORK-REF12387 + INFO-REF12388)))) + +(CFFI:DEFCFUN ("sgerq2_" %%SGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3531,18 +3538,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12406 ':INT32) (N-REF12407 ':INT32) - (LDA-REF12409 ':INT32) (INFO-REF12412 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12406 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12407 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12409 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12412 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12408 A) (TAU-REF12410 TAU) - (WORK-REF12411 WORK)) - (%%SGERQ2 M-REF12406 N-REF12407 A-REF12408 LDA-REF12409 TAU-REF12410 - WORK-REF12411 INFO-REF12412)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12389 ':INT32) (N-REF12390 ':INT32) + (LDA-REF12392 ':INT32) (INFO-REF12395 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12389 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12390 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12392 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12395 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12391 A) (TAU-REF12393 TAU) + (WORK-REF12394 WORK)) + (%%SGERQ2 M-REF12389 N-REF12390 A-REF12391 LDA-REF12392 TAU-REF12393 + WORK-REF12394 INFO-REF12395)))) -(CFFI:DEFCFUN ("sgerqf_" %%SGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgerqf_" %%SGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3568,20 +3575,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12413 ':INT32) (N-REF12414 ':INT32) - (LDA-REF12416 ':INT32) (LWORK-REF12419 ':INT32) - (INFO-REF12420 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12413 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12414 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12416 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12419 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12420 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12415 A) (TAU-REF12417 TAU) - (WORK-REF12418 WORK)) - (%%SGERQF M-REF12413 N-REF12414 A-REF12415 LDA-REF12416 TAU-REF12417 - WORK-REF12418 LWORK-REF12419 INFO-REF12420)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12396 ':INT32) (N-REF12397 ':INT32) + (LDA-REF12399 ':INT32) (LWORK-REF12402 ':INT32) + (INFO-REF12403 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12396 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12397 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12399 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12402 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12403 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12398 A) (TAU-REF12400 TAU) + (WORK-REF12401 WORK)) + (%%SGERQF M-REF12396 N-REF12397 A-REF12398 LDA-REF12399 TAU-REF12400 + WORK-REF12401 LWORK-REF12402 INFO-REF12403)))) -(CFFI:DEFCFUN ("sgesc2_" %%SGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgesc2_" %%SGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3609,18 +3616,18 @@ (COMMON-LISP:*)) JPIV) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12421 ':INT32) (LDA-REF12423 ':INT32) - (SCALE-REF12427 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12421 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12423 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF12427 :FLOAT) SCALE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12422 A) (RHS-REF12424 RHS) - (IPIV-REF12425 IPIV) - (JPIV-REF12426 JPIV)) - (%%SGESC2 N-REF12421 A-REF12422 LDA-REF12423 RHS-REF12424 IPIV-REF12425 - JPIV-REF12426 SCALE-REF12427)))) - -(CFFI:DEFCFUN ("sgesdd_" %%SGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12404 ':INT32) (LDA-REF12406 ':INT32) + (SCALE-REF12410 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12404 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12406 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF12410 :FLOAT) SCALE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12405 A) (RHS-REF12407 RHS) + (IPIV-REF12408 IPIV) + (JPIV-REF12409 JPIV)) + (%%SGESC2 N-REF12404 A-REF12405 LDA-REF12406 RHS-REF12407 IPIV-REF12408 + JPIV-REF12409 SCALE-REF12410)))) + +(CFFI:DEFCFUN ("sgesdd_" %%SGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (M :POINTER) @@ -3663,26 +3670,26 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12429 ':INT32) (N-REF12430 ':INT32) - (LDA-REF12432 ':INT32) (LDU-REF12435 ':INT32) - (LDVT-REF12437 ':INT32) (LWORK-REF12439 ':INT32) - (INFO-REF12441 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12429 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12430 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12432 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12435 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12437 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12439 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12441 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12431 A) (S-REF12433 S) - (U-REF12434 U) (VT-REF12436 VT) - (WORK-REF12438 WORK) - (IWORK-REF12440 IWORK)) - (%%SGESDD JOBZ M-REF12429 N-REF12430 A-REF12431 LDA-REF12432 S-REF12433 - U-REF12434 LDU-REF12435 VT-REF12436 LDVT-REF12437 WORK-REF12438 - LWORK-REF12439 IWORK-REF12440 INFO-REF12441)))) - -(CFFI:DEFCFUN ("sgesv_" %%SGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12412 ':INT32) (N-REF12413 ':INT32) + (LDA-REF12415 ':INT32) (LDU-REF12418 ':INT32) + (LDVT-REF12420 ':INT32) (LWORK-REF12422 ':INT32) + (INFO-REF12424 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12412 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12413 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12415 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12418 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12420 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12422 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12424 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12414 A) (S-REF12416 S) + (U-REF12417 U) (VT-REF12419 VT) + (WORK-REF12421 WORK) + (IWORK-REF12423 IWORK)) + (%%SGESDD JOBZ M-REF12412 N-REF12413 A-REF12414 LDA-REF12415 S-REF12416 + U-REF12417 LDU-REF12418 VT-REF12419 LDVT-REF12420 WORK-REF12421 + LWORK-REF12422 IWORK-REF12423 INFO-REF12424)))) + +(CFFI:DEFCFUN ("sgesv_" %%SGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -3708,20 +3715,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12442 ':INT32) (NRHS-REF12443 ':INT32) - (LDA-REF12445 ':INT32) (LDB-REF12448 ':INT32) - (INFO-REF12449 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12442 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12443 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12445 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12448 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12449 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12444 A) (IPIV-REF12446 IPIV) - (B-REF12447 B)) - (%%SGESV N-REF12442 NRHS-REF12443 A-REF12444 LDA-REF12445 IPIV-REF12446 - B-REF12447 LDB-REF12448 INFO-REF12449)))) - -(CFFI:DEFCFUN ("sgesvd_" %%SGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12425 ':INT32) (NRHS-REF12426 ':INT32) + (LDA-REF12428 ':INT32) (LDB-REF12431 ':INT32) + (INFO-REF12432 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12425 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12426 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12428 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12431 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12432 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12427 A) (IPIV-REF12429 IPIV) + (B-REF12430 B)) + (%%SGESV N-REF12425 NRHS-REF12426 A-REF12427 LDA-REF12428 IPIV-REF12429 + B-REF12430 LDB-REF12431 INFO-REF12432)))) + +(CFFI:DEFCFUN ("sgesvd_" %%SGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBVT :STRING) @@ -3761,25 +3768,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12452 ':INT32) (N-REF12453 ':INT32) - (LDA-REF12455 ':INT32) (LDU-REF12458 ':INT32) - (LDVT-REF12460 ':INT32) (LWORK-REF12462 ':INT32) - (INFO-REF12463 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12452 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12453 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12455 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12458 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12460 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12462 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12463 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12454 A) (S-REF12456 S) - (U-REF12457 U) (VT-REF12459 VT) - (WORK-REF12461 WORK)) - (%%SGESVD JOBU JOBVT M-REF12452 N-REF12453 A-REF12454 LDA-REF12455 - S-REF12456 U-REF12457 LDU-REF12458 VT-REF12459 LDVT-REF12460 - WORK-REF12461 LWORK-REF12462 INFO-REF12463)))) - -(CFFI:DEFCFUN ("sgesvdq_" %%SGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12435 ':INT32) (N-REF12436 ':INT32) + (LDA-REF12438 ':INT32) (LDU-REF12441 ':INT32) + (LDVT-REF12443 ':INT32) (LWORK-REF12445 ':INT32) + (INFO-REF12446 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12435 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12436 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12438 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12441 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12443 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12445 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12446 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12437 A) (S-REF12439 S) + (U-REF12440 U) (VT-REF12442 VT) + (WORK-REF12444 WORK)) + (%%SGESVD JOBU JOBVT M-REF12435 N-REF12436 A-REF12437 LDA-REF12438 + S-REF12439 U-REF12440 LDU-REF12441 VT-REF12442 LDVT-REF12443 + WORK-REF12444 LWORK-REF12445 INFO-REF12446)))) + +(CFFI:DEFCFUN ("sgesvdq_" %%SGESVDQ :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBP :STRING) @@ -3841,34 +3849,34 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12469 ':INT32) (N-REF12470 ':INT32) - (LDA-REF12472 ':INT32) (LDU-REF12475 ':INT32) - (LDV-REF12477 ':INT32) (NUMRANK-REF12478 ':INT32) - (LIWORK-REF12480 ':INT32) - (LWORK-REF12482 ':INT32) - (LRWORK-REF12484 ':INT32) (INFO-REF12485 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12469 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12470 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12472 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12475 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12477 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF12478 :INT32) NUMRANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12480 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12482 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF12484 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12485 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12471 A) (S-REF12473 S) - (U-REF12474 U) (V-REF12476 V) - (IWORK-REF12479 IWORK) - (WORK-REF12481 WORK) - (RWORK-REF12483 RWORK)) - (%%SGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF12469 N-REF12470 A-REF12471 - LDA-REF12472 S-REF12473 U-REF12474 LDU-REF12475 V-REF12476 - LDV-REF12477 NUMRANK-REF12478 IWORK-REF12479 LIWORK-REF12480 - WORK-REF12481 LWORK-REF12482 RWORK-REF12483 LRWORK-REF12484 - INFO-REF12485)))) - -(CFFI:DEFCFUN ("sgesvdx_" %%SGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12452 ':INT32) (N-REF12453 ':INT32) + (LDA-REF12455 ':INT32) (LDU-REF12458 ':INT32) + (LDV-REF12460 ':INT32) (NUMRANK-REF12461 ':INT32) + (LIWORK-REF12463 ':INT32) + (LWORK-REF12465 ':INT32) + (LRWORK-REF12467 ':INT32) (INFO-REF12468 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12452 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12453 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12455 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12458 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12460 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF12461 :INT32) NUMRANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12463 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12465 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF12467 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12468 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12454 A) (S-REF12456 S) + (U-REF12457 U) (V-REF12459 V) + (IWORK-REF12462 IWORK) + (WORK-REF12464 WORK) + (RWORK-REF12466 RWORK)) + (%%SGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF12452 N-REF12453 A-REF12454 + LDA-REF12455 S-REF12456 U-REF12457 LDU-REF12458 V-REF12459 LDV-REF12460 + NUMRANK-REF12461 IWORK-REF12462 LIWORK-REF12463 WORK-REF12464 + LWORK-REF12465 RWORK-REF12466 LRWORK-REF12467 INFO-REF12468)))) + +(CFFI:DEFCFUN ("sgesvdx_" %%SGESVDX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBVT :STRING) @@ -3926,34 +3934,34 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12489 ':INT32) (N-REF12490 ':INT32) - (LDA-REF12492 ':INT32) (VL-REF12493 ':FLOAT) - (VU-REF12494 ':FLOAT) (IL-REF12495 ':INT32) - (IU-REF12496 ':INT32) (NS-REF12497 ':INT32) - (LDU-REF12500 ':INT32) (LDVT-REF12502 ':INT32) - (LWORK-REF12504 ':INT32) (INFO-REF12506 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12489 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12490 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12492 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF12493 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF12494 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF12495 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF12496 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF12497 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12500 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12502 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12504 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12506 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12491 A) (S-REF12498 S) - (U-REF12499 U) (VT-REF12501 VT) - (WORK-REF12503 WORK) - (IWORK-REF12505 IWORK)) - (%%SGESVDX JOBU JOBVT RANGE M-REF12489 N-REF12490 A-REF12491 LDA-REF12492 - VL-REF12493 VU-REF12494 IL-REF12495 IU-REF12496 NS-REF12497 - S-REF12498 U-REF12499 LDU-REF12500 VT-REF12501 LDVT-REF12502 - WORK-REF12503 LWORK-REF12504 IWORK-REF12505 INFO-REF12506)))) - -(CFFI:DEFCFUN ("sgesvj_" %%SGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12472 ':INT32) (N-REF12473 ':INT32) + (LDA-REF12475 ':INT32) (VL-REF12476 ':FLOAT) + (VU-REF12477 ':FLOAT) (IL-REF12478 ':INT32) + (IU-REF12479 ':INT32) (NS-REF12480 ':INT32) + (LDU-REF12483 ':INT32) (LDVT-REF12485 ':INT32) + (LWORK-REF12487 ':INT32) (INFO-REF12489 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12472 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12473 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12475 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF12476 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF12477 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF12478 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF12479 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF12480 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12483 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF12485 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12487 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12489 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12474 A) (S-REF12481 S) + (U-REF12482 U) (VT-REF12484 VT) + (WORK-REF12486 WORK) + (IWORK-REF12488 IWORK)) + (%%SGESVDX JOBU JOBVT RANGE M-REF12472 N-REF12473 A-REF12474 LDA-REF12475 + VL-REF12476 VU-REF12477 IL-REF12478 IU-REF12479 NS-REF12480 S-REF12481 + U-REF12482 LDU-REF12483 VT-REF12484 LDVT-REF12485 WORK-REF12486 + LWORK-REF12487 IWORK-REF12488 INFO-REF12489)))) + +(CFFI:DEFCFUN ("sgesvj_" %%SGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBU :STRING) @@ -3993,24 +4001,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12510 ':INT32) (N-REF12511 ':INT32) - (LDA-REF12513 ':INT32) (MV-REF12515 ':INT32) - (LDV-REF12517 ':INT32) (LWORK-REF12519 ':INT32) - (INFO-REF12520 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12510 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12511 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12513 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12515 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12517 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12519 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12520 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12512 A) (SVA-REF12514 SVA) - (V-REF12516 V) (WORK-REF12518 WORK)) - (%%SGESVJ JOBA JOBU JOBV M-REF12510 N-REF12511 A-REF12512 LDA-REF12513 - SVA-REF12514 MV-REF12515 V-REF12516 LDV-REF12517 WORK-REF12518 - LWORK-REF12519 INFO-REF12520)))) - -(CFFI:DEFCFUN ("sgesvx_" %%SGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12493 ':INT32) (N-REF12494 ':INT32) + (LDA-REF12496 ':INT32) (MV-REF12498 ':INT32) + (LDV-REF12500 ':INT32) (LWORK-REF12502 ':INT32) + (INFO-REF12503 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12493 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12494 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12496 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12498 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12500 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12502 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12503 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12495 A) (SVA-REF12497 SVA) + (V-REF12499 V) (WORK-REF12501 WORK)) + (%%SGESVJ JOBA JOBU JOBV M-REF12493 N-REF12494 A-REF12495 LDA-REF12496 + SVA-REF12497 MV-REF12498 V-REF12499 LDV-REF12500 WORK-REF12501 + LWORK-REF12502 INFO-REF12503)))) + +(CFFI:DEFCFUN ("sgesvx_" %%SGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -4079,32 +4087,33 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12523 ':INT32) (NRHS-REF12524 ':INT32) - (LDA-REF12526 ':INT32) (LDAF-REF12528 ':INT32) - (LDB-REF12534 ':INT32) (LDX-REF12536 ':INT32) - (RCOND-REF12537 ':FLOAT) (INFO-REF12542 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12523 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12524 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12526 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12528 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12534 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12536 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12537 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12542 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12525 A) (AF-REF12527 AF) - (IPIV-REF12529 IPIV) (R-REF12531 R) - (C-REF12532 C) (B-REF12533 B) - (X-REF12535 X) (FERR-REF12538 FERR) - (BERR-REF12539 BERR) - (WORK-REF12540 WORK) - (IWORK-REF12541 IWORK)) - (%%SGESVX FACT TRANS N-REF12523 NRHS-REF12524 A-REF12525 LDA-REF12526 - AF-REF12527 LDAF-REF12528 IPIV-REF12529 EQUED R-REF12531 - C-REF12532 B-REF12533 LDB-REF12534 X-REF12535 LDX-REF12536 - RCOND-REF12537 FERR-REF12538 BERR-REF12539 WORK-REF12540 - IWORK-REF12541 INFO-REF12542)))) - -(CFFI:DEFCFUN ("sgesvxx_" %%SGESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12506 ':INT32) (NRHS-REF12507 ':INT32) + (LDA-REF12509 ':INT32) (LDAF-REF12511 ':INT32) + (LDB-REF12517 ':INT32) (LDX-REF12519 ':INT32) + (RCOND-REF12520 ':FLOAT) (INFO-REF12525 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12506 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12507 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12509 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12511 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12517 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12519 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12520 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12525 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12508 A) (AF-REF12510 AF) + (IPIV-REF12512 IPIV) (R-REF12514 R) + (C-REF12515 C) (B-REF12516 B) + (X-REF12518 X) (FERR-REF12521 FERR) + (BERR-REF12522 BERR) + (WORK-REF12523 WORK) + (IWORK-REF12524 IWORK)) + (%%SGESVX FACT TRANS N-REF12506 NRHS-REF12507 A-REF12508 LDA-REF12509 + AF-REF12510 LDAF-REF12511 IPIV-REF12512 EQUED R-REF12514 C-REF12515 + B-REF12516 LDB-REF12517 X-REF12518 LDX-REF12519 RCOND-REF12520 + FERR-REF12521 BERR-REF12522 WORK-REF12523 IWORK-REF12524 + INFO-REF12525)))) + +(CFFI:DEFCFUN ("sgesvxx_" %%SGESVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -4189,45 +4198,44 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12545 ':INT32) (NRHS-REF12546 ':INT32) - (LDA-REF12548 ':INT32) (LDAF-REF12550 ':INT32) - (LDB-REF12556 ':INT32) (LDX-REF12558 ':INT32) - (RCOND-REF12559 ':FLOAT) - (RPVGRW-REF12560 ':FLOAT) - (N_ERR_BNDS-REF12562 ':INT32) - (NPARAMS-REF12565 ':INT32) - (INFO-REF12569 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12545 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12546 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12548 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12550 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12556 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12558 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12559 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF12560 :FLOAT) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF12562 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF12565 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12569 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12547 A) (AF-REF12549 AF) - (IPIV-REF12551 IPIV) (R-REF12553 R) - (C-REF12554 C) (B-REF12555 B) - (X-REF12557 X) (BERR-REF12561 BERR) - (ERR_BNDS_NORM-REF12563 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12528 ':INT32) (NRHS-REF12529 ':INT32) + (LDA-REF12531 ':INT32) (LDAF-REF12533 ':INT32) + (LDB-REF12539 ':INT32) (LDX-REF12541 ':INT32) + (RCOND-REF12542 ':FLOAT) + (RPVGRW-REF12543 ':FLOAT) + (N_ERR_BNDS-REF12545 ':INT32) + (NPARAMS-REF12548 ':INT32) + (INFO-REF12552 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12528 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12529 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12531 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF12533 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12539 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12541 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12542 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF12543 :FLOAT) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF12545 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF12548 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12552 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12530 A) (AF-REF12532 AF) + (IPIV-REF12534 IPIV) (R-REF12536 R) + (C-REF12537 C) (B-REF12538 B) + (X-REF12540 X) (BERR-REF12544 BERR) + (ERR_BNDS_NORM-REF12546 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF12564 + (ERR_BNDS_COMP-REF12547 ERR_BNDS_COMP) - (PARAMS-REF12566 PARAMS) - (WORK-REF12567 WORK) - (IWORK-REF12568 IWORK)) - (%%SGESVXX FACT TRANS N-REF12545 NRHS-REF12546 A-REF12547 LDA-REF12548 - AF-REF12549 LDAF-REF12550 IPIV-REF12551 EQUED R-REF12553 - C-REF12554 B-REF12555 LDB-REF12556 X-REF12557 LDX-REF12558 - RCOND-REF12559 RPVGRW-REF12560 BERR-REF12561 - N_ERR_BNDS-REF12562 ERR_BNDS_NORM-REF12563 - ERR_BNDS_COMP-REF12564 NPARAMS-REF12565 PARAMS-REF12566 - WORK-REF12567 IWORK-REF12568 INFO-REF12569)))) + (PARAMS-REF12549 PARAMS) + (WORK-REF12550 WORK) + (IWORK-REF12551 IWORK)) + (%%SGESVXX FACT TRANS N-REF12528 NRHS-REF12529 A-REF12530 LDA-REF12531 + AF-REF12532 LDAF-REF12533 IPIV-REF12534 EQUED R-REF12536 C-REF12537 + B-REF12538 LDB-REF12539 X-REF12540 LDX-REF12541 RCOND-REF12542 + RPVGRW-REF12543 BERR-REF12544 N_ERR_BNDS-REF12545 ERR_BNDS_NORM-REF12546 + ERR_BNDS_COMP-REF12547 NPARAMS-REF12548 PARAMS-REF12549 WORK-REF12550 + IWORK-REF12551 INFO-REF12552)))) -(CFFI:DEFCFUN ("sgetc2_" %%SGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgetc2_" %%SGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4251,17 +4259,17 @@ (COMMON-LISP:*)) JPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12570 ':INT32) (LDA-REF12572 ':INT32) - (INFO-REF12575 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12570 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12572 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12575 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12571 A) (IPIV-REF12573 IPIV) - (JPIV-REF12574 JPIV)) - (%%SGETC2 N-REF12570 A-REF12571 LDA-REF12572 IPIV-REF12573 JPIV-REF12574 - INFO-REF12575)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12553 ':INT32) (LDA-REF12555 ':INT32) + (INFO-REF12558 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12553 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12555 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12558 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12554 A) (IPIV-REF12556 IPIV) + (JPIV-REF12557 JPIV)) + (%%SGETC2 N-REF12553 A-REF12554 LDA-REF12555 IPIV-REF12556 JPIV-REF12557 + INFO-REF12558)))) -(CFFI:DEFCFUN ("sgetf2_" %%SGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgetf2_" %%SGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4282,17 +4290,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12576 ':INT32) (N-REF12577 ':INT32) - (LDA-REF12579 ':INT32) (INFO-REF12581 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12576 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12577 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12579 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12581 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12578 A) (IPIV-REF12580 IPIV)) - (%%SGETF2 M-REF12576 N-REF12577 A-REF12578 LDA-REF12579 IPIV-REF12580 - INFO-REF12581)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12559 ':INT32) (N-REF12560 ':INT32) + (LDA-REF12562 ':INT32) (INFO-REF12564 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12559 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12560 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12562 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12564 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12561 A) (IPIV-REF12563 IPIV)) + (%%SGETF2 M-REF12559 N-REF12560 A-REF12561 LDA-REF12562 IPIV-REF12563 + INFO-REF12564)))) -(CFFI:DEFCFUN ("sgetrf_" %%SGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgetrf_" %%SGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4313,17 +4321,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12582 ':INT32) (N-REF12583 ':INT32) - (LDA-REF12585 ':INT32) (INFO-REF12587 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12582 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12583 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12585 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12587 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12584 A) (IPIV-REF12586 IPIV)) - (%%SGETRF M-REF12582 N-REF12583 A-REF12584 LDA-REF12585 IPIV-REF12586 - INFO-REF12587)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12565 ':INT32) (N-REF12566 ':INT32) + (LDA-REF12568 ':INT32) (INFO-REF12570 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12565 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12566 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12568 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12570 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12567 A) (IPIV-REF12569 IPIV)) + (%%SGETRF M-REF12565 N-REF12566 A-REF12567 LDA-REF12568 IPIV-REF12569 + INFO-REF12570)))) -(CFFI:DEFCFUN ("sgetrf2_" %%SGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgetrf2_" %%SGETRF2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4344,17 +4353,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12588 ':INT32) (N-REF12589 ':INT32) - (LDA-REF12591 ':INT32) (INFO-REF12593 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12588 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12589 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12591 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12593 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12590 A) (IPIV-REF12592 IPIV)) - (%%SGETRF2 M-REF12588 N-REF12589 A-REF12590 LDA-REF12591 IPIV-REF12592 - INFO-REF12593)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12571 ':INT32) (N-REF12572 ':INT32) + (LDA-REF12574 ':INT32) (INFO-REF12576 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12571 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12572 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12574 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12576 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12573 A) (IPIV-REF12575 IPIV)) + (%%SGETRF2 M-REF12571 N-REF12572 A-REF12573 LDA-REF12574 IPIV-REF12575 + INFO-REF12576)))) -(CFFI:DEFCFUN ("sgetri_" %%SGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgetri_" %%SGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4379,18 +4388,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12594 ':INT32) (LDA-REF12596 ':INT32) - (LWORK-REF12599 ':INT32) (INFO-REF12600 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12594 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12596 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12599 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12600 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12595 A) (IPIV-REF12597 IPIV) - (WORK-REF12598 WORK)) - (%%SGETRI N-REF12594 A-REF12595 LDA-REF12596 IPIV-REF12597 WORK-REF12598 - LWORK-REF12599 INFO-REF12600)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12577 ':INT32) (LDA-REF12579 ':INT32) + (LWORK-REF12582 ':INT32) (INFO-REF12583 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12577 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12579 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12582 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12583 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12578 A) (IPIV-REF12580 IPIV) + (WORK-REF12581 WORK)) + (%%SGETRI N-REF12577 A-REF12578 LDA-REF12579 IPIV-REF12580 WORK-REF12581 + LWORK-REF12582 INFO-REF12583)))) -(CFFI:DEFCFUN ("sgetrs_" %%SGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgetrs_" %%SGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -4418,20 +4427,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12602 ':INT32) (NRHS-REF12603 ':INT32) - (LDA-REF12605 ':INT32) (LDB-REF12608 ':INT32) - (INFO-REF12609 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12602 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12603 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12605 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12608 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12609 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12604 A) (IPIV-REF12606 IPIV) - (B-REF12607 B)) - (%%SGETRS TRANS N-REF12602 NRHS-REF12603 A-REF12604 LDA-REF12605 - IPIV-REF12606 B-REF12607 LDB-REF12608 INFO-REF12609)))) - -(CFFI:DEFCFUN ("sgetsls_" %%SGETSLS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12585 ':INT32) (NRHS-REF12586 ':INT32) + (LDA-REF12588 ':INT32) (LDB-REF12591 ':INT32) + (INFO-REF12592 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12585 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12586 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12588 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12591 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12592 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12587 A) (IPIV-REF12589 IPIV) + (B-REF12590 B)) + (%%SGETRS TRANS N-REF12585 NRHS-REF12586 A-REF12587 LDA-REF12588 + IPIV-REF12589 B-REF12590 LDB-REF12591 INFO-REF12592)))) + +(CFFI:DEFCFUN ("sgetsls_" %%SGETSLS :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (M :POINTER) @@ -4462,24 +4472,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12611 ':INT32) (N-REF12612 ':INT32) - (NRHS-REF12613 ':INT32) (LDA-REF12615 ':INT32) - (LDB-REF12617 ':INT32) (LWORK-REF12619 ':INT32) - (INFO-REF12620 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12611 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12612 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12613 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12615 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12617 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12619 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12620 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12614 A) (B-REF12616 B) - (WORK-REF12618 WORK)) - (%%SGETSLS TRANS M-REF12611 N-REF12612 NRHS-REF12613 A-REF12614 - LDA-REF12615 B-REF12616 LDB-REF12617 WORK-REF12618 - LWORK-REF12619 INFO-REF12620)))) - -(CFFI:DEFCFUN ("sggbak_" %%SGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12594 ':INT32) (N-REF12595 ':INT32) + (NRHS-REF12596 ':INT32) (LDA-REF12598 ':INT32) + (LDB-REF12600 ':INT32) (LWORK-REF12602 ':INT32) + (INFO-REF12603 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12594 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12595 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12596 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12598 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12600 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12602 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12603 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12597 A) (B-REF12599 B) + (WORK-REF12601 WORK)) + (%%SGETSLS TRANS M-REF12594 N-REF12595 NRHS-REF12596 A-REF12597 + LDA-REF12598 B-REF12599 LDB-REF12600 WORK-REF12601 LWORK-REF12602 + INFO-REF12603)))) + +(CFFI:DEFCFUN ("sggbak_" %%SGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (SIDE :STRING) @@ -4511,23 +4521,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12623 ':INT32) (ILO-REF12624 ':INT32) - (IHI-REF12625 ':INT32) (M-REF12628 ':INT32) - (LDV-REF12630 ':INT32) (INFO-REF12631 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12623 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12624 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12625 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12628 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12630 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12631 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF12626 LSCALE) - (RSCALE-REF12627 RSCALE) - (V-REF12629 V)) - (%%SGGBAK JOB SIDE N-REF12623 ILO-REF12624 IHI-REF12625 LSCALE-REF12626 - RSCALE-REF12627 M-REF12628 V-REF12629 LDV-REF12630 - INFO-REF12631)))) - -(CFFI:DEFCFUN ("sggbal_" %%SGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12606 ':INT32) (ILO-REF12607 ':INT32) + (IHI-REF12608 ':INT32) (M-REF12611 ':INT32) + (LDV-REF12613 ':INT32) (INFO-REF12614 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12606 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12607 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12608 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12611 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12613 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12614 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF12609 LSCALE) + (RSCALE-REF12610 RSCALE) + (V-REF12612 V)) + (%%SGGBAK JOB SIDE N-REF12606 ILO-REF12607 IHI-REF12608 LSCALE-REF12609 + RSCALE-REF12610 M-REF12611 V-REF12612 LDV-REF12613 INFO-REF12614)))) + +(CFFI:DEFCFUN ("sggbal_" %%SGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (N :POINTER) @@ -4564,24 +4573,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12633 ':INT32) (LDA-REF12635 ':INT32) - (LDB-REF12637 ':INT32) (ILO-REF12638 ':INT32) - (IHI-REF12639 ':INT32) (INFO-REF12643 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12633 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12635 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12637 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12638 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12639 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12643 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12634 A) (B-REF12636 B) - (LSCALE-REF12640 LSCALE) - (RSCALE-REF12641 RSCALE) - (WORK-REF12642 WORK)) - (%%SGGBAL JOB N-REF12633 A-REF12634 LDA-REF12635 B-REF12636 LDB-REF12637 - ILO-REF12638 IHI-REF12639 LSCALE-REF12640 RSCALE-REF12641 - WORK-REF12642 INFO-REF12643)))) - -(CFFI:DEFCFUN ("sgges_" %%SGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12616 ':INT32) (LDA-REF12618 ':INT32) + (LDB-REF12620 ':INT32) (ILO-REF12621 ':INT32) + (IHI-REF12622 ':INT32) (INFO-REF12626 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12616 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12618 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12620 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12621 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12622 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12626 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12617 A) (B-REF12619 B) + (LSCALE-REF12623 LSCALE) + (RSCALE-REF12624 RSCALE) + (WORK-REF12625 WORK)) + (%%SGGBAL JOB N-REF12616 A-REF12617 LDA-REF12618 B-REF12619 LDB-REF12620 + ILO-REF12621 IHI-REF12622 LSCALE-REF12623 RSCALE-REF12624 WORK-REF12625 + INFO-REF12626)))) + +(CFFI:DEFCFUN ("sgges_" %%SGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -4647,35 +4656,35 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12647 ':INT32) (N-REF12648 ':INT32) - (LDA-REF12650 ':INT32) (LDB-REF12652 ':INT32) - (SDIM-REF12653 ':INT32) (LDVSL-REF12658 ':INT32) - (LDVSR-REF12660 ':INT32) (LWORK-REF12662 ':INT32) - (INFO-REF12664 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12647 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12648 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12650 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12652 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12653 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12658 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12660 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12662 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12664 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12649 A) (B-REF12651 B) - (ALPHAR-REF12654 ALPHAR) - (ALPHAI-REF12655 ALPHAI) - (BETA-REF12656 BETA) - (VSL-REF12657 VSL) - (VSR-REF12659 VSR) - (WORK-REF12661 WORK) - (BWORK-REF12663 BWORK)) - (%%SGGES JOBVSL JOBVSR SORT SELCTG-REF12647 N-REF12648 A-REF12649 - LDA-REF12650 B-REF12651 LDB-REF12652 SDIM-REF12653 - ALPHAR-REF12654 ALPHAI-REF12655 BETA-REF12656 VSL-REF12657 - LDVSL-REF12658 VSR-REF12659 LDVSR-REF12660 WORK-REF12661 - LWORK-REF12662 BWORK-REF12663 INFO-REF12664)))) - -(CFFI:DEFCFUN ("sgges3_" %%SGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12630 ':INT32) (N-REF12631 ':INT32) + (LDA-REF12633 ':INT32) (LDB-REF12635 ':INT32) + (SDIM-REF12636 ':INT32) (LDVSL-REF12641 ':INT32) + (LDVSR-REF12643 ':INT32) (LWORK-REF12645 ':INT32) + (INFO-REF12647 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12630 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12631 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12633 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12635 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12636 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12641 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12643 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12645 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12647 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12632 A) (B-REF12634 B) + (ALPHAR-REF12637 ALPHAR) + (ALPHAI-REF12638 ALPHAI) + (BETA-REF12639 BETA) + (VSL-REF12640 VSL) + (VSR-REF12642 VSR) + (WORK-REF12644 WORK) + (BWORK-REF12646 BWORK)) + (%%SGGES JOBVSL JOBVSR SORT SELCTG-REF12630 N-REF12631 A-REF12632 + LDA-REF12633 B-REF12634 LDB-REF12635 SDIM-REF12636 ALPHAR-REF12637 + ALPHAI-REF12638 BETA-REF12639 VSL-REF12640 LDVSL-REF12641 VSR-REF12642 + LDVSR-REF12643 WORK-REF12644 LWORK-REF12645 BWORK-REF12646 + INFO-REF12647)))) + +(CFFI:DEFCFUN ("sgges3_" %%SGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -4741,35 +4750,35 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12668 ':INT32) (N-REF12669 ':INT32) - (LDA-REF12671 ':INT32) (LDB-REF12673 ':INT32) - (SDIM-REF12674 ':INT32) (LDVSL-REF12679 ':INT32) - (LDVSR-REF12681 ':INT32) (LWORK-REF12683 ':INT32) - (INFO-REF12685 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12668 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12669 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12671 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12673 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12674 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12679 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12681 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12683 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12685 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12670 A) (B-REF12672 B) - (ALPHAR-REF12675 ALPHAR) - (ALPHAI-REF12676 ALPHAI) - (BETA-REF12677 BETA) - (VSL-REF12678 VSL) - (VSR-REF12680 VSR) - (WORK-REF12682 WORK) - (BWORK-REF12684 BWORK)) - (%%SGGES3 JOBVSL JOBVSR SORT SELCTG-REF12668 N-REF12669 A-REF12670 - LDA-REF12671 B-REF12672 LDB-REF12673 SDIM-REF12674 - ALPHAR-REF12675 ALPHAI-REF12676 BETA-REF12677 VSL-REF12678 - LDVSL-REF12679 VSR-REF12680 LDVSR-REF12681 WORK-REF12682 - LWORK-REF12683 BWORK-REF12684 INFO-REF12685)))) - -(CFFI:DEFCFUN ("sggesx_" %%SGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12651 ':INT32) (N-REF12652 ':INT32) + (LDA-REF12654 ':INT32) (LDB-REF12656 ':INT32) + (SDIM-REF12657 ':INT32) (LDVSL-REF12662 ':INT32) + (LDVSR-REF12664 ':INT32) (LWORK-REF12666 ':INT32) + (INFO-REF12668 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12651 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12652 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12654 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12656 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12657 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12662 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12664 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12666 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12668 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12653 A) (B-REF12655 B) + (ALPHAR-REF12658 ALPHAR) + (ALPHAI-REF12659 ALPHAI) + (BETA-REF12660 BETA) + (VSL-REF12661 VSL) + (VSR-REF12663 VSR) + (WORK-REF12665 WORK) + (BWORK-REF12667 BWORK)) + (%%SGGES3 JOBVSL JOBVSR SORT SELCTG-REF12651 N-REF12652 A-REF12653 + LDA-REF12654 B-REF12655 LDB-REF12656 SDIM-REF12657 ALPHAR-REF12658 + ALPHAI-REF12659 BETA-REF12660 VSL-REF12661 LDVSL-REF12662 VSR-REF12663 + LDVSR-REF12664 WORK-REF12665 LWORK-REF12666 BWORK-REF12667 + INFO-REF12668)))) + +(CFFI:DEFCFUN ("sggesx_" %%SGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -4853,40 +4862,40 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12689 ':INT32) (N-REF12691 ':INT32) - (LDA-REF12693 ':INT32) (LDB-REF12695 ':INT32) - (SDIM-REF12696 ':INT32) (LDVSL-REF12701 ':INT32) - (LDVSR-REF12703 ':INT32) (LWORK-REF12707 ':INT32) - (LIWORK-REF12709 ':INT32) (INFO-REF12711 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12689 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12691 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12693 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12695 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12696 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12701 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12703 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12707 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12709 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12711 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12692 A) (B-REF12694 B) - (ALPHAR-REF12697 ALPHAR) - (ALPHAI-REF12698 ALPHAI) - (BETA-REF12699 BETA) - (VSL-REF12700 VSL) - (VSR-REF12702 VSR) - (RCONDE-REF12704 RCONDE) - (RCONDV-REF12705 RCONDV) - (WORK-REF12706 WORK) - (IWORK-REF12708 IWORK) - (BWORK-REF12710 BWORK)) - (%%SGGESX JOBVSL JOBVSR SORT SELCTG-REF12689 SENSE N-REF12691 A-REF12692 - LDA-REF12693 B-REF12694 LDB-REF12695 SDIM-REF12696 - ALPHAR-REF12697 ALPHAI-REF12698 BETA-REF12699 VSL-REF12700 - LDVSL-REF12701 VSR-REF12702 LDVSR-REF12703 RCONDE-REF12704 - RCONDV-REF12705 WORK-REF12706 LWORK-REF12707 IWORK-REF12708 - LIWORK-REF12709 BWORK-REF12710 INFO-REF12711)))) - -(CFFI:DEFCFUN ("sggev_" %%SGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF12672 ':INT32) (N-REF12674 ':INT32) + (LDA-REF12676 ':INT32) (LDB-REF12678 ':INT32) + (SDIM-REF12679 ':INT32) (LDVSL-REF12684 ':INT32) + (LDVSR-REF12686 ':INT32) (LWORK-REF12690 ':INT32) + (LIWORK-REF12692 ':INT32) (INFO-REF12694 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF12672 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12674 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12676 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12678 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF12679 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF12684 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF12686 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12690 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF12692 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12694 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12675 A) (B-REF12677 B) + (ALPHAR-REF12680 ALPHAR) + (ALPHAI-REF12681 ALPHAI) + (BETA-REF12682 BETA) + (VSL-REF12683 VSL) + (VSR-REF12685 VSR) + (RCONDE-REF12687 RCONDE) + (RCONDV-REF12688 RCONDV) + (WORK-REF12689 WORK) + (IWORK-REF12691 IWORK) + (BWORK-REF12693 BWORK)) + (%%SGGESX JOBVSL JOBVSR SORT SELCTG-REF12672 SENSE N-REF12674 A-REF12675 + LDA-REF12676 B-REF12677 LDB-REF12678 SDIM-REF12679 ALPHAR-REF12680 + ALPHAI-REF12681 BETA-REF12682 VSL-REF12683 LDVSL-REF12684 VSR-REF12685 + LDVSR-REF12686 RCONDE-REF12687 RCONDV-REF12688 WORK-REF12689 + LWORK-REF12690 IWORK-REF12691 LIWORK-REF12692 BWORK-REF12693 + INFO-REF12694)))) + +(CFFI:DEFCFUN ("sggev_" %%SGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -4939,29 +4948,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12714 ':INT32) (LDA-REF12716 ':INT32) - (LDB-REF12718 ':INT32) (LDVL-REF12723 ':INT32) - (LDVR-REF12725 ':INT32) (LWORK-REF12727 ':INT32) - (INFO-REF12728 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12714 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12716 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12718 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12723 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12725 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12727 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12728 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12715 A) (B-REF12717 B) - (ALPHAR-REF12719 ALPHAR) - (ALPHAI-REF12720 ALPHAI) - (BETA-REF12721 BETA) - (VL-REF12722 VL) (VR-REF12724 VR) - (WORK-REF12726 WORK)) - (%%SGGEV JOBVL JOBVR N-REF12714 A-REF12715 LDA-REF12716 B-REF12717 - LDB-REF12718 ALPHAR-REF12719 ALPHAI-REF12720 BETA-REF12721 - VL-REF12722 LDVL-REF12723 VR-REF12724 LDVR-REF12725 - WORK-REF12726 LWORK-REF12727 INFO-REF12728)))) - -(CFFI:DEFCFUN ("sggev3_" %%SGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12697 ':INT32) (LDA-REF12699 ':INT32) + (LDB-REF12701 ':INT32) (LDVL-REF12706 ':INT32) + (LDVR-REF12708 ':INT32) (LWORK-REF12710 ':INT32) + (INFO-REF12711 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12697 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12699 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12701 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12706 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12708 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12710 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12711 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12698 A) (B-REF12700 B) + (ALPHAR-REF12702 ALPHAR) + (ALPHAI-REF12703 ALPHAI) + (BETA-REF12704 BETA) + (VL-REF12705 VL) (VR-REF12707 VR) + (WORK-REF12709 WORK)) + (%%SGGEV JOBVL JOBVR N-REF12697 A-REF12698 LDA-REF12699 B-REF12700 + LDB-REF12701 ALPHAR-REF12702 ALPHAI-REF12703 BETA-REF12704 VL-REF12705 + LDVL-REF12706 VR-REF12707 LDVR-REF12708 WORK-REF12709 LWORK-REF12710 + INFO-REF12711)))) + +(CFFI:DEFCFUN ("sggev3_" %%SGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -5014,29 +5023,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12731 ':INT32) (LDA-REF12733 ':INT32) - (LDB-REF12735 ':INT32) (LDVL-REF12740 ':INT32) - (LDVR-REF12742 ':INT32) (LWORK-REF12744 ':INT32) - (INFO-REF12745 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12731 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12733 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12735 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12740 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12742 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12744 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12745 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12732 A) (B-REF12734 B) - (ALPHAR-REF12736 ALPHAR) - (ALPHAI-REF12737 ALPHAI) - (BETA-REF12738 BETA) - (VL-REF12739 VL) (VR-REF12741 VR) - (WORK-REF12743 WORK)) - (%%SGGEV3 JOBVL JOBVR N-REF12731 A-REF12732 LDA-REF12733 B-REF12734 - LDB-REF12735 ALPHAR-REF12736 ALPHAI-REF12737 BETA-REF12738 - VL-REF12739 LDVL-REF12740 VR-REF12741 LDVR-REF12742 - WORK-REF12743 LWORK-REF12744 INFO-REF12745)))) - -(CFFI:DEFCFUN ("sggevx_" %%SGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12714 ':INT32) (LDA-REF12716 ':INT32) + (LDB-REF12718 ':INT32) (LDVL-REF12723 ':INT32) + (LDVR-REF12725 ':INT32) (LWORK-REF12727 ':INT32) + (INFO-REF12728 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12714 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12716 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12718 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12723 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12725 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12727 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12728 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12715 A) (B-REF12717 B) + (ALPHAR-REF12719 ALPHAR) + (ALPHAI-REF12720 ALPHAI) + (BETA-REF12721 BETA) + (VL-REF12722 VL) (VR-REF12724 VR) + (WORK-REF12726 WORK)) + (%%SGGEV3 JOBVL JOBVR N-REF12714 A-REF12715 LDA-REF12716 B-REF12717 + LDB-REF12718 ALPHAR-REF12719 ALPHAI-REF12720 BETA-REF12721 VL-REF12722 + LDVL-REF12723 VR-REF12724 LDVR-REF12725 WORK-REF12726 LWORK-REF12727 + INFO-REF12728)))) + +(CFFI:DEFCFUN ("sggevx_" %%SGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (BALANC :STRING) (JOBVL :STRING) @@ -5128,44 +5137,43 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12750 ':INT32) (LDA-REF12752 ':INT32) - (LDB-REF12754 ':INT32) (LDVL-REF12759 ':INT32) - (LDVR-REF12761 ':INT32) (ILO-REF12762 ':INT32) - (IHI-REF12763 ':INT32) (ABNRM-REF12766 ':FLOAT) - (BBNRM-REF12767 ':FLOAT) (LWORK-REF12771 ':INT32) - (INFO-REF12774 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12750 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12752 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12754 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12759 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12761 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12762 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12763 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF12766 :FLOAT) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF12767 :FLOAT) BBNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12771 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12774 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12751 A) (B-REF12753 B) - (ALPHAR-REF12755 ALPHAR) - (ALPHAI-REF12756 ALPHAI) - (BETA-REF12757 BETA) - (VL-REF12758 VL) (VR-REF12760 VR) - (LSCALE-REF12764 LSCALE) - (RSCALE-REF12765 RSCALE) - (RCONDE-REF12768 RCONDE) - (RCONDV-REF12769 RCONDV) - (WORK-REF12770 WORK) - (IWORK-REF12772 IWORK) - (BWORK-REF12773 BWORK)) - (%%SGGEVX BALANC JOBVL JOBVR SENSE N-REF12750 A-REF12751 LDA-REF12752 - B-REF12753 LDB-REF12754 ALPHAR-REF12755 ALPHAI-REF12756 - BETA-REF12757 VL-REF12758 LDVL-REF12759 VR-REF12760 - LDVR-REF12761 ILO-REF12762 IHI-REF12763 LSCALE-REF12764 - RSCALE-REF12765 ABNRM-REF12766 BBNRM-REF12767 RCONDE-REF12768 - RCONDV-REF12769 WORK-REF12770 LWORK-REF12771 IWORK-REF12772 - BWORK-REF12773 INFO-REF12774)))) - -(CFFI:DEFCFUN ("sggglm_" %%SGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12733 ':INT32) (LDA-REF12735 ':INT32) + (LDB-REF12737 ':INT32) (LDVL-REF12742 ':INT32) + (LDVR-REF12744 ':INT32) (ILO-REF12745 ':INT32) + (IHI-REF12746 ':INT32) (ABNRM-REF12749 ':FLOAT) + (BBNRM-REF12750 ':FLOAT) (LWORK-REF12754 ':INT32) + (INFO-REF12757 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12733 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12735 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12737 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF12742 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF12744 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12745 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12746 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF12749 :FLOAT) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF12750 :FLOAT) BBNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12754 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12757 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12734 A) (B-REF12736 B) + (ALPHAR-REF12738 ALPHAR) + (ALPHAI-REF12739 ALPHAI) + (BETA-REF12740 BETA) + (VL-REF12741 VL) (VR-REF12743 VR) + (LSCALE-REF12747 LSCALE) + (RSCALE-REF12748 RSCALE) + (RCONDE-REF12751 RCONDE) + (RCONDV-REF12752 RCONDV) + (WORK-REF12753 WORK) + (IWORK-REF12755 IWORK) + (BWORK-REF12756 BWORK)) + (%%SGGEVX BALANC JOBVL JOBVR SENSE N-REF12733 A-REF12734 LDA-REF12735 + B-REF12736 LDB-REF12737 ALPHAR-REF12738 ALPHAI-REF12739 BETA-REF12740 + VL-REF12741 LDVL-REF12742 VR-REF12743 LDVR-REF12744 ILO-REF12745 + IHI-REF12746 LSCALE-REF12747 RSCALE-REF12748 ABNRM-REF12749 + BBNRM-REF12750 RCONDE-REF12751 RCONDV-REF12752 WORK-REF12753 + LWORK-REF12754 IWORK-REF12755 BWORK-REF12756 INFO-REF12757)))) + +(CFFI:DEFCFUN ("sggglm_" %%SGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (M :POINTER) @@ -5203,25 +5211,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12775 ':INT32) (M-REF12776 ':INT32) - (P-REF12777 ':INT32) (LDA-REF12779 ':INT32) - (LDB-REF12781 ':INT32) (LWORK-REF12786 ':INT32) - (INFO-REF12787 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12775 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12776 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12777 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12779 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12781 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12786 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12787 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12778 A) (B-REF12780 B) - (D-REF12782 D) (X-REF12783 X) - (Y-REF12784 Y) (WORK-REF12785 WORK)) - (%%SGGGLM N-REF12775 M-REF12776 P-REF12777 A-REF12778 LDA-REF12779 - B-REF12780 LDB-REF12781 D-REF12782 X-REF12783 Y-REF12784 - WORK-REF12785 LWORK-REF12786 INFO-REF12787)))) - -(CFFI:DEFCFUN ("sgghd3_" %%SGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12758 ':INT32) (M-REF12759 ':INT32) + (P-REF12760 ':INT32) (LDA-REF12762 ':INT32) + (LDB-REF12764 ':INT32) (LWORK-REF12769 ':INT32) + (INFO-REF12770 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12758 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12759 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12760 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12762 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12764 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12769 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12770 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12761 A) (B-REF12763 B) + (D-REF12765 D) (X-REF12766 X) + (Y-REF12767 Y) (WORK-REF12768 WORK)) + (%%SGGGLM N-REF12758 M-REF12759 P-REF12760 A-REF12761 LDA-REF12762 + B-REF12763 LDB-REF12764 D-REF12765 X-REF12766 Y-REF12767 WORK-REF12768 + LWORK-REF12769 INFO-REF12770)))) + +(CFFI:DEFCFUN ("sgghd3_" %%SGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (COMPZ :STRING) @@ -5266,29 +5274,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12790 ':INT32) (ILO-REF12791 ':INT32) - (IHI-REF12792 ':INT32) (LDA-REF12794 ':INT32) - (LDB-REF12796 ':INT32) (LDQ-REF12798 ':INT32) - (LDZ-REF12800 ':INT32) (LWORK-REF12802 ':INT32) - (INFO-REF12803 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12790 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12791 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12792 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12794 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12796 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12798 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF12800 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12802 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12803 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12793 A) (B-REF12795 B) - (Q-REF12797 Q) (Z-REF12799 Z) - (WORK-REF12801 WORK)) - (%%SGGHD3 COMPQ COMPZ N-REF12790 ILO-REF12791 IHI-REF12792 A-REF12793 - LDA-REF12794 B-REF12795 LDB-REF12796 Q-REF12797 LDQ-REF12798 - Z-REF12799 LDZ-REF12800 WORK-REF12801 LWORK-REF12802 - INFO-REF12803)))) - -(CFFI:DEFCFUN ("sgghrd_" %%SGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12773 ':INT32) (ILO-REF12774 ':INT32) + (IHI-REF12775 ':INT32) (LDA-REF12777 ':INT32) + (LDB-REF12779 ':INT32) (LDQ-REF12781 ':INT32) + (LDZ-REF12783 ':INT32) (LWORK-REF12785 ':INT32) + (INFO-REF12786 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12773 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12774 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12775 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12777 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12779 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12781 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF12783 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12785 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12786 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12776 A) (B-REF12778 B) + (Q-REF12780 Q) (Z-REF12782 Z) + (WORK-REF12784 WORK)) + (%%SGGHD3 COMPQ COMPZ N-REF12773 ILO-REF12774 IHI-REF12775 A-REF12776 + LDA-REF12777 B-REF12778 LDB-REF12779 Q-REF12780 LDQ-REF12781 Z-REF12782 + LDZ-REF12783 WORK-REF12784 LWORK-REF12785 INFO-REF12786)))) + +(CFFI:DEFCFUN ("sgghrd_" %%SGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (COMPZ :STRING) @@ -5325,25 +5332,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12806 ':INT32) (ILO-REF12807 ':INT32) - (IHI-REF12808 ':INT32) (LDA-REF12810 ':INT32) - (LDB-REF12812 ':INT32) (LDQ-REF12814 ':INT32) - (LDZ-REF12816 ':INT32) (INFO-REF12817 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12806 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12807 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12808 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12810 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12812 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12814 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF12816 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12817 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12809 A) (B-REF12811 B) - (Q-REF12813 Q) (Z-REF12815 Z)) - (%%SGGHRD COMPQ COMPZ N-REF12806 ILO-REF12807 IHI-REF12808 A-REF12809 - LDA-REF12810 B-REF12811 LDB-REF12812 Q-REF12813 LDQ-REF12814 - Z-REF12815 LDZ-REF12816 INFO-REF12817)))) - -(CFFI:DEFCFUN ("sgglse_" %%SGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12789 ':INT32) (ILO-REF12790 ':INT32) + (IHI-REF12791 ':INT32) (LDA-REF12793 ':INT32) + (LDB-REF12795 ':INT32) (LDQ-REF12797 ':INT32) + (LDZ-REF12799 ':INT32) (INFO-REF12800 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12789 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF12790 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF12791 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12793 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12795 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12797 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF12799 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12800 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12792 A) (B-REF12794 B) + (Q-REF12796 Q) (Z-REF12798 Z)) + (%%SGGHRD COMPQ COMPZ N-REF12789 ILO-REF12790 IHI-REF12791 A-REF12792 + LDA-REF12793 B-REF12794 LDB-REF12795 Q-REF12796 LDQ-REF12797 Z-REF12798 + LDZ-REF12799 INFO-REF12800)))) + +(CFFI:DEFCFUN ("sgglse_" %%SGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -5381,25 +5388,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12818 ':INT32) (N-REF12819 ':INT32) - (P-REF12820 ':INT32) (LDA-REF12822 ':INT32) - (LDB-REF12824 ':INT32) (LWORK-REF12829 ':INT32) - (INFO-REF12830 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12818 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12819 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12820 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12822 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12824 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12829 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12830 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12821 A) (B-REF12823 B) - (C-REF12825 C) (D-REF12826 D) - (X-REF12827 X) (WORK-REF12828 WORK)) - (%%SGGLSE M-REF12818 N-REF12819 P-REF12820 A-REF12821 LDA-REF12822 - B-REF12823 LDB-REF12824 C-REF12825 D-REF12826 X-REF12827 - WORK-REF12828 LWORK-REF12829 INFO-REF12830)))) - -(CFFI:DEFCFUN ("sggqrf_" %%SGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12801 ':INT32) (N-REF12802 ':INT32) + (P-REF12803 ':INT32) (LDA-REF12805 ':INT32) + (LDB-REF12807 ':INT32) (LWORK-REF12812 ':INT32) + (INFO-REF12813 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12801 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12802 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12803 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12805 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12807 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12812 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12813 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12804 A) (B-REF12806 B) + (C-REF12808 C) (D-REF12809 D) + (X-REF12810 X) (WORK-REF12811 WORK)) + (%%SGGLSE M-REF12801 N-REF12802 P-REF12803 A-REF12804 LDA-REF12805 + B-REF12806 LDB-REF12807 C-REF12808 D-REF12809 X-REF12810 WORK-REF12811 + LWORK-REF12812 INFO-REF12813)))) + +(CFFI:DEFCFUN ("sggqrf_" %%SGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (M :POINTER) @@ -5436,25 +5443,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12831 ':INT32) (M-REF12832 ':INT32) - (P-REF12833 ':INT32) (LDA-REF12835 ':INT32) - (LDB-REF12838 ':INT32) (LWORK-REF12841 ':INT32) - (INFO-REF12842 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12831 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12832 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12833 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12835 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12838 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12841 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12842 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12834 A) (TAUA-REF12836 TAUA) - (B-REF12837 B) (TAUB-REF12839 TAUB) - (WORK-REF12840 WORK)) - (%%SGGQRF N-REF12831 M-REF12832 P-REF12833 A-REF12834 LDA-REF12835 - TAUA-REF12836 B-REF12837 LDB-REF12838 TAUB-REF12839 - WORK-REF12840 LWORK-REF12841 INFO-REF12842)))) - -(CFFI:DEFCFUN ("sggrqf_" %%SGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12814 ':INT32) (M-REF12815 ':INT32) + (P-REF12816 ':INT32) (LDA-REF12818 ':INT32) + (LDB-REF12821 ':INT32) (LWORK-REF12824 ':INT32) + (INFO-REF12825 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12814 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12815 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12816 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12818 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12821 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12824 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12825 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12817 A) (TAUA-REF12819 TAUA) + (B-REF12820 B) (TAUB-REF12822 TAUB) + (WORK-REF12823 WORK)) + (%%SGGQRF N-REF12814 M-REF12815 P-REF12816 A-REF12817 LDA-REF12818 + TAUA-REF12819 B-REF12820 LDB-REF12821 TAUB-REF12822 WORK-REF12823 + LWORK-REF12824 INFO-REF12825)))) + +(CFFI:DEFCFUN ("sggrqf_" %%SGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -5491,25 +5498,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12843 ':INT32) (P-REF12844 ':INT32) - (N-REF12845 ':INT32) (LDA-REF12847 ':INT32) - (LDB-REF12850 ':INT32) (LWORK-REF12853 ':INT32) - (INFO-REF12854 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12843 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12844 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12845 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12847 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12850 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12853 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12854 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12846 A) (TAUA-REF12848 TAUA) - (B-REF12849 B) (TAUB-REF12851 TAUB) - (WORK-REF12852 WORK)) - (%%SGGRQF M-REF12843 P-REF12844 N-REF12845 A-REF12846 LDA-REF12847 - TAUA-REF12848 B-REF12849 LDB-REF12850 TAUB-REF12851 - WORK-REF12852 LWORK-REF12853 INFO-REF12854)))) - -(CFFI:DEFCFUN ("sggsvd3_" %%SGGSVD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12826 ':INT32) (P-REF12827 ':INT32) + (N-REF12828 ':INT32) (LDA-REF12830 ':INT32) + (LDB-REF12833 ':INT32) (LWORK-REF12836 ':INT32) + (INFO-REF12837 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12826 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12827 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12828 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12830 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12833 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12836 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12837 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12829 A) (TAUA-REF12831 TAUA) + (B-REF12832 B) (TAUB-REF12834 TAUB) + (WORK-REF12835 WORK)) + (%%SGGRQF M-REF12826 P-REF12827 N-REF12828 A-REF12829 LDA-REF12830 + TAUA-REF12831 B-REF12832 LDB-REF12833 TAUB-REF12834 WORK-REF12835 + LWORK-REF12836 INFO-REF12837)))) + +(CFFI:DEFCFUN ("sggsvd3_" %%SGGSVD3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -5578,37 +5586,38 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12858 ':INT32) (N-REF12859 ':INT32) - (P-REF12860 ':INT32) (K-REF12861 ':INT32) - (L-REF12862 ':INT32) (LDA-REF12864 ':INT32) - (LDB-REF12866 ':INT32) (LDU-REF12870 ':INT32) - (LDV-REF12872 ':INT32) (LDQ-REF12874 ':INT32) - (LWORK-REF12876 ':INT32) (INFO-REF12878 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12858 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12859 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12860 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12861 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF12862 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12864 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12866 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12870 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12872 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12874 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12876 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12878 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12863 A) (B-REF12865 B) - (ALPHA-REF12867 ALPHA) - (BETA-REF12868 BETA) (U-REF12869 U) - (V-REF12871 V) (Q-REF12873 Q) - (WORK-REF12875 WORK) - (IWORK-REF12877 IWORK)) - (%%SGGSVD3 JOBU JOBV JOBQ M-REF12858 N-REF12859 P-REF12860 K-REF12861 - L-REF12862 A-REF12863 LDA-REF12864 B-REF12865 LDB-REF12866 - ALPHA-REF12867 BETA-REF12868 U-REF12869 LDU-REF12870 - V-REF12871 LDV-REF12872 Q-REF12873 LDQ-REF12874 WORK-REF12875 - LWORK-REF12876 IWORK-REF12877 INFO-REF12878)))) - -(CFFI:DEFCFUN ("sggsvp3_" %%SGGSVP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12841 ':INT32) (N-REF12842 ':INT32) + (P-REF12843 ':INT32) (K-REF12844 ':INT32) + (L-REF12845 ':INT32) (LDA-REF12847 ':INT32) + (LDB-REF12849 ':INT32) (LDU-REF12853 ':INT32) + (LDV-REF12855 ':INT32) (LDQ-REF12857 ':INT32) + (LWORK-REF12859 ':INT32) (INFO-REF12861 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12841 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12842 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12843 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12844 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF12845 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12847 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12849 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12853 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12855 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12857 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12859 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12861 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12846 A) (B-REF12848 B) + (ALPHA-REF12850 ALPHA) + (BETA-REF12851 BETA) (U-REF12852 U) + (V-REF12854 V) (Q-REF12856 Q) + (WORK-REF12858 WORK) + (IWORK-REF12860 IWORK)) + (%%SGGSVD3 JOBU JOBV JOBQ M-REF12841 N-REF12842 P-REF12843 K-REF12844 + L-REF12845 A-REF12846 LDA-REF12847 B-REF12848 LDB-REF12849 + ALPHA-REF12850 BETA-REF12851 U-REF12852 LDU-REF12853 V-REF12854 + LDV-REF12855 Q-REF12856 LDQ-REF12857 WORK-REF12858 LWORK-REF12859 + IWORK-REF12860 INFO-REF12861)))) + +(CFFI:DEFCFUN ("sggsvp3_" %%SGGSVP3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -5677,40 +5686,40 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12882 ':INT32) (P-REF12883 ':INT32) - (N-REF12884 ':INT32) (LDA-REF12886 ':INT32) - (LDB-REF12888 ':INT32) (TOLA-REF12889 ':FLOAT) - (TOLB-REF12890 ':FLOAT) (K-REF12891 ':INT32) - (L-REF12892 ':INT32) (LDU-REF12894 ':INT32) - (LDV-REF12896 ':INT32) (LDQ-REF12898 ':INT32) - (LWORK-REF12902 ':INT32) (INFO-REF12903 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12882 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12883 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12884 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12886 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12888 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF12889 :FLOAT) TOLA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF12890 :FLOAT) TOLB) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12891 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF12892 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12894 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12896 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12898 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12902 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12903 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12885 A) (B-REF12887 B) - (U-REF12893 U) (V-REF12895 V) - (Q-REF12897 Q) - (IWORK-REF12899 IWORK) - (TAU-REF12900 TAU) - (WORK-REF12901 WORK)) - (%%SGGSVP3 JOBU JOBV JOBQ M-REF12882 P-REF12883 N-REF12884 A-REF12885 - LDA-REF12886 B-REF12887 LDB-REF12888 TOLA-REF12889 - TOLB-REF12890 K-REF12891 L-REF12892 U-REF12893 LDU-REF12894 - V-REF12895 LDV-REF12896 Q-REF12897 LDQ-REF12898 IWORK-REF12899 - TAU-REF12900 WORK-REF12901 LWORK-REF12902 INFO-REF12903)))) - -(CFFI:DEFCFUN ("sgsvj0_" %%SGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12865 ':INT32) (P-REF12866 ':INT32) + (N-REF12867 ':INT32) (LDA-REF12869 ':INT32) + (LDB-REF12871 ':INT32) (TOLA-REF12872 ':FLOAT) + (TOLB-REF12873 ':FLOAT) (K-REF12874 ':INT32) + (L-REF12875 ':INT32) (LDU-REF12877 ':INT32) + (LDV-REF12879 ':INT32) (LDQ-REF12881 ':INT32) + (LWORK-REF12885 ':INT32) (INFO-REF12886 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12865 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF12866 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12867 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12869 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12871 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF12872 :FLOAT) TOLA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF12873 :FLOAT) TOLB) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF12874 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF12875 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF12877 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12879 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF12881 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12885 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12886 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12868 A) (B-REF12870 B) + (U-REF12876 U) (V-REF12878 V) + (Q-REF12880 Q) + (IWORK-REF12882 IWORK) + (TAU-REF12883 TAU) + (WORK-REF12884 WORK)) + (%%SGGSVP3 JOBU JOBV JOBQ M-REF12865 P-REF12866 N-REF12867 A-REF12868 + LDA-REF12869 B-REF12870 LDB-REF12871 TOLA-REF12872 TOLB-REF12873 + K-REF12874 L-REF12875 U-REF12876 LDU-REF12877 V-REF12878 LDV-REF12879 + Q-REF12880 LDQ-REF12881 IWORK-REF12882 TAU-REF12883 WORK-REF12884 + LWORK-REF12885 INFO-REF12886)))) + +(CFFI:DEFCFUN ("sgsvj0_" %%SGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBV :STRING) (M :POINTER) @@ -5758,32 +5767,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12905 ':INT32) (N-REF12906 ':INT32) - (LDA-REF12908 ':INT32) (MV-REF12911 ':INT32) - (LDV-REF12913 ':INT32) (EPS-REF12914 ':FLOAT) - (SFMIN-REF12915 ':FLOAT) (TOL-REF12916 ':FLOAT) - (NSWEEP-REF12917 ':INT32) - (LWORK-REF12919 ':INT32) (INFO-REF12920 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12905 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12906 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12908 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12911 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12913 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF12914 :FLOAT) EPS) - (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF12915 :FLOAT) SFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF12916 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF12917 :INT32) NSWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12919 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12920 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12907 A) (D-REF12909 D) - (SVA-REF12910 SVA) (V-REF12912 V) - (WORK-REF12918 WORK)) - (%%SGSVJ0 JOBV M-REF12905 N-REF12906 A-REF12907 LDA-REF12908 D-REF12909 - SVA-REF12910 MV-REF12911 V-REF12912 LDV-REF12913 EPS-REF12914 - SFMIN-REF12915 TOL-REF12916 NSWEEP-REF12917 WORK-REF12918 - LWORK-REF12919 INFO-REF12920)))) - -(CFFI:DEFCFUN ("sgsvj1_" %%SGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12888 ':INT32) (N-REF12889 ':INT32) + (LDA-REF12891 ':INT32) (MV-REF12894 ':INT32) + (LDV-REF12896 ':INT32) (EPS-REF12897 ':FLOAT) + (SFMIN-REF12898 ':FLOAT) (TOL-REF12899 ':FLOAT) + (NSWEEP-REF12900 ':INT32) + (LWORK-REF12902 ':INT32) (INFO-REF12903 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12888 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12889 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12891 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12894 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12896 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF12897 :FLOAT) EPS) + (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF12898 :FLOAT) SFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF12899 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF12900 :INT32) NSWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12902 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12903 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12890 A) (D-REF12892 D) + (SVA-REF12893 SVA) (V-REF12895 V) + (WORK-REF12901 WORK)) + (%%SGSVJ0 JOBV M-REF12888 N-REF12889 A-REF12890 LDA-REF12891 D-REF12892 + SVA-REF12893 MV-REF12894 V-REF12895 LDV-REF12896 EPS-REF12897 + SFMIN-REF12898 TOL-REF12899 NSWEEP-REF12900 WORK-REF12901 LWORK-REF12902 + INFO-REF12903)))) + +(CFFI:DEFCFUN ("sgsvj1_" %%SGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBV :STRING) (M :POINTER) @@ -5833,33 +5842,33 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12922 ':INT32) (N-REF12923 ':INT32) - (N1-REF12924 ':INT32) (LDA-REF12926 ':INT32) - (MV-REF12929 ':INT32) (LDV-REF12931 ':INT32) - (EPS-REF12932 ':FLOAT) (SFMIN-REF12933 ':FLOAT) - (TOL-REF12934 ':FLOAT) (NSWEEP-REF12935 ':INT32) - (LWORK-REF12937 ':INT32) (INFO-REF12938 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12922 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12923 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF12924 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12926 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12929 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12931 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF12932 :FLOAT) EPS) - (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF12933 :FLOAT) SFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF12934 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF12935 :INT32) NSWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12937 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12938 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12925 A) (D-REF12927 D) - (SVA-REF12928 SVA) (V-REF12930 V) - (WORK-REF12936 WORK)) - (%%SGSVJ1 JOBV M-REF12922 N-REF12923 N1-REF12924 A-REF12925 LDA-REF12926 - D-REF12927 SVA-REF12928 MV-REF12929 V-REF12930 LDV-REF12931 - EPS-REF12932 SFMIN-REF12933 TOL-REF12934 NSWEEP-REF12935 - WORK-REF12936 LWORK-REF12937 INFO-REF12938)))) - -(CFFI:DEFCFUN ("sgtcon_" %%SGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF12905 ':INT32) (N-REF12906 ':INT32) + (N1-REF12907 ':INT32) (LDA-REF12909 ':INT32) + (MV-REF12912 ':INT32) (LDV-REF12914 ':INT32) + (EPS-REF12915 ':FLOAT) (SFMIN-REF12916 ':FLOAT) + (TOL-REF12917 ':FLOAT) (NSWEEP-REF12918 ':INT32) + (LWORK-REF12920 ':INT32) (INFO-REF12921 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF12905 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12906 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF12907 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12909 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF12912 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF12914 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF12915 :FLOAT) EPS) + (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF12916 :FLOAT) SFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF12917 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF12918 :INT32) NSWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12920 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12921 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12908 A) (D-REF12910 D) + (SVA-REF12911 SVA) (V-REF12913 V) + (WORK-REF12919 WORK)) + (%%SGSVJ1 JOBV M-REF12905 N-REF12906 N1-REF12907 A-REF12908 LDA-REF12909 + D-REF12910 SVA-REF12911 MV-REF12912 V-REF12913 LDV-REF12914 EPS-REF12915 + SFMIN-REF12916 TOL-REF12917 NSWEEP-REF12918 WORK-REF12919 LWORK-REF12920 + INFO-REF12921)))) + +(CFFI:DEFCFUN ("sgtcon_" %%SGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -5902,22 +5911,22 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12940 ':INT32) (ANORM-REF12946 ':FLOAT) - (RCOND-REF12947 ':FLOAT) (INFO-REF12950 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12940 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF12946 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12947 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12950 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12941 DL) (D-REF12942 D) - (DU-REF12943 DU) (DU2-REF12944 DU2) - (IPIV-REF12945 IPIV) - (WORK-REF12948 WORK) - (IWORK-REF12949 IWORK)) - (%%SGTCON NORM N-REF12940 DL-REF12941 D-REF12942 DU-REF12943 DU2-REF12944 - IPIV-REF12945 ANORM-REF12946 RCOND-REF12947 WORK-REF12948 - IWORK-REF12949 INFO-REF12950)))) - -(CFFI:DEFCFUN ("sgtrfs_" %%SGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12923 ':INT32) (ANORM-REF12929 ':FLOAT) + (RCOND-REF12930 ':FLOAT) (INFO-REF12933 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12923 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF12929 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12930 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12933 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12924 DL) (D-REF12925 D) + (DU-REF12926 DU) (DU2-REF12927 DU2) + (IPIV-REF12928 IPIV) + (WORK-REF12931 WORK) + (IWORK-REF12932 IWORK)) + (%%SGTCON NORM N-REF12923 DL-REF12924 D-REF12925 DU-REF12926 DU2-REF12927 + IPIV-REF12928 ANORM-REF12929 RCOND-REF12930 WORK-REF12931 IWORK-REF12932 + INFO-REF12933)))) + +(CFFI:DEFCFUN ("sgtrfs_" %%SGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -5988,30 +5997,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12952 ':INT32) (NRHS-REF12953 ':INT32) - (LDB-REF12963 ':INT32) (LDX-REF12965 ':INT32) - (INFO-REF12970 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12952 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12953 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12963 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12965 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12970 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12954 DL) (D-REF12955 D) - (DU-REF12956 DU) (DLF-REF12957 DLF) - (DF-REF12958 DF) (DUF-REF12959 DUF) - (DU2-REF12960 DU2) - (IPIV-REF12961 IPIV) (B-REF12962 B) - (X-REF12964 X) (FERR-REF12966 FERR) - (BERR-REF12967 BERR) - (WORK-REF12968 WORK) - (IWORK-REF12969 IWORK)) - (%%SGTRFS TRANS N-REF12952 NRHS-REF12953 DL-REF12954 D-REF12955 - DU-REF12956 DLF-REF12957 DF-REF12958 DUF-REF12959 DU2-REF12960 - IPIV-REF12961 B-REF12962 LDB-REF12963 X-REF12964 LDX-REF12965 - FERR-REF12966 BERR-REF12967 WORK-REF12968 IWORK-REF12969 - INFO-REF12970)))) - -(CFFI:DEFCFUN ("sgtsv_" %%SGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12935 ':INT32) (NRHS-REF12936 ':INT32) + (LDB-REF12946 ':INT32) (LDX-REF12948 ':INT32) + (INFO-REF12953 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12935 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12936 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12946 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12948 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12953 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12937 DL) (D-REF12938 D) + (DU-REF12939 DU) (DLF-REF12940 DLF) + (DF-REF12941 DF) (DUF-REF12942 DUF) + (DU2-REF12943 DU2) + (IPIV-REF12944 IPIV) (B-REF12945 B) + (X-REF12947 X) (FERR-REF12949 FERR) + (BERR-REF12950 BERR) + (WORK-REF12951 WORK) + (IWORK-REF12952 IWORK)) + (%%SGTRFS TRANS N-REF12935 NRHS-REF12936 DL-REF12937 D-REF12938 + DU-REF12939 DLF-REF12940 DF-REF12941 DUF-REF12942 DU2-REF12943 + IPIV-REF12944 B-REF12945 LDB-REF12946 X-REF12947 LDX-REF12948 + FERR-REF12949 BERR-REF12950 WORK-REF12951 IWORK-REF12952 + INFO-REF12953)))) + +(CFFI:DEFCFUN ("sgtsv_" %%SGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -6036,18 +6045,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12971 ':INT32) (NRHS-REF12972 ':INT32) - (LDB-REF12977 ':INT32) (INFO-REF12978 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12971 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12972 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12977 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12978 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12973 DL) (D-REF12974 D) - (DU-REF12975 DU) (B-REF12976 B)) - (%%SGTSV N-REF12971 NRHS-REF12972 DL-REF12973 D-REF12974 DU-REF12975 - B-REF12976 LDB-REF12977 INFO-REF12978)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12954 ':INT32) (NRHS-REF12955 ':INT32) + (LDB-REF12960 ':INT32) (INFO-REF12961 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12954 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12955 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12960 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12961 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12956 DL) (D-REF12957 D) + (DU-REF12958 DU) (B-REF12959 B)) + (%%SGTSV N-REF12954 NRHS-REF12955 DL-REF12956 D-REF12957 DU-REF12958 + B-REF12959 LDB-REF12960 INFO-REF12961)))) -(CFFI:DEFCFUN ("sgtsvx_" %%SGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgtsvx_" %%SGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -6122,31 +6131,31 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12981 ':INT32) (NRHS-REF12982 ':INT32) - (LDB-REF12992 ':INT32) (LDX-REF12994 ':INT32) - (RCOND-REF12995 ':FLOAT) (INFO-REF13000 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12981 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12982 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12992 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12994 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12995 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13000 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12983 DL) (D-REF12984 D) - (DU-REF12985 DU) (DLF-REF12986 DLF) - (DF-REF12987 DF) (DUF-REF12988 DUF) - (DU2-REF12989 DU2) - (IPIV-REF12990 IPIV) (B-REF12991 B) - (X-REF12993 X) (FERR-REF12996 FERR) - (BERR-REF12997 BERR) - (WORK-REF12998 WORK) - (IWORK-REF12999 IWORK)) - (%%SGTSVX FACT TRANS N-REF12981 NRHS-REF12982 DL-REF12983 D-REF12984 - DU-REF12985 DLF-REF12986 DF-REF12987 DUF-REF12988 DU2-REF12989 - IPIV-REF12990 B-REF12991 LDB-REF12992 X-REF12993 LDX-REF12994 - RCOND-REF12995 FERR-REF12996 BERR-REF12997 WORK-REF12998 - IWORK-REF12999 INFO-REF13000)))) - -(CFFI:DEFCFUN ("sgttrf_" %%SGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12964 ':INT32) (NRHS-REF12965 ':INT32) + (LDB-REF12975 ':INT32) (LDX-REF12977 ':INT32) + (RCOND-REF12978 ':FLOAT) (INFO-REF12983 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12964 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12965 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12975 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF12977 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF12978 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12983 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12966 DL) (D-REF12967 D) + (DU-REF12968 DU) (DLF-REF12969 DLF) + (DF-REF12970 DF) (DUF-REF12971 DUF) + (DU2-REF12972 DU2) + (IPIV-REF12973 IPIV) (B-REF12974 B) + (X-REF12976 X) (FERR-REF12979 FERR) + (BERR-REF12980 BERR) + (WORK-REF12981 WORK) + (IWORK-REF12982 IWORK)) + (%%SGTSVX FACT TRANS N-REF12964 NRHS-REF12965 DL-REF12966 D-REF12967 + DU-REF12968 DLF-REF12969 DF-REF12970 DUF-REF12971 DU2-REF12972 + IPIV-REF12973 B-REF12974 LDB-REF12975 X-REF12976 LDX-REF12977 + RCOND-REF12978 FERR-REF12979 BERR-REF12980 WORK-REF12981 IWORK-REF12982 + INFO-REF12983)))) + +(CFFI:DEFCFUN ("sgttrf_" %%SGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (DL :POINTER) @@ -6173,16 +6182,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13001 ':INT32) (INFO-REF13007 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13001 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13007 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13002 DL) (D-REF13003 D) - (DU-REF13004 DU) (DU2-REF13005 DU2) - (IPIV-REF13006 IPIV)) - (%%SGTTRF N-REF13001 DL-REF13002 D-REF13003 DU-REF13004 DU2-REF13005 - IPIV-REF13006 INFO-REF13007)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12984 ':INT32) (INFO-REF12990 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12984 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12990 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12985 DL) (D-REF12986 D) + (DU-REF12987 DU) (DU2-REF12988 DU2) + (IPIV-REF12989 IPIV)) + (%%SGTTRF N-REF12984 DL-REF12985 D-REF12986 DU-REF12987 DU2-REF12988 + IPIV-REF12989 INFO-REF12990)))) -(CFFI:DEFCFUN ("sgttrs_" %%SGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sgttrs_" %%SGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -6218,20 +6227,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13009 ':INT32) (NRHS-REF13010 ':INT32) - (LDB-REF13017 ':INT32) (INFO-REF13018 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13009 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13010 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13017 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13018 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13011 DL) (D-REF13012 D) - (DU-REF13013 DU) (DU2-REF13014 DU2) - (IPIV-REF13015 IPIV) (B-REF13016 B)) - (%%SGTTRS TRANS N-REF13009 NRHS-REF13010 DL-REF13011 D-REF13012 - DU-REF13013 DU2-REF13014 IPIV-REF13015 B-REF13016 LDB-REF13017 - INFO-REF13018)))) - -(CFFI:DEFCFUN ("sgtts2_" %%SGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12992 ':INT32) (NRHS-REF12993 ':INT32) + (LDB-REF13000 ':INT32) (INFO-REF13001 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12992 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF12993 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13000 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13001 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF12994 DL) (D-REF12995 D) + (DU-REF12996 DU) (DU2-REF12997 DU2) + (IPIV-REF12998 IPIV) (B-REF12999 B)) + (%%SGTTRS TRANS N-REF12992 NRHS-REF12993 DL-REF12994 D-REF12995 + DU-REF12996 DU2-REF12997 IPIV-REF12998 B-REF12999 LDB-REF13000 + INFO-REF13001)))) + +(CFFI:DEFCFUN ("sgtts2_" %%SGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITRANS :POINTER) (N :POINTER) @@ -6265,20 +6274,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF13019 ':INT32) (N-REF13020 ':INT32) - (NRHS-REF13021 ':INT32) (LDB-REF13028 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF13019 :INT32) ITRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13020 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13021 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13028 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13022 DL) (D-REF13023 D) - (DU-REF13024 DU) (DU2-REF13025 DU2) - (IPIV-REF13026 IPIV) (B-REF13027 B)) - (%%SGTTS2 ITRANS-REF13019 N-REF13020 NRHS-REF13021 DL-REF13022 D-REF13023 - DU-REF13024 DU2-REF13025 IPIV-REF13026 B-REF13027 - LDB-REF13028)))) - -(CFFI:DEFCFUN ("shgeqz_" %%SHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF13002 ':INT32) (N-REF13003 ':INT32) + (NRHS-REF13004 ':INT32) (LDB-REF13011 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF13002 :INT32) ITRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13003 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13004 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13011 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13005 DL) (D-REF13006 D) + (DU-REF13007 DU) (DU2-REF13008 DU2) + (IPIV-REF13009 IPIV) (B-REF13010 B)) + (%%SGTTS2 ITRANS-REF13002 N-REF13003 NRHS-REF13004 DL-REF13005 D-REF13006 + DU-REF13007 DU2-REF13008 IPIV-REF13009 B-REF13010 LDB-REF13011)))) + +(CFFI:DEFCFUN ("shgeqz_" %%SHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPQ :STRING) @@ -6337,32 +6345,31 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13032 ':INT32) (ILO-REF13033 ':INT32) - (IHI-REF13034 ':INT32) (LDH-REF13036 ':INT32) - (LDT-REF13038 ':INT32) (LDQ-REF13043 ':INT32) - (LDZ-REF13045 ':INT32) (LWORK-REF13047 ':INT32) - (INFO-REF13048 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13032 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13033 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13034 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13036 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13038 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13043 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13045 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13047 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13048 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13035 H) (T-REF13037 T) - (ALPHAR-REF13039 ALPHAR) - (ALPHAI-REF13040 ALPHAI) - (BETA-REF13041 BETA) (Q-REF13042 Q) - (Z-REF13044 Z) (WORK-REF13046 WORK)) - (%%SHGEQZ JOB COMPQ COMPZ N-REF13032 ILO-REF13033 IHI-REF13034 H-REF13035 - LDH-REF13036 T-REF13037 LDT-REF13038 ALPHAR-REF13039 - ALPHAI-REF13040 BETA-REF13041 Q-REF13042 LDQ-REF13043 - Z-REF13044 LDZ-REF13045 WORK-REF13046 LWORK-REF13047 - INFO-REF13048)))) - -(CFFI:DEFCFUN ("shsein_" %%SHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13015 ':INT32) (ILO-REF13016 ':INT32) + (IHI-REF13017 ':INT32) (LDH-REF13019 ':INT32) + (LDT-REF13021 ':INT32) (LDQ-REF13026 ':INT32) + (LDZ-REF13028 ':INT32) (LWORK-REF13030 ':INT32) + (INFO-REF13031 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13015 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13016 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13017 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13019 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13021 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13026 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13028 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13030 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13031 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13018 H) (T-REF13020 T) + (ALPHAR-REF13022 ALPHAR) + (ALPHAI-REF13023 ALPHAI) + (BETA-REF13024 BETA) (Q-REF13025 Q) + (Z-REF13027 Z) (WORK-REF13029 WORK)) + (%%SHGEQZ JOB COMPQ COMPZ N-REF13015 ILO-REF13016 IHI-REF13017 H-REF13018 + LDH-REF13019 T-REF13020 LDT-REF13021 ALPHAR-REF13022 ALPHAI-REF13023 + BETA-REF13024 Q-REF13025 LDQ-REF13026 Z-REF13027 LDZ-REF13028 + WORK-REF13029 LWORK-REF13030 INFO-REF13031)))) + +(CFFI:DEFCFUN ("shsein_" %%SHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (EIGSRC :STRING) @@ -6423,30 +6430,30 @@ (COMMON-LISP:*)) IFAILR) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13053 ':INT32) (LDH-REF13055 ':INT32) - (LDVL-REF13059 ':INT32) (LDVR-REF13061 ':INT32) - (MM-REF13062 ':INT32) (M-REF13063 ':INT32) - (INFO-REF13067 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13053 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13055 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF13059 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF13061 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF13062 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13063 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13067 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF13052 SELECT) - (H-REF13054 H) (WR-REF13056 WR) - (WI-REF13057 WI) (VL-REF13058 VL) - (VR-REF13060 VR) - (WORK-REF13064 WORK) - (IFAILL-REF13065 IFAILL) - (IFAILR-REF13066 IFAILR)) - (%%SHSEIN SIDE EIGSRC INITV SELECT-REF13052 N-REF13053 H-REF13054 - LDH-REF13055 WR-REF13056 WI-REF13057 VL-REF13058 LDVL-REF13059 - VR-REF13060 LDVR-REF13061 MM-REF13062 M-REF13063 WORK-REF13064 - IFAILL-REF13065 IFAILR-REF13066 INFO-REF13067)))) - -(CFFI:DEFCFUN ("shseqr_" %%SHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13036 ':INT32) (LDH-REF13038 ':INT32) + (LDVL-REF13042 ':INT32) (LDVR-REF13044 ':INT32) + (MM-REF13045 ':INT32) (M-REF13046 ':INT32) + (INFO-REF13050 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13036 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13038 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF13042 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF13044 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF13045 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13046 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13050 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF13035 SELECT) + (H-REF13037 H) (WR-REF13039 WR) + (WI-REF13040 WI) (VL-REF13041 VL) + (VR-REF13043 VR) + (WORK-REF13047 WORK) + (IFAILL-REF13048 IFAILL) + (IFAILR-REF13049 IFAILR)) + (%%SHSEIN SIDE EIGSRC INITV SELECT-REF13035 N-REF13036 H-REF13037 + LDH-REF13038 WR-REF13039 WI-REF13040 VL-REF13041 LDVL-REF13042 + VR-REF13043 LDVR-REF13044 MM-REF13045 M-REF13046 WORK-REF13047 + IFAILL-REF13048 IFAILR-REF13049 INFO-REF13050)))) + +(CFFI:DEFCFUN ("shseqr_" %%SHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPZ :STRING) @@ -6486,38 +6493,38 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13070 ':INT32) (ILO-REF13071 ':INT32) - (IHI-REF13072 ':INT32) (LDH-REF13074 ':INT32) - (LDZ-REF13078 ':INT32) (LWORK-REF13080 ':INT32) - (INFO-REF13081 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13070 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13071 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13072 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13074 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13078 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13080 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13081 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13073 H) (WR-REF13075 WR) - (WI-REF13076 WI) (Z-REF13077 Z) - (WORK-REF13079 WORK)) - (%%SHSEQR JOB COMPZ N-REF13070 ILO-REF13071 IHI-REF13072 H-REF13073 - LDH-REF13074 WR-REF13075 WI-REF13076 Z-REF13077 LDZ-REF13078 - WORK-REF13079 LWORK-REF13080 INFO-REF13081)))) - -(CFFI:DEFCFUN ("sisnan_" %%SISNAN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13053 ':INT32) (ILO-REF13054 ':INT32) + (IHI-REF13055 ':INT32) (LDH-REF13057 ':INT32) + (LDZ-REF13061 ':INT32) (LWORK-REF13063 ':INT32) + (INFO-REF13064 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13053 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13054 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13055 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13057 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13061 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13063 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13064 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13056 H) (WR-REF13058 WR) + (WI-REF13059 WI) (Z-REF13060 Z) + (WORK-REF13062 WORK)) + (%%SHSEQR JOB COMPZ N-REF13053 ILO-REF13054 IHI-REF13055 H-REF13056 + LDH-REF13057 WR-REF13058 WI-REF13059 Z-REF13060 LDZ-REF13061 + WORK-REF13062 LWORK-REF13063 INFO-REF13064)))) + +(CFFI:DEFCFUN ("sisnan_" %%SISNAN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (SIN :POINTER)) (COMMON-LISP:DEFUN %SISNAN (SIN) (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SISNAN) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN)) - (CFFI:WITH-FOREIGN-OBJECTS ((SIN-REF13082 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF SIN-REF13082 :FLOAT) SIN) + (CFFI:WITH-FOREIGN-OBJECTS ((SIN-REF13065 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF SIN-REF13065 :FLOAT) SIN) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SISNAN SIN-REF13082)))) + (%%SISNAN SIN-REF13065)))) (CFFI:DEFCFUN ("sla_gbamv_" %%SLA_GBAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :POINTER) (M :POINTER) @@ -6552,29 +6559,29 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF13083 ':INT32) (M-REF13084 ':INT32) - (N-REF13085 ':INT32) (KL-REF13086 ':INT32) - (KU-REF13087 ':INT32) (ALPHA-REF13088 ':FLOAT) - (LDAB-REF13090 ':INT32) (INCX-REF13092 ':INT32) - (BETA-REF13093 ':FLOAT) (INCY-REF13095 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF13083 :INT32) TRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13084 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13085 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13086 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13087 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13088 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13090 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13092 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13093 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13095 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13089 AB) (X-REF13091 X) - (Y-REF13094 Y)) - (%%SLA_GBAMV TRANS-REF13083 M-REF13084 N-REF13085 KL-REF13086 KU-REF13087 - ALPHA-REF13088 AB-REF13089 LDAB-REF13090 X-REF13091 - INCX-REF13092 BETA-REF13093 Y-REF13094 INCY-REF13095)))) + (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF13066 ':INT32) (M-REF13067 ':INT32) + (N-REF13068 ':INT32) (KL-REF13069 ':INT32) + (KU-REF13070 ':INT32) (ALPHA-REF13071 ':FLOAT) + (LDAB-REF13073 ':INT32) (INCX-REF13075 ':INT32) + (BETA-REF13076 ':FLOAT) (INCY-REF13078 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF13066 :INT32) TRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13067 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13068 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13069 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13070 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13071 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13073 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13075 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13076 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13078 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13072 AB) (X-REF13074 X) + (Y-REF13077 Y)) + (%%SLA_GBAMV TRANS-REF13066 M-REF13067 N-REF13068 KL-REF13069 KU-REF13070 + ALPHA-REF13071 AB-REF13072 LDAB-REF13073 X-REF13074 INCX-REF13075 + BETA-REF13076 Y-REF13077 INCY-REF13078)))) (CFFI:DEFCFUN ("sla_gbrcond_" %%SLA_GBRCOND :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (TRANS :STRING) (N :POINTER) @@ -6621,28 +6628,27 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) IWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13097 ':INT32) (KL-REF13098 ':INT32) - (KU-REF13099 ':INT32) (LDAB-REF13101 ':INT32) - (LDAFB-REF13103 ':INT32) (CMODE-REF13105 ':INT32) - (INFO-REF13107 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13097 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13098 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13099 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13101 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13103 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13105 :INT32) CMODE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13107 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13100 AB) (AFB-REF13102 AFB) - (IPIV-REF13104 IPIV) (C-REF13106 C) - (WORK-REF13108 WORK) - (IWORK-REF13109 IWORK)) - (%%SLA_GBRCOND TRANS N-REF13097 KL-REF13098 KU-REF13099 AB-REF13100 - LDAB-REF13101 AFB-REF13102 LDAFB-REF13103 IPIV-REF13104 - CMODE-REF13105 C-REF13106 INFO-REF13107 WORK-REF13108 - IWORK-REF13109)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13080 ':INT32) (KL-REF13081 ':INT32) + (KU-REF13082 ':INT32) (LDAB-REF13084 ':INT32) + (LDAFB-REF13086 ':INT32) (CMODE-REF13088 ':INT32) + (INFO-REF13090 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13080 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13081 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13082 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13084 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13086 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13088 :INT32) CMODE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13090 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13083 AB) (AFB-REF13085 AFB) + (IPIV-REF13087 IPIV) (C-REF13089 C) + (WORK-REF13091 WORK) + (IWORK-REF13092 IWORK)) + (%%SLA_GBRCOND TRANS N-REF13080 KL-REF13081 KU-REF13082 AB-REF13083 + LDAB-REF13084 AFB-REF13085 LDAFB-REF13086 IPIV-REF13087 CMODE-REF13088 + C-REF13089 INFO-REF13090 WORK-REF13091 IWORK-REF13092)))) (CFFI:DEFCFUN ("sla_gbrfsx_extended_" %%SLA_GBRFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (TRANS_TYPE :POINTER) @@ -6738,62 +6744,59 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13110 ':INT32) - (TRANS_TYPE-REF13111 ':INT32) - (N-REF13112 ':INT32) (KL-REF13113 ':INT32) - (KU-REF13114 ':INT32) (NRHS-REF13115 ':INT32) - (LDAB-REF13117 ':INT32) (LDAFB-REF13119 ':INT32) - (COLEQU-REF13121 ':INT32) (LDB-REF13124 ':INT32) - (LDY-REF13126 ':INT32) (N_NORMS-REF13128 ':INT32) - (RCOND-REF13135 ':FLOAT) - (ITHRESH-REF13136 ':INT32) - (RTHRESH-REF13137 ':FLOAT) - (DZ_UB-REF13138 ':FLOAT) - (IGNORE_CWISE-REF13139 ':INT32) - (INFO-REF13140 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13110 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF13111 :INT32) TRANS_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13112 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13113 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13114 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13115 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13117 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13119 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13121 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13124 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13126 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13128 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13135 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13136 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13137 :FLOAT) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13138 :FLOAT) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13139 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13140 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13116 AB) (AFB-REF13118 AFB) - (IPIV-REF13120 IPIV) (C-REF13122 C) - (B-REF13123 B) (Y-REF13125 Y) - (BERR_OUT-REF13127 BERR_OUT) - (ERR_BNDS_NORM-REF13129 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13093 ':INT32) + (TRANS_TYPE-REF13094 ':INT32) + (N-REF13095 ':INT32) (KL-REF13096 ':INT32) + (KU-REF13097 ':INT32) (NRHS-REF13098 ':INT32) + (LDAB-REF13100 ':INT32) (LDAFB-REF13102 ':INT32) + (COLEQU-REF13104 ':INT32) (LDB-REF13107 ':INT32) + (LDY-REF13109 ':INT32) (N_NORMS-REF13111 ':INT32) + (RCOND-REF13118 ':FLOAT) + (ITHRESH-REF13119 ':INT32) + (RTHRESH-REF13120 ':FLOAT) + (DZ_UB-REF13121 ':FLOAT) + (IGNORE_CWISE-REF13122 ':INT32) + (INFO-REF13123 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13093 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF13094 :INT32) TRANS_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13095 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13096 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13097 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13098 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13100 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13102 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13104 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13107 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13109 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13111 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13118 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13119 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13120 :FLOAT) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13121 :FLOAT) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13122 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13123 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13099 AB) (AFB-REF13101 AFB) + (IPIV-REF13103 IPIV) (C-REF13105 C) + (B-REF13106 B) (Y-REF13108 Y) + (BERR_OUT-REF13110 BERR_OUT) + (ERR_BNDS_NORM-REF13112 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF13130 + (ERR_BNDS_COMP-REF13113 ERR_BNDS_COMP) - (RES-REF13131 RES) - (AYB-REF13132 AYB) (DY-REF13133 DY) - (Y_TAIL-REF13134 Y_TAIL)) - (%%SLA_GBRFSX_EXTENDED PREC_TYPE-REF13110 TRANS_TYPE-REF13111 N-REF13112 - KL-REF13113 KU-REF13114 NRHS-REF13115 AB-REF13116 - LDAB-REF13117 AFB-REF13118 LDAFB-REF13119 - IPIV-REF13120 COLEQU-REF13121 C-REF13122 - B-REF13123 LDB-REF13124 Y-REF13125 LDY-REF13126 - BERR_OUT-REF13127 N_NORMS-REF13128 - ERR_BNDS_NORM-REF13129 ERR_BNDS_COMP-REF13130 - RES-REF13131 AYB-REF13132 DY-REF13133 - Y_TAIL-REF13134 RCOND-REF13135 ITHRESH-REF13136 - RTHRESH-REF13137 DZ_UB-REF13138 - IGNORE_CWISE-REF13139 INFO-REF13140)))) + (RES-REF13114 RES) + (AYB-REF13115 AYB) (DY-REF13116 DY) + (Y_TAIL-REF13117 Y_TAIL)) + (%%SLA_GBRFSX_EXTENDED PREC_TYPE-REF13093 TRANS_TYPE-REF13094 N-REF13095 + KL-REF13096 KU-REF13097 NRHS-REF13098 AB-REF13099 LDAB-REF13100 + AFB-REF13101 LDAFB-REF13102 IPIV-REF13103 COLEQU-REF13104 C-REF13105 + B-REF13106 LDB-REF13107 Y-REF13108 LDY-REF13109 BERR_OUT-REF13110 + N_NORMS-REF13111 ERR_BNDS_NORM-REF13112 ERR_BNDS_COMP-REF13113 + RES-REF13114 AYB-REF13115 DY-REF13116 Y_TAIL-REF13117 RCOND-REF13118 + ITHRESH-REF13119 RTHRESH-REF13120 DZ_UB-REF13121 IGNORE_CWISE-REF13122 + INFO-REF13123)))) (CFFI:DEFCFUN ("sla_gbrpvgrw_" %%SLA_GBRPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (N :POINTER) (KL :POINTER) @@ -6817,21 +6820,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13141 ':INT32) (KL-REF13142 ':INT32) - (KU-REF13143 ':INT32) (NCOLS-REF13144 ':INT32) - (LDAB-REF13146 ':INT32) (LDAFB-REF13148 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13141 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13142 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13143 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13144 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13146 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13148 :INT32) LDAFB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13145 AB) (AFB-REF13147 AFB)) - (%%SLA_GBRPVGRW N-REF13141 KL-REF13142 KU-REF13143 NCOLS-REF13144 - AB-REF13145 LDAB-REF13146 AFB-REF13147 LDAFB-REF13148)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13124 ':INT32) (KL-REF13125 ':INT32) + (KU-REF13126 ':INT32) (NCOLS-REF13127 ':INT32) + (LDAB-REF13129 ':INT32) (LDAFB-REF13131 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13124 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13125 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13126 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13127 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13129 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13131 :INT32) LDAFB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13128 AB) (AFB-REF13130 AFB)) + (%%SLA_GBRPVGRW N-REF13124 KL-REF13125 KU-REF13126 NCOLS-REF13127 + AB-REF13128 LDAB-REF13129 AFB-REF13130 LDAFB-REF13131)))) (CFFI:DEFCFUN ("sla_geamv_" %%SLA_GEAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :POINTER) (M :POINTER) @@ -6861,26 +6864,26 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF13149 ':INT32) (M-REF13150 ':INT32) - (N-REF13151 ':INT32) (ALPHA-REF13152 ':FLOAT) - (LDA-REF13154 ':INT32) (INCX-REF13156 ':INT32) - (BETA-REF13157 ':FLOAT) (INCY-REF13159 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF13149 :INT32) TRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13150 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13151 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13152 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13154 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13156 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13157 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13159 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13153 A) (X-REF13155 X) - (Y-REF13158 Y)) - (%%SLA_GEAMV TRANS-REF13149 M-REF13150 N-REF13151 ALPHA-REF13152 - A-REF13153 LDA-REF13154 X-REF13155 INCX-REF13156 - BETA-REF13157 Y-REF13158 INCY-REF13159)))) + (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF13132 ':INT32) (M-REF13133 ':INT32) + (N-REF13134 ':INT32) (ALPHA-REF13135 ':FLOAT) + (LDA-REF13137 ':INT32) (INCX-REF13139 ':INT32) + (BETA-REF13140 ':FLOAT) (INCY-REF13142 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF13132 :INT32) TRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13133 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13134 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13135 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13137 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13139 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13140 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13142 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13136 A) (X-REF13138 X) + (Y-REF13141 Y)) + (%%SLA_GEAMV TRANS-REF13132 M-REF13133 N-REF13134 ALPHA-REF13135 + A-REF13136 LDA-REF13137 X-REF13138 INCX-REF13139 BETA-REF13140 + Y-REF13141 INCY-REF13142)))) (CFFI:DEFCFUN ("sla_gercond_" %%SLA_GERCOND :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (TRANS :STRING) (N :POINTER) @@ -6921,24 +6924,24 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) IWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13161 ':INT32) (LDA-REF13163 ':INT32) - (LDAF-REF13165 ':INT32) (CMODE-REF13167 ':INT32) - (INFO-REF13169 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13161 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13163 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13165 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13167 :INT32) CMODE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13169 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13162 A) (AF-REF13164 AF) - (IPIV-REF13166 IPIV) (C-REF13168 C) - (WORK-REF13170 WORK) - (IWORK-REF13171 IWORK)) - (%%SLA_GERCOND TRANS N-REF13161 A-REF13162 LDA-REF13163 AF-REF13164 - LDAF-REF13165 IPIV-REF13166 CMODE-REF13167 C-REF13168 - INFO-REF13169 WORK-REF13170 IWORK-REF13171)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13144 ':INT32) (LDA-REF13146 ':INT32) + (LDAF-REF13148 ':INT32) (CMODE-REF13150 ':INT32) + (INFO-REF13152 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13144 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13146 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13148 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13150 :INT32) CMODE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13152 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13145 A) (AF-REF13147 AF) + (IPIV-REF13149 IPIV) (C-REF13151 C) + (WORK-REF13153 WORK) + (IWORK-REF13154 IWORK)) + (%%SLA_GERCOND TRANS N-REF13144 A-REF13145 LDA-REF13146 AF-REF13147 + LDAF-REF13148 IPIV-REF13149 CMODE-REF13150 C-REF13151 INFO-REF13152 + WORK-REF13153 IWORK-REF13154)))) (CFFI:DEFCFUN ("sla_gerfsx_extended_" %%SLA_GERFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (TRANS_TYPE :POINTER) @@ -7028,56 +7031,53 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13172 ':INT32) - (TRANS_TYPE-REF13173 ':INT32) - (N-REF13174 ':INT32) (NRHS-REF13175 ':INT32) - (LDA-REF13177 ':INT32) (LDAF-REF13179 ':INT32) - (COLEQU-REF13181 ':INT32) (LDB-REF13184 ':INT32) - (LDY-REF13186 ':INT32) (N_NORMS-REF13188 ':INT32) - (RCOND-REF13195 ':FLOAT) - (ITHRESH-REF13196 ':INT32) - (RTHRESH-REF13197 ':FLOAT) - (DZ_UB-REF13198 ':FLOAT) - (IGNORE_CWISE-REF13199 ':INT32) - (INFO-REF13200 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13172 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF13173 :INT32) TRANS_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13174 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13175 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13177 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13179 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13181 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13184 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13186 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13188 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13195 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13196 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13197 :FLOAT) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13198 :FLOAT) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13199 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13200 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13176 A) (AF-REF13178 AF) - (IPIV-REF13180 IPIV) (C-REF13182 C) - (B-REF13183 B) (Y-REF13185 Y) - (BERR_OUT-REF13187 BERR_OUT) - (ERRS_N-REF13189 ERRS_N) - (ERRS_C-REF13190 ERRS_C) - (RES-REF13191 RES) - (AYB-REF13192 AYB) (DY-REF13193 DY) - (Y_TAIL-REF13194 Y_TAIL)) - (%%SLA_GERFSX_EXTENDED PREC_TYPE-REF13172 TRANS_TYPE-REF13173 N-REF13174 - NRHS-REF13175 A-REF13176 LDA-REF13177 AF-REF13178 - LDAF-REF13179 IPIV-REF13180 COLEQU-REF13181 - C-REF13182 B-REF13183 LDB-REF13184 Y-REF13185 - LDY-REF13186 BERR_OUT-REF13187 N_NORMS-REF13188 - ERRS_N-REF13189 ERRS_C-REF13190 RES-REF13191 - AYB-REF13192 DY-REF13193 Y_TAIL-REF13194 - RCOND-REF13195 ITHRESH-REF13196 RTHRESH-REF13197 - DZ_UB-REF13198 IGNORE_CWISE-REF13199 - INFO-REF13200)))) + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13155 ':INT32) + (TRANS_TYPE-REF13156 ':INT32) + (N-REF13157 ':INT32) (NRHS-REF13158 ':INT32) + (LDA-REF13160 ':INT32) (LDAF-REF13162 ':INT32) + (COLEQU-REF13164 ':INT32) (LDB-REF13167 ':INT32) + (LDY-REF13169 ':INT32) (N_NORMS-REF13171 ':INT32) + (RCOND-REF13178 ':FLOAT) + (ITHRESH-REF13179 ':INT32) + (RTHRESH-REF13180 ':FLOAT) + (DZ_UB-REF13181 ':FLOAT) + (IGNORE_CWISE-REF13182 ':INT32) + (INFO-REF13183 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13155 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF13156 :INT32) TRANS_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13157 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13158 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13160 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13162 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13164 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13167 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13169 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13171 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13178 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13179 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13180 :FLOAT) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13181 :FLOAT) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13182 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13183 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13159 A) (AF-REF13161 AF) + (IPIV-REF13163 IPIV) (C-REF13165 C) + (B-REF13166 B) (Y-REF13168 Y) + (BERR_OUT-REF13170 BERR_OUT) + (ERRS_N-REF13172 ERRS_N) + (ERRS_C-REF13173 ERRS_C) + (RES-REF13174 RES) + (AYB-REF13175 AYB) (DY-REF13176 DY) + (Y_TAIL-REF13177 Y_TAIL)) + (%%SLA_GERFSX_EXTENDED PREC_TYPE-REF13155 TRANS_TYPE-REF13156 N-REF13157 + NRHS-REF13158 A-REF13159 LDA-REF13160 AF-REF13161 LDAF-REF13162 + IPIV-REF13163 COLEQU-REF13164 C-REF13165 B-REF13166 LDB-REF13167 + Y-REF13168 LDY-REF13169 BERR_OUT-REF13170 N_NORMS-REF13171 + ERRS_N-REF13172 ERRS_C-REF13173 RES-REF13174 AYB-REF13175 DY-REF13176 + Y_TAIL-REF13177 RCOND-REF13178 ITHRESH-REF13179 RTHRESH-REF13180 + DZ_UB-REF13181 IGNORE_CWISE-REF13182 INFO-REF13183)))) (CFFI:DEFCFUN ("sla_gerpvgrw_" %%SLA_GERPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (N :POINTER) (NCOLS :POINTER) @@ -7096,18 +7096,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13201 ':INT32) (NCOLS-REF13202 ':INT32) - (LDA-REF13204 ':INT32) (LDAF-REF13206 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13201 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13202 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13204 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13206 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13203 A) (AF-REF13205 AF)) - (%%SLA_GERPVGRW N-REF13201 NCOLS-REF13202 A-REF13203 LDA-REF13204 - AF-REF13205 LDAF-REF13206)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13184 ':INT32) (NCOLS-REF13185 ':INT32) + (LDA-REF13187 ':INT32) (LDAF-REF13189 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13184 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13185 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13187 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13189 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13186 A) (AF-REF13188 AF)) + (%%SLA_GERPVGRW N-REF13184 NCOLS-REF13185 A-REF13186 LDA-REF13187 + AF-REF13188 LDAF-REF13189)))) (CFFI:DEFCFUN ("sla_lin_berr_" %%SLA_LIN_BERR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NZ :POINTER) @@ -7130,19 +7130,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13207 ':INT32) (NZ-REF13208 ':INT32) - (NRHS-REF13209 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13207 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF13208 :INT32) NZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13209 :INT32) NRHS) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF13210 RES) - (AYB-REF13211 AYB) - (BERR-REF13212 BERR)) - (%%SLA_LIN_BERR N-REF13207 NZ-REF13208 NRHS-REF13209 RES-REF13210 - AYB-REF13211 BERR-REF13212)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13190 ':INT32) (NZ-REF13191 ':INT32) + (NRHS-REF13192 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13190 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF13191 :INT32) NZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13192 :INT32) NRHS) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF13193 RES) + (AYB-REF13194 AYB) + (BERR-REF13195 BERR)) + (%%SLA_LIN_BERR N-REF13190 NZ-REF13191 NRHS-REF13192 RES-REF13193 + AYB-REF13194 BERR-REF13195)))) (CFFI:DEFCFUN ("sla_porcond_" %%SLA_PORCOND :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -7177,23 +7177,23 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) IWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13214 ':INT32) (LDA-REF13216 ':INT32) - (LDAF-REF13218 ':INT32) (CMODE-REF13219 ':INT32) - (INFO-REF13221 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13214 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13216 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13218 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13219 :INT32) CMODE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13221 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13215 A) (AF-REF13217 AF) - (C-REF13220 C) (WORK-REF13222 WORK) - (IWORK-REF13223 IWORK)) - (%%SLA_PORCOND UPLO N-REF13214 A-REF13215 LDA-REF13216 AF-REF13217 - LDAF-REF13218 CMODE-REF13219 C-REF13220 INFO-REF13221 - WORK-REF13222 IWORK-REF13223)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13197 ':INT32) (LDA-REF13199 ':INT32) + (LDAF-REF13201 ':INT32) (CMODE-REF13202 ':INT32) + (INFO-REF13204 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13197 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13199 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13201 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13202 :INT32) CMODE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13204 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13198 A) (AF-REF13200 AF) + (C-REF13203 C) (WORK-REF13205 WORK) + (IWORK-REF13206 IWORK)) + (%%SLA_PORCOND UPLO N-REF13197 A-REF13198 LDA-REF13199 AF-REF13200 + LDAF-REF13201 CMODE-REF13202 C-REF13203 INFO-REF13204 WORK-REF13205 + IWORK-REF13206)))) (CFFI:DEFCFUN ("sla_porfsx_extended_" %%SLA_PORFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -7277,55 +7277,53 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13224 ':INT32) (N-REF13226 ':INT32) - (NRHS-REF13227 ':INT32) (LDA-REF13229 ':INT32) - (LDAF-REF13231 ':INT32) (COLEQU-REF13232 ':INT32) - (LDB-REF13235 ':INT32) (LDY-REF13237 ':INT32) - (N_NORMS-REF13239 ':INT32) - (RCOND-REF13246 ':FLOAT) - (ITHRESH-REF13247 ':INT32) - (RTHRESH-REF13248 ':FLOAT) - (DZ_UB-REF13249 ':FLOAT) - (IGNORE_CWISE-REF13250 ':INT32) - (INFO-REF13251 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13224 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13226 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13227 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13229 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13231 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13232 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13235 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13237 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13239 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13246 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13247 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13248 :FLOAT) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13249 :FLOAT) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13250 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13251 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13228 A) (AF-REF13230 AF) - (C-REF13233 C) (B-REF13234 B) - (Y-REF13236 Y) - (BERR_OUT-REF13238 BERR_OUT) - (ERR_BNDS_NORM-REF13240 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13207 ':INT32) (N-REF13209 ':INT32) + (NRHS-REF13210 ':INT32) (LDA-REF13212 ':INT32) + (LDAF-REF13214 ':INT32) (COLEQU-REF13215 ':INT32) + (LDB-REF13218 ':INT32) (LDY-REF13220 ':INT32) + (N_NORMS-REF13222 ':INT32) + (RCOND-REF13229 ':FLOAT) + (ITHRESH-REF13230 ':INT32) + (RTHRESH-REF13231 ':FLOAT) + (DZ_UB-REF13232 ':FLOAT) + (IGNORE_CWISE-REF13233 ':INT32) + (INFO-REF13234 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13207 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13209 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13210 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13212 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13214 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13215 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13218 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13220 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13222 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13229 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13230 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13231 :FLOAT) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13232 :FLOAT) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13233 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13234 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13211 A) (AF-REF13213 AF) + (C-REF13216 C) (B-REF13217 B) + (Y-REF13219 Y) + (BERR_OUT-REF13221 BERR_OUT) + (ERR_BNDS_NORM-REF13223 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF13241 + (ERR_BNDS_COMP-REF13224 ERR_BNDS_COMP) - (RES-REF13242 RES) - (AYB-REF13243 AYB) (DY-REF13244 DY) - (Y_TAIL-REF13245 Y_TAIL)) - (%%SLA_PORFSX_EXTENDED PREC_TYPE-REF13224 UPLO N-REF13226 NRHS-REF13227 - A-REF13228 LDA-REF13229 AF-REF13230 LDAF-REF13231 - COLEQU-REF13232 C-REF13233 B-REF13234 LDB-REF13235 - Y-REF13236 LDY-REF13237 BERR_OUT-REF13238 - N_NORMS-REF13239 ERR_BNDS_NORM-REF13240 - ERR_BNDS_COMP-REF13241 RES-REF13242 AYB-REF13243 - DY-REF13244 Y_TAIL-REF13245 RCOND-REF13246 - ITHRESH-REF13247 RTHRESH-REF13248 DZ_UB-REF13249 - IGNORE_CWISE-REF13250 INFO-REF13251)))) + (RES-REF13225 RES) + (AYB-REF13226 AYB) (DY-REF13227 DY) + (Y_TAIL-REF13228 Y_TAIL)) + (%%SLA_PORFSX_EXTENDED PREC_TYPE-REF13207 UPLO N-REF13209 NRHS-REF13210 + A-REF13211 LDA-REF13212 AF-REF13213 LDAF-REF13214 COLEQU-REF13215 + C-REF13216 B-REF13217 LDB-REF13218 Y-REF13219 LDY-REF13220 + BERR_OUT-REF13221 N_NORMS-REF13222 ERR_BNDS_NORM-REF13223 + ERR_BNDS_COMP-REF13224 RES-REF13225 AYB-REF13226 DY-REF13227 + Y_TAIL-REF13228 RCOND-REF13229 ITHRESH-REF13230 RTHRESH-REF13231 + DZ_UB-REF13232 IGNORE_CWISE-REF13233 INFO-REF13234)))) (CFFI:DEFCFUN ("sla_porpvgrw_" %%SLA_PORPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (NCOLS :POINTER) @@ -7348,18 +7346,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF13253 ':INT32) (LDA-REF13255 ':INT32) - (LDAF-REF13257 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13253 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13255 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13257 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13254 A) (AF-REF13256 AF) - (WORK-REF13258 WORK)) - (%%SLA_PORPVGRW UPLO NCOLS-REF13253 A-REF13254 LDA-REF13255 AF-REF13256 - LDAF-REF13257 WORK-REF13258)))) + (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF13236 ':INT32) (LDA-REF13238 ':INT32) + (LDAF-REF13240 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF13236 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13238 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13240 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13237 A) (AF-REF13239 AF) + (WORK-REF13241 WORK)) + (%%SLA_PORPVGRW UPLO NCOLS-REF13236 A-REF13237 LDA-REF13238 AF-REF13239 + LDAF-REF13240 WORK-REF13241)))) (CFFI:DEFCFUN ("sla_syamv_" %%SLA_SYAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :POINTER) (N :POINTER) @@ -7387,25 +7385,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF13259 ':INT32) (N-REF13260 ':INT32) - (ALPHA-REF13261 ':FLOAT) (LDA-REF13263 ':INT32) - (INCX-REF13265 ':INT32) (BETA-REF13266 ':FLOAT) - (INCY-REF13268 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF13259 :INT32) UPLO) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13260 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13261 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13263 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13265 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13266 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13268 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13262 A) (X-REF13264 X) - (Y-REF13267 Y)) - (%%SLA_SYAMV UPLO-REF13259 N-REF13260 ALPHA-REF13261 A-REF13262 - LDA-REF13263 X-REF13264 INCX-REF13265 BETA-REF13266 - Y-REF13267 INCY-REF13268)))) + (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF13242 ':INT32) (N-REF13243 ':INT32) + (ALPHA-REF13244 ':FLOAT) (LDA-REF13246 ':INT32) + (INCX-REF13248 ':INT32) (BETA-REF13249 ':FLOAT) + (INCY-REF13251 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF13242 :INT32) UPLO) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13243 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13244 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13246 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13248 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13249 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13251 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13245 A) (X-REF13247 X) + (Y-REF13250 Y)) + (%%SLA_SYAMV UPLO-REF13242 N-REF13243 ALPHA-REF13244 A-REF13245 + LDA-REF13246 X-REF13247 INCX-REF13248 BETA-REF13249 Y-REF13250 + INCY-REF13251)))) (CFFI:DEFCFUN ("sla_syrcond_" %%SLA_SYRCOND :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -7446,24 +7444,24 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) IWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13270 ':INT32) (LDA-REF13272 ':INT32) - (LDAF-REF13274 ':INT32) (CMODE-REF13276 ':INT32) - (INFO-REF13278 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13270 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13272 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13274 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13276 :INT32) CMODE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13278 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13271 A) (AF-REF13273 AF) - (IPIV-REF13275 IPIV) (C-REF13277 C) - (WORK-REF13279 WORK) - (IWORK-REF13280 IWORK)) - (%%SLA_SYRCOND UPLO N-REF13270 A-REF13271 LDA-REF13272 AF-REF13273 - LDAF-REF13274 IPIV-REF13275 CMODE-REF13276 C-REF13277 - INFO-REF13278 WORK-REF13279 IWORK-REF13280)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13253 ':INT32) (LDA-REF13255 ':INT32) + (LDAF-REF13257 ':INT32) (CMODE-REF13259 ':INT32) + (INFO-REF13261 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13253 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13255 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13257 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF13259 :INT32) CMODE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13261 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13254 A) (AF-REF13256 AF) + (IPIV-REF13258 IPIV) (C-REF13260 C) + (WORK-REF13262 WORK) + (IWORK-REF13263 IWORK)) + (%%SLA_SYRCOND UPLO N-REF13253 A-REF13254 LDA-REF13255 AF-REF13256 + LDAF-REF13257 IPIV-REF13258 CMODE-REF13259 C-REF13260 INFO-REF13261 + WORK-REF13262 IWORK-REF13263)))) (CFFI:DEFCFUN ("sla_syrfsx_extended_" %%SLA_SYRFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -7552,56 +7550,53 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13281 ':INT32) (N-REF13283 ':INT32) - (NRHS-REF13284 ':INT32) (LDA-REF13286 ':INT32) - (LDAF-REF13288 ':INT32) (COLEQU-REF13290 ':INT32) - (LDB-REF13293 ':INT32) (LDY-REF13295 ':INT32) - (N_NORMS-REF13297 ':INT32) - (RCOND-REF13304 ':FLOAT) - (ITHRESH-REF13305 ':INT32) - (RTHRESH-REF13306 ':FLOAT) - (DZ_UB-REF13307 ':FLOAT) - (IGNORE_CWISE-REF13308 ':INT32) - (INFO-REF13309 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13281 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13283 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13284 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13286 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13288 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13290 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13293 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13295 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13297 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13304 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13305 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13306 :FLOAT) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13307 :FLOAT) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13308 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13309 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13285 A) (AF-REF13287 AF) - (IPIV-REF13289 IPIV) (C-REF13291 C) - (B-REF13292 B) (Y-REF13294 Y) - (BERR_OUT-REF13296 BERR_OUT) - (ERR_BNDS_NORM-REF13298 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13264 ':INT32) (N-REF13266 ':INT32) + (NRHS-REF13267 ':INT32) (LDA-REF13269 ':INT32) + (LDAF-REF13271 ':INT32) (COLEQU-REF13273 ':INT32) + (LDB-REF13276 ':INT32) (LDY-REF13278 ':INT32) + (N_NORMS-REF13280 ':INT32) + (RCOND-REF13287 ':FLOAT) + (ITHRESH-REF13288 ':INT32) + (RTHRESH-REF13289 ':FLOAT) + (DZ_UB-REF13290 ':FLOAT) + (IGNORE_CWISE-REF13291 ':INT32) + (INFO-REF13292 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13264 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13266 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13267 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13269 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13271 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13273 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13276 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13278 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13280 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13287 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13288 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13289 :FLOAT) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13290 :FLOAT) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13291 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13292 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13268 A) (AF-REF13270 AF) + (IPIV-REF13272 IPIV) (C-REF13274 C) + (B-REF13275 B) (Y-REF13277 Y) + (BERR_OUT-REF13279 BERR_OUT) + (ERR_BNDS_NORM-REF13281 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF13299 + (ERR_BNDS_COMP-REF13282 ERR_BNDS_COMP) - (RES-REF13300 RES) - (AYB-REF13301 AYB) (DY-REF13302 DY) - (Y_TAIL-REF13303 Y_TAIL)) - (%%SLA_SYRFSX_EXTENDED PREC_TYPE-REF13281 UPLO N-REF13283 NRHS-REF13284 - A-REF13285 LDA-REF13286 AF-REF13287 LDAF-REF13288 - IPIV-REF13289 COLEQU-REF13290 C-REF13291 - B-REF13292 LDB-REF13293 Y-REF13294 LDY-REF13295 - BERR_OUT-REF13296 N_NORMS-REF13297 - ERR_BNDS_NORM-REF13298 ERR_BNDS_COMP-REF13299 - RES-REF13300 AYB-REF13301 DY-REF13302 - Y_TAIL-REF13303 RCOND-REF13304 ITHRESH-REF13305 - RTHRESH-REF13306 DZ_UB-REF13307 - IGNORE_CWISE-REF13308 INFO-REF13309)))) + (RES-REF13283 RES) + (AYB-REF13284 AYB) (DY-REF13285 DY) + (Y_TAIL-REF13286 Y_TAIL)) + (%%SLA_SYRFSX_EXTENDED PREC_TYPE-REF13264 UPLO N-REF13266 NRHS-REF13267 + A-REF13268 LDA-REF13269 AF-REF13270 LDAF-REF13271 IPIV-REF13272 + COLEQU-REF13273 C-REF13274 B-REF13275 LDB-REF13276 Y-REF13277 + LDY-REF13278 BERR_OUT-REF13279 N_NORMS-REF13280 ERR_BNDS_NORM-REF13281 + ERR_BNDS_COMP-REF13282 RES-REF13283 AYB-REF13284 DY-REF13285 + Y_TAIL-REF13286 RCOND-REF13287 ITHRESH-REF13288 RTHRESH-REF13289 + DZ_UB-REF13290 IGNORE_CWISE-REF13291 INFO-REF13292)))) (CFFI:DEFCFUN ("sla_syrpvgrw_" %%SLA_SYRPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (UPLO :STRING) (N :POINTER) @@ -7631,20 +7626,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13311 ':INT32) (INFO-REF13312 ':INT32) - (LDA-REF13314 ':INT32) (LDAF-REF13316 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13311 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13312 :INT32) INFO) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13314 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13316 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13313 A) (AF-REF13315 AF) - (IPIV-REF13317 IPIV) - (WORK-REF13318 WORK)) - (%%SLA_SYRPVGRW UPLO N-REF13311 INFO-REF13312 A-REF13313 LDA-REF13314 - AF-REF13315 LDAF-REF13316 IPIV-REF13317 WORK-REF13318)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13294 ':INT32) (INFO-REF13295 ':INT32) + (LDA-REF13297 ':INT32) (LDAF-REF13299 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13294 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13295 :INT32) INFO) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13297 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13299 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13296 A) (AF-REF13298 AF) + (IPIV-REF13300 IPIV) + (WORK-REF13301 WORK)) + (%%SLA_SYRPVGRW UPLO N-REF13294 INFO-REF13295 A-REF13296 LDA-REF13297 + AF-REF13298 LDAF-REF13299 IPIV-REF13300 WORK-REF13301)))) (CFFI:DEFCFUN ("sla_wwaddw_" %%SLA_WWADDW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -7660,13 +7655,13 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13319 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13319 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13320 X) (Y-REF13321 Y) - (W-REF13322 W)) - (%%SLA_WWADDW N-REF13319 X-REF13320 Y-REF13321 W-REF13322)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13302 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13302 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13303 X) (Y-REF13304 Y) + (W-REF13305 W)) + (%%SLA_WWADDW N-REF13302 X-REF13303 Y-REF13304 W-REF13305)))) -(CFFI:DEFCFUN ("slabad_" %%SLABAD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slabad_" %%SLABAD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SMALL :POINTER) (LARGE :POINTER)) @@ -7675,13 +7670,13 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLABAD) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMALL) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LARGE)) - (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF13323 ':FLOAT) (LARGE-REF13324 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF13323 :FLOAT) SMALL) - (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF13324 :FLOAT) LARGE) + (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF13306 ':FLOAT) (LARGE-REF13307 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF13306 :FLOAT) SMALL) + (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF13307 :FLOAT) LARGE) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLABAD SMALL-REF13323 LARGE-REF13324)))) + (%%SLABAD SMALL-REF13306 LARGE-REF13307)))) -(CFFI:DEFCFUN ("slabrd_" %%SLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slabrd_" %%SLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -7721,24 +7716,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13325 ':INT32) (N-REF13326 ':INT32) - (NB-REF13327 ':INT32) (LDA-REF13329 ':INT32) - (LDX-REF13335 ':INT32) (LDY-REF13337 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13325 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13326 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13327 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13329 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13335 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13337 :INT32) LDY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13328 A) (D-REF13330 D) - (E-REF13331 E) (TAUQ-REF13332 TAUQ) - (TAUP-REF13333 TAUP) (X-REF13334 X) - (Y-REF13336 Y)) - (%%SLABRD M-REF13325 N-REF13326 NB-REF13327 A-REF13328 LDA-REF13329 - D-REF13330 E-REF13331 TAUQ-REF13332 TAUP-REF13333 X-REF13334 - LDX-REF13335 Y-REF13336 LDY-REF13337)))) - -(CFFI:DEFCFUN ("slacn2_" %%SLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13308 ':INT32) (N-REF13309 ':INT32) + (NB-REF13310 ':INT32) (LDA-REF13312 ':INT32) + (LDX-REF13318 ':INT32) (LDY-REF13320 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13308 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13309 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13310 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13312 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13318 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13320 :INT32) LDY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13311 A) (D-REF13313 D) + (E-REF13314 E) (TAUQ-REF13315 TAUQ) + (TAUP-REF13316 TAUP) (X-REF13317 X) + (Y-REF13319 Y)) + (%%SLABRD M-REF13308 N-REF13309 NB-REF13310 A-REF13311 LDA-REF13312 + D-REF13313 E-REF13314 TAUQ-REF13315 TAUP-REF13316 X-REF13317 + LDX-REF13318 Y-REF13319 LDY-REF13320)))) + +(CFFI:DEFCFUN ("slacn2_" %%SLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (V :POINTER) @@ -7765,18 +7760,18 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) ISAVE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13338 ':INT32) (EST-REF13342 ':FLOAT) - (KASE-REF13343 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13338 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF13342 :FLOAT) EST) - (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF13343 :INT32) KASE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13339 V) (X-REF13340 X) - (ISGN-REF13341 ISGN) - (ISAVE-REF13344 ISAVE)) - (%%SLACN2 N-REF13338 V-REF13339 X-REF13340 ISGN-REF13341 EST-REF13342 - KASE-REF13343 ISAVE-REF13344)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13321 ':INT32) (EST-REF13325 ':FLOAT) + (KASE-REF13326 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13321 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF13325 :FLOAT) EST) + (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF13326 :INT32) KASE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13322 V) (X-REF13323 X) + (ISGN-REF13324 ISGN) + (ISAVE-REF13327 ISAVE)) + (%%SLACN2 N-REF13321 V-REF13322 X-REF13323 ISGN-REF13324 EST-REF13325 + KASE-REF13326 ISAVE-REF13327)))) -(CFFI:DEFCFUN ("slacon_" %%SLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slacon_" %%SLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (V :POINTER) @@ -7798,17 +7793,17 @@ ISGN) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13345 ':INT32) (EST-REF13349 ':FLOAT) - (KASE-REF13350 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13345 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF13349 :FLOAT) EST) - (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF13350 :INT32) KASE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13346 V) (X-REF13347 X) - (ISGN-REF13348 ISGN)) - (%%SLACON N-REF13345 V-REF13346 X-REF13347 ISGN-REF13348 EST-REF13349 - KASE-REF13350)))) - -(CFFI:DEFCFUN ("slacpy_" %%SLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13328 ':INT32) (EST-REF13332 ':FLOAT) + (KASE-REF13333 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13328 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF13332 :FLOAT) EST) + (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF13333 :INT32) KASE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13329 V) (X-REF13330 X) + (ISGN-REF13331 ISGN)) + (%%SLACON N-REF13328 V-REF13329 X-REF13330 ISGN-REF13331 EST-REF13332 + KASE-REF13333)))) + +(CFFI:DEFCFUN ("slacpy_" %%SLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -7829,17 +7824,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13352 ':INT32) (N-REF13353 ':INT32) - (LDA-REF13355 ':INT32) (LDB-REF13357 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13352 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13353 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13355 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13357 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13354 A) (B-REF13356 B)) - (%%SLACPY UPLO M-REF13352 N-REF13353 A-REF13354 LDA-REF13355 B-REF13356 - LDB-REF13357)))) - -(CFFI:DEFCFUN ("sladiv_" %%SLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13335 ':INT32) (N-REF13336 ':INT32) + (LDA-REF13338 ':INT32) (LDB-REF13340 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13335 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13336 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13338 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13340 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13337 A) (B-REF13339 B)) + (%%SLACPY UPLO M-REF13335 N-REF13336 A-REF13337 LDA-REF13338 B-REF13339 + LDB-REF13340)))) + +(CFFI:DEFCFUN ("sladiv_" %%SLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -7856,20 +7851,20 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT P) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Q)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13358 ':FLOAT) (B-REF13359 ':FLOAT) - (C-REF13360 ':FLOAT) (D-REF13361 ':FLOAT) - (P-REF13362 ':FLOAT) (Q-REF13363 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13358 :FLOAT) A) - (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13359 :FLOAT) B) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13360 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF D-REF13361 :FLOAT) D) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF13362 :FLOAT) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF13363 :FLOAT) Q) + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13341 ':FLOAT) (B-REF13342 ':FLOAT) + (C-REF13343 ':FLOAT) (D-REF13344 ':FLOAT) + (P-REF13345 ':FLOAT) (Q-REF13346 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13341 :FLOAT) A) + (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13342 :FLOAT) B) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13343 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF D-REF13344 :FLOAT) D) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF13345 :FLOAT) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF13346 :FLOAT) Q) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLADIV A-REF13358 B-REF13359 C-REF13360 D-REF13361 P-REF13362 - Q-REF13363)))) + (%%SLADIV A-REF13341 B-REF13342 C-REF13343 D-REF13344 P-REF13345 + Q-REF13346)))) -(CFFI:DEFCFUN ("slae2_" %%SLAE2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slae2_" %%SLAE2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -7884,18 +7879,18 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT1) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13364 ':FLOAT) (B-REF13365 ':FLOAT) - (C-REF13366 ':FLOAT) (RT1-REF13367 ':FLOAT) - (RT2-REF13368 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13364 :FLOAT) A) - (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13365 :FLOAT) B) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13366 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF13367 :FLOAT) RT1) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF13368 :FLOAT) RT2) + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13347 ':FLOAT) (B-REF13348 ':FLOAT) + (C-REF13349 ':FLOAT) (RT1-REF13350 ':FLOAT) + (RT2-REF13351 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13347 :FLOAT) A) + (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13348 :FLOAT) B) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13349 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF13350 :FLOAT) RT1) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF13351 :FLOAT) RT2) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLAE2 A-REF13364 B-REF13365 C-REF13366 RT1-REF13367 RT2-REF13368)))) + (%%SLAE2 A-REF13347 B-REF13348 C-REF13349 RT1-REF13350 RT2-REF13351)))) -(CFFI:DEFCFUN ("slaebz_" %%SLAEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slaebz_" %%SLAEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (NITMAX :POINTER) @@ -7958,38 +7953,38 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF13369 ':INT32) (NITMAX-REF13370 ':INT32) - (N-REF13371 ':INT32) (MMAX-REF13372 ':INT32) - (MINP-REF13373 ':INT32) (NBMIN-REF13374 ':INT32) - (ABSTOL-REF13375 ':FLOAT) - (RELTOL-REF13376 ':FLOAT) - (PIVMIN-REF13377 ':FLOAT) (MOUT-REF13384 ':INT32) - (INFO-REF13388 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF13369 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF13370 :INT32) NITMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13371 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF13372 :INT32) MMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF13373 :INT32) MINP) - (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF13374 :INT32) NBMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF13375 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF13376 :FLOAT) RELTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13377 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF13384 :INT32) MOUT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13388 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13378 D) (E-REF13379 E) - (E2-REF13380 E2) - (NVAL-REF13381 NVAL) - (AB-REF13382 AB) (C-REF13383 C) - (NAB-REF13385 NAB) - (WORK-REF13386 WORK) - (IWORK-REF13387 IWORK)) - (%%SLAEBZ IJOB-REF13369 NITMAX-REF13370 N-REF13371 MMAX-REF13372 - MINP-REF13373 NBMIN-REF13374 ABSTOL-REF13375 RELTOL-REF13376 - PIVMIN-REF13377 D-REF13378 E-REF13379 E2-REF13380 NVAL-REF13381 - AB-REF13382 C-REF13383 MOUT-REF13384 NAB-REF13385 WORK-REF13386 - IWORK-REF13387 INFO-REF13388)))) - -(CFFI:DEFCFUN ("slaed0_" %%SLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF13352 ':INT32) (NITMAX-REF13353 ':INT32) + (N-REF13354 ':INT32) (MMAX-REF13355 ':INT32) + (MINP-REF13356 ':INT32) (NBMIN-REF13357 ':INT32) + (ABSTOL-REF13358 ':FLOAT) + (RELTOL-REF13359 ':FLOAT) + (PIVMIN-REF13360 ':FLOAT) (MOUT-REF13367 ':INT32) + (INFO-REF13371 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF13352 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF13353 :INT32) NITMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13354 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF13355 :INT32) MMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF13356 :INT32) MINP) + (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF13357 :INT32) NBMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF13358 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF13359 :FLOAT) RELTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13360 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF13367 :INT32) MOUT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13371 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13361 D) (E-REF13362 E) + (E2-REF13363 E2) + (NVAL-REF13364 NVAL) + (AB-REF13365 AB) (C-REF13366 C) + (NAB-REF13368 NAB) + (WORK-REF13369 WORK) + (IWORK-REF13370 IWORK)) + (%%SLAEBZ IJOB-REF13352 NITMAX-REF13353 N-REF13354 MMAX-REF13355 + MINP-REF13356 NBMIN-REF13357 ABSTOL-REF13358 RELTOL-REF13359 + PIVMIN-REF13360 D-REF13361 E-REF13362 E2-REF13363 NVAL-REF13364 + AB-REF13365 C-REF13366 MOUT-REF13367 NAB-REF13368 WORK-REF13369 + IWORK-REF13370 INFO-REF13371)))) + +(CFFI:DEFCFUN ("slaed0_" %%SLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (QSIZ :POINTER) @@ -8029,25 +8024,25 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13389 ':INT32) (QSIZ-REF13390 ':INT32) - (N-REF13391 ':INT32) (LDQ-REF13395 ':INT32) - (LDQS-REF13397 ':INT32) (INFO-REF13400 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13389 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13390 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13391 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13395 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF13397 :INT32) LDQS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13400 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13392 D) (E-REF13393 E) - (Q-REF13394 Q) - (QSTORE-REF13396 QSTORE) - (WORK-REF13398 WORK) - (IWORK-REF13399 IWORK)) - (%%SLAED0 ICOMPQ-REF13389 QSIZ-REF13390 N-REF13391 D-REF13392 E-REF13393 - Q-REF13394 LDQ-REF13395 QSTORE-REF13396 LDQS-REF13397 - WORK-REF13398 IWORK-REF13399 INFO-REF13400)))) - -(CFFI:DEFCFUN ("slaed1_" %%SLAED1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13372 ':INT32) (QSIZ-REF13373 ':INT32) + (N-REF13374 ':INT32) (LDQ-REF13378 ':INT32) + (LDQS-REF13380 ':INT32) (INFO-REF13383 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13372 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13373 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13374 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13378 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF13380 :INT32) LDQS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13383 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13375 D) (E-REF13376 E) + (Q-REF13377 Q) + (QSTORE-REF13379 QSTORE) + (WORK-REF13381 WORK) + (IWORK-REF13382 IWORK)) + (%%SLAED0 ICOMPQ-REF13372 QSIZ-REF13373 N-REF13374 D-REF13375 E-REF13376 + Q-REF13377 LDQ-REF13378 QSTORE-REF13379 LDQS-REF13380 WORK-REF13381 + IWORK-REF13382 INFO-REF13383)))) + +(CFFI:DEFCFUN ("slaed1_" %%SLAED1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -8082,23 +8077,23 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13401 ':INT32) (LDQ-REF13404 ':INT32) - (RHO-REF13406 ':FLOAT) (CUTPNT-REF13407 ':INT32) - (INFO-REF13410 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13401 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13404 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13406 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13407 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13410 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13402 D) (Q-REF13403 Q) - (INDXQ-REF13405 INDXQ) - (WORK-REF13408 WORK) - (IWORK-REF13409 IWORK)) - (%%SLAED1 N-REF13401 D-REF13402 Q-REF13403 LDQ-REF13404 INDXQ-REF13405 - RHO-REF13406 CUTPNT-REF13407 WORK-REF13408 IWORK-REF13409 - INFO-REF13410)))) - -(CFFI:DEFCFUN ("slaed2_" %%SLAED2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13384 ':INT32) (LDQ-REF13387 ':INT32) + (RHO-REF13389 ':FLOAT) (CUTPNT-REF13390 ':INT32) + (INFO-REF13393 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13384 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13387 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13389 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13390 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13393 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13385 D) (Q-REF13386 Q) + (INDXQ-REF13388 INDXQ) + (WORK-REF13391 WORK) + (IWORK-REF13392 IWORK)) + (%%SLAED1 N-REF13384 D-REF13385 Q-REF13386 LDQ-REF13387 INDXQ-REF13388 + RHO-REF13389 CUTPNT-REF13390 WORK-REF13391 IWORK-REF13392 + INFO-REF13393)))) + +(CFFI:DEFCFUN ("slaed2_" %%SLAED2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (K :POINTER) (N :POINTER) @@ -8161,30 +8156,30 @@ (COMMON-LISP:*)) COLTYP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13411 ':INT32) (N-REF13412 ':INT32) - (N1-REF13413 ':INT32) (LDQ-REF13416 ':INT32) - (RHO-REF13418 ':FLOAT) (INFO-REF13427 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13411 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13412 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13413 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13416 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13418 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13427 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13414 D) (Q-REF13415 Q) - (INDXQ-REF13417 INDXQ) - (Z-REF13419 Z) - (DLAMDA-REF13420 DLAMDA) - (W-REF13421 W) (Q2-REF13422 Q2) - (INDX-REF13423 INDX) - (INDXC-REF13424 INDXC) - (INDXP-REF13425 INDXP) - (COLTYP-REF13426 COLTYP)) - (%%SLAED2 K-REF13411 N-REF13412 N1-REF13413 D-REF13414 Q-REF13415 - LDQ-REF13416 INDXQ-REF13417 RHO-REF13418 Z-REF13419 - DLAMDA-REF13420 W-REF13421 Q2-REF13422 INDX-REF13423 - INDXC-REF13424 INDXP-REF13425 COLTYP-REF13426 INFO-REF13427)))) - -(CFFI:DEFCFUN ("slaed3_" %%SLAED3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13394 ':INT32) (N-REF13395 ':INT32) + (N1-REF13396 ':INT32) (LDQ-REF13399 ':INT32) + (RHO-REF13401 ':FLOAT) (INFO-REF13410 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13394 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13395 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13396 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13399 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13401 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13410 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13397 D) (Q-REF13398 Q) + (INDXQ-REF13400 INDXQ) + (Z-REF13402 Z) + (DLAMDA-REF13403 DLAMDA) + (W-REF13404 W) (Q2-REF13405 Q2) + (INDX-REF13406 INDX) + (INDXC-REF13407 INDXC) + (INDXP-REF13408 INDXP) + (COLTYP-REF13409 COLTYP)) + (%%SLAED2 K-REF13394 N-REF13395 N1-REF13396 D-REF13397 Q-REF13398 + LDQ-REF13399 INDXQ-REF13400 RHO-REF13401 Z-REF13402 DLAMDA-REF13403 + W-REF13404 Q2-REF13405 INDX-REF13406 INDXC-REF13407 INDXP-REF13408 + COLTYP-REF13409 INFO-REF13410)))) + +(CFFI:DEFCFUN ("slaed3_" %%SLAED3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (K :POINTER) (N :POINTER) @@ -8230,27 +8225,26 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13428 ':INT32) (N-REF13429 ':INT32) - (N1-REF13430 ':INT32) (LDQ-REF13433 ':INT32) - (RHO-REF13434 ':FLOAT) (INFO-REF13441 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13428 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13429 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13430 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13433 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13434 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13441 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13431 D) (Q-REF13432 Q) - (DLAMDA-REF13435 DLAMDA) - (Q2-REF13436 Q2) - (INDX-REF13437 INDX) - (CTOT-REF13438 CTOT) (W-REF13439 W) - (S-REF13440 S)) - (%%SLAED3 K-REF13428 N-REF13429 N1-REF13430 D-REF13431 Q-REF13432 - LDQ-REF13433 RHO-REF13434 DLAMDA-REF13435 Q2-REF13436 - INDX-REF13437 CTOT-REF13438 W-REF13439 S-REF13440 - INFO-REF13441)))) - -(CFFI:DEFCFUN ("slaed4_" %%SLAED4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13411 ':INT32) (N-REF13412 ':INT32) + (N1-REF13413 ':INT32) (LDQ-REF13416 ':INT32) + (RHO-REF13417 ':FLOAT) (INFO-REF13424 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13411 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13412 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13413 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13416 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13417 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13424 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13414 D) (Q-REF13415 Q) + (DLAMDA-REF13418 DLAMDA) + (Q2-REF13419 Q2) + (INDX-REF13420 INDX) + (CTOT-REF13421 CTOT) (W-REF13422 W) + (S-REF13423 S)) + (%%SLAED3 K-REF13411 N-REF13412 N1-REF13413 D-REF13414 Q-REF13415 + LDQ-REF13416 RHO-REF13417 DLAMDA-REF13418 Q2-REF13419 INDX-REF13420 + CTOT-REF13421 W-REF13422 S-REF13423 INFO-REF13424)))) + +(CFFI:DEFCFUN ("slaed4_" %%SLAED4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (I :POINTER) @@ -8275,20 +8269,20 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DLAM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13442 ':INT32) (I-REF13443 ':INT32) - (RHO-REF13447 ':FLOAT) (DLAM-REF13448 ':FLOAT) - (INFO-REF13449 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13442 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF I-REF13443 :INT32) I) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13447 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF13448 :FLOAT) DLAM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13449 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13444 D) (Z-REF13445 Z) - (DELTA-REF13446 DELTA)) - (%%SLAED4 N-REF13442 I-REF13443 D-REF13444 Z-REF13445 DELTA-REF13446 - RHO-REF13447 DLAM-REF13448 INFO-REF13449)))) - -(CFFI:DEFCFUN ("slaed5_" %%SLAED5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13425 ':INT32) (I-REF13426 ':INT32) + (RHO-REF13430 ':FLOAT) (DLAM-REF13431 ':FLOAT) + (INFO-REF13432 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13425 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF I-REF13426 :INT32) I) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13430 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF13431 :FLOAT) DLAM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13432 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13427 D) (Z-REF13428 Z) + (DELTA-REF13429 DELTA)) + (%%SLAED4 N-REF13425 I-REF13426 D-REF13427 Z-REF13428 DELTA-REF13429 + RHO-REF13430 DLAM-REF13431 INFO-REF13432)))) + +(CFFI:DEFCFUN ("slaed5_" %%SLAED5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I :POINTER) (D :POINTER) @@ -8309,17 +8303,17 @@ DELTA) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DLAM)) - (CFFI:WITH-FOREIGN-OBJECTS ((I-REF13450 ':INT32) (RHO-REF13454 ':FLOAT) - (DLAM-REF13455 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF I-REF13450 :INT32) I) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13454 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF13455 :FLOAT) DLAM) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13451 D) (Z-REF13452 Z) - (DELTA-REF13453 DELTA)) - (%%SLAED5 I-REF13450 D-REF13451 Z-REF13452 DELTA-REF13453 RHO-REF13454 - DLAM-REF13455)))) - -(CFFI:DEFCFUN ("slaed6_" %%SLAED6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I-REF13433 ':INT32) (RHO-REF13437 ':FLOAT) + (DLAM-REF13438 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF I-REF13433 :INT32) I) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13437 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF13438 :FLOAT) DLAM) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13434 D) (Z-REF13435 Z) + (DELTA-REF13436 DELTA)) + (%%SLAED5 I-REF13433 D-REF13434 Z-REF13435 DELTA-REF13436 RHO-REF13437 + DLAM-REF13438)))) + +(CFFI:DEFCFUN ("slaed6_" %%SLAED6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (KNITER :POINTER) (ORGATI :POINTER) @@ -8342,21 +8336,21 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT FINIT) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF13456 ':INT32) - (ORGATI-REF13457 ':INT32) (RHO-REF13458 ':FLOAT) - (FINIT-REF13461 ':FLOAT) (TAU-REF13462 ':FLOAT) - (INFO-REF13463 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF13456 :INT32) KNITER) - (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF13457 :INT32) ORGATI) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13458 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF13461 :FLOAT) FINIT) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF13462 :FLOAT) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13463 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13459 D) (Z-REF13460 Z)) - (%%SLAED6 KNITER-REF13456 ORGATI-REF13457 RHO-REF13458 D-REF13459 - Z-REF13460 FINIT-REF13461 TAU-REF13462 INFO-REF13463)))) - -(CFFI:DEFCFUN ("slaed7_" %%SLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF13439 ':INT32) + (ORGATI-REF13440 ':INT32) (RHO-REF13441 ':FLOAT) + (FINIT-REF13444 ':FLOAT) (TAU-REF13445 ':FLOAT) + (INFO-REF13446 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF13439 :INT32) KNITER) + (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF13440 :INT32) ORGATI) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13441 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF13444 :FLOAT) FINIT) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF13445 :FLOAT) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13446 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13442 D) (Z-REF13443 Z)) + (%%SLAED6 KNITER-REF13439 ORGATI-REF13440 RHO-REF13441 D-REF13442 + Z-REF13443 FINIT-REF13444 TAU-REF13445 INFO-REF13446)))) + +(CFFI:DEFCFUN ("slaed7_" %%SLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (N :POINTER) @@ -8437,41 +8431,41 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13464 ':INT32) (N-REF13465 ':INT32) - (QSIZ-REF13466 ':INT32) (TLVLS-REF13467 ':INT32) - (CURLVL-REF13468 ':INT32) - (CURPBM-REF13469 ':INT32) (LDQ-REF13472 ':INT32) - (RHO-REF13474 ':FLOAT) (CUTPNT-REF13475 ':INT32) - (INFO-REF13485 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13464 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13465 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13466 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF13467 :INT32) TLVLS) - (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF13468 :INT32) CURLVL) - (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF13469 :INT32) CURPBM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13472 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13474 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13475 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13485 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13470 D) (Q-REF13471 Q) - (INDXQ-REF13473 INDXQ) - (QSTORE-REF13476 QSTORE) - (QPTR-REF13477 QPTR) - (PRMPTR-REF13478 PRMPTR) - (PERM-REF13479 PERM) - (GIVPTR-REF13480 GIVPTR) - (GIVCOL-REF13481 GIVCOL) - (GIVNUM-REF13482 GIVNUM) - (WORK-REF13483 WORK) - (IWORK-REF13484 IWORK)) - (%%SLAED7 ICOMPQ-REF13464 N-REF13465 QSIZ-REF13466 TLVLS-REF13467 - CURLVL-REF13468 CURPBM-REF13469 D-REF13470 Q-REF13471 - LDQ-REF13472 INDXQ-REF13473 RHO-REF13474 CUTPNT-REF13475 - QSTORE-REF13476 QPTR-REF13477 PRMPTR-REF13478 PERM-REF13479 - GIVPTR-REF13480 GIVCOL-REF13481 GIVNUM-REF13482 WORK-REF13483 - IWORK-REF13484 INFO-REF13485)))) - -(CFFI:DEFCFUN ("slaed8_" %%SLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13447 ':INT32) (N-REF13448 ':INT32) + (QSIZ-REF13449 ':INT32) (TLVLS-REF13450 ':INT32) + (CURLVL-REF13451 ':INT32) + (CURPBM-REF13452 ':INT32) (LDQ-REF13455 ':INT32) + (RHO-REF13457 ':FLOAT) (CUTPNT-REF13458 ':INT32) + (INFO-REF13468 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13447 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13448 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13449 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF13450 :INT32) TLVLS) + (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF13451 :INT32) CURLVL) + (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF13452 :INT32) CURPBM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13455 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13457 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13458 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13468 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13453 D) (Q-REF13454 Q) + (INDXQ-REF13456 INDXQ) + (QSTORE-REF13459 QSTORE) + (QPTR-REF13460 QPTR) + (PRMPTR-REF13461 PRMPTR) + (PERM-REF13462 PERM) + (GIVPTR-REF13463 GIVPTR) + (GIVCOL-REF13464 GIVCOL) + (GIVNUM-REF13465 GIVNUM) + (WORK-REF13466 WORK) + (IWORK-REF13467 IWORK)) + (%%SLAED7 ICOMPQ-REF13447 N-REF13448 QSIZ-REF13449 TLVLS-REF13450 + CURLVL-REF13451 CURPBM-REF13452 D-REF13453 Q-REF13454 LDQ-REF13455 + INDXQ-REF13456 RHO-REF13457 CUTPNT-REF13458 QSTORE-REF13459 + QPTR-REF13460 PRMPTR-REF13461 PERM-REF13462 GIVPTR-REF13463 + GIVCOL-REF13464 GIVNUM-REF13465 WORK-REF13466 IWORK-REF13467 + INFO-REF13468)))) + +(CFFI:DEFCFUN ("slaed8_" %%SLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (K :POINTER) @@ -8546,39 +8540,38 @@ (COMMON-LISP:*)) INDX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13486 ':INT32) (K-REF13487 ':INT32) - (N-REF13488 ':INT32) (QSIZ-REF13489 ':INT32) - (LDQ-REF13492 ':INT32) (RHO-REF13494 ':FLOAT) - (CUTPNT-REF13495 ':INT32) (LDQ2-REF13499 ':INT32) - (GIVPTR-REF13502 ':INT32) (INFO-REF13507 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13486 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13487 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13488 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13489 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13492 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13494 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13495 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF13499 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF13502 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13507 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13490 D) (Q-REF13491 Q) - (INDXQ-REF13493 INDXQ) - (Z-REF13496 Z) - (DLAMDA-REF13497 DLAMDA) - (Q2-REF13498 Q2) (W-REF13500 W) - (PERM-REF13501 PERM) - (GIVCOL-REF13503 GIVCOL) - (GIVNUM-REF13504 GIVNUM) - (INDXP-REF13505 INDXP) - (INDX-REF13506 INDX)) - (%%SLAED8 ICOMPQ-REF13486 K-REF13487 N-REF13488 QSIZ-REF13489 D-REF13490 - Q-REF13491 LDQ-REF13492 INDXQ-REF13493 RHO-REF13494 - CUTPNT-REF13495 Z-REF13496 DLAMDA-REF13497 Q2-REF13498 - LDQ2-REF13499 W-REF13500 PERM-REF13501 GIVPTR-REF13502 - GIVCOL-REF13503 GIVNUM-REF13504 INDXP-REF13505 INDX-REF13506 - INFO-REF13507)))) - -(CFFI:DEFCFUN ("slaed9_" %%SLAED9 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13469 ':INT32) (K-REF13470 ':INT32) + (N-REF13471 ':INT32) (QSIZ-REF13472 ':INT32) + (LDQ-REF13475 ':INT32) (RHO-REF13477 ':FLOAT) + (CUTPNT-REF13478 ':INT32) (LDQ2-REF13482 ':INT32) + (GIVPTR-REF13485 ':INT32) (INFO-REF13490 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13469 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13470 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13471 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13472 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13475 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13477 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13478 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF13482 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF13485 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13490 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13473 D) (Q-REF13474 Q) + (INDXQ-REF13476 INDXQ) + (Z-REF13479 Z) + (DLAMDA-REF13480 DLAMDA) + (Q2-REF13481 Q2) (W-REF13483 W) + (PERM-REF13484 PERM) + (GIVCOL-REF13486 GIVCOL) + (GIVNUM-REF13487 GIVNUM) + (INDXP-REF13488 INDXP) + (INDX-REF13489 INDX)) + (%%SLAED8 ICOMPQ-REF13469 K-REF13470 N-REF13471 QSIZ-REF13472 D-REF13473 + Q-REF13474 LDQ-REF13475 INDXQ-REF13476 RHO-REF13477 CUTPNT-REF13478 + Z-REF13479 DLAMDA-REF13480 Q2-REF13481 LDQ2-REF13482 W-REF13483 + PERM-REF13484 GIVPTR-REF13485 GIVCOL-REF13486 GIVNUM-REF13487 + INDXP-REF13488 INDX-REF13489 INFO-REF13490)))) + +(CFFI:DEFCFUN ("slaed9_" %%SLAED9 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (K :POINTER) (KSTART :POINTER) @@ -8615,26 +8608,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13508 ':INT32) (KSTART-REF13509 ':INT32) - (KSTOP-REF13510 ':INT32) (N-REF13511 ':INT32) - (LDQ-REF13514 ':INT32) (RHO-REF13515 ':FLOAT) - (LDS-REF13519 ':INT32) (INFO-REF13520 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13508 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF13509 :INT32) KSTART) - (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF13510 :INT32) KSTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13511 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13514 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13515 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF13519 :INT32) LDS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13520 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13512 D) (Q-REF13513 Q) - (DLAMDA-REF13516 DLAMDA) - (W-REF13517 W) (S-REF13518 S)) - (%%SLAED9 K-REF13508 KSTART-REF13509 KSTOP-REF13510 N-REF13511 D-REF13512 - Q-REF13513 LDQ-REF13514 RHO-REF13515 DLAMDA-REF13516 W-REF13517 - S-REF13518 LDS-REF13519 INFO-REF13520)))) - -(CFFI:DEFCFUN ("slaeda_" %%SLAEDA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((K-REF13491 ':INT32) (KSTART-REF13492 ':INT32) + (KSTOP-REF13493 ':INT32) (N-REF13494 ':INT32) + (LDQ-REF13497 ':INT32) (RHO-REF13498 ':FLOAT) + (LDS-REF13502 ':INT32) (INFO-REF13503 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13491 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF13492 :INT32) KSTART) + (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF13493 :INT32) KSTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13494 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13497 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13498 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF13502 :INT32) LDS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13503 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13495 D) (Q-REF13496 Q) + (DLAMDA-REF13499 DLAMDA) + (W-REF13500 W) (S-REF13501 S)) + (%%SLAED9 K-REF13491 KSTART-REF13492 KSTOP-REF13493 N-REF13494 D-REF13495 + Q-REF13496 LDQ-REF13497 RHO-REF13498 DLAMDA-REF13499 W-REF13500 + S-REF13501 LDS-REF13502 INFO-REF13503)))) + +(CFFI:DEFCFUN ("slaeda_" %%SLAEDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (TLVLS :POINTER) @@ -8690,28 +8683,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ZTEMP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13521 ':INT32) (TLVLS-REF13522 ':INT32) - (CURLVL-REF13523 ':INT32) - (CURPBM-REF13524 ':INT32) (INFO-REF13534 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13521 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF13522 :INT32) TLVLS) - (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF13523 :INT32) CURLVL) - (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF13524 :INT32) CURPBM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13534 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF13525 PRMPTR) - (PERM-REF13526 PERM) - (GIVPTR-REF13527 GIVPTR) - (GIVCOL-REF13528 GIVCOL) - (GIVNUM-REF13529 GIVNUM) - (Q-REF13530 Q) (QPTR-REF13531 QPTR) - (Z-REF13532 Z) - (ZTEMP-REF13533 ZTEMP)) - (%%SLAEDA N-REF13521 TLVLS-REF13522 CURLVL-REF13523 CURPBM-REF13524 - PRMPTR-REF13525 PERM-REF13526 GIVPTR-REF13527 GIVCOL-REF13528 - GIVNUM-REF13529 Q-REF13530 QPTR-REF13531 Z-REF13532 - ZTEMP-REF13533 INFO-REF13534)))) - -(CFFI:DEFCFUN ("slaein_" %%SLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13504 ':INT32) (TLVLS-REF13505 ':INT32) + (CURLVL-REF13506 ':INT32) + (CURPBM-REF13507 ':INT32) (INFO-REF13517 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13504 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF13505 :INT32) TLVLS) + (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF13506 :INT32) CURLVL) + (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF13507 :INT32) CURPBM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13517 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF13508 PRMPTR) + (PERM-REF13509 PERM) + (GIVPTR-REF13510 GIVPTR) + (GIVCOL-REF13511 GIVCOL) + (GIVNUM-REF13512 GIVNUM) + (Q-REF13513 Q) (QPTR-REF13514 QPTR) + (Z-REF13515 Z) + (ZTEMP-REF13516 ZTEMP)) + (%%SLAEDA N-REF13504 TLVLS-REF13505 CURLVL-REF13506 CURPBM-REF13507 + PRMPTR-REF13508 PERM-REF13509 GIVPTR-REF13510 GIVCOL-REF13511 + GIVNUM-REF13512 Q-REF13513 QPTR-REF13514 Z-REF13515 ZTEMP-REF13516 + INFO-REF13517)))) + +(CFFI:DEFCFUN ("slaein_" %%SLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RIGHTV :POINTER) (NOINIT :POINTER) @@ -8756,32 +8749,32 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMLNUM) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BIGNUM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF13535 ':INT32) - (NOINIT-REF13536 ':INT32) (N-REF13537 ':INT32) - (LDH-REF13539 ':INT32) (WR-REF13540 ':FLOAT) - (WI-REF13541 ':FLOAT) (LDB-REF13545 ':INT32) - (EPS3-REF13547 ':FLOAT) (SMLNUM-REF13548 ':FLOAT) - (BIGNUM-REF13549 ':FLOAT) (INFO-REF13550 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF13535 :INT32) RIGHTV) - (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF13536 :INT32) NOINIT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13537 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13539 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF13540 :FLOAT) WR) - (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13541 :FLOAT) WI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13545 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF13547 :FLOAT) EPS3) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF13548 :FLOAT) SMLNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF13549 :FLOAT) BIGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13550 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13538 H) (VR-REF13542 VR) - (VI-REF13543 VI) (B-REF13544 B) - (WORK-REF13546 WORK)) - (%%SLAEIN RIGHTV-REF13535 NOINIT-REF13536 N-REF13537 H-REF13538 - LDH-REF13539 WR-REF13540 WI-REF13541 VR-REF13542 VI-REF13543 - B-REF13544 LDB-REF13545 WORK-REF13546 EPS3-REF13547 - SMLNUM-REF13548 BIGNUM-REF13549 INFO-REF13550)))) - -(CFFI:DEFCFUN ("slaev2_" %%SLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF13518 ':INT32) + (NOINIT-REF13519 ':INT32) (N-REF13520 ':INT32) + (LDH-REF13522 ':INT32) (WR-REF13523 ':FLOAT) + (WI-REF13524 ':FLOAT) (LDB-REF13528 ':INT32) + (EPS3-REF13530 ':FLOAT) (SMLNUM-REF13531 ':FLOAT) + (BIGNUM-REF13532 ':FLOAT) (INFO-REF13533 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF13518 :INT32) RIGHTV) + (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF13519 :INT32) NOINIT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13520 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13522 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF13523 :FLOAT) WR) + (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13524 :FLOAT) WI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13528 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF13530 :FLOAT) EPS3) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF13531 :FLOAT) SMLNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF13532 :FLOAT) BIGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13533 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13521 H) (VR-REF13525 VR) + (VI-REF13526 VI) (B-REF13527 B) + (WORK-REF13529 WORK)) + (%%SLAEIN RIGHTV-REF13518 NOINIT-REF13519 N-REF13520 H-REF13521 + LDH-REF13522 WR-REF13523 WI-REF13524 VR-REF13525 VI-REF13526 B-REF13527 + LDB-REF13528 WORK-REF13529 EPS3-REF13530 SMLNUM-REF13531 BIGNUM-REF13532 + INFO-REF13533)))) + +(CFFI:DEFCFUN ("slaev2_" %%SLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -8800,22 +8793,22 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS1) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN1)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13551 ':FLOAT) (B-REF13552 ':FLOAT) - (C-REF13553 ':FLOAT) (RT1-REF13554 ':FLOAT) - (RT2-REF13555 ':FLOAT) (CS1-REF13556 ':FLOAT) - (SN1-REF13557 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13551 :FLOAT) A) - (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13552 :FLOAT) B) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13553 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF13554 :FLOAT) RT1) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF13555 :FLOAT) RT2) - (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF13556 :FLOAT) CS1) - (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF13557 :FLOAT) SN1) + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13534 ':FLOAT) (B-REF13535 ':FLOAT) + (C-REF13536 ':FLOAT) (RT1-REF13537 ':FLOAT) + (RT2-REF13538 ':FLOAT) (CS1-REF13539 ':FLOAT) + (SN1-REF13540 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13534 :FLOAT) A) + (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13535 :FLOAT) B) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13536 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF13537 :FLOAT) RT1) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF13538 :FLOAT) RT2) + (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF13539 :FLOAT) CS1) + (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF13540 :FLOAT) SN1) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLAEV2 A-REF13551 B-REF13552 C-REF13553 RT1-REF13554 RT2-REF13555 - CS1-REF13556 SN1-REF13557)))) + (%%SLAEV2 A-REF13534 B-REF13535 C-REF13536 RT1-REF13537 RT2-REF13538 + CS1-REF13539 SN1-REF13540)))) -(CFFI:DEFCFUN ("slaexc_" %%SLAEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slaexc_" %%SLAEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (N :POINTER) @@ -8846,25 +8839,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF13558 ':INT32) (N-REF13559 ':INT32) - (LDT-REF13561 ':INT32) (LDQ-REF13563 ':INT32) - (J1-REF13564 ':INT32) (N1-REF13565 ':INT32) - (N2-REF13566 ':INT32) (INFO-REF13568 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF13558 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13559 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13561 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13563 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF13564 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13565 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF13566 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13568 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF13560 T) (Q-REF13562 Q) - (WORK-REF13567 WORK)) - (%%SLAEXC WANTQ-REF13558 N-REF13559 T-REF13560 LDT-REF13561 Q-REF13562 - LDQ-REF13563 J1-REF13564 N1-REF13565 N2-REF13566 WORK-REF13567 - INFO-REF13568)))) - -(CFFI:DEFCFUN ("slag2_" %%SLAG2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF13541 ':INT32) (N-REF13542 ':INT32) + (LDT-REF13544 ':INT32) (LDQ-REF13546 ':INT32) + (J1-REF13547 ':INT32) (N1-REF13548 ':INT32) + (N2-REF13549 ':INT32) (INFO-REF13551 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF13541 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13542 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13544 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13546 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF13547 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13548 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF13549 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13551 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF13543 T) (Q-REF13545 Q) + (WORK-REF13550 WORK)) + (%%SLAEXC WANTQ-REF13541 N-REF13542 T-REF13543 LDT-REF13544 Q-REF13545 + LDQ-REF13546 J1-REF13547 N1-REF13548 N2-REF13549 WORK-REF13550 + INFO-REF13551)))) + +(CFFI:DEFCFUN ("slag2_" %%SLAG2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (LDA :POINTER) @@ -8891,25 +8884,24 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR1) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR2) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI)) - (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF13570 ':INT32) (LDB-REF13572 ':INT32) - (SAFMIN-REF13573 ':FLOAT) - (SCALE1-REF13574 ':FLOAT) - (SCALE2-REF13575 ':FLOAT) (WR1-REF13576 ':FLOAT) - (WR2-REF13577 ':FLOAT) (WI-REF13578 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13570 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13572 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF13573 :FLOAT) SAFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF13574 :FLOAT) SCALE1) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF13575 :FLOAT) SCALE2) - (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF13576 :FLOAT) WR1) - (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF13577 :FLOAT) WR2) - (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13578 :FLOAT) WI) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13569 A) (B-REF13571 B)) - (%%SLAG2 A-REF13569 LDA-REF13570 B-REF13571 LDB-REF13572 SAFMIN-REF13573 - SCALE1-REF13574 SCALE2-REF13575 WR1-REF13576 WR2-REF13577 - WI-REF13578)))) - -(CFFI:DEFCFUN ("slag2d_" %%SLAG2D :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF13553 ':INT32) (LDB-REF13555 ':INT32) + (SAFMIN-REF13556 ':FLOAT) + (SCALE1-REF13557 ':FLOAT) + (SCALE2-REF13558 ':FLOAT) (WR1-REF13559 ':FLOAT) + (WR2-REF13560 ':FLOAT) (WI-REF13561 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13553 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13555 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF13556 :FLOAT) SAFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF13557 :FLOAT) SCALE1) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF13558 :FLOAT) SCALE2) + (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF13559 :FLOAT) WR1) + (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF13560 :FLOAT) WR2) + (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13561 :FLOAT) WI) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13552 A) (B-REF13554 B)) + (%%SLAG2 A-REF13552 LDA-REF13553 B-REF13554 LDB-REF13555 SAFMIN-REF13556 + SCALE1-REF13557 SCALE2-REF13558 WR1-REF13559 WR2-REF13560 WI-REF13561)))) + +(CFFI:DEFCFUN ("slag2d_" %%SLAG2D :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -8930,19 +8922,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13579 ':INT32) (N-REF13580 ':INT32) - (LDSA-REF13582 ':INT32) (LDA-REF13584 ':INT32) - (INFO-REF13585 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13579 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13580 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF13582 :INT32) LDSA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13584 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13585 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SA-REF13581 SA) (A-REF13583 A)) - (%%SLAG2D M-REF13579 N-REF13580 SA-REF13581 LDSA-REF13582 A-REF13583 - LDA-REF13584 INFO-REF13585)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13562 ':INT32) (N-REF13563 ':INT32) + (LDSA-REF13565 ':INT32) (LDA-REF13567 ':INT32) + (INFO-REF13568 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13562 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13563 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF13565 :INT32) LDSA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13567 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13568 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SA-REF13564 SA) (A-REF13566 A)) + (%%SLAG2D M-REF13562 N-REF13563 SA-REF13564 LDSA-REF13565 A-REF13566 + LDA-REF13567 INFO-REF13568)))) -(CFFI:DEFCFUN ("slags2_" %%SLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slags2_" %%SLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPPER :POINTER) (A1 :POINTER) @@ -8973,32 +8965,32 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNV) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSQ) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNQ)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF13586 ':INT32) (A1-REF13587 ':FLOAT) - (A2-REF13588 ':FLOAT) (A3-REF13589 ':FLOAT) - (B1-REF13590 ':FLOAT) (B2-REF13591 ':FLOAT) - (B3-REF13592 ':FLOAT) (CSU-REF13593 ':FLOAT) - (SNU-REF13594 ':FLOAT) (CSV-REF13595 ':FLOAT) - (SNV-REF13596 ':FLOAT) (CSQ-REF13597 ':FLOAT) - (SNQ-REF13598 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF13586 :INT32) UPPER) - (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF13587 :FLOAT) A1) - (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF13588 :FLOAT) A2) - (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF13589 :FLOAT) A3) - (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF13590 :FLOAT) B1) - (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF13591 :FLOAT) B2) - (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF13592 :FLOAT) B3) - (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF13593 :FLOAT) CSU) - (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF13594 :FLOAT) SNU) - (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF13595 :FLOAT) CSV) - (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF13596 :FLOAT) SNV) - (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF13597 :FLOAT) CSQ) - (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF13598 :FLOAT) SNQ) + (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF13569 ':INT32) (A1-REF13570 ':FLOAT) + (A2-REF13571 ':FLOAT) (A3-REF13572 ':FLOAT) + (B1-REF13573 ':FLOAT) (B2-REF13574 ':FLOAT) + (B3-REF13575 ':FLOAT) (CSU-REF13576 ':FLOAT) + (SNU-REF13577 ':FLOAT) (CSV-REF13578 ':FLOAT) + (SNV-REF13579 ':FLOAT) (CSQ-REF13580 ':FLOAT) + (SNQ-REF13581 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF13569 :INT32) UPPER) + (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF13570 :FLOAT) A1) + (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF13571 :FLOAT) A2) + (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF13572 :FLOAT) A3) + (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF13573 :FLOAT) B1) + (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF13574 :FLOAT) B2) + (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF13575 :FLOAT) B3) + (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF13576 :FLOAT) CSU) + (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF13577 :FLOAT) SNU) + (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF13578 :FLOAT) CSV) + (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF13579 :FLOAT) SNV) + (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF13580 :FLOAT) CSQ) + (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF13581 :FLOAT) SNQ) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLAGS2 UPPER-REF13586 A1-REF13587 A2-REF13588 A3-REF13589 B1-REF13590 - B2-REF13591 B3-REF13592 CSU-REF13593 SNU-REF13594 CSV-REF13595 - SNV-REF13596 CSQ-REF13597 SNQ-REF13598)))) + (%%SLAGS2 UPPER-REF13569 A1-REF13570 A2-REF13571 A3-REF13572 B1-REF13573 + B2-REF13574 B3-REF13575 CSU-REF13576 SNU-REF13577 CSV-REF13578 + SNV-REF13579 CSQ-REF13580 SNQ-REF13581)))) -(CFFI:DEFCFUN ("slagtf_" %%SLAGTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slagtf_" %%SLAGTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -9028,19 +9020,19 @@ (COMMON-LISP:*)) IN) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13599 ':INT32) (LAMBDA-REF13601 ':FLOAT) - (TOL-REF13604 ':FLOAT) (INFO-REF13607 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13599 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF13601 :FLOAT) LAMBDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF13604 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13607 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13600 A) (B-REF13602 B) - (C-REF13603 C) (D-REF13605 D) - (IN-REF13606 IN)) - (%%SLAGTF N-REF13599 A-REF13600 LAMBDA-REF13601 B-REF13602 C-REF13603 - TOL-REF13604 D-REF13605 IN-REF13606 INFO-REF13607)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13582 ':INT32) (LAMBDA-REF13584 ':FLOAT) + (TOL-REF13587 ':FLOAT) (INFO-REF13590 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13582 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF13584 :FLOAT) LAMBDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF13587 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13590 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13583 A) (B-REF13585 B) + (C-REF13586 C) (D-REF13588 D) + (IN-REF13589 IN)) + (%%SLAGTF N-REF13582 A-REF13583 LAMBDA-REF13584 B-REF13585 C-REF13586 + TOL-REF13587 D-REF13588 IN-REF13589 INFO-REF13590)))) -(CFFI:DEFCFUN ("slagtm_" %%SLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slagtm_" %%SLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -9074,23 +9066,23 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13609 ':INT32) (NRHS-REF13610 ':INT32) - (ALPHA-REF13611 ':FLOAT) (LDX-REF13616 ':INT32) - (BETA-REF13617 ':FLOAT) (LDB-REF13619 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13609 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13610 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13611 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13616 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13617 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13619 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13612 DL) (D-REF13613 D) - (DU-REF13614 DU) (X-REF13615 X) - (B-REF13618 B)) - (%%SLAGTM TRANS N-REF13609 NRHS-REF13610 ALPHA-REF13611 DL-REF13612 - D-REF13613 DU-REF13614 X-REF13615 LDX-REF13616 BETA-REF13617 - B-REF13618 LDB-REF13619)))) - -(CFFI:DEFCFUN ("slagts_" %%SLAGTS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13592 ':INT32) (NRHS-REF13593 ':INT32) + (ALPHA-REF13594 ':FLOAT) (LDX-REF13599 ':INT32) + (BETA-REF13600 ':FLOAT) (LDB-REF13602 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13592 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13593 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF13594 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13599 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF13600 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13602 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13595 DL) (D-REF13596 D) + (DU-REF13597 DU) (X-REF13598 X) + (B-REF13601 B)) + (%%SLAGTM TRANS N-REF13592 NRHS-REF13593 ALPHA-REF13594 DL-REF13595 + D-REF13596 DU-REF13597 X-REF13598 LDX-REF13599 BETA-REF13600 B-REF13601 + LDB-REF13602)))) + +(CFFI:DEFCFUN ("slagts_" %%SLAGTS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :POINTER) (N :POINTER) @@ -9123,19 +9115,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF13620 ':INT32) (N-REF13621 ':INT32) - (TOL-REF13628 ':FLOAT) (INFO-REF13629 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF13620 :INT32) JOB) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13621 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF13628 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13629 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13622 A) (B-REF13623 B) - (C-REF13624 C) (D-REF13625 D) - (IN-REF13626 IN) (Y-REF13627 Y)) - (%%SLAGTS JOB-REF13620 N-REF13621 A-REF13622 B-REF13623 C-REF13624 - D-REF13625 IN-REF13626 Y-REF13627 TOL-REF13628 INFO-REF13629)))) + (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF13603 ':INT32) (N-REF13604 ':INT32) + (TOL-REF13611 ':FLOAT) (INFO-REF13612 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF13603 :INT32) JOB) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13604 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF13611 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13612 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13605 A) (B-REF13606 B) + (C-REF13607 C) (D-REF13608 D) + (IN-REF13609 IN) (Y-REF13610 Y)) + (%%SLAGTS JOB-REF13603 N-REF13604 A-REF13605 B-REF13606 C-REF13607 + D-REF13608 IN-REF13609 Y-REF13610 TOL-REF13611 INFO-REF13612)))) -(CFFI:DEFCFUN ("slagv2_" %%SLAGV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slagv2_" %%SLAGV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (LDA :POINTER) @@ -9170,24 +9162,24 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNL) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSR) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNR)) - (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF13631 ':INT32) (LDB-REF13633 ':INT32) - (CSL-REF13637 ':FLOAT) (SNL-REF13638 ':FLOAT) - (CSR-REF13639 ':FLOAT) (SNR-REF13640 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13631 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13633 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF13637 :FLOAT) CSL) - (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF13638 :FLOAT) SNL) - (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF13639 :FLOAT) CSR) - (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF13640 :FLOAT) SNR) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13630 A) (B-REF13632 B) - (ALPHAR-REF13634 ALPHAR) - (ALPHAI-REF13635 ALPHAI) - (BETA-REF13636 BETA)) - (%%SLAGV2 A-REF13630 LDA-REF13631 B-REF13632 LDB-REF13633 ALPHAR-REF13634 - ALPHAI-REF13635 BETA-REF13636 CSL-REF13637 SNL-REF13638 - CSR-REF13639 SNR-REF13640)))) - -(CFFI:DEFCFUN ("slahqr_" %%SLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF13614 ':INT32) (LDB-REF13616 ':INT32) + (CSL-REF13620 ':FLOAT) (SNL-REF13621 ':FLOAT) + (CSR-REF13622 ':FLOAT) (SNR-REF13623 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13614 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13616 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF13620 :FLOAT) CSL) + (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF13621 :FLOAT) SNL) + (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF13622 :FLOAT) CSR) + (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF13623 :FLOAT) SNR) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13613 A) (B-REF13615 B) + (ALPHAR-REF13617 ALPHAR) + (ALPHAI-REF13618 ALPHAI) + (BETA-REF13619 BETA)) + (%%SLAGV2 A-REF13613 LDA-REF13614 B-REF13615 LDB-REF13616 ALPHAR-REF13617 + ALPHAI-REF13618 BETA-REF13619 CSL-REF13620 SNL-REF13621 CSR-REF13622 + SNR-REF13623)))) + +(CFFI:DEFCFUN ("slahqr_" %%SLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -9225,29 +9217,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13641 ':INT32) (WANTZ-REF13642 ':INT32) - (N-REF13643 ':INT32) (ILO-REF13644 ':INT32) - (IHI-REF13645 ':INT32) (LDH-REF13647 ':INT32) - (ILOZ-REF13650 ':INT32) (IHIZ-REF13651 ':INT32) - (LDZ-REF13653 ':INT32) (INFO-REF13654 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13641 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13642 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13643 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13644 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13645 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13647 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13650 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13651 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13653 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13654 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13646 H) (WR-REF13648 WR) - (WI-REF13649 WI) (Z-REF13652 Z)) - (%%SLAHQR WANTT-REF13641 WANTZ-REF13642 N-REF13643 ILO-REF13644 - IHI-REF13645 H-REF13646 LDH-REF13647 WR-REF13648 WI-REF13649 - ILOZ-REF13650 IHIZ-REF13651 Z-REF13652 LDZ-REF13653 - INFO-REF13654)))) - -(CFFI:DEFCFUN ("slahr2_" %%SLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13624 ':INT32) (WANTZ-REF13625 ':INT32) + (N-REF13626 ':INT32) (ILO-REF13627 ':INT32) + (IHI-REF13628 ':INT32) (LDH-REF13630 ':INT32) + (ILOZ-REF13633 ':INT32) (IHIZ-REF13634 ':INT32) + (LDZ-REF13636 ':INT32) (INFO-REF13637 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13624 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13625 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13626 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13627 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13628 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13630 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13633 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13634 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13636 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13637 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13629 H) (WR-REF13631 WR) + (WI-REF13632 WI) (Z-REF13635 Z)) + (%%SLAHQR WANTT-REF13624 WANTZ-REF13625 N-REF13626 ILO-REF13627 + IHI-REF13628 H-REF13629 LDH-REF13630 WR-REF13631 WI-REF13632 + ILOZ-REF13633 IHIZ-REF13634 Z-REF13635 LDZ-REF13636 INFO-REF13637)))) + +(CFFI:DEFCFUN ("slahr2_" %%SLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (K :POINTER) @@ -9277,21 +9268,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13655 ':INT32) (K-REF13656 ':INT32) - (NB-REF13657 ':INT32) (LDA-REF13659 ':INT32) - (LDT-REF13662 ':INT32) (LDY-REF13664 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13655 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13656 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13657 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13659 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13662 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13664 :INT32) LDY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13658 A) (TAU-REF13660 TAU) - (T-REF13661 T) (Y-REF13663 Y)) - (%%SLAHR2 N-REF13655 K-REF13656 NB-REF13657 A-REF13658 LDA-REF13659 - TAU-REF13660 T-REF13661 LDT-REF13662 Y-REF13663 LDY-REF13664)))) - -(CFFI:DEFCFUN ("slaic1_" %%SLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13638 ':INT32) (K-REF13639 ':INT32) + (NB-REF13640 ':INT32) (LDA-REF13642 ':INT32) + (LDT-REF13645 ':INT32) (LDY-REF13647 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13638 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13639 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13640 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13642 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13645 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13647 :INT32) LDY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13641 A) (TAU-REF13643 TAU) + (T-REF13644 T) (Y-REF13646 Y)) + (%%SLAHR2 N-REF13638 K-REF13639 NB-REF13640 A-REF13641 LDA-REF13642 + TAU-REF13643 T-REF13644 LDT-REF13645 Y-REF13646 LDY-REF13647)))) + +(CFFI:DEFCFUN ("slaic1_" %%SLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :POINTER) (J :POINTER) @@ -9316,23 +9307,23 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SESTPR) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)) - (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF13665 ':INT32) (J-REF13666 ':INT32) - (SEST-REF13668 ':FLOAT) (GAMMA-REF13670 ':FLOAT) - (SESTPR-REF13671 ':FLOAT) (S-REF13672 ':FLOAT) - (C-REF13673 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF13665 :INT32) JOB) - (COMMON-LISP:SETF (CFFI:MEM-REF J-REF13666 :INT32) J) - (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF13668 :FLOAT) SEST) - (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF13670 :FLOAT) GAMMA) - (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF13671 :FLOAT) SESTPR) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF13672 :FLOAT) S) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13673 :FLOAT) C) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13667 X) (W-REF13669 W)) - (%%SLAIC1 JOB-REF13665 J-REF13666 X-REF13667 SEST-REF13668 W-REF13669 - GAMMA-REF13670 SESTPR-REF13671 S-REF13672 C-REF13673)))) + (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF13648 ':INT32) (J-REF13649 ':INT32) + (SEST-REF13651 ':FLOAT) (GAMMA-REF13653 ':FLOAT) + (SESTPR-REF13654 ':FLOAT) (S-REF13655 ':FLOAT) + (C-REF13656 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF13648 :INT32) JOB) + (COMMON-LISP:SETF (CFFI:MEM-REF J-REF13649 :INT32) J) + (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF13651 :FLOAT) SEST) + (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF13653 :FLOAT) GAMMA) + (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF13654 :FLOAT) SESTPR) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF13655 :FLOAT) S) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13656 :FLOAT) C) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13650 X) (W-REF13652 W)) + (%%SLAIC1 JOB-REF13648 J-REF13649 X-REF13650 SEST-REF13651 W-REF13652 + GAMMA-REF13653 SESTPR-REF13654 S-REF13655 C-REF13656)))) (CFFI:DEFCFUN ("slaisnan_" %%SLAISNAN :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (SIN1 :POINTER) (SIN2 :POINTER)) @@ -9341,13 +9332,13 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAISNAN) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN1) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN2)) - (CFFI:WITH-FOREIGN-OBJECTS ((SIN1-REF13674 ':FLOAT) (SIN2-REF13675 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF SIN1-REF13674 :FLOAT) SIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF SIN2-REF13675 :FLOAT) SIN2) + (CFFI:WITH-FOREIGN-OBJECTS ((SIN1-REF13657 ':FLOAT) (SIN2-REF13658 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF SIN1-REF13657 :FLOAT) SIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF SIN2-REF13658 :FLOAT) SIN2) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLAISNAN SIN1-REF13674 SIN2-REF13675)))) + (%%SLAISNAN SIN1-REF13657 SIN2-REF13658)))) -(CFFI:DEFCFUN ("slaln2_" %%SLALN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slaln2_" %%SLALN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (LTRANS :POINTER) (NA :POINTER) @@ -9393,37 +9384,37 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT XNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF13676 ':INT32) (NA-REF13677 ':INT32) - (NW-REF13678 ':INT32) (SMIN-REF13679 ':FLOAT) - (CA-REF13680 ':FLOAT) (LDA-REF13682 ':INT32) - (D1-REF13683 ':FLOAT) (D2-REF13684 ':FLOAT) - (LDB-REF13686 ':INT32) (WR-REF13687 ':FLOAT) - (WI-REF13688 ':FLOAT) (LDX-REF13690 ':INT32) - (SCALE-REF13691 ':FLOAT) (XNORM-REF13692 ':FLOAT) - (INFO-REF13693 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF13676 :INT32) LTRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF13677 :INT32) NA) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF13678 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF13679 :FLOAT) SMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF13680 :FLOAT) CA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13682 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF13683 :FLOAT) D1) - (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF13684 :FLOAT) D2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13686 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF13687 :FLOAT) WR) - (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13688 :FLOAT) WI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13690 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF13691 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF13692 :FLOAT) XNORM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13693 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13681 A) (B-REF13685 B) - (X-REF13689 X)) - (%%SLALN2 LTRANS-REF13676 NA-REF13677 NW-REF13678 SMIN-REF13679 - CA-REF13680 A-REF13681 LDA-REF13682 D1-REF13683 D2-REF13684 - B-REF13685 LDB-REF13686 WR-REF13687 WI-REF13688 X-REF13689 - LDX-REF13690 SCALE-REF13691 XNORM-REF13692 INFO-REF13693)))) - -(CFFI:DEFCFUN ("slals0_" %%SLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF13659 ':INT32) (NA-REF13660 ':INT32) + (NW-REF13661 ':INT32) (SMIN-REF13662 ':FLOAT) + (CA-REF13663 ':FLOAT) (LDA-REF13665 ':INT32) + (D1-REF13666 ':FLOAT) (D2-REF13667 ':FLOAT) + (LDB-REF13669 ':INT32) (WR-REF13670 ':FLOAT) + (WI-REF13671 ':FLOAT) (LDX-REF13673 ':INT32) + (SCALE-REF13674 ':FLOAT) (XNORM-REF13675 ':FLOAT) + (INFO-REF13676 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF13659 :INT32) LTRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF13660 :INT32) NA) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF13661 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF13662 :FLOAT) SMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF13663 :FLOAT) CA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13665 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF13666 :FLOAT) D1) + (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF13667 :FLOAT) D2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13669 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF13670 :FLOAT) WR) + (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF13671 :FLOAT) WI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13673 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF13674 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF13675 :FLOAT) XNORM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13676 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13664 A) (B-REF13668 B) + (X-REF13672 X)) + (%%SLALN2 LTRANS-REF13659 NA-REF13660 NW-REF13661 SMIN-REF13662 + CA-REF13663 A-REF13664 LDA-REF13665 D1-REF13666 D2-REF13667 B-REF13668 + LDB-REF13669 WR-REF13670 WI-REF13671 X-REF13672 LDX-REF13673 + SCALE-REF13674 XNORM-REF13675 INFO-REF13676)))) + +(CFFI:DEFCFUN ("slals0_" %%SLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (NL :POINTER) @@ -9497,44 +9488,44 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13694 ':INT32) (NL-REF13695 ':INT32) - (NR-REF13696 ':INT32) (SQRE-REF13697 ':INT32) - (NRHS-REF13698 ':INT32) (LDB-REF13700 ':INT32) - (LDBX-REF13702 ':INT32) (GIVPTR-REF13704 ':INT32) - (LDGCOL-REF13706 ':INT32) - (LDGNUM-REF13708 ':INT32) (K-REF13713 ':INT32) - (C-REF13714 ':FLOAT) (S-REF13715 ':FLOAT) - (INFO-REF13717 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13694 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF13695 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF13696 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF13697 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13698 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13700 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF13702 :INT32) LDBX) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF13704 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF13706 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF13708 :INT32) LDGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13713 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13714 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF13715 :FLOAT) S) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13717 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF13699 B) (BX-REF13701 BX) - (PERM-REF13703 PERM) - (GIVCOL-REF13705 GIVCOL) - (GIVNUM-REF13707 GIVNUM) - (POLES-REF13709 POLES) - (DIFL-REF13710 DIFL) - (DIFR-REF13711 DIFR) (Z-REF13712 Z) - (WORK-REF13716 WORK)) - (%%SLALS0 ICOMPQ-REF13694 NL-REF13695 NR-REF13696 SQRE-REF13697 - NRHS-REF13698 B-REF13699 LDB-REF13700 BX-REF13701 LDBX-REF13702 - PERM-REF13703 GIVPTR-REF13704 GIVCOL-REF13705 LDGCOL-REF13706 - GIVNUM-REF13707 LDGNUM-REF13708 POLES-REF13709 DIFL-REF13710 - DIFR-REF13711 Z-REF13712 K-REF13713 C-REF13714 S-REF13715 - WORK-REF13716 INFO-REF13717)))) - -(CFFI:DEFCFUN ("slalsa_" %%SLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13677 ':INT32) (NL-REF13678 ':INT32) + (NR-REF13679 ':INT32) (SQRE-REF13680 ':INT32) + (NRHS-REF13681 ':INT32) (LDB-REF13683 ':INT32) + (LDBX-REF13685 ':INT32) (GIVPTR-REF13687 ':INT32) + (LDGCOL-REF13689 ':INT32) + (LDGNUM-REF13691 ':INT32) (K-REF13696 ':INT32) + (C-REF13697 ':FLOAT) (S-REF13698 ':FLOAT) + (INFO-REF13700 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13677 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF13678 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF13679 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF13680 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13681 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13683 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF13685 :INT32) LDBX) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF13687 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF13689 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF13691 :INT32) LDGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13696 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13697 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF13698 :FLOAT) S) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13700 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF13682 B) (BX-REF13684 BX) + (PERM-REF13686 PERM) + (GIVCOL-REF13688 GIVCOL) + (GIVNUM-REF13690 GIVNUM) + (POLES-REF13692 POLES) + (DIFL-REF13693 DIFL) + (DIFR-REF13694 DIFR) (Z-REF13695 Z) + (WORK-REF13699 WORK)) + (%%SLALS0 ICOMPQ-REF13677 NL-REF13678 NR-REF13679 SQRE-REF13680 + NRHS-REF13681 B-REF13682 LDB-REF13683 BX-REF13684 LDBX-REF13685 + PERM-REF13686 GIVPTR-REF13687 GIVCOL-REF13688 LDGCOL-REF13689 + GIVNUM-REF13690 LDGNUM-REF13691 POLES-REF13692 DIFL-REF13693 + DIFR-REF13694 Z-REF13695 K-REF13696 C-REF13697 S-REF13698 WORK-REF13699 + INFO-REF13700)))) + +(CFFI:DEFCFUN ("slalsa_" %%SLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (SMLSIZ :POINTER) @@ -9625,40 +9616,40 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13718 ':INT32) - (SMLSIZ-REF13719 ':INT32) (N-REF13720 ':INT32) - (NRHS-REF13721 ':INT32) (LDB-REF13723 ':INT32) - (LDBX-REF13725 ':INT32) (LDU-REF13727 ':INT32) - (LDGCOL-REF13736 ':INT32) (INFO-REF13743 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13718 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF13719 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13720 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13721 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13723 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF13725 :INT32) LDBX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF13727 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF13736 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13743 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF13722 B) (BX-REF13724 BX) - (U-REF13726 U) (VT-REF13728 VT) - (K-REF13729 K) (DIFL-REF13730 DIFL) - (DIFR-REF13731 DIFR) (Z-REF13732 Z) - (POLES-REF13733 POLES) - (GIVPTR-REF13734 GIVPTR) - (GIVCOL-REF13735 GIVCOL) - (PERM-REF13737 PERM) - (GIVNUM-REF13738 GIVNUM) - (C-REF13739 C) (S-REF13740 S) - (WORK-REF13741 WORK) - (IWORK-REF13742 IWORK)) - (%%SLALSA ICOMPQ-REF13718 SMLSIZ-REF13719 N-REF13720 NRHS-REF13721 - B-REF13722 LDB-REF13723 BX-REF13724 LDBX-REF13725 U-REF13726 - LDU-REF13727 VT-REF13728 K-REF13729 DIFL-REF13730 DIFR-REF13731 - Z-REF13732 POLES-REF13733 GIVPTR-REF13734 GIVCOL-REF13735 - LDGCOL-REF13736 PERM-REF13737 GIVNUM-REF13738 C-REF13739 - S-REF13740 WORK-REF13741 IWORK-REF13742 INFO-REF13743)))) - -(CFFI:DEFCFUN ("slalsd_" %%SLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13701 ':INT32) + (SMLSIZ-REF13702 ':INT32) (N-REF13703 ':INT32) + (NRHS-REF13704 ':INT32) (LDB-REF13706 ':INT32) + (LDBX-REF13708 ':INT32) (LDU-REF13710 ':INT32) + (LDGCOL-REF13719 ':INT32) (INFO-REF13726 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13701 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF13702 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13703 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13704 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13706 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF13708 :INT32) LDBX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF13710 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF13719 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13726 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF13705 B) (BX-REF13707 BX) + (U-REF13709 U) (VT-REF13711 VT) + (K-REF13712 K) (DIFL-REF13713 DIFL) + (DIFR-REF13714 DIFR) (Z-REF13715 Z) + (POLES-REF13716 POLES) + (GIVPTR-REF13717 GIVPTR) + (GIVCOL-REF13718 GIVCOL) + (PERM-REF13720 PERM) + (GIVNUM-REF13721 GIVNUM) + (C-REF13722 C) (S-REF13723 S) + (WORK-REF13724 WORK) + (IWORK-REF13725 IWORK)) + (%%SLALSA ICOMPQ-REF13701 SMLSIZ-REF13702 N-REF13703 NRHS-REF13704 + B-REF13705 LDB-REF13706 BX-REF13707 LDBX-REF13708 U-REF13709 + LDU-REF13710 VT-REF13711 K-REF13712 DIFL-REF13713 DIFR-REF13714 + Z-REF13715 POLES-REF13716 GIVPTR-REF13717 GIVCOL-REF13718 + LDGCOL-REF13719 PERM-REF13720 GIVNUM-REF13721 C-REF13722 S-REF13723 + WORK-REF13724 IWORK-REF13725 INFO-REF13726)))) + +(CFFI:DEFCFUN ("slalsd_" %%SLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (SMLSIZ :POINTER) @@ -9698,25 +9689,25 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF13745 ':INT32) (N-REF13746 ':INT32) - (NRHS-REF13747 ':INT32) (LDB-REF13751 ':INT32) - (RCOND-REF13752 ':FLOAT) (RANK-REF13753 ':INT32) - (INFO-REF13756 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF13745 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13746 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13747 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13751 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13752 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF13753 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13756 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13748 D) (E-REF13749 E) - (B-REF13750 B) (WORK-REF13754 WORK) - (IWORK-REF13755 IWORK)) - (%%SLALSD UPLO SMLSIZ-REF13745 N-REF13746 NRHS-REF13747 D-REF13748 - E-REF13749 B-REF13750 LDB-REF13751 RCOND-REF13752 RANK-REF13753 - WORK-REF13754 IWORK-REF13755 INFO-REF13756)))) - -(CFFI:DEFCFUN ("slamrg_" %%SLAMRG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF13728 ':INT32) (N-REF13729 ':INT32) + (NRHS-REF13730 ':INT32) (LDB-REF13734 ':INT32) + (RCOND-REF13735 ':FLOAT) (RANK-REF13736 ':INT32) + (INFO-REF13739 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF13728 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13729 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13730 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13734 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13735 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF13736 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13739 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13731 D) (E-REF13732 E) + (B-REF13733 B) (WORK-REF13737 WORK) + (IWORK-REF13738 IWORK)) + (%%SLALSD UPLO SMLSIZ-REF13728 N-REF13729 NRHS-REF13730 D-REF13731 + E-REF13732 B-REF13733 LDB-REF13734 RCOND-REF13735 RANK-REF13736 + WORK-REF13737 IWORK-REF13738 INFO-REF13739)))) + +(CFFI:DEFCFUN ("slamrg_" %%SLAMRG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N1 :POINTER) (N2 :POINTER) @@ -9737,19 +9728,19 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) INDEX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF13757 ':INT32) (N2-REF13758 ':INT32) - (STRD1-REF13760 ':INT32) (STRD2-REF13761 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13757 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF13758 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF STRD1-REF13760 :INT32) STRD1) - (COMMON-LISP:SETF (CFFI:MEM-REF STRD2-REF13761 :INT32) STRD2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13759 A) - (INDEX-REF13762 INDEX)) - (%%SLAMRG N1-REF13757 N2-REF13758 A-REF13759 STRD1-REF13760 - STRD2-REF13761 INDEX-REF13762)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF13740 ':INT32) (N2-REF13741 ':INT32) + (STRD1-REF13743 ':INT32) (STRD2-REF13744 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF13740 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF13741 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF STRD1-REF13743 :INT32) STRD1) + (COMMON-LISP:SETF (CFFI:MEM-REF STRD2-REF13744 :INT32) STRD2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13742 A) + (INDEX-REF13745 INDEX)) + (%%SLAMRG N1-REF13740 N2-REF13741 A-REF13742 STRD1-REF13743 + STRD2-REF13744 INDEX-REF13745)))) (CFFI:DEFCFUN ("slamswlq_" %%SLAMSWLQ :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -9792,30 +9783,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13765 ':INT32) (N-REF13766 ':INT32) - (K-REF13767 ':INT32) (MB-REF13768 ':INT32) - (NB-REF13769 ':INT32) (LDA-REF13771 ':INT32) - (LDT-REF13773 ':INT32) (LDC-REF13775 ':INT32) - (LWORK-REF13777 ':INT32) (INFO-REF13778 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13765 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13766 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13767 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13768 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13769 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13771 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13773 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13775 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13777 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13778 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13770 A) (T-REF13772 T) - (C-REF13774 C) (WORK-REF13776 WORK)) - (%%SLAMSWLQ SIDE TRANS M-REF13765 N-REF13766 K-REF13767 MB-REF13768 - NB-REF13769 A-REF13770 LDA-REF13771 T-REF13772 LDT-REF13773 - C-REF13774 LDC-REF13775 WORK-REF13776 LWORK-REF13777 - INFO-REF13778)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13748 ':INT32) (N-REF13749 ':INT32) + (K-REF13750 ':INT32) (MB-REF13751 ':INT32) + (NB-REF13752 ':INT32) (LDA-REF13754 ':INT32) + (LDT-REF13756 ':INT32) (LDC-REF13758 ':INT32) + (LWORK-REF13760 ':INT32) (INFO-REF13761 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13748 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13749 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13750 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13751 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13752 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13754 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13756 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13758 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13760 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13761 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13753 A) (T-REF13755 T) + (C-REF13757 C) (WORK-REF13759 WORK)) + (%%SLAMSWLQ SIDE TRANS M-REF13748 N-REF13749 K-REF13750 MB-REF13751 + NB-REF13752 A-REF13753 LDA-REF13754 T-REF13755 LDT-REF13756 C-REF13757 + LDC-REF13758 WORK-REF13759 LWORK-REF13760 INFO-REF13761)))) (CFFI:DEFCFUN ("slamtsqr_" %%SLAMTSQR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -9858,29 +9848,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13781 ':INT32) (N-REF13782 ':INT32) - (K-REF13783 ':INT32) (MB-REF13784 ':INT32) - (NB-REF13785 ':INT32) (LDA-REF13787 ':INT32) - (LDT-REF13789 ':INT32) (LDC-REF13791 ':INT32) - (LWORK-REF13793 ':INT32) (INFO-REF13794 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13781 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13782 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13783 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13784 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13785 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13787 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13789 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13791 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13793 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13794 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13786 A) (T-REF13788 T) - (C-REF13790 C) (WORK-REF13792 WORK)) - (%%SLAMTSQR SIDE TRANS M-REF13781 N-REF13782 K-REF13783 MB-REF13784 - NB-REF13785 A-REF13786 LDA-REF13787 T-REF13788 LDT-REF13789 - C-REF13790 LDC-REF13791 WORK-REF13792 LWORK-REF13793 - INFO-REF13794)))) - -(CFFI:DEFCFUN ("slaneg_" %%SLANEG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13764 ':INT32) (N-REF13765 ':INT32) + (K-REF13766 ':INT32) (MB-REF13767 ':INT32) + (NB-REF13768 ':INT32) (LDA-REF13770 ':INT32) + (LDT-REF13772 ':INT32) (LDC-REF13774 ':INT32) + (LWORK-REF13776 ':INT32) (INFO-REF13777 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13764 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13765 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13766 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13767 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13768 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13770 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13772 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13774 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13776 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13777 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13769 A) (T-REF13771 T) + (C-REF13773 C) (WORK-REF13775 WORK)) + (%%SLAMTSQR SIDE TRANS M-REF13764 N-REF13765 K-REF13766 MB-REF13767 + NB-REF13768 A-REF13769 LDA-REF13770 T-REF13771 LDT-REF13772 C-REF13773 + LDC-REF13774 WORK-REF13775 LWORK-REF13776 INFO-REF13777)))) + +(CFFI:DEFCFUN ("slaneg_" %%SLANEG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :INT32 (N :POINTER) (D :POINTER) @@ -9900,17 +9889,17 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13795 ':INT32) (SIGMA-REF13798 ':FLOAT) - (PIVMIN-REF13799 ':FLOAT) (R-REF13800 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13795 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF13798 :FLOAT) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13799 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF13800 :INT32) R) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13796 D) (LLD-REF13797 LLD)) - (%%SLANEG N-REF13795 D-REF13796 LLD-REF13797 SIGMA-REF13798 - PIVMIN-REF13799 R-REF13800)))) - -(CFFI:DEFCFUN ("slangb_" %%SLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13778 ':INT32) (SIGMA-REF13781 ':FLOAT) + (PIVMIN-REF13782 ':FLOAT) (R-REF13783 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13778 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF13781 :FLOAT) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13782 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF13783 :INT32) R) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13779 D) (LLD-REF13780 LLD)) + (%%SLANEG N-REF13778 D-REF13779 LLD-REF13780 SIGMA-REF13781 + PIVMIN-REF13782 R-REF13783)))) + +(CFFI:DEFCFUN ("slangb_" %%SLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (N :POINTER) @@ -9932,18 +9921,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13802 ':INT32) (KL-REF13803 ':INT32) - (KU-REF13804 ':INT32) (LDAB-REF13806 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13802 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13803 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13804 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13806 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13805 AB) - (WORK-REF13807 WORK)) - (%%SLANGB NORM N-REF13802 KL-REF13803 KU-REF13804 AB-REF13805 - LDAB-REF13806 WORK-REF13807)))) - -(CFFI:DEFCFUN ("slange_" %%SLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13785 ':INT32) (KL-REF13786 ':INT32) + (KU-REF13787 ':INT32) (LDAB-REF13789 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13785 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13786 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13787 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13789 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13788 AB) + (WORK-REF13790 WORK)) + (%%SLANGB NORM N-REF13785 KL-REF13786 KU-REF13787 AB-REF13788 + LDAB-REF13789 WORK-REF13790)))) + +(CFFI:DEFCFUN ("slange_" %%SLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (M :POINTER) @@ -9963,16 +9952,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13809 ':INT32) (N-REF13810 ':INT32) - (LDA-REF13812 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13809 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13810 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13812 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13811 A) (WORK-REF13813 WORK)) - (%%SLANGE NORM M-REF13809 N-REF13810 A-REF13811 LDA-REF13812 - WORK-REF13813)))) - -(CFFI:DEFCFUN ("slangt_" %%SLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13792 ':INT32) (N-REF13793 ':INT32) + (LDA-REF13795 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13792 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13793 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13795 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13794 A) (WORK-REF13796 WORK)) + (%%SLANGE NORM M-REF13792 N-REF13793 A-REF13794 LDA-REF13795 + WORK-REF13796)))) + +(CFFI:DEFCFUN ("slangt_" %%SLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (N :POINTER) @@ -9991,13 +9980,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13815 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13815 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13816 DL) (D-REF13817 D) - (DU-REF13818 DU)) - (%%SLANGT NORM N-REF13815 DL-REF13816 D-REF13817 DU-REF13818)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13798 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13798 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13799 DL) (D-REF13800 D) + (DU-REF13801 DU)) + (%%SLANGT NORM N-REF13798 DL-REF13799 D-REF13800 DU-REF13801)))) -(CFFI:DEFCFUN ("slanhs_" %%SLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slanhs_" %%SLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (N :POINTER) @@ -10015,13 +10004,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13820 ':INT32) (LDA-REF13822 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13820 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13822 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13821 A) (WORK-REF13823 WORK)) - (%%SLANHS NORM N-REF13820 A-REF13821 LDA-REF13822 WORK-REF13823)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13803 ':INT32) (LDA-REF13805 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13803 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13805 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13804 A) (WORK-REF13806 WORK)) + (%%SLANHS NORM N-REF13803 A-REF13804 LDA-REF13805 WORK-REF13806)))) -(CFFI:DEFCFUN ("slansb_" %%SLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slansb_" %%SLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -10043,17 +10032,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13826 ':INT32) (K-REF13827 ':INT32) - (LDAB-REF13829 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13826 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13827 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13829 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13828 AB) - (WORK-REF13830 WORK)) - (%%SLANSB NORM UPLO N-REF13826 K-REF13827 AB-REF13828 LDAB-REF13829 - WORK-REF13830)))) - -(CFFI:DEFCFUN ("slansf_" %%SLANSF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13809 ':INT32) (K-REF13810 ':INT32) + (LDAB-REF13812 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13809 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13810 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13812 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13811 AB) + (WORK-REF13813 WORK)) + (%%SLANSB NORM UPLO N-REF13809 K-REF13810 AB-REF13811 LDAB-REF13812 + WORK-REF13813)))) + +(CFFI:DEFCFUN ("slansf_" %%SLANSF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (TRANSR :STRING) @@ -10073,12 +10062,12 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13834 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13834 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13835 A) (WORK-REF13836 WORK)) - (%%SLANSF NORM TRANSR UPLO N-REF13834 A-REF13835 WORK-REF13836)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13817 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13817 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13818 A) (WORK-REF13819 WORK)) + (%%SLANSF NORM TRANSR UPLO N-REF13817 A-REF13818 WORK-REF13819)))) -(CFFI:DEFCFUN ("slansp_" %%SLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slansp_" %%SLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -10096,13 +10085,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13839 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13839 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13840 AP) - (WORK-REF13841 WORK)) - (%%SLANSP NORM UPLO N-REF13839 AP-REF13840 WORK-REF13841)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13822 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13822 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13823 AP) + (WORK-REF13824 WORK)) + (%%SLANSP NORM UPLO N-REF13822 AP-REF13823 WORK-REF13824)))) -(CFFI:DEFCFUN ("slanst_" %%SLANST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slanst_" %%SLANST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (N :POINTER) @@ -10117,12 +10106,12 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13843 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13843 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13844 D) (E-REF13845 E)) - (%%SLANST NORM N-REF13843 D-REF13844 E-REF13845)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13826 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13826 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13827 D) (E-REF13828 E)) + (%%SLANST NORM N-REF13826 D-REF13827 E-REF13828)))) -(CFFI:DEFCFUN ("slansy_" %%SLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slansy_" %%SLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -10142,13 +10131,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13848 ':INT32) (LDA-REF13850 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13848 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13850 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13849 A) (WORK-REF13851 WORK)) - (%%SLANSY NORM UPLO N-REF13848 A-REF13849 LDA-REF13850 WORK-REF13851)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13831 ':INT32) (LDA-REF13833 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13831 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13833 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13832 A) (WORK-REF13834 WORK)) + (%%SLANSY NORM UPLO N-REF13831 A-REF13832 LDA-REF13833 WORK-REF13834)))) -(CFFI:DEFCFUN ("slantb_" %%SLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slantb_" %%SLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -10172,17 +10161,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13855 ':INT32) (K-REF13856 ':INT32) - (LDAB-REF13858 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13855 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13856 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13858 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13857 AB) - (WORK-REF13859 WORK)) - (%%SLANTB NORM UPLO DIAG N-REF13855 K-REF13856 AB-REF13857 LDAB-REF13858 - WORK-REF13859)))) - -(CFFI:DEFCFUN ("slantp_" %%SLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13838 ':INT32) (K-REF13839 ':INT32) + (LDAB-REF13841 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13838 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13839 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13841 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13840 AB) + (WORK-REF13842 WORK)) + (%%SLANTB NORM UPLO DIAG N-REF13838 K-REF13839 AB-REF13840 LDAB-REF13841 + WORK-REF13842)))) + +(CFFI:DEFCFUN ("slantp_" %%SLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -10202,13 +10191,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13863 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13863 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13864 AP) - (WORK-REF13865 WORK)) - (%%SLANTP NORM UPLO DIAG N-REF13863 AP-REF13864 WORK-REF13865)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13846 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13846 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13847 AP) + (WORK-REF13848 WORK)) + (%%SLANTP NORM UPLO DIAG N-REF13846 AP-REF13847 WORK-REF13848)))) -(CFFI:DEFCFUN ("slantr_" %%SLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slantr_" %%SLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (NORM :STRING) (UPLO :STRING) @@ -10232,16 +10221,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13869 ':INT32) (N-REF13870 ':INT32) - (LDA-REF13872 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13869 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13870 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13872 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13871 A) (WORK-REF13873 WORK)) - (%%SLANTR NORM UPLO DIAG M-REF13869 N-REF13870 A-REF13871 LDA-REF13872 - WORK-REF13873)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13852 ':INT32) (N-REF13853 ':INT32) + (LDA-REF13855 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13852 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13853 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13855 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13854 A) (WORK-REF13856 WORK)) + (%%SLANTR NORM UPLO DIAG M-REF13852 N-REF13853 A-REF13854 LDA-REF13855 + WORK-REF13856)))) -(CFFI:DEFCFUN ("slanv2_" %%SLANV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slanv2_" %%SLANV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -10266,27 +10255,86 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RT2I) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13874 ':FLOAT) (B-REF13875 ':FLOAT) - (C-REF13876 ':FLOAT) (D-REF13877 ':FLOAT) - (RT1R-REF13878 ':FLOAT) (RT1I-REF13879 ':FLOAT) - (RT2R-REF13880 ':FLOAT) (RT2I-REF13881 ':FLOAT) - (CS-REF13882 ':FLOAT) (SN-REF13883 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13874 :FLOAT) A) - (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13875 :FLOAT) B) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13876 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF D-REF13877 :FLOAT) D) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF13878 :FLOAT) RT1R) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF13879 :FLOAT) RT1I) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF13880 :FLOAT) RT2R) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF13881 :FLOAT) RT2I) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF13882 :FLOAT) CS) - (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF13883 :FLOAT) SN) + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13857 ':FLOAT) (B-REF13858 ':FLOAT) + (C-REF13859 ':FLOAT) (D-REF13860 ':FLOAT) + (RT1R-REF13861 ':FLOAT) (RT1I-REF13862 ':FLOAT) + (RT2R-REF13863 ':FLOAT) (RT2I-REF13864 ':FLOAT) + (CS-REF13865 ':FLOAT) (SN-REF13866 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13857 :FLOAT) A) + (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13858 :FLOAT) B) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13859 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF D-REF13860 :FLOAT) D) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF13861 :FLOAT) RT1R) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF13862 :FLOAT) RT1I) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF13863 :FLOAT) RT2R) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF13864 :FLOAT) RT2I) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF13865 :FLOAT) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF13866 :FLOAT) SN) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLANV2 A-REF13874 B-REF13875 C-REF13876 D-REF13877 RT1R-REF13878 - RT1I-REF13879 RT2R-REF13880 RT2I-REF13881 CS-REF13882 - SN-REF13883)))) + (%%SLANV2 A-REF13857 B-REF13858 C-REF13859 D-REF13860 RT1R-REF13861 + RT1I-REF13862 RT2R-REF13863 RT2I-REF13864 CS-REF13865 SN-REF13866)))) + +(CFFI:DEFCFUN ("slaorhr_col_getrfnp_" %%SLAORHR_COL_GETRFNP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (A :POINTER) + (LDA :POINTER) + (D :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %SLAORHR_COL_GETRFNP (M N A LDA D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAORHR_COL_GETRFNP) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13867 ':INT32) (N-REF13868 ':INT32) + (LDA-REF13870 ':INT32) (INFO-REF13872 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13867 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13868 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13870 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13872 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13869 A) (D-REF13871 D)) + (%%SLAORHR_COL_GETRFNP M-REF13867 N-REF13868 A-REF13869 LDA-REF13870 + D-REF13871 INFO-REF13872)))) + +(CFFI:DEFCFUN ("slaorhr_col_getrfnp2_" %%SLAORHR_COL_GETRFNP2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (A :POINTER) + (LDA :POINTER) + (D :POINTER) + (INFO :POINTER)) -(CFFI:DEFCFUN ("slapll_" %%SLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(COMMON-LISP:DEFUN %SLAORHR_COL_GETRFNP2 (M N A LDA D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAORHR_COL_GETRFNP2) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13873 ':INT32) (N-REF13874 ':INT32) + (LDA-REF13876 ':INT32) (INFO-REF13878 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13873 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13874 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13876 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13878 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13875 A) (D-REF13877 D)) + (%%SLAORHR_COL_GETRFNP2 M-REF13873 N-REF13874 A-REF13875 LDA-REF13876 + D-REF13877 INFO-REF13878)))) + +(CFFI:DEFCFUN ("slapll_" %%SLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -10305,17 +10353,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13884 ':INT32) (INCX-REF13886 ':INT32) - (INCY-REF13888 ':INT32) (SSMIN-REF13889 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13884 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13886 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13888 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF13889 :FLOAT) SSMIN) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13885 X) (Y-REF13887 Y)) - (%%SLAPLL N-REF13884 X-REF13885 INCX-REF13886 Y-REF13887 INCY-REF13888 - SSMIN-REF13889)))) - -(CFFI:DEFCFUN ("slapmr_" %%SLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13879 ':INT32) (INCX-REF13881 ':INT32) + (INCY-REF13883 ':INT32) (SSMIN-REF13884 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13879 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13881 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF13883 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF13884 :FLOAT) SSMIN) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13880 X) (Y-REF13882 Y)) + (%%SLAPLL N-REF13879 X-REF13880 INCX-REF13881 Y-REF13882 INCY-REF13883 + SSMIN-REF13884)))) + +(CFFI:DEFCFUN ("slapmr_" %%SLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FORWRD :POINTER) (M :POINTER) @@ -10336,17 +10384,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) K)) - (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF13890 ':INT32) (M-REF13891 ':INT32) - (N-REF13892 ':INT32) (LDX-REF13894 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF13890 :INT32) FORWRD) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13891 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13892 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13894 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13893 X) (K-REF13895 K)) - (%%SLAPMR FORWRD-REF13890 M-REF13891 N-REF13892 X-REF13893 LDX-REF13894 - K-REF13895)))) - -(CFFI:DEFCFUN ("slapmt_" %%SLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF13885 ':INT32) (M-REF13886 ':INT32) + (N-REF13887 ':INT32) (LDX-REF13889 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF13885 :INT32) FORWRD) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13886 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13887 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13889 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13888 X) (K-REF13890 K)) + (%%SLAPMR FORWRD-REF13885 M-REF13886 N-REF13887 X-REF13888 LDX-REF13889 + K-REF13890)))) + +(CFFI:DEFCFUN ("slapmt_" %%SLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FORWRD :POINTER) (M :POINTER) @@ -10367,17 +10415,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) K)) - (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF13896 ':INT32) (M-REF13897 ':INT32) - (N-REF13898 ':INT32) (LDX-REF13900 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF13896 :INT32) FORWRD) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13897 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13898 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13900 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13899 X) (K-REF13901 K)) - (%%SLAPMT FORWRD-REF13896 M-REF13897 N-REF13898 X-REF13899 LDX-REF13900 - K-REF13901)))) - -(CFFI:DEFCFUN ("slapy2_" %%SLAPY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF13891 ':INT32) (M-REF13892 ':INT32) + (N-REF13893 ':INT32) (LDX-REF13895 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF13891 :INT32) FORWRD) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13892 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13893 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13895 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13894 X) (K-REF13896 K)) + (%%SLAPMT FORWRD-REF13891 M-REF13892 N-REF13893 X-REF13894 LDX-REF13895 + K-REF13896)))) + +(CFFI:DEFCFUN ("slapy2_" %%SLAPY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (X :POINTER) (Y :POINTER)) @@ -10386,13 +10434,13 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAPY2) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y)) - (CFFI:WITH-FOREIGN-OBJECTS ((X-REF13902 ':FLOAT) (Y-REF13903 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF X-REF13902 :FLOAT) X) - (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF13903 :FLOAT) Y) + (CFFI:WITH-FOREIGN-OBJECTS ((X-REF13897 ':FLOAT) (Y-REF13898 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF X-REF13897 :FLOAT) X) + (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF13898 :FLOAT) Y) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLAPY2 X-REF13902 Y-REF13903)))) + (%%SLAPY2 X-REF13897 Y-REF13898)))) -(CFFI:DEFCFUN ("slapy3_" %%SLAPY3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slapy3_" %%SLAPY3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :FLOAT (X :POINTER) (Y :POINTER) @@ -10403,15 +10451,15 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT X) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Y) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Z)) - (CFFI:WITH-FOREIGN-OBJECTS ((X-REF13904 ':FLOAT) (Y-REF13905 ':FLOAT) - (Z-REF13906 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF X-REF13904 :FLOAT) X) - (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF13905 :FLOAT) Y) - (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF13906 :FLOAT) Z) + (CFFI:WITH-FOREIGN-OBJECTS ((X-REF13899 ':FLOAT) (Y-REF13900 ':FLOAT) + (Z-REF13901 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF X-REF13899 :FLOAT) X) + (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF13900 :FLOAT) Y) + (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF13901 :FLOAT) Z) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLAPY3 X-REF13904 Y-REF13905 Z-REF13906)))) + (%%SLAPY3 X-REF13899 Y-REF13900 Z-REF13901)))) -(CFFI:DEFCFUN ("slaqgb_" %%SLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slaqgb_" %%SLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -10443,25 +10491,25 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13907 ':INT32) (N-REF13908 ':INT32) - (KL-REF13909 ':INT32) (KU-REF13910 ':INT32) - (LDAB-REF13912 ':INT32) (ROWCND-REF13915 ':FLOAT) - (COLCND-REF13916 ':FLOAT) (AMAX-REF13917 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13907 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13908 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13909 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13910 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13912 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF13915 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF13916 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13917 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13911 AB) (R-REF13913 R) - (C-REF13914 C)) - (%%SLAQGB M-REF13907 N-REF13908 KL-REF13909 KU-REF13910 AB-REF13911 - LDAB-REF13912 R-REF13913 C-REF13914 ROWCND-REF13915 - COLCND-REF13916 AMAX-REF13917 EQUED)))) - -(CFFI:DEFCFUN ("slaqge_" %%SLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13902 ':INT32) (N-REF13903 ':INT32) + (KL-REF13904 ':INT32) (KU-REF13905 ':INT32) + (LDAB-REF13907 ':INT32) (ROWCND-REF13910 ':FLOAT) + (COLCND-REF13911 ':FLOAT) (AMAX-REF13912 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13902 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13903 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13904 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13905 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13907 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF13910 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF13911 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13912 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13906 AB) (R-REF13908 R) + (C-REF13909 C)) + (%%SLAQGB M-REF13902 N-REF13903 KL-REF13904 KU-REF13905 AB-REF13906 + LDAB-REF13907 R-REF13908 C-REF13909 ROWCND-REF13910 COLCND-REF13911 + AMAX-REF13912 EQUED)))) + +(CFFI:DEFCFUN ("slaqge_" %%SLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -10489,22 +10537,21 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13919 ':INT32) (N-REF13920 ':INT32) - (LDA-REF13922 ':INT32) (ROWCND-REF13925 ':FLOAT) - (COLCND-REF13926 ':FLOAT) (AMAX-REF13927 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13919 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13920 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13922 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF13925 :FLOAT) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF13926 :FLOAT) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13927 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13921 A) (R-REF13923 R) - (C-REF13924 C)) - (%%SLAQGE M-REF13919 N-REF13920 A-REF13921 LDA-REF13922 R-REF13923 - C-REF13924 ROWCND-REF13925 COLCND-REF13926 AMAX-REF13927 - EQUED)))) - -(CFFI:DEFCFUN ("slaqp2_" %%SLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13914 ':INT32) (N-REF13915 ':INT32) + (LDA-REF13917 ':INT32) (ROWCND-REF13920 ':FLOAT) + (COLCND-REF13921 ':FLOAT) (AMAX-REF13922 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13914 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13915 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13917 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF13920 :FLOAT) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF13921 :FLOAT) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13922 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13916 A) (R-REF13918 R) + (C-REF13919 C)) + (%%SLAQGE M-REF13914 N-REF13915 A-REF13916 LDA-REF13917 R-REF13918 + C-REF13919 ROWCND-REF13920 COLCND-REF13921 AMAX-REF13922 EQUED)))) + +(CFFI:DEFCFUN ("slaqp2_" %%SLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -10541,22 +10588,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13929 ':INT32) (N-REF13930 ':INT32) - (OFFSET-REF13931 ':INT32) (LDA-REF13933 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13929 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13930 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF13931 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13933 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13932 A) (JPVT-REF13934 JPVT) - (TAU-REF13935 TAU) - (VN1-REF13936 VN1) - (VN2-REF13937 VN2) - (WORK-REF13938 WORK)) - (%%SLAQP2 M-REF13929 N-REF13930 OFFSET-REF13931 A-REF13932 LDA-REF13933 - JPVT-REF13934 TAU-REF13935 VN1-REF13936 VN2-REF13937 - WORK-REF13938)))) - -(CFFI:DEFCFUN ("slaqps_" %%SLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13924 ':INT32) (N-REF13925 ':INT32) + (OFFSET-REF13926 ':INT32) (LDA-REF13928 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13924 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13925 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF13926 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13928 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13927 A) (JPVT-REF13929 JPVT) + (TAU-REF13930 TAU) + (VN1-REF13931 VN1) + (VN2-REF13932 VN2) + (WORK-REF13933 WORK)) + (%%SLAQP2 M-REF13924 N-REF13925 OFFSET-REF13926 A-REF13927 LDA-REF13928 + JPVT-REF13929 TAU-REF13930 VN1-REF13931 VN2-REF13932 WORK-REF13933)))) + +(CFFI:DEFCFUN ("slaqps_" %%SLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -10602,27 +10648,27 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) F) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13939 ':INT32) (N-REF13940 ':INT32) - (OFFSET-REF13941 ':INT32) (NB-REF13942 ':INT32) - (KB-REF13943 ':INT32) (LDA-REF13945 ':INT32) - (LDF-REF13952 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13939 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13940 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF13941 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13942 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF13943 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13945 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF13952 :INT32) LDF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13944 A) (JPVT-REF13946 JPVT) - (TAU-REF13947 TAU) - (VN1-REF13948 VN1) - (VN2-REF13949 VN2) - (AUXV-REF13950 AUXV) (F-REF13951 F)) - (%%SLAQPS M-REF13939 N-REF13940 OFFSET-REF13941 NB-REF13942 KB-REF13943 - A-REF13944 LDA-REF13945 JPVT-REF13946 TAU-REF13947 VN1-REF13948 - VN2-REF13949 AUXV-REF13950 F-REF13951 LDF-REF13952)))) - -(CFFI:DEFCFUN ("slaqr0_" %%SLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13934 ':INT32) (N-REF13935 ':INT32) + (OFFSET-REF13936 ':INT32) (NB-REF13937 ':INT32) + (KB-REF13938 ':INT32) (LDA-REF13940 ':INT32) + (LDF-REF13947 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13934 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13935 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF13936 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13937 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF13938 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13940 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF13947 :INT32) LDF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13939 A) (JPVT-REF13941 JPVT) + (TAU-REF13942 TAU) + (VN1-REF13943 VN1) + (VN2-REF13944 VN2) + (AUXV-REF13945 AUXV) (F-REF13946 F)) + (%%SLAQPS M-REF13934 N-REF13935 OFFSET-REF13936 NB-REF13937 KB-REF13938 + A-REF13939 LDA-REF13940 JPVT-REF13941 TAU-REF13942 VN1-REF13943 + VN2-REF13944 AUXV-REF13945 F-REF13946 LDF-REF13947)))) + +(CFFI:DEFCFUN ("slaqr0_" %%SLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -10667,32 +10713,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13953 ':INT32) (WANTZ-REF13954 ':INT32) - (N-REF13955 ':INT32) (ILO-REF13956 ':INT32) - (IHI-REF13957 ':INT32) (LDH-REF13959 ':INT32) - (ILOZ-REF13962 ':INT32) (IHIZ-REF13963 ':INT32) - (LDZ-REF13965 ':INT32) (LWORK-REF13967 ':INT32) - (INFO-REF13968 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13953 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13954 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13955 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13956 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13957 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13959 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13962 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13963 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13965 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13967 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13968 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13958 H) (WR-REF13960 WR) - (WI-REF13961 WI) (Z-REF13964 Z) - (WORK-REF13966 WORK)) - (%%SLAQR0 WANTT-REF13953 WANTZ-REF13954 N-REF13955 ILO-REF13956 - IHI-REF13957 H-REF13958 LDH-REF13959 WR-REF13960 WI-REF13961 - ILOZ-REF13962 IHIZ-REF13963 Z-REF13964 LDZ-REF13965 - WORK-REF13966 LWORK-REF13967 INFO-REF13968)))) - -(CFFI:DEFCFUN ("slaqr1_" %%SLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13948 ':INT32) (WANTZ-REF13949 ':INT32) + (N-REF13950 ':INT32) (ILO-REF13951 ':INT32) + (IHI-REF13952 ':INT32) (LDH-REF13954 ':INT32) + (ILOZ-REF13957 ':INT32) (IHIZ-REF13958 ':INT32) + (LDZ-REF13960 ':INT32) (LWORK-REF13962 ':INT32) + (INFO-REF13963 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13948 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13949 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13950 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13951 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13952 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13954 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13957 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13958 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13960 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13962 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13963 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13953 H) (WR-REF13955 WR) + (WI-REF13956 WI) (Z-REF13959 Z) + (WORK-REF13961 WORK)) + (%%SLAQR0 WANTT-REF13948 WANTZ-REF13949 N-REF13950 ILO-REF13951 + IHI-REF13952 H-REF13953 LDH-REF13954 WR-REF13955 WI-REF13956 + ILOZ-REF13957 IHIZ-REF13958 Z-REF13959 LDZ-REF13960 WORK-REF13961 + LWORK-REF13962 INFO-REF13963)))) + +(CFFI:DEFCFUN ("slaqr1_" %%SLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (H :POINTER) @@ -10715,20 +10761,20 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SI2) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13969 ':INT32) (LDH-REF13971 ':INT32) - (SR1-REF13972 ':FLOAT) (SI1-REF13973 ':FLOAT) - (SR2-REF13974 ':FLOAT) (SI2-REF13975 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13969 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13971 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF13972 :FLOAT) SR1) - (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF13973 :FLOAT) SI1) - (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF13974 :FLOAT) SR2) - (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF13975 :FLOAT) SI2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13970 H) (V-REF13976 V)) - (%%SLAQR1 N-REF13969 H-REF13970 LDH-REF13971 SR1-REF13972 SI1-REF13973 - SR2-REF13974 SI2-REF13975 V-REF13976)))) - -(CFFI:DEFCFUN ("slaqr2_" %%SLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13964 ':INT32) (LDH-REF13966 ':INT32) + (SR1-REF13967 ':FLOAT) (SI1-REF13968 ':FLOAT) + (SR2-REF13969 ':FLOAT) (SI2-REF13970 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13964 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13966 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF13967 :FLOAT) SR1) + (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF13968 :FLOAT) SI1) + (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF13969 :FLOAT) SR2) + (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF13970 :FLOAT) SI2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13965 H) (V-REF13971 V)) + (%%SLAQR1 N-REF13964 H-REF13965 LDH-REF13966 SR1-REF13967 SI1-REF13968 + SR2-REF13969 SI2-REF13970 V-REF13971)))) + +(CFFI:DEFCFUN ("slaqr2_" %%SLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -10796,46 +10842,46 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13977 ':INT32) (WANTZ-REF13978 ':INT32) - (N-REF13979 ':INT32) (KTOP-REF13980 ':INT32) - (KBOT-REF13981 ':INT32) (NW-REF13982 ':INT32) - (LDH-REF13984 ':INT32) (ILOZ-REF13985 ':INT32) - (IHIZ-REF13986 ':INT32) (LDZ-REF13988 ':INT32) - (NS-REF13989 ':INT32) (ND-REF13990 ':INT32) - (LDV-REF13994 ':INT32) (NH-REF13995 ':INT32) - (LDT-REF13997 ':INT32) (NV-REF13998 ':INT32) - (LDWV-REF14000 ':INT32) (LWORK-REF14002 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13977 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13978 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13979 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF13980 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF13981 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF13982 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13984 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13985 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13986 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13988 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF13989 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF13990 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF13994 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF13995 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13997 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF13998 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14000 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14002 :INT32) LWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13983 H) (Z-REF13987 Z) - (SR-REF13991 SR) (SI-REF13992 SI) - (V-REF13993 V) (T-REF13996 T) - (WV-REF13999 WV) - (WORK-REF14001 WORK)) - (%%SLAQR2 WANTT-REF13977 WANTZ-REF13978 N-REF13979 KTOP-REF13980 - KBOT-REF13981 NW-REF13982 H-REF13983 LDH-REF13984 ILOZ-REF13985 - IHIZ-REF13986 Z-REF13987 LDZ-REF13988 NS-REF13989 ND-REF13990 - SR-REF13991 SI-REF13992 V-REF13993 LDV-REF13994 NH-REF13995 - T-REF13996 LDT-REF13997 NV-REF13998 WV-REF13999 LDWV-REF14000 - WORK-REF14001 LWORK-REF14002)))) - -(CFFI:DEFCFUN ("slaqr3_" %%SLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13972 ':INT32) (WANTZ-REF13973 ':INT32) + (N-REF13974 ':INT32) (KTOP-REF13975 ':INT32) + (KBOT-REF13976 ':INT32) (NW-REF13977 ':INT32) + (LDH-REF13979 ':INT32) (ILOZ-REF13980 ':INT32) + (IHIZ-REF13981 ':INT32) (LDZ-REF13983 ':INT32) + (NS-REF13984 ':INT32) (ND-REF13985 ':INT32) + (LDV-REF13989 ':INT32) (NH-REF13990 ':INT32) + (LDT-REF13992 ':INT32) (NV-REF13993 ':INT32) + (LDWV-REF13995 ':INT32) (LWORK-REF13997 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13972 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13973 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13974 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF13975 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF13976 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF13977 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13979 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13980 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13981 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13983 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF13984 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF13985 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF13989 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF13990 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13992 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF13993 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF13995 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13997 :INT32) LWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13978 H) (Z-REF13982 Z) + (SR-REF13986 SR) (SI-REF13987 SI) + (V-REF13988 V) (T-REF13991 T) + (WV-REF13994 WV) + (WORK-REF13996 WORK)) + (%%SLAQR2 WANTT-REF13972 WANTZ-REF13973 N-REF13974 KTOP-REF13975 + KBOT-REF13976 NW-REF13977 H-REF13978 LDH-REF13979 ILOZ-REF13980 + IHIZ-REF13981 Z-REF13982 LDZ-REF13983 NS-REF13984 ND-REF13985 + SR-REF13986 SI-REF13987 V-REF13988 LDV-REF13989 NH-REF13990 T-REF13991 + LDT-REF13992 NV-REF13993 WV-REF13994 LDWV-REF13995 WORK-REF13996 + LWORK-REF13997)))) + +(CFFI:DEFCFUN ("slaqr3_" %%SLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -10903,46 +10949,46 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14003 ':INT32) (WANTZ-REF14004 ':INT32) - (N-REF14005 ':INT32) (KTOP-REF14006 ':INT32) - (KBOT-REF14007 ':INT32) (NW-REF14008 ':INT32) - (LDH-REF14010 ':INT32) (ILOZ-REF14011 ':INT32) - (IHIZ-REF14012 ':INT32) (LDZ-REF14014 ':INT32) - (NS-REF14015 ':INT32) (ND-REF14016 ':INT32) - (LDV-REF14020 ':INT32) (NH-REF14021 ':INT32) - (LDT-REF14023 ':INT32) (NV-REF14024 ':INT32) - (LDWV-REF14026 ':INT32) (LWORK-REF14028 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14003 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14004 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14005 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF14006 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF14007 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF14008 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14010 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14011 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14012 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14014 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF14015 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF14016 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14020 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF14021 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14023 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF14024 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14026 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14028 :INT32) LWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF14009 H) (Z-REF14013 Z) - (SR-REF14017 SR) (SI-REF14018 SI) - (V-REF14019 V) (T-REF14022 T) - (WV-REF14025 WV) - (WORK-REF14027 WORK)) - (%%SLAQR3 WANTT-REF14003 WANTZ-REF14004 N-REF14005 KTOP-REF14006 - KBOT-REF14007 NW-REF14008 H-REF14009 LDH-REF14010 ILOZ-REF14011 - IHIZ-REF14012 Z-REF14013 LDZ-REF14014 NS-REF14015 ND-REF14016 - SR-REF14017 SI-REF14018 V-REF14019 LDV-REF14020 NH-REF14021 - T-REF14022 LDT-REF14023 NV-REF14024 WV-REF14025 LDWV-REF14026 - WORK-REF14027 LWORK-REF14028)))) - -(CFFI:DEFCFUN ("slaqr4_" %%SLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13998 ':INT32) (WANTZ-REF13999 ':INT32) + (N-REF14000 ':INT32) (KTOP-REF14001 ':INT32) + (KBOT-REF14002 ':INT32) (NW-REF14003 ':INT32) + (LDH-REF14005 ':INT32) (ILOZ-REF14006 ':INT32) + (IHIZ-REF14007 ':INT32) (LDZ-REF14009 ':INT32) + (NS-REF14010 ':INT32) (ND-REF14011 ':INT32) + (LDV-REF14015 ':INT32) (NH-REF14016 ':INT32) + (LDT-REF14018 ':INT32) (NV-REF14019 ':INT32) + (LDWV-REF14021 ':INT32) (LWORK-REF14023 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13998 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13999 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14000 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF14001 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF14002 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF14003 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14005 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14006 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14007 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14009 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF14010 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF14011 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14015 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF14016 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14018 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF14019 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14021 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14023 :INT32) LWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF14004 H) (Z-REF14008 Z) + (SR-REF14012 SR) (SI-REF14013 SI) + (V-REF14014 V) (T-REF14017 T) + (WV-REF14020 WV) + (WORK-REF14022 WORK)) + (%%SLAQR3 WANTT-REF13998 WANTZ-REF13999 N-REF14000 KTOP-REF14001 + KBOT-REF14002 NW-REF14003 H-REF14004 LDH-REF14005 ILOZ-REF14006 + IHIZ-REF14007 Z-REF14008 LDZ-REF14009 NS-REF14010 ND-REF14011 + SR-REF14012 SI-REF14013 V-REF14014 LDV-REF14015 NH-REF14016 T-REF14017 + LDT-REF14018 NV-REF14019 WV-REF14020 LDWV-REF14021 WORK-REF14022 + LWORK-REF14023)))) + +(CFFI:DEFCFUN ("slaqr4_" %%SLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -10987,32 +11033,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14029 ':INT32) (WANTZ-REF14030 ':INT32) - (N-REF14031 ':INT32) (ILO-REF14032 ':INT32) - (IHI-REF14033 ':INT32) (LDH-REF14035 ':INT32) - (ILOZ-REF14038 ':INT32) (IHIZ-REF14039 ':INT32) - (LDZ-REF14041 ':INT32) (LWORK-REF14043 ':INT32) - (INFO-REF14044 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14029 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14030 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14031 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF14032 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF14033 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14035 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14038 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14039 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14041 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14043 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14044 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF14034 H) (WR-REF14036 WR) - (WI-REF14037 WI) (Z-REF14040 Z) - (WORK-REF14042 WORK)) - (%%SLAQR4 WANTT-REF14029 WANTZ-REF14030 N-REF14031 ILO-REF14032 - IHI-REF14033 H-REF14034 LDH-REF14035 WR-REF14036 WI-REF14037 - ILOZ-REF14038 IHIZ-REF14039 Z-REF14040 LDZ-REF14041 - WORK-REF14042 LWORK-REF14043 INFO-REF14044)))) - -(CFFI:DEFCFUN ("slaqr5_" %%SLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14024 ':INT32) (WANTZ-REF14025 ':INT32) + (N-REF14026 ':INT32) (ILO-REF14027 ':INT32) + (IHI-REF14028 ':INT32) (LDH-REF14030 ':INT32) + (ILOZ-REF14033 ':INT32) (IHIZ-REF14034 ':INT32) + (LDZ-REF14036 ':INT32) (LWORK-REF14038 ':INT32) + (INFO-REF14039 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14024 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14025 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14026 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF14027 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF14028 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14030 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14033 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14034 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14036 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14038 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14039 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF14029 H) (WR-REF14031 WR) + (WI-REF14032 WI) (Z-REF14035 Z) + (WORK-REF14037 WORK)) + (%%SLAQR4 WANTT-REF14024 WANTZ-REF14025 N-REF14026 ILO-REF14027 + IHI-REF14028 H-REF14029 LDH-REF14030 WR-REF14031 WI-REF14032 + ILOZ-REF14033 IHIZ-REF14034 Z-REF14035 LDZ-REF14036 WORK-REF14037 + LWORK-REF14038 INFO-REF14039)))) + +(CFFI:DEFCFUN ("slaqr5_" %%SLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -11077,44 +11123,43 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WH) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14045 ':INT32) (WANTZ-REF14046 ':INT32) - (KACC22-REF14047 ':INT32) (N-REF14048 ':INT32) - (KTOP-REF14049 ':INT32) (KBOT-REF14050 ':INT32) - (NSHFTS-REF14051 ':INT32) (LDH-REF14055 ':INT32) - (ILOZ-REF14056 ':INT32) (IHIZ-REF14057 ':INT32) - (LDZ-REF14059 ':INT32) (LDV-REF14061 ':INT32) - (LDU-REF14063 ':INT32) (NV-REF14064 ':INT32) - (LDWV-REF14066 ':INT32) (NH-REF14067 ':INT32) - (LDWH-REF14069 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14045 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14046 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF14047 :INT32) KACC22) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14048 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF14049 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF14050 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF14051 :INT32) NSHFTS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14055 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14056 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14057 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14059 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14061 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14063 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF14064 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14066 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF14067 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF14069 :INT32) LDWH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF14052 SR) (SI-REF14053 SI) - (H-REF14054 H) (Z-REF14058 Z) - (V-REF14060 V) (U-REF14062 U) - (WV-REF14065 WV) (WH-REF14068 WH)) - (%%SLAQR5 WANTT-REF14045 WANTZ-REF14046 KACC22-REF14047 N-REF14048 - KTOP-REF14049 KBOT-REF14050 NSHFTS-REF14051 SR-REF14052 - SI-REF14053 H-REF14054 LDH-REF14055 ILOZ-REF14056 IHIZ-REF14057 - Z-REF14058 LDZ-REF14059 V-REF14060 LDV-REF14061 U-REF14062 - LDU-REF14063 NV-REF14064 WV-REF14065 LDWV-REF14066 NH-REF14067 - WH-REF14068 LDWH-REF14069)))) - -(CFFI:DEFCFUN ("slaqsb_" %%SLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14040 ':INT32) (WANTZ-REF14041 ':INT32) + (KACC22-REF14042 ':INT32) (N-REF14043 ':INT32) + (KTOP-REF14044 ':INT32) (KBOT-REF14045 ':INT32) + (NSHFTS-REF14046 ':INT32) (LDH-REF14050 ':INT32) + (ILOZ-REF14051 ':INT32) (IHIZ-REF14052 ':INT32) + (LDZ-REF14054 ':INT32) (LDV-REF14056 ':INT32) + (LDU-REF14058 ':INT32) (NV-REF14059 ':INT32) + (LDWV-REF14061 ':INT32) (NH-REF14062 ':INT32) + (LDWH-REF14064 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14040 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14041 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF14042 :INT32) KACC22) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14043 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF14044 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF14045 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF14046 :INT32) NSHFTS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14050 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14051 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14052 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14054 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14056 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14058 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF14059 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14061 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF14062 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF14064 :INT32) LDWH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF14047 SR) (SI-REF14048 SI) + (H-REF14049 H) (Z-REF14053 Z) + (V-REF14055 V) (U-REF14057 U) + (WV-REF14060 WV) (WH-REF14063 WH)) + (%%SLAQR5 WANTT-REF14040 WANTZ-REF14041 KACC22-REF14042 N-REF14043 + KTOP-REF14044 KBOT-REF14045 NSHFTS-REF14046 SR-REF14047 SI-REF14048 + H-REF14049 LDH-REF14050 ILOZ-REF14051 IHIZ-REF14052 Z-REF14053 + LDZ-REF14054 V-REF14055 LDV-REF14056 U-REF14057 LDU-REF14058 NV-REF14059 + WV-REF14060 LDWV-REF14061 NH-REF14062 WH-REF14063 LDWH-REF14064)))) + +(CFFI:DEFCFUN ("slaqsb_" %%SLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11139,19 +11184,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14071 ':INT32) (KD-REF14072 ':INT32) - (LDAB-REF14074 ':INT32) (SCOND-REF14076 ':FLOAT) - (AMAX-REF14077 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14071 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14072 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14074 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14076 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14077 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14073 AB) (S-REF14075 S)) - (%%SLAQSB UPLO N-REF14071 KD-REF14072 AB-REF14073 LDAB-REF14074 - S-REF14075 SCOND-REF14076 AMAX-REF14077 EQUED)))) - -(CFFI:DEFCFUN ("slaqsp_" %%SLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14066 ':INT32) (KD-REF14067 ':INT32) + (LDAB-REF14069 ':INT32) (SCOND-REF14071 ':FLOAT) + (AMAX-REF14072 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14066 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14067 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14069 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14071 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14072 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14068 AB) (S-REF14070 S)) + (%%SLAQSB UPLO N-REF14066 KD-REF14067 AB-REF14068 LDAB-REF14069 + S-REF14070 SCOND-REF14071 AMAX-REF14072 EQUED)))) + +(CFFI:DEFCFUN ("slaqsp_" %%SLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11172,16 +11217,16 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14080 ':INT32) (SCOND-REF14083 ':FLOAT) - (AMAX-REF14084 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14080 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14083 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14084 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14081 AP) (S-REF14082 S)) - (%%SLAQSP UPLO N-REF14080 AP-REF14081 S-REF14082 SCOND-REF14083 - AMAX-REF14084 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14075 ':INT32) (SCOND-REF14078 ':FLOAT) + (AMAX-REF14079 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14075 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14078 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14079 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14076 AP) (S-REF14077 S)) + (%%SLAQSP UPLO N-REF14075 AP-REF14076 S-REF14077 SCOND-REF14078 + AMAX-REF14079 EQUED)))) -(CFFI:DEFCFUN ("slaqsy_" %%SLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slaqsy_" %%SLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11204,17 +11249,17 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14087 ':INT32) (LDA-REF14089 ':INT32) - (SCOND-REF14091 ':FLOAT) (AMAX-REF14092 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14087 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14089 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14091 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14092 :FLOAT) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14088 A) (S-REF14090 S)) - (%%SLAQSY UPLO N-REF14087 A-REF14088 LDA-REF14089 S-REF14090 - SCOND-REF14091 AMAX-REF14092 EQUED)))) - -(CFFI:DEFCFUN ("slaqtr_" %%SLAQTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14082 ':INT32) (LDA-REF14084 ':INT32) + (SCOND-REF14086 ':FLOAT) (AMAX-REF14087 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14082 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14084 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF14086 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14087 :FLOAT) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14083 A) (S-REF14085 S)) + (%%SLAQSY UPLO N-REF14082 A-REF14083 LDA-REF14084 S-REF14085 + SCOND-REF14086 AMAX-REF14087 EQUED)))) + +(CFFI:DEFCFUN ("slaqtr_" %%SLAQTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (LTRAN :POINTER) (LREAL :POINTER) @@ -11246,24 +11291,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF14094 ':INT32) (LREAL-REF14095 ':INT32) - (N-REF14096 ':INT32) (LDT-REF14098 ':INT32) - (W-REF14100 ':FLOAT) (SCALE-REF14101 ':FLOAT) - (INFO-REF14104 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF14094 :INT32) LTRAN) - (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF14095 :INT32) LREAL) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14096 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14098 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF W-REF14100 :FLOAT) W) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14101 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14104 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF14097 T) (B-REF14099 B) - (X-REF14102 X) (WORK-REF14103 WORK)) - (%%SLAQTR LTRAN-REF14094 LREAL-REF14095 N-REF14096 T-REF14097 - LDT-REF14098 B-REF14099 W-REF14100 SCALE-REF14101 X-REF14102 - WORK-REF14103 INFO-REF14104)))) - -(CFFI:DEFCFUN ("slar1v_" %%SLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF14089 ':INT32) (LREAL-REF14090 ':INT32) + (N-REF14091 ':INT32) (LDT-REF14093 ':INT32) + (W-REF14095 ':FLOAT) (SCALE-REF14096 ':FLOAT) + (INFO-REF14099 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF14089 :INT32) LTRAN) + (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF14090 :INT32) LREAL) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14091 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14093 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF W-REF14095 :FLOAT) W) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14096 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14099 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF14092 T) (B-REF14094 B) + (X-REF14097 X) (WORK-REF14098 WORK)) + (%%SLAQTR LTRAN-REF14089 LREAL-REF14090 N-REF14091 T-REF14092 + LDT-REF14093 B-REF14094 W-REF14095 SCALE-REF14096 X-REF14097 + WORK-REF14098 INFO-REF14099)))) + +(CFFI:DEFCFUN ("slar1v_" %%SLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (B1 :POINTER) @@ -11323,42 +11368,42 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14105 ':INT32) (B1-REF14106 ':INT32) - (BN-REF14107 ':INT32) (LAMBDA-REF14108 ':FLOAT) - (PIVMIN-REF14113 ':FLOAT) - (GAPTOL-REF14114 ':FLOAT) - (WANTNC-REF14116 ':INT32) - (NEGCNT-REF14117 ':INT32) (ZTZ-REF14118 ':FLOAT) - (MINGMA-REF14119 ':FLOAT) (R-REF14120 ':INT32) - (NRMINV-REF14122 ':FLOAT) - (RESID-REF14123 ':FLOAT) - (RQCORR-REF14124 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14105 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF14106 :INT32) B1) - (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF14107 :INT32) BN) - (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF14108 :FLOAT) LAMBDA) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14113 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF14114 :FLOAT) GAPTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF14116 :INT32) WANTNC) - (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF14117 :INT32) NEGCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF14118 :FLOAT) ZTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF14119 :FLOAT) MINGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14120 :INT32) R) - (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF14122 :FLOAT) NRMINV) - (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF14123 :FLOAT) RESID) - (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF14124 :FLOAT) RQCORR) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14109 D) (L-REF14110 L) - (LD-REF14111 LD) (LLD-REF14112 LLD) - (Z-REF14115 Z) - (ISUPPZ-REF14121 ISUPPZ) - (WORK-REF14125 WORK)) - (%%SLAR1V N-REF14105 B1-REF14106 BN-REF14107 LAMBDA-REF14108 D-REF14109 - L-REF14110 LD-REF14111 LLD-REF14112 PIVMIN-REF14113 - GAPTOL-REF14114 Z-REF14115 WANTNC-REF14116 NEGCNT-REF14117 - ZTZ-REF14118 MINGMA-REF14119 R-REF14120 ISUPPZ-REF14121 - NRMINV-REF14122 RESID-REF14123 RQCORR-REF14124 WORK-REF14125)))) - -(CFFI:DEFCFUN ("slar2v_" %%SLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14100 ':INT32) (B1-REF14101 ':INT32) + (BN-REF14102 ':INT32) (LAMBDA-REF14103 ':FLOAT) + (PIVMIN-REF14108 ':FLOAT) + (GAPTOL-REF14109 ':FLOAT) + (WANTNC-REF14111 ':INT32) + (NEGCNT-REF14112 ':INT32) (ZTZ-REF14113 ':FLOAT) + (MINGMA-REF14114 ':FLOAT) (R-REF14115 ':INT32) + (NRMINV-REF14117 ':FLOAT) + (RESID-REF14118 ':FLOAT) + (RQCORR-REF14119 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14100 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF14101 :INT32) B1) + (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF14102 :INT32) BN) + (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF14103 :FLOAT) LAMBDA) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14108 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF14109 :FLOAT) GAPTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF14111 :INT32) WANTNC) + (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF14112 :INT32) NEGCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF14113 :FLOAT) ZTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF14114 :FLOAT) MINGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14115 :INT32) R) + (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF14117 :FLOAT) NRMINV) + (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF14118 :FLOAT) RESID) + (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF14119 :FLOAT) RQCORR) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14104 D) (L-REF14105 L) + (LD-REF14106 LD) (LLD-REF14107 LLD) + (Z-REF14110 Z) + (ISUPPZ-REF14116 ISUPPZ) + (WORK-REF14120 WORK)) + (%%SLAR1V N-REF14100 B1-REF14101 BN-REF14102 LAMBDA-REF14103 D-REF14104 + L-REF14105 LD-REF14106 LLD-REF14107 PIVMIN-REF14108 GAPTOL-REF14109 + Z-REF14110 WANTNC-REF14111 NEGCNT-REF14112 ZTZ-REF14113 MINGMA-REF14114 + R-REF14115 ISUPPZ-REF14116 NRMINV-REF14117 RESID-REF14118 + RQCORR-REF14119 WORK-REF14120)))) + +(CFFI:DEFCFUN ("slar2v_" %%SLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -11384,18 +11429,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14126 ':INT32) (INCX-REF14130 ':INT32) - (INCC-REF14133 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14126 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14130 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14133 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14127 X) (Y-REF14128 Y) - (Z-REF14129 Z) (C-REF14131 C) - (S-REF14132 S)) - (%%SLAR2V N-REF14126 X-REF14127 Y-REF14128 Z-REF14129 INCX-REF14130 - C-REF14131 S-REF14132 INCC-REF14133)))) - -(CFFI:DEFCFUN ("slarf_" %%SLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14121 ':INT32) (INCX-REF14125 ':INT32) + (INCC-REF14128 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14121 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14125 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14128 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14122 X) (Y-REF14123 Y) + (Z-REF14124 Z) (C-REF14126 C) + (S-REF14127 S)) + (%%SLAR2V N-REF14121 X-REF14122 Y-REF14123 Z-REF14124 INCX-REF14125 + C-REF14126 S-REF14127 INCC-REF14128)))) + +(CFFI:DEFCFUN ("slarf_" %%SLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -11422,20 +11467,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14135 ':INT32) (N-REF14136 ':INT32) - (INCV-REF14138 ':INT32) (TAU-REF14139 ':FLOAT) - (LDC-REF14141 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14135 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14136 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14138 :INT32) INCV) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14139 :FLOAT) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14141 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14137 V) (C-REF14140 C) - (WORK-REF14142 WORK)) - (%%SLARF SIDE M-REF14135 N-REF14136 V-REF14137 INCV-REF14138 TAU-REF14139 - C-REF14140 LDC-REF14141 WORK-REF14142)))) - -(CFFI:DEFCFUN ("slarfb_" %%SLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14130 ':INT32) (N-REF14131 ':INT32) + (INCV-REF14133 ':INT32) (TAU-REF14134 ':FLOAT) + (LDC-REF14136 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14130 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14131 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14133 :INT32) INCV) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14134 :FLOAT) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14136 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14132 V) (C-REF14135 C) + (WORK-REF14137 WORK)) + (%%SLARF SIDE M-REF14130 N-REF14131 V-REF14132 INCV-REF14133 TAU-REF14134 + C-REF14135 LDC-REF14136 WORK-REF14137)))) + +(CFFI:DEFCFUN ("slarfb_" %%SLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -11477,24 +11522,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14147 ':INT32) (N-REF14148 ':INT32) - (K-REF14149 ':INT32) (LDV-REF14151 ':INT32) - (LDT-REF14153 ':INT32) (LDC-REF14155 ':INT32) - (LDWORK-REF14157 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14147 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14148 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14149 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14151 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14153 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14155 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14157 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14150 V) (T-REF14152 T) - (C-REF14154 C) (WORK-REF14156 WORK)) - (%%SLARFB SIDE TRANS DIRECT STOREV M-REF14147 N-REF14148 K-REF14149 - V-REF14150 LDV-REF14151 T-REF14152 LDT-REF14153 C-REF14154 - LDC-REF14155 WORK-REF14156 LDWORK-REF14157)))) - -(CFFI:DEFCFUN ("slarfg_" %%SLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14142 ':INT32) (N-REF14143 ':INT32) + (K-REF14144 ':INT32) (LDV-REF14146 ':INT32) + (LDT-REF14148 ':INT32) (LDC-REF14150 ':INT32) + (LDWORK-REF14152 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14142 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14143 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14144 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14146 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14148 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14150 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14152 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14145 V) (T-REF14147 T) + (C-REF14149 C) (WORK-REF14151 WORK)) + (%%SLARFB SIDE TRANS DIRECT STOREV M-REF14142 N-REF14143 K-REF14144 + V-REF14145 LDV-REF14146 T-REF14147 LDT-REF14148 C-REF14149 LDC-REF14150 + WORK-REF14151 LDWORK-REF14152)))) + +(CFFI:DEFCFUN ("slarfg_" %%SLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ALPHA :POINTER) @@ -11510,17 +11555,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14158 ':INT32) (ALPHA-REF14159 ':FLOAT) - (INCX-REF14161 ':INT32) (TAU-REF14162 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14158 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14159 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14161 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14162 :FLOAT) TAU) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14160 X)) - (%%SLARFG N-REF14158 ALPHA-REF14159 X-REF14160 INCX-REF14161 - TAU-REF14162)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14153 ':INT32) (ALPHA-REF14154 ':FLOAT) + (INCX-REF14156 ':INT32) (TAU-REF14157 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14153 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14154 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14156 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14157 :FLOAT) TAU) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14155 X)) + (%%SLARFG N-REF14153 ALPHA-REF14154 X-REF14155 INCX-REF14156 + TAU-REF14157)))) -(CFFI:DEFCFUN ("slarfgp_" %%SLARFGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slarfgp_" %%SLARFGP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ALPHA :POINTER) @@ -11536,17 +11582,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14163 ':INT32) (ALPHA-REF14164 ':FLOAT) - (INCX-REF14166 ':INT32) (TAU-REF14167 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14163 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14164 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14166 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14167 :FLOAT) TAU) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14165 X)) - (%%SLARFGP N-REF14163 ALPHA-REF14164 X-REF14165 INCX-REF14166 - TAU-REF14167)))) - -(CFFI:DEFCFUN ("slarft_" %%SLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14158 ':INT32) (ALPHA-REF14159 ':FLOAT) + (INCX-REF14161 ':INT32) (TAU-REF14162 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14158 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14159 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14161 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14162 :FLOAT) TAU) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14160 X)) + (%%SLARFGP N-REF14158 ALPHA-REF14159 X-REF14160 INCX-REF14161 + TAU-REF14162)))) + +(CFFI:DEFCFUN ("slarft_" %%SLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (DIRECT :STRING) (STOREV :STRING) @@ -11573,18 +11619,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14170 ':INT32) (K-REF14171 ':INT32) - (LDV-REF14173 ':INT32) (LDT-REF14176 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14170 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14171 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14173 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14176 :INT32) LDT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14172 V) (TAU-REF14174 TAU) - (T-REF14175 T)) - (%%SLARFT DIRECT STOREV N-REF14170 K-REF14171 V-REF14172 LDV-REF14173 - TAU-REF14174 T-REF14175 LDT-REF14176)))) - -(CFFI:DEFCFUN ("slarfx_" %%SLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14165 ':INT32) (K-REF14166 ':INT32) + (LDV-REF14168 ':INT32) (LDT-REF14171 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14165 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14166 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14168 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14171 :INT32) LDT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14167 V) (TAU-REF14169 TAU) + (T-REF14170 T)) + (%%SLARFT DIRECT STOREV N-REF14165 K-REF14166 V-REF14167 LDV-REF14168 + TAU-REF14169 T-REF14170 LDT-REF14171)))) + +(CFFI:DEFCFUN ("slarfx_" %%SLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -11609,18 +11655,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14178 ':INT32) (N-REF14179 ':INT32) - (TAU-REF14181 ':FLOAT) (LDC-REF14183 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14178 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14179 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14181 :FLOAT) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14183 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14180 V) (C-REF14182 C) - (WORK-REF14184 WORK)) - (%%SLARFX SIDE M-REF14178 N-REF14179 V-REF14180 TAU-REF14181 C-REF14182 - LDC-REF14183 WORK-REF14184)))) - -(CFFI:DEFCFUN ("slarfy_" %%SLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14173 ':INT32) (N-REF14174 ':INT32) + (TAU-REF14176 ':FLOAT) (LDC-REF14178 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14173 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14174 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14176 :FLOAT) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14178 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14175 V) (C-REF14177 C) + (WORK-REF14179 WORK)) + (%%SLARFX SIDE M-REF14173 N-REF14174 V-REF14175 TAU-REF14176 C-REF14177 + LDC-REF14178 WORK-REF14179)))) + +(CFFI:DEFCFUN ("slarfy_" %%SLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11645,18 +11691,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14186 ':INT32) (INCV-REF14188 ':INT32) - (TAU-REF14189 ':FLOAT) (LDC-REF14191 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14186 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14188 :INT32) INCV) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14189 :FLOAT) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14191 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14187 V) (C-REF14190 C) - (WORK-REF14192 WORK)) - (%%SLARFY UPLO N-REF14186 V-REF14187 INCV-REF14188 TAU-REF14189 - C-REF14190 LDC-REF14191 WORK-REF14192)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14181 ':INT32) (INCV-REF14183 ':INT32) + (TAU-REF14184 ':FLOAT) (LDC-REF14186 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14181 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14183 :INT32) INCV) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14184 :FLOAT) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14186 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14182 V) (C-REF14185 C) + (WORK-REF14187 WORK)) + (%%SLARFY UPLO N-REF14181 V-REF14182 INCV-REF14183 TAU-REF14184 + C-REF14185 LDC-REF14186 WORK-REF14187)))) -(CFFI:DEFCFUN ("slargv_" %%SLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slargv_" %%SLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -11678,18 +11724,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14193 ':INT32) (INCX-REF14195 ':INT32) - (INCY-REF14197 ':INT32) (INCC-REF14199 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14193 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14195 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF14197 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14199 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14194 X) (Y-REF14196 Y) - (C-REF14198 C)) - (%%SLARGV N-REF14193 X-REF14194 INCX-REF14195 Y-REF14196 INCY-REF14197 - C-REF14198 INCC-REF14199)))) - -(CFFI:DEFCFUN ("slarnv_" %%SLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14188 ':INT32) (INCX-REF14190 ':INT32) + (INCY-REF14192 ':INT32) (INCC-REF14194 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14188 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14190 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF14192 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14194 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14189 X) (Y-REF14191 Y) + (C-REF14193 C)) + (%%SLARGV N-REF14188 X-REF14189 INCX-REF14190 Y-REF14191 INCY-REF14192 + C-REF14193 INCC-REF14194)))) + +(CFFI:DEFCFUN ("slarnv_" %%SLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IDIST :POINTER) (ISEED :POINTER) @@ -11706,14 +11752,14 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)) - (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF14200 ':INT32) (N-REF14202 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF14200 :INT32) IDIST) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14202 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF14201 ISEED) - (X-REF14203 X)) - (%%SLARNV IDIST-REF14200 ISEED-REF14201 N-REF14202 X-REF14203)))) + (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF14195 ':INT32) (N-REF14197 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF14195 :INT32) IDIST) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14197 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF14196 ISEED) + (X-REF14198 X)) + (%%SLARNV IDIST-REF14195 ISEED-REF14196 N-REF14197 X-REF14198)))) -(CFFI:DEFCFUN ("slarra_" %%SLARRA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slarra_" %%SLARRA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -11742,21 +11788,21 @@ (COMMON-LISP:*)) ISPLIT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14204 ':INT32) (SPLTOL-REF14208 ':FLOAT) - (TNRM-REF14209 ':FLOAT) (NSPLIT-REF14210 ':INT32) - (INFO-REF14212 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14204 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF14208 :FLOAT) SPLTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF14209 :FLOAT) TNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14210 :INT32) NSPLIT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14212 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14205 D) (E-REF14206 E) - (E2-REF14207 E2) - (ISPLIT-REF14211 ISPLIT)) - (%%SLARRA N-REF14204 D-REF14205 E-REF14206 E2-REF14207 SPLTOL-REF14208 - TNRM-REF14209 NSPLIT-REF14210 ISPLIT-REF14211 INFO-REF14212)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14199 ':INT32) (SPLTOL-REF14203 ':FLOAT) + (TNRM-REF14204 ':FLOAT) (NSPLIT-REF14205 ':INT32) + (INFO-REF14207 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14199 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF14203 :FLOAT) SPLTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF14204 :FLOAT) TNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14205 :INT32) NSPLIT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14207 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14200 D) (E-REF14201 E) + (E2-REF14202 E2) + (ISPLIT-REF14206 ISPLIT)) + (%%SLARRA N-REF14199 D-REF14200 E-REF14201 E2-REF14202 SPLTOL-REF14203 + TNRM-REF14204 NSPLIT-REF14205 ISPLIT-REF14206 INFO-REF14207)))) -(CFFI:DEFCFUN ("slarrb_" %%SLARRB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slarrb_" %%SLARRB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -11810,35 +11856,34 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TWIST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14213 ':INT32) (IFIRST-REF14216 ':INT32) - (ILAST-REF14217 ':INT32) (RTOL1-REF14218 ':FLOAT) - (RTOL2-REF14219 ':FLOAT) - (OFFSET-REF14220 ':INT32) - (PIVMIN-REF14226 ':FLOAT) - (SPDIAM-REF14227 ':FLOAT) - (TWIST-REF14228 ':INT32) (INFO-REF14229 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14213 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF14216 :INT32) IFIRST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF14217 :INT32) ILAST) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14218 :FLOAT) RTOL1) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14219 :FLOAT) RTOL2) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF14220 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14226 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14227 :FLOAT) SPDIAM) - (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF14228 :INT32) TWIST) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14229 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14214 D) (LLD-REF14215 LLD) - (W-REF14221 W) (WGAP-REF14222 WGAP) - (WERR-REF14223 WERR) - (WORK-REF14224 WORK) - (IWORK-REF14225 IWORK)) - (%%SLARRB N-REF14213 D-REF14214 LLD-REF14215 IFIRST-REF14216 - ILAST-REF14217 RTOL1-REF14218 RTOL2-REF14219 OFFSET-REF14220 - W-REF14221 WGAP-REF14222 WERR-REF14223 WORK-REF14224 - IWORK-REF14225 PIVMIN-REF14226 SPDIAM-REF14227 TWIST-REF14228 - INFO-REF14229)))) - -(CFFI:DEFCFUN ("slarrc_" %%SLARRC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14208 ':INT32) (IFIRST-REF14211 ':INT32) + (ILAST-REF14212 ':INT32) (RTOL1-REF14213 ':FLOAT) + (RTOL2-REF14214 ':FLOAT) + (OFFSET-REF14215 ':INT32) + (PIVMIN-REF14221 ':FLOAT) + (SPDIAM-REF14222 ':FLOAT) + (TWIST-REF14223 ':INT32) (INFO-REF14224 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14208 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF14211 :INT32) IFIRST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF14212 :INT32) ILAST) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14213 :FLOAT) RTOL1) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14214 :FLOAT) RTOL2) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF14215 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14221 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14222 :FLOAT) SPDIAM) + (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF14223 :INT32) TWIST) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14224 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14209 D) (LLD-REF14210 LLD) + (W-REF14216 W) (WGAP-REF14217 WGAP) + (WERR-REF14218 WERR) + (WORK-REF14219 WORK) + (IWORK-REF14220 IWORK)) + (%%SLARRB N-REF14208 D-REF14209 LLD-REF14210 IFIRST-REF14211 + ILAST-REF14212 RTOL1-REF14213 RTOL2-REF14214 OFFSET-REF14215 W-REF14216 + WGAP-REF14217 WERR-REF14218 WORK-REF14219 IWORK-REF14220 PIVMIN-REF14221 + SPDIAM-REF14222 TWIST-REF14223 INFO-REF14224)))) + +(CFFI:DEFCFUN ("slarrc_" %%SLARRC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBT :STRING) (N :POINTER) @@ -11867,24 +11912,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCNT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RCNT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14231 ':INT32) (VL-REF14232 ':FLOAT) - (VU-REF14233 ':FLOAT) (PIVMIN-REF14236 ':FLOAT) - (EIGCNT-REF14237 ':INT32) (LCNT-REF14238 ':INT32) - (RCNT-REF14239 ':INT32) (INFO-REF14240 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14231 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14232 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14233 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14236 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF14237 :INT32) EIGCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF14238 :INT32) LCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF14239 :INT32) RCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14240 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14234 D) (E-REF14235 E)) - (%%SLARRC JOBT N-REF14231 VL-REF14232 VU-REF14233 D-REF14234 E-REF14235 - PIVMIN-REF14236 EIGCNT-REF14237 LCNT-REF14238 RCNT-REF14239 - INFO-REF14240)))) - -(CFFI:DEFCFUN ("slarrd_" %%SLARRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14226 ':INT32) (VL-REF14227 ':FLOAT) + (VU-REF14228 ':FLOAT) (PIVMIN-REF14231 ':FLOAT) + (EIGCNT-REF14232 ':INT32) (LCNT-REF14233 ':INT32) + (RCNT-REF14234 ':INT32) (INFO-REF14235 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14226 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14227 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14228 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14231 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF14232 :INT32) EIGCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF14233 :INT32) LCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF14234 :INT32) RCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14235 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14229 D) (E-REF14230 E)) + (%%SLARRC JOBT N-REF14226 VL-REF14227 VU-REF14228 D-REF14229 E-REF14230 + PIVMIN-REF14231 EIGCNT-REF14232 LCNT-REF14233 RCNT-REF14234 + INFO-REF14235)))) + +(CFFI:DEFCFUN ("slarrd_" %%SLARRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RANGE :STRING) (ORDER :STRING) @@ -11963,41 +12008,40 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14243 ':INT32) (VL-REF14244 ':FLOAT) - (VU-REF14245 ':FLOAT) (IL-REF14246 ':INT32) - (IU-REF14247 ':INT32) (RELTOL-REF14249 ':FLOAT) - (PIVMIN-REF14253 ':FLOAT) - (NSPLIT-REF14254 ':INT32) (M-REF14256 ':INT32) - (WL-REF14259 ':FLOAT) (WU-REF14260 ':FLOAT) - (INFO-REF14265 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14243 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14244 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14245 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF14246 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF14247 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF14249 :FLOAT) RELTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14253 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14254 :INT32) NSPLIT) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14256 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF14259 :FLOAT) WL) - (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF14260 :FLOAT) WU) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14265 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF14248 GERS) (D-REF14250 D) - (E-REF14251 E) (E2-REF14252 E2) - (ISPLIT-REF14255 ISPLIT) - (W-REF14257 W) (WERR-REF14258 WERR) - (IBLOCK-REF14261 IBLOCK) - (INDEXW-REF14262 INDEXW) - (WORK-REF14263 WORK) - (IWORK-REF14264 IWORK)) - (%%SLARRD RANGE ORDER N-REF14243 VL-REF14244 VU-REF14245 IL-REF14246 - IU-REF14247 GERS-REF14248 RELTOL-REF14249 D-REF14250 E-REF14251 - E2-REF14252 PIVMIN-REF14253 NSPLIT-REF14254 ISPLIT-REF14255 - M-REF14256 W-REF14257 WERR-REF14258 WL-REF14259 WU-REF14260 - IBLOCK-REF14261 INDEXW-REF14262 WORK-REF14263 IWORK-REF14264 - INFO-REF14265)))) - -(CFFI:DEFCFUN ("slarre_" %%SLARRE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14238 ':INT32) (VL-REF14239 ':FLOAT) + (VU-REF14240 ':FLOAT) (IL-REF14241 ':INT32) + (IU-REF14242 ':INT32) (RELTOL-REF14244 ':FLOAT) + (PIVMIN-REF14248 ':FLOAT) + (NSPLIT-REF14249 ':INT32) (M-REF14251 ':INT32) + (WL-REF14254 ':FLOAT) (WU-REF14255 ':FLOAT) + (INFO-REF14260 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14238 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14239 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14240 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF14241 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF14242 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF14244 :FLOAT) RELTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14248 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14249 :INT32) NSPLIT) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14251 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF14254 :FLOAT) WL) + (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF14255 :FLOAT) WU) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14260 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF14243 GERS) (D-REF14245 D) + (E-REF14246 E) (E2-REF14247 E2) + (ISPLIT-REF14250 ISPLIT) + (W-REF14252 W) (WERR-REF14253 WERR) + (IBLOCK-REF14256 IBLOCK) + (INDEXW-REF14257 INDEXW) + (WORK-REF14258 WORK) + (IWORK-REF14259 IWORK)) + (%%SLARRD RANGE ORDER N-REF14238 VL-REF14239 VU-REF14240 IL-REF14241 + IU-REF14242 GERS-REF14243 RELTOL-REF14244 D-REF14245 E-REF14246 + E2-REF14247 PIVMIN-REF14248 NSPLIT-REF14249 ISPLIT-REF14250 M-REF14251 + W-REF14252 WERR-REF14253 WL-REF14254 WU-REF14255 IBLOCK-REF14256 + INDEXW-REF14257 WORK-REF14258 IWORK-REF14259 INFO-REF14260)))) + +(CFFI:DEFCFUN ("slarre_" %%SLARRE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RANGE :STRING) (N :POINTER) @@ -12078,43 +12122,43 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14267 ':INT32) (VL-REF14268 ':FLOAT) - (VU-REF14269 ':FLOAT) (IL-REF14270 ':INT32) - (IU-REF14271 ':INT32) (RTOL1-REF14275 ':FLOAT) - (RTOL2-REF14276 ':FLOAT) - (SPLTOL-REF14277 ':FLOAT) - (NSPLIT-REF14278 ':INT32) (M-REF14280 ':INT32) - (PIVMIN-REF14287 ':FLOAT) (INFO-REF14290 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14267 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14268 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14269 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF14270 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF14271 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14275 :FLOAT) RTOL1) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14276 :FLOAT) RTOL2) - (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF14277 :FLOAT) SPLTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14278 :INT32) NSPLIT) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14280 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14287 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14290 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14272 D) (E-REF14273 E) - (E2-REF14274 E2) - (ISPLIT-REF14279 ISPLIT) - (W-REF14281 W) (WERR-REF14282 WERR) - (WGAP-REF14283 WGAP) - (IBLOCK-REF14284 IBLOCK) - (INDEXW-REF14285 INDEXW) - (GERS-REF14286 GERS) - (WORK-REF14288 WORK) - (IWORK-REF14289 IWORK)) - (%%SLARRE RANGE N-REF14267 VL-REF14268 VU-REF14269 IL-REF14270 - IU-REF14271 D-REF14272 E-REF14273 E2-REF14274 RTOL1-REF14275 - RTOL2-REF14276 SPLTOL-REF14277 NSPLIT-REF14278 ISPLIT-REF14279 - M-REF14280 W-REF14281 WERR-REF14282 WGAP-REF14283 - IBLOCK-REF14284 INDEXW-REF14285 GERS-REF14286 PIVMIN-REF14287 - WORK-REF14288 IWORK-REF14289 INFO-REF14290)))) - -(CFFI:DEFCFUN ("slarrf_" %%SLARRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14262 ':INT32) (VL-REF14263 ':FLOAT) + (VU-REF14264 ':FLOAT) (IL-REF14265 ':INT32) + (IU-REF14266 ':INT32) (RTOL1-REF14270 ':FLOAT) + (RTOL2-REF14271 ':FLOAT) + (SPLTOL-REF14272 ':FLOAT) + (NSPLIT-REF14273 ':INT32) (M-REF14275 ':INT32) + (PIVMIN-REF14282 ':FLOAT) (INFO-REF14285 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14262 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14263 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14264 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF14265 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF14266 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14270 :FLOAT) RTOL1) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14271 :FLOAT) RTOL2) + (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF14272 :FLOAT) SPLTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF14273 :INT32) NSPLIT) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14275 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14282 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14285 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14267 D) (E-REF14268 E) + (E2-REF14269 E2) + (ISPLIT-REF14274 ISPLIT) + (W-REF14276 W) (WERR-REF14277 WERR) + (WGAP-REF14278 WGAP) + (IBLOCK-REF14279 IBLOCK) + (INDEXW-REF14280 INDEXW) + (GERS-REF14281 GERS) + (WORK-REF14283 WORK) + (IWORK-REF14284 IWORK)) + (%%SLARRE RANGE N-REF14262 VL-REF14263 VU-REF14264 IL-REF14265 + IU-REF14266 D-REF14267 E-REF14268 E2-REF14269 RTOL1-REF14270 + RTOL2-REF14271 SPLTOL-REF14272 NSPLIT-REF14273 ISPLIT-REF14274 + M-REF14275 W-REF14276 WERR-REF14277 WGAP-REF14278 IBLOCK-REF14279 + INDEXW-REF14280 GERS-REF14281 PIVMIN-REF14282 WORK-REF14283 + IWORK-REF14284 INFO-REF14285)))) + +(CFFI:DEFCFUN ("slarrf_" %%SLARRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -12171,36 +12215,35 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14291 ':INT32) (CLSTRT-REF14295 ':INT32) - (CLEND-REF14296 ':INT32) - (SPDIAM-REF14300 ':FLOAT) - (CLGAPL-REF14301 ':FLOAT) - (CLGAPR-REF14302 ':FLOAT) - (PIVMIN-REF14303 ':FLOAT) - (SIGMA-REF14304 ':FLOAT) (INFO-REF14308 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14291 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF14295 :INT32) CLSTRT) - (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF14296 :INT32) CLEND) - (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14300 :FLOAT) SPDIAM) - (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF14301 :FLOAT) CLGAPL) - (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF14302 :FLOAT) CLGAPR) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14303 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14304 :FLOAT) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14308 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14292 D) (L-REF14293 L) - (LD-REF14294 LD) (W-REF14297 W) - (WGAP-REF14298 WGAP) - (WERR-REF14299 WERR) - (DPLUS-REF14305 DPLUS) - (LPLUS-REF14306 LPLUS) - (WORK-REF14307 WORK)) - (%%SLARRF N-REF14291 D-REF14292 L-REF14293 LD-REF14294 CLSTRT-REF14295 - CLEND-REF14296 W-REF14297 WGAP-REF14298 WERR-REF14299 - SPDIAM-REF14300 CLGAPL-REF14301 CLGAPR-REF14302 PIVMIN-REF14303 - SIGMA-REF14304 DPLUS-REF14305 LPLUS-REF14306 WORK-REF14307 - INFO-REF14308)))) - -(CFFI:DEFCFUN ("slarrj_" %%SLARRJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14286 ':INT32) (CLSTRT-REF14290 ':INT32) + (CLEND-REF14291 ':INT32) + (SPDIAM-REF14295 ':FLOAT) + (CLGAPL-REF14296 ':FLOAT) + (CLGAPR-REF14297 ':FLOAT) + (PIVMIN-REF14298 ':FLOAT) + (SIGMA-REF14299 ':FLOAT) (INFO-REF14303 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14286 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF14290 :INT32) CLSTRT) + (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF14291 :INT32) CLEND) + (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14295 :FLOAT) SPDIAM) + (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF14296 :FLOAT) CLGAPL) + (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF14297 :FLOAT) CLGAPR) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14298 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14299 :FLOAT) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14303 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14287 D) (L-REF14288 L) + (LD-REF14289 LD) (W-REF14292 W) + (WGAP-REF14293 WGAP) + (WERR-REF14294 WERR) + (DPLUS-REF14300 DPLUS) + (LPLUS-REF14301 LPLUS) + (WORK-REF14302 WORK)) + (%%SLARRF N-REF14286 D-REF14287 L-REF14288 LD-REF14289 CLSTRT-REF14290 + CLEND-REF14291 W-REF14292 WGAP-REF14293 WERR-REF14294 SPDIAM-REF14295 + CLGAPL-REF14296 CLGAPR-REF14297 PIVMIN-REF14298 SIGMA-REF14299 + DPLUS-REF14300 LPLUS-REF14301 WORK-REF14302 INFO-REF14303)))) + +(CFFI:DEFCFUN ("slarrj_" %%SLARRJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -12245,29 +12288,29 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14309 ':INT32) (IFIRST-REF14312 ':INT32) - (ILAST-REF14313 ':INT32) (RTOL-REF14314 ':FLOAT) - (OFFSET-REF14315 ':INT32) - (PIVMIN-REF14320 ':FLOAT) - (SPDIAM-REF14321 ':FLOAT) (INFO-REF14322 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14309 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF14312 :INT32) IFIRST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF14313 :INT32) ILAST) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF14314 :FLOAT) RTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF14315 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14320 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14321 :FLOAT) SPDIAM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14322 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14310 D) (E2-REF14311 E2) - (W-REF14316 W) (WERR-REF14317 WERR) - (WORK-REF14318 WORK) - (IWORK-REF14319 IWORK)) - (%%SLARRJ N-REF14309 D-REF14310 E2-REF14311 IFIRST-REF14312 - ILAST-REF14313 RTOL-REF14314 OFFSET-REF14315 W-REF14316 - WERR-REF14317 WORK-REF14318 IWORK-REF14319 PIVMIN-REF14320 - SPDIAM-REF14321 INFO-REF14322)))) - -(CFFI:DEFCFUN ("slarrk_" %%SLARRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14304 ':INT32) (IFIRST-REF14307 ':INT32) + (ILAST-REF14308 ':INT32) (RTOL-REF14309 ':FLOAT) + (OFFSET-REF14310 ':INT32) + (PIVMIN-REF14315 ':FLOAT) + (SPDIAM-REF14316 ':FLOAT) (INFO-REF14317 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14304 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF14307 :INT32) IFIRST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF14308 :INT32) ILAST) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF14309 :FLOAT) RTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF14310 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14315 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF14316 :FLOAT) SPDIAM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14317 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14305 D) (E2-REF14306 E2) + (W-REF14311 W) (WERR-REF14312 WERR) + (WORK-REF14313 WORK) + (IWORK-REF14314 IWORK)) + (%%SLARRJ N-REF14304 D-REF14305 E2-REF14306 IFIRST-REF14307 + ILAST-REF14308 RTOL-REF14309 OFFSET-REF14310 W-REF14311 WERR-REF14312 + WORK-REF14313 IWORK-REF14314 PIVMIN-REF14315 SPDIAM-REF14316 + INFO-REF14317)))) + +(CFFI:DEFCFUN ("slarrk_" %%SLARRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (IW :POINTER) @@ -12296,26 +12339,26 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT W) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WERR) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14323 ':INT32) (IW-REF14324 ':INT32) - (GL-REF14325 ':FLOAT) (GU-REF14326 ':FLOAT) - (PIVMIN-REF14329 ':FLOAT) - (RELTOL-REF14330 ':FLOAT) (W-REF14331 ':FLOAT) - (WERR-REF14332 ':FLOAT) (INFO-REF14333 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14323 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF14324 :INT32) IW) - (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF14325 :FLOAT) GL) - (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF14326 :FLOAT) GU) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14329 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF14330 :FLOAT) RELTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF W-REF14331 :FLOAT) W) - (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF14332 :FLOAT) WERR) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14333 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14327 D) (E2-REF14328 E2)) - (%%SLARRK N-REF14323 IW-REF14324 GL-REF14325 GU-REF14326 D-REF14327 - E2-REF14328 PIVMIN-REF14329 RELTOL-REF14330 W-REF14331 - WERR-REF14332 INFO-REF14333)))) - -(CFFI:DEFCFUN ("slarrr_" %%SLARRR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14318 ':INT32) (IW-REF14319 ':INT32) + (GL-REF14320 ':FLOAT) (GU-REF14321 ':FLOAT) + (PIVMIN-REF14324 ':FLOAT) + (RELTOL-REF14325 ':FLOAT) (W-REF14326 ':FLOAT) + (WERR-REF14327 ':FLOAT) (INFO-REF14328 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14318 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF14319 :INT32) IW) + (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF14320 :FLOAT) GL) + (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF14321 :FLOAT) GU) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14324 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF14325 :FLOAT) RELTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF W-REF14326 :FLOAT) W) + (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF14327 :FLOAT) WERR) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14328 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14322 D) (E2-REF14323 E2)) + (%%SLARRK N-REF14318 IW-REF14319 GL-REF14320 GU-REF14321 D-REF14322 + E2-REF14323 PIVMIN-REF14324 RELTOL-REF14325 W-REF14326 WERR-REF14327 + INFO-REF14328)))) + +(CFFI:DEFCFUN ("slarrr_" %%SLARRR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -12330,13 +12373,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14334 ':INT32) (INFO-REF14337 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14334 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14337 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14335 D) (E-REF14336 E)) - (%%SLARRR N-REF14334 D-REF14335 E-REF14336 INFO-REF14337)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14329 ':INT32) (INFO-REF14332 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14329 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14332 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14330 D) (E-REF14331 E)) + (%%SLARRR N-REF14329 D-REF14330 E-REF14331 INFO-REF14332)))) -(CFFI:DEFCFUN ("slarrv_" %%SLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slarrv_" %%SLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (VL :POINTER) @@ -12420,43 +12463,43 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14338 ':INT32) (VL-REF14339 ':FLOAT) - (VU-REF14340 ':FLOAT) (PIVMIN-REF14343 ':FLOAT) - (M-REF14345 ':INT32) (DOL-REF14346 ':INT32) - (DOU-REF14347 ':INT32) (MINRGP-REF14348 ':FLOAT) - (RTOL1-REF14349 ':FLOAT) (RTOL2-REF14350 ':FLOAT) - (LDZ-REF14358 ':INT32) (INFO-REF14362 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14338 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14339 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14340 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14343 :FLOAT) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14345 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF14346 :INT32) DOL) - (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF14347 :INT32) DOU) - (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF14348 :FLOAT) MINRGP) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14349 :FLOAT) RTOL1) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14350 :FLOAT) RTOL2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14358 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14362 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14341 D) (L-REF14342 L) - (ISPLIT-REF14344 ISPLIT) - (W-REF14351 W) (WERR-REF14352 WERR) - (WGAP-REF14353 WGAP) - (IBLOCK-REF14354 IBLOCK) - (INDEXW-REF14355 INDEXW) - (GERS-REF14356 GERS) (Z-REF14357 Z) - (ISUPPZ-REF14359 ISUPPZ) - (WORK-REF14360 WORK) - (IWORK-REF14361 IWORK)) - (%%SLARRV N-REF14338 VL-REF14339 VU-REF14340 D-REF14341 L-REF14342 - PIVMIN-REF14343 ISPLIT-REF14344 M-REF14345 DOL-REF14346 - DOU-REF14347 MINRGP-REF14348 RTOL1-REF14349 RTOL2-REF14350 - W-REF14351 WERR-REF14352 WGAP-REF14353 IBLOCK-REF14354 - INDEXW-REF14355 GERS-REF14356 Z-REF14357 LDZ-REF14358 - ISUPPZ-REF14359 WORK-REF14360 IWORK-REF14361 INFO-REF14362)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14333 ':INT32) (VL-REF14334 ':FLOAT) + (VU-REF14335 ':FLOAT) (PIVMIN-REF14338 ':FLOAT) + (M-REF14340 ':INT32) (DOL-REF14341 ':INT32) + (DOU-REF14342 ':INT32) (MINRGP-REF14343 ':FLOAT) + (RTOL1-REF14344 ':FLOAT) (RTOL2-REF14345 ':FLOAT) + (LDZ-REF14353 ':INT32) (INFO-REF14357 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14333 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14334 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14335 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14338 :FLOAT) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14340 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF14341 :INT32) DOL) + (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF14342 :INT32) DOU) + (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF14343 :FLOAT) MINRGP) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14344 :FLOAT) RTOL1) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14345 :FLOAT) RTOL2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14353 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14357 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14336 D) (L-REF14337 L) + (ISPLIT-REF14339 ISPLIT) + (W-REF14346 W) (WERR-REF14347 WERR) + (WGAP-REF14348 WGAP) + (IBLOCK-REF14349 IBLOCK) + (INDEXW-REF14350 INDEXW) + (GERS-REF14351 GERS) (Z-REF14352 Z) + (ISUPPZ-REF14354 ISUPPZ) + (WORK-REF14355 WORK) + (IWORK-REF14356 IWORK)) + (%%SLARRV N-REF14333 VL-REF14334 VU-REF14335 D-REF14336 L-REF14337 + PIVMIN-REF14338 ISPLIT-REF14339 M-REF14340 DOL-REF14341 DOU-REF14342 + MINRGP-REF14343 RTOL1-REF14344 RTOL2-REF14345 W-REF14346 WERR-REF14347 + WGAP-REF14348 IBLOCK-REF14349 INDEXW-REF14350 GERS-REF14351 Z-REF14352 + LDZ-REF14353 ISUPPZ-REF14354 WORK-REF14355 IWORK-REF14356 + INFO-REF14357)))) (CFFI:DEFCFUN ("slarscl2_" %%SLARSCL2 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12473,15 +12516,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14363 ':INT32) (N-REF14364 ':INT32) - (LDX-REF14367 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14363 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14364 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14367 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14365 D) (X-REF14366 X)) - (%%SLARSCL2 M-REF14363 N-REF14364 D-REF14365 X-REF14366 LDX-REF14367)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14358 ':INT32) (N-REF14359 ':INT32) + (LDX-REF14362 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14358 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14359 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14362 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14360 D) (X-REF14361 X)) + (%%SLARSCL2 M-REF14358 N-REF14359 D-REF14360 X-REF14361 LDX-REF14362)))) -(CFFI:DEFCFUN ("slartg_" %%SLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slartg_" %%SLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -12496,18 +12539,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT R)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14368 ':FLOAT) (G-REF14369 ':FLOAT) - (CS-REF14370 ':FLOAT) (SN-REF14371 ':FLOAT) - (R-REF14372 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14368 :FLOAT) F) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14369 :FLOAT) G) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14370 :FLOAT) CS) - (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14371 :FLOAT) SN) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14372 :FLOAT) R) + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14363 ':FLOAT) (G-REF14364 ':FLOAT) + (CS-REF14365 ':FLOAT) (SN-REF14366 ':FLOAT) + (R-REF14367 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14363 :FLOAT) F) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14364 :FLOAT) G) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14365 :FLOAT) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14366 :FLOAT) SN) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14367 :FLOAT) R) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLARTG F-REF14368 G-REF14369 CS-REF14370 SN-REF14371 R-REF14372)))) + (%%SLARTG F-REF14363 G-REF14364 CS-REF14365 SN-REF14366 R-REF14367)))) -(CFFI:DEFCFUN ("slartgp_" %%SLARTGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slartgp_" %%SLARTGP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -12522,18 +12566,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT R)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14373 ':FLOAT) (G-REF14374 ':FLOAT) - (CS-REF14375 ':FLOAT) (SN-REF14376 ':FLOAT) - (R-REF14377 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14373 :FLOAT) F) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14374 :FLOAT) G) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14375 :FLOAT) CS) - (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14376 :FLOAT) SN) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14377 :FLOAT) R) + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14368 ':FLOAT) (G-REF14369 ':FLOAT) + (CS-REF14370 ':FLOAT) (SN-REF14371 ':FLOAT) + (R-REF14372 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14368 :FLOAT) F) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14369 :FLOAT) G) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14370 :FLOAT) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14371 :FLOAT) SN) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF14372 :FLOAT) R) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLARTGP F-REF14373 G-REF14374 CS-REF14375 SN-REF14376 R-REF14377)))) + (%%SLARTGP F-REF14368 G-REF14369 CS-REF14370 SN-REF14371 R-REF14372)))) -(CFFI:DEFCFUN ("slartgs_" %%SLARTGS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slartgs_" %%SLARTGS :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (X :POINTER) (Y :POINTER) @@ -12548,19 +12593,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CS) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SN)) - (CFFI:WITH-FOREIGN-OBJECTS ((X-REF14378 ':FLOAT) (Y-REF14379 ':FLOAT) - (SIGMA-REF14380 ':FLOAT) (CS-REF14381 ':FLOAT) - (SN-REF14382 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF X-REF14378 :FLOAT) X) - (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF14379 :FLOAT) Y) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14380 :FLOAT) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14381 :FLOAT) CS) - (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14382 :FLOAT) SN) + (CFFI:WITH-FOREIGN-OBJECTS ((X-REF14373 ':FLOAT) (Y-REF14374 ':FLOAT) + (SIGMA-REF14375 ':FLOAT) (CS-REF14376 ':FLOAT) + (SN-REF14377 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF X-REF14373 :FLOAT) X) + (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF14374 :FLOAT) Y) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14375 :FLOAT) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF14376 :FLOAT) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF14377 :FLOAT) SN) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLARTGS X-REF14378 Y-REF14379 SIGMA-REF14380 CS-REF14381 - SN-REF14382)))) + (%%SLARTGS X-REF14373 Y-REF14374 SIGMA-REF14375 CS-REF14376 + SN-REF14377)))) -(CFFI:DEFCFUN ("slartv_" %%SLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slartv_" %%SLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -12585,18 +12630,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14383 ':INT32) (INCX-REF14385 ':INT32) - (INCY-REF14387 ':INT32) (INCC-REF14390 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14383 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14385 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF14387 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14390 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14384 X) (Y-REF14386 Y) - (C-REF14388 C) (S-REF14389 S)) - (%%SLARTV N-REF14383 X-REF14384 INCX-REF14385 Y-REF14386 INCY-REF14387 - C-REF14388 S-REF14389 INCC-REF14390)))) - -(CFFI:DEFCFUN ("slaruv_" %%SLARUV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14378 ':INT32) (INCX-REF14380 ':INT32) + (INCY-REF14382 ':INT32) (INCC-REF14385 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14378 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14380 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF14382 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF14385 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14379 X) (Y-REF14381 Y) + (C-REF14383 C) (S-REF14384 S)) + (%%SLARTV N-REF14378 X-REF14379 INCX-REF14380 Y-REF14381 INCY-REF14382 + C-REF14383 S-REF14384 INCC-REF14385)))) + +(CFFI:DEFCFUN ("slaruv_" %%SLARUV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ISEED :POINTER) (N :POINTER) @@ -12611,13 +12656,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14392 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14392 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF14391 ISEED) - (X-REF14393 X)) - (%%SLARUV ISEED-REF14391 N-REF14392 X-REF14393)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14387 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14387 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF14386 ISEED) + (X-REF14388 X)) + (%%SLARUV ISEED-REF14386 N-REF14387 X-REF14388)))) -(CFFI:DEFCFUN ("slarz_" %%SLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slarz_" %%SLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -12646,21 +12691,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14395 ':INT32) (N-REF14396 ':INT32) - (L-REF14397 ':INT32) (INCV-REF14399 ':INT32) - (TAU-REF14400 ':FLOAT) (LDC-REF14402 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14395 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14396 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14397 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14399 :INT32) INCV) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14400 :FLOAT) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14402 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14398 V) (C-REF14401 C) - (WORK-REF14403 WORK)) - (%%SLARZ SIDE M-REF14395 N-REF14396 L-REF14397 V-REF14398 INCV-REF14399 - TAU-REF14400 C-REF14401 LDC-REF14402 WORK-REF14403)))) - -(CFFI:DEFCFUN ("slarzb_" %%SLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14390 ':INT32) (N-REF14391 ':INT32) + (L-REF14392 ':INT32) (INCV-REF14394 ':INT32) + (TAU-REF14395 ':FLOAT) (LDC-REF14397 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14390 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14391 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14392 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF14394 :INT32) INCV) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14395 :FLOAT) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14397 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14393 V) (C-REF14396 C) + (WORK-REF14398 WORK)) + (%%SLARZ SIDE M-REF14390 N-REF14391 L-REF14392 V-REF14393 INCV-REF14394 + TAU-REF14395 C-REF14396 LDC-REF14397 WORK-REF14398)))) + +(CFFI:DEFCFUN ("slarzb_" %%SLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12704,25 +12749,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14408 ':INT32) (N-REF14409 ':INT32) - (K-REF14410 ':INT32) (L-REF14411 ':INT32) - (LDV-REF14413 ':INT32) (LDT-REF14415 ':INT32) - (LDC-REF14417 ':INT32) (LDWORK-REF14419 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14408 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14409 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14410 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14411 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14413 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14415 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14417 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14419 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14412 V) (T-REF14414 T) - (C-REF14416 C) (WORK-REF14418 WORK)) - (%%SLARZB SIDE TRANS DIRECT STOREV M-REF14408 N-REF14409 K-REF14410 - L-REF14411 V-REF14412 LDV-REF14413 T-REF14414 LDT-REF14415 - C-REF14416 LDC-REF14417 WORK-REF14418 LDWORK-REF14419)))) - -(CFFI:DEFCFUN ("slarzt_" %%SLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14403 ':INT32) (N-REF14404 ':INT32) + (K-REF14405 ':INT32) (L-REF14406 ':INT32) + (LDV-REF14408 ':INT32) (LDT-REF14410 ':INT32) + (LDC-REF14412 ':INT32) (LDWORK-REF14414 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14403 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14404 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14405 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14406 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14408 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14410 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14412 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14414 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14407 V) (T-REF14409 T) + (C-REF14411 C) (WORK-REF14413 WORK)) + (%%SLARZB SIDE TRANS DIRECT STOREV M-REF14403 N-REF14404 K-REF14405 + L-REF14406 V-REF14407 LDV-REF14408 T-REF14409 LDT-REF14410 C-REF14411 + LDC-REF14412 WORK-REF14413 LDWORK-REF14414)))) + +(CFFI:DEFCFUN ("slarzt_" %%SLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (DIRECT :STRING) (STOREV :STRING) @@ -12749,18 +12794,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14422 ':INT32) (K-REF14423 ':INT32) - (LDV-REF14425 ':INT32) (LDT-REF14428 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14422 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14423 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14425 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14428 :INT32) LDT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14424 V) (TAU-REF14426 TAU) - (T-REF14427 T)) - (%%SLARZT DIRECT STOREV N-REF14422 K-REF14423 V-REF14424 LDV-REF14425 - TAU-REF14426 T-REF14427 LDT-REF14428)))) - -(CFFI:DEFCFUN ("slas2_" %%SLAS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14417 ':INT32) (K-REF14418 ':INT32) + (LDV-REF14420 ':INT32) (LDT-REF14423 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14417 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14418 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14420 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14423 :INT32) LDT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14419 V) (TAU-REF14421 TAU) + (T-REF14422 T)) + (%%SLARZT DIRECT STOREV N-REF14417 K-REF14418 V-REF14419 LDV-REF14420 + TAU-REF14421 T-REF14422 LDT-REF14423)))) + +(CFFI:DEFCFUN ("slas2_" %%SLAS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -12775,19 +12820,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT H) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMAX)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14429 ':FLOAT) (G-REF14430 ':FLOAT) - (H-REF14431 ':FLOAT) (SSMIN-REF14432 ':FLOAT) - (SSMAX-REF14433 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14429 :FLOAT) F) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14430 :FLOAT) G) - (COMMON-LISP:SETF (CFFI:MEM-REF H-REF14431 :FLOAT) H) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF14432 :FLOAT) SSMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF14433 :FLOAT) SSMAX) + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14424 ':FLOAT) (G-REF14425 ':FLOAT) + (H-REF14426 ':FLOAT) (SSMIN-REF14427 ':FLOAT) + (SSMAX-REF14428 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14424 :FLOAT) F) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14425 :FLOAT) G) + (COMMON-LISP:SETF (CFFI:MEM-REF H-REF14426 :FLOAT) H) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF14427 :FLOAT) SSMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF14428 :FLOAT) SSMAX) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLAS2 F-REF14429 G-REF14430 H-REF14431 SSMIN-REF14432 - SSMAX-REF14433)))) + (%%SLAS2 F-REF14424 G-REF14425 H-REF14426 SSMIN-REF14427 + SSMAX-REF14428)))) -(CFFI:DEFCFUN ("slascl_" %%SLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slascl_" %%SLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TYPE :STRING) (KL :POINTER) @@ -12813,23 +12858,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF14435 ':INT32) (KU-REF14436 ':INT32) - (CFROM-REF14437 ':FLOAT) (CTO-REF14438 ':FLOAT) - (M-REF14439 ':INT32) (N-REF14440 ':INT32) - (LDA-REF14442 ':INT32) (INFO-REF14443 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF14435 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF14436 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF14437 :FLOAT) CFROM) - (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF14438 :FLOAT) CTO) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14439 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14440 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14442 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14443 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14441 A)) - (%%SLASCL TYPE KL-REF14435 KU-REF14436 CFROM-REF14437 CTO-REF14438 - M-REF14439 N-REF14440 A-REF14441 LDA-REF14442 INFO-REF14443)))) - -(CFFI:DEFCFUN ("slascl2_" %%SLASCL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF14430 ':INT32) (KU-REF14431 ':INT32) + (CFROM-REF14432 ':FLOAT) (CTO-REF14433 ':FLOAT) + (M-REF14434 ':INT32) (N-REF14435 ':INT32) + (LDA-REF14437 ':INT32) (INFO-REF14438 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF14430 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF14431 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF14432 :FLOAT) CFROM) + (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF14433 :FLOAT) CTO) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14434 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14435 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14437 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14438 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14436 A)) + (%%SLASCL TYPE KL-REF14430 KU-REF14431 CFROM-REF14432 CTO-REF14433 + M-REF14434 N-REF14435 A-REF14436 LDA-REF14437 INFO-REF14438)))) + +(CFFI:DEFCFUN ("slascl2_" %%SLASCL2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12846,15 +12892,15 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14444 ':INT32) (N-REF14445 ':INT32) - (LDX-REF14448 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14444 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14445 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14448 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14446 D) (X-REF14447 X)) - (%%SLASCL2 M-REF14444 N-REF14445 D-REF14446 X-REF14447 LDX-REF14448)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14439 ':INT32) (N-REF14440 ':INT32) + (LDX-REF14443 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14439 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14440 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14443 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14441 D) (X-REF14442 X)) + (%%SLASCL2 M-REF14439 N-REF14440 D-REF14441 X-REF14442 LDX-REF14443)))) -(CFFI:DEFCFUN ("slasd0_" %%SLASD0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slasd0_" %%SLASD0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (SQRE :POINTER) @@ -12892,24 +12938,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14449 ':INT32) (SQRE-REF14450 ':INT32) - (LDU-REF14454 ':INT32) (LDVT-REF14456 ':INT32) - (SMLSIZ-REF14457 ':INT32) (INFO-REF14460 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14449 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14450 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14454 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14456 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF14457 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14460 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14451 D) (E-REF14452 E) - (U-REF14453 U) (VT-REF14455 VT) - (IWORK-REF14458 IWORK) - (WORK-REF14459 WORK)) - (%%SLASD0 N-REF14449 SQRE-REF14450 D-REF14451 E-REF14452 U-REF14453 - LDU-REF14454 VT-REF14455 LDVT-REF14456 SMLSIZ-REF14457 - IWORK-REF14458 WORK-REF14459 INFO-REF14460)))) - -(CFFI:DEFCFUN ("slasd1_" %%SLASD1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14444 ':INT32) (SQRE-REF14445 ':INT32) + (LDU-REF14449 ':INT32) (LDVT-REF14451 ':INT32) + (SMLSIZ-REF14452 ':INT32) (INFO-REF14455 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14444 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14445 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14449 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14451 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF14452 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14455 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14446 D) (E-REF14447 E) + (U-REF14448 U) (VT-REF14450 VT) + (IWORK-REF14453 IWORK) + (WORK-REF14454 WORK)) + (%%SLASD0 N-REF14444 SQRE-REF14445 D-REF14446 E-REF14447 U-REF14448 + LDU-REF14449 VT-REF14450 LDVT-REF14451 SMLSIZ-REF14452 IWORK-REF14453 + WORK-REF14454 INFO-REF14455)))) + +(CFFI:DEFCFUN ("slasd1_" %%SLASD1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NL :POINTER) (NR :POINTER) @@ -12954,28 +13000,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14461 ':INT32) (NR-REF14462 ':INT32) - (SQRE-REF14463 ':INT32) (ALPHA-REF14465 ':FLOAT) - (BETA-REF14466 ':FLOAT) (LDU-REF14468 ':INT32) - (LDVT-REF14470 ':INT32) (INFO-REF14474 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14461 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14462 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14463 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14465 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14466 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14468 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14470 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14474 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14464 D) (U-REF14467 U) - (VT-REF14469 VT) - (IDXQ-REF14471 IDXQ) - (IWORK-REF14472 IWORK) - (WORK-REF14473 WORK)) - (%%SLASD1 NL-REF14461 NR-REF14462 SQRE-REF14463 D-REF14464 ALPHA-REF14465 - BETA-REF14466 U-REF14467 LDU-REF14468 VT-REF14469 LDVT-REF14470 - IDXQ-REF14471 IWORK-REF14472 WORK-REF14473 INFO-REF14474)))) - -(CFFI:DEFCFUN ("slasd2_" %%SLASD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14456 ':INT32) (NR-REF14457 ':INT32) + (SQRE-REF14458 ':INT32) (ALPHA-REF14460 ':FLOAT) + (BETA-REF14461 ':FLOAT) (LDU-REF14463 ':INT32) + (LDVT-REF14465 ':INT32) (INFO-REF14469 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14456 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14457 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14458 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14460 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14461 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14463 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14465 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14469 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14459 D) (U-REF14462 U) + (VT-REF14464 VT) + (IDXQ-REF14466 IDXQ) + (IWORK-REF14467 IWORK) + (WORK-REF14468 WORK)) + (%%SLASD1 NL-REF14456 NR-REF14457 SQRE-REF14458 D-REF14459 ALPHA-REF14460 + BETA-REF14461 U-REF14462 LDU-REF14463 VT-REF14464 LDVT-REF14465 + IDXQ-REF14466 IWORK-REF14467 WORK-REF14468 INFO-REF14469)))) + +(CFFI:DEFCFUN ("slasd2_" %%SLASD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NL :POINTER) (NR :POINTER) @@ -13052,40 +13098,39 @@ (COMMON-LISP:*)) COLTYP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14475 ':INT32) (NR-REF14476 ':INT32) - (SQRE-REF14477 ':INT32) (K-REF14478 ':INT32) - (ALPHA-REF14481 ':FLOAT) (BETA-REF14482 ':FLOAT) - (LDU-REF14484 ':INT32) (LDVT-REF14486 ':INT32) - (LDU2-REF14489 ':INT32) (LDVT2-REF14491 ':INT32) - (INFO-REF14497 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14475 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14476 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14477 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14478 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14481 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14482 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14484 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14486 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14489 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF14491 :INT32) LDVT2) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14497 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14479 D) (Z-REF14480 Z) - (U-REF14483 U) (VT-REF14485 VT) - (DSIGMA-REF14487 DSIGMA) - (U2-REF14488 U2) (VT2-REF14490 VT2) - (IDXP-REF14492 IDXP) - (IDX-REF14493 IDX) - (IDXC-REF14494 IDXC) - (IDXQ-REF14495 IDXQ) - (COLTYP-REF14496 COLTYP)) - (%%SLASD2 NL-REF14475 NR-REF14476 SQRE-REF14477 K-REF14478 D-REF14479 - Z-REF14480 ALPHA-REF14481 BETA-REF14482 U-REF14483 LDU-REF14484 - VT-REF14485 LDVT-REF14486 DSIGMA-REF14487 U2-REF14488 - LDU2-REF14489 VT2-REF14490 LDVT2-REF14491 IDXP-REF14492 - IDX-REF14493 IDXC-REF14494 IDXQ-REF14495 COLTYP-REF14496 - INFO-REF14497)))) - -(CFFI:DEFCFUN ("slasd3_" %%SLASD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14470 ':INT32) (NR-REF14471 ':INT32) + (SQRE-REF14472 ':INT32) (K-REF14473 ':INT32) + (ALPHA-REF14476 ':FLOAT) (BETA-REF14477 ':FLOAT) + (LDU-REF14479 ':INT32) (LDVT-REF14481 ':INT32) + (LDU2-REF14484 ':INT32) (LDVT2-REF14486 ':INT32) + (INFO-REF14492 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14470 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14471 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14472 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14473 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14476 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14477 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14479 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14481 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14484 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF14486 :INT32) LDVT2) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14492 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14474 D) (Z-REF14475 Z) + (U-REF14478 U) (VT-REF14480 VT) + (DSIGMA-REF14482 DSIGMA) + (U2-REF14483 U2) (VT2-REF14485 VT2) + (IDXP-REF14487 IDXP) + (IDX-REF14488 IDX) + (IDXC-REF14489 IDXC) + (IDXQ-REF14490 IDXQ) + (COLTYP-REF14491 COLTYP)) + (%%SLASD2 NL-REF14470 NR-REF14471 SQRE-REF14472 K-REF14473 D-REF14474 + Z-REF14475 ALPHA-REF14476 BETA-REF14477 U-REF14478 LDU-REF14479 + VT-REF14480 LDVT-REF14481 DSIGMA-REF14482 U2-REF14483 LDU2-REF14484 + VT2-REF14485 LDVT2-REF14486 IDXP-REF14487 IDX-REF14488 IDXC-REF14489 + IDXQ-REF14490 COLTYP-REF14491 INFO-REF14492)))) + +(CFFI:DEFCFUN ("slasd3_" %%SLASD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NL :POINTER) (NR :POINTER) @@ -13148,34 +13193,33 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14498 ':INT32) (NR-REF14499 ':INT32) - (SQRE-REF14500 ':INT32) (K-REF14501 ':INT32) - (LDQ-REF14504 ':INT32) (LDU-REF14507 ':INT32) - (LDU2-REF14509 ':INT32) (LDVT-REF14511 ':INT32) - (LDVT2-REF14513 ':INT32) (INFO-REF14517 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14498 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14499 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14500 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14501 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14504 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14507 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14509 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14511 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF14513 :INT32) LDVT2) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14517 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14502 D) (Q-REF14503 Q) - (DSIGMA-REF14505 DSIGMA) - (U-REF14506 U) (U2-REF14508 U2) - (VT-REF14510 VT) (VT2-REF14512 VT2) - (IDXC-REF14514 IDXC) - (CTOT-REF14515 CTOT) (Z-REF14516 Z)) - (%%SLASD3 NL-REF14498 NR-REF14499 SQRE-REF14500 K-REF14501 D-REF14502 - Q-REF14503 LDQ-REF14504 DSIGMA-REF14505 U-REF14506 LDU-REF14507 - U2-REF14508 LDU2-REF14509 VT-REF14510 LDVT-REF14511 - VT2-REF14512 LDVT2-REF14513 IDXC-REF14514 CTOT-REF14515 - Z-REF14516 INFO-REF14517)))) - -(CFFI:DEFCFUN ("slasd4_" %%SLASD4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14493 ':INT32) (NR-REF14494 ':INT32) + (SQRE-REF14495 ':INT32) (K-REF14496 ':INT32) + (LDQ-REF14499 ':INT32) (LDU-REF14502 ':INT32) + (LDU2-REF14504 ':INT32) (LDVT-REF14506 ':INT32) + (LDVT2-REF14508 ':INT32) (INFO-REF14512 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14493 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14494 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14495 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14496 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14499 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14502 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14504 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14506 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF14508 :INT32) LDVT2) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14512 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14497 D) (Q-REF14498 Q) + (DSIGMA-REF14500 DSIGMA) + (U-REF14501 U) (U2-REF14503 U2) + (VT-REF14505 VT) (VT2-REF14507 VT2) + (IDXC-REF14509 IDXC) + (CTOT-REF14510 CTOT) (Z-REF14511 Z)) + (%%SLASD3 NL-REF14493 NR-REF14494 SQRE-REF14495 K-REF14496 D-REF14497 + Q-REF14498 LDQ-REF14499 DSIGMA-REF14500 U-REF14501 LDU-REF14502 + U2-REF14503 LDU2-REF14504 VT-REF14505 LDVT-REF14506 VT2-REF14507 + LDVT2-REF14508 IDXC-REF14509 CTOT-REF14510 Z-REF14511 INFO-REF14512)))) + +(CFFI:DEFCFUN ("slasd4_" %%SLASD4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (I :POINTER) @@ -13204,21 +13248,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14518 ':INT32) (I-REF14519 ':INT32) - (RHO-REF14523 ':FLOAT) (SIGMA-REF14524 ':FLOAT) - (INFO-REF14526 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14518 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF I-REF14519 :INT32) I) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF14523 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14524 :FLOAT) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14526 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14520 D) (Z-REF14521 Z) - (DELTA-REF14522 DELTA) - (WORK-REF14525 WORK)) - (%%SLASD4 N-REF14518 I-REF14519 D-REF14520 Z-REF14521 DELTA-REF14522 - RHO-REF14523 SIGMA-REF14524 WORK-REF14525 INFO-REF14526)))) - -(CFFI:DEFCFUN ("slasd5_" %%SLASD5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14513 ':INT32) (I-REF14514 ':INT32) + (RHO-REF14518 ':FLOAT) (SIGMA-REF14519 ':FLOAT) + (INFO-REF14521 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14513 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF I-REF14514 :INT32) I) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF14518 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14519 :FLOAT) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14521 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14515 D) (Z-REF14516 Z) + (DELTA-REF14517 DELTA) + (WORK-REF14520 WORK)) + (%%SLASD4 N-REF14513 I-REF14514 D-REF14515 Z-REF14516 DELTA-REF14517 + RHO-REF14518 SIGMA-REF14519 WORK-REF14520 INFO-REF14521)))) + +(CFFI:DEFCFUN ("slasd5_" %%SLASD5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I :POINTER) (D :POINTER) @@ -13243,18 +13287,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((I-REF14527 ':INT32) (RHO-REF14531 ':FLOAT) - (DSIGMA-REF14532 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF I-REF14527 :INT32) I) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF14531 :FLOAT) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF14532 :FLOAT) DSIGMA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14528 D) (Z-REF14529 Z) - (DELTA-REF14530 DELTA) - (WORK-REF14533 WORK)) - (%%SLASD5 I-REF14527 D-REF14528 Z-REF14529 DELTA-REF14530 RHO-REF14531 - DSIGMA-REF14532 WORK-REF14533)))) - -(CFFI:DEFCFUN ("slasd6_" %%SLASD6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I-REF14522 ':INT32) (RHO-REF14526 ':FLOAT) + (DSIGMA-REF14527 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF I-REF14522 :INT32) I) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF14526 :FLOAT) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF14527 :FLOAT) DSIGMA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14523 D) (Z-REF14524 Z) + (DELTA-REF14525 DELTA) + (WORK-REF14528 WORK)) + (%%SLASD5 I-REF14522 D-REF14523 Z-REF14524 DELTA-REF14525 RHO-REF14526 + DSIGMA-REF14527 WORK-REF14528)))) + +(CFFI:DEFCFUN ("slasd6_" %%SLASD6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (NL :POINTER) @@ -13340,46 +13384,46 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14534 ':INT32) (NL-REF14535 ':INT32) - (NR-REF14536 ':INT32) (SQRE-REF14537 ':INT32) - (ALPHA-REF14541 ':FLOAT) (BETA-REF14542 ':FLOAT) - (GIVPTR-REF14545 ':INT32) - (LDGCOL-REF14547 ':INT32) - (LDGNUM-REF14549 ':INT32) (K-REF14554 ':INT32) - (C-REF14555 ':FLOAT) (S-REF14556 ':FLOAT) - (INFO-REF14559 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14534 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14535 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14536 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14537 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14541 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14542 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF14545 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14547 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF14549 :INT32) LDGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14554 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14555 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF14556 :FLOAT) S) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14559 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14538 D) (VF-REF14539 VF) - (VL-REF14540 VL) - (IDXQ-REF14543 IDXQ) - (PERM-REF14544 PERM) - (GIVCOL-REF14546 GIVCOL) - (GIVNUM-REF14548 GIVNUM) - (POLES-REF14550 POLES) - (DIFL-REF14551 DIFL) - (DIFR-REF14552 DIFR) (Z-REF14553 Z) - (WORK-REF14557 WORK) - (IWORK-REF14558 IWORK)) - (%%SLASD6 ICOMPQ-REF14534 NL-REF14535 NR-REF14536 SQRE-REF14537 - D-REF14538 VF-REF14539 VL-REF14540 ALPHA-REF14541 BETA-REF14542 - IDXQ-REF14543 PERM-REF14544 GIVPTR-REF14545 GIVCOL-REF14546 - LDGCOL-REF14547 GIVNUM-REF14548 LDGNUM-REF14549 POLES-REF14550 - DIFL-REF14551 DIFR-REF14552 Z-REF14553 K-REF14554 C-REF14555 - S-REF14556 WORK-REF14557 IWORK-REF14558 INFO-REF14559)))) - -(CFFI:DEFCFUN ("slasd7_" %%SLASD7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14529 ':INT32) (NL-REF14530 ':INT32) + (NR-REF14531 ':INT32) (SQRE-REF14532 ':INT32) + (ALPHA-REF14536 ':FLOAT) (BETA-REF14537 ':FLOAT) + (GIVPTR-REF14540 ':INT32) + (LDGCOL-REF14542 ':INT32) + (LDGNUM-REF14544 ':INT32) (K-REF14549 ':INT32) + (C-REF14550 ':FLOAT) (S-REF14551 ':FLOAT) + (INFO-REF14554 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14529 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14530 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14531 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14532 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14536 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14537 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF14540 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14542 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF14544 :INT32) LDGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14549 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14550 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF14551 :FLOAT) S) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14554 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14533 D) (VF-REF14534 VF) + (VL-REF14535 VL) + (IDXQ-REF14538 IDXQ) + (PERM-REF14539 PERM) + (GIVCOL-REF14541 GIVCOL) + (GIVNUM-REF14543 GIVNUM) + (POLES-REF14545 POLES) + (DIFL-REF14546 DIFL) + (DIFR-REF14547 DIFR) (Z-REF14548 Z) + (WORK-REF14552 WORK) + (IWORK-REF14553 IWORK)) + (%%SLASD6 ICOMPQ-REF14529 NL-REF14530 NR-REF14531 SQRE-REF14532 + D-REF14533 VF-REF14534 VL-REF14535 ALPHA-REF14536 BETA-REF14537 + IDXQ-REF14538 PERM-REF14539 GIVPTR-REF14540 GIVCOL-REF14541 + LDGCOL-REF14542 GIVNUM-REF14543 LDGNUM-REF14544 POLES-REF14545 + DIFL-REF14546 DIFR-REF14547 Z-REF14548 K-REF14549 C-REF14550 S-REF14551 + WORK-REF14552 IWORK-REF14553 INFO-REF14554)))) + +(CFFI:DEFCFUN ("slasd7_" %%SLASD7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (NL :POINTER) @@ -13469,46 +13513,45 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14560 ':INT32) (NL-REF14561 ':INT32) - (NR-REF14562 ':INT32) (SQRE-REF14563 ':INT32) - (K-REF14564 ':INT32) (ALPHA-REF14572 ':FLOAT) - (BETA-REF14573 ':FLOAT) (GIVPTR-REF14579 ':INT32) - (LDGCOL-REF14581 ':INT32) - (LDGNUM-REF14583 ':INT32) (C-REF14584 ':FLOAT) - (S-REF14585 ':FLOAT) (INFO-REF14586 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14560 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14561 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14562 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14563 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14564 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14572 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14573 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF14579 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14581 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF14583 :INT32) LDGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14584 :FLOAT) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF14585 :FLOAT) S) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14586 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14565 D) (Z-REF14566 Z) - (ZW-REF14567 ZW) (VF-REF14568 VF) - (VFW-REF14569 VFW) (VL-REF14570 VL) - (VLW-REF14571 VLW) - (DSIGMA-REF14574 DSIGMA) - (IDX-REF14575 IDX) - (IDXP-REF14576 IDXP) - (IDXQ-REF14577 IDXQ) - (PERM-REF14578 PERM) - (GIVCOL-REF14580 GIVCOL) - (GIVNUM-REF14582 GIVNUM)) - (%%SLASD7 ICOMPQ-REF14560 NL-REF14561 NR-REF14562 SQRE-REF14563 - K-REF14564 D-REF14565 Z-REF14566 ZW-REF14567 VF-REF14568 - VFW-REF14569 VL-REF14570 VLW-REF14571 ALPHA-REF14572 - BETA-REF14573 DSIGMA-REF14574 IDX-REF14575 IDXP-REF14576 - IDXQ-REF14577 PERM-REF14578 GIVPTR-REF14579 GIVCOL-REF14580 - LDGCOL-REF14581 GIVNUM-REF14582 LDGNUM-REF14583 C-REF14584 - S-REF14585 INFO-REF14586)))) - -(CFFI:DEFCFUN ("slasd8_" %%SLASD8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14555 ':INT32) (NL-REF14556 ':INT32) + (NR-REF14557 ':INT32) (SQRE-REF14558 ':INT32) + (K-REF14559 ':INT32) (ALPHA-REF14567 ':FLOAT) + (BETA-REF14568 ':FLOAT) (GIVPTR-REF14574 ':INT32) + (LDGCOL-REF14576 ':INT32) + (LDGNUM-REF14578 ':INT32) (C-REF14579 ':FLOAT) + (S-REF14580 ':FLOAT) (INFO-REF14581 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14555 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14556 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14557 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14558 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14559 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14567 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14568 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF14574 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14576 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF14578 :INT32) LDGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14579 :FLOAT) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF14580 :FLOAT) S) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14581 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14560 D) (Z-REF14561 Z) + (ZW-REF14562 ZW) (VF-REF14563 VF) + (VFW-REF14564 VFW) (VL-REF14565 VL) + (VLW-REF14566 VLW) + (DSIGMA-REF14569 DSIGMA) + (IDX-REF14570 IDX) + (IDXP-REF14571 IDXP) + (IDXQ-REF14572 IDXQ) + (PERM-REF14573 PERM) + (GIVCOL-REF14575 GIVCOL) + (GIVNUM-REF14577 GIVNUM)) + (%%SLASD7 ICOMPQ-REF14555 NL-REF14556 NR-REF14557 SQRE-REF14558 + K-REF14559 D-REF14560 Z-REF14561 ZW-REF14562 VF-REF14563 VFW-REF14564 + VL-REF14565 VLW-REF14566 ALPHA-REF14567 BETA-REF14568 DSIGMA-REF14569 + IDX-REF14570 IDXP-REF14571 IDXQ-REF14572 PERM-REF14573 GIVPTR-REF14574 + GIVCOL-REF14575 LDGCOL-REF14576 GIVNUM-REF14577 LDGNUM-REF14578 + C-REF14579 S-REF14580 INFO-REF14581)))) + +(CFFI:DEFCFUN ("slasd8_" %%SLASD8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (K :POINTER) @@ -13550,21 +13593,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14587 ':INT32) (K-REF14588 ':INT32) - (LDDIFR-REF14595 ':INT32) (INFO-REF14598 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14587 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14588 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF14595 :INT32) LDDIFR) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14598 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14589 D) (Z-REF14590 Z) - (VF-REF14591 VF) (VL-REF14592 VL) - (DIFL-REF14593 DIFL) - (DIFR-REF14594 DIFR) - (DSIGMA-REF14596 DSIGMA) - (WORK-REF14597 WORK)) - (%%SLASD8 ICOMPQ-REF14587 K-REF14588 D-REF14589 Z-REF14590 VF-REF14591 - VL-REF14592 DIFL-REF14593 DIFR-REF14594 LDDIFR-REF14595 - DSIGMA-REF14596 WORK-REF14597 INFO-REF14598)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14582 ':INT32) (K-REF14583 ':INT32) + (LDDIFR-REF14590 ':INT32) (INFO-REF14593 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14582 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14583 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF14590 :INT32) LDDIFR) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14593 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14584 D) (Z-REF14585 Z) + (VF-REF14586 VF) (VL-REF14587 VL) + (DIFL-REF14588 DIFL) + (DIFR-REF14589 DIFR) + (DSIGMA-REF14591 DSIGMA) + (WORK-REF14592 WORK)) + (%%SLASD8 ICOMPQ-REF14582 K-REF14583 D-REF14584 Z-REF14585 VF-REF14586 + VL-REF14587 DIFL-REF14588 DIFR-REF14589 LDDIFR-REF14590 DSIGMA-REF14591 + WORK-REF14592 INFO-REF14593)))) (COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%ILASLR %ILASLR %%ILATRANS %ILATRANS %%ILAUPLO @@ -13613,314 +13656,368 @@ %%SLAMSWLQ %SLAMSWLQ %%SLAMTSQR %SLAMTSQR %%SLANEG %SLANEG %%SLANGB %SLANGB %%SLANGE %SLANGE %%SLANGT %SLANGT %%SLANHS %SLANHS %%SLANSB %SLANSB %%SLANSF %SLANSF %%SLANSP %SLANSP %%SLANST %SLANST %%SLANSY %SLANSY %%SLANTB %SLANTB - %%SLANTP %SLANTP %%SLANTR %SLANTR %%SLANV2 %SLANV2 %%SLAPLL %SLAPLL %%SLAPMR - %SLAPMR %%SLAPMT %SLAPMT %%SLAPY2 %SLAPY2 %%SLAPY3 %SLAPY3 %%SLAQGB %SLAQGB - %%SLAQGE %SLAQGE %%SLAQP2 %SLAQP2 %%SLAQPS %SLAQPS %%SLAQR0 %SLAQR0 %%SLAQR1 - %SLAQR1 %%SLAQR2 %SLAQR2 %%SLAQR3 %SLAQR3 %%SLAQR4 %SLAQR4 %%SLAQR5 %SLAQR5 - %%SLAQSB %SLAQSB %%SLAQSP %SLAQSP %%SLAQSY %SLAQSY %%SLAQTR %SLAQTR %%SLAR1V - %SLAR1V %%SLAR2V %SLAR2V %%SLARF %SLARF %%SLARFB %SLARFB %%SLARFG %SLARFG - %%SLARFGP %SLARFGP %%SLARFT %SLARFT %%SLARFX %SLARFX %%SLARFY %SLARFY - %%SLARGV %SLARGV %%SLARNV %SLARNV %%SLARRA %SLARRA %%SLARRB %SLARRB %%SLARRC - %SLARRC %%SLARRD %SLARRD %%SLARRE %SLARRE %%SLARRF %SLARRF %%SLARRJ %SLARRJ - %%SLARRK %SLARRK %%SLARRR %SLARRR %%SLARRV %SLARRV %%SLARSCL2 %SLARSCL2 - %%SLARTG %SLARTG %%SLARTGP %SLARTGP %%SLARTGS %SLARTGS %%SLARTV %SLARTV - %%SLARUV %SLARUV %%SLARZ %SLARZ %%SLARZB %SLARZB %%SLARZT %SLARZT %%SLAS2 - %SLAS2 %%SLASCL %SLASCL %%SLASCL2 %SLASCL2 %%SLASD0 %SLASD0 %%SLASD1 %SLASD1 - %%SLASD2 %SLASD2 %%SLASD3 %SLASD3 %%SLASD4 %SLASD4 %%SLASD5 %SLASD5 %%SLASD6 - %SLASD6 %%SLASD7 %SLASD7 %%SLASD8 %SLASD8)) - -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK - '(("ILASLR" "ilaslr_" %%ILASLR %ILASLR) - ("ILATRANS" "ilatrans_" %%ILATRANS %ILATRANS) - ("ILAUPLO" "ilauplo_" %%ILAUPLO %ILAUPLO) - ("ILAZLC" "ilazlc_" %%ILAZLC %ILAZLC) - ("ILAZLR" "ilazlr_" %%ILAZLR %ILAZLR) - ("IPARMQ" "iparmq_" %%IPARMQ %IPARMQ) - ("IZMAX1" "izmax1_" %%IZMAX1 %IZMAX1) - ("LSAMEN" "lsamen_" %%LSAMEN %LSAMEN) - ("SBBCSD" "sbbcsd_" %%SBBCSD %SBBCSD) - ("SBDSDC" "sbdsdc_" %%SBDSDC %SBDSDC) - ("SBDSQR" "sbdsqr_" %%SBDSQR %SBDSQR) - ("SBDSVDX" "sbdsvdx_" %%SBDSVDX %SBDSVDX) - ("SCOMBSSQ" "scombssq_" %%SCOMBSSQ %SCOMBSSQ) - ("SCSUM1" "scsum1_" %%SCSUM1 %SCSUM1) - ("SDISNA" "sdisna_" %%SDISNA %SDISNA) - ("SGBBRD" "sgbbrd_" %%SGBBRD %SGBBRD) - ("SGBCON" "sgbcon_" %%SGBCON %SGBCON) - ("SGBEQU" "sgbequ_" %%SGBEQU %SGBEQU) - ("SGBEQUB" "sgbequb_" %%SGBEQUB %SGBEQUB) - ("SGBRFS" "sgbrfs_" %%SGBRFS %SGBRFS) - ("SGBRFSX" "sgbrfsx_" %%SGBRFSX %SGBRFSX) - ("SGBSV" "sgbsv_" %%SGBSV %SGBSV) - ("SGBSVX" "sgbsvx_" %%SGBSVX %SGBSVX) - ("SGBSVXX" "sgbsvxx_" %%SGBSVXX %SGBSVXX) - ("SGBTF2" "sgbtf2_" %%SGBTF2 %SGBTF2) - ("SGBTRF" "sgbtrf_" %%SGBTRF %SGBTRF) - ("SGBTRS" "sgbtrs_" %%SGBTRS %SGBTRS) - ("SGEBAK" "sgebak_" %%SGEBAK %SGEBAK) - ("SGEBAL" "sgebal_" %%SGEBAL %SGEBAL) - ("SGEBD2" "sgebd2_" %%SGEBD2 %SGEBD2) - ("SGEBRD" "sgebrd_" %%SGEBRD %SGEBRD) - ("SGECON" "sgecon_" %%SGECON %SGECON) - ("SGEEQU" "sgeequ_" %%SGEEQU %SGEEQU) - ("SGEEQUB" "sgeequb_" %%SGEEQUB %SGEEQUB) - ("SGEES" "sgees_" %%SGEES %SGEES) - ("SGEESX" "sgeesx_" %%SGEESX %SGEESX) - ("SGEEV" "sgeev_" %%SGEEV %SGEEV) - ("SGEEVX" "sgeevx_" %%SGEEVX %SGEEVX) - ("SGEHD2" "sgehd2_" %%SGEHD2 %SGEHD2) - ("SGEHRD" "sgehrd_" %%SGEHRD %SGEHRD) - ("SGEJSV" "sgejsv_" %%SGEJSV %SGEJSV) - ("SGELQ" "sgelq_" %%SGELQ %SGELQ) - ("SGELQ2" "sgelq2_" %%SGELQ2 %SGELQ2) - ("SGELQF" "sgelqf_" %%SGELQF %SGELQF) - ("SGELQT" "sgelqt_" %%SGELQT %SGELQT) - ("SGELQT3" "sgelqt3_" %%SGELQT3 %SGELQT3) - ("SGELS" "sgels_" %%SGELS %SGELS) - ("SGELSD" "sgelsd_" %%SGELSD %SGELSD) - ("SGELSS" "sgelss_" %%SGELSS %SGELSS) - ("SGELSY" "sgelsy_" %%SGELSY %SGELSY) - ("SGEMLQ" "sgemlq_" %%SGEMLQ %SGEMLQ) - ("SGEMLQT" "sgemlqt_" %%SGEMLQT %SGEMLQT) - ("SGEMQR" "sgemqr_" %%SGEMQR %SGEMQR) - ("SGEMQRT" "sgemqrt_" %%SGEMQRT %SGEMQRT) - ("SGEQL2" "sgeql2_" %%SGEQL2 %SGEQL2) - ("SGEQLF" "sgeqlf_" %%SGEQLF %SGEQLF) - ("SGEQP3" "sgeqp3_" %%SGEQP3 %SGEQP3) - ("SGEQR" "sgeqr_" %%SGEQR %SGEQR) - ("SGEQR2" "sgeqr2_" %%SGEQR2 %SGEQR2) - ("SGEQR2P" "sgeqr2p_" %%SGEQR2P %SGEQR2P) - ("SGEQRF" "sgeqrf_" %%SGEQRF %SGEQRF) - ("SGEQRFP" "sgeqrfp_" %%SGEQRFP %SGEQRFP) - ("SGEQRT" "sgeqrt_" %%SGEQRT %SGEQRT) - ("SGEQRT2" "sgeqrt2_" %%SGEQRT2 %SGEQRT2) - ("SGEQRT3" "sgeqrt3_" %%SGEQRT3 %SGEQRT3) - ("SGERFS" "sgerfs_" %%SGERFS %SGERFS) - ("SGERFSX" "sgerfsx_" %%SGERFSX %SGERFSX) - ("SGERQ2" "sgerq2_" %%SGERQ2 %SGERQ2) - ("SGERQF" "sgerqf_" %%SGERQF %SGERQF) - ("SGESC2" "sgesc2_" %%SGESC2 %SGESC2) - ("SGESDD" "sgesdd_" %%SGESDD %SGESDD) - ("SGESV" "sgesv_" %%SGESV %SGESV) - ("SGESVD" "sgesvd_" %%SGESVD %SGESVD) - ("SGESVDQ" "sgesvdq_" %%SGESVDQ %SGESVDQ) - ("SGESVDX" "sgesvdx_" %%SGESVDX %SGESVDX) - ("SGESVJ" "sgesvj_" %%SGESVJ %SGESVJ) - ("SGESVX" "sgesvx_" %%SGESVX %SGESVX) - ("SGESVXX" "sgesvxx_" %%SGESVXX %SGESVXX) - ("SGETC2" "sgetc2_" %%SGETC2 %SGETC2) - ("SGETF2" "sgetf2_" %%SGETF2 %SGETF2) - ("SGETRF" "sgetrf_" %%SGETRF %SGETRF) - ("SGETRF2" "sgetrf2_" %%SGETRF2 %SGETRF2) - ("SGETRI" "sgetri_" %%SGETRI %SGETRI) - ("SGETRS" "sgetrs_" %%SGETRS %SGETRS) - ("SGETSLS" "sgetsls_" %%SGETSLS %SGETSLS) - ("SGGBAK" "sggbak_" %%SGGBAK %SGGBAK) - ("SGGBAL" "sggbal_" %%SGGBAL %SGGBAL) - ("SGGES" "sgges_" %%SGGES %SGGES) - ("SGGES3" "sgges3_" %%SGGES3 %SGGES3) - ("SGGESX" "sggesx_" %%SGGESX %SGGESX) - ("SGGEV" "sggev_" %%SGGEV %SGGEV) - ("SGGEV3" "sggev3_" %%SGGEV3 %SGGEV3) - ("SGGEVX" "sggevx_" %%SGGEVX %SGGEVX) - ("SGGGLM" "sggglm_" %%SGGGLM %SGGGLM) - ("SGGHD3" "sgghd3_" %%SGGHD3 %SGGHD3) - ("SGGHRD" "sgghrd_" %%SGGHRD %SGGHRD) - ("SGGLSE" "sgglse_" %%SGGLSE %SGGLSE) - ("SGGQRF" "sggqrf_" %%SGGQRF %SGGQRF) - ("SGGRQF" "sggrqf_" %%SGGRQF %SGGRQF) - ("SGGSVD3" "sggsvd3_" %%SGGSVD3 %SGGSVD3) - ("SGGSVP3" "sggsvp3_" %%SGGSVP3 %SGGSVP3) - ("SGSVJ0" "sgsvj0_" %%SGSVJ0 %SGSVJ0) - ("SGSVJ1" "sgsvj1_" %%SGSVJ1 %SGSVJ1) - ("SGTCON" "sgtcon_" %%SGTCON %SGTCON) - ("SGTRFS" "sgtrfs_" %%SGTRFS %SGTRFS) - ("SGTSV" "sgtsv_" %%SGTSV %SGTSV) - ("SGTSVX" "sgtsvx_" %%SGTSVX %SGTSVX) - ("SGTTRF" "sgttrf_" %%SGTTRF %SGTTRF) - ("SGTTRS" "sgttrs_" %%SGTTRS %SGTTRS) - ("SGTTS2" "sgtts2_" %%SGTTS2 %SGTTS2) - ("SHGEQZ" "shgeqz_" %%SHGEQZ %SHGEQZ) - ("SHSEIN" "shsein_" %%SHSEIN %SHSEIN) - ("SHSEQR" "shseqr_" %%SHSEQR %SHSEQR) - ("SISNAN" "sisnan_" %%SISNAN %SISNAN) - ("SLA_GBAMV" "sla_gbamv_" %%SLA_GBAMV %SLA_GBAMV) - ("SLA_GBRCOND" "sla_gbrcond_" %%SLA_GBRCOND %SLA_GBRCOND) - ("SLA_GBRFSX_EXTENDED" "sla_gbrfsx_extended_" - %%SLA_GBRFSX_EXTENDED %SLA_GBRFSX_EXTENDED) - ("SLA_GBRPVGRW" "sla_gbrpvgrw_" %%SLA_GBRPVGRW - %SLA_GBRPVGRW) - ("SLA_GEAMV" "sla_geamv_" %%SLA_GEAMV %SLA_GEAMV) - ("SLA_GERCOND" "sla_gercond_" %%SLA_GERCOND %SLA_GERCOND) - ("SLA_GERFSX_EXTENDED" "sla_gerfsx_extended_" - %%SLA_GERFSX_EXTENDED %SLA_GERFSX_EXTENDED) - ("SLA_GERPVGRW" "sla_gerpvgrw_" %%SLA_GERPVGRW - %SLA_GERPVGRW) - ("SLA_LIN_BERR" "sla_lin_berr_" %%SLA_LIN_BERR - %SLA_LIN_BERR) - ("SLA_PORCOND" "sla_porcond_" %%SLA_PORCOND %SLA_PORCOND) - ("SLA_PORFSX_EXTENDED" "sla_porfsx_extended_" - %%SLA_PORFSX_EXTENDED %SLA_PORFSX_EXTENDED) - ("SLA_PORPVGRW" "sla_porpvgrw_" %%SLA_PORPVGRW - %SLA_PORPVGRW) - ("SLA_SYAMV" "sla_syamv_" %%SLA_SYAMV %SLA_SYAMV) - ("SLA_SYRCOND" "sla_syrcond_" %%SLA_SYRCOND %SLA_SYRCOND) - ("SLA_SYRFSX_EXTENDED" "sla_syrfsx_extended_" - %%SLA_SYRFSX_EXTENDED %SLA_SYRFSX_EXTENDED) - ("SLA_SYRPVGRW" "sla_syrpvgrw_" %%SLA_SYRPVGRW - %SLA_SYRPVGRW) - ("SLA_WWADDW" "sla_wwaddw_" %%SLA_WWADDW %SLA_WWADDW) - ("SLABAD" "slabad_" %%SLABAD %SLABAD) - ("SLABRD" "slabrd_" %%SLABRD %SLABRD) - ("SLACN2" "slacn2_" %%SLACN2 %SLACN2) - ("SLACON" "slacon_" %%SLACON %SLACON) - ("SLACPY" "slacpy_" %%SLACPY %SLACPY) - ("SLADIV" "sladiv_" %%SLADIV %SLADIV) - ("SLAE2" "slae2_" %%SLAE2 %SLAE2) - ("SLAEBZ" "slaebz_" %%SLAEBZ %SLAEBZ) - ("SLAED0" "slaed0_" %%SLAED0 %SLAED0) - ("SLAED1" "slaed1_" %%SLAED1 %SLAED1) - ("SLAED2" "slaed2_" %%SLAED2 %SLAED2) - ("SLAED3" "slaed3_" %%SLAED3 %SLAED3) - ("SLAED4" "slaed4_" %%SLAED4 %SLAED4) - ("SLAED5" "slaed5_" %%SLAED5 %SLAED5) - ("SLAED6" "slaed6_" %%SLAED6 %SLAED6) - ("SLAED7" "slaed7_" %%SLAED7 %SLAED7) - ("SLAED8" "slaed8_" %%SLAED8 %SLAED8) - ("SLAED9" "slaed9_" %%SLAED9 %SLAED9) - ("SLAEDA" "slaeda_" %%SLAEDA %SLAEDA) - ("SLAEIN" "slaein_" %%SLAEIN %SLAEIN) - ("SLAEV2" "slaev2_" %%SLAEV2 %SLAEV2) - ("SLAEXC" "slaexc_" %%SLAEXC %SLAEXC) - ("SLAG2" "slag2_" %%SLAG2 %SLAG2) - ("SLAG2D" "slag2d_" %%SLAG2D %SLAG2D) - ("SLAGS2" "slags2_" %%SLAGS2 %SLAGS2) - ("SLAGTF" "slagtf_" %%SLAGTF %SLAGTF) - ("SLAGTM" "slagtm_" %%SLAGTM %SLAGTM) - ("SLAGTS" "slagts_" %%SLAGTS %SLAGTS) - ("SLAGV2" "slagv2_" %%SLAGV2 %SLAGV2) - ("SLAHQR" "slahqr_" %%SLAHQR %SLAHQR) - ("SLAHR2" "slahr2_" %%SLAHR2 %SLAHR2) - ("SLAIC1" "slaic1_" %%SLAIC1 %SLAIC1) - ("SLAISNAN" "slaisnan_" %%SLAISNAN %SLAISNAN) - ("SLALN2" "slaln2_" %%SLALN2 %SLALN2) - ("SLALS0" "slals0_" %%SLALS0 %SLALS0) - ("SLALSA" "slalsa_" %%SLALSA %SLALSA) - ("SLALSD" "slalsd_" %%SLALSD %SLALSD) - ("SLAMRG" "slamrg_" %%SLAMRG %SLAMRG) - ("SLAMSWLQ" "slamswlq_" %%SLAMSWLQ %SLAMSWLQ) - ("SLAMTSQR" "slamtsqr_" %%SLAMTSQR %SLAMTSQR) - ("SLANEG" "slaneg_" %%SLANEG %SLANEG) - ("SLANGB" "slangb_" %%SLANGB %SLANGB) - ("SLANGE" "slange_" %%SLANGE %SLANGE) - ("SLANGT" "slangt_" %%SLANGT %SLANGT) - ("SLANHS" "slanhs_" %%SLANHS %SLANHS) - ("SLANSB" "slansb_" %%SLANSB %SLANSB) - ("SLANSF" "slansf_" %%SLANSF %SLANSF) - ("SLANSP" "slansp_" %%SLANSP %SLANSP) - ("SLANST" "slanst_" %%SLANST %SLANST) - ("SLANSY" "slansy_" %%SLANSY %SLANSY) - ("SLANTB" "slantb_" %%SLANTB %SLANTB) - ("SLANTP" "slantp_" %%SLANTP %SLANTP) - ("SLANTR" "slantr_" %%SLANTR %SLANTR) - ("SLANV2" "slanv2_" %%SLANV2 %SLANV2) - ("SLAPLL" "slapll_" %%SLAPLL %SLAPLL) - ("SLAPMR" "slapmr_" %%SLAPMR %SLAPMR) - ("SLAPMT" "slapmt_" %%SLAPMT %SLAPMT) - ("SLAPY2" "slapy2_" %%SLAPY2 %SLAPY2) - ("SLAPY3" "slapy3_" %%SLAPY3 %SLAPY3) - ("SLAQGB" "slaqgb_" %%SLAQGB %SLAQGB) - ("SLAQGE" "slaqge_" %%SLAQGE %SLAQGE) - ("SLAQP2" "slaqp2_" %%SLAQP2 %SLAQP2) - ("SLAQPS" "slaqps_" %%SLAQPS %SLAQPS) - ("SLAQR0" "slaqr0_" %%SLAQR0 %SLAQR0) - ("SLAQR1" "slaqr1_" %%SLAQR1 %SLAQR1) - ("SLAQR2" "slaqr2_" %%SLAQR2 %SLAQR2) - ("SLAQR3" "slaqr3_" %%SLAQR3 %SLAQR3) - ("SLAQR4" "slaqr4_" %%SLAQR4 %SLAQR4) - ("SLAQR5" "slaqr5_" %%SLAQR5 %SLAQR5) - ("SLAQSB" "slaqsb_" %%SLAQSB %SLAQSB) - ("SLAQSP" "slaqsp_" %%SLAQSP %SLAQSP) - ("SLAQSY" "slaqsy_" %%SLAQSY %SLAQSY) - ("SLAQTR" "slaqtr_" %%SLAQTR %SLAQTR) - ("SLAR1V" "slar1v_" %%SLAR1V %SLAR1V) - ("SLAR2V" "slar2v_" %%SLAR2V %SLAR2V) - ("SLARF" "slarf_" %%SLARF %SLARF) - ("SLARFB" "slarfb_" %%SLARFB %SLARFB) - ("SLARFG" "slarfg_" %%SLARFG %SLARFG) - ("SLARFGP" "slarfgp_" %%SLARFGP %SLARFGP) - ("SLARFT" "slarft_" %%SLARFT %SLARFT) - ("SLARFX" "slarfx_" %%SLARFX %SLARFX) - ("SLARFY" "slarfy_" %%SLARFY %SLARFY) - ("SLARGV" "slargv_" %%SLARGV %SLARGV) - ("SLARNV" "slarnv_" %%SLARNV %SLARNV) - ("SLARRA" "slarra_" %%SLARRA %SLARRA) - ("SLARRB" "slarrb_" %%SLARRB %SLARRB) - ("SLARRC" "slarrc_" %%SLARRC %SLARRC) - ("SLARRD" "slarrd_" %%SLARRD %SLARRD) - ("SLARRE" "slarre_" %%SLARRE %SLARRE) - ("SLARRF" "slarrf_" %%SLARRF %SLARRF) - ("SLARRJ" "slarrj_" %%SLARRJ %SLARRJ) - ("SLARRK" "slarrk_" %%SLARRK %SLARRK) - ("SLARRR" "slarrr_" %%SLARRR %SLARRR) - ("SLARRV" "slarrv_" %%SLARRV %SLARRV) - ("SLARSCL2" "slarscl2_" %%SLARSCL2 %SLARSCL2) - ("SLARTG" "slartg_" %%SLARTG %SLARTG) - ("SLARTGP" "slartgp_" %%SLARTGP %SLARTGP) - ("SLARTGS" "slartgs_" %%SLARTGS %SLARTGS) - ("SLARTV" "slartv_" %%SLARTV %SLARTV) - ("SLARUV" "slaruv_" %%SLARUV %SLARUV) - ("SLARZ" "slarz_" %%SLARZ %SLARZ) - ("SLARZB" "slarzb_" %%SLARZB %SLARZB) - ("SLARZT" "slarzt_" %%SLARZT %SLARZT) - ("SLAS2" "slas2_" %%SLAS2 %SLAS2) - ("SLASCL" "slascl_" %%SLASCL %SLASCL) - ("SLASCL2" "slascl2_" %%SLASCL2 %SLASCL2) - ("SLASD0" "slasd0_" %%SLASD0 %SLASD0) - ("SLASD1" "slasd1_" %%SLASD1 %SLASD1) - ("SLASD2" "slasd2_" %%SLASD2 %SLASD2) - ("SLASD3" "slasd3_" %%SLASD3 %SLASD3) - ("SLASD4" "slasd4_" %%SLASD4 %SLASD4) - ("SLASD5" "slasd5_" %%SLASD5 %SLASD5) - ("SLASD6" "slasd6_" %%SLASD6 %SLASD6) - ("SLASD7" "slasd7_" %%SLASD7 %SLASD7) - ("SLASD8" "slasd8_" %%SLASD8 %SLASD8))) + %%SLANTP %SLANTP %%SLANTR %SLANTR %%SLANV2 %SLANV2 %%SLAORHR_COL_GETRFNP + %SLAORHR_COL_GETRFNP %%SLAORHR_COL_GETRFNP2 %SLAORHR_COL_GETRFNP2 %%SLAPLL + %SLAPLL %%SLAPMR %SLAPMR %%SLAPMT %SLAPMT %%SLAPY2 %SLAPY2 %%SLAPY3 %SLAPY3 + %%SLAQGB %SLAQGB %%SLAQGE %SLAQGE %%SLAQP2 %SLAQP2 %%SLAQPS %SLAQPS %%SLAQR0 + %SLAQR0 %%SLAQR1 %SLAQR1 %%SLAQR2 %SLAQR2 %%SLAQR3 %SLAQR3 %%SLAQR4 %SLAQR4 + %%SLAQR5 %SLAQR5 %%SLAQSB %SLAQSB %%SLAQSP %SLAQSP %%SLAQSY %SLAQSY %%SLAQTR + %SLAQTR %%SLAR1V %SLAR1V %%SLAR2V %SLAR2V %%SLARF %SLARF %%SLARFB %SLARFB + %%SLARFG %SLARFG %%SLARFGP %SLARFGP %%SLARFT %SLARFT %%SLARFX %SLARFX + %%SLARFY %SLARFY %%SLARGV %SLARGV %%SLARNV %SLARNV %%SLARRA %SLARRA %%SLARRB + %SLARRB %%SLARRC %SLARRC %%SLARRD %SLARRD %%SLARRE %SLARRE %%SLARRF %SLARRF + %%SLARRJ %SLARRJ %%SLARRK %SLARRK %%SLARRR %SLARRR %%SLARRV %SLARRV + %%SLARSCL2 %SLARSCL2 %%SLARTG %SLARTG %%SLARTGP %SLARTGP %%SLARTGS %SLARTGS + %%SLARTV %SLARTV %%SLARUV %SLARUV %%SLARZ %SLARZ %%SLARZB %SLARZB %%SLARZT + %SLARZT %%SLAS2 %SLAS2 %%SLASCL %SLASCL %%SLASCL2 %SLASCL2 %%SLASD0 %SLASD0 + %%SLASD1 %SLASD1 %%SLASD2 %SLASD2 %%SLASD3 %SLASD3 %%SLASD4 %SLASD4 %%SLASD5 + %SLASD5 %%SLASD6 %SLASD6 %%SLASD7 %SLASD7 %%SLASD8 %SLASD8)) + +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK + '(("ILASLR" "ilaslr_" %%ILASLR %ILASLR) + ("ILATRANS" "ilatrans_" %%ILATRANS + %ILATRANS) + ("ILAUPLO" "ilauplo_" %%ILAUPLO + %ILAUPLO) + ("ILAZLC" "ilazlc_" %%ILAZLC %ILAZLC) + ("ILAZLR" "ilazlr_" %%ILAZLR %ILAZLR) + ("IPARMQ" "iparmq_" %%IPARMQ %IPARMQ) + ("IZMAX1" "izmax1_" %%IZMAX1 %IZMAX1) + ("LSAMEN" "lsamen_" %%LSAMEN %LSAMEN) + ("SBBCSD" "sbbcsd_" %%SBBCSD %SBBCSD) + ("SBDSDC" "sbdsdc_" %%SBDSDC %SBDSDC) + ("SBDSQR" "sbdsqr_" %%SBDSQR %SBDSQR) + ("SBDSVDX" "sbdsvdx_" %%SBDSVDX + %SBDSVDX) + ("SCOMBSSQ" "scombssq_" %%SCOMBSSQ + %SCOMBSSQ) + ("SCSUM1" "scsum1_" %%SCSUM1 %SCSUM1) + ("SDISNA" "sdisna_" %%SDISNA %SDISNA) + ("SGBBRD" "sgbbrd_" %%SGBBRD %SGBBRD) + ("SGBCON" "sgbcon_" %%SGBCON %SGBCON) + ("SGBEQU" "sgbequ_" %%SGBEQU %SGBEQU) + ("SGBEQUB" "sgbequb_" %%SGBEQUB + %SGBEQUB) + ("SGBRFS" "sgbrfs_" %%SGBRFS %SGBRFS) + ("SGBRFSX" "sgbrfsx_" %%SGBRFSX + %SGBRFSX) + ("SGBSV" "sgbsv_" %%SGBSV %SGBSV) + ("SGBSVX" "sgbsvx_" %%SGBSVX %SGBSVX) + ("SGBSVXX" "sgbsvxx_" %%SGBSVXX + %SGBSVXX) + ("SGBTF2" "sgbtf2_" %%SGBTF2 %SGBTF2) + ("SGBTRF" "sgbtrf_" %%SGBTRF %SGBTRF) + ("SGBTRS" "sgbtrs_" %%SGBTRS %SGBTRS) + ("SGEBAK" "sgebak_" %%SGEBAK %SGEBAK) + ("SGEBAL" "sgebal_" %%SGEBAL %SGEBAL) + ("SGEBD2" "sgebd2_" %%SGEBD2 %SGEBD2) + ("SGEBRD" "sgebrd_" %%SGEBRD %SGEBRD) + ("SGECON" "sgecon_" %%SGECON %SGECON) + ("SGEEQU" "sgeequ_" %%SGEEQU %SGEEQU) + ("SGEEQUB" "sgeequb_" %%SGEEQUB + %SGEEQUB) + ("SGEES" "sgees_" %%SGEES %SGEES) + ("SGEESX" "sgeesx_" %%SGEESX %SGEESX) + ("SGEEV" "sgeev_" %%SGEEV %SGEEV) + ("SGEEVX" "sgeevx_" %%SGEEVX %SGEEVX) + ("SGEHD2" "sgehd2_" %%SGEHD2 %SGEHD2) + ("SGEHRD" "sgehrd_" %%SGEHRD %SGEHRD) + ("SGEJSV" "sgejsv_" %%SGEJSV %SGEJSV) + ("SGELQ" "sgelq_" %%SGELQ %SGELQ) + ("SGELQ2" "sgelq2_" %%SGELQ2 %SGELQ2) + ("SGELQF" "sgelqf_" %%SGELQF %SGELQF) + ("SGELQT" "sgelqt_" %%SGELQT %SGELQT) + ("SGELQT3" "sgelqt3_" %%SGELQT3 + %SGELQT3) + ("SGELS" "sgels_" %%SGELS %SGELS) + ("SGELSD" "sgelsd_" %%SGELSD %SGELSD) + ("SGELSS" "sgelss_" %%SGELSS %SGELSS) + ("SGELSY" "sgelsy_" %%SGELSY %SGELSY) + ("SGEMLQ" "sgemlq_" %%SGEMLQ %SGEMLQ) + ("SGEMLQT" "sgemlqt_" %%SGEMLQT + %SGEMLQT) + ("SGEMQR" "sgemqr_" %%SGEMQR %SGEMQR) + ("SGEMQRT" "sgemqrt_" %%SGEMQRT + %SGEMQRT) + ("SGEQL2" "sgeql2_" %%SGEQL2 %SGEQL2) + ("SGEQLF" "sgeqlf_" %%SGEQLF %SGEQLF) + ("SGEQP3" "sgeqp3_" %%SGEQP3 %SGEQP3) + ("SGEQR" "sgeqr_" %%SGEQR %SGEQR) + ("SGEQR2" "sgeqr2_" %%SGEQR2 %SGEQR2) + ("SGEQR2P" "sgeqr2p_" %%SGEQR2P + %SGEQR2P) + ("SGEQRF" "sgeqrf_" %%SGEQRF %SGEQRF) + ("SGEQRFP" "sgeqrfp_" %%SGEQRFP + %SGEQRFP) + ("SGEQRT" "sgeqrt_" %%SGEQRT %SGEQRT) + ("SGEQRT2" "sgeqrt2_" %%SGEQRT2 + %SGEQRT2) + ("SGEQRT3" "sgeqrt3_" %%SGEQRT3 + %SGEQRT3) + ("SGERFS" "sgerfs_" %%SGERFS %SGERFS) + ("SGERFSX" "sgerfsx_" %%SGERFSX + %SGERFSX) + ("SGERQ2" "sgerq2_" %%SGERQ2 %SGERQ2) + ("SGERQF" "sgerqf_" %%SGERQF %SGERQF) + ("SGESC2" "sgesc2_" %%SGESC2 %SGESC2) + ("SGESDD" "sgesdd_" %%SGESDD %SGESDD) + ("SGESV" "sgesv_" %%SGESV %SGESV) + ("SGESVD" "sgesvd_" %%SGESVD %SGESVD) + ("SGESVDQ" "sgesvdq_" %%SGESVDQ + %SGESVDQ) + ("SGESVDX" "sgesvdx_" %%SGESVDX + %SGESVDX) + ("SGESVJ" "sgesvj_" %%SGESVJ %SGESVJ) + ("SGESVX" "sgesvx_" %%SGESVX %SGESVX) + ("SGESVXX" "sgesvxx_" %%SGESVXX + %SGESVXX) + ("SGETC2" "sgetc2_" %%SGETC2 %SGETC2) + ("SGETF2" "sgetf2_" %%SGETF2 %SGETF2) + ("SGETRF" "sgetrf_" %%SGETRF %SGETRF) + ("SGETRF2" "sgetrf2_" %%SGETRF2 + %SGETRF2) + ("SGETRI" "sgetri_" %%SGETRI %SGETRI) + ("SGETRS" "sgetrs_" %%SGETRS %SGETRS) + ("SGETSLS" "sgetsls_" %%SGETSLS + %SGETSLS) + ("SGGBAK" "sggbak_" %%SGGBAK %SGGBAK) + ("SGGBAL" "sggbal_" %%SGGBAL %SGGBAL) + ("SGGES" "sgges_" %%SGGES %SGGES) + ("SGGES3" "sgges3_" %%SGGES3 %SGGES3) + ("SGGESX" "sggesx_" %%SGGESX %SGGESX) + ("SGGEV" "sggev_" %%SGGEV %SGGEV) + ("SGGEV3" "sggev3_" %%SGGEV3 %SGGEV3) + ("SGGEVX" "sggevx_" %%SGGEVX %SGGEVX) + ("SGGGLM" "sggglm_" %%SGGGLM %SGGGLM) + ("SGGHD3" "sgghd3_" %%SGGHD3 %SGGHD3) + ("SGGHRD" "sgghrd_" %%SGGHRD %SGGHRD) + ("SGGLSE" "sgglse_" %%SGGLSE %SGGLSE) + ("SGGQRF" "sggqrf_" %%SGGQRF %SGGQRF) + ("SGGRQF" "sggrqf_" %%SGGRQF %SGGRQF) + ("SGGSVD3" "sggsvd3_" %%SGGSVD3 + %SGGSVD3) + ("SGGSVP3" "sggsvp3_" %%SGGSVP3 + %SGGSVP3) + ("SGSVJ0" "sgsvj0_" %%SGSVJ0 %SGSVJ0) + ("SGSVJ1" "sgsvj1_" %%SGSVJ1 %SGSVJ1) + ("SGTCON" "sgtcon_" %%SGTCON %SGTCON) + ("SGTRFS" "sgtrfs_" %%SGTRFS %SGTRFS) + ("SGTSV" "sgtsv_" %%SGTSV %SGTSV) + ("SGTSVX" "sgtsvx_" %%SGTSVX %SGTSVX) + ("SGTTRF" "sgttrf_" %%SGTTRF %SGTTRF) + ("SGTTRS" "sgttrs_" %%SGTTRS %SGTTRS) + ("SGTTS2" "sgtts2_" %%SGTTS2 %SGTTS2) + ("SHGEQZ" "shgeqz_" %%SHGEQZ %SHGEQZ) + ("SHSEIN" "shsein_" %%SHSEIN %SHSEIN) + ("SHSEQR" "shseqr_" %%SHSEQR %SHSEQR) + ("SISNAN" "sisnan_" %%SISNAN %SISNAN) + ("SLA_GBAMV" "sla_gbamv_" %%SLA_GBAMV + %SLA_GBAMV) + ("SLA_GBRCOND" "sla_gbrcond_" + %%SLA_GBRCOND %SLA_GBRCOND) + ("SLA_GBRFSX_EXTENDED" + "sla_gbrfsx_extended_" + %%SLA_GBRFSX_EXTENDED + %SLA_GBRFSX_EXTENDED) + ("SLA_GBRPVGRW" "sla_gbrpvgrw_" + %%SLA_GBRPVGRW %SLA_GBRPVGRW) + ("SLA_GEAMV" "sla_geamv_" %%SLA_GEAMV + %SLA_GEAMV) + ("SLA_GERCOND" "sla_gercond_" + %%SLA_GERCOND %SLA_GERCOND) + ("SLA_GERFSX_EXTENDED" + "sla_gerfsx_extended_" + %%SLA_GERFSX_EXTENDED + %SLA_GERFSX_EXTENDED) + ("SLA_GERPVGRW" "sla_gerpvgrw_" + %%SLA_GERPVGRW %SLA_GERPVGRW) + ("SLA_LIN_BERR" "sla_lin_berr_" + %%SLA_LIN_BERR %SLA_LIN_BERR) + ("SLA_PORCOND" "sla_porcond_" + %%SLA_PORCOND %SLA_PORCOND) + ("SLA_PORFSX_EXTENDED" + "sla_porfsx_extended_" + %%SLA_PORFSX_EXTENDED + %SLA_PORFSX_EXTENDED) + ("SLA_PORPVGRW" "sla_porpvgrw_" + %%SLA_PORPVGRW %SLA_PORPVGRW) + ("SLA_SYAMV" "sla_syamv_" %%SLA_SYAMV + %SLA_SYAMV) + ("SLA_SYRCOND" "sla_syrcond_" + %%SLA_SYRCOND %SLA_SYRCOND) + ("SLA_SYRFSX_EXTENDED" + "sla_syrfsx_extended_" + %%SLA_SYRFSX_EXTENDED + %SLA_SYRFSX_EXTENDED) + ("SLA_SYRPVGRW" "sla_syrpvgrw_" + %%SLA_SYRPVGRW %SLA_SYRPVGRW) + ("SLA_WWADDW" "sla_wwaddw_" + %%SLA_WWADDW %SLA_WWADDW) + ("SLABAD" "slabad_" %%SLABAD %SLABAD) + ("SLABRD" "slabrd_" %%SLABRD %SLABRD) + ("SLACN2" "slacn2_" %%SLACN2 %SLACN2) + ("SLACON" "slacon_" %%SLACON %SLACON) + ("SLACPY" "slacpy_" %%SLACPY %SLACPY) + ("SLADIV" "sladiv_" %%SLADIV %SLADIV) + ("SLAE2" "slae2_" %%SLAE2 %SLAE2) + ("SLAEBZ" "slaebz_" %%SLAEBZ %SLAEBZ) + ("SLAED0" "slaed0_" %%SLAED0 %SLAED0) + ("SLAED1" "slaed1_" %%SLAED1 %SLAED1) + ("SLAED2" "slaed2_" %%SLAED2 %SLAED2) + ("SLAED3" "slaed3_" %%SLAED3 %SLAED3) + ("SLAED4" "slaed4_" %%SLAED4 %SLAED4) + ("SLAED5" "slaed5_" %%SLAED5 %SLAED5) + ("SLAED6" "slaed6_" %%SLAED6 %SLAED6) + ("SLAED7" "slaed7_" %%SLAED7 %SLAED7) + ("SLAED8" "slaed8_" %%SLAED8 %SLAED8) + ("SLAED9" "slaed9_" %%SLAED9 %SLAED9) + ("SLAEDA" "slaeda_" %%SLAEDA %SLAEDA) + ("SLAEIN" "slaein_" %%SLAEIN %SLAEIN) + ("SLAEV2" "slaev2_" %%SLAEV2 %SLAEV2) + ("SLAEXC" "slaexc_" %%SLAEXC %SLAEXC) + ("SLAG2" "slag2_" %%SLAG2 %SLAG2) + ("SLAG2D" "slag2d_" %%SLAG2D %SLAG2D) + ("SLAGS2" "slags2_" %%SLAGS2 %SLAGS2) + ("SLAGTF" "slagtf_" %%SLAGTF %SLAGTF) + ("SLAGTM" "slagtm_" %%SLAGTM %SLAGTM) + ("SLAGTS" "slagts_" %%SLAGTS %SLAGTS) + ("SLAGV2" "slagv2_" %%SLAGV2 %SLAGV2) + ("SLAHQR" "slahqr_" %%SLAHQR %SLAHQR) + ("SLAHR2" "slahr2_" %%SLAHR2 %SLAHR2) + ("SLAIC1" "slaic1_" %%SLAIC1 %SLAIC1) + ("SLAISNAN" "slaisnan_" %%SLAISNAN + %SLAISNAN) + ("SLALN2" "slaln2_" %%SLALN2 %SLALN2) + ("SLALS0" "slals0_" %%SLALS0 %SLALS0) + ("SLALSA" "slalsa_" %%SLALSA %SLALSA) + ("SLALSD" "slalsd_" %%SLALSD %SLALSD) + ("SLAMRG" "slamrg_" %%SLAMRG %SLAMRG) + ("SLAMSWLQ" "slamswlq_" %%SLAMSWLQ + %SLAMSWLQ) + ("SLAMTSQR" "slamtsqr_" %%SLAMTSQR + %SLAMTSQR) + ("SLANEG" "slaneg_" %%SLANEG %SLANEG) + ("SLANGB" "slangb_" %%SLANGB %SLANGB) + ("SLANGE" "slange_" %%SLANGE %SLANGE) + ("SLANGT" "slangt_" %%SLANGT %SLANGT) + ("SLANHS" "slanhs_" %%SLANHS %SLANHS) + ("SLANSB" "slansb_" %%SLANSB %SLANSB) + ("SLANSF" "slansf_" %%SLANSF %SLANSF) + ("SLANSP" "slansp_" %%SLANSP %SLANSP) + ("SLANST" "slanst_" %%SLANST %SLANST) + ("SLANSY" "slansy_" %%SLANSY %SLANSY) + ("SLANTB" "slantb_" %%SLANTB %SLANTB) + ("SLANTP" "slantp_" %%SLANTP %SLANTP) + ("SLANTR" "slantr_" %%SLANTR %SLANTR) + ("SLANV2" "slanv2_" %%SLANV2 %SLANV2) + ("SLAORHR_COL_GETRFNP" + "slaorhr_col_getrfnp_" + %%SLAORHR_COL_GETRFNP + %SLAORHR_COL_GETRFNP) + ("SLAORHR_COL_GETRFNP2" + "slaorhr_col_getrfnp2_" + %%SLAORHR_COL_GETRFNP2 + %SLAORHR_COL_GETRFNP2) + ("SLAPLL" "slapll_" %%SLAPLL %SLAPLL) + ("SLAPMR" "slapmr_" %%SLAPMR %SLAPMR) + ("SLAPMT" "slapmt_" %%SLAPMT %SLAPMT) + ("SLAPY2" "slapy2_" %%SLAPY2 %SLAPY2) + ("SLAPY3" "slapy3_" %%SLAPY3 %SLAPY3) + ("SLAQGB" "slaqgb_" %%SLAQGB %SLAQGB) + ("SLAQGE" "slaqge_" %%SLAQGE %SLAQGE) + ("SLAQP2" "slaqp2_" %%SLAQP2 %SLAQP2) + ("SLAQPS" "slaqps_" %%SLAQPS %SLAQPS) + ("SLAQR0" "slaqr0_" %%SLAQR0 %SLAQR0) + ("SLAQR1" "slaqr1_" %%SLAQR1 %SLAQR1) + ("SLAQR2" "slaqr2_" %%SLAQR2 %SLAQR2) + ("SLAQR3" "slaqr3_" %%SLAQR3 %SLAQR3) + ("SLAQR4" "slaqr4_" %%SLAQR4 %SLAQR4) + ("SLAQR5" "slaqr5_" %%SLAQR5 %SLAQR5) + ("SLAQSB" "slaqsb_" %%SLAQSB %SLAQSB) + ("SLAQSP" "slaqsp_" %%SLAQSP %SLAQSP) + ("SLAQSY" "slaqsy_" %%SLAQSY %SLAQSY) + ("SLAQTR" "slaqtr_" %%SLAQTR %SLAQTR) + ("SLAR1V" "slar1v_" %%SLAR1V %SLAR1V) + ("SLAR2V" "slar2v_" %%SLAR2V %SLAR2V) + ("SLARF" "slarf_" %%SLARF %SLARF) + ("SLARFB" "slarfb_" %%SLARFB %SLARFB) + ("SLARFG" "slarfg_" %%SLARFG %SLARFG) + ("SLARFGP" "slarfgp_" %%SLARFGP + %SLARFGP) + ("SLARFT" "slarft_" %%SLARFT %SLARFT) + ("SLARFX" "slarfx_" %%SLARFX %SLARFX) + ("SLARFY" "slarfy_" %%SLARFY %SLARFY) + ("SLARGV" "slargv_" %%SLARGV %SLARGV) + ("SLARNV" "slarnv_" %%SLARNV %SLARNV) + ("SLARRA" "slarra_" %%SLARRA %SLARRA) + ("SLARRB" "slarrb_" %%SLARRB %SLARRB) + ("SLARRC" "slarrc_" %%SLARRC %SLARRC) + ("SLARRD" "slarrd_" %%SLARRD %SLARRD) + ("SLARRE" "slarre_" %%SLARRE %SLARRE) + ("SLARRF" "slarrf_" %%SLARRF %SLARRF) + ("SLARRJ" "slarrj_" %%SLARRJ %SLARRJ) + ("SLARRK" "slarrk_" %%SLARRK %SLARRK) + ("SLARRR" "slarrr_" %%SLARRR %SLARRR) + ("SLARRV" "slarrv_" %%SLARRV %SLARRV) + ("SLARSCL2" "slarscl2_" %%SLARSCL2 + %SLARSCL2) + ("SLARTG" "slartg_" %%SLARTG %SLARTG) + ("SLARTGP" "slartgp_" %%SLARTGP + %SLARTGP) + ("SLARTGS" "slartgs_" %%SLARTGS + %SLARTGS) + ("SLARTV" "slartv_" %%SLARTV %SLARTV) + ("SLARUV" "slaruv_" %%SLARUV %SLARUV) + ("SLARZ" "slarz_" %%SLARZ %SLARZ) + ("SLARZB" "slarzb_" %%SLARZB %SLARZB) + ("SLARZT" "slarzt_" %%SLARZT %SLARZT) + ("SLAS2" "slas2_" %%SLAS2 %SLAS2) + ("SLASCL" "slascl_" %%SLASCL %SLASCL) + ("SLASCL2" "slascl2_" %%SLASCL2 + %SLASCL2) + ("SLASD0" "slasd0_" %%SLASD0 %SLASD0) + ("SLASD1" "slasd1_" %%SLASD1 %SLASD1) + ("SLASD2" "slasd2_" %%SLASD2 %SLASD2) + ("SLASD3" "slasd3_" %%SLASD3 %SLASD3) + ("SLASD4" "slasd4_" %%SLASD4 %SLASD4) + ("SLASD5" "slasd5_" %%SLASD5 %SLASD5) + ("SLASD6" "slasd6_" %%SLASD6 %SLASD6) + ("SLASD7" "slasd7_" %%SLASD7 %SLASD7) + ("SLASD8" "slasd8_" %%SLASD8 + %SLASD8))) (COMMON-LISP:EXPORT '(%ILASLR %ILATRANS %ILAUPLO %ILAZLC %ILAZLR %IPARMQ %IZMAX1 %LSAMEN %SBBCSD - %SBDSDC %SBDSQR %SBDSVDX %SCOMBSSQ %SCSUM1 %SDISNA %SGBBRD %SGBCON - %SGBEQU %SGBEQUB %SGBRFS %SGBRFSX %SGBSV %SGBSVX %SGBSVXX %SGBTF2 - %SGBTRF %SGBTRS %SGEBAK %SGEBAL %SGEBD2 %SGEBRD %SGECON %SGEEQU - %SGEEQUB %SGEES %SGEESX %SGEEV %SGEEVX %SGEHD2 %SGEHRD %SGEJSV - %SGELQ %SGELQ2 %SGELQF %SGELQT %SGELQT3 %SGELS %SGELSD %SGELSS - %SGELSY %SGEMLQ %SGEMLQT %SGEMQR %SGEMQRT %SGEQL2 %SGEQLF %SGEQP3 - %SGEQR %SGEQR2 %SGEQR2P %SGEQRF %SGEQRFP %SGEQRT %SGEQRT2 %SGEQRT3 - %SGERFS %SGERFSX %SGERQ2 %SGERQF %SGESC2 %SGESDD %SGESV %SGESVD - %SGESVDQ %SGESVDX %SGESVJ %SGESVX %SGESVXX %SGETC2 %SGETF2 %SGETRF - %SGETRF2 %SGETRI %SGETRS %SGETSLS %SGGBAK %SGGBAL %SGGES %SGGES3 - %SGGESX %SGGEV %SGGEV3 %SGGEVX %SGGGLM %SGGHD3 %SGGHRD %SGGLSE - %SGGQRF %SGGRQF %SGGSVD3 %SGGSVP3 %SGSVJ0 %SGSVJ1 %SGTCON %SGTRFS - %SGTSV %SGTSVX %SGTTRF %SGTTRS %SGTTS2 %SHGEQZ %SHSEIN %SHSEQR - %SISNAN %SLA_GBAMV %SLA_GBRCOND %SLA_GBRFSX_EXTENDED %SLA_GBRPVGRW - %SLA_GEAMV %SLA_GERCOND %SLA_GERFSX_EXTENDED %SLA_GERPVGRW - %SLA_LIN_BERR %SLA_PORCOND %SLA_PORFSX_EXTENDED %SLA_PORPVGRW - %SLA_SYAMV %SLA_SYRCOND %SLA_SYRFSX_EXTENDED %SLA_SYRPVGRW - %SLA_WWADDW %SLABAD %SLABRD %SLACN2 %SLACON %SLACPY %SLADIV %SLAE2 - %SLAEBZ %SLAED0 %SLAED1 %SLAED2 %SLAED3 %SLAED4 %SLAED5 %SLAED6 - %SLAED7 %SLAED8 %SLAED9 %SLAEDA %SLAEIN %SLAEV2 %SLAEXC %SLAG2 - %SLAG2D %SLAGS2 %SLAGTF %SLAGTM %SLAGTS %SLAGV2 %SLAHQR %SLAHR2 - %SLAIC1 %SLAISNAN %SLALN2 %SLALS0 %SLALSA %SLALSD %SLAMRG %SLAMSWLQ - %SLAMTSQR %SLANEG %SLANGB %SLANGE %SLANGT %SLANHS %SLANSB %SLANSF - %SLANSP %SLANST %SLANSY %SLANTB %SLANTP %SLANTR %SLANV2 %SLAPLL - %SLAPMR %SLAPMT %SLAPY2 %SLAPY3 %SLAQGB %SLAQGE %SLAQP2 %SLAQPS - %SLAQR0 %SLAQR1 %SLAQR2 %SLAQR3 %SLAQR4 %SLAQR5 %SLAQSB %SLAQSP - %SLAQSY %SLAQTR %SLAR1V %SLAR2V %SLARF %SLARFB %SLARFG %SLARFGP - %SLARFT %SLARFX %SLARFY %SLARGV %SLARNV %SLARRA %SLARRB %SLARRC - %SLARRD %SLARRE %SLARRF %SLARRJ %SLARRK %SLARRR %SLARRV %SLARSCL2 - %SLARTG %SLARTGP %SLARTGS %SLARTV %SLARUV %SLARZ %SLARZB %SLARZT - %SLAS2 %SLASCL %SLASCL2 %SLASD0 %SLASD1 %SLASD2 %SLASD3 %SLASD4 - %SLASD5 %SLASD6 %SLASD7 %SLASD8) + %SBDSDC %SBDSQR %SBDSVDX %SCOMBSSQ %SCSUM1 %SDISNA %SGBBRD %SGBCON %SGBEQU + %SGBEQUB %SGBRFS %SGBRFSX %SGBSV %SGBSVX %SGBSVXX %SGBTF2 %SGBTRF %SGBTRS + %SGEBAK %SGEBAL %SGEBD2 %SGEBRD %SGECON %SGEEQU %SGEEQUB %SGEES %SGEESX + %SGEEV %SGEEVX %SGEHD2 %SGEHRD %SGEJSV %SGELQ %SGELQ2 %SGELQF %SGELQT + %SGELQT3 %SGELS %SGELSD %SGELSS %SGELSY %SGEMLQ %SGEMLQT %SGEMQR %SGEMQRT + %SGEQL2 %SGEQLF %SGEQP3 %SGEQR %SGEQR2 %SGEQR2P %SGEQRF %SGEQRFP %SGEQRT + %SGEQRT2 %SGEQRT3 %SGERFS %SGERFSX %SGERQ2 %SGERQF %SGESC2 %SGESDD %SGESV + %SGESVD %SGESVDQ %SGESVDX %SGESVJ %SGESVX %SGESVXX %SGETC2 %SGETF2 %SGETRF + %SGETRF2 %SGETRI %SGETRS %SGETSLS %SGGBAK %SGGBAL %SGGES %SGGES3 %SGGESX + %SGGEV %SGGEV3 %SGGEVX %SGGGLM %SGGHD3 %SGGHRD %SGGLSE %SGGQRF %SGGRQF + %SGGSVD3 %SGGSVP3 %SGSVJ0 %SGSVJ1 %SGTCON %SGTRFS %SGTSV %SGTSVX %SGTTRF + %SGTTRS %SGTTS2 %SHGEQZ %SHSEIN %SHSEQR %SISNAN %SLA_GBAMV %SLA_GBRCOND + %SLA_GBRFSX_EXTENDED %SLA_GBRPVGRW %SLA_GEAMV %SLA_GERCOND + %SLA_GERFSX_EXTENDED %SLA_GERPVGRW %SLA_LIN_BERR %SLA_PORCOND + %SLA_PORFSX_EXTENDED %SLA_PORPVGRW %SLA_SYAMV %SLA_SYRCOND + %SLA_SYRFSX_EXTENDED %SLA_SYRPVGRW %SLA_WWADDW %SLABAD %SLABRD %SLACN2 + %SLACON %SLACPY %SLADIV %SLAE2 %SLAEBZ %SLAED0 %SLAED1 %SLAED2 %SLAED3 + %SLAED4 %SLAED5 %SLAED6 %SLAED7 %SLAED8 %SLAED9 %SLAEDA %SLAEIN %SLAEV2 + %SLAEXC %SLAG2 %SLAG2D %SLAGS2 %SLAGTF %SLAGTM %SLAGTS %SLAGV2 %SLAHQR + %SLAHR2 %SLAIC1 %SLAISNAN %SLALN2 %SLALS0 %SLALSA %SLALSD %SLAMRG %SLAMSWLQ + %SLAMTSQR %SLANEG %SLANGB %SLANGE %SLANGT %SLANHS %SLANSB %SLANSF %SLANSP + %SLANST %SLANSY %SLANTB %SLANTP %SLANTR %SLANV2 %SLAORHR_COL_GETRFNP + %SLAORHR_COL_GETRFNP2 %SLAPLL %SLAPMR %SLAPMT %SLAPY2 %SLAPY3 %SLAQGB + %SLAQGE %SLAQP2 %SLAQPS %SLAQR0 %SLAQR1 %SLAQR2 %SLAQR3 %SLAQR4 %SLAQR5 + %SLAQSB %SLAQSP %SLAQSY %SLAQTR %SLAR1V %SLAR2V %SLARF %SLARFB %SLARFG + %SLARFGP %SLARFT %SLARFX %SLARFY %SLARGV %SLARNV %SLARRA %SLARRB %SLARRC + %SLARRD %SLARRE %SLARRF %SLARRJ %SLARRK %SLARRR %SLARRV %SLARSCL2 %SLARTG + %SLARTGP %SLARTGS %SLARTV %SLARUV %SLARZ %SLARZB %SLARZT %SLAS2 %SLASCL + %SLASCL2 %SLASD0 %SLASD1 %SLASD2 %SLASD3 %SLASD4 %SLASD5 %SLASD6 %SLASD7 + %SLASD8) '#:MAGICL.LAPACK-CFFI) ;;; End of file. diff --git a/src/bindings/lapack05-cffi.lisp b/src/bindings/lapack05-cffi.lisp index 26eeac6b..1a994277 100644 --- a/src/bindings/lapack05-cffi.lisp +++ b/src/bindings/lapack05-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 5/21/2019 at 13:37:09 (UTC+1). +;;;; Generated on 3/22/2021 at 17:54:20 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -19,58 +19,59 @@ %%SORBDB4 %SORBDB4 %%SORBDB5 %SORBDB5 %%SORBDB6 %SORBDB6 %%SORCSD %SORCSD %%SORCSD2BY1 %SORCSD2BY1 %%SORG2L %SORG2L %%SORG2R %SORG2R %%SORGBR %SORGBR %%SORGHR %SORGHR %%SORGL2 %SORGL2 %%SORGLQ %SORGLQ %%SORGQL %SORGQL %%SORGQR - %SORGQR %%SORGR2 %SORGR2 %%SORGRQ %SORGRQ %%SORGTR %SORGTR %%SORM22 %SORM22 - %%SORM2L %SORM2L %%SORM2R %SORM2R %%SORMBR %SORMBR %%SORMHR %SORMHR %%SORML2 - %SORML2 %%SORMLQ %SORMLQ %%SORMQL %SORMQL %%SORMQR %SORMQR %%SORMR2 %SORMR2 - %%SORMR3 %SORMR3 %%SORMRQ %SORMRQ %%SORMRZ %SORMRZ %%SORMTR %SORMTR %%SPBCON - %SPBCON %%SPBEQU %SPBEQU %%SPBRFS %SPBRFS %%SPBSTF %SPBSTF %%SPBSV %SPBSV - %%SPBSVX %SPBSVX %%SPBTF2 %SPBTF2 %%SPBTRF %SPBTRF %%SPBTRS %SPBTRS %%SPFTRF - %SPFTRF %%SPFTRI %SPFTRI %%SPFTRS %SPFTRS %%SPOCON %SPOCON %%SPOEQU %SPOEQU - %%SPOEQUB %SPOEQUB %%SPORFS %SPORFS %%SPORFSX %SPORFSX %%SPOSV %SPOSV - %%SPOSVX %SPOSVX %%SPOSVXX %SPOSVXX %%SPOTF2 %SPOTF2 %%SPOTRF %SPOTRF - %%SPOTRF2 %SPOTRF2 %%SPOTRI %SPOTRI %%SPOTRS %SPOTRS %%SPPCON %SPPCON - %%SPPEQU %SPPEQU %%SPPRFS %SPPRFS %%SPPSV %SPPSV %%SPPSVX %SPPSVX %%SPPTRF - %SPPTRF %%SPPTRI %SPPTRI %%SPPTRS %SPPTRS %%SPSTF2 %SPSTF2 %%SPSTRF %SPSTRF - %%SPTCON %SPTCON %%SPTEQR %SPTEQR %%SPTRFS %SPTRFS %%SPTSV %SPTSV %%SPTSVX - %SPTSVX %%SPTTRF %SPTTRF %%SPTTRS %SPTTRS %%SPTTS2 %SPTTS2 %%SRSCL %SRSCL - %%SSB2ST_KERNELS %SSB2ST_KERNELS %%SSBEV %SSBEV %%SSBEV_2STAGE %SSBEV_2STAGE - %%SSBEVD %SSBEVD %%SSBEVD_2STAGE %SSBEVD_2STAGE %%SSBEVX %SSBEVX - %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SSBGST %SSBGST %%SSBGV %SSBGV %%SSBGVD - %SSBGVD %%SSBGVX %SSBGVX %%SSBTRD %SSBTRD %%SSFRK %SSFRK %%SSPCON %SSPCON - %%SSPEV %SSPEV %%SSPEVD %SSPEVD %%SSPEVX %SSPEVX %%SSPGST %SSPGST %%SSPGV - %SSPGV %%SSPGVD %SSPGVD %%SSPGVX %SSPGVX %%SSPRFS %SSPRFS %%SSPSV %SSPSV - %%SSPSVX %SSPSVX %%SSPTRD %SSPTRD %%SSPTRF %SSPTRF %%SSPTRI %SSPTRI %%SSPTRS - %SSPTRS %%SSTEBZ %SSTEBZ %%SSTEDC %SSTEDC %%SSTEGR %SSTEGR %%SSTEIN %SSTEIN - %%SSTEMR %SSTEMR %%SSTEQR %SSTEQR %%SSTERF %SSTERF %%SSTEV %SSTEV %%SSTEVD - %SSTEVD %%SSTEVR %SSTEVR %%SSTEVX %SSTEVX %%SSYCON %SSYCON %%SSYCON_3 - %SSYCON_3 %%SSYCON_ROOK %SSYCON_ROOK %%SSYCONV %SSYCONV %%SSYCONVF %SSYCONVF - %%SSYCONVF_ROOK %SSYCONVF_ROOK %%SSYEQUB %SSYEQUB %%SSYEV %SSYEV - %%SSYEV_2STAGE %SSYEV_2STAGE %%SSYEVD %SSYEVD %%SSYEVD_2STAGE %SSYEVD_2STAGE - %%SSYEVR %SSYEVR %%SSYEVR_2STAGE %SSYEVR_2STAGE %%SSYEVX %SSYEVX - %%SSYEVX_2STAGE %SSYEVX_2STAGE %%SSYGS2 %SSYGS2 %%SSYGST %SSYGST %%SSYGV - %SSYGV %%SSYGV_2STAGE %SSYGV_2STAGE %%SSYGVD %SSYGVD %%SSYGVX %SSYGVX - %%SSYRFS %SSYRFS %%SSYRFSX %SSYRFSX %%SSYSV %SSYSV %%SSYSV_AA %SSYSV_AA - %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE %%SSYSV_RK %SSYSV_RK %%SSYSV_ROOK - %SSYSV_ROOK %%SSYSVX %SSYSVX %%SSYSVXX %SSYSVXX %%SSYSWAPR %SSYSWAPR %%SSYTD2 - %SSYTD2 %%SSYTF2 %SSYTF2 %%SSYTF2_RK %SSYTF2_RK %%SSYTF2_ROOK %SSYTF2_ROOK - %%SSYTRD %SSYTRD %%SSYTRD_2STAGE %SSYTRD_2STAGE %%SSYTRD_SY2SB %SSYTRD_SY2SB - %%SSYTRF %SSYTRF %%SSYTRF_AA %SSYTRF_AA %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE - %%SSYTRF_RK %SSYTRF_RK %%SSYTRF_ROOK %SSYTRF_ROOK %%SSYTRI %SSYTRI %%SSYTRI2 - %SSYTRI2 %%SSYTRI2X %SSYTRI2X %%SSYTRI_3 %SSYTRI_3 %%SSYTRI_3X %SSYTRI_3X - %%SSYTRI_ROOK %SSYTRI_ROOK %%SSYTRS %SSYTRS %%SSYTRS2 %SSYTRS2 %%SSYTRS_3 - %SSYTRS_3 %%SSYTRS_AA %SSYTRS_AA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE - %%SSYTRS_ROOK %SSYTRS_ROOK %%STBCON %STBCON %%STBRFS %STBRFS %%STBTRS %STBTRS - %%STFSM %STFSM %%STFTRI %STFTRI %%STFTTP %STFTTP %%STFTTR %STFTTR %%STGEVC - %STGEVC %%STGEX2 %STGEX2 %%STGEXC %STGEXC %%STGSEN %STGSEN %%STGSJA %STGSJA - %%STGSNA %STGSNA %%STGSY2 %STGSY2 %%STGSYL %STGSYL %%STPCON %STPCON %%STPLQT - %STPLQT %%STPLQT2 %STPLQT2 %%STPMLQT %STPMLQT %%STPMQRT %STPMQRT %%STPQRT - %STPQRT %%STPQRT2 %STPQRT2 %%STPRFB %STPRFB %%STPRFS %STPRFS %%STPTRI %STPTRI - %%STPTRS %STPTRS %%STPTTF %STPTTF %%STPTTR %STPTTR %%STRCON %STRCON %%STREVC - %STREVC %%STREVC3 %STREVC3 %%STREXC %STREXC %%STRRFS %STRRFS %%STRSEN %STRSEN - %%STRSNA %STRSNA %%STRSYL %STRSYL %%STRTI2 %STRTI2 %%STRTRI %STRTRI %%STRTRS - %STRTRS %%STRTTF %STRTTF %%STRTTP %STRTTP %%STZRZF %STZRZF)) - -(CFFI:DEFCFUN ("slasda_" %%SLASDA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + %SORGQR %%SORGR2 %SORGR2 %%SORGRQ %SORGRQ %%SORGTR %SORGTR %%SORGTSQR + %SORGTSQR %%SORHR_COL %SORHR_COL %%SORM22 %SORM22 %%SORM2L %SORM2L %%SORM2R + %SORM2R %%SORMBR %SORMBR %%SORMHR %SORMHR %%SORML2 %SORML2 %%SORMLQ %SORMLQ + %%SORMQL %SORMQL %%SORMQR %SORMQR %%SORMR2 %SORMR2 %%SORMR3 %SORMR3 %%SORMRQ + %SORMRQ %%SORMRZ %SORMRZ %%SORMTR %SORMTR %%SPBCON %SPBCON %%SPBEQU %SPBEQU + %%SPBRFS %SPBRFS %%SPBSTF %SPBSTF %%SPBSV %SPBSV %%SPBSVX %SPBSVX %%SPBTF2 + %SPBTF2 %%SPBTRF %SPBTRF %%SPBTRS %SPBTRS %%SPFTRF %SPFTRF %%SPFTRI %SPFTRI + %%SPFTRS %SPFTRS %%SPOCON %SPOCON %%SPOEQU %SPOEQU %%SPOEQUB %SPOEQUB + %%SPORFS %SPORFS %%SPORFSX %SPORFSX %%SPOSV %SPOSV %%SPOSVX %SPOSVX %%SPOSVXX + %SPOSVXX %%SPOTF2 %SPOTF2 %%SPOTRF %SPOTRF %%SPOTRF2 %SPOTRF2 %%SPOTRI + %SPOTRI %%SPOTRS %SPOTRS %%SPPCON %SPPCON %%SPPEQU %SPPEQU %%SPPRFS %SPPRFS + %%SPPSV %SPPSV %%SPPSVX %SPPSVX %%SPPTRF %SPPTRF %%SPPTRI %SPPTRI %%SPPTRS + %SPPTRS %%SPSTF2 %SPSTF2 %%SPSTRF %SPSTRF %%SPTCON %SPTCON %%SPTEQR %SPTEQR + %%SPTRFS %SPTRFS %%SPTSV %SPTSV %%SPTSVX %SPTSVX %%SPTTRF %SPTTRF %%SPTTRS + %SPTTRS %%SPTTS2 %SPTTS2 %%SRSCL %SRSCL %%SSB2ST_KERNELS %SSB2ST_KERNELS + %%SSBEV %SSBEV %%SSBEV_2STAGE %SSBEV_2STAGE %%SSBEVD %SSBEVD %%SSBEVD_2STAGE + %SSBEVD_2STAGE %%SSBEVX %SSBEVX %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SSBGST + %SSBGST %%SSBGV %SSBGV %%SSBGVD %SSBGVD %%SSBGVX %SSBGVX %%SSBTRD %SSBTRD + %%SSFRK %SSFRK %%SSPCON %SSPCON %%SSPEV %SSPEV %%SSPEVD %SSPEVD %%SSPEVX + %SSPEVX %%SSPGST %SSPGST %%SSPGV %SSPGV %%SSPGVD %SSPGVD %%SSPGVX %SSPGVX + %%SSPRFS %SSPRFS %%SSPSV %SSPSV %%SSPSVX %SSPSVX %%SSPTRD %SSPTRD %%SSPTRF + %SSPTRF %%SSPTRI %SSPTRI %%SSPTRS %SSPTRS %%SSTEBZ %SSTEBZ %%SSTEDC %SSTEDC + %%SSTEGR %SSTEGR %%SSTEIN %SSTEIN %%SSTEMR %SSTEMR %%SSTEQR %SSTEQR %%SSTERF + %SSTERF %%SSTEV %SSTEV %%SSTEVD %SSTEVD %%SSTEVR %SSTEVR %%SSTEVX %SSTEVX + %%SSYCON %SSYCON %%SSYCON_3 %SSYCON_3 %%SSYCON_ROOK %SSYCON_ROOK %%SSYCONV + %SSYCONV %%SSYCONVF %SSYCONVF %%SSYCONVF_ROOK %SSYCONVF_ROOK %%SSYEQUB + %SSYEQUB %%SSYEV %SSYEV %%SSYEV_2STAGE %SSYEV_2STAGE %%SSYEVD %SSYEVD + %%SSYEVD_2STAGE %SSYEVD_2STAGE %%SSYEVR %SSYEVR %%SSYEVR_2STAGE + %SSYEVR_2STAGE %%SSYEVX %SSYEVX %%SSYEVX_2STAGE %SSYEVX_2STAGE %%SSYGS2 + %SSYGS2 %%SSYGST %SSYGST %%SSYGV %SSYGV %%SSYGV_2STAGE %SSYGV_2STAGE %%SSYGVD + %SSYGVD %%SSYGVX %SSYGVX %%SSYRFS %SSYRFS %%SSYRFSX %SSYRFSX %%SSYSV %SSYSV + %%SSYSV_AA %SSYSV_AA %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE %%SSYSV_RK %SSYSV_RK + %%SSYSV_ROOK %SSYSV_ROOK %%SSYSVX %SSYSVX %%SSYSVXX %SSYSVXX %%SSYSWAPR + %SSYSWAPR %%SSYTD2 %SSYTD2 %%SSYTF2 %SSYTF2 %%SSYTF2_RK %SSYTF2_RK + %%SSYTF2_ROOK %SSYTF2_ROOK %%SSYTRD %SSYTRD %%SSYTRD_2STAGE %SSYTRD_2STAGE + %%SSYTRD_SY2SB %SSYTRD_SY2SB %%SSYTRF %SSYTRF %%SSYTRF_AA %SSYTRF_AA + %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE %%SSYTRF_RK %SSYTRF_RK %%SSYTRF_ROOK + %SSYTRF_ROOK %%SSYTRI %SSYTRI %%SSYTRI2 %SSYTRI2 %%SSYTRI2X %SSYTRI2X + %%SSYTRI_3 %SSYTRI_3 %%SSYTRI_3X %SSYTRI_3X %%SSYTRI_ROOK %SSYTRI_ROOK + %%SSYTRS %SSYTRS %%SSYTRS2 %SSYTRS2 %%SSYTRS_3 %SSYTRS_3 %%SSYTRS_AA + %SSYTRS_AA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE %%SSYTRS_ROOK %SSYTRS_ROOK + %%STBCON %STBCON %%STBRFS %STBRFS %%STBTRS %STBTRS %%STFSM %STFSM %%STFTRI + %STFTRI %%STFTTP %STFTTP %%STFTTR %STFTTR %%STGEVC %STGEVC %%STGEX2 %STGEX2 + %%STGEXC %STGEXC %%STGSEN %STGSEN %%STGSJA %STGSJA %%STGSNA %STGSNA %%STGSY2 + %STGSY2 %%STGSYL %STGSYL %%STPCON %STPCON %%STPLQT %STPLQT %%STPLQT2 %STPLQT2 + %%STPMLQT %STPMLQT %%STPMQRT %STPMQRT %%STPQRT %STPQRT %%STPQRT2 %STPQRT2 + %%STPRFB %STPRFB %%STPRFS %STPRFS %%STPTRI %STPTRI %%STPTRS %STPTRS %%STPTTF + %STPTTF %%STPTTR %STPTTR %%STRCON %STRCON %%STREVC %STREVC %%STREVC3 %STREVC3 + %%STREXC %STREXC %%STRRFS %STRRFS %%STRSEN %STRSEN %%STRSNA %STRSNA %%STRSYL + %STRSYL %%STRTI2 %STRTI2 %%STRTRI %STRTRI %%STRTRS %STRTRS %%STRTTF %STRTTF + %%STRTTP %STRTTP %%STZRZF %STZRZF)) + +(CFFI:DEFCFUN ("slasda_" %%SLASDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (SMLSIZ :POINTER) @@ -157,37 +158,36 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14599 ':INT32) - (SMLSIZ-REF14600 ':INT32) (N-REF14601 ':INT32) - (SQRE-REF14602 ':INT32) (LDU-REF14606 ':INT32) - (LDGCOL-REF14615 ':INT32) (INFO-REF14622 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14599 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF14600 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14601 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14602 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14606 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14615 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14622 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14603 D) (E-REF14604 E) - (U-REF14605 U) (VT-REF14607 VT) - (K-REF14608 K) (DIFL-REF14609 DIFL) - (DIFR-REF14610 DIFR) (Z-REF14611 Z) - (POLES-REF14612 POLES) - (GIVPTR-REF14613 GIVPTR) - (GIVCOL-REF14614 GIVCOL) - (PERM-REF14616 PERM) - (GIVNUM-REF14617 GIVNUM) - (C-REF14618 C) (S-REF14619 S) - (WORK-REF14620 WORK) - (IWORK-REF14621 IWORK)) - (%%SLASDA ICOMPQ-REF14599 SMLSIZ-REF14600 N-REF14601 SQRE-REF14602 - D-REF14603 E-REF14604 U-REF14605 LDU-REF14606 VT-REF14607 - K-REF14608 DIFL-REF14609 DIFR-REF14610 Z-REF14611 - POLES-REF14612 GIVPTR-REF14613 GIVCOL-REF14614 LDGCOL-REF14615 - PERM-REF14616 GIVNUM-REF14617 C-REF14618 S-REF14619 - WORK-REF14620 IWORK-REF14621 INFO-REF14622)))) - -(CFFI:DEFCFUN ("slasdq_" %%SLASDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14594 ':INT32) + (SMLSIZ-REF14595 ':INT32) (N-REF14596 ':INT32) + (SQRE-REF14597 ':INT32) (LDU-REF14601 ':INT32) + (LDGCOL-REF14610 ':INT32) (INFO-REF14617 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14594 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF14595 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14596 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14597 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14601 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14610 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14617 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14598 D) (E-REF14599 E) + (U-REF14600 U) (VT-REF14602 VT) + (K-REF14603 K) (DIFL-REF14604 DIFL) + (DIFR-REF14605 DIFR) (Z-REF14606 Z) + (POLES-REF14607 POLES) + (GIVPTR-REF14608 GIVPTR) + (GIVCOL-REF14609 GIVCOL) + (PERM-REF14611 PERM) + (GIVNUM-REF14612 GIVNUM) + (C-REF14613 C) (S-REF14614 S) + (WORK-REF14615 WORK) + (IWORK-REF14616 IWORK)) + (%%SLASDA ICOMPQ-REF14594 SMLSIZ-REF14595 N-REF14596 SQRE-REF14597 + D-REF14598 E-REF14599 U-REF14600 LDU-REF14601 VT-REF14602 K-REF14603 + DIFL-REF14604 DIFR-REF14605 Z-REF14606 POLES-REF14607 GIVPTR-REF14608 + GIVCOL-REF14609 LDGCOL-REF14610 PERM-REF14611 GIVNUM-REF14612 C-REF14613 + S-REF14614 WORK-REF14615 IWORK-REF14616 INFO-REF14617)))) + +(CFFI:DEFCFUN ("slasdq_" %%SLASDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (SQRE :POINTER) @@ -232,29 +232,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF14624 ':INT32) (N-REF14625 ':INT32) - (NCVT-REF14626 ':INT32) (NRU-REF14627 ':INT32) - (NCC-REF14628 ':INT32) (LDVT-REF14632 ':INT32) - (LDU-REF14634 ':INT32) (LDC-REF14636 ':INT32) - (INFO-REF14638 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14624 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14625 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF14626 :INT32) NCVT) - (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF14627 :INT32) NRU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF14628 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14632 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14634 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14636 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14638 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14629 D) (E-REF14630 E) - (VT-REF14631 VT) (U-REF14633 U) - (C-REF14635 C) (WORK-REF14637 WORK)) - (%%SLASDQ UPLO SQRE-REF14624 N-REF14625 NCVT-REF14626 NRU-REF14627 - NCC-REF14628 D-REF14629 E-REF14630 VT-REF14631 LDVT-REF14632 - U-REF14633 LDU-REF14634 C-REF14635 LDC-REF14636 WORK-REF14637 - INFO-REF14638)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF14619 ':INT32) (N-REF14620 ':INT32) + (NCVT-REF14621 ':INT32) (NRU-REF14622 ':INT32) + (NCC-REF14623 ':INT32) (LDVT-REF14627 ':INT32) + (LDU-REF14629 ':INT32) (LDC-REF14631 ':INT32) + (INFO-REF14633 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14619 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14620 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF14621 :INT32) NCVT) + (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF14622 :INT32) NRU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF14623 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14627 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14629 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14631 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14633 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14624 D) (E-REF14625 E) + (VT-REF14626 VT) (U-REF14628 U) + (C-REF14630 C) (WORK-REF14632 WORK)) + (%%SLASDQ UPLO SQRE-REF14619 N-REF14620 NCVT-REF14621 NRU-REF14622 + NCC-REF14623 D-REF14624 E-REF14625 VT-REF14626 LDVT-REF14627 U-REF14628 + LDU-REF14629 C-REF14630 LDC-REF14631 WORK-REF14632 INFO-REF14633)))) -(CFFI:DEFCFUN ("slasdt_" %%SLASDT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slasdt_" %%SLASDT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (LVL :POINTER) @@ -282,19 +281,19 @@ (COMMON-LISP:*)) NDIMR) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MSUB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14639 ':INT32) (LVL-REF14640 ':INT32) - (ND-REF14641 ':INT32) (MSUB-REF14645 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14639 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF14640 :INT32) LVL) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF14641 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF14645 :INT32) MSUB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF14642 INODE) - (NDIML-REF14643 NDIML) - (NDIMR-REF14644 NDIMR)) - (%%SLASDT N-REF14639 LVL-REF14640 ND-REF14641 INODE-REF14642 - NDIML-REF14643 NDIMR-REF14644 MSUB-REF14645)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14634 ':INT32) (LVL-REF14635 ':INT32) + (ND-REF14636 ':INT32) (MSUB-REF14640 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14634 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF14635 :INT32) LVL) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF14636 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF14640 :INT32) MSUB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF14637 INODE) + (NDIML-REF14638 NDIML) + (NDIMR-REF14639 NDIMR)) + (%%SLASDT N-REF14634 LVL-REF14635 ND-REF14636 INODE-REF14637 + NDIML-REF14638 NDIMR-REF14639 MSUB-REF14640)))) -(CFFI:DEFCFUN ("slaset_" %%SLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slaset_" %%SLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -314,19 +313,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14647 ':INT32) (N-REF14648 ':INT32) - (ALPHA-REF14649 ':FLOAT) (BETA-REF14650 ':FLOAT) - (LDA-REF14652 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14647 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14648 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14649 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14650 :FLOAT) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14652 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14651 A)) - (%%SLASET UPLO M-REF14647 N-REF14648 ALPHA-REF14649 BETA-REF14650 - A-REF14651 LDA-REF14652)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14642 ':INT32) (N-REF14643 ':INT32) + (ALPHA-REF14644 ':FLOAT) (BETA-REF14645 ':FLOAT) + (LDA-REF14647 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14642 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14643 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14644 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14645 :FLOAT) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14647 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14646 A)) + (%%SLASET UPLO M-REF14642 N-REF14643 ALPHA-REF14644 BETA-REF14645 + A-REF14646 LDA-REF14647)))) -(CFFI:DEFCFUN ("slasq1_" %%SLASQ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slasq1_" %%SLASQ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -345,14 +344,14 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14653 ':INT32) (INFO-REF14657 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14653 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14657 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14654 D) (E-REF14655 E) - (WORK-REF14656 WORK)) - (%%SLASQ1 N-REF14653 D-REF14654 E-REF14655 WORK-REF14656 INFO-REF14657)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14648 ':INT32) (INFO-REF14652 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14648 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14652 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14649 D) (E-REF14650 E) + (WORK-REF14651 WORK)) + (%%SLASQ1 N-REF14648 D-REF14649 E-REF14650 WORK-REF14651 INFO-REF14652)))) -(CFFI:DEFCFUN ("slasq2_" %%SLASQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slasq2_" %%SLASQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (Z :POINTER) @@ -364,13 +363,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14658 ':INT32) (INFO-REF14660 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14658 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14660 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14659 Z)) - (%%SLASQ2 N-REF14658 Z-REF14659 INFO-REF14660)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14653 ':INT32) (INFO-REF14655 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14653 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14655 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14654 Z)) + (%%SLASQ2 N-REF14653 Z-REF14654 INFO-REF14655)))) -(CFFI:DEFCFUN ("slasq3_" %%SLASQ3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slasq3_" %%SLASQ3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I0 :POINTER) (N0 :POINTER) @@ -418,43 +417,42 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN2) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14661 ':INT32) (N0-REF14662 ':INT32) - (PP-REF14664 ':INT32) (DMIN-REF14665 ':FLOAT) - (SIGMA-REF14666 ':FLOAT) (DESIG-REF14667 ':FLOAT) - (QMAX-REF14668 ':FLOAT) (NFAIL-REF14669 ':INT32) - (ITER-REF14670 ':INT32) (NDIV-REF14671 ':INT32) - (IEEE-REF14672 ':INT32) (TTYPE-REF14673 ':INT32) - (DMIN1-REF14674 ':FLOAT) (DMIN2-REF14675 ':FLOAT) - (DN-REF14676 ':FLOAT) (DN1-REF14677 ':FLOAT) - (DN2-REF14678 ':FLOAT) (G-REF14679 ':FLOAT) - (TAU-REF14680 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14661 :INT32) I0) - (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14662 :INT32) N0) - (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14664 :INT32) PP) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14665 :FLOAT) DMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14666 :FLOAT) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF14667 :FLOAT) DESIG) - (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF14668 :FLOAT) QMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF14669 :INT32) NFAIL) - (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF14670 :INT32) ITER) - (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF14671 :INT32) NDIV) - (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF14672 :INT32) IEEE) - (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF14673 :INT32) TTYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14674 :FLOAT) DMIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14675 :FLOAT) DMIN2) - (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14676 :FLOAT) DN) - (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF14677 :FLOAT) DN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF14678 :FLOAT) DN2) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14679 :FLOAT) G) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14680 :FLOAT) TAU) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14663 Z)) - (%%SLASQ3 I0-REF14661 N0-REF14662 Z-REF14663 PP-REF14664 DMIN-REF14665 - SIGMA-REF14666 DESIG-REF14667 QMAX-REF14668 NFAIL-REF14669 - ITER-REF14670 NDIV-REF14671 IEEE-REF14672 TTYPE-REF14673 - DMIN1-REF14674 DMIN2-REF14675 DN-REF14676 DN1-REF14677 - DN2-REF14678 G-REF14679 TAU-REF14680)))) - -(CFFI:DEFCFUN ("slasq4_" %%SLASQ4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14656 ':INT32) (N0-REF14657 ':INT32) + (PP-REF14659 ':INT32) (DMIN-REF14660 ':FLOAT) + (SIGMA-REF14661 ':FLOAT) (DESIG-REF14662 ':FLOAT) + (QMAX-REF14663 ':FLOAT) (NFAIL-REF14664 ':INT32) + (ITER-REF14665 ':INT32) (NDIV-REF14666 ':INT32) + (IEEE-REF14667 ':INT32) (TTYPE-REF14668 ':INT32) + (DMIN1-REF14669 ':FLOAT) (DMIN2-REF14670 ':FLOAT) + (DN-REF14671 ':FLOAT) (DN1-REF14672 ':FLOAT) + (DN2-REF14673 ':FLOAT) (G-REF14674 ':FLOAT) + (TAU-REF14675 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14656 :INT32) I0) + (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14657 :INT32) N0) + (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14659 :INT32) PP) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14660 :FLOAT) DMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14661 :FLOAT) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF14662 :FLOAT) DESIG) + (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF14663 :FLOAT) QMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF14664 :INT32) NFAIL) + (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF14665 :INT32) ITER) + (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF14666 :INT32) NDIV) + (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF14667 :INT32) IEEE) + (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF14668 :INT32) TTYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14669 :FLOAT) DMIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14670 :FLOAT) DMIN2) + (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14671 :FLOAT) DN) + (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF14672 :FLOAT) DN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF14673 :FLOAT) DN2) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14674 :FLOAT) G) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14675 :FLOAT) TAU) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14658 Z)) + (%%SLASQ3 I0-REF14656 N0-REF14657 Z-REF14658 PP-REF14659 DMIN-REF14660 + SIGMA-REF14661 DESIG-REF14662 QMAX-REF14663 NFAIL-REF14664 ITER-REF14665 + NDIV-REF14666 IEEE-REF14667 TTYPE-REF14668 DMIN1-REF14669 DMIN2-REF14670 + DN-REF14671 DN1-REF14672 DN2-REF14673 G-REF14674 TAU-REF14675)))) + +(CFFI:DEFCFUN ("slasq4_" %%SLASQ4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I0 :POINTER) (N0 :POINTER) @@ -489,33 +487,32 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT G)) - (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14681 ':INT32) (N0-REF14682 ':INT32) - (PP-REF14684 ':INT32) (N0IN-REF14685 ':INT32) - (DMIN-REF14686 ':FLOAT) (DMIN1-REF14687 ':FLOAT) - (DMIN2-REF14688 ':FLOAT) (DN-REF14689 ':FLOAT) - (DN1-REF14690 ':FLOAT) (DN2-REF14691 ':FLOAT) - (TAU-REF14692 ':FLOAT) (TTYPE-REF14693 ':INT32) - (G-REF14694 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14681 :INT32) I0) - (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14682 :INT32) N0) - (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14684 :INT32) PP) - (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF14685 :INT32) N0IN) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14686 :FLOAT) DMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14687 :FLOAT) DMIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14688 :FLOAT) DMIN2) - (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14689 :FLOAT) DN) - (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF14690 :FLOAT) DN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF14691 :FLOAT) DN2) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14692 :FLOAT) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF14693 :INT32) TTYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14694 :FLOAT) G) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14683 Z)) - (%%SLASQ4 I0-REF14681 N0-REF14682 Z-REF14683 PP-REF14684 N0IN-REF14685 - DMIN-REF14686 DMIN1-REF14687 DMIN2-REF14688 DN-REF14689 - DN1-REF14690 DN2-REF14691 TAU-REF14692 TTYPE-REF14693 - G-REF14694)))) - -(CFFI:DEFCFUN ("slasq5_" %%SLASQ5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14676 ':INT32) (N0-REF14677 ':INT32) + (PP-REF14679 ':INT32) (N0IN-REF14680 ':INT32) + (DMIN-REF14681 ':FLOAT) (DMIN1-REF14682 ':FLOAT) + (DMIN2-REF14683 ':FLOAT) (DN-REF14684 ':FLOAT) + (DN1-REF14685 ':FLOAT) (DN2-REF14686 ':FLOAT) + (TAU-REF14687 ':FLOAT) (TTYPE-REF14688 ':INT32) + (G-REF14689 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14676 :INT32) I0) + (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14677 :INT32) N0) + (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14679 :INT32) PP) + (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF14680 :INT32) N0IN) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14681 :FLOAT) DMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14682 :FLOAT) DMIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14683 :FLOAT) DMIN2) + (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14684 :FLOAT) DN) + (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF14685 :FLOAT) DN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF14686 :FLOAT) DN2) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14687 :FLOAT) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF14688 :INT32) TTYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14689 :FLOAT) G) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14678 Z)) + (%%SLASQ4 I0-REF14676 N0-REF14677 Z-REF14678 PP-REF14679 N0IN-REF14680 + DMIN-REF14681 DMIN1-REF14682 DMIN2-REF14683 DN-REF14684 DN1-REF14685 + DN2-REF14686 TAU-REF14687 TTYPE-REF14688 G-REF14689)))) + +(CFFI:DEFCFUN ("slasq5_" %%SLASQ5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I0 :POINTER) (N0 :POINTER) @@ -551,33 +548,32 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM2) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EPS)) - (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14695 ':INT32) (N0-REF14696 ':INT32) - (PP-REF14698 ':INT32) (TAU-REF14699 ':FLOAT) - (SIGMA-REF14700 ':FLOAT) (DMIN-REF14701 ':FLOAT) - (DMIN1-REF14702 ':FLOAT) (DMIN2-REF14703 ':FLOAT) - (DN-REF14704 ':FLOAT) (DNM1-REF14705 ':FLOAT) - (DNM2-REF14706 ':FLOAT) (IEEE-REF14707 ':INT32) - (EPS-REF14708 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14695 :INT32) I0) - (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14696 :INT32) N0) - (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14698 :INT32) PP) - (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14699 :FLOAT) TAU) - (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14700 :FLOAT) SIGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14701 :FLOAT) DMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14702 :FLOAT) DMIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14703 :FLOAT) DMIN2) - (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14704 :FLOAT) DN) - (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF14705 :FLOAT) DNM1) - (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF14706 :FLOAT) DNM2) - (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF14707 :INT32) IEEE) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF14708 :FLOAT) EPS) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14697 Z)) - (%%SLASQ5 I0-REF14695 N0-REF14696 Z-REF14697 PP-REF14698 TAU-REF14699 - SIGMA-REF14700 DMIN-REF14701 DMIN1-REF14702 DMIN2-REF14703 - DN-REF14704 DNM1-REF14705 DNM2-REF14706 IEEE-REF14707 - EPS-REF14708)))) - -(CFFI:DEFCFUN ("slasq6_" %%SLASQ6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14690 ':INT32) (N0-REF14691 ':INT32) + (PP-REF14693 ':INT32) (TAU-REF14694 ':FLOAT) + (SIGMA-REF14695 ':FLOAT) (DMIN-REF14696 ':FLOAT) + (DMIN1-REF14697 ':FLOAT) (DMIN2-REF14698 ':FLOAT) + (DN-REF14699 ':FLOAT) (DNM1-REF14700 ':FLOAT) + (DNM2-REF14701 ':FLOAT) (IEEE-REF14702 ':INT32) + (EPS-REF14703 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14690 :INT32) I0) + (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14691 :INT32) N0) + (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14693 :INT32) PP) + (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14694 :FLOAT) TAU) + (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF14695 :FLOAT) SIGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14696 :FLOAT) DMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14697 :FLOAT) DMIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14698 :FLOAT) DMIN2) + (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14699 :FLOAT) DN) + (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF14700 :FLOAT) DNM1) + (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF14701 :FLOAT) DNM2) + (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF14702 :INT32) IEEE) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF14703 :FLOAT) EPS) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14692 Z)) + (%%SLASQ5 I0-REF14690 N0-REF14691 Z-REF14692 PP-REF14693 TAU-REF14694 + SIGMA-REF14695 DMIN-REF14696 DMIN1-REF14697 DMIN2-REF14698 DN-REF14699 + DNM1-REF14700 DNM2-REF14701 IEEE-REF14702 EPS-REF14703)))) + +(CFFI:DEFCFUN ("slasq6_" %%SLASQ6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (I0 :POINTER) (N0 :POINTER) @@ -603,26 +599,25 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DN) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM1) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DNM2)) - (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14709 ':INT32) (N0-REF14710 ':INT32) - (PP-REF14712 ':INT32) (DMIN-REF14713 ':FLOAT) - (DMIN1-REF14714 ':FLOAT) (DMIN2-REF14715 ':FLOAT) - (DN-REF14716 ':FLOAT) (DNM1-REF14717 ':FLOAT) - (DNM2-REF14718 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14709 :INT32) I0) - (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14710 :INT32) N0) - (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14712 :INT32) PP) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14713 :FLOAT) DMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14714 :FLOAT) DMIN1) - (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14715 :FLOAT) DMIN2) - (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14716 :FLOAT) DN) - (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF14717 :FLOAT) DNM1) - (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF14718 :FLOAT) DNM2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14711 Z)) - (%%SLASQ6 I0-REF14709 N0-REF14710 Z-REF14711 PP-REF14712 DMIN-REF14713 - DMIN1-REF14714 DMIN2-REF14715 DN-REF14716 DNM1-REF14717 - DNM2-REF14718)))) - -(CFFI:DEFCFUN ("slasr_" %%SLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF14704 ':INT32) (N0-REF14705 ':INT32) + (PP-REF14707 ':INT32) (DMIN-REF14708 ':FLOAT) + (DMIN1-REF14709 ':FLOAT) (DMIN2-REF14710 ':FLOAT) + (DN-REF14711 ':FLOAT) (DNM1-REF14712 ':FLOAT) + (DNM2-REF14713 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF14704 :INT32) I0) + (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF14705 :INT32) N0) + (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF14707 :INT32) PP) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF14708 :FLOAT) DMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF14709 :FLOAT) DMIN1) + (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF14710 :FLOAT) DMIN2) + (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF14711 :FLOAT) DN) + (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF14712 :FLOAT) DNM1) + (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF14713 :FLOAT) DNM2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14706 Z)) + (%%SLASQ6 I0-REF14704 N0-REF14705 Z-REF14706 PP-REF14707 DMIN-REF14708 + DMIN1-REF14709 DMIN2-REF14710 DN-REF14711 DNM1-REF14712 DNM2-REF14713)))) + +(CFFI:DEFCFUN ("slasr_" %%SLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (PIVOT :STRING) @@ -648,17 +643,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14722 ':INT32) (N-REF14723 ':INT32) - (LDA-REF14727 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14722 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14723 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14727 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF14724 C) (S-REF14725 S) - (A-REF14726 A)) - (%%SLASR SIDE PIVOT DIRECT M-REF14722 N-REF14723 C-REF14724 S-REF14725 - A-REF14726 LDA-REF14727)))) - -(CFFI:DEFCFUN ("slasrt_" %%SLASRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14717 ':INT32) (N-REF14718 ':INT32) + (LDA-REF14722 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14717 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14718 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14722 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF14719 C) (S-REF14720 S) + (A-REF14721 A)) + (%%SLASR SIDE PIVOT DIRECT M-REF14717 N-REF14718 C-REF14719 S-REF14720 + A-REF14721 LDA-REF14722)))) + +(CFFI:DEFCFUN ("slasrt_" %%SLASRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ID :STRING) (N :POINTER) @@ -672,13 +667,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14729 ':INT32) (INFO-REF14731 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14729 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14731 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14730 D)) - (%%SLASRT ID N-REF14729 D-REF14730 INFO-REF14731)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14724 ':INT32) (INFO-REF14726 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14724 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14726 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14725 D)) + (%%SLASRT ID N-REF14724 D-REF14725 INFO-REF14726)))) -(CFFI:DEFCFUN ("slassq_" %%SLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slassq_" %%SLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -694,17 +689,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SUMSQ)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14732 ':INT32) (INCX-REF14734 ':INT32) - (SCALE-REF14735 ':FLOAT) (SUMSQ-REF14736 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14732 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14734 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14735 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF14736 :FLOAT) SUMSQ) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14733 X)) - (%%SLASSQ N-REF14732 X-REF14733 INCX-REF14734 SCALE-REF14735 - SUMSQ-REF14736)))) - -(CFFI:DEFCFUN ("slasv2_" %%SLASV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14727 ':INT32) (INCX-REF14729 ':INT32) + (SCALE-REF14730 ':FLOAT) (SUMSQ-REF14731 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14727 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14729 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14730 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF14731 :FLOAT) SUMSQ) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14728 X)) + (%%SLASSQ N-REF14727 X-REF14728 INCX-REF14729 SCALE-REF14730 + SUMSQ-REF14731)))) + +(CFFI:DEFCFUN ("slasv2_" %%SLASV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -727,25 +722,26 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSR) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNL) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSL)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14737 ':FLOAT) (G-REF14738 ':FLOAT) - (H-REF14739 ':FLOAT) (SSMIN-REF14740 ':FLOAT) - (SSMAX-REF14741 ':FLOAT) (SNR-REF14742 ':FLOAT) - (CSR-REF14743 ':FLOAT) (SNL-REF14744 ':FLOAT) - (CSL-REF14745 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14737 :FLOAT) F) - (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14738 :FLOAT) G) - (COMMON-LISP:SETF (CFFI:MEM-REF H-REF14739 :FLOAT) H) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF14740 :FLOAT) SSMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF14741 :FLOAT) SSMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF14742 :FLOAT) SNR) - (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF14743 :FLOAT) CSR) - (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF14744 :FLOAT) SNL) - (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF14745 :FLOAT) CSL) + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF14732 ':FLOAT) (G-REF14733 ':FLOAT) + (H-REF14734 ':FLOAT) (SSMIN-REF14735 ':FLOAT) + (SSMAX-REF14736 ':FLOAT) (SNR-REF14737 ':FLOAT) + (CSR-REF14738 ':FLOAT) (SNL-REF14739 ':FLOAT) + (CSL-REF14740 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF F-REF14732 :FLOAT) F) + (COMMON-LISP:SETF (CFFI:MEM-REF G-REF14733 :FLOAT) G) + (COMMON-LISP:SETF (CFFI:MEM-REF H-REF14734 :FLOAT) H) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF14735 :FLOAT) SSMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF14736 :FLOAT) SSMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF14737 :FLOAT) SNR) + (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF14738 :FLOAT) CSR) + (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF14739 :FLOAT) SNL) + (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF14740 :FLOAT) CSL) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%SLASV2 F-REF14737 G-REF14738 H-REF14739 SSMIN-REF14740 SSMAX-REF14741 - SNR-REF14742 CSR-REF14743 SNL-REF14744 CSL-REF14745)))) + (%%SLASV2 F-REF14732 G-REF14733 H-REF14734 SSMIN-REF14735 SSMAX-REF14736 + SNR-REF14737 CSR-REF14738 SNL-REF14739 CSL-REF14740)))) -(CFFI:DEFCFUN ("slaswlq_" %%SLASWLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slaswlq_" %%SLASWLQ :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -776,25 +772,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14746 ':INT32) (N-REF14747 ':INT32) - (MB-REF14748 ':INT32) (NB-REF14749 ':INT32) - (LDA-REF14751 ':INT32) (LDT-REF14753 ':INT32) - (LWORK-REF14755 ':INT32) (INFO-REF14756 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14746 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14747 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14748 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14749 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14751 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14753 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14755 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14756 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14750 A) (T-REF14752 T) - (WORK-REF14754 WORK)) - (%%SLASWLQ M-REF14746 N-REF14747 MB-REF14748 NB-REF14749 A-REF14750 - LDA-REF14751 T-REF14752 LDT-REF14753 WORK-REF14754 - LWORK-REF14755 INFO-REF14756)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14741 ':INT32) (N-REF14742 ':INT32) + (MB-REF14743 ':INT32) (NB-REF14744 ':INT32) + (LDA-REF14746 ':INT32) (LDT-REF14748 ':INT32) + (LWORK-REF14750 ':INT32) (INFO-REF14751 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14741 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14742 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14743 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14744 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14746 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14748 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14750 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14751 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14745 A) (T-REF14747 T) + (WORK-REF14749 WORK)) + (%%SLASWLQ M-REF14741 N-REF14742 MB-REF14743 NB-REF14744 A-REF14745 + LDA-REF14746 T-REF14747 LDT-REF14748 WORK-REF14749 LWORK-REF14750 + INFO-REF14751)))) -(CFFI:DEFCFUN ("slaswp_" %%SLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slaswp_" %%SLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -817,19 +813,19 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14757 ':INT32) (LDA-REF14759 ':INT32) - (K1-REF14760 ':INT32) (K2-REF14761 ':INT32) - (INCX-REF14763 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14757 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14759 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF14760 :INT32) K1) - (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF14761 :INT32) K2) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14763 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14758 A) (IPIV-REF14762 IPIV)) - (%%SLASWP N-REF14757 A-REF14758 LDA-REF14759 K1-REF14760 K2-REF14761 - IPIV-REF14762 INCX-REF14763)))) - -(CFFI:DEFCFUN ("slasy2_" %%SLASY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14752 ':INT32) (LDA-REF14754 ':INT32) + (K1-REF14755 ':INT32) (K2-REF14756 ':INT32) + (INCX-REF14758 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14752 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14754 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF14755 :INT32) K1) + (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF14756 :INT32) K2) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14758 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14753 A) (IPIV-REF14757 IPIV)) + (%%SLASWP N-REF14752 A-REF14753 LDA-REF14754 K1-REF14755 K2-REF14756 + IPIV-REF14757 INCX-REF14758)))) + +(CFFI:DEFCFUN ("slasy2_" %%SLASY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (LTRANL :POINTER) (LTRANR :POINTER) @@ -872,33 +868,33 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT XNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF14764 ':INT32) - (LTRANR-REF14765 ':INT32) (ISGN-REF14766 ':INT32) - (N1-REF14767 ':INT32) (N2-REF14768 ':INT32) - (LDTL-REF14770 ':INT32) (LDTR-REF14772 ':INT32) - (LDB-REF14774 ':INT32) (SCALE-REF14775 ':FLOAT) - (LDX-REF14777 ':INT32) (XNORM-REF14778 ':FLOAT) - (INFO-REF14779 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF14764 :INT32) LTRANL) - (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF14765 :INT32) LTRANR) - (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF14766 :INT32) ISGN) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF14767 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF14768 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF14770 :INT32) LDTL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF14772 :INT32) LDTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14774 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14775 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14777 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF14778 :FLOAT) XNORM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14779 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF14769 TL) (TR-REF14771 TR) - (B-REF14773 B) (X-REF14776 X)) - (%%SLASY2 LTRANL-REF14764 LTRANR-REF14765 ISGN-REF14766 N1-REF14767 - N2-REF14768 TL-REF14769 LDTL-REF14770 TR-REF14771 LDTR-REF14772 - B-REF14773 LDB-REF14774 SCALE-REF14775 X-REF14776 LDX-REF14777 - XNORM-REF14778 INFO-REF14779)))) - -(CFFI:DEFCFUN ("slasyf_" %%SLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((LTRANL-REF14759 ':INT32) + (LTRANR-REF14760 ':INT32) (ISGN-REF14761 ':INT32) + (N1-REF14762 ':INT32) (N2-REF14763 ':INT32) + (LDTL-REF14765 ':INT32) (LDTR-REF14767 ':INT32) + (LDB-REF14769 ':INT32) (SCALE-REF14770 ':FLOAT) + (LDX-REF14772 ':INT32) (XNORM-REF14773 ':FLOAT) + (INFO-REF14774 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF LTRANL-REF14759 :INT32) LTRANL) + (COMMON-LISP:SETF (CFFI:MEM-REF LTRANR-REF14760 :INT32) LTRANR) + (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF14761 :INT32) ISGN) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF14762 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF14763 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDTL-REF14765 :INT32) LDTL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDTR-REF14767 :INT32) LDTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14769 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14770 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14772 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF14773 :FLOAT) XNORM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14774 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((TL-REF14764 TL) (TR-REF14766 TR) + (B-REF14768 B) (X-REF14771 X)) + (%%SLASY2 LTRANL-REF14759 LTRANR-REF14760 ISGN-REF14761 N1-REF14762 + N2-REF14763 TL-REF14764 LDTL-REF14765 TR-REF14766 LDTR-REF14767 + B-REF14768 LDB-REF14769 SCALE-REF14770 X-REF14771 LDX-REF14772 + XNORM-REF14773 INFO-REF14774)))) + +(CFFI:DEFCFUN ("slasyf_" %%SLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -928,22 +924,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14781 ':INT32) (NB-REF14782 ':INT32) - (KB-REF14783 ':INT32) (LDA-REF14785 ':INT32) - (LDW-REF14788 ':INT32) (INFO-REF14789 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14781 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14782 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14783 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14785 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14788 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14789 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14784 A) (IPIV-REF14786 IPIV) - (W-REF14787 W)) - (%%SLASYF UPLO N-REF14781 NB-REF14782 KB-REF14783 A-REF14784 LDA-REF14785 - IPIV-REF14786 W-REF14787 LDW-REF14788 INFO-REF14789)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14776 ':INT32) (NB-REF14777 ':INT32) + (KB-REF14778 ':INT32) (LDA-REF14780 ':INT32) + (LDW-REF14783 ':INT32) (INFO-REF14784 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14776 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14777 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14778 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14780 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14783 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14784 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14779 A) (IPIV-REF14781 IPIV) + (W-REF14782 W)) + (%%SLASYF UPLO N-REF14776 NB-REF14777 KB-REF14778 A-REF14779 LDA-REF14780 + IPIV-REF14781 W-REF14782 LDW-REF14783 INFO-REF14784)))) (CFFI:DEFCFUN ("slasyf_aa_" %%SLASYF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (J1 :POINTER) @@ -975,22 +971,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF14791 ':INT32) (M-REF14792 ':INT32) - (NB-REF14793 ':INT32) (LDA-REF14795 ':INT32) - (LDH-REF14798 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF14791 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14792 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14793 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14795 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14798 :INT32) LDH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14794 A) (IPIV-REF14796 IPIV) - (H-REF14797 H) (WORK-REF14799 WORK)) - (%%SLASYF_AA UPLO J1-REF14791 M-REF14792 NB-REF14793 A-REF14794 - LDA-REF14795 IPIV-REF14796 H-REF14797 LDH-REF14798 - WORK-REF14799)))) + (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF14786 ':INT32) (M-REF14787 ':INT32) + (NB-REF14788 ':INT32) (LDA-REF14790 ':INT32) + (LDH-REF14793 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF14786 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14787 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14788 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14790 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14793 :INT32) LDH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14789 A) (IPIV-REF14791 IPIV) + (H-REF14792 H) (WORK-REF14794 WORK)) + (%%SLASYF_AA UPLO J1-REF14786 M-REF14787 NB-REF14788 A-REF14789 + LDA-REF14790 IPIV-REF14791 H-REF14792 LDH-REF14793 WORK-REF14794)))) (CFFI:DEFCFUN ("slasyf_rk_" %%SLASYF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1023,23 +1018,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14801 ':INT32) (NB-REF14802 ':INT32) - (KB-REF14803 ':INT32) (LDA-REF14805 ':INT32) - (LDW-REF14809 ':INT32) (INFO-REF14810 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14801 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14802 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14803 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14805 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14809 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14810 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14804 A) (E-REF14806 E) - (IPIV-REF14807 IPIV) (W-REF14808 W)) - (%%SLASYF_RK UPLO N-REF14801 NB-REF14802 KB-REF14803 A-REF14804 - LDA-REF14805 E-REF14806 IPIV-REF14807 W-REF14808 - LDW-REF14809 INFO-REF14810)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14796 ':INT32) (NB-REF14797 ':INT32) + (KB-REF14798 ':INT32) (LDA-REF14800 ':INT32) + (LDW-REF14804 ':INT32) (INFO-REF14805 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14796 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14797 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14798 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14800 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14804 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14805 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14799 A) (E-REF14801 E) + (IPIV-REF14802 IPIV) (W-REF14803 W)) + (%%SLASYF_RK UPLO N-REF14796 NB-REF14797 KB-REF14798 A-REF14799 + LDA-REF14800 E-REF14801 IPIV-REF14802 W-REF14803 LDW-REF14804 + INFO-REF14805)))) (CFFI:DEFCFUN ("slasyf_rook_" %%SLASYF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1069,22 +1064,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14812 ':INT32) (NB-REF14813 ':INT32) - (KB-REF14814 ':INT32) (LDA-REF14816 ':INT32) - (LDW-REF14819 ':INT32) (INFO-REF14820 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14812 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14813 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14814 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14816 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14819 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14820 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14815 A) (IPIV-REF14817 IPIV) - (W-REF14818 W)) - (%%SLASYF_ROOK UPLO N-REF14812 NB-REF14813 KB-REF14814 A-REF14815 - LDA-REF14816 IPIV-REF14817 W-REF14818 LDW-REF14819 - INFO-REF14820)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14807 ':INT32) (NB-REF14808 ':INT32) + (KB-REF14809 ':INT32) (LDA-REF14811 ':INT32) + (LDW-REF14814 ':INT32) (INFO-REF14815 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14807 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14808 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14809 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14811 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14814 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14815 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14810 A) (IPIV-REF14812 IPIV) + (W-REF14813 W)) + (%%SLASYF_ROOK UPLO N-REF14807 NB-REF14808 KB-REF14809 A-REF14810 + LDA-REF14811 IPIV-REF14812 W-REF14813 LDW-REF14814 INFO-REF14815)))) -(CFFI:DEFCFUN ("slatbs_" %%SLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slatbs_" %%SLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1118,21 +1112,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14825 ':INT32) (KD-REF14826 ':INT32) - (LDAB-REF14828 ':INT32) (SCALE-REF14830 ':FLOAT) - (INFO-REF14832 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14825 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14826 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14828 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14830 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14832 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14827 AB) (X-REF14829 X) - (CNORM-REF14831 CNORM)) - (%%SLATBS UPLO TRANS DIAG NORMIN N-REF14825 KD-REF14826 AB-REF14827 - LDAB-REF14828 X-REF14829 SCALE-REF14830 CNORM-REF14831 - INFO-REF14832)))) - -(CFFI:DEFCFUN ("slatdf_" %%SLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14820 ':INT32) (KD-REF14821 ':INT32) + (LDAB-REF14823 ':INT32) (SCALE-REF14825 ':FLOAT) + (INFO-REF14827 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14820 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14821 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14823 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14825 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14827 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14822 AB) (X-REF14824 X) + (CNORM-REF14826 CNORM)) + (%%SLATBS UPLO TRANS DIAG NORMIN N-REF14820 KD-REF14821 AB-REF14822 + LDAB-REF14823 X-REF14824 SCALE-REF14825 CNORM-REF14826 INFO-REF14827)))) + +(CFFI:DEFCFUN ("slatdf_" %%SLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (N :POINTER) @@ -1164,21 +1157,21 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) JPIV)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF14833 ':INT32) (N-REF14834 ':INT32) - (LDZ-REF14836 ':INT32) (RDSUM-REF14838 ':FLOAT) - (RDSCAL-REF14839 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF14833 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14834 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14836 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF14838 :FLOAT) RDSUM) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF14839 :FLOAT) RDSCAL) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14835 Z) (RHS-REF14837 RHS) - (IPIV-REF14840 IPIV) - (JPIV-REF14841 JPIV)) - (%%SLATDF IJOB-REF14833 N-REF14834 Z-REF14835 LDZ-REF14836 RHS-REF14837 - RDSUM-REF14838 RDSCAL-REF14839 IPIV-REF14840 JPIV-REF14841)))) - -(CFFI:DEFCFUN ("slatps_" %%SLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF14828 ':INT32) (N-REF14829 ':INT32) + (LDZ-REF14831 ':INT32) (RDSUM-REF14833 ':FLOAT) + (RDSCAL-REF14834 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF14828 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14829 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14831 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF14833 :FLOAT) RDSUM) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF14834 :FLOAT) RDSCAL) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF14830 Z) (RHS-REF14832 RHS) + (IPIV-REF14835 IPIV) + (JPIV-REF14836 JPIV)) + (%%SLATDF IJOB-REF14828 N-REF14829 Z-REF14830 LDZ-REF14831 RHS-REF14832 + RDSUM-REF14833 RDSCAL-REF14834 IPIV-REF14835 JPIV-REF14836)))) + +(CFFI:DEFCFUN ("slatps_" %%SLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1207,17 +1200,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14846 ':INT32) (SCALE-REF14849 ':FLOAT) - (INFO-REF14851 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14846 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14849 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14851 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14847 AP) (X-REF14848 X) - (CNORM-REF14850 CNORM)) - (%%SLATPS UPLO TRANS DIAG NORMIN N-REF14846 AP-REF14847 X-REF14848 - SCALE-REF14849 CNORM-REF14850 INFO-REF14851)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14841 ':INT32) (SCALE-REF14844 ':FLOAT) + (INFO-REF14846 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14841 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14844 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14846 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14842 AP) (X-REF14843 X) + (CNORM-REF14845 CNORM)) + (%%SLATPS UPLO TRANS DIAG NORMIN N-REF14841 AP-REF14842 X-REF14843 + SCALE-REF14844 CNORM-REF14845 INFO-REF14846)))) -(CFFI:DEFCFUN ("slatrd_" %%SLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slatrd_" %%SLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1245,18 +1238,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14853 ':INT32) (NB-REF14854 ':INT32) - (LDA-REF14856 ':INT32) (LDW-REF14860 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14853 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14854 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14856 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14860 :INT32) LDW) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14855 A) (E-REF14857 E) - (TAU-REF14858 TAU) (W-REF14859 W)) - (%%SLATRD UPLO N-REF14853 NB-REF14854 A-REF14855 LDA-REF14856 E-REF14857 - TAU-REF14858 W-REF14859 LDW-REF14860)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14848 ':INT32) (NB-REF14849 ':INT32) + (LDA-REF14851 ':INT32) (LDW-REF14855 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14848 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14849 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14851 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14855 :INT32) LDW) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14850 A) (E-REF14852 E) + (TAU-REF14853 TAU) (W-REF14854 W)) + (%%SLATRD UPLO N-REF14848 NB-REF14849 A-REF14850 LDA-REF14851 E-REF14852 + TAU-REF14853 W-REF14854 LDW-REF14855)))) -(CFFI:DEFCFUN ("slatrs_" %%SLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slatrs_" %%SLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -1287,18 +1280,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14865 ':INT32) (LDA-REF14867 ':INT32) - (SCALE-REF14869 ':FLOAT) (INFO-REF14871 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14865 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14867 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14869 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14871 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14866 A) (X-REF14868 X) - (CNORM-REF14870 CNORM)) - (%%SLATRS UPLO TRANS DIAG NORMIN N-REF14865 A-REF14866 LDA-REF14867 - X-REF14868 SCALE-REF14869 CNORM-REF14870 INFO-REF14871)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14860 ':INT32) (LDA-REF14862 ':INT32) + (SCALE-REF14864 ':FLOAT) (INFO-REF14866 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14860 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14862 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14864 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14866 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14861 A) (X-REF14863 X) + (CNORM-REF14865 CNORM)) + (%%SLATRS UPLO TRANS DIAG NORMIN N-REF14860 A-REF14861 LDA-REF14862 + X-REF14863 SCALE-REF14864 CNORM-REF14865 INFO-REF14866)))) -(CFFI:DEFCFUN ("slatrz_" %%SLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slatrz_" %%SLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1322,18 +1315,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14872 ':INT32) (N-REF14873 ':INT32) - (L-REF14874 ':INT32) (LDA-REF14876 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14872 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14873 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14874 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14876 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14875 A) (TAU-REF14877 TAU) - (WORK-REF14878 WORK)) - (%%SLATRZ M-REF14872 N-REF14873 L-REF14874 A-REF14875 LDA-REF14876 - TAU-REF14877 WORK-REF14878)))) - -(CFFI:DEFCFUN ("slatsqr_" %%SLATSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14867 ':INT32) (N-REF14868 ':INT32) + (L-REF14869 ':INT32) (LDA-REF14871 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14867 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14868 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14869 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14871 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14870 A) (TAU-REF14872 TAU) + (WORK-REF14873 WORK)) + (%%SLATRZ M-REF14867 N-REF14868 L-REF14869 A-REF14870 LDA-REF14871 + TAU-REF14872 WORK-REF14873)))) + +(CFFI:DEFCFUN ("slatsqr_" %%SLATSQR :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1364,25 +1358,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14879 ':INT32) (N-REF14880 ':INT32) - (MB-REF14881 ':INT32) (NB-REF14882 ':INT32) - (LDA-REF14884 ':INT32) (LDT-REF14886 ':INT32) - (LWORK-REF14888 ':INT32) (INFO-REF14889 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14879 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14880 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14881 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14882 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14884 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14886 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14888 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14889 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14883 A) (T-REF14885 T) - (WORK-REF14887 WORK)) - (%%SLATSQR M-REF14879 N-REF14880 MB-REF14881 NB-REF14882 A-REF14883 - LDA-REF14884 T-REF14885 LDT-REF14886 WORK-REF14887 - LWORK-REF14888 INFO-REF14889)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14874 ':INT32) (N-REF14875 ':INT32) + (MB-REF14876 ':INT32) (NB-REF14877 ':INT32) + (LDA-REF14879 ':INT32) (LDT-REF14881 ':INT32) + (LWORK-REF14883 ':INT32) (INFO-REF14884 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14874 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14875 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14876 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14877 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14879 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14881 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14883 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14884 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14878 A) (T-REF14880 T) + (WORK-REF14882 WORK)) + (%%SLATSQR M-REF14874 N-REF14875 MB-REF14876 NB-REF14877 A-REF14878 + LDA-REF14879 T-REF14880 LDT-REF14881 WORK-REF14882 LWORK-REF14883 + INFO-REF14884)))) -(CFFI:DEFCFUN ("slauu2_" %%SLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slauu2_" %%SLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1398,15 +1392,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14891 ':INT32) (LDA-REF14893 ':INT32) - (INFO-REF14894 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14891 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14893 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14894 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14892 A)) - (%%SLAUU2 UPLO N-REF14891 A-REF14892 LDA-REF14893 INFO-REF14894)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14886 ':INT32) (LDA-REF14888 ':INT32) + (INFO-REF14889 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14886 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14888 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14889 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14887 A)) + (%%SLAUU2 UPLO N-REF14886 A-REF14887 LDA-REF14888 INFO-REF14889)))) -(CFFI:DEFCFUN ("slauum_" %%SLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("slauum_" %%SLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1422,15 +1416,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14896 ':INT32) (LDA-REF14898 ':INT32) - (INFO-REF14899 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14896 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14898 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14899 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14897 A)) - (%%SLAUUM UPLO N-REF14896 A-REF14897 LDA-REF14898 INFO-REF14899)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14891 ':INT32) (LDA-REF14893 ':INT32) + (INFO-REF14894 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14891 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14893 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14894 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14892 A)) + (%%SLAUUM UPLO N-REF14891 A-REF14892 LDA-REF14893 INFO-REF14894)))) -(CFFI:DEFCFUN ("sopgtr_" %%SOPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sopgtr_" %%SOPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1457,17 +1451,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14901 ':INT32) (LDQ-REF14905 ':INT32) - (INFO-REF14907 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14901 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14905 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14907 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14902 AP) (TAU-REF14903 TAU) - (Q-REF14904 Q) (WORK-REF14906 WORK)) - (%%SOPGTR UPLO N-REF14901 AP-REF14902 TAU-REF14903 Q-REF14904 - LDQ-REF14905 WORK-REF14906 INFO-REF14907)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14896 ':INT32) (LDQ-REF14900 ':INT32) + (INFO-REF14902 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14896 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14900 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14902 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14897 AP) (TAU-REF14898 TAU) + (Q-REF14899 Q) (WORK-REF14901 WORK)) + (%%SOPGTR UPLO N-REF14896 AP-REF14897 TAU-REF14898 Q-REF14899 + LDQ-REF14900 WORK-REF14901 INFO-REF14902)))) -(CFFI:DEFCFUN ("sopmtr_" %%SOPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sopmtr_" %%SOPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (UPLO :STRING) @@ -1500,18 +1494,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14911 ':INT32) (N-REF14912 ':INT32) - (LDC-REF14916 ':INT32) (INFO-REF14918 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14911 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14912 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14916 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14918 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14913 AP) (TAU-REF14914 TAU) - (C-REF14915 C) (WORK-REF14917 WORK)) - (%%SOPMTR SIDE UPLO TRANS M-REF14911 N-REF14912 AP-REF14913 TAU-REF14914 - C-REF14915 LDC-REF14916 WORK-REF14917 INFO-REF14918)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14906 ':INT32) (N-REF14907 ':INT32) + (LDC-REF14911 ':INT32) (INFO-REF14913 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14906 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14907 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14911 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14913 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14908 AP) (TAU-REF14909 TAU) + (C-REF14910 C) (WORK-REF14912 WORK)) + (%%SOPMTR SIDE UPLO TRANS M-REF14906 N-REF14907 AP-REF14908 TAU-REF14909 + C-REF14910 LDC-REF14911 WORK-REF14912 INFO-REF14913)))) -(CFFI:DEFCFUN ("sorbdb_" %%SORBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sorbdb_" %%SORBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (SIGNS :STRING) @@ -1584,38 +1578,39 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14921 ':INT32) (P-REF14922 ':INT32) - (Q-REF14923 ':INT32) (LDX11-REF14925 ':INT32) - (LDX12-REF14927 ':INT32) (LDX21-REF14929 ':INT32) - (LDX22-REF14931 ':INT32) (LWORK-REF14939 ':INT32) - (INFO-REF14940 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14921 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14922 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14923 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14925 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF14927 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14929 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF14931 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14939 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14940 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14924 X11) - (X12-REF14926 X12) - (X21-REF14928 X21) - (X22-REF14930 X22) - (THETA-REF14932 THETA) - (PHI-REF14933 PHI) - (TAUP1-REF14934 TAUP1) - (TAUP2-REF14935 TAUP2) - (TAUQ1-REF14936 TAUQ1) - (TAUQ2-REF14937 TAUQ2) - (WORK-REF14938 WORK)) - (%%SORBDB TRANS SIGNS M-REF14921 P-REF14922 Q-REF14923 X11-REF14924 - LDX11-REF14925 X12-REF14926 LDX12-REF14927 X21-REF14928 - LDX21-REF14929 X22-REF14930 LDX22-REF14931 THETA-REF14932 - PHI-REF14933 TAUP1-REF14934 TAUP2-REF14935 TAUQ1-REF14936 - TAUQ2-REF14937 WORK-REF14938 LWORK-REF14939 INFO-REF14940)))) - -(CFFI:DEFCFUN ("sorbdb1_" %%SORBDB1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14916 ':INT32) (P-REF14917 ':INT32) + (Q-REF14918 ':INT32) (LDX11-REF14920 ':INT32) + (LDX12-REF14922 ':INT32) (LDX21-REF14924 ':INT32) + (LDX22-REF14926 ':INT32) (LWORK-REF14934 ':INT32) + (INFO-REF14935 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14916 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14917 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14918 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14920 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF14922 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14924 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF14926 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14934 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14935 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14919 X11) + (X12-REF14921 X12) + (X21-REF14923 X21) + (X22-REF14925 X22) + (THETA-REF14927 THETA) + (PHI-REF14928 PHI) + (TAUP1-REF14929 TAUP1) + (TAUP2-REF14930 TAUP2) + (TAUQ1-REF14931 TAUQ1) + (TAUQ2-REF14932 TAUQ2) + (WORK-REF14933 WORK)) + (%%SORBDB TRANS SIGNS M-REF14916 P-REF14917 Q-REF14918 X11-REF14919 + LDX11-REF14920 X12-REF14921 LDX12-REF14922 X21-REF14923 LDX21-REF14924 + X22-REF14925 LDX22-REF14926 THETA-REF14927 PHI-REF14928 TAUP1-REF14929 + TAUP2-REF14930 TAUQ1-REF14931 TAUQ2-REF14932 WORK-REF14933 + LWORK-REF14934 INFO-REF14935)))) + +(CFFI:DEFCFUN ("sorbdb1_" %%SORBDB1 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -1668,31 +1663,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14941 ':INT32) (P-REF14942 ':INT32) - (Q-REF14943 ':INT32) (LDX11-REF14945 ':INT32) - (LDX21-REF14947 ':INT32) (LWORK-REF14954 ':INT32) - (INFO-REF14955 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14941 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14942 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14943 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14945 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14947 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14954 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14955 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14944 X11) - (X21-REF14946 X21) - (THETA-REF14948 THETA) - (PHI-REF14949 PHI) - (TAUP1-REF14950 TAUP1) - (TAUP2-REF14951 TAUP2) - (TAUQ1-REF14952 TAUQ1) - (WORK-REF14953 WORK)) - (%%SORBDB1 M-REF14941 P-REF14942 Q-REF14943 X11-REF14944 LDX11-REF14945 - X21-REF14946 LDX21-REF14947 THETA-REF14948 PHI-REF14949 - TAUP1-REF14950 TAUP2-REF14951 TAUQ1-REF14952 WORK-REF14953 - LWORK-REF14954 INFO-REF14955)))) - -(CFFI:DEFCFUN ("sorbdb2_" %%SORBDB2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14936 ':INT32) (P-REF14937 ':INT32) + (Q-REF14938 ':INT32) (LDX11-REF14940 ':INT32) + (LDX21-REF14942 ':INT32) (LWORK-REF14949 ':INT32) + (INFO-REF14950 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14936 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14937 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14938 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14940 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14942 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14949 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14950 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14939 X11) + (X21-REF14941 X21) + (THETA-REF14943 THETA) + (PHI-REF14944 PHI) + (TAUP1-REF14945 TAUP1) + (TAUP2-REF14946 TAUP2) + (TAUQ1-REF14947 TAUQ1) + (WORK-REF14948 WORK)) + (%%SORBDB1 M-REF14936 P-REF14937 Q-REF14938 X11-REF14939 LDX11-REF14940 + X21-REF14941 LDX21-REF14942 THETA-REF14943 PHI-REF14944 TAUP1-REF14945 + TAUP2-REF14946 TAUQ1-REF14947 WORK-REF14948 LWORK-REF14949 + INFO-REF14950)))) + +(CFFI:DEFCFUN ("sorbdb2_" %%SORBDB2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -1745,31 +1741,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14956 ':INT32) (P-REF14957 ':INT32) - (Q-REF14958 ':INT32) (LDX11-REF14960 ':INT32) - (LDX21-REF14962 ':INT32) (LWORK-REF14969 ':INT32) - (INFO-REF14970 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14956 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14957 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14958 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14960 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14962 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14969 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14970 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14959 X11) - (X21-REF14961 X21) - (THETA-REF14963 THETA) - (PHI-REF14964 PHI) - (TAUP1-REF14965 TAUP1) - (TAUP2-REF14966 TAUP2) - (TAUQ1-REF14967 TAUQ1) - (WORK-REF14968 WORK)) - (%%SORBDB2 M-REF14956 P-REF14957 Q-REF14958 X11-REF14959 LDX11-REF14960 - X21-REF14961 LDX21-REF14962 THETA-REF14963 PHI-REF14964 - TAUP1-REF14965 TAUP2-REF14966 TAUQ1-REF14967 WORK-REF14968 - LWORK-REF14969 INFO-REF14970)))) - -(CFFI:DEFCFUN ("sorbdb3_" %%SORBDB3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14951 ':INT32) (P-REF14952 ':INT32) + (Q-REF14953 ':INT32) (LDX11-REF14955 ':INT32) + (LDX21-REF14957 ':INT32) (LWORK-REF14964 ':INT32) + (INFO-REF14965 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14951 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14952 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14953 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14955 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14957 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14964 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14965 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14954 X11) + (X21-REF14956 X21) + (THETA-REF14958 THETA) + (PHI-REF14959 PHI) + (TAUP1-REF14960 TAUP1) + (TAUP2-REF14961 TAUP2) + (TAUQ1-REF14962 TAUQ1) + (WORK-REF14963 WORK)) + (%%SORBDB2 M-REF14951 P-REF14952 Q-REF14953 X11-REF14954 LDX11-REF14955 + X21-REF14956 LDX21-REF14957 THETA-REF14958 PHI-REF14959 TAUP1-REF14960 + TAUP2-REF14961 TAUQ1-REF14962 WORK-REF14963 LWORK-REF14964 + INFO-REF14965)))) + +(CFFI:DEFCFUN ("sorbdb3_" %%SORBDB3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -1822,31 +1819,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14971 ':INT32) (P-REF14972 ':INT32) - (Q-REF14973 ':INT32) (LDX11-REF14975 ':INT32) - (LDX21-REF14977 ':INT32) (LWORK-REF14984 ':INT32) - (INFO-REF14985 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14971 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14972 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14973 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14975 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14977 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14984 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14985 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14974 X11) - (X21-REF14976 X21) - (THETA-REF14978 THETA) - (PHI-REF14979 PHI) - (TAUP1-REF14980 TAUP1) - (TAUP2-REF14981 TAUP2) - (TAUQ1-REF14982 TAUQ1) - (WORK-REF14983 WORK)) - (%%SORBDB3 M-REF14971 P-REF14972 Q-REF14973 X11-REF14974 LDX11-REF14975 - X21-REF14976 LDX21-REF14977 THETA-REF14978 PHI-REF14979 - TAUP1-REF14980 TAUP2-REF14981 TAUQ1-REF14982 WORK-REF14983 - LWORK-REF14984 INFO-REF14985)))) - -(CFFI:DEFCFUN ("sorbdb4_" %%SORBDB4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14966 ':INT32) (P-REF14967 ':INT32) + (Q-REF14968 ':INT32) (LDX11-REF14970 ':INT32) + (LDX21-REF14972 ':INT32) (LWORK-REF14979 ':INT32) + (INFO-REF14980 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14966 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14967 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14968 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14970 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14972 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14979 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14980 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14969 X11) + (X21-REF14971 X21) + (THETA-REF14973 THETA) + (PHI-REF14974 PHI) + (TAUP1-REF14975 TAUP1) + (TAUP2-REF14976 TAUP2) + (TAUQ1-REF14977 TAUQ1) + (WORK-REF14978 WORK)) + (%%SORBDB3 M-REF14966 P-REF14967 Q-REF14968 X11-REF14969 LDX11-REF14970 + X21-REF14971 LDX21-REF14972 THETA-REF14973 PHI-REF14974 TAUP1-REF14975 + TAUP2-REF14976 TAUQ1-REF14977 WORK-REF14978 LWORK-REF14979 + INFO-REF14980)))) + +(CFFI:DEFCFUN ("sorbdb4_" %%SORBDB4 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -1903,32 +1901,33 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14986 ':INT32) (P-REF14987 ':INT32) - (Q-REF14988 ':INT32) (LDX11-REF14990 ':INT32) - (LDX21-REF14992 ':INT32) (LWORK-REF15000 ':INT32) - (INFO-REF15001 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14986 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14987 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14988 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14990 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14992 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15000 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15001 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14989 X11) - (X21-REF14991 X21) - (THETA-REF14993 THETA) - (PHI-REF14994 PHI) - (TAUP1-REF14995 TAUP1) - (TAUP2-REF14996 TAUP2) - (TAUQ1-REF14997 TAUQ1) - (PHANTOM-REF14998 PHANTOM) - (WORK-REF14999 WORK)) - (%%SORBDB4 M-REF14986 P-REF14987 Q-REF14988 X11-REF14989 LDX11-REF14990 - X21-REF14991 LDX21-REF14992 THETA-REF14993 PHI-REF14994 - TAUP1-REF14995 TAUP2-REF14996 TAUQ1-REF14997 PHANTOM-REF14998 - WORK-REF14999 LWORK-REF15000 INFO-REF15001)))) - -(CFFI:DEFCFUN ("sorbdb5_" %%SORBDB5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14981 ':INT32) (P-REF14982 ':INT32) + (Q-REF14983 ':INT32) (LDX11-REF14985 ':INT32) + (LDX21-REF14987 ':INT32) (LWORK-REF14995 ':INT32) + (INFO-REF14996 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14981 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14982 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14983 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14985 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14987 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14995 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14996 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14984 X11) + (X21-REF14986 X21) + (THETA-REF14988 THETA) + (PHI-REF14989 PHI) + (TAUP1-REF14990 TAUP1) + (TAUP2-REF14991 TAUP2) + (TAUQ1-REF14992 TAUQ1) + (PHANTOM-REF14993 PHANTOM) + (WORK-REF14994 WORK)) + (%%SORBDB4 M-REF14981 P-REF14982 Q-REF14983 X11-REF14984 LDX11-REF14985 + X21-REF14986 LDX21-REF14987 THETA-REF14988 PHI-REF14989 TAUP1-REF14990 + TAUP2-REF14991 TAUQ1-REF14992 PHANTOM-REF14993 WORK-REF14994 + LWORK-REF14995 INFO-REF14996)))) + +(CFFI:DEFCFUN ("sorbdb5_" %%SORBDB5 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M1 :POINTER) (M2 :POINTER) @@ -1968,29 +1967,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF15002 ':INT32) (M2-REF15003 ':INT32) - (N-REF15004 ':INT32) (INCX1-REF15006 ':INT32) - (INCX2-REF15008 ':INT32) (LDQ1-REF15010 ':INT32) - (LDQ2-REF15012 ':INT32) (LWORK-REF15014 ':INT32) - (INFO-REF15015 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF15002 :INT32) M1) - (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF15003 :INT32) M2) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15004 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15006 :INT32) INCX1) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15008 :INT32) INCX2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15010 :INT32) LDQ1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15012 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15014 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15015 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15005 X1) (X2-REF15007 X2) - (Q1-REF15009 Q1) (Q2-REF15011 Q2) - (WORK-REF15013 WORK)) - (%%SORBDB5 M1-REF15002 M2-REF15003 N-REF15004 X1-REF15005 INCX1-REF15006 - X2-REF15007 INCX2-REF15008 Q1-REF15009 LDQ1-REF15010 - Q2-REF15011 LDQ2-REF15012 WORK-REF15013 LWORK-REF15014 - INFO-REF15015)))) - -(CFFI:DEFCFUN ("sorbdb6_" %%SORBDB6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF14997 ':INT32) (M2-REF14998 ':INT32) + (N-REF14999 ':INT32) (INCX1-REF15001 ':INT32) + (INCX2-REF15003 ':INT32) (LDQ1-REF15005 ':INT32) + (LDQ2-REF15007 ':INT32) (LWORK-REF15009 ':INT32) + (INFO-REF15010 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF14997 :INT32) M1) + (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF14998 :INT32) M2) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14999 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15001 :INT32) INCX1) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15003 :INT32) INCX2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15005 :INT32) LDQ1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15007 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15009 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15010 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15000 X1) (X2-REF15002 X2) + (Q1-REF15004 Q1) (Q2-REF15006 Q2) + (WORK-REF15008 WORK)) + (%%SORBDB5 M1-REF14997 M2-REF14998 N-REF14999 X1-REF15000 INCX1-REF15001 + X2-REF15002 INCX2-REF15003 Q1-REF15004 LDQ1-REF15005 Q2-REF15006 + LDQ2-REF15007 WORK-REF15008 LWORK-REF15009 INFO-REF15010)))) + +(CFFI:DEFCFUN ("sorbdb6_" %%SORBDB6 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M1 :POINTER) (M2 :POINTER) @@ -2030,29 +2029,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF15016 ':INT32) (M2-REF15017 ':INT32) - (N-REF15018 ':INT32) (INCX1-REF15020 ':INT32) - (INCX2-REF15022 ':INT32) (LDQ1-REF15024 ':INT32) - (LDQ2-REF15026 ':INT32) (LWORK-REF15028 ':INT32) - (INFO-REF15029 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF15016 :INT32) M1) - (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF15017 :INT32) M2) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15018 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15020 :INT32) INCX1) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15022 :INT32) INCX2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15024 :INT32) LDQ1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15026 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15028 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15029 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15019 X1) (X2-REF15021 X2) - (Q1-REF15023 Q1) (Q2-REF15025 Q2) - (WORK-REF15027 WORK)) - (%%SORBDB6 M1-REF15016 M2-REF15017 N-REF15018 X1-REF15019 INCX1-REF15020 - X2-REF15021 INCX2-REF15022 Q1-REF15023 LDQ1-REF15024 - Q2-REF15025 LDQ2-REF15026 WORK-REF15027 LWORK-REF15028 - INFO-REF15029)))) - -(CFFI:DEFCFUN ("sorcsd_" %%SORCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF15011 ':INT32) (M2-REF15012 ':INT32) + (N-REF15013 ':INT32) (INCX1-REF15015 ':INT32) + (INCX2-REF15017 ':INT32) (LDQ1-REF15019 ':INT32) + (LDQ2-REF15021 ':INT32) (LWORK-REF15023 ':INT32) + (INFO-REF15024 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF15011 :INT32) M1) + (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF15012 :INT32) M2) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15013 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15015 :INT32) INCX1) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15017 :INT32) INCX2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15019 :INT32) LDQ1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15021 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15023 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15024 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15014 X1) (X2-REF15016 X2) + (Q1-REF15018 Q1) (Q2-REF15020 Q2) + (WORK-REF15022 WORK)) + (%%SORBDB6 M1-REF15011 M2-REF15012 N-REF15013 X1-REF15014 INCX1-REF15015 + X2-REF15016 INCX2-REF15017 Q1-REF15018 LDQ1-REF15019 Q2-REF15020 + LDQ2-REF15021 WORK-REF15022 LWORK-REF15023 INFO-REF15024)))) + +(CFFI:DEFCFUN ("sorcsd_" %%SORCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -2141,46 +2139,45 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15036 ':INT32) (P-REF15037 ':INT32) - (Q-REF15038 ':INT32) (LDX11-REF15040 ':INT32) - (LDX12-REF15042 ':INT32) (LDX21-REF15044 ':INT32) - (LDX22-REF15046 ':INT32) (LDU1-REF15049 ':INT32) - (LDU2-REF15051 ':INT32) (LDV1T-REF15053 ':INT32) - (LDV2T-REF15055 ':INT32) (LWORK-REF15057 ':INT32) - (INFO-REF15059 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15036 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15037 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15038 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15040 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF15042 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15044 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF15046 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF15049 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF15051 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF15053 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF15055 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15057 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15059 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15039 X11) - (X12-REF15041 X12) - (X21-REF15043 X21) - (X22-REF15045 X22) - (THETA-REF15047 THETA) - (U1-REF15048 U1) (U2-REF15050 U2) - (V1T-REF15052 V1T) - (V2T-REF15054 V2T) - (WORK-REF15056 WORK) - (IWORK-REF15058 IWORK)) - (%%SORCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF15036 P-REF15037 - Q-REF15038 X11-REF15039 LDX11-REF15040 X12-REF15041 - LDX12-REF15042 X21-REF15043 LDX21-REF15044 X22-REF15045 - LDX22-REF15046 THETA-REF15047 U1-REF15048 LDU1-REF15049 - U2-REF15050 LDU2-REF15051 V1T-REF15052 LDV1T-REF15053 - V2T-REF15054 LDV2T-REF15055 WORK-REF15056 LWORK-REF15057 - IWORK-REF15058 INFO-REF15059)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15031 ':INT32) (P-REF15032 ':INT32) + (Q-REF15033 ':INT32) (LDX11-REF15035 ':INT32) + (LDX12-REF15037 ':INT32) (LDX21-REF15039 ':INT32) + (LDX22-REF15041 ':INT32) (LDU1-REF15044 ':INT32) + (LDU2-REF15046 ':INT32) (LDV1T-REF15048 ':INT32) + (LDV2T-REF15050 ':INT32) (LWORK-REF15052 ':INT32) + (INFO-REF15054 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15031 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15032 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15033 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15035 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF15037 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15039 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF15041 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF15044 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF15046 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF15048 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF15050 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15052 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15054 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15034 X11) + (X12-REF15036 X12) + (X21-REF15038 X21) + (X22-REF15040 X22) + (THETA-REF15042 THETA) + (U1-REF15043 U1) (U2-REF15045 U2) + (V1T-REF15047 V1T) + (V2T-REF15049 V2T) + (WORK-REF15051 WORK) + (IWORK-REF15053 IWORK)) + (%%SORCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF15031 P-REF15032 + Q-REF15033 X11-REF15034 LDX11-REF15035 X12-REF15036 LDX12-REF15037 + X21-REF15038 LDX21-REF15039 X22-REF15040 LDX22-REF15041 THETA-REF15042 + U1-REF15043 LDU1-REF15044 U2-REF15045 LDU2-REF15046 V1T-REF15047 + LDV1T-REF15048 V2T-REF15049 LDV2T-REF15050 WORK-REF15051 LWORK-REF15052 + IWORK-REF15053 INFO-REF15054)))) (CFFI:DEFCFUN ("sorcsd2by1_" %%SORCSD2BY1 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -2244,35 +2241,35 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15063 ':INT32) (P-REF15064 ':INT32) - (Q-REF15065 ':INT32) (LDX11-REF15067 ':INT32) - (LDX21-REF15069 ':INT32) (LDU1-REF15072 ':INT32) - (LDU2-REF15074 ':INT32) (LDV1T-REF15076 ':INT32) - (LWORK-REF15078 ':INT32) (INFO-REF15080 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15063 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15064 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15065 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15067 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15069 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF15072 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF15074 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF15076 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15078 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15080 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15066 X11) - (X21-REF15068 X21) - (THETA-REF15070 THETA) - (U1-REF15071 U1) (U2-REF15073 U2) - (V1T-REF15075 V1T) - (WORK-REF15077 WORK) - (IWORK-REF15079 IWORK)) - (%%SORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF15063 P-REF15064 Q-REF15065 - X11-REF15066 LDX11-REF15067 X21-REF15068 LDX21-REF15069 - THETA-REF15070 U1-REF15071 LDU1-REF15072 U2-REF15073 - LDU2-REF15074 V1T-REF15075 LDV1T-REF15076 WORK-REF15077 - LWORK-REF15078 IWORK-REF15079 INFO-REF15080)))) - -(CFFI:DEFCFUN ("sorg2l_" %%SORG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15058 ':INT32) (P-REF15059 ':INT32) + (Q-REF15060 ':INT32) (LDX11-REF15062 ':INT32) + (LDX21-REF15064 ':INT32) (LDU1-REF15067 ':INT32) + (LDU2-REF15069 ':INT32) (LDV1T-REF15071 ':INT32) + (LWORK-REF15073 ':INT32) (INFO-REF15075 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15058 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15059 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15060 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15062 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15064 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF15067 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF15069 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF15071 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15073 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15075 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15061 X11) + (X21-REF15063 X21) + (THETA-REF15065 THETA) + (U1-REF15066 U1) (U2-REF15068 U2) + (V1T-REF15070 V1T) + (WORK-REF15072 WORK) + (IWORK-REF15074 IWORK)) + (%%SORCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF15058 P-REF15059 Q-REF15060 + X11-REF15061 LDX11-REF15062 X21-REF15063 LDX21-REF15064 THETA-REF15065 + U1-REF15066 LDU1-REF15067 U2-REF15068 LDU2-REF15069 V1T-REF15070 + LDV1T-REF15071 WORK-REF15072 LWORK-REF15073 IWORK-REF15074 + INFO-REF15075)))) + +(CFFI:DEFCFUN ("sorg2l_" %%SORG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2298,20 +2295,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15081 ':INT32) (N-REF15082 ':INT32) - (K-REF15083 ':INT32) (LDA-REF15085 ':INT32) - (INFO-REF15088 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15081 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15082 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15083 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15085 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15088 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15084 A) (TAU-REF15086 TAU) - (WORK-REF15087 WORK)) - (%%SORG2L M-REF15081 N-REF15082 K-REF15083 A-REF15084 LDA-REF15085 - TAU-REF15086 WORK-REF15087 INFO-REF15088)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15076 ':INT32) (N-REF15077 ':INT32) + (K-REF15078 ':INT32) (LDA-REF15080 ':INT32) + (INFO-REF15083 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15076 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15077 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15078 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15080 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15083 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15079 A) (TAU-REF15081 TAU) + (WORK-REF15082 WORK)) + (%%SORG2L M-REF15076 N-REF15077 K-REF15078 A-REF15079 LDA-REF15080 + TAU-REF15081 WORK-REF15082 INFO-REF15083)))) -(CFFI:DEFCFUN ("sorg2r_" %%SORG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sorg2r_" %%SORG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2337,20 +2334,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15089 ':INT32) (N-REF15090 ':INT32) - (K-REF15091 ':INT32) (LDA-REF15093 ':INT32) - (INFO-REF15096 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15089 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15090 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15091 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15093 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15096 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15092 A) (TAU-REF15094 TAU) - (WORK-REF15095 WORK)) - (%%SORG2R M-REF15089 N-REF15090 K-REF15091 A-REF15092 LDA-REF15093 - TAU-REF15094 WORK-REF15095 INFO-REF15096)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15084 ':INT32) (N-REF15085 ':INT32) + (K-REF15086 ':INT32) (LDA-REF15088 ':INT32) + (INFO-REF15091 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15084 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15085 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15086 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15088 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15091 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15087 A) (TAU-REF15089 TAU) + (WORK-REF15090 WORK)) + (%%SORG2R M-REF15084 N-REF15085 K-REF15086 A-REF15087 LDA-REF15088 + TAU-REF15089 WORK-REF15090 INFO-REF15091)))) -(CFFI:DEFCFUN ("sorgbr_" %%SORGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sorgbr_" %%SORGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (M :POINTER) @@ -2380,21 +2377,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15098 ':INT32) (N-REF15099 ':INT32) - (K-REF15100 ':INT32) (LDA-REF15102 ':INT32) - (LWORK-REF15105 ':INT32) (INFO-REF15106 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15098 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15099 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15100 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15102 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15105 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15106 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15101 A) (TAU-REF15103 TAU) - (WORK-REF15104 WORK)) - (%%SORGBR VECT M-REF15098 N-REF15099 K-REF15100 A-REF15101 LDA-REF15102 - TAU-REF15103 WORK-REF15104 LWORK-REF15105 INFO-REF15106)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15093 ':INT32) (N-REF15094 ':INT32) + (K-REF15095 ':INT32) (LDA-REF15097 ':INT32) + (LWORK-REF15100 ':INT32) (INFO-REF15101 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15093 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15094 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15095 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15097 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15100 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15101 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15096 A) (TAU-REF15098 TAU) + (WORK-REF15099 WORK)) + (%%SORGBR VECT M-REF15093 N-REF15094 K-REF15095 A-REF15096 LDA-REF15097 + TAU-REF15098 WORK-REF15099 LWORK-REF15100 INFO-REF15101)))) -(CFFI:DEFCFUN ("sorghr_" %%SORGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sorghr_" %%SORGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -2422,21 +2419,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15107 ':INT32) (ILO-REF15108 ':INT32) - (IHI-REF15109 ':INT32) (LDA-REF15111 ':INT32) - (LWORK-REF15114 ':INT32) (INFO-REF15115 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15107 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15108 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15109 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15111 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15114 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15115 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15110 A) (TAU-REF15112 TAU) - (WORK-REF15113 WORK)) - (%%SORGHR N-REF15107 ILO-REF15108 IHI-REF15109 A-REF15110 LDA-REF15111 - TAU-REF15112 WORK-REF15113 LWORK-REF15114 INFO-REF15115)))) - -(CFFI:DEFCFUN ("sorgl2_" %%SORGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15102 ':INT32) (ILO-REF15103 ':INT32) + (IHI-REF15104 ':INT32) (LDA-REF15106 ':INT32) + (LWORK-REF15109 ':INT32) (INFO-REF15110 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15102 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15103 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15104 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15106 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15109 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15110 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15105 A) (TAU-REF15107 TAU) + (WORK-REF15108 WORK)) + (%%SORGHR N-REF15102 ILO-REF15103 IHI-REF15104 A-REF15105 LDA-REF15106 + TAU-REF15107 WORK-REF15108 LWORK-REF15109 INFO-REF15110)))) + +(CFFI:DEFCFUN ("sorgl2_" %%SORGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2462,20 +2459,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15116 ':INT32) (N-REF15117 ':INT32) - (K-REF15118 ':INT32) (LDA-REF15120 ':INT32) - (INFO-REF15123 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15116 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15117 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15118 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15120 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15123 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15119 A) (TAU-REF15121 TAU) - (WORK-REF15122 WORK)) - (%%SORGL2 M-REF15116 N-REF15117 K-REF15118 A-REF15119 LDA-REF15120 - TAU-REF15121 WORK-REF15122 INFO-REF15123)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15111 ':INT32) (N-REF15112 ':INT32) + (K-REF15113 ':INT32) (LDA-REF15115 ':INT32) + (INFO-REF15118 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15111 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15112 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15113 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15115 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15118 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15114 A) (TAU-REF15116 TAU) + (WORK-REF15117 WORK)) + (%%SORGL2 M-REF15111 N-REF15112 K-REF15113 A-REF15114 LDA-REF15115 + TAU-REF15116 WORK-REF15117 INFO-REF15118)))) -(CFFI:DEFCFUN ("sorglq_" %%SORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sorglq_" %%SORGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2503,21 +2500,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15124 ':INT32) (N-REF15125 ':INT32) - (K-REF15126 ':INT32) (LDA-REF15128 ':INT32) - (LWORK-REF15131 ':INT32) (INFO-REF15132 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15124 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15125 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15126 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15128 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15131 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15132 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15127 A) (TAU-REF15129 TAU) - (WORK-REF15130 WORK)) - (%%SORGLQ M-REF15124 N-REF15125 K-REF15126 A-REF15127 LDA-REF15128 - TAU-REF15129 WORK-REF15130 LWORK-REF15131 INFO-REF15132)))) - -(CFFI:DEFCFUN ("sorgql_" %%SORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15119 ':INT32) (N-REF15120 ':INT32) + (K-REF15121 ':INT32) (LDA-REF15123 ':INT32) + (LWORK-REF15126 ':INT32) (INFO-REF15127 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15119 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15120 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15121 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15123 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15126 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15127 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15122 A) (TAU-REF15124 TAU) + (WORK-REF15125 WORK)) + (%%SORGLQ M-REF15119 N-REF15120 K-REF15121 A-REF15122 LDA-REF15123 + TAU-REF15124 WORK-REF15125 LWORK-REF15126 INFO-REF15127)))) + +(CFFI:DEFCFUN ("sorgql_" %%SORGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2545,21 +2542,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15133 ':INT32) (N-REF15134 ':INT32) - (K-REF15135 ':INT32) (LDA-REF15137 ':INT32) - (LWORK-REF15140 ':INT32) (INFO-REF15141 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15133 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15134 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15135 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15137 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15140 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15141 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15136 A) (TAU-REF15138 TAU) - (WORK-REF15139 WORK)) - (%%SORGQL M-REF15133 N-REF15134 K-REF15135 A-REF15136 LDA-REF15137 - TAU-REF15138 WORK-REF15139 LWORK-REF15140 INFO-REF15141)))) - -(CFFI:DEFCFUN ("sorgqr_" %%SORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15128 ':INT32) (N-REF15129 ':INT32) + (K-REF15130 ':INT32) (LDA-REF15132 ':INT32) + (LWORK-REF15135 ':INT32) (INFO-REF15136 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15128 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15129 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15130 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15132 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15135 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15136 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15131 A) (TAU-REF15133 TAU) + (WORK-REF15134 WORK)) + (%%SORGQL M-REF15128 N-REF15129 K-REF15130 A-REF15131 LDA-REF15132 + TAU-REF15133 WORK-REF15134 LWORK-REF15135 INFO-REF15136)))) + +(CFFI:DEFCFUN ("sorgqr_" %%SORGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2587,21 +2584,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15142 ':INT32) (N-REF15143 ':INT32) - (K-REF15144 ':INT32) (LDA-REF15146 ':INT32) - (LWORK-REF15149 ':INT32) (INFO-REF15150 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15142 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15143 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15144 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15146 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15149 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15150 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15145 A) (TAU-REF15147 TAU) - (WORK-REF15148 WORK)) - (%%SORGQR M-REF15142 N-REF15143 K-REF15144 A-REF15145 LDA-REF15146 - TAU-REF15147 WORK-REF15148 LWORK-REF15149 INFO-REF15150)))) - -(CFFI:DEFCFUN ("sorgr2_" %%SORGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15137 ':INT32) (N-REF15138 ':INT32) + (K-REF15139 ':INT32) (LDA-REF15141 ':INT32) + (LWORK-REF15144 ':INT32) (INFO-REF15145 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15137 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15138 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15139 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15141 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15144 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15145 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15140 A) (TAU-REF15142 TAU) + (WORK-REF15143 WORK)) + (%%SORGQR M-REF15137 N-REF15138 K-REF15139 A-REF15140 LDA-REF15141 + TAU-REF15142 WORK-REF15143 LWORK-REF15144 INFO-REF15145)))) + +(CFFI:DEFCFUN ("sorgr2_" %%SORGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2627,20 +2624,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15151 ':INT32) (N-REF15152 ':INT32) - (K-REF15153 ':INT32) (LDA-REF15155 ':INT32) - (INFO-REF15158 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15151 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15152 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15153 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15155 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15158 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15154 A) (TAU-REF15156 TAU) - (WORK-REF15157 WORK)) - (%%SORGR2 M-REF15151 N-REF15152 K-REF15153 A-REF15154 LDA-REF15155 - TAU-REF15156 WORK-REF15157 INFO-REF15158)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15146 ':INT32) (N-REF15147 ':INT32) + (K-REF15148 ':INT32) (LDA-REF15150 ':INT32) + (INFO-REF15153 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15146 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15147 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15148 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15150 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15153 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15149 A) (TAU-REF15151 TAU) + (WORK-REF15152 WORK)) + (%%SORGR2 M-REF15146 N-REF15147 K-REF15148 A-REF15149 LDA-REF15150 + TAU-REF15151 WORK-REF15152 INFO-REF15153)))) -(CFFI:DEFCFUN ("sorgrq_" %%SORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sorgrq_" %%SORGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2668,21 +2665,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15159 ':INT32) (N-REF15160 ':INT32) - (K-REF15161 ':INT32) (LDA-REF15163 ':INT32) - (LWORK-REF15166 ':INT32) (INFO-REF15167 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15159 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15160 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15161 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15163 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15166 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15167 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15162 A) (TAU-REF15164 TAU) - (WORK-REF15165 WORK)) - (%%SORGRQ M-REF15159 N-REF15160 K-REF15161 A-REF15162 LDA-REF15163 - TAU-REF15164 WORK-REF15165 LWORK-REF15166 INFO-REF15167)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15154 ':INT32) (N-REF15155 ':INT32) + (K-REF15156 ':INT32) (LDA-REF15158 ':INT32) + (LWORK-REF15161 ':INT32) (INFO-REF15162 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15154 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15155 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15156 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15158 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15161 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15162 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15157 A) (TAU-REF15159 TAU) + (WORK-REF15160 WORK)) + (%%SORGRQ M-REF15154 N-REF15155 K-REF15156 A-REF15157 LDA-REF15158 + TAU-REF15159 WORK-REF15160 LWORK-REF15161 INFO-REF15162)))) -(CFFI:DEFCFUN ("sorgtr_" %%SORGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sorgtr_" %%SORGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2708,18 +2705,109 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15169 ':INT32) (LDA-REF15171 ':INT32) - (LWORK-REF15174 ':INT32) (INFO-REF15175 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15169 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15171 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15174 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15175 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15170 A) (TAU-REF15172 TAU) - (WORK-REF15173 WORK)) - (%%SORGTR UPLO N-REF15169 A-REF15170 LDA-REF15171 TAU-REF15172 - WORK-REF15173 LWORK-REF15174 INFO-REF15175)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15164 ':INT32) (LDA-REF15166 ':INT32) + (LWORK-REF15169 ':INT32) (INFO-REF15170 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15164 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15166 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15169 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15170 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15165 A) (TAU-REF15167 TAU) + (WORK-REF15168 WORK)) + (%%SORGTR UPLO N-REF15164 A-REF15165 LDA-REF15166 TAU-REF15167 + WORK-REF15168 LWORK-REF15169 INFO-REF15170)))) + +(CFFI:DEFCFUN ("sorgtsqr_" %%SORGTSQR :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (MB :POINTER) + (NB :POINTER) + (A :POINTER) + (LDA :POINTER) + (T :POINTER) + (LDT :POINTER) + (WORK :POINTER) + (LWORK :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %SORGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGTSQR) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) + WORK) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15171 ':INT32) (N-REF15172 ':INT32) + (MB-REF15173 ':INT32) (NB-REF15174 ':INT32) + (LDA-REF15176 ':INT32) (LDT-REF15178 ':INT32) + (LWORK-REF15180 ':INT32) (INFO-REF15181 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15171 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15172 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF15173 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15174 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15176 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15178 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15180 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15181 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15175 A) (T-REF15177 T) + (WORK-REF15179 WORK)) + (%%SORGTSQR M-REF15171 N-REF15172 MB-REF15173 NB-REF15174 A-REF15175 + LDA-REF15176 T-REF15177 LDT-REF15178 WORK-REF15179 LWORK-REF15180 + INFO-REF15181)))) + +(CFFI:DEFCFUN ("sorhr_col_" %%SORHR_COL :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (NB :POINTER) + (A :POINTER) + (LDA :POINTER) + (T :POINTER) + (LDT :POINTER) + (D :POINTER) + (INFO :POINTER)) -(CFFI:DEFCFUN ("sorm22_" %%SORM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(COMMON-LISP:DEFUN %SORHR_COL (M N NB A LDA T LDT D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORHR_COL) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15182 ':INT32) (N-REF15183 ':INT32) + (NB-REF15184 ':INT32) (LDA-REF15186 ':INT32) + (LDT-REF15188 ':INT32) (INFO-REF15190 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15182 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15183 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15184 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15186 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15188 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15190 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15185 A) (T-REF15187 T) + (D-REF15189 D)) + (%%SORHR_COL M-REF15182 N-REF15183 NB-REF15184 A-REF15185 LDA-REF15186 + T-REF15187 LDT-REF15188 D-REF15189 INFO-REF15190)))) + +(CFFI:DEFCFUN ("sorm22_" %%SORM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2754,25 +2842,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15178 ':INT32) (N-REF15179 ':INT32) - (N1-REF15180 ':INT32) (N2-REF15181 ':INT32) - (LDQ-REF15183 ':INT32) (LDC-REF15185 ':INT32) - (LWORK-REF15187 ':INT32) (INFO-REF15188 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15178 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15179 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF15180 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF15181 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15183 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15185 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15187 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15188 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF15182 Q) (C-REF15184 C) - (WORK-REF15186 WORK)) - (%%SORM22 SIDE TRANS M-REF15178 N-REF15179 N1-REF15180 N2-REF15181 - Q-REF15182 LDQ-REF15183 C-REF15184 LDC-REF15185 WORK-REF15186 - LWORK-REF15187 INFO-REF15188)))) - -(CFFI:DEFCFUN ("sorm2l_" %%SORM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15193 ':INT32) (N-REF15194 ':INT32) + (N1-REF15195 ':INT32) (N2-REF15196 ':INT32) + (LDQ-REF15198 ':INT32) (LDC-REF15200 ':INT32) + (LWORK-REF15202 ':INT32) (INFO-REF15203 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15193 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15194 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF15195 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF15196 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15198 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15200 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15202 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15203 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF15197 Q) (C-REF15199 C) + (WORK-REF15201 WORK)) + (%%SORM22 SIDE TRANS M-REF15193 N-REF15194 N1-REF15195 N2-REF15196 + Q-REF15197 LDQ-REF15198 C-REF15199 LDC-REF15200 WORK-REF15201 + LWORK-REF15202 INFO-REF15203)))) + +(CFFI:DEFCFUN ("sorm2l_" %%SORM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2807,22 +2895,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15191 ':INT32) (N-REF15192 ':INT32) - (K-REF15193 ':INT32) (LDA-REF15195 ':INT32) - (LDC-REF15198 ':INT32) (INFO-REF15200 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15191 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15192 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15193 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15195 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15198 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15200 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15194 A) (TAU-REF15196 TAU) - (C-REF15197 C) (WORK-REF15199 WORK)) - (%%SORM2L SIDE TRANS M-REF15191 N-REF15192 K-REF15193 A-REF15194 - LDA-REF15195 TAU-REF15196 C-REF15197 LDC-REF15198 WORK-REF15199 - INFO-REF15200)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15206 ':INT32) (N-REF15207 ':INT32) + (K-REF15208 ':INT32) (LDA-REF15210 ':INT32) + (LDC-REF15213 ':INT32) (INFO-REF15215 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15206 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15207 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15208 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15210 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15213 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15215 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15209 A) (TAU-REF15211 TAU) + (C-REF15212 C) (WORK-REF15214 WORK)) + (%%SORM2L SIDE TRANS M-REF15206 N-REF15207 K-REF15208 A-REF15209 + LDA-REF15210 TAU-REF15211 C-REF15212 LDC-REF15213 WORK-REF15214 + INFO-REF15215)))) -(CFFI:DEFCFUN ("sorm2r_" %%SORM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sorm2r_" %%SORM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2857,22 +2945,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15203 ':INT32) (N-REF15204 ':INT32) - (K-REF15205 ':INT32) (LDA-REF15207 ':INT32) - (LDC-REF15210 ':INT32) (INFO-REF15212 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15203 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15204 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15205 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15207 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15210 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15212 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15206 A) (TAU-REF15208 TAU) - (C-REF15209 C) (WORK-REF15211 WORK)) - (%%SORM2R SIDE TRANS M-REF15203 N-REF15204 K-REF15205 A-REF15206 - LDA-REF15207 TAU-REF15208 C-REF15209 LDC-REF15210 WORK-REF15211 - INFO-REF15212)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15218 ':INT32) (N-REF15219 ':INT32) + (K-REF15220 ':INT32) (LDA-REF15222 ':INT32) + (LDC-REF15225 ':INT32) (INFO-REF15227 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15218 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15219 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15220 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15222 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15225 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15227 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15221 A) (TAU-REF15223 TAU) + (C-REF15224 C) (WORK-REF15226 WORK)) + (%%SORM2R SIDE TRANS M-REF15218 N-REF15219 K-REF15220 A-REF15221 + LDA-REF15222 TAU-REF15223 C-REF15224 LDC-REF15225 WORK-REF15226 + INFO-REF15227)))) -(CFFI:DEFCFUN ("sormbr_" %%SORMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sormbr_" %%SORMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (SIDE :STRING) @@ -2912,24 +3000,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15216 ':INT32) (N-REF15217 ':INT32) - (K-REF15218 ':INT32) (LDA-REF15220 ':INT32) - (LDC-REF15223 ':INT32) (LWORK-REF15225 ':INT32) - (INFO-REF15226 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15216 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15217 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15218 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15220 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15223 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15225 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15226 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15219 A) (TAU-REF15221 TAU) - (C-REF15222 C) (WORK-REF15224 WORK)) - (%%SORMBR VECT SIDE TRANS M-REF15216 N-REF15217 K-REF15218 A-REF15219 - LDA-REF15220 TAU-REF15221 C-REF15222 LDC-REF15223 WORK-REF15224 - LWORK-REF15225 INFO-REF15226)))) - -(CFFI:DEFCFUN ("sormhr_" %%SORMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15231 ':INT32) (N-REF15232 ':INT32) + (K-REF15233 ':INT32) (LDA-REF15235 ':INT32) + (LDC-REF15238 ':INT32) (LWORK-REF15240 ':INT32) + (INFO-REF15241 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15231 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15232 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15233 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15235 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15238 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15240 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15241 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15234 A) (TAU-REF15236 TAU) + (C-REF15237 C) (WORK-REF15239 WORK)) + (%%SORMBR VECT SIDE TRANS M-REF15231 N-REF15232 K-REF15233 A-REF15234 + LDA-REF15235 TAU-REF15236 C-REF15237 LDC-REF15238 WORK-REF15239 + LWORK-REF15240 INFO-REF15241)))) + +(CFFI:DEFCFUN ("sormhr_" %%SORMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2969,25 +3057,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15229 ':INT32) (N-REF15230 ':INT32) - (ILO-REF15231 ':INT32) (IHI-REF15232 ':INT32) - (LDA-REF15234 ':INT32) (LDC-REF15237 ':INT32) - (LWORK-REF15239 ':INT32) (INFO-REF15240 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15229 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15230 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15231 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15232 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15234 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15237 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15239 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15240 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15233 A) (TAU-REF15235 TAU) - (C-REF15236 C) (WORK-REF15238 WORK)) - (%%SORMHR SIDE TRANS M-REF15229 N-REF15230 ILO-REF15231 IHI-REF15232 - A-REF15233 LDA-REF15234 TAU-REF15235 C-REF15236 LDC-REF15237 - WORK-REF15238 LWORK-REF15239 INFO-REF15240)))) - -(CFFI:DEFCFUN ("sorml2_" %%SORML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15244 ':INT32) (N-REF15245 ':INT32) + (ILO-REF15246 ':INT32) (IHI-REF15247 ':INT32) + (LDA-REF15249 ':INT32) (LDC-REF15252 ':INT32) + (LWORK-REF15254 ':INT32) (INFO-REF15255 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15244 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15245 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15246 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15247 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15249 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15252 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15254 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15255 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15248 A) (TAU-REF15250 TAU) + (C-REF15251 C) (WORK-REF15253 WORK)) + (%%SORMHR SIDE TRANS M-REF15244 N-REF15245 ILO-REF15246 IHI-REF15247 + A-REF15248 LDA-REF15249 TAU-REF15250 C-REF15251 LDC-REF15252 + WORK-REF15253 LWORK-REF15254 INFO-REF15255)))) + +(CFFI:DEFCFUN ("sorml2_" %%SORML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3022,22 +3110,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15243 ':INT32) (N-REF15244 ':INT32) - (K-REF15245 ':INT32) (LDA-REF15247 ':INT32) - (LDC-REF15250 ':INT32) (INFO-REF15252 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15243 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15244 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15245 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15247 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15250 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15252 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15246 A) (TAU-REF15248 TAU) - (C-REF15249 C) (WORK-REF15251 WORK)) - (%%SORML2 SIDE TRANS M-REF15243 N-REF15244 K-REF15245 A-REF15246 - LDA-REF15247 TAU-REF15248 C-REF15249 LDC-REF15250 WORK-REF15251 - INFO-REF15252)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15258 ':INT32) (N-REF15259 ':INT32) + (K-REF15260 ':INT32) (LDA-REF15262 ':INT32) + (LDC-REF15265 ':INT32) (INFO-REF15267 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15258 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15259 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15260 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15262 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15265 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15267 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15261 A) (TAU-REF15263 TAU) + (C-REF15264 C) (WORK-REF15266 WORK)) + (%%SORML2 SIDE TRANS M-REF15258 N-REF15259 K-REF15260 A-REF15261 + LDA-REF15262 TAU-REF15263 C-REF15264 LDC-REF15265 WORK-REF15266 + INFO-REF15267)))) -(CFFI:DEFCFUN ("sormlq_" %%SORMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sormlq_" %%SORMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3074,24 +3162,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15255 ':INT32) (N-REF15256 ':INT32) - (K-REF15257 ':INT32) (LDA-REF15259 ':INT32) - (LDC-REF15262 ':INT32) (LWORK-REF15264 ':INT32) - (INFO-REF15265 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15255 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15256 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15257 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15259 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15262 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15264 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15265 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15258 A) (TAU-REF15260 TAU) - (C-REF15261 C) (WORK-REF15263 WORK)) - (%%SORMLQ SIDE TRANS M-REF15255 N-REF15256 K-REF15257 A-REF15258 - LDA-REF15259 TAU-REF15260 C-REF15261 LDC-REF15262 WORK-REF15263 - LWORK-REF15264 INFO-REF15265)))) - -(CFFI:DEFCFUN ("sormql_" %%SORMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15270 ':INT32) (N-REF15271 ':INT32) + (K-REF15272 ':INT32) (LDA-REF15274 ':INT32) + (LDC-REF15277 ':INT32) (LWORK-REF15279 ':INT32) + (INFO-REF15280 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15270 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15271 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15272 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15274 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15277 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15279 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15280 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15273 A) (TAU-REF15275 TAU) + (C-REF15276 C) (WORK-REF15278 WORK)) + (%%SORMLQ SIDE TRANS M-REF15270 N-REF15271 K-REF15272 A-REF15273 + LDA-REF15274 TAU-REF15275 C-REF15276 LDC-REF15277 WORK-REF15278 + LWORK-REF15279 INFO-REF15280)))) + +(CFFI:DEFCFUN ("sormql_" %%SORMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3128,24 +3216,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15268 ':INT32) (N-REF15269 ':INT32) - (K-REF15270 ':INT32) (LDA-REF15272 ':INT32) - (LDC-REF15275 ':INT32) (LWORK-REF15277 ':INT32) - (INFO-REF15278 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15268 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15269 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15270 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15272 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15275 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15277 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15278 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15271 A) (TAU-REF15273 TAU) - (C-REF15274 C) (WORK-REF15276 WORK)) - (%%SORMQL SIDE TRANS M-REF15268 N-REF15269 K-REF15270 A-REF15271 - LDA-REF15272 TAU-REF15273 C-REF15274 LDC-REF15275 WORK-REF15276 - LWORK-REF15277 INFO-REF15278)))) - -(CFFI:DEFCFUN ("sormqr_" %%SORMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15283 ':INT32) (N-REF15284 ':INT32) + (K-REF15285 ':INT32) (LDA-REF15287 ':INT32) + (LDC-REF15290 ':INT32) (LWORK-REF15292 ':INT32) + (INFO-REF15293 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15283 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15284 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15285 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15287 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15290 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15292 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15293 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15286 A) (TAU-REF15288 TAU) + (C-REF15289 C) (WORK-REF15291 WORK)) + (%%SORMQL SIDE TRANS M-REF15283 N-REF15284 K-REF15285 A-REF15286 + LDA-REF15287 TAU-REF15288 C-REF15289 LDC-REF15290 WORK-REF15291 + LWORK-REF15292 INFO-REF15293)))) + +(CFFI:DEFCFUN ("sormqr_" %%SORMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3182,24 +3270,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15281 ':INT32) (N-REF15282 ':INT32) - (K-REF15283 ':INT32) (LDA-REF15285 ':INT32) - (LDC-REF15288 ':INT32) (LWORK-REF15290 ':INT32) - (INFO-REF15291 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15281 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15282 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15283 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15285 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15288 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15290 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15291 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15284 A) (TAU-REF15286 TAU) - (C-REF15287 C) (WORK-REF15289 WORK)) - (%%SORMQR SIDE TRANS M-REF15281 N-REF15282 K-REF15283 A-REF15284 - LDA-REF15285 TAU-REF15286 C-REF15287 LDC-REF15288 WORK-REF15289 - LWORK-REF15290 INFO-REF15291)))) - -(CFFI:DEFCFUN ("sormr2_" %%SORMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15296 ':INT32) (N-REF15297 ':INT32) + (K-REF15298 ':INT32) (LDA-REF15300 ':INT32) + (LDC-REF15303 ':INT32) (LWORK-REF15305 ':INT32) + (INFO-REF15306 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15296 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15297 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15298 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15300 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15303 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15305 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15306 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15299 A) (TAU-REF15301 TAU) + (C-REF15302 C) (WORK-REF15304 WORK)) + (%%SORMQR SIDE TRANS M-REF15296 N-REF15297 K-REF15298 A-REF15299 + LDA-REF15300 TAU-REF15301 C-REF15302 LDC-REF15303 WORK-REF15304 + LWORK-REF15305 INFO-REF15306)))) + +(CFFI:DEFCFUN ("sormr2_" %%SORMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3234,22 +3322,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15294 ':INT32) (N-REF15295 ':INT32) - (K-REF15296 ':INT32) (LDA-REF15298 ':INT32) - (LDC-REF15301 ':INT32) (INFO-REF15303 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15294 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15295 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15296 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15298 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15301 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15303 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15297 A) (TAU-REF15299 TAU) - (C-REF15300 C) (WORK-REF15302 WORK)) - (%%SORMR2 SIDE TRANS M-REF15294 N-REF15295 K-REF15296 A-REF15297 - LDA-REF15298 TAU-REF15299 C-REF15300 LDC-REF15301 WORK-REF15302 - INFO-REF15303)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15309 ':INT32) (N-REF15310 ':INT32) + (K-REF15311 ':INT32) (LDA-REF15313 ':INT32) + (LDC-REF15316 ':INT32) (INFO-REF15318 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15309 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15310 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15311 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15313 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15316 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15318 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15312 A) (TAU-REF15314 TAU) + (C-REF15315 C) (WORK-REF15317 WORK)) + (%%SORMR2 SIDE TRANS M-REF15309 N-REF15310 K-REF15311 A-REF15312 + LDA-REF15313 TAU-REF15314 C-REF15315 LDC-REF15316 WORK-REF15317 + INFO-REF15318)))) -(CFFI:DEFCFUN ("sormr3_" %%SORMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sormr3_" %%SORMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3286,24 +3374,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15306 ':INT32) (N-REF15307 ':INT32) - (K-REF15308 ':INT32) (L-REF15309 ':INT32) - (LDA-REF15311 ':INT32) (LDC-REF15314 ':INT32) - (INFO-REF15316 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15306 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15307 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15308 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15309 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15311 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15314 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15316 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15310 A) (TAU-REF15312 TAU) - (C-REF15313 C) (WORK-REF15315 WORK)) - (%%SORMR3 SIDE TRANS M-REF15306 N-REF15307 K-REF15308 L-REF15309 - A-REF15310 LDA-REF15311 TAU-REF15312 C-REF15313 LDC-REF15314 - WORK-REF15315 INFO-REF15316)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15321 ':INT32) (N-REF15322 ':INT32) + (K-REF15323 ':INT32) (L-REF15324 ':INT32) + (LDA-REF15326 ':INT32) (LDC-REF15329 ':INT32) + (INFO-REF15331 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15321 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15322 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15323 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15324 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15326 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15329 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15331 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15325 A) (TAU-REF15327 TAU) + (C-REF15328 C) (WORK-REF15330 WORK)) + (%%SORMR3 SIDE TRANS M-REF15321 N-REF15322 K-REF15323 L-REF15324 + A-REF15325 LDA-REF15326 TAU-REF15327 C-REF15328 LDC-REF15329 + WORK-REF15330 INFO-REF15331)))) -(CFFI:DEFCFUN ("sormrq_" %%SORMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sormrq_" %%SORMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3340,24 +3428,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15319 ':INT32) (N-REF15320 ':INT32) - (K-REF15321 ':INT32) (LDA-REF15323 ':INT32) - (LDC-REF15326 ':INT32) (LWORK-REF15328 ':INT32) - (INFO-REF15329 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15319 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15320 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15321 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15323 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15326 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15328 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15329 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15322 A) (TAU-REF15324 TAU) - (C-REF15325 C) (WORK-REF15327 WORK)) - (%%SORMRQ SIDE TRANS M-REF15319 N-REF15320 K-REF15321 A-REF15322 - LDA-REF15323 TAU-REF15324 C-REF15325 LDC-REF15326 WORK-REF15327 - LWORK-REF15328 INFO-REF15329)))) - -(CFFI:DEFCFUN ("sormrz_" %%SORMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15334 ':INT32) (N-REF15335 ':INT32) + (K-REF15336 ':INT32) (LDA-REF15338 ':INT32) + (LDC-REF15341 ':INT32) (LWORK-REF15343 ':INT32) + (INFO-REF15344 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15334 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15335 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15336 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15338 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15341 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15343 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15344 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15337 A) (TAU-REF15339 TAU) + (C-REF15340 C) (WORK-REF15342 WORK)) + (%%SORMRQ SIDE TRANS M-REF15334 N-REF15335 K-REF15336 A-REF15337 + LDA-REF15338 TAU-REF15339 C-REF15340 LDC-REF15341 WORK-REF15342 + LWORK-REF15343 INFO-REF15344)))) + +(CFFI:DEFCFUN ("sormrz_" %%SORMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3396,25 +3484,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15332 ':INT32) (N-REF15333 ':INT32) - (K-REF15334 ':INT32) (L-REF15335 ':INT32) - (LDA-REF15337 ':INT32) (LDC-REF15340 ':INT32) - (LWORK-REF15342 ':INT32) (INFO-REF15343 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15332 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15333 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15334 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15335 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15337 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15340 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15342 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15343 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15336 A) (TAU-REF15338 TAU) - (C-REF15339 C) (WORK-REF15341 WORK)) - (%%SORMRZ SIDE TRANS M-REF15332 N-REF15333 K-REF15334 L-REF15335 - A-REF15336 LDA-REF15337 TAU-REF15338 C-REF15339 LDC-REF15340 - WORK-REF15341 LWORK-REF15342 INFO-REF15343)))) - -(CFFI:DEFCFUN ("sormtr_" %%SORMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15347 ':INT32) (N-REF15348 ':INT32) + (K-REF15349 ':INT32) (L-REF15350 ':INT32) + (LDA-REF15352 ':INT32) (LDC-REF15355 ':INT32) + (LWORK-REF15357 ':INT32) (INFO-REF15358 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15347 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15348 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15349 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15350 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15352 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15355 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15357 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15358 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15351 A) (TAU-REF15353 TAU) + (C-REF15354 C) (WORK-REF15356 WORK)) + (%%SORMRZ SIDE TRANS M-REF15347 N-REF15348 K-REF15349 L-REF15350 + A-REF15351 LDA-REF15352 TAU-REF15353 C-REF15354 LDC-REF15355 + WORK-REF15356 LWORK-REF15357 INFO-REF15358)))) + +(CFFI:DEFCFUN ("sormtr_" %%SORMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (UPLO :STRING) @@ -3452,22 +3540,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15347 ':INT32) (N-REF15348 ':INT32) - (LDA-REF15350 ':INT32) (LDC-REF15353 ':INT32) - (LWORK-REF15355 ':INT32) (INFO-REF15356 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15347 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15348 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15350 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15353 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15355 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15356 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15349 A) (TAU-REF15351 TAU) - (C-REF15352 C) (WORK-REF15354 WORK)) - (%%SORMTR SIDE UPLO TRANS M-REF15347 N-REF15348 A-REF15349 LDA-REF15350 - TAU-REF15351 C-REF15352 LDC-REF15353 WORK-REF15354 - LWORK-REF15355 INFO-REF15356)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15362 ':INT32) (N-REF15363 ':INT32) + (LDA-REF15365 ':INT32) (LDC-REF15368 ':INT32) + (LWORK-REF15370 ':INT32) (INFO-REF15371 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15362 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15363 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15365 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15368 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15370 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15371 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15364 A) (TAU-REF15366 TAU) + (C-REF15367 C) (WORK-REF15369 WORK)) + (%%SORMTR SIDE UPLO TRANS M-REF15362 N-REF15363 A-REF15364 LDA-REF15365 + TAU-REF15366 C-REF15367 LDC-REF15368 WORK-REF15369 LWORK-REF15370 + INFO-REF15371)))) -(CFFI:DEFCFUN ("spbcon_" %%SPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spbcon_" %%SPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3498,23 +3586,23 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15358 ':INT32) (KD-REF15359 ':INT32) - (LDAB-REF15361 ':INT32) (ANORM-REF15362 ':FLOAT) - (RCOND-REF15363 ':FLOAT) (INFO-REF15366 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15358 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15359 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15361 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15362 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15363 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15366 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15360 AB) - (WORK-REF15364 WORK) - (IWORK-REF15365 IWORK)) - (%%SPBCON UPLO N-REF15358 KD-REF15359 AB-REF15360 LDAB-REF15361 - ANORM-REF15362 RCOND-REF15363 WORK-REF15364 IWORK-REF15365 - INFO-REF15366)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15373 ':INT32) (KD-REF15374 ':INT32) + (LDAB-REF15376 ':INT32) (ANORM-REF15377 ':FLOAT) + (RCOND-REF15378 ':FLOAT) (INFO-REF15381 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15373 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15374 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15376 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15377 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15378 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15381 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15375 AB) + (WORK-REF15379 WORK) + (IWORK-REF15380 IWORK)) + (%%SPBCON UPLO N-REF15373 KD-REF15374 AB-REF15375 LDAB-REF15376 + ANORM-REF15377 RCOND-REF15378 WORK-REF15379 IWORK-REF15380 + INFO-REF15381)))) -(CFFI:DEFCFUN ("spbequ_" %%SPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spbequ_" %%SPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3539,20 +3627,20 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15368 ':INT32) (KD-REF15369 ':INT32) - (LDAB-REF15371 ':INT32) (SCOND-REF15373 ':FLOAT) - (AMAX-REF15374 ':FLOAT) (INFO-REF15375 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15368 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15369 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15371 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15373 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15374 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15375 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15370 AB) (S-REF15372 S)) - (%%SPBEQU UPLO N-REF15368 KD-REF15369 AB-REF15370 LDAB-REF15371 - S-REF15372 SCOND-REF15373 AMAX-REF15374 INFO-REF15375)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15383 ':INT32) (KD-REF15384 ':INT32) + (LDAB-REF15386 ':INT32) (SCOND-REF15388 ':FLOAT) + (AMAX-REF15389 ':FLOAT) (INFO-REF15390 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15383 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15384 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15386 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15388 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15389 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15390 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15385 AB) (S-REF15387 S)) + (%%SPBEQU UPLO N-REF15383 KD-REF15384 AB-REF15385 LDAB-REF15386 + S-REF15387 SCOND-REF15388 AMAX-REF15389 INFO-REF15390)))) -(CFFI:DEFCFUN ("spbrfs_" %%SPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spbrfs_" %%SPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3607,30 +3695,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15377 ':INT32) (KD-REF15378 ':INT32) - (NRHS-REF15379 ':INT32) (LDAB-REF15381 ':INT32) - (LDAFB-REF15383 ':INT32) (LDB-REF15385 ':INT32) - (LDX-REF15387 ':INT32) (INFO-REF15392 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15377 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15378 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15379 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15381 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF15383 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15385 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15387 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15392 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15380 AB) (AFB-REF15382 AFB) - (B-REF15384 B) (X-REF15386 X) - (FERR-REF15388 FERR) - (BERR-REF15389 BERR) - (WORK-REF15390 WORK) - (IWORK-REF15391 IWORK)) - (%%SPBRFS UPLO N-REF15377 KD-REF15378 NRHS-REF15379 AB-REF15380 - LDAB-REF15381 AFB-REF15382 LDAFB-REF15383 B-REF15384 - LDB-REF15385 X-REF15386 LDX-REF15387 FERR-REF15388 - BERR-REF15389 WORK-REF15390 IWORK-REF15391 INFO-REF15392)))) - -(CFFI:DEFCFUN ("spbstf_" %%SPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15392 ':INT32) (KD-REF15393 ':INT32) + (NRHS-REF15394 ':INT32) (LDAB-REF15396 ':INT32) + (LDAFB-REF15398 ':INT32) (LDB-REF15400 ':INT32) + (LDX-REF15402 ':INT32) (INFO-REF15407 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15392 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15393 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15394 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15396 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF15398 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15400 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15402 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15407 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15395 AB) (AFB-REF15397 AFB) + (B-REF15399 B) (X-REF15401 X) + (FERR-REF15403 FERR) + (BERR-REF15404 BERR) + (WORK-REF15405 WORK) + (IWORK-REF15406 IWORK)) + (%%SPBRFS UPLO N-REF15392 KD-REF15393 NRHS-REF15394 AB-REF15395 + LDAB-REF15396 AFB-REF15397 LDAFB-REF15398 B-REF15399 LDB-REF15400 + X-REF15401 LDX-REF15402 FERR-REF15403 BERR-REF15404 WORK-REF15405 + IWORK-REF15406 INFO-REF15407)))) + +(CFFI:DEFCFUN ("spbstf_" %%SPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3648,17 +3736,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15394 ':INT32) (KD-REF15395 ':INT32) - (LDAB-REF15397 ':INT32) (INFO-REF15398 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15394 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15395 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15397 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15398 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15396 AB)) - (%%SPBSTF UPLO N-REF15394 KD-REF15395 AB-REF15396 LDAB-REF15397 - INFO-REF15398)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15409 ':INT32) (KD-REF15410 ':INT32) + (LDAB-REF15412 ':INT32) (INFO-REF15413 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15409 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15410 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15412 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15413 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15411 AB)) + (%%SPBSTF UPLO N-REF15409 KD-REF15410 AB-REF15411 LDAB-REF15412 + INFO-REF15413)))) -(CFFI:DEFCFUN ("spbsv_" %%SPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spbsv_" %%SPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3683,20 +3771,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15400 ':INT32) (KD-REF15401 ':INT32) - (NRHS-REF15402 ':INT32) (LDAB-REF15404 ':INT32) - (LDB-REF15406 ':INT32) (INFO-REF15407 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15400 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15401 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15402 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15404 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15406 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15407 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15403 AB) (B-REF15405 B)) - (%%SPBSV UPLO N-REF15400 KD-REF15401 NRHS-REF15402 AB-REF15403 - LDAB-REF15404 B-REF15405 LDB-REF15406 INFO-REF15407)))) - -(CFFI:DEFCFUN ("spbsvx_" %%SPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15415 ':INT32) (KD-REF15416 ':INT32) + (NRHS-REF15417 ':INT32) (LDAB-REF15419 ':INT32) + (LDB-REF15421 ':INT32) (INFO-REF15422 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15415 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15416 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15417 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15419 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15421 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15422 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15418 AB) (B-REF15420 B)) + (%%SPBSV UPLO N-REF15415 KD-REF15416 NRHS-REF15417 AB-REF15418 + LDAB-REF15419 B-REF15420 LDB-REF15421 INFO-REF15422)))) + +(CFFI:DEFCFUN ("spbsvx_" %%SPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -3760,33 +3848,32 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15410 ':INT32) (KD-REF15411 ':INT32) - (NRHS-REF15412 ':INT32) (LDAB-REF15414 ':INT32) - (LDAFB-REF15416 ':INT32) (LDB-REF15420 ':INT32) - (LDX-REF15422 ':INT32) (RCOND-REF15423 ':FLOAT) - (INFO-REF15428 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15410 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15411 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15412 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15414 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF15416 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15420 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15422 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15423 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15428 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15413 AB) (AFB-REF15415 AFB) - (S-REF15418 S) (B-REF15419 B) - (X-REF15421 X) (FERR-REF15424 FERR) - (BERR-REF15425 BERR) - (WORK-REF15426 WORK) - (IWORK-REF15427 IWORK)) - (%%SPBSVX FACT UPLO N-REF15410 KD-REF15411 NRHS-REF15412 AB-REF15413 - LDAB-REF15414 AFB-REF15415 LDAFB-REF15416 EQUED S-REF15418 - B-REF15419 LDB-REF15420 X-REF15421 LDX-REF15422 RCOND-REF15423 - FERR-REF15424 BERR-REF15425 WORK-REF15426 IWORK-REF15427 - INFO-REF15428)))) - -(CFFI:DEFCFUN ("spbtf2_" %%SPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15425 ':INT32) (KD-REF15426 ':INT32) + (NRHS-REF15427 ':INT32) (LDAB-REF15429 ':INT32) + (LDAFB-REF15431 ':INT32) (LDB-REF15435 ':INT32) + (LDX-REF15437 ':INT32) (RCOND-REF15438 ':FLOAT) + (INFO-REF15443 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15425 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15426 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15427 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15429 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF15431 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15435 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15437 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15438 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15443 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15428 AB) (AFB-REF15430 AFB) + (S-REF15433 S) (B-REF15434 B) + (X-REF15436 X) (FERR-REF15439 FERR) + (BERR-REF15440 BERR) + (WORK-REF15441 WORK) + (IWORK-REF15442 IWORK)) + (%%SPBSVX FACT UPLO N-REF15425 KD-REF15426 NRHS-REF15427 AB-REF15428 + LDAB-REF15429 AFB-REF15430 LDAFB-REF15431 EQUED S-REF15433 B-REF15434 + LDB-REF15435 X-REF15436 LDX-REF15437 RCOND-REF15438 FERR-REF15439 + BERR-REF15440 WORK-REF15441 IWORK-REF15442 INFO-REF15443)))) + +(CFFI:DEFCFUN ("spbtf2_" %%SPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3804,17 +3891,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15430 ':INT32) (KD-REF15431 ':INT32) - (LDAB-REF15433 ':INT32) (INFO-REF15434 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15430 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15431 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15433 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15434 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15432 AB)) - (%%SPBTF2 UPLO N-REF15430 KD-REF15431 AB-REF15432 LDAB-REF15433 - INFO-REF15434)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15445 ':INT32) (KD-REF15446 ':INT32) + (LDAB-REF15448 ':INT32) (INFO-REF15449 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15445 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15446 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15448 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15449 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15447 AB)) + (%%SPBTF2 UPLO N-REF15445 KD-REF15446 AB-REF15447 LDAB-REF15448 + INFO-REF15449)))) -(CFFI:DEFCFUN ("spbtrf_" %%SPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spbtrf_" %%SPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3832,17 +3919,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15436 ':INT32) (KD-REF15437 ':INT32) - (LDAB-REF15439 ':INT32) (INFO-REF15440 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15436 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15437 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15439 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15440 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15438 AB)) - (%%SPBTRF UPLO N-REF15436 KD-REF15437 AB-REF15438 LDAB-REF15439 - INFO-REF15440)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15451 ':INT32) (KD-REF15452 ':INT32) + (LDAB-REF15454 ':INT32) (INFO-REF15455 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15451 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15452 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15454 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15455 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15453 AB)) + (%%SPBTRF UPLO N-REF15451 KD-REF15452 AB-REF15453 LDAB-REF15454 + INFO-REF15455)))) -(CFFI:DEFCFUN ("spbtrs_" %%SPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spbtrs_" %%SPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3867,20 +3954,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15442 ':INT32) (KD-REF15443 ':INT32) - (NRHS-REF15444 ':INT32) (LDAB-REF15446 ':INT32) - (LDB-REF15448 ':INT32) (INFO-REF15449 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15442 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15443 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15444 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15446 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15448 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15449 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15445 AB) (B-REF15447 B)) - (%%SPBTRS UPLO N-REF15442 KD-REF15443 NRHS-REF15444 AB-REF15445 - LDAB-REF15446 B-REF15447 LDB-REF15448 INFO-REF15449)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15457 ':INT32) (KD-REF15458 ':INT32) + (NRHS-REF15459 ':INT32) (LDAB-REF15461 ':INT32) + (LDB-REF15463 ':INT32) (INFO-REF15464 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15457 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15458 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15459 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15461 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15463 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15464 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15460 AB) (B-REF15462 B)) + (%%SPBTRS UPLO N-REF15457 KD-REF15458 NRHS-REF15459 AB-REF15460 + LDAB-REF15461 B-REF15462 LDB-REF15463 INFO-REF15464)))) -(CFFI:DEFCFUN ("spftrf_" %%SPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spftrf_" %%SPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3896,13 +3983,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15452 ':INT32) (INFO-REF15454 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15452 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15454 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15453 A)) - (%%SPFTRF TRANSR UPLO N-REF15452 A-REF15453 INFO-REF15454)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15467 ':INT32) (INFO-REF15469 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15467 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15469 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15468 A)) + (%%SPFTRF TRANSR UPLO N-REF15467 A-REF15468 INFO-REF15469)))) -(CFFI:DEFCFUN ("spftri_" %%SPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spftri_" %%SPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3918,13 +4005,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15457 ':INT32) (INFO-REF15459 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15457 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15459 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15458 A)) - (%%SPFTRI TRANSR UPLO N-REF15457 A-REF15458 INFO-REF15459)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15472 ':INT32) (INFO-REF15474 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15472 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15474 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15473 A)) + (%%SPFTRI TRANSR UPLO N-REF15472 A-REF15473 INFO-REF15474)))) -(CFFI:DEFCFUN ("spftrs_" %%SPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spftrs_" %%SPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3947,17 +4034,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15462 ':INT32) (NRHS-REF15463 ':INT32) - (LDB-REF15466 ':INT32) (INFO-REF15467 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15462 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15463 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15466 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15467 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15464 A) (B-REF15465 B)) - (%%SPFTRS TRANSR UPLO N-REF15462 NRHS-REF15463 A-REF15464 B-REF15465 - LDB-REF15466 INFO-REF15467)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15477 ':INT32) (NRHS-REF15478 ':INT32) + (LDB-REF15481 ':INT32) (INFO-REF15482 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15477 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15478 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15481 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15482 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15479 A) (B-REF15480 B)) + (%%SPFTRS TRANSR UPLO N-REF15477 NRHS-REF15478 A-REF15479 B-REF15480 + LDB-REF15481 INFO-REF15482)))) -(CFFI:DEFCFUN ("spocon_" %%SPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spocon_" %%SPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3986,20 +4073,20 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15469 ':INT32) (LDA-REF15471 ':INT32) - (ANORM-REF15472 ':FLOAT) (RCOND-REF15473 ':FLOAT) - (INFO-REF15476 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15469 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15471 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15472 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15473 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15476 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15470 A) (WORK-REF15474 WORK) - (IWORK-REF15475 IWORK)) - (%%SPOCON UPLO N-REF15469 A-REF15470 LDA-REF15471 ANORM-REF15472 - RCOND-REF15473 WORK-REF15474 IWORK-REF15475 INFO-REF15476)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15484 ':INT32) (LDA-REF15486 ':INT32) + (ANORM-REF15487 ':FLOAT) (RCOND-REF15488 ':FLOAT) + (INFO-REF15491 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15484 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15486 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15487 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15488 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15491 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15485 A) (WORK-REF15489 WORK) + (IWORK-REF15490 IWORK)) + (%%SPOCON UPLO N-REF15484 A-REF15485 LDA-REF15486 ANORM-REF15487 + RCOND-REF15488 WORK-REF15489 IWORK-REF15490 INFO-REF15491)))) -(CFFI:DEFCFUN ("spoequ_" %%SPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spoequ_" %%SPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4020,19 +4107,20 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15477 ':INT32) (LDA-REF15479 ':INT32) - (SCOND-REF15481 ':FLOAT) (AMAX-REF15482 ':FLOAT) - (INFO-REF15483 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15477 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15479 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15481 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15482 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15483 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15478 A) (S-REF15480 S)) - (%%SPOEQU N-REF15477 A-REF15478 LDA-REF15479 S-REF15480 SCOND-REF15481 - AMAX-REF15482 INFO-REF15483)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15492 ':INT32) (LDA-REF15494 ':INT32) + (SCOND-REF15496 ':FLOAT) (AMAX-REF15497 ':FLOAT) + (INFO-REF15498 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15492 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15494 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15496 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15497 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15498 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15493 A) (S-REF15495 S)) + (%%SPOEQU N-REF15492 A-REF15493 LDA-REF15494 S-REF15495 SCOND-REF15496 + AMAX-REF15497 INFO-REF15498)))) -(CFFI:DEFCFUN ("spoequb_" %%SPOEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spoequb_" %%SPOEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4053,19 +4141,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15484 ':INT32) (LDA-REF15486 ':INT32) - (SCOND-REF15488 ':FLOAT) (AMAX-REF15489 ':FLOAT) - (INFO-REF15490 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15484 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15486 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15488 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15489 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15490 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15485 A) (S-REF15487 S)) - (%%SPOEQUB N-REF15484 A-REF15485 LDA-REF15486 S-REF15487 SCOND-REF15488 - AMAX-REF15489 INFO-REF15490)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15499 ':INT32) (LDA-REF15501 ':INT32) + (SCOND-REF15503 ':FLOAT) (AMAX-REF15504 ':FLOAT) + (INFO-REF15505 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15499 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15501 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15503 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15504 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15505 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15500 A) (S-REF15502 S)) + (%%SPOEQUB N-REF15499 A-REF15500 LDA-REF15501 S-REF15502 SCOND-REF15503 + AMAX-REF15504 INFO-REF15505)))) -(CFFI:DEFCFUN ("sporfs_" %%SPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sporfs_" %%SPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4117,29 +4205,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15492 ':INT32) (NRHS-REF15493 ':INT32) - (LDA-REF15495 ':INT32) (LDAF-REF15497 ':INT32) - (LDB-REF15499 ':INT32) (LDX-REF15501 ':INT32) - (INFO-REF15506 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15492 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15493 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15495 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15497 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15499 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15501 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15506 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15494 A) (AF-REF15496 AF) - (B-REF15498 B) (X-REF15500 X) - (FERR-REF15502 FERR) - (BERR-REF15503 BERR) - (WORK-REF15504 WORK) - (IWORK-REF15505 IWORK)) - (%%SPORFS UPLO N-REF15492 NRHS-REF15493 A-REF15494 LDA-REF15495 - AF-REF15496 LDAF-REF15497 B-REF15498 LDB-REF15499 X-REF15500 - LDX-REF15501 FERR-REF15502 BERR-REF15503 WORK-REF15504 - IWORK-REF15505 INFO-REF15506)))) - -(CFFI:DEFCFUN ("sporfsx_" %%SPORFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15507 ':INT32) (NRHS-REF15508 ':INT32) + (LDA-REF15510 ':INT32) (LDAF-REF15512 ':INT32) + (LDB-REF15514 ':INT32) (LDX-REF15516 ':INT32) + (INFO-REF15521 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15507 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15508 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15510 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15512 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15514 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15516 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15521 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15509 A) (AF-REF15511 AF) + (B-REF15513 B) (X-REF15515 X) + (FERR-REF15517 FERR) + (BERR-REF15518 BERR) + (WORK-REF15519 WORK) + (IWORK-REF15520 IWORK)) + (%%SPORFS UPLO N-REF15507 NRHS-REF15508 A-REF15509 LDA-REF15510 + AF-REF15511 LDAF-REF15512 B-REF15513 LDB-REF15514 X-REF15515 + LDX-REF15516 FERR-REF15517 BERR-REF15518 WORK-REF15519 IWORK-REF15520 + INFO-REF15521)))) + +(CFFI:DEFCFUN ("sporfsx_" %%SPORFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -4212,41 +4301,40 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15509 ':INT32) (NRHS-REF15510 ':INT32) - (LDA-REF15512 ':INT32) (LDAF-REF15514 ':INT32) - (LDB-REF15517 ':INT32) (LDX-REF15519 ':INT32) - (RCOND-REF15520 ':FLOAT) - (N_ERR_BNDS-REF15522 ':INT32) - (NPARAMS-REF15525 ':INT32) - (INFO-REF15529 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15509 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15510 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15512 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15514 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15517 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15519 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15520 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF15522 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF15525 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15529 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15511 A) (AF-REF15513 AF) - (S-REF15515 S) (B-REF15516 B) - (X-REF15518 X) (BERR-REF15521 BERR) - (ERR_BNDS_NORM-REF15523 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15524 ':INT32) (NRHS-REF15525 ':INT32) + (LDA-REF15527 ':INT32) (LDAF-REF15529 ':INT32) + (LDB-REF15532 ':INT32) (LDX-REF15534 ':INT32) + (RCOND-REF15535 ':FLOAT) + (N_ERR_BNDS-REF15537 ':INT32) + (NPARAMS-REF15540 ':INT32) + (INFO-REF15544 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15524 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15525 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15527 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15529 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15532 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15534 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15535 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF15537 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF15540 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15544 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15526 A) (AF-REF15528 AF) + (S-REF15530 S) (B-REF15531 B) + (X-REF15533 X) (BERR-REF15536 BERR) + (ERR_BNDS_NORM-REF15538 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF15524 + (ERR_BNDS_COMP-REF15539 ERR_BNDS_COMP) - (PARAMS-REF15526 PARAMS) - (WORK-REF15527 WORK) - (IWORK-REF15528 IWORK)) - (%%SPORFSX UPLO EQUED N-REF15509 NRHS-REF15510 A-REF15511 LDA-REF15512 - AF-REF15513 LDAF-REF15514 S-REF15515 B-REF15516 LDB-REF15517 - X-REF15518 LDX-REF15519 RCOND-REF15520 BERR-REF15521 - N_ERR_BNDS-REF15522 ERR_BNDS_NORM-REF15523 - ERR_BNDS_COMP-REF15524 NPARAMS-REF15525 PARAMS-REF15526 - WORK-REF15527 IWORK-REF15528 INFO-REF15529)))) + (PARAMS-REF15541 PARAMS) + (WORK-REF15542 WORK) + (IWORK-REF15543 IWORK)) + (%%SPORFSX UPLO EQUED N-REF15524 NRHS-REF15525 A-REF15526 LDA-REF15527 + AF-REF15528 LDAF-REF15529 S-REF15530 B-REF15531 LDB-REF15532 X-REF15533 + LDX-REF15534 RCOND-REF15535 BERR-REF15536 N_ERR_BNDS-REF15537 + ERR_BNDS_NORM-REF15538 ERR_BNDS_COMP-REF15539 NPARAMS-REF15540 + PARAMS-REF15541 WORK-REF15542 IWORK-REF15543 INFO-REF15544)))) -(CFFI:DEFCFUN ("sposv_" %%SPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sposv_" %%SPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4269,19 +4357,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15531 ':INT32) (NRHS-REF15532 ':INT32) - (LDA-REF15534 ':INT32) (LDB-REF15536 ':INT32) - (INFO-REF15537 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15531 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15532 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15534 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15536 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15537 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15533 A) (B-REF15535 B)) - (%%SPOSV UPLO N-REF15531 NRHS-REF15532 A-REF15533 LDA-REF15534 B-REF15535 - LDB-REF15536 INFO-REF15537)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15546 ':INT32) (NRHS-REF15547 ':INT32) + (LDA-REF15549 ':INT32) (LDB-REF15551 ':INT32) + (INFO-REF15552 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15546 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15547 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15549 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15551 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15552 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15548 A) (B-REF15550 B)) + (%%SPOSV UPLO N-REF15546 NRHS-REF15547 A-REF15548 LDA-REF15549 B-REF15550 + LDB-REF15551 INFO-REF15552)))) -(CFFI:DEFCFUN ("sposvx_" %%SPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sposvx_" %%SPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -4342,31 +4430,31 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15540 ':INT32) (NRHS-REF15541 ':INT32) - (LDA-REF15543 ':INT32) (LDAF-REF15545 ':INT32) - (LDB-REF15549 ':INT32) (LDX-REF15551 ':INT32) - (RCOND-REF15552 ':FLOAT) (INFO-REF15557 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15540 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15541 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15543 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15545 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15549 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15551 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15552 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15557 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15542 A) (AF-REF15544 AF) - (S-REF15547 S) (B-REF15548 B) - (X-REF15550 X) (FERR-REF15553 FERR) - (BERR-REF15554 BERR) - (WORK-REF15555 WORK) - (IWORK-REF15556 IWORK)) - (%%SPOSVX FACT UPLO N-REF15540 NRHS-REF15541 A-REF15542 LDA-REF15543 - AF-REF15544 LDAF-REF15545 EQUED S-REF15547 B-REF15548 - LDB-REF15549 X-REF15550 LDX-REF15551 RCOND-REF15552 - FERR-REF15553 BERR-REF15554 WORK-REF15555 IWORK-REF15556 - INFO-REF15557)))) - -(CFFI:DEFCFUN ("sposvxx_" %%SPOSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15555 ':INT32) (NRHS-REF15556 ':INT32) + (LDA-REF15558 ':INT32) (LDAF-REF15560 ':INT32) + (LDB-REF15564 ':INT32) (LDX-REF15566 ':INT32) + (RCOND-REF15567 ':FLOAT) (INFO-REF15572 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15555 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15556 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15558 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15560 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15564 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15566 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15567 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15572 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15557 A) (AF-REF15559 AF) + (S-REF15562 S) (B-REF15563 B) + (X-REF15565 X) (FERR-REF15568 FERR) + (BERR-REF15569 BERR) + (WORK-REF15570 WORK) + (IWORK-REF15571 IWORK)) + (%%SPOSVX FACT UPLO N-REF15555 NRHS-REF15556 A-REF15557 LDA-REF15558 + AF-REF15559 LDAF-REF15560 EQUED S-REF15562 B-REF15563 LDB-REF15564 + X-REF15565 LDX-REF15566 RCOND-REF15567 FERR-REF15568 BERR-REF15569 + WORK-REF15570 IWORK-REF15571 INFO-REF15572)))) + +(CFFI:DEFCFUN ("sposvxx_" %%SPOSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -4443,43 +4531,43 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15560 ':INT32) (NRHS-REF15561 ':INT32) - (LDA-REF15563 ':INT32) (LDAF-REF15565 ':INT32) - (LDB-REF15569 ':INT32) (LDX-REF15571 ':INT32) - (RCOND-REF15572 ':FLOAT) - (RPVGRW-REF15573 ':FLOAT) - (N_ERR_BNDS-REF15575 ':INT32) - (NPARAMS-REF15578 ':INT32) - (INFO-REF15582 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15560 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15561 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15563 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15565 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15569 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15571 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15572 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF15573 :FLOAT) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF15575 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF15578 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15582 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15562 A) (AF-REF15564 AF) - (S-REF15567 S) (B-REF15568 B) - (X-REF15570 X) (BERR-REF15574 BERR) - (ERR_BNDS_NORM-REF15576 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15575 ':INT32) (NRHS-REF15576 ':INT32) + (LDA-REF15578 ':INT32) (LDAF-REF15580 ':INT32) + (LDB-REF15584 ':INT32) (LDX-REF15586 ':INT32) + (RCOND-REF15587 ':FLOAT) + (RPVGRW-REF15588 ':FLOAT) + (N_ERR_BNDS-REF15590 ':INT32) + (NPARAMS-REF15593 ':INT32) + (INFO-REF15597 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15575 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15576 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15578 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15580 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15584 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15586 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15587 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF15588 :FLOAT) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF15590 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF15593 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15597 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15577 A) (AF-REF15579 AF) + (S-REF15582 S) (B-REF15583 B) + (X-REF15585 X) (BERR-REF15589 BERR) + (ERR_BNDS_NORM-REF15591 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF15577 + (ERR_BNDS_COMP-REF15592 ERR_BNDS_COMP) - (PARAMS-REF15579 PARAMS) - (WORK-REF15580 WORK) - (IWORK-REF15581 IWORK)) - (%%SPOSVXX FACT UPLO N-REF15560 NRHS-REF15561 A-REF15562 LDA-REF15563 - AF-REF15564 LDAF-REF15565 EQUED S-REF15567 B-REF15568 - LDB-REF15569 X-REF15570 LDX-REF15571 RCOND-REF15572 - RPVGRW-REF15573 BERR-REF15574 N_ERR_BNDS-REF15575 - ERR_BNDS_NORM-REF15576 ERR_BNDS_COMP-REF15577 NPARAMS-REF15578 - PARAMS-REF15579 WORK-REF15580 IWORK-REF15581 INFO-REF15582)))) + (PARAMS-REF15594 PARAMS) + (WORK-REF15595 WORK) + (IWORK-REF15596 IWORK)) + (%%SPOSVXX FACT UPLO N-REF15575 NRHS-REF15576 A-REF15577 LDA-REF15578 + AF-REF15579 LDAF-REF15580 EQUED S-REF15582 B-REF15583 LDB-REF15584 + X-REF15585 LDX-REF15586 RCOND-REF15587 RPVGRW-REF15588 BERR-REF15589 + N_ERR_BNDS-REF15590 ERR_BNDS_NORM-REF15591 ERR_BNDS_COMP-REF15592 + NPARAMS-REF15593 PARAMS-REF15594 WORK-REF15595 IWORK-REF15596 + INFO-REF15597)))) -(CFFI:DEFCFUN ("spotf2_" %%SPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spotf2_" %%SPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4495,15 +4583,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15584 ':INT32) (LDA-REF15586 ':INT32) - (INFO-REF15587 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15584 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15586 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15587 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15585 A)) - (%%SPOTF2 UPLO N-REF15584 A-REF15585 LDA-REF15586 INFO-REF15587)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15599 ':INT32) (LDA-REF15601 ':INT32) + (INFO-REF15602 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15599 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15601 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15602 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15600 A)) + (%%SPOTF2 UPLO N-REF15599 A-REF15600 LDA-REF15601 INFO-REF15602)))) -(CFFI:DEFCFUN ("spotrf_" %%SPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spotrf_" %%SPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4519,15 +4607,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15589 ':INT32) (LDA-REF15591 ':INT32) - (INFO-REF15592 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15589 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15591 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15592 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15590 A)) - (%%SPOTRF UPLO N-REF15589 A-REF15590 LDA-REF15591 INFO-REF15592)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15604 ':INT32) (LDA-REF15606 ':INT32) + (INFO-REF15607 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15604 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15606 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15607 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15605 A)) + (%%SPOTRF UPLO N-REF15604 A-REF15605 LDA-REF15606 INFO-REF15607)))) -(CFFI:DEFCFUN ("spotrf2_" %%SPOTRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spotrf2_" %%SPOTRF2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4543,15 +4632,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15594 ':INT32) (LDA-REF15596 ':INT32) - (INFO-REF15597 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15594 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15596 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15597 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15595 A)) - (%%SPOTRF2 UPLO N-REF15594 A-REF15595 LDA-REF15596 INFO-REF15597)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15609 ':INT32) (LDA-REF15611 ':INT32) + (INFO-REF15612 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15609 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15611 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15612 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15610 A)) + (%%SPOTRF2 UPLO N-REF15609 A-REF15610 LDA-REF15611 INFO-REF15612)))) -(CFFI:DEFCFUN ("spotri_" %%SPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spotri_" %%SPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4567,15 +4656,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15599 ':INT32) (LDA-REF15601 ':INT32) - (INFO-REF15602 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15599 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15601 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15602 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15600 A)) - (%%SPOTRI UPLO N-REF15599 A-REF15600 LDA-REF15601 INFO-REF15602)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15614 ':INT32) (LDA-REF15616 ':INT32) + (INFO-REF15617 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15614 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15616 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15617 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15615 A)) + (%%SPOTRI UPLO N-REF15614 A-REF15615 LDA-REF15616 INFO-REF15617)))) -(CFFI:DEFCFUN ("spotrs_" %%SPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spotrs_" %%SPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4598,19 +4687,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15604 ':INT32) (NRHS-REF15605 ':INT32) - (LDA-REF15607 ':INT32) (LDB-REF15609 ':INT32) - (INFO-REF15610 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15604 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15605 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15607 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15609 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15610 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15606 A) (B-REF15608 B)) - (%%SPOTRS UPLO N-REF15604 NRHS-REF15605 A-REF15606 LDA-REF15607 - B-REF15608 LDB-REF15609 INFO-REF15610)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15619 ':INT32) (NRHS-REF15620 ':INT32) + (LDA-REF15622 ':INT32) (LDB-REF15624 ':INT32) + (INFO-REF15625 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15619 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15620 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15622 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15624 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15625 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15621 A) (B-REF15623 B)) + (%%SPOTRS UPLO N-REF15619 NRHS-REF15620 A-REF15621 LDA-REF15622 + B-REF15623 LDB-REF15624 INFO-REF15625)))) -(CFFI:DEFCFUN ("sppcon_" %%SPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sppcon_" %%SPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4637,19 +4726,19 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15612 ':INT32) (ANORM-REF15614 ':FLOAT) - (RCOND-REF15615 ':FLOAT) (INFO-REF15618 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15612 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15614 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15615 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15618 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15613 AP) - (WORK-REF15616 WORK) - (IWORK-REF15617 IWORK)) - (%%SPPCON UPLO N-REF15612 AP-REF15613 ANORM-REF15614 RCOND-REF15615 - WORK-REF15616 IWORK-REF15617 INFO-REF15618)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15627 ':INT32) (ANORM-REF15629 ':FLOAT) + (RCOND-REF15630 ':FLOAT) (INFO-REF15633 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15627 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15629 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15630 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15633 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15628 AP) + (WORK-REF15631 WORK) + (IWORK-REF15632 IWORK)) + (%%SPPCON UPLO N-REF15627 AP-REF15628 ANORM-REF15629 RCOND-REF15630 + WORK-REF15631 IWORK-REF15632 INFO-REF15633)))) -(CFFI:DEFCFUN ("sppequ_" %%SPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sppequ_" %%SPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4670,17 +4759,17 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15620 ':INT32) (SCOND-REF15623 ':FLOAT) - (AMAX-REF15624 ':FLOAT) (INFO-REF15625 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15620 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15623 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15624 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15625 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15621 AP) (S-REF15622 S)) - (%%SPPEQU UPLO N-REF15620 AP-REF15621 S-REF15622 SCOND-REF15623 - AMAX-REF15624 INFO-REF15625)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15635 ':INT32) (SCOND-REF15638 ':FLOAT) + (AMAX-REF15639 ':FLOAT) (INFO-REF15640 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15635 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15638 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15639 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15640 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15636 AP) (S-REF15637 S)) + (%%SPPEQU UPLO N-REF15635 AP-REF15636 S-REF15637 SCOND-REF15638 + AMAX-REF15639 INFO-REF15640)))) -(CFFI:DEFCFUN ("spprfs_" %%SPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spprfs_" %%SPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4728,25 +4817,25 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15627 ':INT32) (NRHS-REF15628 ':INT32) - (LDB-REF15632 ':INT32) (LDX-REF15634 ':INT32) - (INFO-REF15639 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15627 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15628 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15632 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15634 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15639 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15629 AP) (AFP-REF15630 AFP) - (B-REF15631 B) (X-REF15633 X) - (FERR-REF15635 FERR) - (BERR-REF15636 BERR) - (WORK-REF15637 WORK) - (IWORK-REF15638 IWORK)) - (%%SPPRFS UPLO N-REF15627 NRHS-REF15628 AP-REF15629 AFP-REF15630 - B-REF15631 LDB-REF15632 X-REF15633 LDX-REF15634 FERR-REF15635 - BERR-REF15636 WORK-REF15637 IWORK-REF15638 INFO-REF15639)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15642 ':INT32) (NRHS-REF15643 ':INT32) + (LDB-REF15647 ':INT32) (LDX-REF15649 ':INT32) + (INFO-REF15654 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15642 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15643 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15647 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15649 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15654 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15644 AP) (AFP-REF15645 AFP) + (B-REF15646 B) (X-REF15648 X) + (FERR-REF15650 FERR) + (BERR-REF15651 BERR) + (WORK-REF15652 WORK) + (IWORK-REF15653 IWORK)) + (%%SPPRFS UPLO N-REF15642 NRHS-REF15643 AP-REF15644 AFP-REF15645 + B-REF15646 LDB-REF15647 X-REF15648 LDX-REF15649 FERR-REF15650 + BERR-REF15651 WORK-REF15652 IWORK-REF15653 INFO-REF15654)))) -(CFFI:DEFCFUN ("sppsv_" %%SPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sppsv_" %%SPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4767,17 +4856,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15641 ':INT32) (NRHS-REF15642 ':INT32) - (LDB-REF15645 ':INT32) (INFO-REF15646 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15641 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15642 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15645 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15646 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15643 AP) (B-REF15644 B)) - (%%SPPSV UPLO N-REF15641 NRHS-REF15642 AP-REF15643 B-REF15644 - LDB-REF15645 INFO-REF15646)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15656 ':INT32) (NRHS-REF15657 ':INT32) + (LDB-REF15660 ':INT32) (INFO-REF15661 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15656 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15657 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15660 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15661 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15658 AP) (B-REF15659 B)) + (%%SPPSV UPLO N-REF15656 NRHS-REF15657 AP-REF15658 B-REF15659 + LDB-REF15660 INFO-REF15661)))) -(CFFI:DEFCFUN ("sppsvx_" %%SPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sppsvx_" %%SPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -4835,27 +4924,27 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15649 ':INT32) (NRHS-REF15650 ':INT32) - (LDB-REF15656 ':INT32) (LDX-REF15658 ':INT32) - (RCOND-REF15659 ':FLOAT) (INFO-REF15664 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15649 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15650 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15656 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15658 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15659 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15664 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15651 AP) (AFP-REF15652 AFP) - (S-REF15654 S) (B-REF15655 B) - (X-REF15657 X) (FERR-REF15660 FERR) - (BERR-REF15661 BERR) - (WORK-REF15662 WORK) - (IWORK-REF15663 IWORK)) - (%%SPPSVX FACT UPLO N-REF15649 NRHS-REF15650 AP-REF15651 AFP-REF15652 - EQUED S-REF15654 B-REF15655 LDB-REF15656 X-REF15657 - LDX-REF15658 RCOND-REF15659 FERR-REF15660 BERR-REF15661 - WORK-REF15662 IWORK-REF15663 INFO-REF15664)))) - -(CFFI:DEFCFUN ("spptrf_" %%SPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15664 ':INT32) (NRHS-REF15665 ':INT32) + (LDB-REF15671 ':INT32) (LDX-REF15673 ':INT32) + (RCOND-REF15674 ':FLOAT) (INFO-REF15679 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15664 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15665 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15671 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15673 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15674 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15679 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15666 AP) (AFP-REF15667 AFP) + (S-REF15669 S) (B-REF15670 B) + (X-REF15672 X) (FERR-REF15675 FERR) + (BERR-REF15676 BERR) + (WORK-REF15677 WORK) + (IWORK-REF15678 IWORK)) + (%%SPPSVX FACT UPLO N-REF15664 NRHS-REF15665 AP-REF15666 AFP-REF15667 + EQUED S-REF15669 B-REF15670 LDB-REF15671 X-REF15672 LDX-REF15673 + RCOND-REF15674 FERR-REF15675 BERR-REF15676 WORK-REF15677 IWORK-REF15678 + INFO-REF15679)))) + +(CFFI:DEFCFUN ("spptrf_" %%SPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4869,13 +4958,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15666 ':INT32) (INFO-REF15668 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15666 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15668 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15667 AP)) - (%%SPPTRF UPLO N-REF15666 AP-REF15667 INFO-REF15668)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15681 ':INT32) (INFO-REF15683 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15681 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15683 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15682 AP)) + (%%SPPTRF UPLO N-REF15681 AP-REF15682 INFO-REF15683)))) -(CFFI:DEFCFUN ("spptri_" %%SPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spptri_" %%SPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4889,13 +4978,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15670 ':INT32) (INFO-REF15672 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15670 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15672 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15671 AP)) - (%%SPPTRI UPLO N-REF15670 AP-REF15671 INFO-REF15672)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15685 ':INT32) (INFO-REF15687 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15685 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15687 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15686 AP)) + (%%SPPTRI UPLO N-REF15685 AP-REF15686 INFO-REF15687)))) -(CFFI:DEFCFUN ("spptrs_" %%SPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spptrs_" %%SPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4916,17 +5005,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15674 ':INT32) (NRHS-REF15675 ':INT32) - (LDB-REF15678 ':INT32) (INFO-REF15679 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15674 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15675 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15678 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15679 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15676 AP) (B-REF15677 B)) - (%%SPPTRS UPLO N-REF15674 NRHS-REF15675 AP-REF15676 B-REF15677 - LDB-REF15678 INFO-REF15679)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15689 ':INT32) (NRHS-REF15690 ':INT32) + (LDB-REF15693 ':INT32) (INFO-REF15694 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15689 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15690 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15693 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15694 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15691 AP) (B-REF15692 B)) + (%%SPPTRS UPLO N-REF15689 NRHS-REF15690 AP-REF15691 B-REF15692 + LDB-REF15693 INFO-REF15694)))) -(CFFI:DEFCFUN ("spstf2_" %%SPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spstf2_" %%SPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4955,20 +5044,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15681 ':INT32) (LDA-REF15683 ':INT32) - (RANK-REF15685 ':INT32) (TOL-REF15686 ':FLOAT) - (INFO-REF15688 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15681 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15683 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF15685 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF15686 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15688 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15682 A) (PIV-REF15684 PIV) - (WORK-REF15687 WORK)) - (%%SPSTF2 UPLO N-REF15681 A-REF15682 LDA-REF15683 PIV-REF15684 - RANK-REF15685 TOL-REF15686 WORK-REF15687 INFO-REF15688)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15696 ':INT32) (LDA-REF15698 ':INT32) + (RANK-REF15700 ':INT32) (TOL-REF15701 ':FLOAT) + (INFO-REF15703 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15696 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15698 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF15700 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF15701 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15703 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15697 A) (PIV-REF15699 PIV) + (WORK-REF15702 WORK)) + (%%SPSTF2 UPLO N-REF15696 A-REF15697 LDA-REF15698 PIV-REF15699 + RANK-REF15700 TOL-REF15701 WORK-REF15702 INFO-REF15703)))) -(CFFI:DEFCFUN ("spstrf_" %%SPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spstrf_" %%SPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4997,20 +5086,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15690 ':INT32) (LDA-REF15692 ':INT32) - (RANK-REF15694 ':INT32) (TOL-REF15695 ':FLOAT) - (INFO-REF15697 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15690 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15692 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF15694 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF15695 :FLOAT) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15697 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15691 A) (PIV-REF15693 PIV) - (WORK-REF15696 WORK)) - (%%SPSTRF UPLO N-REF15690 A-REF15691 LDA-REF15692 PIV-REF15693 - RANK-REF15694 TOL-REF15695 WORK-REF15696 INFO-REF15697)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15705 ':INT32) (LDA-REF15707 ':INT32) + (RANK-REF15709 ':INT32) (TOL-REF15710 ':FLOAT) + (INFO-REF15712 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15705 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15707 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF15709 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF15710 :FLOAT) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15712 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15706 A) (PIV-REF15708 PIV) + (WORK-REF15711 WORK)) + (%%SPSTRF UPLO N-REF15705 A-REF15706 LDA-REF15707 PIV-REF15708 + RANK-REF15709 TOL-REF15710 WORK-REF15711 INFO-REF15712)))) -(CFFI:DEFCFUN ("sptcon_" %%SPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sptcon_" %%SPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -5033,18 +5122,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15698 ':INT32) (ANORM-REF15701 ':FLOAT) - (RCOND-REF15702 ':FLOAT) (INFO-REF15704 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15698 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15701 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15702 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15704 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15699 D) (E-REF15700 E) - (WORK-REF15703 WORK)) - (%%SPTCON N-REF15698 D-REF15699 E-REF15700 ANORM-REF15701 RCOND-REF15702 - WORK-REF15703 INFO-REF15704)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15713 ':INT32) (ANORM-REF15716 ':FLOAT) + (RCOND-REF15717 ':FLOAT) (INFO-REF15719 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15713 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15716 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15717 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15719 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15714 D) (E-REF15715 E) + (WORK-REF15718 WORK)) + (%%SPTCON N-REF15713 D-REF15714 E-REF15715 ANORM-REF15716 RCOND-REF15717 + WORK-REF15718 INFO-REF15719)))) -(CFFI:DEFCFUN ("spteqr_" %%SPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spteqr_" %%SPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -5070,17 +5159,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15706 ':INT32) (LDZ-REF15710 ':INT32) - (INFO-REF15712 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15706 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15710 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15712 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15707 D) (E-REF15708 E) - (Z-REF15709 Z) (WORK-REF15711 WORK)) - (%%SPTEQR COMPZ N-REF15706 D-REF15707 E-REF15708 Z-REF15709 LDZ-REF15710 - WORK-REF15711 INFO-REF15712)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15721 ':INT32) (LDZ-REF15725 ':INT32) + (INFO-REF15727 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15721 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15725 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15727 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15722 D) (E-REF15723 E) + (Z-REF15724 Z) (WORK-REF15726 WORK)) + (%%SPTEQR COMPZ N-REF15721 D-REF15722 E-REF15723 Z-REF15724 LDZ-REF15725 + WORK-REF15726 INFO-REF15727)))) -(CFFI:DEFCFUN ("sptrfs_" %%SPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sptrfs_" %%SPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -5125,25 +5214,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15713 ':INT32) (NRHS-REF15714 ':INT32) - (LDB-REF15720 ':INT32) (LDX-REF15722 ':INT32) - (INFO-REF15726 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15713 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15714 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15720 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15722 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15726 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15715 D) (E-REF15716 E) - (DF-REF15717 DF) (EF-REF15718 EF) - (B-REF15719 B) (X-REF15721 X) - (FERR-REF15723 FERR) - (BERR-REF15724 BERR) - (WORK-REF15725 WORK)) - (%%SPTRFS N-REF15713 NRHS-REF15714 D-REF15715 E-REF15716 DF-REF15717 - EF-REF15718 B-REF15719 LDB-REF15720 X-REF15721 LDX-REF15722 - FERR-REF15723 BERR-REF15724 WORK-REF15725 INFO-REF15726)))) - -(CFFI:DEFCFUN ("sptsv_" %%SPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15728 ':INT32) (NRHS-REF15729 ':INT32) + (LDB-REF15735 ':INT32) (LDX-REF15737 ':INT32) + (INFO-REF15741 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15728 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15729 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15735 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15737 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15741 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15730 D) (E-REF15731 E) + (DF-REF15732 DF) (EF-REF15733 EF) + (B-REF15734 B) (X-REF15736 X) + (FERR-REF15738 FERR) + (BERR-REF15739 BERR) + (WORK-REF15740 WORK)) + (%%SPTRFS N-REF15728 NRHS-REF15729 D-REF15730 E-REF15731 DF-REF15732 + EF-REF15733 B-REF15734 LDB-REF15735 X-REF15736 LDX-REF15737 + FERR-REF15738 BERR-REF15739 WORK-REF15740 INFO-REF15741)))) + +(CFFI:DEFCFUN ("sptsv_" %%SPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -5165,18 +5254,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15727 ':INT32) (NRHS-REF15728 ':INT32) - (LDB-REF15732 ':INT32) (INFO-REF15733 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15727 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15728 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15732 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15733 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15729 D) (E-REF15730 E) - (B-REF15731 B)) - (%%SPTSV N-REF15727 NRHS-REF15728 D-REF15729 E-REF15730 B-REF15731 - LDB-REF15732 INFO-REF15733)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15742 ':INT32) (NRHS-REF15743 ':INT32) + (LDB-REF15747 ':INT32) (INFO-REF15748 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15742 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15743 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15747 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15748 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15744 D) (E-REF15745 E) + (B-REF15746 B)) + (%%SPTSV N-REF15742 NRHS-REF15743 D-REF15744 E-REF15745 B-REF15746 + LDB-REF15747 INFO-REF15748)))) -(CFFI:DEFCFUN ("sptsvx_" %%SPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sptsvx_" %%SPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (N :POINTER) @@ -5227,27 +5316,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15735 ':INT32) (NRHS-REF15736 ':INT32) - (LDB-REF15742 ':INT32) (LDX-REF15744 ':INT32) - (RCOND-REF15745 ':FLOAT) (INFO-REF15749 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15735 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15736 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15742 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15744 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15745 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15749 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15737 D) (E-REF15738 E) - (DF-REF15739 DF) (EF-REF15740 EF) - (B-REF15741 B) (X-REF15743 X) - (FERR-REF15746 FERR) - (BERR-REF15747 BERR) - (WORK-REF15748 WORK)) - (%%SPTSVX FACT N-REF15735 NRHS-REF15736 D-REF15737 E-REF15738 DF-REF15739 - EF-REF15740 B-REF15741 LDB-REF15742 X-REF15743 LDX-REF15744 - RCOND-REF15745 FERR-REF15746 BERR-REF15747 WORK-REF15748 - INFO-REF15749)))) - -(CFFI:DEFCFUN ("spttrf_" %%SPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15750 ':INT32) (NRHS-REF15751 ':INT32) + (LDB-REF15757 ':INT32) (LDX-REF15759 ':INT32) + (RCOND-REF15760 ':FLOAT) (INFO-REF15764 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15750 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15751 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15757 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15759 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15760 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15764 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15752 D) (E-REF15753 E) + (DF-REF15754 DF) (EF-REF15755 EF) + (B-REF15756 B) (X-REF15758 X) + (FERR-REF15761 FERR) + (BERR-REF15762 BERR) + (WORK-REF15763 WORK)) + (%%SPTSVX FACT N-REF15750 NRHS-REF15751 D-REF15752 E-REF15753 DF-REF15754 + EF-REF15755 B-REF15756 LDB-REF15757 X-REF15758 LDX-REF15759 + RCOND-REF15760 FERR-REF15761 BERR-REF15762 WORK-REF15763 + INFO-REF15764)))) + +(CFFI:DEFCFUN ("spttrf_" %%SPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -5262,13 +5351,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15750 ':INT32) (INFO-REF15753 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15750 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15753 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15751 D) (E-REF15752 E)) - (%%SPTTRF N-REF15750 D-REF15751 E-REF15752 INFO-REF15753)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15765 ':INT32) (INFO-REF15768 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15765 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15768 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15766 D) (E-REF15767 E)) + (%%SPTTRF N-REF15765 D-REF15766 E-REF15767 INFO-REF15768)))) -(CFFI:DEFCFUN ("spttrs_" %%SPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("spttrs_" %%SPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -5290,18 +5379,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15754 ':INT32) (NRHS-REF15755 ':INT32) - (LDB-REF15759 ':INT32) (INFO-REF15760 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15754 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15755 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15759 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15760 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15756 D) (E-REF15757 E) - (B-REF15758 B)) - (%%SPTTRS N-REF15754 NRHS-REF15755 D-REF15756 E-REF15757 B-REF15758 - LDB-REF15759 INFO-REF15760)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15769 ':INT32) (NRHS-REF15770 ':INT32) + (LDB-REF15774 ':INT32) (INFO-REF15775 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15769 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15770 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15774 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15775 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15771 D) (E-REF15772 E) + (B-REF15773 B)) + (%%SPTTRS N-REF15769 NRHS-REF15770 D-REF15771 E-REF15772 B-REF15773 + LDB-REF15774 INFO-REF15775)))) -(CFFI:DEFCFUN ("sptts2_" %%SPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sptts2_" %%SPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -5321,17 +5410,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15761 ':INT32) (NRHS-REF15762 ':INT32) - (LDB-REF15766 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15761 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15762 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15766 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15763 D) (E-REF15764 E) - (B-REF15765 B)) - (%%SPTTS2 N-REF15761 NRHS-REF15762 D-REF15763 E-REF15764 B-REF15765 - LDB-REF15766)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15776 ':INT32) (NRHS-REF15777 ':INT32) + (LDB-REF15781 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15776 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15777 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15781 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15778 D) (E-REF15779 E) + (B-REF15780 B)) + (%%SPTTS2 N-REF15776 NRHS-REF15777 D-REF15778 E-REF15779 B-REF15780 + LDB-REF15781)))) -(CFFI:DEFCFUN ("srscl_" %%SRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("srscl_" %%SRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (SA :POINTER) @@ -5345,16 +5434,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15767 ':INT32) (SA-REF15768 ':FLOAT) - (INCX-REF15770 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15767 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF15768 :FLOAT) SA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF15770 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF15769 SX)) - (%%SRSCL N-REF15767 SA-REF15768 SX-REF15769 INCX-REF15770)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15782 ':INT32) (SA-REF15783 ':FLOAT) + (INCX-REF15785 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15782 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF15783 :FLOAT) SA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF15785 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF15784 SX)) + (%%SRSCL N-REF15782 SA-REF15783 SX-REF15784 INCX-REF15785)))) (CFFI:DEFCFUN ("ssb2st_kernels_" %%SSB2ST_KERNELS :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WANTZ :POINTER) @@ -5396,30 +5485,29 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF15772 ':INT32) (TTYPE-REF15773 ':INT32) - (ST-REF15774 ':INT32) (ED-REF15775 ':INT32) - (SWEEP-REF15776 ':INT32) (N-REF15777 ':INT32) - (NB-REF15778 ':INT32) (IB-REF15779 ':INT32) - (LDA-REF15781 ':INT32) (LDVT-REF15784 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF15772 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF15773 :INT32) TTYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF15774 :INT32) ST) - (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF15775 :INT32) ED) - (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF15776 :INT32) SWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15777 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15778 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF15779 :INT32) IB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15781 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF15784 :INT32) LDVT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15780 A) (V-REF15782 V) - (TAU-REF15783 TAU) - (WORK-REF15785 WORK)) - (%%SSB2ST_KERNELS UPLO WANTZ-REF15772 TTYPE-REF15773 ST-REF15774 - ED-REF15775 SWEEP-REF15776 N-REF15777 NB-REF15778 - IB-REF15779 A-REF15780 LDA-REF15781 V-REF15782 - TAU-REF15783 LDVT-REF15784 WORK-REF15785)))) - -(CFFI:DEFCFUN ("ssbev_" %%SSBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF15787 ':INT32) (TTYPE-REF15788 ':INT32) + (ST-REF15789 ':INT32) (ED-REF15790 ':INT32) + (SWEEP-REF15791 ':INT32) (N-REF15792 ':INT32) + (NB-REF15793 ':INT32) (IB-REF15794 ':INT32) + (LDA-REF15796 ':INT32) (LDVT-REF15799 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF15787 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF15788 :INT32) TTYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF15789 :INT32) ST) + (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF15790 :INT32) ED) + (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF15791 :INT32) SWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15792 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15793 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF15794 :INT32) IB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15796 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF15799 :INT32) LDVT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15795 A) (V-REF15797 V) + (TAU-REF15798 TAU) + (WORK-REF15800 WORK)) + (%%SSB2ST_KERNELS UPLO WANTZ-REF15787 TTYPE-REF15788 ST-REF15789 + ED-REF15790 SWEEP-REF15791 N-REF15792 NB-REF15793 IB-REF15794 A-REF15795 + LDA-REF15796 V-REF15797 TAU-REF15798 LDVT-REF15799 WORK-REF15800)))) + +(CFFI:DEFCFUN ("ssbev_" %%SSBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5451,22 +5539,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15788 ':INT32) (KD-REF15789 ':INT32) - (LDAB-REF15791 ':INT32) (LDZ-REF15794 ':INT32) - (INFO-REF15796 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15788 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15789 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15791 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15794 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15796 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15790 AB) (W-REF15792 W) - (Z-REF15793 Z) (WORK-REF15795 WORK)) - (%%SSBEV JOBZ UPLO N-REF15788 KD-REF15789 AB-REF15790 LDAB-REF15791 - W-REF15792 Z-REF15793 LDZ-REF15794 WORK-REF15795 - INFO-REF15796)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15803 ':INT32) (KD-REF15804 ':INT32) + (LDAB-REF15806 ':INT32) (LDZ-REF15809 ':INT32) + (INFO-REF15811 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15803 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15804 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15806 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15809 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15811 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15805 AB) (W-REF15807 W) + (Z-REF15808 Z) (WORK-REF15810 WORK)) + (%%SSBEV JOBZ UPLO N-REF15803 KD-REF15804 AB-REF15805 LDAB-REF15806 + W-REF15807 Z-REF15808 LDZ-REF15809 WORK-REF15810 INFO-REF15811)))) (CFFI:DEFCFUN ("ssbev_2stage_" %%SSBEV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5501,22 +5588,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15799 ':INT32) (KD-REF15800 ':INT32) - (LDAB-REF15802 ':INT32) (LDZ-REF15805 ':INT32) - (LWORK-REF15807 ':INT32) (INFO-REF15808 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15799 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15800 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15802 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15805 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15807 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15808 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15801 AB) (W-REF15803 W) - (Z-REF15804 Z) (WORK-REF15806 WORK)) - (%%SSBEV_2STAGE JOBZ UPLO N-REF15799 KD-REF15800 AB-REF15801 - LDAB-REF15802 W-REF15803 Z-REF15804 LDZ-REF15805 - WORK-REF15806 LWORK-REF15807 INFO-REF15808)))) - -(CFFI:DEFCFUN ("ssbevd_" %%SSBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15814 ':INT32) (KD-REF15815 ':INT32) + (LDAB-REF15817 ':INT32) (LDZ-REF15820 ':INT32) + (LWORK-REF15822 ':INT32) (INFO-REF15823 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15814 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15815 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15817 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15820 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15822 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15823 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15816 AB) (W-REF15818 W) + (Z-REF15819 Z) (WORK-REF15821 WORK)) + (%%SSBEV_2STAGE JOBZ UPLO N-REF15814 KD-REF15815 AB-REF15816 + LDAB-REF15817 W-REF15818 Z-REF15819 LDZ-REF15820 WORK-REF15821 + LWORK-REF15822 INFO-REF15823)))) + +(CFFI:DEFCFUN ("ssbevd_" %%SSBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5559,26 +5646,26 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15811 ':INT32) (KD-REF15812 ':INT32) - (LDAB-REF15814 ':INT32) (LDZ-REF15817 ':INT32) - (LWORK-REF15819 ':INT32) - (LIWORK-REF15821 ':INT32) (INFO-REF15822 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15811 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15812 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15814 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15817 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15819 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15821 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15822 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15813 AB) (W-REF15815 W) - (Z-REF15816 Z) (WORK-REF15818 WORK) - (IWORK-REF15820 IWORK)) - (%%SSBEVD JOBZ UPLO N-REF15811 KD-REF15812 AB-REF15813 LDAB-REF15814 - W-REF15815 Z-REF15816 LDZ-REF15817 WORK-REF15818 LWORK-REF15819 - IWORK-REF15820 LIWORK-REF15821 INFO-REF15822)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15826 ':INT32) (KD-REF15827 ':INT32) + (LDAB-REF15829 ':INT32) (LDZ-REF15832 ':INT32) + (LWORK-REF15834 ':INT32) + (LIWORK-REF15836 ':INT32) (INFO-REF15837 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15826 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15827 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15829 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15832 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15834 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15836 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15837 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15828 AB) (W-REF15830 W) + (Z-REF15831 Z) (WORK-REF15833 WORK) + (IWORK-REF15835 IWORK)) + (%%SSBEVD JOBZ UPLO N-REF15826 KD-REF15827 AB-REF15828 LDAB-REF15829 + W-REF15830 Z-REF15831 LDZ-REF15832 WORK-REF15833 LWORK-REF15834 + IWORK-REF15835 LIWORK-REF15836 INFO-REF15837)))) (CFFI:DEFCFUN ("ssbevd_2stage_" %%SSBEVD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5621,26 +5708,25 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15825 ':INT32) (KD-REF15826 ':INT32) - (LDAB-REF15828 ':INT32) (LDZ-REF15831 ':INT32) - (LWORK-REF15833 ':INT32) - (LIWORK-REF15835 ':INT32) (INFO-REF15836 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15825 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15826 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15828 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15831 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15833 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15835 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15836 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15827 AB) (W-REF15829 W) - (Z-REF15830 Z) (WORK-REF15832 WORK) - (IWORK-REF15834 IWORK)) - (%%SSBEVD_2STAGE JOBZ UPLO N-REF15825 KD-REF15826 AB-REF15827 - LDAB-REF15828 W-REF15829 Z-REF15830 LDZ-REF15831 - WORK-REF15832 LWORK-REF15833 IWORK-REF15834 - LIWORK-REF15835 INFO-REF15836)))) - -(CFFI:DEFCFUN ("ssbevx_" %%SSBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15840 ':INT32) (KD-REF15841 ':INT32) + (LDAB-REF15843 ':INT32) (LDZ-REF15846 ':INT32) + (LWORK-REF15848 ':INT32) + (LIWORK-REF15850 ':INT32) (INFO-REF15851 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15840 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15841 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15843 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15846 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15848 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15850 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15851 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15842 AB) (W-REF15844 W) + (Z-REF15845 Z) (WORK-REF15847 WORK) + (IWORK-REF15849 IWORK)) + (%%SSBEVD_2STAGE JOBZ UPLO N-REF15840 KD-REF15841 AB-REF15842 + LDAB-REF15843 W-REF15844 Z-REF15845 LDZ-REF15846 WORK-REF15847 + LWORK-REF15848 IWORK-REF15849 LIWORK-REF15850 INFO-REF15851)))) + +(CFFI:DEFCFUN ("ssbevx_" %%SSBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -5703,37 +5789,37 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15840 ':INT32) (KD-REF15841 ':INT32) - (LDAB-REF15843 ':INT32) (LDQ-REF15845 ':INT32) - (VL-REF15846 ':FLOAT) (VU-REF15847 ':FLOAT) - (IL-REF15848 ':INT32) (IU-REF15849 ':INT32) - (ABSTOL-REF15850 ':FLOAT) (M-REF15851 ':INT32) - (LDZ-REF15854 ':INT32) (INFO-REF15858 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15840 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15841 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15843 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15845 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15846 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15847 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15848 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15849 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15850 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15851 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15854 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15858 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15842 AB) (Q-REF15844 Q) - (W-REF15852 W) (Z-REF15853 Z) - (WORK-REF15855 WORK) - (IWORK-REF15856 IWORK) - (IFAIL-REF15857 IFAIL)) - (%%SSBEVX JOBZ RANGE UPLO N-REF15840 KD-REF15841 AB-REF15842 - LDAB-REF15843 Q-REF15844 LDQ-REF15845 VL-REF15846 VU-REF15847 - IL-REF15848 IU-REF15849 ABSTOL-REF15850 M-REF15851 W-REF15852 - Z-REF15853 LDZ-REF15854 WORK-REF15855 IWORK-REF15856 - IFAIL-REF15857 INFO-REF15858)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15855 ':INT32) (KD-REF15856 ':INT32) + (LDAB-REF15858 ':INT32) (LDQ-REF15860 ':INT32) + (VL-REF15861 ':FLOAT) (VU-REF15862 ':FLOAT) + (IL-REF15863 ':INT32) (IU-REF15864 ':INT32) + (ABSTOL-REF15865 ':FLOAT) (M-REF15866 ':INT32) + (LDZ-REF15869 ':INT32) (INFO-REF15873 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15855 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15856 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15858 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15860 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15861 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15862 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15863 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15864 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15865 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15866 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15869 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15873 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15857 AB) (Q-REF15859 Q) + (W-REF15867 W) (Z-REF15868 Z) + (WORK-REF15870 WORK) + (IWORK-REF15871 IWORK) + (IFAIL-REF15872 IFAIL)) + (%%SSBEVX JOBZ RANGE UPLO N-REF15855 KD-REF15856 AB-REF15857 + LDAB-REF15858 Q-REF15859 LDQ-REF15860 VL-REF15861 VU-REF15862 + IL-REF15863 IU-REF15864 ABSTOL-REF15865 M-REF15866 W-REF15867 Z-REF15868 + LDZ-REF15869 WORK-REF15870 IWORK-REF15871 IFAIL-REF15872 + INFO-REF15873)))) (CFFI:DEFCFUN ("ssbevx_2stage_" %%SSBEVX_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -5798,39 +5884,38 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15862 ':INT32) (KD-REF15863 ':INT32) - (LDAB-REF15865 ':INT32) (LDQ-REF15867 ':INT32) - (VL-REF15868 ':FLOAT) (VU-REF15869 ':FLOAT) - (IL-REF15870 ':INT32) (IU-REF15871 ':INT32) - (ABSTOL-REF15872 ':FLOAT) (M-REF15873 ':INT32) - (LDZ-REF15876 ':INT32) (LWORK-REF15878 ':INT32) - (INFO-REF15881 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15862 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15863 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15865 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15867 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15868 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15869 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15870 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15871 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15872 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15873 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15876 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15878 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15881 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15864 AB) (Q-REF15866 Q) - (W-REF15874 W) (Z-REF15875 Z) - (WORK-REF15877 WORK) - (IWORK-REF15879 IWORK) - (IFAIL-REF15880 IFAIL)) - (%%SSBEVX_2STAGE JOBZ RANGE UPLO N-REF15862 KD-REF15863 AB-REF15864 - LDAB-REF15865 Q-REF15866 LDQ-REF15867 VL-REF15868 - VU-REF15869 IL-REF15870 IU-REF15871 ABSTOL-REF15872 - M-REF15873 W-REF15874 Z-REF15875 LDZ-REF15876 - WORK-REF15877 LWORK-REF15878 IWORK-REF15879 - IFAIL-REF15880 INFO-REF15881)))) - -(CFFI:DEFCFUN ("ssbgst_" %%SSBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15877 ':INT32) (KD-REF15878 ':INT32) + (LDAB-REF15880 ':INT32) (LDQ-REF15882 ':INT32) + (VL-REF15883 ':FLOAT) (VU-REF15884 ':FLOAT) + (IL-REF15885 ':INT32) (IU-REF15886 ':INT32) + (ABSTOL-REF15887 ':FLOAT) (M-REF15888 ':INT32) + (LDZ-REF15891 ':INT32) (LWORK-REF15893 ':INT32) + (INFO-REF15896 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15877 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15878 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15880 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15882 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15883 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15884 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15885 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15886 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15887 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15888 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15891 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15893 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15896 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15879 AB) (Q-REF15881 Q) + (W-REF15889 W) (Z-REF15890 Z) + (WORK-REF15892 WORK) + (IWORK-REF15894 IWORK) + (IFAIL-REF15895 IFAIL)) + (%%SSBEVX_2STAGE JOBZ RANGE UPLO N-REF15877 KD-REF15878 AB-REF15879 + LDAB-REF15880 Q-REF15881 LDQ-REF15882 VL-REF15883 VU-REF15884 + IL-REF15885 IU-REF15886 ABSTOL-REF15887 M-REF15888 W-REF15889 Z-REF15890 + LDZ-REF15891 WORK-REF15892 LWORK-REF15893 IWORK-REF15894 IFAIL-REF15895 + INFO-REF15896)))) + +(CFFI:DEFCFUN ("ssbgst_" %%SSBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -5866,24 +5951,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15884 ':INT32) (KA-REF15885 ':INT32) - (KB-REF15886 ':INT32) (LDAB-REF15888 ':INT32) - (LDBB-REF15890 ':INT32) (LDX-REF15892 ':INT32) - (INFO-REF15894 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15884 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15885 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15886 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15888 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15890 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15892 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15894 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15887 AB) (BB-REF15889 BB) - (X-REF15891 X) (WORK-REF15893 WORK)) - (%%SSBGST VECT UPLO N-REF15884 KA-REF15885 KB-REF15886 AB-REF15887 - LDAB-REF15888 BB-REF15889 LDBB-REF15890 X-REF15891 LDX-REF15892 - WORK-REF15893 INFO-REF15894)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15899 ':INT32) (KA-REF15900 ':INT32) + (KB-REF15901 ':INT32) (LDAB-REF15903 ':INT32) + (LDBB-REF15905 ':INT32) (LDX-REF15907 ':INT32) + (INFO-REF15909 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15899 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15900 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15901 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15903 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15905 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15907 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15909 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15902 AB) (BB-REF15904 BB) + (X-REF15906 X) (WORK-REF15908 WORK)) + (%%SSBGST VECT UPLO N-REF15899 KA-REF15900 KB-REF15901 AB-REF15902 + LDAB-REF15903 BB-REF15904 LDBB-REF15905 X-REF15906 LDX-REF15907 + WORK-REF15908 INFO-REF15909)))) -(CFFI:DEFCFUN ("ssbgv_" %%SSBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssbgv_" %%SSBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5922,25 +6007,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15897 ':INT32) (KA-REF15898 ':INT32) - (KB-REF15899 ':INT32) (LDAB-REF15901 ':INT32) - (LDBB-REF15903 ':INT32) (LDZ-REF15906 ':INT32) - (INFO-REF15908 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15897 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15898 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15899 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15901 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15903 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15906 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15908 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15900 AB) (BB-REF15902 BB) - (W-REF15904 W) (Z-REF15905 Z) - (WORK-REF15907 WORK)) - (%%SSBGV JOBZ UPLO N-REF15897 KA-REF15898 KB-REF15899 AB-REF15900 - LDAB-REF15901 BB-REF15902 LDBB-REF15903 W-REF15904 Z-REF15905 - LDZ-REF15906 WORK-REF15907 INFO-REF15908)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15912 ':INT32) (KA-REF15913 ':INT32) + (KB-REF15914 ':INT32) (LDAB-REF15916 ':INT32) + (LDBB-REF15918 ':INT32) (LDZ-REF15921 ':INT32) + (INFO-REF15923 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15912 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15913 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15914 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15916 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15918 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15921 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15923 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15915 AB) (BB-REF15917 BB) + (W-REF15919 W) (Z-REF15920 Z) + (WORK-REF15922 WORK)) + (%%SSBGV JOBZ UPLO N-REF15912 KA-REF15913 KB-REF15914 AB-REF15915 + LDAB-REF15916 BB-REF15917 LDBB-REF15918 W-REF15919 Z-REF15920 + LDZ-REF15921 WORK-REF15922 INFO-REF15923)))) -(CFFI:DEFCFUN ("ssbgvd_" %%SSBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssbgvd_" %%SSBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -5990,30 +6075,30 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15911 ':INT32) (KA-REF15912 ':INT32) - (KB-REF15913 ':INT32) (LDAB-REF15915 ':INT32) - (LDBB-REF15917 ':INT32) (LDZ-REF15920 ':INT32) - (LWORK-REF15922 ':INT32) - (LIWORK-REF15924 ':INT32) (INFO-REF15925 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15911 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15912 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15913 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15915 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15917 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15920 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15922 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15924 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15925 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15914 AB) (BB-REF15916 BB) - (W-REF15918 W) (Z-REF15919 Z) - (WORK-REF15921 WORK) - (IWORK-REF15923 IWORK)) - (%%SSBGVD JOBZ UPLO N-REF15911 KA-REF15912 KB-REF15913 AB-REF15914 - LDAB-REF15915 BB-REF15916 LDBB-REF15917 W-REF15918 Z-REF15919 - LDZ-REF15920 WORK-REF15921 LWORK-REF15922 IWORK-REF15923 - LIWORK-REF15924 INFO-REF15925)))) - -(CFFI:DEFCFUN ("ssbgvx_" %%SSBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15926 ':INT32) (KA-REF15927 ':INT32) + (KB-REF15928 ':INT32) (LDAB-REF15930 ':INT32) + (LDBB-REF15932 ':INT32) (LDZ-REF15935 ':INT32) + (LWORK-REF15937 ':INT32) + (LIWORK-REF15939 ':INT32) (INFO-REF15940 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15926 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15927 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15928 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15930 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15932 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15935 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15937 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15939 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15940 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15929 AB) (BB-REF15931 BB) + (W-REF15933 W) (Z-REF15934 Z) + (WORK-REF15936 WORK) + (IWORK-REF15938 IWORK)) + (%%SSBGVD JOBZ UPLO N-REF15926 KA-REF15927 KB-REF15928 AB-REF15929 + LDAB-REF15930 BB-REF15931 LDBB-REF15932 W-REF15933 Z-REF15934 + LDZ-REF15935 WORK-REF15936 LWORK-REF15937 IWORK-REF15938 LIWORK-REF15939 + INFO-REF15940)))) + +(CFFI:DEFCFUN ("ssbgvx_" %%SSBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -6083,39 +6168,39 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15929 ':INT32) (KA-REF15930 ':INT32) - (KB-REF15931 ':INT32) (LDAB-REF15933 ':INT32) - (LDBB-REF15935 ':INT32) (LDQ-REF15937 ':INT32) - (VL-REF15938 ':FLOAT) (VU-REF15939 ':FLOAT) - (IL-REF15940 ':INT32) (IU-REF15941 ':INT32) - (ABSTOL-REF15942 ':FLOAT) (M-REF15943 ':INT32) - (LDZ-REF15946 ':INT32) (INFO-REF15950 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15929 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15930 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15931 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15933 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15935 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15937 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15938 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15939 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15940 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15941 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15942 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15943 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15946 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15950 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15932 AB) (BB-REF15934 BB) - (Q-REF15936 Q) (W-REF15944 W) - (Z-REF15945 Z) (WORK-REF15947 WORK) - (IWORK-REF15948 IWORK) - (IFAIL-REF15949 IFAIL)) - (%%SSBGVX JOBZ RANGE UPLO N-REF15929 KA-REF15930 KB-REF15931 AB-REF15932 - LDAB-REF15933 BB-REF15934 LDBB-REF15935 Q-REF15936 LDQ-REF15937 - VL-REF15938 VU-REF15939 IL-REF15940 IU-REF15941 ABSTOL-REF15942 - M-REF15943 W-REF15944 Z-REF15945 LDZ-REF15946 WORK-REF15947 - IWORK-REF15948 IFAIL-REF15949 INFO-REF15950)))) - -(CFFI:DEFCFUN ("ssbtrd_" %%SSBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15944 ':INT32) (KA-REF15945 ':INT32) + (KB-REF15946 ':INT32) (LDAB-REF15948 ':INT32) + (LDBB-REF15950 ':INT32) (LDQ-REF15952 ':INT32) + (VL-REF15953 ':FLOAT) (VU-REF15954 ':FLOAT) + (IL-REF15955 ':INT32) (IU-REF15956 ':INT32) + (ABSTOL-REF15957 ':FLOAT) (M-REF15958 ':INT32) + (LDZ-REF15961 ':INT32) (INFO-REF15965 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15944 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF15945 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15946 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15948 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF15950 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15952 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15953 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15954 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15955 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15956 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15957 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15958 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15961 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15965 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15947 AB) (BB-REF15949 BB) + (Q-REF15951 Q) (W-REF15959 W) + (Z-REF15960 Z) (WORK-REF15962 WORK) + (IWORK-REF15963 IWORK) + (IFAIL-REF15964 IFAIL)) + (%%SSBGVX JOBZ RANGE UPLO N-REF15944 KA-REF15945 KB-REF15946 AB-REF15947 + LDAB-REF15948 BB-REF15949 LDBB-REF15950 Q-REF15951 LDQ-REF15952 + VL-REF15953 VU-REF15954 IL-REF15955 IU-REF15956 ABSTOL-REF15957 + M-REF15958 W-REF15959 Z-REF15960 LDZ-REF15961 WORK-REF15962 + IWORK-REF15963 IFAIL-REF15964 INFO-REF15965)))) + +(CFFI:DEFCFUN ("ssbtrd_" %%SSBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -6150,22 +6235,22 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15953 ':INT32) (KD-REF15954 ':INT32) - (LDAB-REF15956 ':INT32) (LDQ-REF15960 ':INT32) - (INFO-REF15962 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15953 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15954 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15956 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15960 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15962 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15955 AB) (D-REF15957 D) - (E-REF15958 E) (Q-REF15959 Q) - (WORK-REF15961 WORK)) - (%%SSBTRD VECT UPLO N-REF15953 KD-REF15954 AB-REF15955 LDAB-REF15956 - D-REF15957 E-REF15958 Q-REF15959 LDQ-REF15960 WORK-REF15961 - INFO-REF15962)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15968 ':INT32) (KD-REF15969 ':INT32) + (LDAB-REF15971 ':INT32) (LDQ-REF15975 ':INT32) + (INFO-REF15977 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15968 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15969 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15971 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15975 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15977 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15970 AB) (D-REF15972 D) + (E-REF15973 E) (Q-REF15974 Q) + (WORK-REF15976 WORK)) + (%%SSBTRD VECT UPLO N-REF15968 KD-REF15969 AB-REF15970 LDAB-REF15971 + D-REF15972 E-REF15973 Q-REF15974 LDQ-REF15975 WORK-REF15976 + INFO-REF15977)))) -(CFFI:DEFCFUN ("ssfrk_" %%SSFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssfrk_" %%SSFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -6192,19 +6277,19 @@ (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA) (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15966 ':INT32) (K-REF15967 ':INT32) - (ALPHA-REF15968 ':FLOAT) (LDA-REF15970 ':INT32) - (BETA-REF15971 ':FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15966 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15967 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF15968 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15970 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF15971 :FLOAT) BETA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15969 A) (C-REF15972 C)) - (%%SSFRK TRANSR UPLO TRANS N-REF15966 K-REF15967 ALPHA-REF15968 - A-REF15969 LDA-REF15970 BETA-REF15971 C-REF15972)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15981 ':INT32) (K-REF15982 ':INT32) + (ALPHA-REF15983 ':FLOAT) (LDA-REF15985 ':INT32) + (BETA-REF15986 ':FLOAT)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15981 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15982 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF15983 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15985 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF15986 :FLOAT) BETA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15984 A) (C-REF15987 C)) + (%%SSFRK TRANSR UPLO TRANS N-REF15981 K-REF15982 ALPHA-REF15983 + A-REF15984 LDA-REF15985 BETA-REF15986 C-REF15987)))) -(CFFI:DEFCFUN ("sspcon_" %%SSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sspcon_" %%SSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6236,20 +6321,20 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15974 ':INT32) (ANORM-REF15977 ':FLOAT) - (RCOND-REF15978 ':FLOAT) (INFO-REF15981 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15974 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15977 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15978 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15981 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15975 AP) - (IPIV-REF15976 IPIV) - (WORK-REF15979 WORK) - (IWORK-REF15980 IWORK)) - (%%SSPCON UPLO N-REF15974 AP-REF15975 IPIV-REF15976 ANORM-REF15977 - RCOND-REF15978 WORK-REF15979 IWORK-REF15980 INFO-REF15981)))) - -(CFFI:DEFCFUN ("sspev_" %%SSPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15989 ':INT32) (ANORM-REF15992 ':FLOAT) + (RCOND-REF15993 ':FLOAT) (INFO-REF15996 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15989 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15992 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15993 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15996 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15990 AP) + (IPIV-REF15991 IPIV) + (WORK-REF15994 WORK) + (IWORK-REF15995 IWORK)) + (%%SSPCON UPLO N-REF15989 AP-REF15990 IPIV-REF15991 ANORM-REF15992 + RCOND-REF15993 WORK-REF15994 IWORK-REF15995 INFO-REF15996)))) + +(CFFI:DEFCFUN ("sspev_" %%SSPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -6277,17 +6362,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15984 ':INT32) (LDZ-REF15988 ':INT32) - (INFO-REF15990 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15984 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15988 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15990 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15985 AP) (W-REF15986 W) - (Z-REF15987 Z) (WORK-REF15989 WORK)) - (%%SSPEV JOBZ UPLO N-REF15984 AP-REF15985 W-REF15986 Z-REF15987 - LDZ-REF15988 WORK-REF15989 INFO-REF15990)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15999 ':INT32) (LDZ-REF16003 ':INT32) + (INFO-REF16005 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15999 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16003 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16005 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16000 AP) (W-REF16001 W) + (Z-REF16002 Z) (WORK-REF16004 WORK)) + (%%SSPEV JOBZ UPLO N-REF15999 AP-REF16000 W-REF16001 Z-REF16002 + LDZ-REF16003 WORK-REF16004 INFO-REF16005)))) -(CFFI:DEFCFUN ("sspevd_" %%SSPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sspevd_" %%SSPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -6325,22 +6410,22 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15993 ':INT32) (LDZ-REF15997 ':INT32) - (LWORK-REF15999 ':INT32) - (LIWORK-REF16001 ':INT32) (INFO-REF16002 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15993 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15997 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15999 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16001 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16002 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15994 AP) (W-REF15995 W) - (Z-REF15996 Z) (WORK-REF15998 WORK) - (IWORK-REF16000 IWORK)) - (%%SSPEVD JOBZ UPLO N-REF15993 AP-REF15994 W-REF15995 Z-REF15996 - LDZ-REF15997 WORK-REF15998 LWORK-REF15999 IWORK-REF16000 - LIWORK-REF16001 INFO-REF16002)))) - -(CFFI:DEFCFUN ("sspevx_" %%SSPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16008 ':INT32) (LDZ-REF16012 ':INT32) + (LWORK-REF16014 ':INT32) + (LIWORK-REF16016 ':INT32) (INFO-REF16017 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16008 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16012 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16014 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16016 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16017 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16009 AP) (W-REF16010 W) + (Z-REF16011 Z) (WORK-REF16013 WORK) + (IWORK-REF16015 IWORK)) + (%%SSPEVD JOBZ UPLO N-REF16008 AP-REF16009 W-REF16010 Z-REF16011 + LDZ-REF16012 WORK-REF16013 LWORK-REF16014 IWORK-REF16015 LIWORK-REF16016 + INFO-REF16017)))) + +(CFFI:DEFCFUN ("sspevx_" %%SSPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -6394,30 +6479,30 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16006 ':INT32) (VL-REF16008 ':FLOAT) - (VU-REF16009 ':FLOAT) (IL-REF16010 ':INT32) - (IU-REF16011 ':INT32) (ABSTOL-REF16012 ':FLOAT) - (M-REF16013 ':INT32) (LDZ-REF16016 ':INT32) - (INFO-REF16020 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16006 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16008 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16009 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16010 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16011 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16012 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16013 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16016 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16020 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16007 AP) (W-REF16014 W) - (Z-REF16015 Z) (WORK-REF16017 WORK) - (IWORK-REF16018 IWORK) - (IFAIL-REF16019 IFAIL)) - (%%SSPEVX JOBZ RANGE UPLO N-REF16006 AP-REF16007 VL-REF16008 VU-REF16009 - IL-REF16010 IU-REF16011 ABSTOL-REF16012 M-REF16013 W-REF16014 - Z-REF16015 LDZ-REF16016 WORK-REF16017 IWORK-REF16018 - IFAIL-REF16019 INFO-REF16020)))) - -(CFFI:DEFCFUN ("sspgst_" %%SSPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16021 ':INT32) (VL-REF16023 ':FLOAT) + (VU-REF16024 ':FLOAT) (IL-REF16025 ':INT32) + (IU-REF16026 ':INT32) (ABSTOL-REF16027 ':FLOAT) + (M-REF16028 ':INT32) (LDZ-REF16031 ':INT32) + (INFO-REF16035 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16021 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16023 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16024 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16025 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16026 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16027 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16028 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16031 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16035 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16022 AP) (W-REF16029 W) + (Z-REF16030 Z) (WORK-REF16032 WORK) + (IWORK-REF16033 IWORK) + (IFAIL-REF16034 IFAIL)) + (%%SSPEVX JOBZ RANGE UPLO N-REF16021 AP-REF16022 VL-REF16023 VU-REF16024 + IL-REF16025 IU-REF16026 ABSTOL-REF16027 M-REF16028 W-REF16029 Z-REF16030 + LDZ-REF16031 WORK-REF16032 IWORK-REF16033 IFAIL-REF16034 + INFO-REF16035)))) + +(CFFI:DEFCFUN ("sspgst_" %%SSPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -6436,16 +6521,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16021 ':INT32) (N-REF16023 ':INT32) - (INFO-REF16026 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16021 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16023 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16026 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16024 AP) (BP-REF16025 BP)) - (%%SSPGST ITYPE-REF16021 UPLO N-REF16023 AP-REF16024 BP-REF16025 - INFO-REF16026)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16036 ':INT32) (N-REF16038 ':INT32) + (INFO-REF16041 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16036 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16038 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16041 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16039 AP) (BP-REF16040 BP)) + (%%SSPGST ITYPE-REF16036 UPLO N-REF16038 AP-REF16039 BP-REF16040 + INFO-REF16041)))) -(CFFI:DEFCFUN ("sspgv_" %%SSPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sspgv_" %%SSPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -6478,20 +6563,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16027 ':INT32) (N-REF16030 ':INT32) - (LDZ-REF16035 ':INT32) (INFO-REF16037 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16027 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16030 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16035 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16037 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16031 AP) (BP-REF16032 BP) - (W-REF16033 W) (Z-REF16034 Z) - (WORK-REF16036 WORK)) - (%%SSPGV ITYPE-REF16027 JOBZ UPLO N-REF16030 AP-REF16031 BP-REF16032 - W-REF16033 Z-REF16034 LDZ-REF16035 WORK-REF16036 - INFO-REF16037)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16042 ':INT32) (N-REF16045 ':INT32) + (LDZ-REF16050 ':INT32) (INFO-REF16052 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16042 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16045 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16050 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16052 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16046 AP) (BP-REF16047 BP) + (W-REF16048 W) (Z-REF16049 Z) + (WORK-REF16051 WORK)) + (%%SSPGV ITYPE-REF16042 JOBZ UPLO N-REF16045 AP-REF16046 BP-REF16047 + W-REF16048 Z-REF16049 LDZ-REF16050 WORK-REF16051 INFO-REF16052)))) -(CFFI:DEFCFUN ("sspgvd_" %%SSPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sspgvd_" %%SSPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -6535,24 +6619,24 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16038 ':INT32) (N-REF16041 ':INT32) - (LDZ-REF16046 ':INT32) (LWORK-REF16048 ':INT32) - (LIWORK-REF16050 ':INT32) (INFO-REF16051 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16038 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16041 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16046 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16048 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16050 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16051 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16042 AP) (BP-REF16043 BP) - (W-REF16044 W) (Z-REF16045 Z) - (WORK-REF16047 WORK) - (IWORK-REF16049 IWORK)) - (%%SSPGVD ITYPE-REF16038 JOBZ UPLO N-REF16041 AP-REF16042 BP-REF16043 - W-REF16044 Z-REF16045 LDZ-REF16046 WORK-REF16047 LWORK-REF16048 - IWORK-REF16049 LIWORK-REF16050 INFO-REF16051)))) - -(CFFI:DEFCFUN ("sspgvx_" %%SSPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16053 ':INT32) (N-REF16056 ':INT32) + (LDZ-REF16061 ':INT32) (LWORK-REF16063 ':INT32) + (LIWORK-REF16065 ':INT32) (INFO-REF16066 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16053 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16056 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16061 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16063 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16065 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16066 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16057 AP) (BP-REF16058 BP) + (W-REF16059 W) (Z-REF16060 Z) + (WORK-REF16062 WORK) + (IWORK-REF16064 IWORK)) + (%%SSPGVD ITYPE-REF16053 JOBZ UPLO N-REF16056 AP-REF16057 BP-REF16058 + W-REF16059 Z-REF16060 LDZ-REF16061 WORK-REF16062 LWORK-REF16063 + IWORK-REF16064 LIWORK-REF16065 INFO-REF16066)))) + +(CFFI:DEFCFUN ("sspgvx_" %%SSPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -6611,32 +6695,32 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16052 ':INT32) (N-REF16056 ':INT32) - (VL-REF16059 ':FLOAT) (VU-REF16060 ':FLOAT) - (IL-REF16061 ':INT32) (IU-REF16062 ':INT32) - (ABSTOL-REF16063 ':FLOAT) (M-REF16064 ':INT32) - (LDZ-REF16067 ':INT32) (INFO-REF16071 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16052 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16056 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16059 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16060 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16061 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16062 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16063 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16064 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16067 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16071 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16057 AP) (BP-REF16058 BP) - (W-REF16065 W) (Z-REF16066 Z) - (WORK-REF16068 WORK) - (IWORK-REF16069 IWORK) - (IFAIL-REF16070 IFAIL)) - (%%SSPGVX ITYPE-REF16052 JOBZ RANGE UPLO N-REF16056 AP-REF16057 - BP-REF16058 VL-REF16059 VU-REF16060 IL-REF16061 IU-REF16062 - ABSTOL-REF16063 M-REF16064 W-REF16065 Z-REF16066 LDZ-REF16067 - WORK-REF16068 IWORK-REF16069 IFAIL-REF16070 INFO-REF16071)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16067 ':INT32) (N-REF16071 ':INT32) + (VL-REF16074 ':FLOAT) (VU-REF16075 ':FLOAT) + (IL-REF16076 ':INT32) (IU-REF16077 ':INT32) + (ABSTOL-REF16078 ':FLOAT) (M-REF16079 ':INT32) + (LDZ-REF16082 ':INT32) (INFO-REF16086 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16067 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16071 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16074 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16075 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16076 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16077 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16078 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16079 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16082 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16086 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16072 AP) (BP-REF16073 BP) + (W-REF16080 W) (Z-REF16081 Z) + (WORK-REF16083 WORK) + (IWORK-REF16084 IWORK) + (IFAIL-REF16085 IFAIL)) + (%%SSPGVX ITYPE-REF16067 JOBZ RANGE UPLO N-REF16071 AP-REF16072 + BP-REF16073 VL-REF16074 VU-REF16075 IL-REF16076 IU-REF16077 + ABSTOL-REF16078 M-REF16079 W-REF16080 Z-REF16081 LDZ-REF16082 + WORK-REF16083 IWORK-REF16084 IFAIL-REF16085 INFO-REF16086)))) -(CFFI:DEFCFUN ("ssprfs_" %%SSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssprfs_" %%SSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6690,26 +6774,26 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16073 ':INT32) (NRHS-REF16074 ':INT32) - (LDB-REF16079 ':INT32) (LDX-REF16081 ':INT32) - (INFO-REF16086 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16073 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16074 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16079 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16081 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16086 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16075 AP) (AFP-REF16076 AFP) - (IPIV-REF16077 IPIV) (B-REF16078 B) - (X-REF16080 X) (FERR-REF16082 FERR) - (BERR-REF16083 BERR) - (WORK-REF16084 WORK) - (IWORK-REF16085 IWORK)) - (%%SSPRFS UPLO N-REF16073 NRHS-REF16074 AP-REF16075 AFP-REF16076 - IPIV-REF16077 B-REF16078 LDB-REF16079 X-REF16080 LDX-REF16081 - FERR-REF16082 BERR-REF16083 WORK-REF16084 IWORK-REF16085 - INFO-REF16086)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16088 ':INT32) (NRHS-REF16089 ':INT32) + (LDB-REF16094 ':INT32) (LDX-REF16096 ':INT32) + (INFO-REF16101 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16088 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16089 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16094 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16096 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16101 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16090 AP) (AFP-REF16091 AFP) + (IPIV-REF16092 IPIV) (B-REF16093 B) + (X-REF16095 X) (FERR-REF16097 FERR) + (BERR-REF16098 BERR) + (WORK-REF16099 WORK) + (IWORK-REF16100 IWORK)) + (%%SSPRFS UPLO N-REF16088 NRHS-REF16089 AP-REF16090 AFP-REF16091 + IPIV-REF16092 B-REF16093 LDB-REF16094 X-REF16095 LDX-REF16096 + FERR-REF16097 BERR-REF16098 WORK-REF16099 IWORK-REF16100 + INFO-REF16101)))) -(CFFI:DEFCFUN ("sspsv_" %%SSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sspsv_" %%SSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6735,18 +6819,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16088 ':INT32) (NRHS-REF16089 ':INT32) - (LDB-REF16093 ':INT32) (INFO-REF16094 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16088 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16089 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16093 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16094 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16090 AP) - (IPIV-REF16091 IPIV) (B-REF16092 B)) - (%%SSPSV UPLO N-REF16088 NRHS-REF16089 AP-REF16090 IPIV-REF16091 - B-REF16092 LDB-REF16093 INFO-REF16094)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16103 ':INT32) (NRHS-REF16104 ':INT32) + (LDB-REF16108 ':INT32) (INFO-REF16109 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16103 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16104 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16108 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16109 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16105 AP) + (IPIV-REF16106 IPIV) (B-REF16107 B)) + (%%SSPSV UPLO N-REF16103 NRHS-REF16104 AP-REF16105 IPIV-REF16106 + B-REF16107 LDB-REF16108 INFO-REF16109)))) -(CFFI:DEFCFUN ("sspsvx_" %%SSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sspsvx_" %%SSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -6804,27 +6888,27 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16097 ':INT32) (NRHS-REF16098 ':INT32) - (LDB-REF16103 ':INT32) (LDX-REF16105 ':INT32) - (RCOND-REF16106 ':FLOAT) (INFO-REF16111 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16097 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16098 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16103 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16105 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16106 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16111 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16099 AP) (AFP-REF16100 AFP) - (IPIV-REF16101 IPIV) (B-REF16102 B) - (X-REF16104 X) (FERR-REF16107 FERR) - (BERR-REF16108 BERR) - (WORK-REF16109 WORK) - (IWORK-REF16110 IWORK)) - (%%SSPSVX FACT UPLO N-REF16097 NRHS-REF16098 AP-REF16099 AFP-REF16100 - IPIV-REF16101 B-REF16102 LDB-REF16103 X-REF16104 LDX-REF16105 - RCOND-REF16106 FERR-REF16107 BERR-REF16108 WORK-REF16109 - IWORK-REF16110 INFO-REF16111)))) - -(CFFI:DEFCFUN ("ssptrd_" %%SSPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16112 ':INT32) (NRHS-REF16113 ':INT32) + (LDB-REF16118 ':INT32) (LDX-REF16120 ':INT32) + (RCOND-REF16121 ':FLOAT) (INFO-REF16126 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16112 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16113 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16118 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16120 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16121 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16126 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16114 AP) (AFP-REF16115 AFP) + (IPIV-REF16116 IPIV) (B-REF16117 B) + (X-REF16119 X) (FERR-REF16122 FERR) + (BERR-REF16123 BERR) + (WORK-REF16124 WORK) + (IWORK-REF16125 IWORK)) + (%%SSPSVX FACT UPLO N-REF16112 NRHS-REF16113 AP-REF16114 AFP-REF16115 + IPIV-REF16116 B-REF16117 LDB-REF16118 X-REF16119 LDX-REF16120 + RCOND-REF16121 FERR-REF16122 BERR-REF16123 WORK-REF16124 IWORK-REF16125 + INFO-REF16126)))) + +(CFFI:DEFCFUN ("ssptrd_" %%SSPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6848,15 +6932,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16113 ':INT32) (INFO-REF16118 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16113 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16118 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16114 AP) (D-REF16115 D) - (E-REF16116 E) (TAU-REF16117 TAU)) - (%%SSPTRD UPLO N-REF16113 AP-REF16114 D-REF16115 E-REF16116 TAU-REF16117 - INFO-REF16118)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16128 ':INT32) (INFO-REF16133 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16128 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16133 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16129 AP) (D-REF16130 D) + (E-REF16131 E) (TAU-REF16132 TAU)) + (%%SSPTRD UPLO N-REF16128 AP-REF16129 D-REF16130 E-REF16131 TAU-REF16132 + INFO-REF16133)))) -(CFFI:DEFCFUN ("ssptrf_" %%SSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssptrf_" %%SSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6875,14 +6959,14 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16120 ':INT32) (INFO-REF16123 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16120 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16123 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16121 AP) - (IPIV-REF16122 IPIV)) - (%%SSPTRF UPLO N-REF16120 AP-REF16121 IPIV-REF16122 INFO-REF16123)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16135 ':INT32) (INFO-REF16138 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16135 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16138 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16136 AP) + (IPIV-REF16137 IPIV)) + (%%SSPTRF UPLO N-REF16135 AP-REF16136 IPIV-REF16137 INFO-REF16138)))) -(CFFI:DEFCFUN ("ssptri_" %%SSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssptri_" %%SSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6905,16 +6989,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16125 ':INT32) (INFO-REF16129 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16125 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16129 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16126 AP) - (IPIV-REF16127 IPIV) - (WORK-REF16128 WORK)) - (%%SSPTRI UPLO N-REF16125 AP-REF16126 IPIV-REF16127 WORK-REF16128 - INFO-REF16129)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16140 ':INT32) (INFO-REF16144 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16140 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16144 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16141 AP) + (IPIV-REF16142 IPIV) + (WORK-REF16143 WORK)) + (%%SSPTRI UPLO N-REF16140 AP-REF16141 IPIV-REF16142 WORK-REF16143 + INFO-REF16144)))) -(CFFI:DEFCFUN ("ssptrs_" %%SSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssptrs_" %%SSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6940,18 +7024,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16131 ':INT32) (NRHS-REF16132 ':INT32) - (LDB-REF16136 ':INT32) (INFO-REF16137 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16131 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16132 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16136 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16137 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16133 AP) - (IPIV-REF16134 IPIV) (B-REF16135 B)) - (%%SSPTRS UPLO N-REF16131 NRHS-REF16132 AP-REF16133 IPIV-REF16134 - B-REF16135 LDB-REF16136 INFO-REF16137)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16146 ':INT32) (NRHS-REF16147 ':INT32) + (LDB-REF16151 ':INT32) (INFO-REF16152 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16146 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16147 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16151 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16152 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF16148 AP) + (IPIV-REF16149 IPIV) (B-REF16150 B)) + (%%SSPTRS UPLO N-REF16146 NRHS-REF16147 AP-REF16148 IPIV-REF16149 + B-REF16150 LDB-REF16151 INFO-REF16152)))) -(CFFI:DEFCFUN ("sstebz_" %%SSTEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sstebz_" %%SSTEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RANGE :STRING) (ORDER :STRING) @@ -7008,32 +7092,32 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16140 ':INT32) (VL-REF16141 ':FLOAT) - (VU-REF16142 ':FLOAT) (IL-REF16143 ':INT32) - (IU-REF16144 ':INT32) (ABSTOL-REF16145 ':FLOAT) - (M-REF16148 ':INT32) (NSPLIT-REF16149 ':INT32) - (INFO-REF16155 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16140 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16141 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16142 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16143 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16144 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16145 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16148 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF16149 :INT32) NSPLIT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16155 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16146 D) (E-REF16147 E) - (W-REF16150 W) - (IBLOCK-REF16151 IBLOCK) - (ISPLIT-REF16152 ISPLIT) - (WORK-REF16153 WORK) - (IWORK-REF16154 IWORK)) - (%%SSTEBZ RANGE ORDER N-REF16140 VL-REF16141 VU-REF16142 IL-REF16143 - IU-REF16144 ABSTOL-REF16145 D-REF16146 E-REF16147 M-REF16148 - NSPLIT-REF16149 W-REF16150 IBLOCK-REF16151 ISPLIT-REF16152 - WORK-REF16153 IWORK-REF16154 INFO-REF16155)))) - -(CFFI:DEFCFUN ("sstedc_" %%SSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16155 ':INT32) (VL-REF16156 ':FLOAT) + (VU-REF16157 ':FLOAT) (IL-REF16158 ':INT32) + (IU-REF16159 ':INT32) (ABSTOL-REF16160 ':FLOAT) + (M-REF16163 ':INT32) (NSPLIT-REF16164 ':INT32) + (INFO-REF16170 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16155 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16156 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16157 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16158 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16159 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16160 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16163 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF16164 :INT32) NSPLIT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16170 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16161 D) (E-REF16162 E) + (W-REF16165 W) + (IBLOCK-REF16166 IBLOCK) + (ISPLIT-REF16167 ISPLIT) + (WORK-REF16168 WORK) + (IWORK-REF16169 IWORK)) + (%%SSTEBZ RANGE ORDER N-REF16155 VL-REF16156 VU-REF16157 IL-REF16158 + IU-REF16159 ABSTOL-REF16160 D-REF16161 E-REF16162 M-REF16163 + NSPLIT-REF16164 W-REF16165 IBLOCK-REF16166 ISPLIT-REF16167 WORK-REF16168 + IWORK-REF16169 INFO-REF16170)))) + +(CFFI:DEFCFUN ("sstedc_" %%SSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -7068,22 +7152,22 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16157 ':INT32) (LDZ-REF16161 ':INT32) - (LWORK-REF16163 ':INT32) - (LIWORK-REF16165 ':INT32) (INFO-REF16166 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16157 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16161 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16163 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16165 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16166 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16158 D) (E-REF16159 E) - (Z-REF16160 Z) (WORK-REF16162 WORK) - (IWORK-REF16164 IWORK)) - (%%SSTEDC COMPZ N-REF16157 D-REF16158 E-REF16159 Z-REF16160 LDZ-REF16161 - WORK-REF16162 LWORK-REF16163 IWORK-REF16164 LIWORK-REF16165 - INFO-REF16166)))) - -(CFFI:DEFCFUN ("sstegr_" %%SSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16172 ':INT32) (LDZ-REF16176 ':INT32) + (LWORK-REF16178 ':INT32) + (LIWORK-REF16180 ':INT32) (INFO-REF16181 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16172 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16176 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16178 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16180 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16181 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16173 D) (E-REF16174 E) + (Z-REF16175 Z) (WORK-REF16177 WORK) + (IWORK-REF16179 IWORK)) + (%%SSTEDC COMPZ N-REF16172 D-REF16173 E-REF16174 Z-REF16175 LDZ-REF16176 + WORK-REF16177 LWORK-REF16178 IWORK-REF16179 LIWORK-REF16180 + INFO-REF16181)))) + +(CFFI:DEFCFUN ("sstegr_" %%SSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7142,35 +7226,34 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16169 ':INT32) (VL-REF16172 ':FLOAT) - (VU-REF16173 ':FLOAT) (IL-REF16174 ':INT32) - (IU-REF16175 ':INT32) (ABSTOL-REF16176 ':FLOAT) - (M-REF16177 ':INT32) (LDZ-REF16180 ':INT32) - (LWORK-REF16183 ':INT32) - (LIWORK-REF16185 ':INT32) (INFO-REF16186 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16169 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16172 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16173 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16174 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16175 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16176 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16177 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16180 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16183 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16185 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16186 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16170 D) (E-REF16171 E) - (W-REF16178 W) (Z-REF16179 Z) - (ISUPPZ-REF16181 ISUPPZ) - (WORK-REF16182 WORK) - (IWORK-REF16184 IWORK)) - (%%SSTEGR JOBZ RANGE N-REF16169 D-REF16170 E-REF16171 VL-REF16172 - VU-REF16173 IL-REF16174 IU-REF16175 ABSTOL-REF16176 M-REF16177 - W-REF16178 Z-REF16179 LDZ-REF16180 ISUPPZ-REF16181 - WORK-REF16182 LWORK-REF16183 IWORK-REF16184 LIWORK-REF16185 - INFO-REF16186)))) - -(CFFI:DEFCFUN ("sstein_" %%SSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16184 ':INT32) (VL-REF16187 ':FLOAT) + (VU-REF16188 ':FLOAT) (IL-REF16189 ':INT32) + (IU-REF16190 ':INT32) (ABSTOL-REF16191 ':FLOAT) + (M-REF16192 ':INT32) (LDZ-REF16195 ':INT32) + (LWORK-REF16198 ':INT32) + (LIWORK-REF16200 ':INT32) (INFO-REF16201 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16184 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16187 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16188 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16189 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16190 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16191 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16192 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16195 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16198 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16200 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16201 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16185 D) (E-REF16186 E) + (W-REF16193 W) (Z-REF16194 Z) + (ISUPPZ-REF16196 ISUPPZ) + (WORK-REF16197 WORK) + (IWORK-REF16199 IWORK)) + (%%SSTEGR JOBZ RANGE N-REF16184 D-REF16185 E-REF16186 VL-REF16187 + VU-REF16188 IL-REF16189 IU-REF16190 ABSTOL-REF16191 M-REF16192 + W-REF16193 Z-REF16194 LDZ-REF16195 ISUPPZ-REF16196 WORK-REF16197 + LWORK-REF16198 IWORK-REF16199 LIWORK-REF16200 INFO-REF16201)))) + +(CFFI:DEFCFUN ("sstein_" %%SSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -7220,24 +7303,24 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16187 ':INT32) (M-REF16190 ':INT32) - (LDZ-REF16195 ':INT32) (INFO-REF16199 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16187 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16190 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16195 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16199 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16188 D) (E-REF16189 E) - (W-REF16191 W) - (IBLOCK-REF16192 IBLOCK) - (ISPLIT-REF16193 ISPLIT) - (Z-REF16194 Z) (WORK-REF16196 WORK) - (IWORK-REF16197 IWORK) - (IFAIL-REF16198 IFAIL)) - (%%SSTEIN N-REF16187 D-REF16188 E-REF16189 M-REF16190 W-REF16191 - IBLOCK-REF16192 ISPLIT-REF16193 Z-REF16194 LDZ-REF16195 - WORK-REF16196 IWORK-REF16197 IFAIL-REF16198 INFO-REF16199)))) - -(CFFI:DEFCFUN ("sstemr_" %%SSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16202 ':INT32) (M-REF16205 ':INT32) + (LDZ-REF16210 ':INT32) (INFO-REF16214 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16202 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16205 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16210 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16214 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16203 D) (E-REF16204 E) + (W-REF16206 W) + (IBLOCK-REF16207 IBLOCK) + (ISPLIT-REF16208 ISPLIT) + (Z-REF16209 Z) (WORK-REF16211 WORK) + (IWORK-REF16212 IWORK) + (IFAIL-REF16213 IFAIL)) + (%%SSTEIN N-REF16202 D-REF16203 E-REF16204 M-REF16205 W-REF16206 + IBLOCK-REF16207 ISPLIT-REF16208 Z-REF16209 LDZ-REF16210 WORK-REF16211 + IWORK-REF16212 IFAIL-REF16213 INFO-REF16214)))) + +(CFFI:DEFCFUN ("sstemr_" %%SSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7298,37 +7381,36 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16202 ':INT32) (VL-REF16205 ':FLOAT) - (VU-REF16206 ':FLOAT) (IL-REF16207 ':INT32) - (IU-REF16208 ':INT32) (M-REF16209 ':INT32) - (LDZ-REF16212 ':INT32) (NZC-REF16213 ':INT32) - (TRYRAC-REF16215 ':INT32) - (LWORK-REF16217 ':INT32) - (LIWORK-REF16219 ':INT32) (INFO-REF16220 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16202 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16205 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16206 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16207 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16208 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16209 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16212 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF16213 :INT32) NZC) - (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF16215 :INT32) TRYRAC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16217 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16219 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16220 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16203 D) (E-REF16204 E) - (W-REF16210 W) (Z-REF16211 Z) - (ISUPPZ-REF16214 ISUPPZ) - (WORK-REF16216 WORK) - (IWORK-REF16218 IWORK)) - (%%SSTEMR JOBZ RANGE N-REF16202 D-REF16203 E-REF16204 VL-REF16205 - VU-REF16206 IL-REF16207 IU-REF16208 M-REF16209 W-REF16210 - Z-REF16211 LDZ-REF16212 NZC-REF16213 ISUPPZ-REF16214 - TRYRAC-REF16215 WORK-REF16216 LWORK-REF16217 IWORK-REF16218 - LIWORK-REF16219 INFO-REF16220)))) - -(CFFI:DEFCFUN ("ssteqr_" %%SSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16217 ':INT32) (VL-REF16220 ':FLOAT) + (VU-REF16221 ':FLOAT) (IL-REF16222 ':INT32) + (IU-REF16223 ':INT32) (M-REF16224 ':INT32) + (LDZ-REF16227 ':INT32) (NZC-REF16228 ':INT32) + (TRYRAC-REF16230 ':INT32) + (LWORK-REF16232 ':INT32) + (LIWORK-REF16234 ':INT32) (INFO-REF16235 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16217 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16220 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16221 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16222 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16223 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16224 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16227 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF16228 :INT32) NZC) + (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF16230 :INT32) TRYRAC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16232 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16234 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16235 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16218 D) (E-REF16219 E) + (W-REF16225 W) (Z-REF16226 Z) + (ISUPPZ-REF16229 ISUPPZ) + (WORK-REF16231 WORK) + (IWORK-REF16233 IWORK)) + (%%SSTEMR JOBZ RANGE N-REF16217 D-REF16218 E-REF16219 VL-REF16220 + VU-REF16221 IL-REF16222 IU-REF16223 M-REF16224 W-REF16225 Z-REF16226 + LDZ-REF16227 NZC-REF16228 ISUPPZ-REF16229 TRYRAC-REF16230 WORK-REF16231 + LWORK-REF16232 IWORK-REF16233 LIWORK-REF16234 INFO-REF16235)))) + +(CFFI:DEFCFUN ("ssteqr_" %%SSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -7354,17 +7436,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16222 ':INT32) (LDZ-REF16226 ':INT32) - (INFO-REF16228 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16222 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16226 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16228 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16223 D) (E-REF16224 E) - (Z-REF16225 Z) (WORK-REF16227 WORK)) - (%%SSTEQR COMPZ N-REF16222 D-REF16223 E-REF16224 Z-REF16225 LDZ-REF16226 - WORK-REF16227 INFO-REF16228)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16237 ':INT32) (LDZ-REF16241 ':INT32) + (INFO-REF16243 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16237 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16241 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16243 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16238 D) (E-REF16239 E) + (Z-REF16240 Z) (WORK-REF16242 WORK)) + (%%SSTEQR COMPZ N-REF16237 D-REF16238 E-REF16239 Z-REF16240 LDZ-REF16241 + WORK-REF16242 INFO-REF16243)))) -(CFFI:DEFCFUN ("ssterf_" %%SSTERF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssterf_" %%SSTERF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -7379,13 +7461,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16229 ':INT32) (INFO-REF16232 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16229 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16232 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16230 D) (E-REF16231 E)) - (%%SSTERF N-REF16229 D-REF16230 E-REF16231 INFO-REF16232)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16244 ':INT32) (INFO-REF16247 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16244 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16247 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16245 D) (E-REF16246 E)) + (%%SSTERF N-REF16244 D-REF16245 E-REF16246 INFO-REF16247)))) -(CFFI:DEFCFUN ("sstev_" %%SSTEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sstev_" %%SSTEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (N :POINTER) @@ -7411,17 +7493,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16234 ':INT32) (LDZ-REF16238 ':INT32) - (INFO-REF16240 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16234 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16238 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16240 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16235 D) (E-REF16236 E) - (Z-REF16237 Z) (WORK-REF16239 WORK)) - (%%SSTEV JOBZ N-REF16234 D-REF16235 E-REF16236 Z-REF16237 LDZ-REF16238 - WORK-REF16239 INFO-REF16240)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16249 ':INT32) (LDZ-REF16253 ':INT32) + (INFO-REF16255 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16249 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16253 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16255 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16250 D) (E-REF16251 E) + (Z-REF16252 Z) (WORK-REF16254 WORK)) + (%%SSTEV JOBZ N-REF16249 D-REF16250 E-REF16251 Z-REF16252 LDZ-REF16253 + WORK-REF16254 INFO-REF16255)))) -(CFFI:DEFCFUN ("sstevd_" %%SSTEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("sstevd_" %%SSTEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (N :POINTER) @@ -7456,22 +7538,22 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16242 ':INT32) (LDZ-REF16246 ':INT32) - (LWORK-REF16248 ':INT32) - (LIWORK-REF16250 ':INT32) (INFO-REF16251 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16242 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16246 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16248 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16250 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16251 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16243 D) (E-REF16244 E) - (Z-REF16245 Z) (WORK-REF16247 WORK) - (IWORK-REF16249 IWORK)) - (%%SSTEVD JOBZ N-REF16242 D-REF16243 E-REF16244 Z-REF16245 LDZ-REF16246 - WORK-REF16247 LWORK-REF16248 IWORK-REF16249 LIWORK-REF16250 - INFO-REF16251)))) - -(CFFI:DEFCFUN ("sstevr_" %%SSTEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16257 ':INT32) (LDZ-REF16261 ':INT32) + (LWORK-REF16263 ':INT32) + (LIWORK-REF16265 ':INT32) (INFO-REF16266 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16257 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16261 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16263 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16265 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16266 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16258 D) (E-REF16259 E) + (Z-REF16260 Z) (WORK-REF16262 WORK) + (IWORK-REF16264 IWORK)) + (%%SSTEVD JOBZ N-REF16257 D-REF16258 E-REF16259 Z-REF16260 LDZ-REF16261 + WORK-REF16262 LWORK-REF16263 IWORK-REF16264 LIWORK-REF16265 + INFO-REF16266)))) + +(CFFI:DEFCFUN ("sstevr_" %%SSTEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7530,35 +7612,34 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16254 ':INT32) (VL-REF16257 ':FLOAT) - (VU-REF16258 ':FLOAT) (IL-REF16259 ':INT32) - (IU-REF16260 ':INT32) (ABSTOL-REF16261 ':FLOAT) - (M-REF16262 ':INT32) (LDZ-REF16265 ':INT32) - (LWORK-REF16268 ':INT32) - (LIWORK-REF16270 ':INT32) (INFO-REF16271 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16254 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16257 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16258 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16259 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16260 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16261 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16262 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16265 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16268 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16270 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16271 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16255 D) (E-REF16256 E) - (W-REF16263 W) (Z-REF16264 Z) - (ISUPPZ-REF16266 ISUPPZ) - (WORK-REF16267 WORK) - (IWORK-REF16269 IWORK)) - (%%SSTEVR JOBZ RANGE N-REF16254 D-REF16255 E-REF16256 VL-REF16257 - VU-REF16258 IL-REF16259 IU-REF16260 ABSTOL-REF16261 M-REF16262 - W-REF16263 Z-REF16264 LDZ-REF16265 ISUPPZ-REF16266 - WORK-REF16267 LWORK-REF16268 IWORK-REF16269 LIWORK-REF16270 - INFO-REF16271)))) - -(CFFI:DEFCFUN ("sstevx_" %%SSTEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16269 ':INT32) (VL-REF16272 ':FLOAT) + (VU-REF16273 ':FLOAT) (IL-REF16274 ':INT32) + (IU-REF16275 ':INT32) (ABSTOL-REF16276 ':FLOAT) + (M-REF16277 ':INT32) (LDZ-REF16280 ':INT32) + (LWORK-REF16283 ':INT32) + (LIWORK-REF16285 ':INT32) (INFO-REF16286 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16269 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16272 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16273 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16274 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16275 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16276 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16277 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16280 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16283 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16285 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16286 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16270 D) (E-REF16271 E) + (W-REF16278 W) (Z-REF16279 Z) + (ISUPPZ-REF16281 ISUPPZ) + (WORK-REF16282 WORK) + (IWORK-REF16284 IWORK)) + (%%SSTEVR JOBZ RANGE N-REF16269 D-REF16270 E-REF16271 VL-REF16272 + VU-REF16273 IL-REF16274 IU-REF16275 ABSTOL-REF16276 M-REF16277 + W-REF16278 Z-REF16279 LDZ-REF16280 ISUPPZ-REF16281 WORK-REF16282 + LWORK-REF16283 IWORK-REF16284 LIWORK-REF16285 INFO-REF16286)))) + +(CFFI:DEFCFUN ("sstevx_" %%SSTEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7613,31 +7694,31 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16274 ':INT32) (VL-REF16277 ':FLOAT) - (VU-REF16278 ':FLOAT) (IL-REF16279 ':INT32) - (IU-REF16280 ':INT32) (ABSTOL-REF16281 ':FLOAT) - (M-REF16282 ':INT32) (LDZ-REF16285 ':INT32) - (INFO-REF16289 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16274 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16277 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16278 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16279 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16280 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16281 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16282 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16285 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16289 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16275 D) (E-REF16276 E) - (W-REF16283 W) (Z-REF16284 Z) - (WORK-REF16286 WORK) - (IWORK-REF16287 IWORK) - (IFAIL-REF16288 IFAIL)) - (%%SSTEVX JOBZ RANGE N-REF16274 D-REF16275 E-REF16276 VL-REF16277 - VU-REF16278 IL-REF16279 IU-REF16280 ABSTOL-REF16281 M-REF16282 - W-REF16283 Z-REF16284 LDZ-REF16285 WORK-REF16286 IWORK-REF16287 - IFAIL-REF16288 INFO-REF16289)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16289 ':INT32) (VL-REF16292 ':FLOAT) + (VU-REF16293 ':FLOAT) (IL-REF16294 ':INT32) + (IU-REF16295 ':INT32) (ABSTOL-REF16296 ':FLOAT) + (M-REF16297 ':INT32) (LDZ-REF16300 ':INT32) + (INFO-REF16304 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16289 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16292 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16293 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16294 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16295 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16296 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16297 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16300 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16304 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF16290 D) (E-REF16291 E) + (W-REF16298 W) (Z-REF16299 Z) + (WORK-REF16301 WORK) + (IWORK-REF16302 IWORK) + (IFAIL-REF16303 IFAIL)) + (%%SSTEVX JOBZ RANGE N-REF16289 D-REF16290 E-REF16291 VL-REF16292 + VU-REF16293 IL-REF16294 IU-REF16295 ABSTOL-REF16296 M-REF16297 + W-REF16298 Z-REF16299 LDZ-REF16300 WORK-REF16301 IWORK-REF16302 + IFAIL-REF16303 INFO-REF16304)))) -(CFFI:DEFCFUN ("ssycon_" %%SSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssycon_" %%SSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7671,23 +7752,23 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16291 ':INT32) (LDA-REF16293 ':INT32) - (ANORM-REF16295 ':FLOAT) (RCOND-REF16296 ':FLOAT) - (INFO-REF16299 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16291 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16293 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16295 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16296 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16299 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16292 A) (IPIV-REF16294 IPIV) - (WORK-REF16297 WORK) - (IWORK-REF16298 IWORK)) - (%%SSYCON UPLO N-REF16291 A-REF16292 LDA-REF16293 IPIV-REF16294 - ANORM-REF16295 RCOND-REF16296 WORK-REF16297 IWORK-REF16298 - INFO-REF16299)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16306 ':INT32) (LDA-REF16308 ':INT32) + (ANORM-REF16310 ':FLOAT) (RCOND-REF16311 ':FLOAT) + (INFO-REF16314 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16306 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16308 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16310 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16311 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16314 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16307 A) (IPIV-REF16309 IPIV) + (WORK-REF16312 WORK) + (IWORK-REF16313 IWORK)) + (%%SSYCON UPLO N-REF16306 A-REF16307 LDA-REF16308 IPIV-REF16309 + ANORM-REF16310 RCOND-REF16311 WORK-REF16312 IWORK-REF16313 + INFO-REF16314)))) (CFFI:DEFCFUN ("ssycon_3_" %%SSYCON_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7724,24 +7805,24 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16301 ':INT32) (LDA-REF16303 ':INT32) - (ANORM-REF16306 ':FLOAT) (RCOND-REF16307 ':FLOAT) - (INFO-REF16310 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16301 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16303 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16306 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16307 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16310 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16302 A) (E-REF16304 E) - (IPIV-REF16305 IPIV) - (WORK-REF16308 WORK) - (IWORK-REF16309 IWORK)) - (%%SSYCON_3 UPLO N-REF16301 A-REF16302 LDA-REF16303 E-REF16304 - IPIV-REF16305 ANORM-REF16306 RCOND-REF16307 WORK-REF16308 - IWORK-REF16309 INFO-REF16310)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16316 ':INT32) (LDA-REF16318 ':INT32) + (ANORM-REF16321 ':FLOAT) (RCOND-REF16322 ':FLOAT) + (INFO-REF16325 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16316 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16318 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16321 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16322 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16325 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16317 A) (E-REF16319 E) + (IPIV-REF16320 IPIV) + (WORK-REF16323 WORK) + (IWORK-REF16324 IWORK)) + (%%SSYCON_3 UPLO N-REF16316 A-REF16317 LDA-REF16318 E-REF16319 + IPIV-REF16320 ANORM-REF16321 RCOND-REF16322 WORK-REF16323 IWORK-REF16324 + INFO-REF16325)))) (CFFI:DEFCFUN ("ssycon_rook_" %%SSYCON_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7775,22 +7856,23 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16312 ':INT32) (LDA-REF16314 ':INT32) - (ANORM-REF16316 ':FLOAT) (RCOND-REF16317 ':FLOAT) - (INFO-REF16320 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16312 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16314 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16316 :FLOAT) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16317 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16320 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16313 A) (IPIV-REF16315 IPIV) - (WORK-REF16318 WORK) - (IWORK-REF16319 IWORK)) - (%%SSYCON_ROOK UPLO N-REF16312 A-REF16313 LDA-REF16314 IPIV-REF16315 - ANORM-REF16316 RCOND-REF16317 WORK-REF16318 IWORK-REF16319 - INFO-REF16320)))) - -(CFFI:DEFCFUN ("ssyconv_" %%SSYCONV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16327 ':INT32) (LDA-REF16329 ':INT32) + (ANORM-REF16331 ':FLOAT) (RCOND-REF16332 ':FLOAT) + (INFO-REF16335 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16327 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16329 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF16331 :FLOAT) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16332 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16335 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16328 A) (IPIV-REF16330 IPIV) + (WORK-REF16333 WORK) + (IWORK-REF16334 IWORK)) + (%%SSYCON_ROOK UPLO N-REF16327 A-REF16328 LDA-REF16329 IPIV-REF16330 + ANORM-REF16331 RCOND-REF16332 WORK-REF16333 IWORK-REF16334 + INFO-REF16335)))) + +(CFFI:DEFCFUN ("ssyconv_" %%SSYCONV :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -7816,18 +7898,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16323 ':INT32) (LDA-REF16325 ':INT32) - (INFO-REF16328 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16323 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16325 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16328 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16324 A) (IPIV-REF16326 IPIV) - (E-REF16327 E)) - (%%SSYCONV UPLO WAY N-REF16323 A-REF16324 LDA-REF16325 IPIV-REF16326 - E-REF16327 INFO-REF16328)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16338 ':INT32) (LDA-REF16340 ':INT32) + (INFO-REF16343 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16338 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16340 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16343 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16339 A) (IPIV-REF16341 IPIV) + (E-REF16342 E)) + (%%SSYCONV UPLO WAY N-REF16338 A-REF16339 LDA-REF16340 IPIV-REF16341 + E-REF16342 INFO-REF16343)))) (CFFI:DEFCFUN ("ssyconvf_" %%SSYCONVF :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -7853,18 +7935,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16331 ':INT32) (LDA-REF16333 ':INT32) - (INFO-REF16336 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16331 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16333 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16336 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16332 A) (E-REF16334 E) - (IPIV-REF16335 IPIV)) - (%%SSYCONVF UPLO WAY N-REF16331 A-REF16332 LDA-REF16333 E-REF16334 - IPIV-REF16335 INFO-REF16336)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16346 ':INT32) (LDA-REF16348 ':INT32) + (INFO-REF16351 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16346 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16348 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16351 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16347 A) (E-REF16349 E) + (IPIV-REF16350 IPIV)) + (%%SSYCONVF UPLO WAY N-REF16346 A-REF16347 LDA-REF16348 E-REF16349 + IPIV-REF16350 INFO-REF16351)))) (CFFI:DEFCFUN ("ssyconvf_rook_" %%SSYCONVF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -7890,17 +7972,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16339 ':INT32) (LDA-REF16341 ':INT32) - (INFO-REF16344 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16339 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16341 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16344 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16340 A) (E-REF16342 E) - (IPIV-REF16343 IPIV)) - (%%SSYCONVF_ROOK UPLO WAY N-REF16339 A-REF16340 LDA-REF16341 E-REF16342 - IPIV-REF16343 INFO-REF16344)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16354 ':INT32) (LDA-REF16356 ':INT32) + (INFO-REF16359 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16354 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16356 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16359 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16355 A) (E-REF16357 E) + (IPIV-REF16358 IPIV)) + (%%SSYCONVF_ROOK UPLO WAY N-REF16354 A-REF16355 LDA-REF16356 E-REF16357 + IPIV-REF16358 INFO-REF16359)))) -(CFFI:DEFCFUN ("ssyequb_" %%SSYEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssyequb_" %%SSYEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7927,20 +8010,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16346 ':INT32) (LDA-REF16348 ':INT32) - (SCOND-REF16350 ':FLOAT) (AMAX-REF16351 ':FLOAT) - (INFO-REF16353 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16346 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16348 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF16350 :FLOAT) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF16351 :FLOAT) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16353 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16347 A) (S-REF16349 S) - (WORK-REF16352 WORK)) - (%%SSYEQUB UPLO N-REF16346 A-REF16347 LDA-REF16348 S-REF16349 - SCOND-REF16350 AMAX-REF16351 WORK-REF16352 INFO-REF16353)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16361 ':INT32) (LDA-REF16363 ':INT32) + (SCOND-REF16365 ':FLOAT) (AMAX-REF16366 ':FLOAT) + (INFO-REF16368 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16361 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16363 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF16365 :FLOAT) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF16366 :FLOAT) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16368 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16362 A) (S-REF16364 S) + (WORK-REF16367 WORK)) + (%%SSYEQUB UPLO N-REF16361 A-REF16362 LDA-REF16363 S-REF16364 + SCOND-REF16365 AMAX-REF16366 WORK-REF16367 INFO-REF16368)))) -(CFFI:DEFCFUN ("ssyev_" %%SSYEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssyev_" %%SSYEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7967,19 +8050,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16356 ':INT32) (LDA-REF16358 ':INT32) - (LWORK-REF16361 ':INT32) (INFO-REF16362 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16356 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16358 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16361 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16362 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16357 A) (W-REF16359 W) - (WORK-REF16360 WORK)) - (%%SSYEV JOBZ UPLO N-REF16356 A-REF16357 LDA-REF16358 W-REF16359 - WORK-REF16360 LWORK-REF16361 INFO-REF16362)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16371 ':INT32) (LDA-REF16373 ':INT32) + (LWORK-REF16376 ':INT32) (INFO-REF16377 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16371 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16373 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16376 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16377 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16372 A) (W-REF16374 W) + (WORK-REF16375 WORK)) + (%%SSYEV JOBZ UPLO N-REF16371 A-REF16372 LDA-REF16373 W-REF16374 + WORK-REF16375 LWORK-REF16376 INFO-REF16377)))) (CFFI:DEFCFUN ("ssyev_2stage_" %%SSYEV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8006,18 +8089,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16365 ':INT32) (LDA-REF16367 ':INT32) - (LWORK-REF16370 ':INT32) (INFO-REF16371 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16365 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16367 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16370 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16371 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16366 A) (W-REF16368 W) - (WORK-REF16369 WORK)) - (%%SSYEV_2STAGE JOBZ UPLO N-REF16365 A-REF16366 LDA-REF16367 W-REF16368 - WORK-REF16369 LWORK-REF16370 INFO-REF16371)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16380 ':INT32) (LDA-REF16382 ':INT32) + (LWORK-REF16385 ':INT32) (INFO-REF16386 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16380 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16382 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16385 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16386 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16381 A) (W-REF16383 W) + (WORK-REF16384 WORK)) + (%%SSYEV_2STAGE JOBZ UPLO N-REF16380 A-REF16381 LDA-REF16382 W-REF16383 + WORK-REF16384 LWORK-REF16385 INFO-REF16386)))) -(CFFI:DEFCFUN ("ssyevd_" %%SSYEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssyevd_" %%SSYEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8051,23 +8134,23 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16374 ':INT32) (LDA-REF16376 ':INT32) - (LWORK-REF16379 ':INT32) - (LIWORK-REF16381 ':INT32) (INFO-REF16382 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16374 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16376 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16379 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16381 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16382 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16375 A) (W-REF16377 W) - (WORK-REF16378 WORK) - (IWORK-REF16380 IWORK)) - (%%SSYEVD JOBZ UPLO N-REF16374 A-REF16375 LDA-REF16376 W-REF16377 - WORK-REF16378 LWORK-REF16379 IWORK-REF16380 LIWORK-REF16381 - INFO-REF16382)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16389 ':INT32) (LDA-REF16391 ':INT32) + (LWORK-REF16394 ':INT32) + (LIWORK-REF16396 ':INT32) (INFO-REF16397 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16389 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16391 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16394 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16396 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16397 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16390 A) (W-REF16392 W) + (WORK-REF16393 WORK) + (IWORK-REF16395 IWORK)) + (%%SSYEVD JOBZ UPLO N-REF16389 A-REF16390 LDA-REF16391 W-REF16392 + WORK-REF16393 LWORK-REF16394 IWORK-REF16395 LIWORK-REF16396 + INFO-REF16397)))) (CFFI:DEFCFUN ("ssyevd_2stage_" %%SSYEVD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8102,22 +8185,22 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16385 ':INT32) (LDA-REF16387 ':INT32) - (LWORK-REF16390 ':INT32) - (LIWORK-REF16392 ':INT32) (INFO-REF16393 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16385 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16387 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16390 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16392 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16393 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16386 A) (W-REF16388 W) - (WORK-REF16389 WORK) - (IWORK-REF16391 IWORK)) - (%%SSYEVD_2STAGE JOBZ UPLO N-REF16385 A-REF16386 LDA-REF16387 W-REF16388 - WORK-REF16389 LWORK-REF16390 IWORK-REF16391 - LIWORK-REF16392 INFO-REF16393)))) - -(CFFI:DEFCFUN ("ssyevr_" %%SSYEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16400 ':INT32) (LDA-REF16402 ':INT32) + (LWORK-REF16405 ':INT32) + (LIWORK-REF16407 ':INT32) (INFO-REF16408 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16400 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16402 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16405 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16407 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16408 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16401 A) (W-REF16403 W) + (WORK-REF16404 WORK) + (IWORK-REF16406 IWORK)) + (%%SSYEVD_2STAGE JOBZ UPLO N-REF16400 A-REF16401 LDA-REF16402 W-REF16403 + WORK-REF16404 LWORK-REF16405 IWORK-REF16406 LIWORK-REF16407 + INFO-REF16408)))) + +(CFFI:DEFCFUN ("ssyevr_" %%SSYEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8177,37 +8260,36 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16397 ':INT32) (LDA-REF16399 ':INT32) - (VL-REF16400 ':FLOAT) (VU-REF16401 ':FLOAT) - (IL-REF16402 ':INT32) (IU-REF16403 ':INT32) - (ABSTOL-REF16404 ':FLOAT) (M-REF16405 ':INT32) - (LDZ-REF16408 ':INT32) (LWORK-REF16411 ':INT32) - (LIWORK-REF16413 ':INT32) (INFO-REF16414 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16397 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16399 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16400 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16401 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16402 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16403 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16404 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16405 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16408 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16411 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16413 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16414 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16398 A) (W-REF16406 W) - (Z-REF16407 Z) - (ISUPPZ-REF16409 ISUPPZ) - (WORK-REF16410 WORK) - (IWORK-REF16412 IWORK)) - (%%SSYEVR JOBZ RANGE UPLO N-REF16397 A-REF16398 LDA-REF16399 VL-REF16400 - VU-REF16401 IL-REF16402 IU-REF16403 ABSTOL-REF16404 M-REF16405 - W-REF16406 Z-REF16407 LDZ-REF16408 ISUPPZ-REF16409 - WORK-REF16410 LWORK-REF16411 IWORK-REF16412 LIWORK-REF16413 - INFO-REF16414)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16412 ':INT32) (LDA-REF16414 ':INT32) + (VL-REF16415 ':FLOAT) (VU-REF16416 ':FLOAT) + (IL-REF16417 ':INT32) (IU-REF16418 ':INT32) + (ABSTOL-REF16419 ':FLOAT) (M-REF16420 ':INT32) + (LDZ-REF16423 ':INT32) (LWORK-REF16426 ':INT32) + (LIWORK-REF16428 ':INT32) (INFO-REF16429 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16412 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16414 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16415 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16416 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16417 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16418 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16419 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16420 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16423 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16426 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16428 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16429 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16413 A) (W-REF16421 W) + (Z-REF16422 Z) + (ISUPPZ-REF16424 ISUPPZ) + (WORK-REF16425 WORK) + (IWORK-REF16427 IWORK)) + (%%SSYEVR JOBZ RANGE UPLO N-REF16412 A-REF16413 LDA-REF16414 VL-REF16415 + VU-REF16416 IL-REF16417 IU-REF16418 ABSTOL-REF16419 M-REF16420 + W-REF16421 Z-REF16422 LDZ-REF16423 ISUPPZ-REF16424 WORK-REF16425 + LWORK-REF16426 IWORK-REF16427 LIWORK-REF16428 INFO-REF16429)))) (CFFI:DEFCFUN ("ssyevr_2stage_" %%SSYEVR_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8267,37 +8349,36 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16418 ':INT32) (LDA-REF16420 ':INT32) - (VL-REF16421 ':FLOAT) (VU-REF16422 ':FLOAT) - (IL-REF16423 ':INT32) (IU-REF16424 ':INT32) - (ABSTOL-REF16425 ':FLOAT) (M-REF16426 ':INT32) - (LDZ-REF16429 ':INT32) (LWORK-REF16432 ':INT32) - (LIWORK-REF16434 ':INT32) (INFO-REF16435 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16418 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16420 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16421 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16422 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16423 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16424 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16425 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16426 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16429 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16432 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16434 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16435 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16419 A) (W-REF16427 W) - (Z-REF16428 Z) - (ISUPPZ-REF16430 ISUPPZ) - (WORK-REF16431 WORK) - (IWORK-REF16433 IWORK)) - (%%SSYEVR_2STAGE JOBZ RANGE UPLO N-REF16418 A-REF16419 LDA-REF16420 - VL-REF16421 VU-REF16422 IL-REF16423 IU-REF16424 - ABSTOL-REF16425 M-REF16426 W-REF16427 Z-REF16428 - LDZ-REF16429 ISUPPZ-REF16430 WORK-REF16431 - LWORK-REF16432 IWORK-REF16433 LIWORK-REF16434 - INFO-REF16435)))) - -(CFFI:DEFCFUN ("ssyevx_" %%SSYEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16433 ':INT32) (LDA-REF16435 ':INT32) + (VL-REF16436 ':FLOAT) (VU-REF16437 ':FLOAT) + (IL-REF16438 ':INT32) (IU-REF16439 ':INT32) + (ABSTOL-REF16440 ':FLOAT) (M-REF16441 ':INT32) + (LDZ-REF16444 ':INT32) (LWORK-REF16447 ':INT32) + (LIWORK-REF16449 ':INT32) (INFO-REF16450 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16433 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16435 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16436 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16437 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16438 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16439 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16440 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16441 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16444 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16447 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16449 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16450 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16434 A) (W-REF16442 W) + (Z-REF16443 Z) + (ISUPPZ-REF16445 ISUPPZ) + (WORK-REF16446 WORK) + (IWORK-REF16448 IWORK)) + (%%SSYEVR_2STAGE JOBZ RANGE UPLO N-REF16433 A-REF16434 LDA-REF16435 + VL-REF16436 VU-REF16437 IL-REF16438 IU-REF16439 ABSTOL-REF16440 + M-REF16441 W-REF16442 Z-REF16443 LDZ-REF16444 ISUPPZ-REF16445 + WORK-REF16446 LWORK-REF16447 IWORK-REF16448 LIWORK-REF16449 + INFO-REF16450)))) + +(CFFI:DEFCFUN ("ssyevx_" %%SSYEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8355,34 +8436,34 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16439 ':INT32) (LDA-REF16441 ':INT32) - (VL-REF16442 ':FLOAT) (VU-REF16443 ':FLOAT) - (IL-REF16444 ':INT32) (IU-REF16445 ':INT32) - (ABSTOL-REF16446 ':FLOAT) (M-REF16447 ':INT32) - (LDZ-REF16450 ':INT32) (LWORK-REF16452 ':INT32) - (INFO-REF16455 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16439 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16441 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16442 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16443 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16444 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16445 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16446 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16447 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16450 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16452 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16455 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16440 A) (W-REF16448 W) - (Z-REF16449 Z) (WORK-REF16451 WORK) - (IWORK-REF16453 IWORK) - (IFAIL-REF16454 IFAIL)) - (%%SSYEVX JOBZ RANGE UPLO N-REF16439 A-REF16440 LDA-REF16441 VL-REF16442 - VU-REF16443 IL-REF16444 IU-REF16445 ABSTOL-REF16446 M-REF16447 - W-REF16448 Z-REF16449 LDZ-REF16450 WORK-REF16451 LWORK-REF16452 - IWORK-REF16453 IFAIL-REF16454 INFO-REF16455)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16454 ':INT32) (LDA-REF16456 ':INT32) + (VL-REF16457 ':FLOAT) (VU-REF16458 ':FLOAT) + (IL-REF16459 ':INT32) (IU-REF16460 ':INT32) + (ABSTOL-REF16461 ':FLOAT) (M-REF16462 ':INT32) + (LDZ-REF16465 ':INT32) (LWORK-REF16467 ':INT32) + (INFO-REF16470 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16454 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16456 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16457 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16458 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16459 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16460 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16461 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16462 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16465 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16467 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16470 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16455 A) (W-REF16463 W) + (Z-REF16464 Z) (WORK-REF16466 WORK) + (IWORK-REF16468 IWORK) + (IFAIL-REF16469 IFAIL)) + (%%SSYEVX JOBZ RANGE UPLO N-REF16454 A-REF16455 LDA-REF16456 VL-REF16457 + VU-REF16458 IL-REF16459 IU-REF16460 ABSTOL-REF16461 M-REF16462 + W-REF16463 Z-REF16464 LDZ-REF16465 WORK-REF16466 LWORK-REF16467 + IWORK-REF16468 IFAIL-REF16469 INFO-REF16470)))) (CFFI:DEFCFUN ("ssyevx_2stage_" %%SSYEVX_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8440,34 +8521,33 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16459 ':INT32) (LDA-REF16461 ':INT32) - (VL-REF16462 ':FLOAT) (VU-REF16463 ':FLOAT) - (IL-REF16464 ':INT32) (IU-REF16465 ':INT32) - (ABSTOL-REF16466 ':FLOAT) (M-REF16467 ':INT32) - (LDZ-REF16470 ':INT32) (LWORK-REF16472 ':INT32) - (INFO-REF16475 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16459 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16461 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16462 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16463 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16464 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16465 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16466 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16467 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16470 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16472 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16475 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16460 A) (W-REF16468 W) - (Z-REF16469 Z) (WORK-REF16471 WORK) - (IWORK-REF16473 IWORK) - (IFAIL-REF16474 IFAIL)) - (%%SSYEVX_2STAGE JOBZ RANGE UPLO N-REF16459 A-REF16460 LDA-REF16461 - VL-REF16462 VU-REF16463 IL-REF16464 IU-REF16465 - ABSTOL-REF16466 M-REF16467 W-REF16468 Z-REF16469 - LDZ-REF16470 WORK-REF16471 LWORK-REF16472 IWORK-REF16473 - IFAIL-REF16474 INFO-REF16475)))) - -(CFFI:DEFCFUN ("ssygs2_" %%SSYGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16474 ':INT32) (LDA-REF16476 ':INT32) + (VL-REF16477 ':FLOAT) (VU-REF16478 ':FLOAT) + (IL-REF16479 ':INT32) (IU-REF16480 ':INT32) + (ABSTOL-REF16481 ':FLOAT) (M-REF16482 ':INT32) + (LDZ-REF16485 ':INT32) (LWORK-REF16487 ':INT32) + (INFO-REF16490 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16474 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16476 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16477 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16478 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16479 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16480 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16481 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16482 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16485 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16487 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16490 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16475 A) (W-REF16483 W) + (Z-REF16484 Z) (WORK-REF16486 WORK) + (IWORK-REF16488 IWORK) + (IFAIL-REF16489 IFAIL)) + (%%SSYEVX_2STAGE JOBZ RANGE UPLO N-REF16474 A-REF16475 LDA-REF16476 + VL-REF16477 VU-REF16478 IL-REF16479 IU-REF16480 ABSTOL-REF16481 + M-REF16482 W-REF16483 Z-REF16484 LDZ-REF16485 WORK-REF16486 + LWORK-REF16487 IWORK-REF16488 IFAIL-REF16489 INFO-REF16490)))) + +(CFFI:DEFCFUN ("ssygs2_" %%SSYGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -8490,19 +8570,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16476 ':INT32) (N-REF16478 ':INT32) - (LDA-REF16480 ':INT32) (LDB-REF16482 ':INT32) - (INFO-REF16483 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16476 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16478 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16480 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16482 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16483 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16479 A) (B-REF16481 B)) - (%%SSYGS2 ITYPE-REF16476 UPLO N-REF16478 A-REF16479 LDA-REF16480 - B-REF16481 LDB-REF16482 INFO-REF16483)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16491 ':INT32) (N-REF16493 ':INT32) + (LDA-REF16495 ':INT32) (LDB-REF16497 ':INT32) + (INFO-REF16498 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16491 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16493 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16495 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16497 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16498 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16494 A) (B-REF16496 B)) + (%%SSYGS2 ITYPE-REF16491 UPLO N-REF16493 A-REF16494 LDA-REF16495 + B-REF16496 LDB-REF16497 INFO-REF16498)))) -(CFFI:DEFCFUN ("ssygst_" %%SSYGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssygst_" %%SSYGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -8525,19 +8605,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16484 ':INT32) (N-REF16486 ':INT32) - (LDA-REF16488 ':INT32) (LDB-REF16490 ':INT32) - (INFO-REF16491 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16484 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16486 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16488 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16490 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16491 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16487 A) (B-REF16489 B)) - (%%SSYGST ITYPE-REF16484 UPLO N-REF16486 A-REF16487 LDA-REF16488 - B-REF16489 LDB-REF16490 INFO-REF16491)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16499 ':INT32) (N-REF16501 ':INT32) + (LDA-REF16503 ':INT32) (LDB-REF16505 ':INT32) + (INFO-REF16506 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16499 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16501 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16503 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16505 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16506 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16502 A) (B-REF16504 B)) + (%%SSYGST ITYPE-REF16499 UPLO N-REF16501 A-REF16502 LDA-REF16503 + B-REF16504 LDB-REF16505 INFO-REF16506)))) -(CFFI:DEFCFUN ("ssygv_" %%SSYGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssygv_" %%SSYGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8571,23 +8651,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16492 ':INT32) (N-REF16495 ':INT32) - (LDA-REF16497 ':INT32) (LDB-REF16499 ':INT32) - (LWORK-REF16502 ':INT32) (INFO-REF16503 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16492 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16495 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16497 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16499 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16502 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16503 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16496 A) (B-REF16498 B) - (W-REF16500 W) (WORK-REF16501 WORK)) - (%%SSYGV ITYPE-REF16492 JOBZ UPLO N-REF16495 A-REF16496 LDA-REF16497 - B-REF16498 LDB-REF16499 W-REF16500 WORK-REF16501 LWORK-REF16502 - INFO-REF16503)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16507 ':INT32) (N-REF16510 ':INT32) + (LDA-REF16512 ':INT32) (LDB-REF16514 ':INT32) + (LWORK-REF16517 ':INT32) (INFO-REF16518 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16507 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16510 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16512 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16514 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16517 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16518 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16511 A) (B-REF16513 B) + (W-REF16515 W) (WORK-REF16516 WORK)) + (%%SSYGV ITYPE-REF16507 JOBZ UPLO N-REF16510 A-REF16511 LDA-REF16512 + B-REF16513 LDB-REF16514 W-REF16515 WORK-REF16516 LWORK-REF16517 + INFO-REF16518)))) (CFFI:DEFCFUN ("ssygv_2stage_" %%SSYGV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8622,22 +8702,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16504 ':INT32) (N-REF16507 ':INT32) - (LDA-REF16509 ':INT32) (LDB-REF16511 ':INT32) - (LWORK-REF16514 ':INT32) (INFO-REF16515 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16504 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16507 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16509 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16511 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16514 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16515 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16508 A) (B-REF16510 B) - (W-REF16512 W) (WORK-REF16513 WORK)) - (%%SSYGV_2STAGE ITYPE-REF16504 JOBZ UPLO N-REF16507 A-REF16508 - LDA-REF16509 B-REF16510 LDB-REF16511 W-REF16512 - WORK-REF16513 LWORK-REF16514 INFO-REF16515)))) - -(CFFI:DEFCFUN ("ssygvd_" %%SSYGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16519 ':INT32) (N-REF16522 ':INT32) + (LDA-REF16524 ':INT32) (LDB-REF16526 ':INT32) + (LWORK-REF16529 ':INT32) (INFO-REF16530 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16519 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16522 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16524 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16526 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16529 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16530 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16523 A) (B-REF16525 B) + (W-REF16527 W) (WORK-REF16528 WORK)) + (%%SSYGV_2STAGE ITYPE-REF16519 JOBZ UPLO N-REF16522 A-REF16523 + LDA-REF16524 B-REF16525 LDB-REF16526 W-REF16527 WORK-REF16528 + LWORK-REF16529 INFO-REF16530)))) + +(CFFI:DEFCFUN ("ssygvd_" %%SSYGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8680,25 +8760,25 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16516 ':INT32) (N-REF16519 ':INT32) - (LDA-REF16521 ':INT32) (LDB-REF16523 ':INT32) - (LWORK-REF16526 ':INT32) - (LIWORK-REF16528 ':INT32) (INFO-REF16529 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16516 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16519 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16521 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16523 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16526 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16528 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16529 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16520 A) (B-REF16522 B) - (W-REF16524 W) (WORK-REF16525 WORK) - (IWORK-REF16527 IWORK)) - (%%SSYGVD ITYPE-REF16516 JOBZ UPLO N-REF16519 A-REF16520 LDA-REF16521 - B-REF16522 LDB-REF16523 W-REF16524 WORK-REF16525 LWORK-REF16526 - IWORK-REF16527 LIWORK-REF16528 INFO-REF16529)))) - -(CFFI:DEFCFUN ("ssygvx_" %%SSYGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16531 ':INT32) (N-REF16534 ':INT32) + (LDA-REF16536 ':INT32) (LDB-REF16538 ':INT32) + (LWORK-REF16541 ':INT32) + (LIWORK-REF16543 ':INT32) (INFO-REF16544 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16531 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16534 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16536 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16538 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16541 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF16543 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16544 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16535 A) (B-REF16537 B) + (W-REF16539 W) (WORK-REF16540 WORK) + (IWORK-REF16542 IWORK)) + (%%SSYGVD ITYPE-REF16531 JOBZ UPLO N-REF16534 A-REF16535 LDA-REF16536 + B-REF16537 LDB-REF16538 W-REF16539 WORK-REF16540 LWORK-REF16541 + IWORK-REF16542 LIWORK-REF16543 INFO-REF16544)))) + +(CFFI:DEFCFUN ("ssygvx_" %%SSYGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -8763,38 +8843,38 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16530 ':INT32) (N-REF16534 ':INT32) - (LDA-REF16536 ':INT32) (LDB-REF16538 ':INT32) - (VL-REF16539 ':FLOAT) (VU-REF16540 ':FLOAT) - (IL-REF16541 ':INT32) (IU-REF16542 ':INT32) - (ABSTOL-REF16543 ':FLOAT) (M-REF16544 ':INT32) - (LDZ-REF16547 ':INT32) (LWORK-REF16549 ':INT32) - (INFO-REF16552 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16530 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16534 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16536 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16538 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16539 :FLOAT) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16540 :FLOAT) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16541 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16542 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16543 :FLOAT) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16544 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16547 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16549 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16552 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16535 A) (B-REF16537 B) - (W-REF16545 W) (Z-REF16546 Z) - (WORK-REF16548 WORK) - (IWORK-REF16550 IWORK) - (IFAIL-REF16551 IFAIL)) - (%%SSYGVX ITYPE-REF16530 JOBZ RANGE UPLO N-REF16534 A-REF16535 - LDA-REF16536 B-REF16537 LDB-REF16538 VL-REF16539 VU-REF16540 - IL-REF16541 IU-REF16542 ABSTOL-REF16543 M-REF16544 W-REF16545 - Z-REF16546 LDZ-REF16547 WORK-REF16548 LWORK-REF16549 - IWORK-REF16550 IFAIL-REF16551 INFO-REF16552)))) - -(CFFI:DEFCFUN ("ssyrfs_" %%SSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF16545 ':INT32) (N-REF16549 ':INT32) + (LDA-REF16551 ':INT32) (LDB-REF16553 ':INT32) + (VL-REF16554 ':FLOAT) (VU-REF16555 ':FLOAT) + (IL-REF16556 ':INT32) (IU-REF16557 ':INT32) + (ABSTOL-REF16558 ':FLOAT) (M-REF16559 ':INT32) + (LDZ-REF16562 ':INT32) (LWORK-REF16564 ':INT32) + (INFO-REF16567 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF16545 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16549 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16551 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16553 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF16554 :FLOAT) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF16555 :FLOAT) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF16556 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF16557 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF16558 :FLOAT) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16559 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF16562 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16564 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16567 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16550 A) (B-REF16552 B) + (W-REF16560 W) (Z-REF16561 Z) + (WORK-REF16563 WORK) + (IWORK-REF16565 IWORK) + (IFAIL-REF16566 IFAIL)) + (%%SSYGVX ITYPE-REF16545 JOBZ RANGE UPLO N-REF16549 A-REF16550 + LDA-REF16551 B-REF16552 LDB-REF16553 VL-REF16554 VU-REF16555 IL-REF16556 + IU-REF16557 ABSTOL-REF16558 M-REF16559 W-REF16560 Z-REF16561 + LDZ-REF16562 WORK-REF16563 LWORK-REF16564 IWORK-REF16565 IFAIL-REF16566 + INFO-REF16567)))) + +(CFFI:DEFCFUN ("ssyrfs_" %%SSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8851,29 +8931,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16554 ':INT32) (NRHS-REF16555 ':INT32) - (LDA-REF16557 ':INT32) (LDAF-REF16559 ':INT32) - (LDB-REF16562 ':INT32) (LDX-REF16564 ':INT32) - (INFO-REF16569 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16554 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16555 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16557 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16559 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16562 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16564 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16569 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16556 A) (AF-REF16558 AF) - (IPIV-REF16560 IPIV) (B-REF16561 B) - (X-REF16563 X) (FERR-REF16565 FERR) - (BERR-REF16566 BERR) - (WORK-REF16567 WORK) - (IWORK-REF16568 IWORK)) - (%%SSYRFS UPLO N-REF16554 NRHS-REF16555 A-REF16556 LDA-REF16557 - AF-REF16558 LDAF-REF16559 IPIV-REF16560 B-REF16561 LDB-REF16562 - X-REF16563 LDX-REF16564 FERR-REF16565 BERR-REF16566 - WORK-REF16567 IWORK-REF16568 INFO-REF16569)))) - -(CFFI:DEFCFUN ("ssyrfsx_" %%SSYRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16569 ':INT32) (NRHS-REF16570 ':INT32) + (LDA-REF16572 ':INT32) (LDAF-REF16574 ':INT32) + (LDB-REF16577 ':INT32) (LDX-REF16579 ':INT32) + (INFO-REF16584 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16569 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16570 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16572 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16574 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16577 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16579 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16584 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16571 A) (AF-REF16573 AF) + (IPIV-REF16575 IPIV) (B-REF16576 B) + (X-REF16578 X) (FERR-REF16580 FERR) + (BERR-REF16581 BERR) + (WORK-REF16582 WORK) + (IWORK-REF16583 IWORK)) + (%%SSYRFS UPLO N-REF16569 NRHS-REF16570 A-REF16571 LDA-REF16572 + AF-REF16573 LDAF-REF16574 IPIV-REF16575 B-REF16576 LDB-REF16577 + X-REF16578 LDX-REF16579 FERR-REF16580 BERR-REF16581 WORK-REF16582 + IWORK-REF16583 INFO-REF16584)))) + +(CFFI:DEFCFUN ("ssyrfsx_" %%SSYRFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -8951,42 +9032,42 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16572 ':INT32) (NRHS-REF16573 ':INT32) - (LDA-REF16575 ':INT32) (LDAF-REF16577 ':INT32) - (LDB-REF16581 ':INT32) (LDX-REF16583 ':INT32) - (RCOND-REF16584 ':FLOAT) - (N_ERR_BNDS-REF16586 ':INT32) - (NPARAMS-REF16589 ':INT32) - (INFO-REF16593 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16572 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16573 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16575 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16577 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16581 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16583 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16584 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16586 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16589 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16593 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16574 A) (AF-REF16576 AF) - (IPIV-REF16578 IPIV) (S-REF16579 S) - (B-REF16580 B) (X-REF16582 X) - (BERR-REF16585 BERR) - (ERR_BNDS_NORM-REF16587 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16587 ':INT32) (NRHS-REF16588 ':INT32) + (LDA-REF16590 ':INT32) (LDAF-REF16592 ':INT32) + (LDB-REF16596 ':INT32) (LDX-REF16598 ':INT32) + (RCOND-REF16599 ':FLOAT) + (N_ERR_BNDS-REF16601 ':INT32) + (NPARAMS-REF16604 ':INT32) + (INFO-REF16608 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16587 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16588 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16590 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16592 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16596 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16598 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16599 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16601 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16604 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16608 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16589 A) (AF-REF16591 AF) + (IPIV-REF16593 IPIV) (S-REF16594 S) + (B-REF16595 B) (X-REF16597 X) + (BERR-REF16600 BERR) + (ERR_BNDS_NORM-REF16602 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF16588 + (ERR_BNDS_COMP-REF16603 ERR_BNDS_COMP) - (PARAMS-REF16590 PARAMS) - (WORK-REF16591 WORK) - (IWORK-REF16592 IWORK)) - (%%SSYRFSX UPLO EQUED N-REF16572 NRHS-REF16573 A-REF16574 LDA-REF16575 - AF-REF16576 LDAF-REF16577 IPIV-REF16578 S-REF16579 B-REF16580 - LDB-REF16581 X-REF16582 LDX-REF16583 RCOND-REF16584 - BERR-REF16585 N_ERR_BNDS-REF16586 ERR_BNDS_NORM-REF16587 - ERR_BNDS_COMP-REF16588 NPARAMS-REF16589 PARAMS-REF16590 - WORK-REF16591 IWORK-REF16592 INFO-REF16593)))) + (PARAMS-REF16605 PARAMS) + (WORK-REF16606 WORK) + (IWORK-REF16607 IWORK)) + (%%SSYRFSX UPLO EQUED N-REF16587 NRHS-REF16588 A-REF16589 LDA-REF16590 + AF-REF16591 LDAF-REF16592 IPIV-REF16593 S-REF16594 B-REF16595 + LDB-REF16596 X-REF16597 LDX-REF16598 RCOND-REF16599 BERR-REF16600 + N_ERR_BNDS-REF16601 ERR_BNDS_NORM-REF16602 ERR_BNDS_COMP-REF16603 + NPARAMS-REF16604 PARAMS-REF16605 WORK-REF16606 IWORK-REF16607 + INFO-REF16608)))) -(CFFI:DEFCFUN ("ssysv_" %%SSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssysv_" %%SSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9020,23 +9101,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16595 ':INT32) (NRHS-REF16596 ':INT32) - (LDA-REF16598 ':INT32) (LDB-REF16601 ':INT32) - (LWORK-REF16603 ':INT32) (INFO-REF16604 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16595 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16596 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16598 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16601 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16603 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16604 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16597 A) (IPIV-REF16599 IPIV) - (B-REF16600 B) (WORK-REF16602 WORK)) - (%%SSYSV UPLO N-REF16595 NRHS-REF16596 A-REF16597 LDA-REF16598 - IPIV-REF16599 B-REF16600 LDB-REF16601 WORK-REF16602 - LWORK-REF16603 INFO-REF16604)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16610 ':INT32) (NRHS-REF16611 ':INT32) + (LDA-REF16613 ':INT32) (LDB-REF16616 ':INT32) + (LWORK-REF16618 ':INT32) (INFO-REF16619 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16610 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16611 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16613 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16616 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16618 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16619 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16612 A) (IPIV-REF16614 IPIV) + (B-REF16615 B) (WORK-REF16617 WORK)) + (%%SSYSV UPLO N-REF16610 NRHS-REF16611 A-REF16612 LDA-REF16613 + IPIV-REF16614 B-REF16615 LDB-REF16616 WORK-REF16617 LWORK-REF16618 + INFO-REF16619)))) (CFFI:DEFCFUN ("ssysv_aa_" %%SSYSV_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9070,23 +9151,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16606 ':INT32) (NRHS-REF16607 ':INT32) - (LDA-REF16609 ':INT32) (LDB-REF16612 ':INT32) - (LWORK-REF16614 ':INT32) (INFO-REF16615 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16606 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16607 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16609 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16612 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16614 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16615 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16608 A) (IPIV-REF16610 IPIV) - (B-REF16611 B) (WORK-REF16613 WORK)) - (%%SSYSV_AA UPLO N-REF16606 NRHS-REF16607 A-REF16608 LDA-REF16609 - IPIV-REF16610 B-REF16611 LDB-REF16612 WORK-REF16613 - LWORK-REF16614 INFO-REF16615)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16621 ':INT32) (NRHS-REF16622 ':INT32) + (LDA-REF16624 ':INT32) (LDB-REF16627 ':INT32) + (LWORK-REF16629 ':INT32) (INFO-REF16630 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16621 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16622 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16624 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16627 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16629 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16630 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16623 A) (IPIV-REF16625 IPIV) + (B-REF16626 B) (WORK-REF16628 WORK)) + (%%SSYSV_AA UPLO N-REF16621 NRHS-REF16622 A-REF16623 LDA-REF16624 + IPIV-REF16625 B-REF16626 LDB-REF16627 WORK-REF16628 LWORK-REF16629 + INFO-REF16630)))) (CFFI:DEFCFUN ("ssysv_aa_2stage_" %%SSYSV_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9131,28 +9212,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16617 ':INT32) (NRHS-REF16618 ':INT32) - (LDA-REF16620 ':INT32) (LTB-REF16622 ':INT32) - (LDB-REF16626 ':INT32) (LWORK-REF16628 ':INT32) - (INFO-REF16629 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16617 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16618 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16620 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16622 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16626 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16628 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16629 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16619 A) (TB-REF16621 TB) - (IPIV-REF16623 IPIV) - (IPIV2-REF16624 IPIV2) - (B-REF16625 B) (WORK-REF16627 WORK)) - (%%SSYSV_AA_2STAGE UPLO N-REF16617 NRHS-REF16618 A-REF16619 LDA-REF16620 - TB-REF16621 LTB-REF16622 IPIV-REF16623 IPIV2-REF16624 - B-REF16625 LDB-REF16626 WORK-REF16627 LWORK-REF16628 - INFO-REF16629)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16632 ':INT32) (NRHS-REF16633 ':INT32) + (LDA-REF16635 ':INT32) (LTB-REF16637 ':INT32) + (LDB-REF16641 ':INT32) (LWORK-REF16643 ':INT32) + (INFO-REF16644 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16632 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16633 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16635 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16637 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16641 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16643 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16644 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16634 A) (TB-REF16636 TB) + (IPIV-REF16638 IPIV) + (IPIV2-REF16639 IPIV2) + (B-REF16640 B) (WORK-REF16642 WORK)) + (%%SSYSV_AA_2STAGE UPLO N-REF16632 NRHS-REF16633 A-REF16634 LDA-REF16635 + TB-REF16636 LTB-REF16637 IPIV-REF16638 IPIV2-REF16639 B-REF16640 + LDB-REF16641 WORK-REF16642 LWORK-REF16643 INFO-REF16644)))) (CFFI:DEFCFUN ("ssysv_rk_" %%SSYSV_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9189,24 +9269,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16631 ':INT32) (NRHS-REF16632 ':INT32) - (LDA-REF16634 ':INT32) (LDB-REF16638 ':INT32) - (LWORK-REF16640 ':INT32) (INFO-REF16641 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16631 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16632 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16634 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16638 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16640 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16641 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16633 A) (E-REF16635 E) - (IPIV-REF16636 IPIV) (B-REF16637 B) - (WORK-REF16639 WORK)) - (%%SSYSV_RK UPLO N-REF16631 NRHS-REF16632 A-REF16633 LDA-REF16634 - E-REF16635 IPIV-REF16636 B-REF16637 LDB-REF16638 - WORK-REF16639 LWORK-REF16640 INFO-REF16641)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16646 ':INT32) (NRHS-REF16647 ':INT32) + (LDA-REF16649 ':INT32) (LDB-REF16653 ':INT32) + (LWORK-REF16655 ':INT32) (INFO-REF16656 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16646 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16647 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16649 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16653 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16655 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16656 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16648 A) (E-REF16650 E) + (IPIV-REF16651 IPIV) (B-REF16652 B) + (WORK-REF16654 WORK)) + (%%SSYSV_RK UPLO N-REF16646 NRHS-REF16647 A-REF16648 LDA-REF16649 + E-REF16650 IPIV-REF16651 B-REF16652 LDB-REF16653 WORK-REF16654 + LWORK-REF16655 INFO-REF16656)))) (CFFI:DEFCFUN ("ssysv_rook_" %%SSYSV_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9240,22 +9320,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16643 ':INT32) (NRHS-REF16644 ':INT32) - (LDA-REF16646 ':INT32) (LDB-REF16649 ':INT32) - (LWORK-REF16651 ':INT32) (INFO-REF16652 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16643 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16644 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16646 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16649 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16651 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16652 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16645 A) (IPIV-REF16647 IPIV) - (B-REF16648 B) (WORK-REF16650 WORK)) - (%%SSYSV_ROOK UPLO N-REF16643 NRHS-REF16644 A-REF16645 LDA-REF16646 - IPIV-REF16647 B-REF16648 LDB-REF16649 WORK-REF16650 - LWORK-REF16651 INFO-REF16652)))) - -(CFFI:DEFCFUN ("ssysvx_" %%SSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16658 ':INT32) (NRHS-REF16659 ':INT32) + (LDA-REF16661 ':INT32) (LDB-REF16664 ':INT32) + (LWORK-REF16666 ':INT32) (INFO-REF16667 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16658 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16659 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16661 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16664 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16666 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16667 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16660 A) (IPIV-REF16662 IPIV) + (B-REF16663 B) (WORK-REF16665 WORK)) + (%%SSYSV_ROOK UPLO N-REF16658 NRHS-REF16659 A-REF16660 LDA-REF16661 + IPIV-REF16662 B-REF16663 LDB-REF16664 WORK-REF16665 LWORK-REF16666 + INFO-REF16667)))) + +(CFFI:DEFCFUN ("ssysvx_" %%SSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -9318,33 +9398,33 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16655 ':INT32) (NRHS-REF16656 ':INT32) - (LDA-REF16658 ':INT32) (LDAF-REF16660 ':INT32) - (LDB-REF16663 ':INT32) (LDX-REF16665 ':INT32) - (RCOND-REF16666 ':FLOAT) (LWORK-REF16670 ':INT32) - (INFO-REF16672 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16655 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16656 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16658 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16660 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16663 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16665 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16666 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16670 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16672 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16657 A) (AF-REF16659 AF) - (IPIV-REF16661 IPIV) (B-REF16662 B) - (X-REF16664 X) (FERR-REF16667 FERR) - (BERR-REF16668 BERR) - (WORK-REF16669 WORK) - (IWORK-REF16671 IWORK)) - (%%SSYSVX FACT UPLO N-REF16655 NRHS-REF16656 A-REF16657 LDA-REF16658 - AF-REF16659 LDAF-REF16660 IPIV-REF16661 B-REF16662 LDB-REF16663 - X-REF16664 LDX-REF16665 RCOND-REF16666 FERR-REF16667 - BERR-REF16668 WORK-REF16669 LWORK-REF16670 IWORK-REF16671 - INFO-REF16672)))) - -(CFFI:DEFCFUN ("ssysvxx_" %%SSYSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16670 ':INT32) (NRHS-REF16671 ':INT32) + (LDA-REF16673 ':INT32) (LDAF-REF16675 ':INT32) + (LDB-REF16678 ':INT32) (LDX-REF16680 ':INT32) + (RCOND-REF16681 ':FLOAT) (LWORK-REF16685 ':INT32) + (INFO-REF16687 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16670 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16671 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16673 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16675 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16678 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16680 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16681 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16685 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16687 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16672 A) (AF-REF16674 AF) + (IPIV-REF16676 IPIV) (B-REF16677 B) + (X-REF16679 X) (FERR-REF16682 FERR) + (BERR-REF16683 BERR) + (WORK-REF16684 WORK) + (IWORK-REF16686 IWORK)) + (%%SSYSVX FACT UPLO N-REF16670 NRHS-REF16671 A-REF16672 LDA-REF16673 + AF-REF16674 LDAF-REF16675 IPIV-REF16676 B-REF16677 LDB-REF16678 + X-REF16679 LDX-REF16680 RCOND-REF16681 FERR-REF16682 BERR-REF16683 + WORK-REF16684 LWORK-REF16685 IWORK-REF16686 INFO-REF16687)))) + +(CFFI:DEFCFUN ("ssysvxx_" %%SSYSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -9426,45 +9506,45 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16675 ':INT32) (NRHS-REF16676 ':INT32) - (LDA-REF16678 ':INT32) (LDAF-REF16680 ':INT32) - (LDB-REF16685 ':INT32) (LDX-REF16687 ':INT32) - (RCOND-REF16688 ':FLOAT) - (RPVGRW-REF16689 ':FLOAT) - (N_ERR_BNDS-REF16691 ':INT32) - (NPARAMS-REF16694 ':INT32) - (INFO-REF16698 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16675 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16676 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16678 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16680 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16685 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16687 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16688 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF16689 :FLOAT) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16691 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16694 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16698 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16677 A) (AF-REF16679 AF) - (IPIV-REF16681 IPIV) (S-REF16683 S) - (B-REF16684 B) (X-REF16686 X) - (BERR-REF16690 BERR) - (ERR_BNDS_NORM-REF16692 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16690 ':INT32) (NRHS-REF16691 ':INT32) + (LDA-REF16693 ':INT32) (LDAF-REF16695 ':INT32) + (LDB-REF16700 ':INT32) (LDX-REF16702 ':INT32) + (RCOND-REF16703 ':FLOAT) + (RPVGRW-REF16704 ':FLOAT) + (N_ERR_BNDS-REF16706 ':INT32) + (NPARAMS-REF16709 ':INT32) + (INFO-REF16713 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16690 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16691 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16693 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF16695 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16700 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16702 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16703 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF16704 :FLOAT) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF16706 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF16709 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16713 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16692 A) (AF-REF16694 AF) + (IPIV-REF16696 IPIV) (S-REF16698 S) + (B-REF16699 B) (X-REF16701 X) + (BERR-REF16705 BERR) + (ERR_BNDS_NORM-REF16707 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF16693 + (ERR_BNDS_COMP-REF16708 ERR_BNDS_COMP) - (PARAMS-REF16695 PARAMS) - (WORK-REF16696 WORK) - (IWORK-REF16697 IWORK)) - (%%SSYSVXX FACT UPLO N-REF16675 NRHS-REF16676 A-REF16677 LDA-REF16678 - AF-REF16679 LDAF-REF16680 IPIV-REF16681 EQUED S-REF16683 - B-REF16684 LDB-REF16685 X-REF16686 LDX-REF16687 RCOND-REF16688 - RPVGRW-REF16689 BERR-REF16690 N_ERR_BNDS-REF16691 - ERR_BNDS_NORM-REF16692 ERR_BNDS_COMP-REF16693 NPARAMS-REF16694 - PARAMS-REF16695 WORK-REF16696 IWORK-REF16697 INFO-REF16698)))) + (PARAMS-REF16710 PARAMS) + (WORK-REF16711 WORK) + (IWORK-REF16712 IWORK)) + (%%SSYSVXX FACT UPLO N-REF16690 NRHS-REF16691 A-REF16692 LDA-REF16693 + AF-REF16694 LDAF-REF16695 IPIV-REF16696 EQUED S-REF16698 B-REF16699 + LDB-REF16700 X-REF16701 LDX-REF16702 RCOND-REF16703 RPVGRW-REF16704 + BERR-REF16705 N_ERR_BNDS-REF16706 ERR_BNDS_NORM-REF16707 + ERR_BNDS_COMP-REF16708 NPARAMS-REF16709 PARAMS-REF16710 WORK-REF16711 + IWORK-REF16712 INFO-REF16713)))) (CFFI:DEFCFUN ("ssyswapr_" %%SSYSWAPR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9482,17 +9562,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16700 ':INT32) (LDA-REF16702 ':INT32) - (I1-REF16703 ':INT32) (I2-REF16704 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16700 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16702 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF16703 :INT32) I1) - (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF16704 :INT32) I2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16701 A)) - (%%SSYSWAPR UPLO N-REF16700 A-REF16701 LDA-REF16702 I1-REF16703 - I2-REF16704)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16715 ':INT32) (LDA-REF16717 ':INT32) + (I1-REF16718 ':INT32) (I2-REF16719 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16715 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16717 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF16718 :INT32) I1) + (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF16719 :INT32) I2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16716 A)) + (%%SSYSWAPR UPLO N-REF16715 A-REF16716 LDA-REF16717 I1-REF16718 + I2-REF16719)))) -(CFFI:DEFCFUN ("ssytd2_" %%SSYTD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssytd2_" %%SSYTD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9518,17 +9598,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16706 ':INT32) (LDA-REF16708 ':INT32) - (INFO-REF16712 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16706 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16708 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16712 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16707 A) (D-REF16709 D) - (E-REF16710 E) (TAU-REF16711 TAU)) - (%%SSYTD2 UPLO N-REF16706 A-REF16707 LDA-REF16708 D-REF16709 E-REF16710 - TAU-REF16711 INFO-REF16712)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16721 ':INT32) (LDA-REF16723 ':INT32) + (INFO-REF16727 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16721 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16723 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16727 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16722 A) (D-REF16724 D) + (E-REF16725 E) (TAU-REF16726 TAU)) + (%%SSYTD2 UPLO N-REF16721 A-REF16722 LDA-REF16723 D-REF16724 E-REF16725 + TAU-REF16726 INFO-REF16727)))) -(CFFI:DEFCFUN ("ssytf2_" %%SSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssytf2_" %%SSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9549,17 +9629,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16714 ':INT32) (LDA-REF16716 ':INT32) - (INFO-REF16718 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16714 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16716 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16718 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16715 A) (IPIV-REF16717 IPIV)) - (%%SSYTF2 UPLO N-REF16714 A-REF16715 LDA-REF16716 IPIV-REF16717 - INFO-REF16718)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16729 ':INT32) (LDA-REF16731 ':INT32) + (INFO-REF16733 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16729 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16731 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16733 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16730 A) (IPIV-REF16732 IPIV)) + (%%SSYTF2 UPLO N-REF16729 A-REF16730 LDA-REF16731 IPIV-REF16732 + INFO-REF16733)))) (CFFI:DEFCFUN ("ssytf2_rk_" %%SSYTF2_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9583,18 +9663,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16720 ':INT32) (LDA-REF16722 ':INT32) - (INFO-REF16725 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16720 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16722 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16725 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16721 A) (E-REF16723 E) - (IPIV-REF16724 IPIV)) - (%%SSYTF2_RK UPLO N-REF16720 A-REF16721 LDA-REF16722 E-REF16723 - IPIV-REF16724 INFO-REF16725)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16735 ':INT32) (LDA-REF16737 ':INT32) + (INFO-REF16740 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16735 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16737 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16740 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16736 A) (E-REF16738 E) + (IPIV-REF16739 IPIV)) + (%%SSYTF2_RK UPLO N-REF16735 A-REF16736 LDA-REF16737 E-REF16738 + IPIV-REF16739 INFO-REF16740)))) (CFFI:DEFCFUN ("ssytf2_rook_" %%SSYTF2_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9615,16 +9695,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16727 ':INT32) (LDA-REF16729 ':INT32) - (INFO-REF16731 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16727 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16729 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16731 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16728 A) (IPIV-REF16730 IPIV)) - (%%SSYTF2_ROOK UPLO N-REF16727 A-REF16728 LDA-REF16729 IPIV-REF16730 - INFO-REF16731)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16742 ':INT32) (LDA-REF16744 ':INT32) + (INFO-REF16746 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16742 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16744 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16746 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16743 A) (IPIV-REF16745 IPIV)) + (%%SSYTF2_ROOK UPLO N-REF16742 A-REF16743 LDA-REF16744 IPIV-REF16745 + INFO-REF16746)))) -(CFFI:DEFCFUN ("ssytrd_" %%SSYTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssytrd_" %%SSYTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9656,20 +9736,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16733 ':INT32) (LDA-REF16735 ':INT32) - (LWORK-REF16740 ':INT32) (INFO-REF16741 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16733 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16735 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16740 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16741 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16734 A) (D-REF16736 D) - (E-REF16737 E) (TAU-REF16738 TAU) - (WORK-REF16739 WORK)) - (%%SSYTRD UPLO N-REF16733 A-REF16734 LDA-REF16735 D-REF16736 E-REF16737 - TAU-REF16738 WORK-REF16739 LWORK-REF16740 INFO-REF16741)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16748 ':INT32) (LDA-REF16750 ':INT32) + (LWORK-REF16755 ':INT32) (INFO-REF16756 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16748 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16750 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16755 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16756 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16749 A) (D-REF16751 D) + (E-REF16752 E) (TAU-REF16753 TAU) + (WORK-REF16754 WORK)) + (%%SSYTRD UPLO N-REF16748 A-REF16749 LDA-REF16750 D-REF16751 E-REF16752 + TAU-REF16753 WORK-REF16754 LWORK-REF16755 INFO-REF16756)))) (CFFI:DEFCFUN ("ssytrd_2stage_" %%SSYTRD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -9710,24 +9790,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16744 ':INT32) (LDA-REF16746 ':INT32) - (LHOUS2-REF16751 ':INT32) - (LWORK-REF16753 ':INT32) (INFO-REF16754 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16744 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16746 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF16751 :INT32) LHOUS2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16753 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16754 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16745 A) (D-REF16747 D) - (E-REF16748 E) (TAU-REF16749 TAU) - (HOUS2-REF16750 HOUS2) - (WORK-REF16752 WORK)) - (%%SSYTRD_2STAGE VECT UPLO N-REF16744 A-REF16745 LDA-REF16746 D-REF16747 - E-REF16748 TAU-REF16749 HOUS2-REF16750 LHOUS2-REF16751 - WORK-REF16752 LWORK-REF16753 INFO-REF16754)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16759 ':INT32) (LDA-REF16761 ':INT32) + (LHOUS2-REF16766 ':INT32) + (LWORK-REF16768 ':INT32) (INFO-REF16769 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16759 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16761 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF16766 :INT32) LHOUS2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16768 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16769 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16760 A) (D-REF16762 D) + (E-REF16763 E) (TAU-REF16764 TAU) + (HOUS2-REF16765 HOUS2) + (WORK-REF16767 WORK)) + (%%SSYTRD_2STAGE VECT UPLO N-REF16759 A-REF16760 LDA-REF16761 D-REF16762 + E-REF16763 TAU-REF16764 HOUS2-REF16765 LHOUS2-REF16766 WORK-REF16767 + LWORK-REF16768 INFO-REF16769)))) (CFFI:DEFCFUN ("ssytrd_sy2sb_" %%SSYTRD_SY2SB :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9760,23 +9840,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16756 ':INT32) (KD-REF16757 ':INT32) - (LDA-REF16759 ':INT32) (LDAB-REF16761 ':INT32) - (LWORK-REF16764 ':INT32) (INFO-REF16765 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16756 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16757 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16759 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16761 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16764 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16765 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16758 A) (AB-REF16760 AB) - (TAU-REF16762 TAU) - (WORK-REF16763 WORK)) - (%%SSYTRD_SY2SB UPLO N-REF16756 KD-REF16757 A-REF16758 LDA-REF16759 - AB-REF16760 LDAB-REF16761 TAU-REF16762 WORK-REF16763 - LWORK-REF16764 INFO-REF16765)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16771 ':INT32) (KD-REF16772 ':INT32) + (LDA-REF16774 ':INT32) (LDAB-REF16776 ':INT32) + (LWORK-REF16779 ':INT32) (INFO-REF16780 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16771 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16772 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16774 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16776 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16779 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16780 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16773 A) (AB-REF16775 AB) + (TAU-REF16777 TAU) + (WORK-REF16778 WORK)) + (%%SSYTRD_SY2SB UPLO N-REF16771 KD-REF16772 A-REF16773 LDA-REF16774 + AB-REF16775 LDAB-REF16776 TAU-REF16777 WORK-REF16778 LWORK-REF16779 + INFO-REF16780)))) -(CFFI:DEFCFUN ("ssytrf_" %%SSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssytrf_" %%SSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9803,19 +9883,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16767 ':INT32) (LDA-REF16769 ':INT32) - (LWORK-REF16772 ':INT32) (INFO-REF16773 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16767 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16769 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16772 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16773 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16768 A) (IPIV-REF16770 IPIV) - (WORK-REF16771 WORK)) - (%%SSYTRF UPLO N-REF16767 A-REF16768 LDA-REF16769 IPIV-REF16770 - WORK-REF16771 LWORK-REF16772 INFO-REF16773)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16782 ':INT32) (LDA-REF16784 ':INT32) + (LWORK-REF16787 ':INT32) (INFO-REF16788 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16782 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16784 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16787 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16788 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16783 A) (IPIV-REF16785 IPIV) + (WORK-REF16786 WORK)) + (%%SSYTRF UPLO N-REF16782 A-REF16783 LDA-REF16784 IPIV-REF16785 + WORK-REF16786 LWORK-REF16787 INFO-REF16788)))) (CFFI:DEFCFUN ("ssytrf_aa_" %%SSYTRF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9842,19 +9922,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16775 ':INT32) (LDA-REF16777 ':INT32) - (LWORK-REF16780 ':INT32) (INFO-REF16781 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16775 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16777 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16780 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16781 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16776 A) (IPIV-REF16778 IPIV) - (WORK-REF16779 WORK)) - (%%SSYTRF_AA UPLO N-REF16775 A-REF16776 LDA-REF16777 IPIV-REF16778 - WORK-REF16779 LWORK-REF16780 INFO-REF16781)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16790 ':INT32) (LDA-REF16792 ':INT32) + (LWORK-REF16795 ':INT32) (INFO-REF16796 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16790 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16792 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16795 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16796 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16791 A) (IPIV-REF16793 IPIV) + (WORK-REF16794 WORK)) + (%%SSYTRF_AA UPLO N-REF16790 A-REF16791 LDA-REF16792 IPIV-REF16793 + WORK-REF16794 LWORK-REF16795 INFO-REF16796)))) (CFFI:DEFCFUN ("ssytrf_aa_2stage_" %%SSYTRF_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9892,24 +9972,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16783 ':INT32) (LDA-REF16785 ':INT32) - (LTB-REF16787 ':INT32) (LWORK-REF16791 ':INT32) - (INFO-REF16792 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16783 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16785 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16787 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16791 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16792 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16784 A) (TB-REF16786 TB) - (IPIV-REF16788 IPIV) - (IPIV2-REF16789 IPIV2) - (WORK-REF16790 WORK)) - (%%SSYTRF_AA_2STAGE UPLO N-REF16783 A-REF16784 LDA-REF16785 TB-REF16786 - LTB-REF16787 IPIV-REF16788 IPIV2-REF16789 - WORK-REF16790 LWORK-REF16791 INFO-REF16792)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16798 ':INT32) (LDA-REF16800 ':INT32) + (LTB-REF16802 ':INT32) (LWORK-REF16806 ':INT32) + (INFO-REF16807 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16798 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16800 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16802 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16806 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16807 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16799 A) (TB-REF16801 TB) + (IPIV-REF16803 IPIV) + (IPIV2-REF16804 IPIV2) + (WORK-REF16805 WORK)) + (%%SSYTRF_AA_2STAGE UPLO N-REF16798 A-REF16799 LDA-REF16800 TB-REF16801 + LTB-REF16802 IPIV-REF16803 IPIV2-REF16804 WORK-REF16805 LWORK-REF16806 + INFO-REF16807)))) (CFFI:DEFCFUN ("ssytrf_rk_" %%SSYTRF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9939,20 +10019,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16794 ':INT32) (LDA-REF16796 ':INT32) - (LWORK-REF16800 ':INT32) (INFO-REF16801 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16794 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16796 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16800 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16801 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16795 A) (E-REF16797 E) - (IPIV-REF16798 IPIV) - (WORK-REF16799 WORK)) - (%%SSYTRF_RK UPLO N-REF16794 A-REF16795 LDA-REF16796 E-REF16797 - IPIV-REF16798 WORK-REF16799 LWORK-REF16800 INFO-REF16801)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16809 ':INT32) (LDA-REF16811 ':INT32) + (LWORK-REF16815 ':INT32) (INFO-REF16816 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16809 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16811 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16815 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16816 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16810 A) (E-REF16812 E) + (IPIV-REF16813 IPIV) + (WORK-REF16814 WORK)) + (%%SSYTRF_RK UPLO N-REF16809 A-REF16810 LDA-REF16811 E-REF16812 + IPIV-REF16813 WORK-REF16814 LWORK-REF16815 INFO-REF16816)))) (CFFI:DEFCFUN ("ssytrf_rook_" %%SSYTRF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9979,18 +10059,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16803 ':INT32) (LDA-REF16805 ':INT32) - (LWORK-REF16808 ':INT32) (INFO-REF16809 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16803 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16805 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16808 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16809 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16804 A) (IPIV-REF16806 IPIV) - (WORK-REF16807 WORK)) - (%%SSYTRF_ROOK UPLO N-REF16803 A-REF16804 LDA-REF16805 IPIV-REF16806 - WORK-REF16807 LWORK-REF16808 INFO-REF16809)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16818 ':INT32) (LDA-REF16820 ':INT32) + (LWORK-REF16823 ':INT32) (INFO-REF16824 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16818 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16820 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16823 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16824 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16819 A) (IPIV-REF16821 IPIV) + (WORK-REF16822 WORK)) + (%%SSYTRF_ROOK UPLO N-REF16818 A-REF16819 LDA-REF16820 IPIV-REF16821 + WORK-REF16822 LWORK-REF16823 INFO-REF16824)))) -(CFFI:DEFCFUN ("ssytri_" %%SSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssytri_" %%SSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10015,17 +10095,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16811 ':INT32) (LDA-REF16813 ':INT32) - (INFO-REF16816 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16811 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16813 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16816 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16812 A) (IPIV-REF16814 IPIV) - (WORK-REF16815 WORK)) - (%%SSYTRI UPLO N-REF16811 A-REF16812 LDA-REF16813 IPIV-REF16814 - WORK-REF16815 INFO-REF16816)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16826 ':INT32) (LDA-REF16828 ':INT32) + (INFO-REF16831 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16826 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16828 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16831 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16827 A) (IPIV-REF16829 IPIV) + (WORK-REF16830 WORK)) + (%%SSYTRI UPLO N-REF16826 A-REF16827 LDA-REF16828 IPIV-REF16829 + WORK-REF16830 INFO-REF16831)))) -(CFFI:DEFCFUN ("ssytri2_" %%SSYTRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssytri2_" %%SSYTRI2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10052,19 +10133,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16818 ':INT32) (LDA-REF16820 ':INT32) - (LWORK-REF16823 ':INT32) (INFO-REF16824 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16818 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16820 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16823 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16824 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16819 A) (IPIV-REF16821 IPIV) - (WORK-REF16822 WORK)) - (%%SSYTRI2 UPLO N-REF16818 A-REF16819 LDA-REF16820 IPIV-REF16821 - WORK-REF16822 LWORK-REF16823 INFO-REF16824)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16833 ':INT32) (LDA-REF16835 ':INT32) + (LWORK-REF16838 ':INT32) (INFO-REF16839 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16833 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16835 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16838 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16839 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16834 A) (IPIV-REF16836 IPIV) + (WORK-REF16837 WORK)) + (%%SSYTRI2 UPLO N-REF16833 A-REF16834 LDA-REF16835 IPIV-REF16836 + WORK-REF16837 LWORK-REF16838 INFO-REF16839)))) (CFFI:DEFCFUN ("ssytri2x_" %%SSYTRI2X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10091,19 +10172,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16826 ':INT32) (LDA-REF16828 ':INT32) - (NB-REF16831 ':INT32) (INFO-REF16832 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16826 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16828 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF16831 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16832 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16827 A) (IPIV-REF16829 IPIV) - (WORK-REF16830 WORK)) - (%%SSYTRI2X UPLO N-REF16826 A-REF16827 LDA-REF16828 IPIV-REF16829 - WORK-REF16830 NB-REF16831 INFO-REF16832)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16841 ':INT32) (LDA-REF16843 ':INT32) + (NB-REF16846 ':INT32) (INFO-REF16847 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16841 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16843 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF16846 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16847 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16842 A) (IPIV-REF16844 IPIV) + (WORK-REF16845 WORK)) + (%%SSYTRI2X UPLO N-REF16841 A-REF16842 LDA-REF16843 IPIV-REF16844 + WORK-REF16845 NB-REF16846 INFO-REF16847)))) (CFFI:DEFCFUN ("ssytri_3_" %%SSYTRI_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10133,20 +10214,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16834 ':INT32) (LDA-REF16836 ':INT32) - (LWORK-REF16840 ':INT32) (INFO-REF16841 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16834 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16836 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16840 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16841 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16835 A) (E-REF16837 E) - (IPIV-REF16838 IPIV) - (WORK-REF16839 WORK)) - (%%SSYTRI_3 UPLO N-REF16834 A-REF16835 LDA-REF16836 E-REF16837 - IPIV-REF16838 WORK-REF16839 LWORK-REF16840 INFO-REF16841)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16849 ':INT32) (LDA-REF16851 ':INT32) + (LWORK-REF16855 ':INT32) (INFO-REF16856 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16849 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16851 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16855 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16856 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16850 A) (E-REF16852 E) + (IPIV-REF16853 IPIV) + (WORK-REF16854 WORK)) + (%%SSYTRI_3 UPLO N-REF16849 A-REF16850 LDA-REF16851 E-REF16852 + IPIV-REF16853 WORK-REF16854 LWORK-REF16855 INFO-REF16856)))) (CFFI:DEFCFUN ("ssytri_3x_" %%SSYTRI_3X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10176,20 +10257,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16843 ':INT32) (LDA-REF16845 ':INT32) - (NB-REF16849 ':INT32) (INFO-REF16850 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16843 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16845 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF16849 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16850 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16844 A) (E-REF16846 E) - (IPIV-REF16847 IPIV) - (WORK-REF16848 WORK)) - (%%SSYTRI_3X UPLO N-REF16843 A-REF16844 LDA-REF16845 E-REF16846 - IPIV-REF16847 WORK-REF16848 NB-REF16849 INFO-REF16850)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16858 ':INT32) (LDA-REF16860 ':INT32) + (NB-REF16864 ':INT32) (INFO-REF16865 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16858 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16860 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF16864 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16865 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16859 A) (E-REF16861 E) + (IPIV-REF16862 IPIV) + (WORK-REF16863 WORK)) + (%%SSYTRI_3X UPLO N-REF16858 A-REF16859 LDA-REF16860 E-REF16861 + IPIV-REF16862 WORK-REF16863 NB-REF16864 INFO-REF16865)))) (CFFI:DEFCFUN ("ssytri_rook_" %%SSYTRI_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10214,17 +10295,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16852 ':INT32) (LDA-REF16854 ':INT32) - (INFO-REF16857 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16852 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16854 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16857 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16853 A) (IPIV-REF16855 IPIV) - (WORK-REF16856 WORK)) - (%%SSYTRI_ROOK UPLO N-REF16852 A-REF16853 LDA-REF16854 IPIV-REF16855 - WORK-REF16856 INFO-REF16857)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16867 ':INT32) (LDA-REF16869 ':INT32) + (INFO-REF16872 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16867 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16869 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16872 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16868 A) (IPIV-REF16870 IPIV) + (WORK-REF16871 WORK)) + (%%SSYTRI_ROOK UPLO N-REF16867 A-REF16868 LDA-REF16869 IPIV-REF16870 + WORK-REF16871 INFO-REF16872)))) -(CFFI:DEFCFUN ("ssytrs_" %%SSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssytrs_" %%SSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10252,20 +10333,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16859 ':INT32) (NRHS-REF16860 ':INT32) - (LDA-REF16862 ':INT32) (LDB-REF16865 ':INT32) - (INFO-REF16866 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16859 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16860 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16862 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16865 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16866 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16861 A) (IPIV-REF16863 IPIV) - (B-REF16864 B)) - (%%SSYTRS UPLO N-REF16859 NRHS-REF16860 A-REF16861 LDA-REF16862 - IPIV-REF16863 B-REF16864 LDB-REF16865 INFO-REF16866)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16874 ':INT32) (NRHS-REF16875 ':INT32) + (LDA-REF16877 ':INT32) (LDB-REF16880 ':INT32) + (INFO-REF16881 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16874 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16875 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16877 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16880 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16881 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16876 A) (IPIV-REF16878 IPIV) + (B-REF16879 B)) + (%%SSYTRS UPLO N-REF16874 NRHS-REF16875 A-REF16876 LDA-REF16877 + IPIV-REF16878 B-REF16879 LDB-REF16880 INFO-REF16881)))) -(CFFI:DEFCFUN ("ssytrs2_" %%SSYTRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ssytrs2_" %%SSYTRS2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10297,22 +10379,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16868 ':INT32) (NRHS-REF16869 ':INT32) - (LDA-REF16871 ':INT32) (LDB-REF16874 ':INT32) - (INFO-REF16876 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16868 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16869 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16871 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16874 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16876 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16870 A) (IPIV-REF16872 IPIV) - (B-REF16873 B) (WORK-REF16875 WORK)) - (%%SSYTRS2 UPLO N-REF16868 NRHS-REF16869 A-REF16870 LDA-REF16871 - IPIV-REF16872 B-REF16873 LDB-REF16874 WORK-REF16875 - INFO-REF16876)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16883 ':INT32) (NRHS-REF16884 ':INT32) + (LDA-REF16886 ':INT32) (LDB-REF16889 ':INT32) + (INFO-REF16891 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16883 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16884 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16886 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16889 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16891 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16885 A) (IPIV-REF16887 IPIV) + (B-REF16888 B) (WORK-REF16890 WORK)) + (%%SSYTRS2 UPLO N-REF16883 NRHS-REF16884 A-REF16885 LDA-REF16886 + IPIV-REF16887 B-REF16888 LDB-REF16889 WORK-REF16890 INFO-REF16891)))) (CFFI:DEFCFUN ("ssytrs_3_" %%SSYTRS_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10343,22 +10424,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16878 ':INT32) (NRHS-REF16879 ':INT32) - (LDA-REF16881 ':INT32) (LDB-REF16885 ':INT32) - (INFO-REF16886 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16878 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16879 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16881 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16885 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16886 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16880 A) (E-REF16882 E) - (IPIV-REF16883 IPIV) (B-REF16884 B)) - (%%SSYTRS_3 UPLO N-REF16878 NRHS-REF16879 A-REF16880 LDA-REF16881 - E-REF16882 IPIV-REF16883 B-REF16884 LDB-REF16885 - INFO-REF16886)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16893 ':INT32) (NRHS-REF16894 ':INT32) + (LDA-REF16896 ':INT32) (LDB-REF16900 ':INT32) + (INFO-REF16901 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16893 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16894 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16896 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16900 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16901 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16895 A) (E-REF16897 E) + (IPIV-REF16898 IPIV) (B-REF16899 B)) + (%%SSYTRS_3 UPLO N-REF16893 NRHS-REF16894 A-REF16895 LDA-REF16896 + E-REF16897 IPIV-REF16898 B-REF16899 LDB-REF16900 INFO-REF16901)))) (CFFI:DEFCFUN ("ssytrs_aa_" %%SSYTRS_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10392,23 +10472,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16888 ':INT32) (NRHS-REF16889 ':INT32) - (LDA-REF16891 ':INT32) (LDB-REF16894 ':INT32) - (LWORK-REF16896 ':INT32) (INFO-REF16897 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16888 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16889 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16891 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16894 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16896 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16897 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16890 A) (IPIV-REF16892 IPIV) - (B-REF16893 B) (WORK-REF16895 WORK)) - (%%SSYTRS_AA UPLO N-REF16888 NRHS-REF16889 A-REF16890 LDA-REF16891 - IPIV-REF16892 B-REF16893 LDB-REF16894 WORK-REF16895 - LWORK-REF16896 INFO-REF16897)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16903 ':INT32) (NRHS-REF16904 ':INT32) + (LDA-REF16906 ':INT32) (LDB-REF16909 ':INT32) + (LWORK-REF16911 ':INT32) (INFO-REF16912 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16903 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16904 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16906 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16909 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF16911 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16912 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16905 A) (IPIV-REF16907 IPIV) + (B-REF16908 B) (WORK-REF16910 WORK)) + (%%SSYTRS_AA UPLO N-REF16903 NRHS-REF16904 A-REF16905 LDA-REF16906 + IPIV-REF16907 B-REF16908 LDB-REF16909 WORK-REF16910 LWORK-REF16911 + INFO-REF16912)))) (CFFI:DEFCFUN ("ssytrs_aa_2stage_" %%SSYTRS_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10447,25 +10527,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16899 ':INT32) (NRHS-REF16900 ':INT32) - (LDA-REF16902 ':INT32) (LTB-REF16904 ':INT32) - (LDB-REF16908 ':INT32) (INFO-REF16909 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16899 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16900 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16902 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16904 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16908 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16909 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16901 A) (TB-REF16903 TB) - (IPIV-REF16905 IPIV) - (IPIV2-REF16906 IPIV2) - (B-REF16907 B)) - (%%SSYTRS_AA_2STAGE UPLO N-REF16899 NRHS-REF16900 A-REF16901 LDA-REF16902 - TB-REF16903 LTB-REF16904 IPIV-REF16905 IPIV2-REF16906 - B-REF16907 LDB-REF16908 INFO-REF16909)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16914 ':INT32) (NRHS-REF16915 ':INT32) + (LDA-REF16917 ':INT32) (LTB-REF16919 ':INT32) + (LDB-REF16923 ':INT32) (INFO-REF16924 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16914 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16915 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16917 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF16919 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16923 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16924 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16916 A) (TB-REF16918 TB) + (IPIV-REF16920 IPIV) + (IPIV2-REF16921 IPIV2) + (B-REF16922 B)) + (%%SSYTRS_AA_2STAGE UPLO N-REF16914 NRHS-REF16915 A-REF16916 LDA-REF16917 + TB-REF16918 LTB-REF16919 IPIV-REF16920 IPIV2-REF16921 B-REF16922 + LDB-REF16923 INFO-REF16924)))) (CFFI:DEFCFUN ("ssytrs_rook_" %%SSYTRS_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10493,20 +10573,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16911 ':INT32) (NRHS-REF16912 ':INT32) - (LDA-REF16914 ':INT32) (LDB-REF16917 ':INT32) - (INFO-REF16918 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16911 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16912 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16914 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16917 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16918 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16913 A) (IPIV-REF16915 IPIV) - (B-REF16916 B)) - (%%SSYTRS_ROOK UPLO N-REF16911 NRHS-REF16912 A-REF16913 LDA-REF16914 - IPIV-REF16915 B-REF16916 LDB-REF16917 INFO-REF16918)))) - -(CFFI:DEFCFUN ("stbcon_" %%STBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16926 ':INT32) (NRHS-REF16927 ':INT32) + (LDA-REF16929 ':INT32) (LDB-REF16932 ':INT32) + (INFO-REF16933 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16926 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16927 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16929 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16932 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16933 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16928 A) (IPIV-REF16930 IPIV) + (B-REF16931 B)) + (%%SSYTRS_ROOK UPLO N-REF16926 NRHS-REF16927 A-REF16928 LDA-REF16929 + IPIV-REF16930 B-REF16931 LDB-REF16932 INFO-REF16933)))) + +(CFFI:DEFCFUN ("stbcon_" %%STBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -10539,21 +10619,21 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16922 ':INT32) (KD-REF16923 ':INT32) - (LDAB-REF16925 ':INT32) (RCOND-REF16926 ':FLOAT) - (INFO-REF16929 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16922 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16923 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16925 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16926 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16929 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16924 AB) - (WORK-REF16927 WORK) - (IWORK-REF16928 IWORK)) - (%%STBCON NORM UPLO DIAG N-REF16922 KD-REF16923 AB-REF16924 LDAB-REF16925 - RCOND-REF16926 WORK-REF16927 IWORK-REF16928 INFO-REF16929)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16937 ':INT32) (KD-REF16938 ':INT32) + (LDAB-REF16940 ':INT32) (RCOND-REF16941 ':FLOAT) + (INFO-REF16944 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16937 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16938 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16940 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF16941 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16944 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16939 AB) + (WORK-REF16942 WORK) + (IWORK-REF16943 IWORK)) + (%%STBCON NORM UPLO DIAG N-REF16937 KD-REF16938 AB-REF16939 LDAB-REF16940 + RCOND-REF16941 WORK-REF16942 IWORK-REF16943 INFO-REF16944)))) -(CFFI:DEFCFUN ("stbrfs_" %%STBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stbrfs_" %%STBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10606,28 +10686,28 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16933 ':INT32) (KD-REF16934 ':INT32) - (NRHS-REF16935 ':INT32) (LDAB-REF16937 ':INT32) - (LDB-REF16939 ':INT32) (LDX-REF16941 ':INT32) - (INFO-REF16946 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16933 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16934 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16935 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16937 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16939 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16941 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16946 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16936 AB) (B-REF16938 B) - (X-REF16940 X) (FERR-REF16942 FERR) - (BERR-REF16943 BERR) - (WORK-REF16944 WORK) - (IWORK-REF16945 IWORK)) - (%%STBRFS UPLO TRANS DIAG N-REF16933 KD-REF16934 NRHS-REF16935 - AB-REF16936 LDAB-REF16937 B-REF16938 LDB-REF16939 X-REF16940 - LDX-REF16941 FERR-REF16942 BERR-REF16943 WORK-REF16944 - IWORK-REF16945 INFO-REF16946)))) - -(CFFI:DEFCFUN ("stbtrs_" %%STBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16948 ':INT32) (KD-REF16949 ':INT32) + (NRHS-REF16950 ':INT32) (LDAB-REF16952 ':INT32) + (LDB-REF16954 ':INT32) (LDX-REF16956 ':INT32) + (INFO-REF16961 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16948 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16949 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16950 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16952 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16954 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF16956 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16961 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16951 AB) (B-REF16953 B) + (X-REF16955 X) (FERR-REF16957 FERR) + (BERR-REF16958 BERR) + (WORK-REF16959 WORK) + (IWORK-REF16960 IWORK)) + (%%STBRFS UPLO TRANS DIAG N-REF16948 KD-REF16949 NRHS-REF16950 + AB-REF16951 LDAB-REF16952 B-REF16953 LDB-REF16954 X-REF16955 + LDX-REF16956 FERR-REF16957 BERR-REF16958 WORK-REF16959 IWORK-REF16960 + INFO-REF16961)))) + +(CFFI:DEFCFUN ("stbtrs_" %%STBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10656,21 +10736,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16950 ':INT32) (KD-REF16951 ':INT32) - (NRHS-REF16952 ':INT32) (LDAB-REF16954 ':INT32) - (LDB-REF16956 ':INT32) (INFO-REF16957 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16950 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16951 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16952 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16954 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16956 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16957 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16953 AB) (B-REF16955 B)) - (%%STBTRS UPLO TRANS DIAG N-REF16950 KD-REF16951 NRHS-REF16952 - AB-REF16953 LDAB-REF16954 B-REF16955 LDB-REF16956 - INFO-REF16957)))) - -(CFFI:DEFCFUN ("stfsm_" %%STFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16965 ':INT32) (KD-REF16966 ':INT32) + (NRHS-REF16967 ':INT32) (LDAB-REF16969 ':INT32) + (LDB-REF16971 ':INT32) (INFO-REF16972 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16965 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF16966 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF16967 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF16969 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16971 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16972 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF16968 AB) (B-REF16970 B)) + (%%STBTRS UPLO TRANS DIAG N-REF16965 KD-REF16966 NRHS-REF16967 + AB-REF16968 LDAB-REF16969 B-REF16970 LDB-REF16971 INFO-REF16972)))) + +(CFFI:DEFCFUN ("stfsm_" %%STFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (SIDE :STRING) @@ -10699,17 +10778,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16963 ':INT32) (N-REF16964 ':INT32) - (ALPHA-REF16965 ':FLOAT) (LDB-REF16968 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16963 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16964 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF16965 :FLOAT) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16968 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16966 A) (B-REF16967 B)) - (%%STFSM TRANSR SIDE UPLO TRANS DIAG M-REF16963 N-REF16964 ALPHA-REF16965 - A-REF16966 B-REF16967 LDB-REF16968)))) - -(CFFI:DEFCFUN ("stftri_" %%STFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF16978 ':INT32) (N-REF16979 ':INT32) + (ALPHA-REF16980 ':FLOAT) (LDB-REF16983 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF16978 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16979 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF16980 :FLOAT) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF16983 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16981 A) (B-REF16982 B)) + (%%STFSM TRANSR SIDE UPLO TRANS DIAG M-REF16978 N-REF16979 ALPHA-REF16980 + A-REF16981 B-REF16982 LDB-REF16983)))) + +(CFFI:DEFCFUN ("stftri_" %%STFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -10727,13 +10806,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16972 ':INT32) (INFO-REF16974 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16972 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16974 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16973 A)) - (%%STFTRI TRANSR UPLO DIAG N-REF16972 A-REF16973 INFO-REF16974)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16987 ':INT32) (INFO-REF16989 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16987 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16989 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF16988 A)) + (%%STFTRI TRANSR UPLO DIAG N-REF16987 A-REF16988 INFO-REF16989)))) -(CFFI:DEFCFUN ("stfttp_" %%STFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stfttp_" %%STFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -10753,14 +10832,14 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16977 ':INT32) (INFO-REF16980 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16977 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16980 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF16978 ARF) (AP-REF16979 AP)) - (%%STFTTP TRANSR UPLO N-REF16977 ARF-REF16978 AP-REF16979 - INFO-REF16980)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16992 ':INT32) (INFO-REF16995 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16992 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16995 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF16993 ARF) (AP-REF16994 AP)) + (%%STFTTP TRANSR UPLO N-REF16992 ARF-REF16993 AP-REF16994 + INFO-REF16995)))) -(CFFI:DEFCFUN ("stfttr_" %%STFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stfttr_" %%STFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -10782,16 +10861,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16983 ':INT32) (LDA-REF16986 ':INT32) - (INFO-REF16987 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16983 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF16986 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF16987 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF16984 ARF) (A-REF16985 A)) - (%%STFTTR TRANSR UPLO N-REF16983 ARF-REF16984 A-REF16985 LDA-REF16986 - INFO-REF16987)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16998 ':INT32) (LDA-REF17001 ':INT32) + (INFO-REF17002 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16998 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17001 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17002 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF16999 ARF) (A-REF17000 A)) + (%%STFTTR TRANSR UPLO N-REF16998 ARF-REF16999 A-REF17000 LDA-REF17001 + INFO-REF17002)))) -(CFFI:DEFCFUN ("stgevc_" %%STGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stgevc_" %%STGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -10839,28 +10918,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF16991 ':INT32) (LDS-REF16993 ':INT32) - (LDP-REF16995 ':INT32) (LDVL-REF16997 ':INT32) - (LDVR-REF16999 ':INT32) (MM-REF17000 ':INT32) - (M-REF17001 ':INT32) (INFO-REF17003 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF16991 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF16993 :INT32) LDS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF16995 :INT32) LDP) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF16997 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF16999 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17000 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17001 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17003 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF16990 SELECT) - (S-REF16992 S) (P-REF16994 P) - (VL-REF16996 VL) (VR-REF16998 VR) - (WORK-REF17002 WORK)) - (%%STGEVC SIDE HOWMNY SELECT-REF16990 N-REF16991 S-REF16992 LDS-REF16993 - P-REF16994 LDP-REF16995 VL-REF16996 LDVL-REF16997 VR-REF16998 - LDVR-REF16999 MM-REF17000 M-REF17001 WORK-REF17002 - INFO-REF17003)))) - -(CFFI:DEFCFUN ("stgex2_" %%STGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17006 ':INT32) (LDS-REF17008 ':INT32) + (LDP-REF17010 ':INT32) (LDVL-REF17012 ':INT32) + (LDVR-REF17014 ':INT32) (MM-REF17015 ':INT32) + (M-REF17016 ':INT32) (INFO-REF17018 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17006 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF17008 :INT32) LDS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF17010 :INT32) LDP) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17012 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17014 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17015 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17016 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17018 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17005 SELECT) + (S-REF17007 S) (P-REF17009 P) + (VL-REF17011 VL) (VR-REF17013 VR) + (WORK-REF17017 WORK)) + (%%STGEVC SIDE HOWMNY SELECT-REF17005 N-REF17006 S-REF17007 LDS-REF17008 + P-REF17009 LDP-REF17010 VL-REF17011 LDVL-REF17012 VR-REF17013 + LDVR-REF17014 MM-REF17015 M-REF17016 WORK-REF17017 INFO-REF17018)))) + +(CFFI:DEFCFUN ("stgex2_" %%STGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (WANTZ :POINTER) @@ -10907,33 +10985,33 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF17004 ':INT32) (WANTZ-REF17005 ':INT32) - (N-REF17006 ':INT32) (LDA-REF17008 ':INT32) - (LDB-REF17010 ':INT32) (LDQ-REF17012 ':INT32) - (LDZ-REF17014 ':INT32) (J1-REF17015 ':INT32) - (N1-REF17016 ':INT32) (N2-REF17017 ':INT32) - (LWORK-REF17019 ':INT32) (INFO-REF17020 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17004 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17005 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17006 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17008 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17010 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17012 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17014 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF17015 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF17016 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF17017 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17019 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17020 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17007 A) (B-REF17009 B) - (Q-REF17011 Q) (Z-REF17013 Z) - (WORK-REF17018 WORK)) - (%%STGEX2 WANTQ-REF17004 WANTZ-REF17005 N-REF17006 A-REF17007 - LDA-REF17008 B-REF17009 LDB-REF17010 Q-REF17011 LDQ-REF17012 - Z-REF17013 LDZ-REF17014 J1-REF17015 N1-REF17016 N2-REF17017 - WORK-REF17018 LWORK-REF17019 INFO-REF17020)))) - -(CFFI:DEFCFUN ("stgexc_" %%STGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF17019 ':INT32) (WANTZ-REF17020 ':INT32) + (N-REF17021 ':INT32) (LDA-REF17023 ':INT32) + (LDB-REF17025 ':INT32) (LDQ-REF17027 ':INT32) + (LDZ-REF17029 ':INT32) (J1-REF17030 ':INT32) + (N1-REF17031 ':INT32) (N2-REF17032 ':INT32) + (LWORK-REF17034 ':INT32) (INFO-REF17035 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17019 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17020 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17021 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17023 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17025 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17027 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17029 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF17030 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF17031 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF17032 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17034 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17035 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17022 A) (B-REF17024 B) + (Q-REF17026 Q) (Z-REF17028 Z) + (WORK-REF17033 WORK)) + (%%STGEX2 WANTQ-REF17019 WANTZ-REF17020 N-REF17021 A-REF17022 + LDA-REF17023 B-REF17024 LDB-REF17025 Q-REF17026 LDQ-REF17027 Z-REF17028 + LDZ-REF17029 J1-REF17030 N1-REF17031 N2-REF17032 WORK-REF17033 + LWORK-REF17034 INFO-REF17035)))) + +(CFFI:DEFCFUN ("stgexc_" %%STGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (WANTZ :POINTER) @@ -10978,32 +11056,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF17021 ':INT32) (WANTZ-REF17022 ':INT32) - (N-REF17023 ':INT32) (LDA-REF17025 ':INT32) - (LDB-REF17027 ':INT32) (LDQ-REF17029 ':INT32) - (LDZ-REF17031 ':INT32) (IFST-REF17032 ':INT32) - (ILST-REF17033 ':INT32) (LWORK-REF17035 ':INT32) - (INFO-REF17036 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17021 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17022 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17023 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17025 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17027 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17029 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17031 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF17032 :INT32) IFST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF17033 :INT32) ILST) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17035 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17036 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17024 A) (B-REF17026 B) - (Q-REF17028 Q) (Z-REF17030 Z) - (WORK-REF17034 WORK)) - (%%STGEXC WANTQ-REF17021 WANTZ-REF17022 N-REF17023 A-REF17024 - LDA-REF17025 B-REF17026 LDB-REF17027 Q-REF17028 LDQ-REF17029 - Z-REF17030 LDZ-REF17031 IFST-REF17032 ILST-REF17033 - WORK-REF17034 LWORK-REF17035 INFO-REF17036)))) - -(CFFI:DEFCFUN ("stgsen_" %%STGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF17036 ':INT32) (WANTZ-REF17037 ':INT32) + (N-REF17038 ':INT32) (LDA-REF17040 ':INT32) + (LDB-REF17042 ':INT32) (LDQ-REF17044 ':INT32) + (LDZ-REF17046 ':INT32) (IFST-REF17047 ':INT32) + (ILST-REF17048 ':INT32) (LWORK-REF17050 ':INT32) + (INFO-REF17051 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17036 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17037 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17038 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17040 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17042 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17044 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17046 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF17047 :INT32) IFST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF17048 :INT32) ILST) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17050 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17051 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17039 A) (B-REF17041 B) + (Q-REF17043 Q) (Z-REF17045 Z) + (WORK-REF17049 WORK)) + (%%STGEXC WANTQ-REF17036 WANTZ-REF17037 N-REF17038 A-REF17039 + LDA-REF17040 B-REF17041 LDB-REF17042 Q-REF17043 LDQ-REF17044 Z-REF17045 + LDZ-REF17046 IFST-REF17047 ILST-REF17048 WORK-REF17049 LWORK-REF17050 + INFO-REF17051)))) + +(CFFI:DEFCFUN ("stgsen_" %%STGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (WANTQ :POINTER) @@ -11080,43 +11158,43 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17037 ':INT32) (WANTQ-REF17038 ':INT32) - (WANTZ-REF17039 ':INT32) (N-REF17041 ':INT32) - (LDA-REF17043 ':INT32) (LDB-REF17045 ':INT32) - (LDQ-REF17050 ':INT32) (LDZ-REF17052 ':INT32) - (M-REF17053 ':INT32) (PL-REF17054 ':FLOAT) - (PR-REF17055 ':FLOAT) (LWORK-REF17058 ':INT32) - (LIWORK-REF17060 ':INT32) (INFO-REF17061 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17037 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17038 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17039 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17041 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17043 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17045 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17050 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17052 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17053 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF17054 :FLOAT) PL) - (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF17055 :FLOAT) PR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17058 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF17060 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17061 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17040 SELECT) - (A-REF17042 A) (B-REF17044 B) - (ALPHAR-REF17046 ALPHAR) - (ALPHAI-REF17047 ALPHAI) - (BETA-REF17048 BETA) (Q-REF17049 Q) - (Z-REF17051 Z) (DIF-REF17056 DIF) - (WORK-REF17057 WORK) - (IWORK-REF17059 IWORK)) - (%%STGSEN IJOB-REF17037 WANTQ-REF17038 WANTZ-REF17039 SELECT-REF17040 - N-REF17041 A-REF17042 LDA-REF17043 B-REF17044 LDB-REF17045 - ALPHAR-REF17046 ALPHAI-REF17047 BETA-REF17048 Q-REF17049 - LDQ-REF17050 Z-REF17051 LDZ-REF17052 M-REF17053 PL-REF17054 - PR-REF17055 DIF-REF17056 WORK-REF17057 LWORK-REF17058 - IWORK-REF17059 LIWORK-REF17060 INFO-REF17061)))) - -(CFFI:DEFCFUN ("stgsja_" %%STGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17052 ':INT32) (WANTQ-REF17053 ':INT32) + (WANTZ-REF17054 ':INT32) (N-REF17056 ':INT32) + (LDA-REF17058 ':INT32) (LDB-REF17060 ':INT32) + (LDQ-REF17065 ':INT32) (LDZ-REF17067 ':INT32) + (M-REF17068 ':INT32) (PL-REF17069 ':FLOAT) + (PR-REF17070 ':FLOAT) (LWORK-REF17073 ':INT32) + (LIWORK-REF17075 ':INT32) (INFO-REF17076 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17052 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF17053 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF17054 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17056 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17058 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17060 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17065 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF17067 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17068 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF17069 :FLOAT) PL) + (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF17070 :FLOAT) PR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17073 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF17075 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17076 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17055 SELECT) + (A-REF17057 A) (B-REF17059 B) + (ALPHAR-REF17061 ALPHAR) + (ALPHAI-REF17062 ALPHAI) + (BETA-REF17063 BETA) (Q-REF17064 Q) + (Z-REF17066 Z) (DIF-REF17071 DIF) + (WORK-REF17072 WORK) + (IWORK-REF17074 IWORK)) + (%%STGSEN IJOB-REF17052 WANTQ-REF17053 WANTZ-REF17054 SELECT-REF17055 + N-REF17056 A-REF17057 LDA-REF17058 B-REF17059 LDB-REF17060 + ALPHAR-REF17061 ALPHAI-REF17062 BETA-REF17063 Q-REF17064 LDQ-REF17065 + Z-REF17066 LDZ-REF17067 M-REF17068 PL-REF17069 PR-REF17070 DIF-REF17071 + WORK-REF17072 LWORK-REF17073 IWORK-REF17074 LIWORK-REF17075 + INFO-REF17076)))) + +(CFFI:DEFCFUN ("stgsja_" %%STGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -11184,39 +11262,39 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17065 ':INT32) (P-REF17066 ':INT32) - (N-REF17067 ':INT32) (K-REF17068 ':INT32) - (L-REF17069 ':INT32) (LDA-REF17071 ':INT32) - (LDB-REF17073 ':INT32) (TOLA-REF17074 ':FLOAT) - (TOLB-REF17075 ':FLOAT) (LDU-REF17079 ':INT32) - (LDV-REF17081 ':INT32) (LDQ-REF17083 ':INT32) - (NCYCLE-REF17085 ':INT32) (INFO-REF17086 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17065 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17066 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17067 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17068 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17069 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17071 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17073 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF17074 :FLOAT) TOLA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF17075 :FLOAT) TOLB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17079 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17081 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17083 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF17085 :INT32) NCYCLE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17086 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17070 A) (B-REF17072 B) - (ALPHA-REF17076 ALPHA) - (BETA-REF17077 BETA) (U-REF17078 U) - (V-REF17080 V) (Q-REF17082 Q) - (WORK-REF17084 WORK)) - (%%STGSJA JOBU JOBV JOBQ M-REF17065 P-REF17066 N-REF17067 K-REF17068 - L-REF17069 A-REF17070 LDA-REF17071 B-REF17072 LDB-REF17073 - TOLA-REF17074 TOLB-REF17075 ALPHA-REF17076 BETA-REF17077 - U-REF17078 LDU-REF17079 V-REF17080 LDV-REF17081 Q-REF17082 - LDQ-REF17083 WORK-REF17084 NCYCLE-REF17085 INFO-REF17086)))) - -(CFFI:DEFCFUN ("stgsna_" %%STGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17080 ':INT32) (P-REF17081 ':INT32) + (N-REF17082 ':INT32) (K-REF17083 ':INT32) + (L-REF17084 ':INT32) (LDA-REF17086 ':INT32) + (LDB-REF17088 ':INT32) (TOLA-REF17089 ':FLOAT) + (TOLB-REF17090 ':FLOAT) (LDU-REF17094 ':INT32) + (LDV-REF17096 ':INT32) (LDQ-REF17098 ':INT32) + (NCYCLE-REF17100 ':INT32) (INFO-REF17101 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17080 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17081 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17082 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17083 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17084 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17086 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17088 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF17089 :FLOAT) TOLA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF17090 :FLOAT) TOLB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17094 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17096 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17098 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF17100 :INT32) NCYCLE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17101 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17085 A) (B-REF17087 B) + (ALPHA-REF17091 ALPHA) + (BETA-REF17092 BETA) (U-REF17093 U) + (V-REF17095 V) (Q-REF17097 Q) + (WORK-REF17099 WORK)) + (%%STGSJA JOBU JOBV JOBQ M-REF17080 P-REF17081 N-REF17082 K-REF17083 + L-REF17084 A-REF17085 LDA-REF17086 B-REF17087 LDB-REF17088 TOLA-REF17089 + TOLB-REF17090 ALPHA-REF17091 BETA-REF17092 U-REF17093 LDU-REF17094 + V-REF17095 LDV-REF17096 Q-REF17097 LDQ-REF17098 WORK-REF17099 + NCYCLE-REF17100 INFO-REF17101)))) + +(CFFI:DEFCFUN ("stgsna_" %%STGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (HOWMNY :STRING) @@ -11278,32 +11356,32 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17090 ':INT32) (LDA-REF17092 ':INT32) - (LDB-REF17094 ':INT32) (LDVL-REF17096 ':INT32) - (LDVR-REF17098 ':INT32) (MM-REF17101 ':INT32) - (M-REF17102 ':INT32) (LWORK-REF17104 ':INT32) - (INFO-REF17106 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17090 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17092 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17094 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17096 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17098 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17101 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17102 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17104 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17106 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17089 SELECT) - (A-REF17091 A) (B-REF17093 B) - (VL-REF17095 VL) (VR-REF17097 VR) - (S-REF17099 S) (DIF-REF17100 DIF) - (WORK-REF17103 WORK) - (IWORK-REF17105 IWORK)) - (%%STGSNA JOB HOWMNY SELECT-REF17089 N-REF17090 A-REF17091 LDA-REF17092 - B-REF17093 LDB-REF17094 VL-REF17095 LDVL-REF17096 VR-REF17097 - LDVR-REF17098 S-REF17099 DIF-REF17100 MM-REF17101 M-REF17102 - WORK-REF17103 LWORK-REF17104 IWORK-REF17105 INFO-REF17106)))) - -(CFFI:DEFCFUN ("stgsy2_" %%STGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17105 ':INT32) (LDA-REF17107 ':INT32) + (LDB-REF17109 ':INT32) (LDVL-REF17111 ':INT32) + (LDVR-REF17113 ':INT32) (MM-REF17116 ':INT32) + (M-REF17117 ':INT32) (LWORK-REF17119 ':INT32) + (INFO-REF17121 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17105 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17107 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17109 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17111 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17113 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17116 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17117 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17119 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17121 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17104 SELECT) + (A-REF17106 A) (B-REF17108 B) + (VL-REF17110 VL) (VR-REF17112 VR) + (S-REF17114 S) (DIF-REF17115 DIF) + (WORK-REF17118 WORK) + (IWORK-REF17120 IWORK)) + (%%STGSNA JOB HOWMNY SELECT-REF17104 N-REF17105 A-REF17106 LDA-REF17107 + B-REF17108 LDB-REF17109 VL-REF17110 LDVL-REF17111 VR-REF17112 + LDVR-REF17113 S-REF17114 DIF-REF17115 MM-REF17116 M-REF17117 + WORK-REF17118 LWORK-REF17119 IWORK-REF17120 INFO-REF17121)))) + +(CFFI:DEFCFUN ("stgsy2_" %%STGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (IJOB :POINTER) @@ -11363,39 +11441,39 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PQ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17108 ':INT32) (M-REF17109 ':INT32) - (N-REF17110 ':INT32) (LDA-REF17112 ':INT32) - (LDB-REF17114 ':INT32) (LDC-REF17116 ':INT32) - (LDD-REF17118 ':INT32) (LDE-REF17120 ':INT32) - (LDF-REF17122 ':INT32) (SCALE-REF17123 ':FLOAT) - (RDSUM-REF17124 ':FLOAT) - (RDSCAL-REF17125 ':FLOAT) (PQ-REF17127 ':INT32) - (INFO-REF17128 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17108 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17109 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17110 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17112 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17114 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17116 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF17118 :INT32) LDD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF17120 :INT32) LDE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF17122 :INT32) LDF) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17123 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF17124 :FLOAT) RDSUM) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF17125 :FLOAT) RDSCAL) - (COMMON-LISP:SETF (CFFI:MEM-REF PQ-REF17127 :INT32) PQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17128 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17111 A) (B-REF17113 B) - (C-REF17115 C) (D-REF17117 D) - (E-REF17119 E) (F-REF17121 F) - (IWORK-REF17126 IWORK)) - (%%STGSY2 TRANS IJOB-REF17108 M-REF17109 N-REF17110 A-REF17111 - LDA-REF17112 B-REF17113 LDB-REF17114 C-REF17115 LDC-REF17116 - D-REF17117 LDD-REF17118 E-REF17119 LDE-REF17120 F-REF17121 - LDF-REF17122 SCALE-REF17123 RDSUM-REF17124 RDSCAL-REF17125 - IWORK-REF17126 PQ-REF17127 INFO-REF17128)))) - -(CFFI:DEFCFUN ("stgsyl_" %%STGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17123 ':INT32) (M-REF17124 ':INT32) + (N-REF17125 ':INT32) (LDA-REF17127 ':INT32) + (LDB-REF17129 ':INT32) (LDC-REF17131 ':INT32) + (LDD-REF17133 ':INT32) (LDE-REF17135 ':INT32) + (LDF-REF17137 ':INT32) (SCALE-REF17138 ':FLOAT) + (RDSUM-REF17139 ':FLOAT) + (RDSCAL-REF17140 ':FLOAT) (PQ-REF17142 ':INT32) + (INFO-REF17143 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17123 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17124 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17125 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17127 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17129 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17131 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF17133 :INT32) LDD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF17135 :INT32) LDE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF17137 :INT32) LDF) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17138 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF17139 :FLOAT) RDSUM) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF17140 :FLOAT) RDSCAL) + (COMMON-LISP:SETF (CFFI:MEM-REF PQ-REF17142 :INT32) PQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17143 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17126 A) (B-REF17128 B) + (C-REF17130 C) (D-REF17132 D) + (E-REF17134 E) (F-REF17136 F) + (IWORK-REF17141 IWORK)) + (%%STGSY2 TRANS IJOB-REF17123 M-REF17124 N-REF17125 A-REF17126 + LDA-REF17127 B-REF17128 LDB-REF17129 C-REF17130 LDC-REF17131 D-REF17132 + LDD-REF17133 E-REF17134 LDE-REF17135 F-REF17136 LDF-REF17137 + SCALE-REF17138 RDSUM-REF17139 RDSCAL-REF17140 IWORK-REF17141 PQ-REF17142 + INFO-REF17143)))) + +(CFFI:DEFCFUN ("stgsyl_" %%STGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (IJOB :POINTER) @@ -11457,38 +11535,38 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17130 ':INT32) (M-REF17131 ':INT32) - (N-REF17132 ':INT32) (LDA-REF17134 ':INT32) - (LDB-REF17136 ':INT32) (LDC-REF17138 ':INT32) - (LDD-REF17140 ':INT32) (LDE-REF17142 ':INT32) - (LDF-REF17144 ':INT32) (SCALE-REF17145 ':FLOAT) - (DIF-REF17146 ':FLOAT) (LWORK-REF17148 ':INT32) - (INFO-REF17150 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17130 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17131 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17132 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17134 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17136 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17138 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF17140 :INT32) LDD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF17142 :INT32) LDE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF17144 :INT32) LDF) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17145 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF17146 :FLOAT) DIF) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17148 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17150 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17133 A) (B-REF17135 B) - (C-REF17137 C) (D-REF17139 D) - (E-REF17141 E) (F-REF17143 F) - (WORK-REF17147 WORK) - (IWORK-REF17149 IWORK)) - (%%STGSYL TRANS IJOB-REF17130 M-REF17131 N-REF17132 A-REF17133 - LDA-REF17134 B-REF17135 LDB-REF17136 C-REF17137 LDC-REF17138 - D-REF17139 LDD-REF17140 E-REF17141 LDE-REF17142 F-REF17143 - LDF-REF17144 SCALE-REF17145 DIF-REF17146 WORK-REF17147 - LWORK-REF17148 IWORK-REF17149 INFO-REF17150)))) - -(CFFI:DEFCFUN ("stpcon_" %%STPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF17145 ':INT32) (M-REF17146 ':INT32) + (N-REF17147 ':INT32) (LDA-REF17149 ':INT32) + (LDB-REF17151 ':INT32) (LDC-REF17153 ':INT32) + (LDD-REF17155 ':INT32) (LDE-REF17157 ':INT32) + (LDF-REF17159 ':INT32) (SCALE-REF17160 ':FLOAT) + (DIF-REF17161 ':FLOAT) (LWORK-REF17163 ':INT32) + (INFO-REF17165 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF17145 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17146 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17147 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17149 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17151 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17153 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF17155 :INT32) LDD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF17157 :INT32) LDE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF17159 :INT32) LDF) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17160 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF17161 :FLOAT) DIF) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17163 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17165 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17148 A) (B-REF17150 B) + (C-REF17152 C) (D-REF17154 D) + (E-REF17156 E) (F-REF17158 F) + (WORK-REF17162 WORK) + (IWORK-REF17164 IWORK)) + (%%STGSYL TRANS IJOB-REF17145 M-REF17146 N-REF17147 A-REF17148 + LDA-REF17149 B-REF17150 LDB-REF17151 C-REF17152 LDC-REF17153 D-REF17154 + LDD-REF17155 E-REF17156 LDE-REF17157 F-REF17158 LDF-REF17159 + SCALE-REF17160 DIF-REF17161 WORK-REF17162 LWORK-REF17163 IWORK-REF17164 + INFO-REF17165)))) + +(CFFI:DEFCFUN ("stpcon_" %%STPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -11517,18 +11595,18 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17154 ':INT32) (RCOND-REF17156 ':FLOAT) - (INFO-REF17159 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17154 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17156 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17159 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17155 AP) - (WORK-REF17157 WORK) - (IWORK-REF17158 IWORK)) - (%%STPCON NORM UPLO DIAG N-REF17154 AP-REF17155 RCOND-REF17156 - WORK-REF17157 IWORK-REF17158 INFO-REF17159)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17169 ':INT32) (RCOND-REF17171 ':FLOAT) + (INFO-REF17174 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17169 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17171 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17174 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17170 AP) + (WORK-REF17172 WORK) + (IWORK-REF17173 IWORK)) + (%%STPCON NORM UPLO DIAG N-REF17169 AP-REF17170 RCOND-REF17171 + WORK-REF17172 IWORK-REF17173 INFO-REF17174)))) -(CFFI:DEFCFUN ("stplqt_" %%STPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stplqt_" %%STPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11562,25 +11640,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17160 ':INT32) (N-REF17161 ':INT32) - (L-REF17162 ':INT32) (MB-REF17163 ':INT32) - (LDA-REF17165 ':INT32) (LDB-REF17167 ':INT32) - (LDT-REF17169 ':INT32) (INFO-REF17171 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17160 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17161 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17162 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17163 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17165 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17167 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17169 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17171 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17164 A) (B-REF17166 B) - (T-REF17168 T) (WORK-REF17170 WORK)) - (%%STPLQT M-REF17160 N-REF17161 L-REF17162 MB-REF17163 A-REF17164 - LDA-REF17165 B-REF17166 LDB-REF17167 T-REF17168 LDT-REF17169 - WORK-REF17170 INFO-REF17171)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17175 ':INT32) (N-REF17176 ':INT32) + (L-REF17177 ':INT32) (MB-REF17178 ':INT32) + (LDA-REF17180 ':INT32) (LDB-REF17182 ':INT32) + (LDT-REF17184 ':INT32) (INFO-REF17186 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17175 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17176 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17177 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17178 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17180 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17182 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17184 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17186 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17179 A) (B-REF17181 B) + (T-REF17183 T) (WORK-REF17185 WORK)) + (%%STPLQT M-REF17175 N-REF17176 L-REF17177 MB-REF17178 A-REF17179 + LDA-REF17180 B-REF17181 LDB-REF17182 T-REF17183 LDT-REF17184 + WORK-REF17185 INFO-REF17186)))) -(CFFI:DEFCFUN ("stplqt2_" %%STPLQT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stplqt2_" %%STPLQT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11608,24 +11687,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17172 ':INT32) (N-REF17173 ':INT32) - (L-REF17174 ':INT32) (LDA-REF17176 ':INT32) - (LDB-REF17178 ':INT32) (LDT-REF17180 ':INT32) - (INFO-REF17181 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17172 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17173 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17174 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17176 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17178 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17180 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17181 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17175 A) (B-REF17177 B) - (T-REF17179 T)) - (%%STPLQT2 M-REF17172 N-REF17173 L-REF17174 A-REF17175 LDA-REF17176 - B-REF17177 LDB-REF17178 T-REF17179 LDT-REF17180 - INFO-REF17181)))) - -(CFFI:DEFCFUN ("stpmlqt_" %%STPMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17187 ':INT32) (N-REF17188 ':INT32) + (L-REF17189 ':INT32) (LDA-REF17191 ':INT32) + (LDB-REF17193 ':INT32) (LDT-REF17195 ':INT32) + (INFO-REF17196 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17187 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17188 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17189 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17191 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17193 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17195 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17196 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17190 A) (B-REF17192 B) + (T-REF17194 T)) + (%%STPLQT2 M-REF17187 N-REF17188 L-REF17189 A-REF17190 LDA-REF17191 + B-REF17192 LDB-REF17193 T-REF17194 LDT-REF17195 INFO-REF17196)))) + +(CFFI:DEFCFUN ("stpmlqt_" %%STPMLQT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -11671,30 +11750,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17184 ':INT32) (N-REF17185 ':INT32) - (K-REF17186 ':INT32) (L-REF17187 ':INT32) - (MB-REF17188 ':INT32) (LDV-REF17190 ':INT32) - (LDT-REF17192 ':INT32) (LDA-REF17194 ':INT32) - (LDB-REF17196 ':INT32) (INFO-REF17198 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17184 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17185 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17186 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17187 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17188 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17190 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17192 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17194 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17196 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17198 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17189 V) (T-REF17191 T) - (A-REF17193 A) (B-REF17195 B) - (WORK-REF17197 WORK)) - (%%STPMLQT SIDE TRANS M-REF17184 N-REF17185 K-REF17186 L-REF17187 - MB-REF17188 V-REF17189 LDV-REF17190 T-REF17191 LDT-REF17192 - A-REF17193 LDA-REF17194 B-REF17195 LDB-REF17196 WORK-REF17197 - INFO-REF17198)))) - -(CFFI:DEFCFUN ("stpmqrt_" %%STPMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17199 ':INT32) (N-REF17200 ':INT32) + (K-REF17201 ':INT32) (L-REF17202 ':INT32) + (MB-REF17203 ':INT32) (LDV-REF17205 ':INT32) + (LDT-REF17207 ':INT32) (LDA-REF17209 ':INT32) + (LDB-REF17211 ':INT32) (INFO-REF17213 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17199 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17200 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17201 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17202 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17203 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17205 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17207 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17209 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17211 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17213 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17204 V) (T-REF17206 T) + (A-REF17208 A) (B-REF17210 B) + (WORK-REF17212 WORK)) + (%%STPMLQT SIDE TRANS M-REF17199 N-REF17200 K-REF17201 L-REF17202 + MB-REF17203 V-REF17204 LDV-REF17205 T-REF17206 LDT-REF17207 A-REF17208 + LDA-REF17209 B-REF17210 LDB-REF17211 WORK-REF17212 INFO-REF17213)))) + +(CFFI:DEFCFUN ("stpmqrt_" %%STPMQRT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -11740,30 +11819,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17201 ':INT32) (N-REF17202 ':INT32) - (K-REF17203 ':INT32) (L-REF17204 ':INT32) - (NB-REF17205 ':INT32) (LDV-REF17207 ':INT32) - (LDT-REF17209 ':INT32) (LDA-REF17211 ':INT32) - (LDB-REF17213 ':INT32) (INFO-REF17215 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17201 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17202 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17203 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17204 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF17205 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17207 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17209 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17211 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17213 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17215 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17206 V) (T-REF17208 T) - (A-REF17210 A) (B-REF17212 B) - (WORK-REF17214 WORK)) - (%%STPMQRT SIDE TRANS M-REF17201 N-REF17202 K-REF17203 L-REF17204 - NB-REF17205 V-REF17206 LDV-REF17207 T-REF17208 LDT-REF17209 - A-REF17210 LDA-REF17211 B-REF17212 LDB-REF17213 WORK-REF17214 - INFO-REF17215)))) - -(CFFI:DEFCFUN ("stpqrt_" %%STPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17216 ':INT32) (N-REF17217 ':INT32) + (K-REF17218 ':INT32) (L-REF17219 ':INT32) + (NB-REF17220 ':INT32) (LDV-REF17222 ':INT32) + (LDT-REF17224 ':INT32) (LDA-REF17226 ':INT32) + (LDB-REF17228 ':INT32) (INFO-REF17230 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17216 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17217 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17218 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17219 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF17220 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17222 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17224 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17226 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17228 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17230 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17221 V) (T-REF17223 T) + (A-REF17225 A) (B-REF17227 B) + (WORK-REF17229 WORK)) + (%%STPMQRT SIDE TRANS M-REF17216 N-REF17217 K-REF17218 L-REF17219 + NB-REF17220 V-REF17221 LDV-REF17222 T-REF17223 LDT-REF17224 A-REF17225 + LDA-REF17226 B-REF17227 LDB-REF17228 WORK-REF17229 INFO-REF17230)))) + +(CFFI:DEFCFUN ("stpqrt_" %%STPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11797,25 +11875,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17216 ':INT32) (N-REF17217 ':INT32) - (L-REF17218 ':INT32) (NB-REF17219 ':INT32) - (LDA-REF17221 ':INT32) (LDB-REF17223 ':INT32) - (LDT-REF17225 ':INT32) (INFO-REF17227 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17216 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17217 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17218 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF17219 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17221 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17223 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17225 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17227 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17220 A) (B-REF17222 B) - (T-REF17224 T) (WORK-REF17226 WORK)) - (%%STPQRT M-REF17216 N-REF17217 L-REF17218 NB-REF17219 A-REF17220 - LDA-REF17221 B-REF17222 LDB-REF17223 T-REF17224 LDT-REF17225 - WORK-REF17226 INFO-REF17227)))) - -(CFFI:DEFCFUN ("stpqrt2_" %%STPQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17231 ':INT32) (N-REF17232 ':INT32) + (L-REF17233 ':INT32) (NB-REF17234 ':INT32) + (LDA-REF17236 ':INT32) (LDB-REF17238 ':INT32) + (LDT-REF17240 ':INT32) (INFO-REF17242 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17231 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17232 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17233 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF17234 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17236 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17238 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17240 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17242 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17235 A) (B-REF17237 B) + (T-REF17239 T) (WORK-REF17241 WORK)) + (%%STPQRT M-REF17231 N-REF17232 L-REF17233 NB-REF17234 A-REF17235 + LDA-REF17236 B-REF17237 LDB-REF17238 T-REF17239 LDT-REF17240 + WORK-REF17241 INFO-REF17242)))) + +(CFFI:DEFCFUN ("stpqrt2_" %%STPQRT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11843,24 +11922,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17228 ':INT32) (N-REF17229 ':INT32) - (L-REF17230 ':INT32) (LDA-REF17232 ':INT32) - (LDB-REF17234 ':INT32) (LDT-REF17236 ':INT32) - (INFO-REF17237 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17228 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17229 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17230 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17232 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17234 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17236 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17237 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17231 A) (B-REF17233 B) - (T-REF17235 T)) - (%%STPQRT2 M-REF17228 N-REF17229 L-REF17230 A-REF17231 LDA-REF17232 - B-REF17233 LDB-REF17234 T-REF17235 LDT-REF17236 - INFO-REF17237)))) - -(CFFI:DEFCFUN ("stprfb_" %%STPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17243 ':INT32) (N-REF17244 ':INT32) + (L-REF17245 ':INT32) (LDA-REF17247 ':INT32) + (LDB-REF17249 ':INT32) (LDT-REF17251 ':INT32) + (INFO-REF17252 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17243 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17244 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17245 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17247 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17249 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17251 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17252 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17246 A) (B-REF17248 B) + (T-REF17250 T)) + (%%STPQRT2 M-REF17243 N-REF17244 L-REF17245 A-REF17246 LDA-REF17247 + B-REF17248 LDB-REF17249 T-REF17250 LDT-REF17251 INFO-REF17252)))) + +(CFFI:DEFCFUN ("stprfb_" %%STPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -11909,29 +11987,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17242 ':INT32) (N-REF17243 ':INT32) - (K-REF17244 ':INT32) (L-REF17245 ':INT32) - (LDV-REF17247 ':INT32) (LDT-REF17249 ':INT32) - (LDA-REF17251 ':INT32) (LDB-REF17253 ':INT32) - (LDWORK-REF17255 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17242 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17243 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17244 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17245 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17247 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17249 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17251 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17253 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17255 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17246 V) (T-REF17248 T) - (A-REF17250 A) (B-REF17252 B) - (WORK-REF17254 WORK)) - (%%STPRFB SIDE TRANS DIRECT STOREV M-REF17242 N-REF17243 K-REF17244 - L-REF17245 V-REF17246 LDV-REF17247 T-REF17248 LDT-REF17249 - A-REF17250 LDA-REF17251 B-REF17252 LDB-REF17253 WORK-REF17254 - LDWORK-REF17255)))) - -(CFFI:DEFCFUN ("stprfs_" %%STPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17257 ':INT32) (N-REF17258 ':INT32) + (K-REF17259 ':INT32) (L-REF17260 ':INT32) + (LDV-REF17262 ':INT32) (LDT-REF17264 ':INT32) + (LDA-REF17266 ':INT32) (LDB-REF17268 ':INT32) + (LDWORK-REF17270 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17257 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17258 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17259 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF17260 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17262 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17264 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17266 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17268 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17270 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF17261 V) (T-REF17263 T) + (A-REF17265 A) (B-REF17267 B) + (WORK-REF17269 WORK)) + (%%STPRFB SIDE TRANS DIRECT STOREV M-REF17257 N-REF17258 K-REF17259 + L-REF17260 V-REF17261 LDV-REF17262 T-REF17263 LDT-REF17264 A-REF17265 + LDA-REF17266 B-REF17267 LDB-REF17268 WORK-REF17269 LDWORK-REF17270)))) + +(CFFI:DEFCFUN ("stprfs_" %%STPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -11980,24 +12057,24 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17259 ':INT32) (NRHS-REF17260 ':INT32) - (LDB-REF17263 ':INT32) (LDX-REF17265 ':INT32) - (INFO-REF17270 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17259 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17260 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17263 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17265 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17270 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17261 AP) (B-REF17262 B) - (X-REF17264 X) (FERR-REF17266 FERR) - (BERR-REF17267 BERR) - (WORK-REF17268 WORK) - (IWORK-REF17269 IWORK)) - (%%STPRFS UPLO TRANS DIAG N-REF17259 NRHS-REF17260 AP-REF17261 B-REF17262 - LDB-REF17263 X-REF17264 LDX-REF17265 FERR-REF17266 - BERR-REF17267 WORK-REF17268 IWORK-REF17269 INFO-REF17270)))) - -(CFFI:DEFCFUN ("stptri_" %%STPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17274 ':INT32) (NRHS-REF17275 ':INT32) + (LDB-REF17278 ':INT32) (LDX-REF17280 ':INT32) + (INFO-REF17285 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17274 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17275 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17278 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17280 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17285 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17276 AP) (B-REF17277 B) + (X-REF17279 X) (FERR-REF17281 FERR) + (BERR-REF17282 BERR) + (WORK-REF17283 WORK) + (IWORK-REF17284 IWORK)) + (%%STPRFS UPLO TRANS DIAG N-REF17274 NRHS-REF17275 AP-REF17276 B-REF17277 + LDB-REF17278 X-REF17279 LDX-REF17280 FERR-REF17281 BERR-REF17282 + WORK-REF17283 IWORK-REF17284 INFO-REF17285)))) + +(CFFI:DEFCFUN ("stptri_" %%STPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -12013,13 +12090,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17273 ':INT32) (INFO-REF17275 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17273 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17275 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17274 AP)) - (%%STPTRI UPLO DIAG N-REF17273 AP-REF17274 INFO-REF17275)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17288 ':INT32) (INFO-REF17290 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17288 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17290 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17289 AP)) + (%%STPTRI UPLO DIAG N-REF17288 AP-REF17289 INFO-REF17290)))) -(CFFI:DEFCFUN ("stptrs_" %%STPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stptrs_" %%STPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -12044,17 +12121,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17279 ':INT32) (NRHS-REF17280 ':INT32) - (LDB-REF17283 ':INT32) (INFO-REF17284 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17279 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17280 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17283 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17284 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17281 AP) (B-REF17282 B)) - (%%STPTRS UPLO TRANS DIAG N-REF17279 NRHS-REF17280 AP-REF17281 B-REF17282 - LDB-REF17283 INFO-REF17284)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17294 ':INT32) (NRHS-REF17295 ':INT32) + (LDB-REF17298 ':INT32) (INFO-REF17299 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17294 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17295 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17298 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17299 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17296 AP) (B-REF17297 B)) + (%%STPTRS UPLO TRANS DIAG N-REF17294 NRHS-REF17295 AP-REF17296 B-REF17297 + LDB-REF17298 INFO-REF17299)))) -(CFFI:DEFCFUN ("stpttf_" %%STPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stpttf_" %%STPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -12074,14 +12151,14 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ARF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17287 ':INT32) (INFO-REF17290 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17287 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17290 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17288 AP) (ARF-REF17289 ARF)) - (%%STPTTF TRANSR UPLO N-REF17287 AP-REF17288 ARF-REF17289 - INFO-REF17290)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17302 ':INT32) (INFO-REF17305 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17302 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17305 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17303 AP) (ARF-REF17304 ARF)) + (%%STPTTF TRANSR UPLO N-REF17302 AP-REF17303 ARF-REF17304 + INFO-REF17305)))) -(CFFI:DEFCFUN ("stpttr_" %%STPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stpttr_" %%STPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12100,16 +12177,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17292 ':INT32) (LDA-REF17295 ':INT32) - (INFO-REF17296 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17292 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17295 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17296 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17293 AP) (A-REF17294 A)) - (%%STPTTR UPLO N-REF17292 AP-REF17293 A-REF17294 LDA-REF17295 - INFO-REF17296)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17307 ':INT32) (LDA-REF17310 ':INT32) + (INFO-REF17311 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17307 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17310 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17311 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF17308 AP) (A-REF17309 A)) + (%%STPTTR UPLO N-REF17307 AP-REF17308 A-REF17309 LDA-REF17310 + INFO-REF17311)))) -(CFFI:DEFCFUN ("strcon_" %%STRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("strcon_" %%STRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -12140,18 +12217,18 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17300 ':INT32) (LDA-REF17302 ':INT32) - (RCOND-REF17303 ':FLOAT) (INFO-REF17306 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17300 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17302 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17303 :FLOAT) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17306 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17301 A) (WORK-REF17304 WORK) - (IWORK-REF17305 IWORK)) - (%%STRCON NORM UPLO DIAG N-REF17300 A-REF17301 LDA-REF17302 - RCOND-REF17303 WORK-REF17304 IWORK-REF17305 INFO-REF17306)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17315 ':INT32) (LDA-REF17317 ':INT32) + (RCOND-REF17318 ':FLOAT) (INFO-REF17321 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17315 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17317 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17318 :FLOAT) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17321 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17316 A) (WORK-REF17319 WORK) + (IWORK-REF17320 IWORK)) + (%%STRCON NORM UPLO DIAG N-REF17315 A-REF17316 LDA-REF17317 + RCOND-REF17318 WORK-REF17319 IWORK-REF17320 INFO-REF17321)))) -(CFFI:DEFCFUN ("strevc_" %%STREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("strevc_" %%STREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -12193,26 +12270,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17310 ':INT32) (LDT-REF17312 ':INT32) - (LDVL-REF17314 ':INT32) (LDVR-REF17316 ':INT32) - (MM-REF17317 ':INT32) (M-REF17318 ':INT32) - (INFO-REF17320 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17310 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17312 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17314 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17316 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17317 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17318 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17320 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17309 SELECT) - (T-REF17311 T) (VL-REF17313 VL) - (VR-REF17315 VR) - (WORK-REF17319 WORK)) - (%%STREVC SIDE HOWMNY SELECT-REF17309 N-REF17310 T-REF17311 LDT-REF17312 - VL-REF17313 LDVL-REF17314 VR-REF17315 LDVR-REF17316 MM-REF17317 - M-REF17318 WORK-REF17319 INFO-REF17320)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17325 ':INT32) (LDT-REF17327 ':INT32) + (LDVL-REF17329 ':INT32) (LDVR-REF17331 ':INT32) + (MM-REF17332 ':INT32) (M-REF17333 ':INT32) + (INFO-REF17335 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17325 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17327 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17329 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17331 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17332 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17333 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17335 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17324 SELECT) + (T-REF17326 T) (VL-REF17328 VL) + (VR-REF17330 VR) + (WORK-REF17334 WORK)) + (%%STREVC SIDE HOWMNY SELECT-REF17324 N-REF17325 T-REF17326 LDT-REF17327 + VL-REF17328 LDVL-REF17329 VR-REF17330 LDVR-REF17331 MM-REF17332 + M-REF17333 WORK-REF17334 INFO-REF17335)))) -(CFFI:DEFCFUN ("strevc3_" %%STREVC3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("strevc3_" %%STREVC3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -12257,28 +12335,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17324 ':INT32) (LDT-REF17326 ':INT32) - (LDVL-REF17328 ':INT32) (LDVR-REF17330 ':INT32) - (MM-REF17331 ':INT32) (M-REF17332 ':INT32) - (LWORK-REF17334 ':INT32) (INFO-REF17335 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17324 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17326 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17328 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17330 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17331 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17332 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17334 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17335 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17323 SELECT) - (T-REF17325 T) (VL-REF17327 VL) - (VR-REF17329 VR) - (WORK-REF17333 WORK)) - (%%STREVC3 SIDE HOWMNY SELECT-REF17323 N-REF17324 T-REF17325 LDT-REF17326 - VL-REF17327 LDVL-REF17328 VR-REF17329 LDVR-REF17330 - MM-REF17331 M-REF17332 WORK-REF17333 LWORK-REF17334 - INFO-REF17335)))) - -(CFFI:DEFCFUN ("strexc_" %%STREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17339 ':INT32) (LDT-REF17341 ':INT32) + (LDVL-REF17343 ':INT32) (LDVR-REF17345 ':INT32) + (MM-REF17346 ':INT32) (M-REF17347 ':INT32) + (LWORK-REF17349 ':INT32) (INFO-REF17350 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17339 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17341 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17343 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17345 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17346 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17347 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17349 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17350 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17338 SELECT) + (T-REF17340 T) (VL-REF17342 VL) + (VR-REF17344 VR) + (WORK-REF17348 WORK)) + (%%STREVC3 SIDE HOWMNY SELECT-REF17338 N-REF17339 T-REF17340 LDT-REF17341 + VL-REF17342 LDVL-REF17343 VR-REF17344 LDVR-REF17345 MM-REF17346 + M-REF17347 WORK-REF17348 LWORK-REF17349 INFO-REF17350)))) + +(CFFI:DEFCFUN ("strexc_" %%STREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (N :POINTER) @@ -12307,22 +12384,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17337 ':INT32) (LDT-REF17339 ':INT32) - (LDQ-REF17341 ':INT32) (IFST-REF17342 ':INT32) - (ILST-REF17343 ':INT32) (INFO-REF17345 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17337 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17339 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17341 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF17342 :INT32) IFST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF17343 :INT32) ILST) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17345 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF17338 T) (Q-REF17340 Q) - (WORK-REF17344 WORK)) - (%%STREXC COMPQ N-REF17337 T-REF17338 LDT-REF17339 Q-REF17340 - LDQ-REF17341 IFST-REF17342 ILST-REF17343 WORK-REF17344 - INFO-REF17345)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17352 ':INT32) (LDT-REF17354 ':INT32) + (LDQ-REF17356 ':INT32) (IFST-REF17357 ':INT32) + (ILST-REF17358 ':INT32) (INFO-REF17360 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17352 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17354 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17356 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF17357 :INT32) IFST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF17358 :INT32) ILST) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17360 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF17353 T) (Q-REF17355 Q) + (WORK-REF17359 WORK)) + (%%STREXC COMPQ N-REF17352 T-REF17353 LDT-REF17354 Q-REF17355 + LDQ-REF17356 IFST-REF17357 ILST-REF17358 WORK-REF17359 INFO-REF17360)))) -(CFFI:DEFCFUN ("strrfs_" %%STRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("strrfs_" %%STRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -12373,26 +12449,26 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17349 ':INT32) (NRHS-REF17350 ':INT32) - (LDA-REF17352 ':INT32) (LDB-REF17354 ':INT32) - (LDX-REF17356 ':INT32) (INFO-REF17361 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17349 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17350 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17352 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17354 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17356 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17361 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17351 A) (B-REF17353 B) - (X-REF17355 X) (FERR-REF17357 FERR) - (BERR-REF17358 BERR) - (WORK-REF17359 WORK) - (IWORK-REF17360 IWORK)) - (%%STRRFS UPLO TRANS DIAG N-REF17349 NRHS-REF17350 A-REF17351 - LDA-REF17352 B-REF17353 LDB-REF17354 X-REF17355 LDX-REF17356 - FERR-REF17357 BERR-REF17358 WORK-REF17359 IWORK-REF17360 - INFO-REF17361)))) - -(CFFI:DEFCFUN ("strsen_" %%STRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17364 ':INT32) (NRHS-REF17365 ':INT32) + (LDA-REF17367 ':INT32) (LDB-REF17369 ':INT32) + (LDX-REF17371 ':INT32) (INFO-REF17376 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17364 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17365 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17367 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17369 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17371 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17376 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17366 A) (B-REF17368 B) + (X-REF17370 X) (FERR-REF17372 FERR) + (BERR-REF17373 BERR) + (WORK-REF17374 WORK) + (IWORK-REF17375 IWORK)) + (%%STRRFS UPLO TRANS DIAG N-REF17364 NRHS-REF17365 A-REF17366 + LDA-REF17367 B-REF17368 LDB-REF17369 X-REF17370 LDX-REF17371 + FERR-REF17372 BERR-REF17373 WORK-REF17374 IWORK-REF17375 + INFO-REF17376)))) + +(CFFI:DEFCFUN ("strsen_" %%STRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPQ :STRING) @@ -12447,31 +12523,31 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17365 ':INT32) (LDT-REF17367 ':INT32) - (LDQ-REF17369 ':INT32) (M-REF17372 ':INT32) - (S-REF17373 ':FLOAT) (SEP-REF17374 ':FLOAT) - (LWORK-REF17376 ':INT32) - (LIWORK-REF17378 ':INT32) (INFO-REF17379 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17365 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17367 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17369 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17372 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF17373 :FLOAT) S) - (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF17374 :FLOAT) SEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17376 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF17378 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17379 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17364 SELECT) - (T-REF17366 T) (Q-REF17368 Q) - (WR-REF17370 WR) (WI-REF17371 WI) - (WORK-REF17375 WORK) - (IWORK-REF17377 IWORK)) - (%%STRSEN JOB COMPQ SELECT-REF17364 N-REF17365 T-REF17366 LDT-REF17367 - Q-REF17368 LDQ-REF17369 WR-REF17370 WI-REF17371 M-REF17372 - S-REF17373 SEP-REF17374 WORK-REF17375 LWORK-REF17376 - IWORK-REF17377 LIWORK-REF17378 INFO-REF17379)))) - -(CFFI:DEFCFUN ("strsna_" %%STRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17380 ':INT32) (LDT-REF17382 ':INT32) + (LDQ-REF17384 ':INT32) (M-REF17387 ':INT32) + (S-REF17388 ':FLOAT) (SEP-REF17389 ':FLOAT) + (LWORK-REF17391 ':INT32) + (LIWORK-REF17393 ':INT32) (INFO-REF17394 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17380 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17382 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17384 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17387 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF17388 :FLOAT) S) + (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF17389 :FLOAT) SEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17391 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF17393 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17394 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17379 SELECT) + (T-REF17381 T) (Q-REF17383 Q) + (WR-REF17385 WR) (WI-REF17386 WI) + (WORK-REF17390 WORK) + (IWORK-REF17392 IWORK)) + (%%STRSEN JOB COMPQ SELECT-REF17379 N-REF17380 T-REF17381 LDT-REF17382 + Q-REF17383 LDQ-REF17384 WR-REF17385 WI-REF17386 M-REF17387 S-REF17388 + SEP-REF17389 WORK-REF17390 LWORK-REF17391 IWORK-REF17392 LIWORK-REF17393 + INFO-REF17394)))) + +(CFFI:DEFCFUN ("strsna_" %%STRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (HOWMNY :STRING) @@ -12528,30 +12604,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17383 ':INT32) (LDT-REF17385 ':INT32) - (LDVL-REF17387 ':INT32) (LDVR-REF17389 ':INT32) - (MM-REF17392 ':INT32) (M-REF17393 ':INT32) - (LDWORK-REF17395 ':INT32) (INFO-REF17397 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17383 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17385 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17387 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17389 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17392 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17393 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17395 :INT32) LDWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17397 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17382 SELECT) - (T-REF17384 T) (VL-REF17386 VL) - (VR-REF17388 VR) (S-REF17390 S) - (SEP-REF17391 SEP) - (WORK-REF17394 WORK) - (IWORK-REF17396 IWORK)) - (%%STRSNA JOB HOWMNY SELECT-REF17382 N-REF17383 T-REF17384 LDT-REF17385 - VL-REF17386 LDVL-REF17387 VR-REF17388 LDVR-REF17389 S-REF17390 - SEP-REF17391 MM-REF17392 M-REF17393 WORK-REF17394 - LDWORK-REF17395 IWORK-REF17396 INFO-REF17397)))) - -(CFFI:DEFCFUN ("strsyl_" %%STRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17398 ':INT32) (LDT-REF17400 ':INT32) + (LDVL-REF17402 ':INT32) (LDVR-REF17404 ':INT32) + (MM-REF17407 ':INT32) (M-REF17408 ':INT32) + (LDWORK-REF17410 ':INT32) (INFO-REF17412 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17398 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17400 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17402 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17404 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF17407 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17408 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF17410 :INT32) LDWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17412 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF17397 SELECT) + (T-REF17399 T) (VL-REF17401 VL) + (VR-REF17403 VR) (S-REF17405 S) + (SEP-REF17406 SEP) + (WORK-REF17409 WORK) + (IWORK-REF17411 IWORK)) + (%%STRSNA JOB HOWMNY SELECT-REF17397 N-REF17398 T-REF17399 LDT-REF17400 + VL-REF17401 LDVL-REF17402 VR-REF17403 LDVR-REF17404 S-REF17405 + SEP-REF17406 MM-REF17407 M-REF17408 WORK-REF17409 LDWORK-REF17410 + IWORK-REF17411 INFO-REF17412)))) + +(CFFI:DEFCFUN ("strsyl_" %%STRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANA :STRING) (TRANB :STRING) @@ -12585,25 +12661,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC) (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF17400 ':INT32) (M-REF17401 ':INT32) - (N-REF17402 ':INT32) (LDA-REF17404 ':INT32) - (LDB-REF17406 ':INT32) (LDC-REF17408 ':INT32) - (SCALE-REF17409 ':FLOAT) (INFO-REF17410 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF17400 :INT32) ISGN) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17401 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17402 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17404 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17406 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17408 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17409 :FLOAT) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17410 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17403 A) (B-REF17405 B) - (C-REF17407 C)) - (%%STRSYL TRANA TRANB ISGN-REF17400 M-REF17401 N-REF17402 A-REF17403 - LDA-REF17404 B-REF17405 LDB-REF17406 C-REF17407 LDC-REF17408 - SCALE-REF17409 INFO-REF17410)))) - -(CFFI:DEFCFUN ("strti2_" %%STRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF17415 ':INT32) (M-REF17416 ':INT32) + (N-REF17417 ':INT32) (LDA-REF17419 ':INT32) + (LDB-REF17421 ':INT32) (LDC-REF17423 ':INT32) + (SCALE-REF17424 ':FLOAT) (INFO-REF17425 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF17415 :INT32) ISGN) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17416 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17417 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17419 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17421 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17423 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF17424 :FLOAT) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17425 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17418 A) (B-REF17420 B) + (C-REF17422 C)) + (%%STRSYL TRANA TRANB ISGN-REF17415 M-REF17416 N-REF17417 A-REF17418 + LDA-REF17419 B-REF17420 LDB-REF17421 C-REF17422 LDC-REF17423 + SCALE-REF17424 INFO-REF17425)))) + +(CFFI:DEFCFUN ("strti2_" %%STRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -12621,15 +12697,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17413 ':INT32) (LDA-REF17415 ':INT32) - (INFO-REF17416 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17413 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17415 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17416 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17414 A)) - (%%STRTI2 UPLO DIAG N-REF17413 A-REF17414 LDA-REF17415 INFO-REF17416)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17428 ':INT32) (LDA-REF17430 ':INT32) + (INFO-REF17431 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17428 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17430 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17431 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17429 A)) + (%%STRTI2 UPLO DIAG N-REF17428 A-REF17429 LDA-REF17430 INFO-REF17431)))) -(CFFI:DEFCFUN ("strtri_" %%STRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("strtri_" %%STRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -12647,15 +12723,15 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17419 ':INT32) (LDA-REF17421 ':INT32) - (INFO-REF17422 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17419 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17421 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17422 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17420 A)) - (%%STRTRI UPLO DIAG N-REF17419 A-REF17420 LDA-REF17421 INFO-REF17422)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17434 ':INT32) (LDA-REF17436 ':INT32) + (INFO-REF17437 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17434 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17436 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17437 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17435 A)) + (%%STRTRI UPLO DIAG N-REF17434 A-REF17435 LDA-REF17436 INFO-REF17437)))) -(CFFI:DEFCFUN ("strtrs_" %%STRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("strtrs_" %%STRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -12682,19 +12758,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17426 ':INT32) (NRHS-REF17427 ':INT32) - (LDA-REF17429 ':INT32) (LDB-REF17431 ':INT32) - (INFO-REF17432 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17426 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17427 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17429 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17431 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17432 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17428 A) (B-REF17430 B)) - (%%STRTRS UPLO TRANS DIAG N-REF17426 NRHS-REF17427 A-REF17428 - LDA-REF17429 B-REF17430 LDB-REF17431 INFO-REF17432)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17441 ':INT32) (NRHS-REF17442 ':INT32) + (LDA-REF17444 ':INT32) (LDB-REF17446 ':INT32) + (INFO-REF17447 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17441 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17442 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17444 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17446 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17447 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17443 A) (B-REF17445 B)) + (%%STRTRS UPLO TRANS DIAG N-REF17441 NRHS-REF17442 A-REF17443 + LDA-REF17444 B-REF17445 LDB-REF17446 INFO-REF17447)))) -(CFFI:DEFCFUN ("strttf_" %%STRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("strttf_" %%STRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -12716,16 +12792,16 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ARF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17435 ':INT32) (LDA-REF17437 ':INT32) - (INFO-REF17439 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17435 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17437 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17439 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17436 A) (ARF-REF17438 ARF)) - (%%STRTTF TRANSR UPLO N-REF17435 A-REF17436 LDA-REF17437 ARF-REF17438 - INFO-REF17439)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17450 ':INT32) (LDA-REF17452 ':INT32) + (INFO-REF17454 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17450 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17452 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17454 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17451 A) (ARF-REF17453 ARF)) + (%%STRTTF TRANSR UPLO N-REF17450 A-REF17451 LDA-REF17452 ARF-REF17453 + INFO-REF17454)))) -(CFFI:DEFCFUN ("strttp_" %%STRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("strttp_" %%STRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12744,16 +12820,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17441 ':INT32) (LDA-REF17443 ':INT32) - (INFO-REF17445 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17441 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17443 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17445 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17442 A) (AP-REF17444 AP)) - (%%STRTTP UPLO N-REF17441 A-REF17442 LDA-REF17443 AP-REF17444 - INFO-REF17445)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17456 ':INT32) (LDA-REF17458 ':INT32) + (INFO-REF17460 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17456 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17458 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17460 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17457 A) (AP-REF17459 AP)) + (%%STRTTP UPLO N-REF17456 A-REF17457 LDA-REF17458 AP-REF17459 + INFO-REF17460)))) -(CFFI:DEFCFUN ("stzrzf_" %%STZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("stzrzf_" %%STZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12779,18 +12855,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17446 ':INT32) (N-REF17447 ':INT32) - (LDA-REF17449 ':INT32) (LWORK-REF17452 ':INT32) - (INFO-REF17453 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17446 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17447 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17449 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17452 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17453 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17448 A) (TAU-REF17450 TAU) - (WORK-REF17451 WORK)) - (%%STZRZF M-REF17446 N-REF17447 A-REF17448 LDA-REF17449 TAU-REF17450 - WORK-REF17451 LWORK-REF17452 INFO-REF17453)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17461 ':INT32) (N-REF17462 ':INT32) + (LDA-REF17464 ':INT32) (LWORK-REF17467 ':INT32) + (INFO-REF17468 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17461 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17462 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17464 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17467 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17468 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17463 A) (TAU-REF17465 TAU) + (WORK-REF17466 WORK)) + (%%STZRZF M-REF17461 N-REF17462 A-REF17463 LDA-REF17464 TAU-REF17465 + WORK-REF17466 LWORK-REF17467 INFO-REF17468)))) (COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%SLASDA %SLASDA %%SLASDQ %SLASDQ %%SLASDT %SLASDT @@ -12805,356 +12881,408 @@ %%SORBDB4 %SORBDB4 %%SORBDB5 %SORBDB5 %%SORBDB6 %SORBDB6 %%SORCSD %SORCSD %%SORCSD2BY1 %SORCSD2BY1 %%SORG2L %SORG2L %%SORG2R %SORG2R %%SORGBR %SORGBR %%SORGHR %SORGHR %%SORGL2 %SORGL2 %%SORGLQ %SORGLQ %%SORGQL %SORGQL %%SORGQR - %SORGQR %%SORGR2 %SORGR2 %%SORGRQ %SORGRQ %%SORGTR %SORGTR %%SORM22 %SORM22 - %%SORM2L %SORM2L %%SORM2R %SORM2R %%SORMBR %SORMBR %%SORMHR %SORMHR %%SORML2 - %SORML2 %%SORMLQ %SORMLQ %%SORMQL %SORMQL %%SORMQR %SORMQR %%SORMR2 %SORMR2 - %%SORMR3 %SORMR3 %%SORMRQ %SORMRQ %%SORMRZ %SORMRZ %%SORMTR %SORMTR %%SPBCON - %SPBCON %%SPBEQU %SPBEQU %%SPBRFS %SPBRFS %%SPBSTF %SPBSTF %%SPBSV %SPBSV - %%SPBSVX %SPBSVX %%SPBTF2 %SPBTF2 %%SPBTRF %SPBTRF %%SPBTRS %SPBTRS %%SPFTRF - %SPFTRF %%SPFTRI %SPFTRI %%SPFTRS %SPFTRS %%SPOCON %SPOCON %%SPOEQU %SPOEQU - %%SPOEQUB %SPOEQUB %%SPORFS %SPORFS %%SPORFSX %SPORFSX %%SPOSV %SPOSV - %%SPOSVX %SPOSVX %%SPOSVXX %SPOSVXX %%SPOTF2 %SPOTF2 %%SPOTRF %SPOTRF - %%SPOTRF2 %SPOTRF2 %%SPOTRI %SPOTRI %%SPOTRS %SPOTRS %%SPPCON %SPPCON - %%SPPEQU %SPPEQU %%SPPRFS %SPPRFS %%SPPSV %SPPSV %%SPPSVX %SPPSVX %%SPPTRF - %SPPTRF %%SPPTRI %SPPTRI %%SPPTRS %SPPTRS %%SPSTF2 %SPSTF2 %%SPSTRF %SPSTRF - %%SPTCON %SPTCON %%SPTEQR %SPTEQR %%SPTRFS %SPTRFS %%SPTSV %SPTSV %%SPTSVX - %SPTSVX %%SPTTRF %SPTTRF %%SPTTRS %SPTTRS %%SPTTS2 %SPTTS2 %%SRSCL %SRSCL - %%SSB2ST_KERNELS %SSB2ST_KERNELS %%SSBEV %SSBEV %%SSBEV_2STAGE %SSBEV_2STAGE - %%SSBEVD %SSBEVD %%SSBEVD_2STAGE %SSBEVD_2STAGE %%SSBEVX %SSBEVX - %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SSBGST %SSBGST %%SSBGV %SSBGV %%SSBGVD - %SSBGVD %%SSBGVX %SSBGVX %%SSBTRD %SSBTRD %%SSFRK %SSFRK %%SSPCON %SSPCON - %%SSPEV %SSPEV %%SSPEVD %SSPEVD %%SSPEVX %SSPEVX %%SSPGST %SSPGST %%SSPGV - %SSPGV %%SSPGVD %SSPGVD %%SSPGVX %SSPGVX %%SSPRFS %SSPRFS %%SSPSV %SSPSV - %%SSPSVX %SSPSVX %%SSPTRD %SSPTRD %%SSPTRF %SSPTRF %%SSPTRI %SSPTRI %%SSPTRS - %SSPTRS %%SSTEBZ %SSTEBZ %%SSTEDC %SSTEDC %%SSTEGR %SSTEGR %%SSTEIN %SSTEIN - %%SSTEMR %SSTEMR %%SSTEQR %SSTEQR %%SSTERF %SSTERF %%SSTEV %SSTEV %%SSTEVD - %SSTEVD %%SSTEVR %SSTEVR %%SSTEVX %SSTEVX %%SSYCON %SSYCON %%SSYCON_3 - %SSYCON_3 %%SSYCON_ROOK %SSYCON_ROOK %%SSYCONV %SSYCONV %%SSYCONVF %SSYCONVF - %%SSYCONVF_ROOK %SSYCONVF_ROOK %%SSYEQUB %SSYEQUB %%SSYEV %SSYEV - %%SSYEV_2STAGE %SSYEV_2STAGE %%SSYEVD %SSYEVD %%SSYEVD_2STAGE %SSYEVD_2STAGE - %%SSYEVR %SSYEVR %%SSYEVR_2STAGE %SSYEVR_2STAGE %%SSYEVX %SSYEVX - %%SSYEVX_2STAGE %SSYEVX_2STAGE %%SSYGS2 %SSYGS2 %%SSYGST %SSYGST %%SSYGV - %SSYGV %%SSYGV_2STAGE %SSYGV_2STAGE %%SSYGVD %SSYGVD %%SSYGVX %SSYGVX - %%SSYRFS %SSYRFS %%SSYRFSX %SSYRFSX %%SSYSV %SSYSV %%SSYSV_AA %SSYSV_AA - %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE %%SSYSV_RK %SSYSV_RK %%SSYSV_ROOK - %SSYSV_ROOK %%SSYSVX %SSYSVX %%SSYSVXX %SSYSVXX %%SSYSWAPR %SSYSWAPR %%SSYTD2 - %SSYTD2 %%SSYTF2 %SSYTF2 %%SSYTF2_RK %SSYTF2_RK %%SSYTF2_ROOK %SSYTF2_ROOK - %%SSYTRD %SSYTRD %%SSYTRD_2STAGE %SSYTRD_2STAGE %%SSYTRD_SY2SB %SSYTRD_SY2SB - %%SSYTRF %SSYTRF %%SSYTRF_AA %SSYTRF_AA %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE - %%SSYTRF_RK %SSYTRF_RK %%SSYTRF_ROOK %SSYTRF_ROOK %%SSYTRI %SSYTRI %%SSYTRI2 - %SSYTRI2 %%SSYTRI2X %SSYTRI2X %%SSYTRI_3 %SSYTRI_3 %%SSYTRI_3X %SSYTRI_3X - %%SSYTRI_ROOK %SSYTRI_ROOK %%SSYTRS %SSYTRS %%SSYTRS2 %SSYTRS2 %%SSYTRS_3 - %SSYTRS_3 %%SSYTRS_AA %SSYTRS_AA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE - %%SSYTRS_ROOK %SSYTRS_ROOK %%STBCON %STBCON %%STBRFS %STBRFS %%STBTRS %STBTRS - %%STFSM %STFSM %%STFTRI %STFTRI %%STFTTP %STFTTP %%STFTTR %STFTTR %%STGEVC - %STGEVC %%STGEX2 %STGEX2 %%STGEXC %STGEXC %%STGSEN %STGSEN %%STGSJA %STGSJA - %%STGSNA %STGSNA %%STGSY2 %STGSY2 %%STGSYL %STGSYL %%STPCON %STPCON %%STPLQT - %STPLQT %%STPLQT2 %STPLQT2 %%STPMLQT %STPMLQT %%STPMQRT %STPMQRT %%STPQRT - %STPQRT %%STPQRT2 %STPQRT2 %%STPRFB %STPRFB %%STPRFS %STPRFS %%STPTRI %STPTRI - %%STPTRS %STPTRS %%STPTTF %STPTTF %%STPTTR %STPTTR %%STRCON %STRCON %%STREVC - %STREVC %%STREVC3 %STREVC3 %%STREXC %STREXC %%STRRFS %STRRFS %%STRSEN %STRSEN - %%STRSNA %STRSNA %%STRSYL %STRSYL %%STRTI2 %STRTI2 %%STRTRI %STRTRI %%STRTRS - %STRTRS %%STRTTF %STRTTF %%STRTTP %STRTTP %%STZRZF %STZRZF)) - -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK - '(("SLASDA" "slasda_" %%SLASDA %SLASDA) - ("SLASDQ" "slasdq_" %%SLASDQ %SLASDQ) - ("SLASDT" "slasdt_" %%SLASDT %SLASDT) - ("SLASET" "slaset_" %%SLASET %SLASET) - ("SLASQ1" "slasq1_" %%SLASQ1 %SLASQ1) - ("SLASQ2" "slasq2_" %%SLASQ2 %SLASQ2) - ("SLASQ3" "slasq3_" %%SLASQ3 %SLASQ3) - ("SLASQ4" "slasq4_" %%SLASQ4 %SLASQ4) - ("SLASQ5" "slasq5_" %%SLASQ5 %SLASQ5) - ("SLASQ6" "slasq6_" %%SLASQ6 %SLASQ6) - ("SLASR" "slasr_" %%SLASR %SLASR) - ("SLASRT" "slasrt_" %%SLASRT %SLASRT) - ("SLASSQ" "slassq_" %%SLASSQ %SLASSQ) - ("SLASV2" "slasv2_" %%SLASV2 %SLASV2) - ("SLASWLQ" "slaswlq_" %%SLASWLQ %SLASWLQ) - ("SLASWP" "slaswp_" %%SLASWP %SLASWP) - ("SLASY2" "slasy2_" %%SLASY2 %SLASY2) - ("SLASYF" "slasyf_" %%SLASYF %SLASYF) - ("SLASYF_AA" "slasyf_aa_" %%SLASYF_AA %SLASYF_AA) - ("SLASYF_RK" "slasyf_rk_" %%SLASYF_RK %SLASYF_RK) - ("SLASYF_ROOK" "slasyf_rook_" %%SLASYF_ROOK %SLASYF_ROOK) - ("SLATBS" "slatbs_" %%SLATBS %SLATBS) - ("SLATDF" "slatdf_" %%SLATDF %SLATDF) - ("SLATPS" "slatps_" %%SLATPS %SLATPS) - ("SLATRD" "slatrd_" %%SLATRD %SLATRD) - ("SLATRS" "slatrs_" %%SLATRS %SLATRS) - ("SLATRZ" "slatrz_" %%SLATRZ %SLATRZ) - ("SLATSQR" "slatsqr_" %%SLATSQR %SLATSQR) - ("SLAUU2" "slauu2_" %%SLAUU2 %SLAUU2) - ("SLAUUM" "slauum_" %%SLAUUM %SLAUUM) - ("SOPGTR" "sopgtr_" %%SOPGTR %SOPGTR) - ("SOPMTR" "sopmtr_" %%SOPMTR %SOPMTR) - ("SORBDB" "sorbdb_" %%SORBDB %SORBDB) - ("SORBDB1" "sorbdb1_" %%SORBDB1 %SORBDB1) - ("SORBDB2" "sorbdb2_" %%SORBDB2 %SORBDB2) - ("SORBDB3" "sorbdb3_" %%SORBDB3 %SORBDB3) - ("SORBDB4" "sorbdb4_" %%SORBDB4 %SORBDB4) - ("SORBDB5" "sorbdb5_" %%SORBDB5 %SORBDB5) - ("SORBDB6" "sorbdb6_" %%SORBDB6 %SORBDB6) - ("SORCSD" "sorcsd_" %%SORCSD %SORCSD) - ("SORCSD2BY1" "sorcsd2by1_" %%SORCSD2BY1 %SORCSD2BY1) - ("SORG2L" "sorg2l_" %%SORG2L %SORG2L) - ("SORG2R" "sorg2r_" %%SORG2R %SORG2R) - ("SORGBR" "sorgbr_" %%SORGBR %SORGBR) - ("SORGHR" "sorghr_" %%SORGHR %SORGHR) - ("SORGL2" "sorgl2_" %%SORGL2 %SORGL2) - ("SORGLQ" "sorglq_" %%SORGLQ %SORGLQ) - ("SORGQL" "sorgql_" %%SORGQL %SORGQL) - ("SORGQR" "sorgqr_" %%SORGQR %SORGQR) - ("SORGR2" "sorgr2_" %%SORGR2 %SORGR2) - ("SORGRQ" "sorgrq_" %%SORGRQ %SORGRQ) - ("SORGTR" "sorgtr_" %%SORGTR %SORGTR) - ("SORM22" "sorm22_" %%SORM22 %SORM22) - ("SORM2L" "sorm2l_" %%SORM2L %SORM2L) - ("SORM2R" "sorm2r_" %%SORM2R %SORM2R) - ("SORMBR" "sormbr_" %%SORMBR %SORMBR) - ("SORMHR" "sormhr_" %%SORMHR %SORMHR) - ("SORML2" "sorml2_" %%SORML2 %SORML2) - ("SORMLQ" "sormlq_" %%SORMLQ %SORMLQ) - ("SORMQL" "sormql_" %%SORMQL %SORMQL) - ("SORMQR" "sormqr_" %%SORMQR %SORMQR) - ("SORMR2" "sormr2_" %%SORMR2 %SORMR2) - ("SORMR3" "sormr3_" %%SORMR3 %SORMR3) - ("SORMRQ" "sormrq_" %%SORMRQ %SORMRQ) - ("SORMRZ" "sormrz_" %%SORMRZ %SORMRZ) - ("SORMTR" "sormtr_" %%SORMTR %SORMTR) - ("SPBCON" "spbcon_" %%SPBCON %SPBCON) - ("SPBEQU" "spbequ_" %%SPBEQU %SPBEQU) - ("SPBRFS" "spbrfs_" %%SPBRFS %SPBRFS) - ("SPBSTF" "spbstf_" %%SPBSTF %SPBSTF) - ("SPBSV" "spbsv_" %%SPBSV %SPBSV) - ("SPBSVX" "spbsvx_" %%SPBSVX %SPBSVX) - ("SPBTF2" "spbtf2_" %%SPBTF2 %SPBTF2) - ("SPBTRF" "spbtrf_" %%SPBTRF %SPBTRF) - ("SPBTRS" "spbtrs_" %%SPBTRS %SPBTRS) - ("SPFTRF" "spftrf_" %%SPFTRF %SPFTRF) - ("SPFTRI" "spftri_" %%SPFTRI %SPFTRI) - ("SPFTRS" "spftrs_" %%SPFTRS %SPFTRS) - ("SPOCON" "spocon_" %%SPOCON %SPOCON) - ("SPOEQU" "spoequ_" %%SPOEQU %SPOEQU) - ("SPOEQUB" "spoequb_" %%SPOEQUB %SPOEQUB) - ("SPORFS" "sporfs_" %%SPORFS %SPORFS) - ("SPORFSX" "sporfsx_" %%SPORFSX %SPORFSX) - ("SPOSV" "sposv_" %%SPOSV %SPOSV) - ("SPOSVX" "sposvx_" %%SPOSVX %SPOSVX) - ("SPOSVXX" "sposvxx_" %%SPOSVXX %SPOSVXX) - ("SPOTF2" "spotf2_" %%SPOTF2 %SPOTF2) - ("SPOTRF" "spotrf_" %%SPOTRF %SPOTRF) - ("SPOTRF2" "spotrf2_" %%SPOTRF2 %SPOTRF2) - ("SPOTRI" "spotri_" %%SPOTRI %SPOTRI) - ("SPOTRS" "spotrs_" %%SPOTRS %SPOTRS) - ("SPPCON" "sppcon_" %%SPPCON %SPPCON) - ("SPPEQU" "sppequ_" %%SPPEQU %SPPEQU) - ("SPPRFS" "spprfs_" %%SPPRFS %SPPRFS) - ("SPPSV" "sppsv_" %%SPPSV %SPPSV) - ("SPPSVX" "sppsvx_" %%SPPSVX %SPPSVX) - ("SPPTRF" "spptrf_" %%SPPTRF %SPPTRF) - ("SPPTRI" "spptri_" %%SPPTRI %SPPTRI) - ("SPPTRS" "spptrs_" %%SPPTRS %SPPTRS) - ("SPSTF2" "spstf2_" %%SPSTF2 %SPSTF2) - ("SPSTRF" "spstrf_" %%SPSTRF %SPSTRF) - ("SPTCON" "sptcon_" %%SPTCON %SPTCON) - ("SPTEQR" "spteqr_" %%SPTEQR %SPTEQR) - ("SPTRFS" "sptrfs_" %%SPTRFS %SPTRFS) - ("SPTSV" "sptsv_" %%SPTSV %SPTSV) - ("SPTSVX" "sptsvx_" %%SPTSVX %SPTSVX) - ("SPTTRF" "spttrf_" %%SPTTRF %SPTTRF) - ("SPTTRS" "spttrs_" %%SPTTRS %SPTTRS) - ("SPTTS2" "sptts2_" %%SPTTS2 %SPTTS2) - ("SRSCL" "srscl_" %%SRSCL %SRSCL) - ("SSB2ST_KERNELS" "ssb2st_kernels_" %%SSB2ST_KERNELS - %SSB2ST_KERNELS) - ("SSBEV" "ssbev_" %%SSBEV %SSBEV) - ("SSBEV_2STAGE" "ssbev_2stage_" %%SSBEV_2STAGE - %SSBEV_2STAGE) - ("SSBEVD" "ssbevd_" %%SSBEVD %SSBEVD) - ("SSBEVD_2STAGE" "ssbevd_2stage_" %%SSBEVD_2STAGE - %SSBEVD_2STAGE) - ("SSBEVX" "ssbevx_" %%SSBEVX %SSBEVX) - ("SSBEVX_2STAGE" "ssbevx_2stage_" %%SSBEVX_2STAGE - %SSBEVX_2STAGE) - ("SSBGST" "ssbgst_" %%SSBGST %SSBGST) - ("SSBGV" "ssbgv_" %%SSBGV %SSBGV) - ("SSBGVD" "ssbgvd_" %%SSBGVD %SSBGVD) - ("SSBGVX" "ssbgvx_" %%SSBGVX %SSBGVX) - ("SSBTRD" "ssbtrd_" %%SSBTRD %SSBTRD) - ("SSFRK" "ssfrk_" %%SSFRK %SSFRK) - ("SSPCON" "sspcon_" %%SSPCON %SSPCON) - ("SSPEV" "sspev_" %%SSPEV %SSPEV) - ("SSPEVD" "sspevd_" %%SSPEVD %SSPEVD) - ("SSPEVX" "sspevx_" %%SSPEVX %SSPEVX) - ("SSPGST" "sspgst_" %%SSPGST %SSPGST) - ("SSPGV" "sspgv_" %%SSPGV %SSPGV) - ("SSPGVD" "sspgvd_" %%SSPGVD %SSPGVD) - ("SSPGVX" "sspgvx_" %%SSPGVX %SSPGVX) - ("SSPRFS" "ssprfs_" %%SSPRFS %SSPRFS) - ("SSPSV" "sspsv_" %%SSPSV %SSPSV) - ("SSPSVX" "sspsvx_" %%SSPSVX %SSPSVX) - ("SSPTRD" "ssptrd_" %%SSPTRD %SSPTRD) - ("SSPTRF" "ssptrf_" %%SSPTRF %SSPTRF) - ("SSPTRI" "ssptri_" %%SSPTRI %SSPTRI) - ("SSPTRS" "ssptrs_" %%SSPTRS %SSPTRS) - ("SSTEBZ" "sstebz_" %%SSTEBZ %SSTEBZ) - ("SSTEDC" "sstedc_" %%SSTEDC %SSTEDC) - ("SSTEGR" "sstegr_" %%SSTEGR %SSTEGR) - ("SSTEIN" "sstein_" %%SSTEIN %SSTEIN) - ("SSTEMR" "sstemr_" %%SSTEMR %SSTEMR) - ("SSTEQR" "ssteqr_" %%SSTEQR %SSTEQR) - ("SSTERF" "ssterf_" %%SSTERF %SSTERF) - ("SSTEV" "sstev_" %%SSTEV %SSTEV) - ("SSTEVD" "sstevd_" %%SSTEVD %SSTEVD) - ("SSTEVR" "sstevr_" %%SSTEVR %SSTEVR) - ("SSTEVX" "sstevx_" %%SSTEVX %SSTEVX) - ("SSYCON" "ssycon_" %%SSYCON %SSYCON) - ("SSYCON_3" "ssycon_3_" %%SSYCON_3 %SSYCON_3) - ("SSYCON_ROOK" "ssycon_rook_" %%SSYCON_ROOK %SSYCON_ROOK) - ("SSYCONV" "ssyconv_" %%SSYCONV %SSYCONV) - ("SSYCONVF" "ssyconvf_" %%SSYCONVF %SSYCONVF) - ("SSYCONVF_ROOK" "ssyconvf_rook_" %%SSYCONVF_ROOK - %SSYCONVF_ROOK) - ("SSYEQUB" "ssyequb_" %%SSYEQUB %SSYEQUB) - ("SSYEV" "ssyev_" %%SSYEV %SSYEV) - ("SSYEV_2STAGE" "ssyev_2stage_" %%SSYEV_2STAGE - %SSYEV_2STAGE) - ("SSYEVD" "ssyevd_" %%SSYEVD %SSYEVD) - ("SSYEVD_2STAGE" "ssyevd_2stage_" %%SSYEVD_2STAGE - %SSYEVD_2STAGE) - ("SSYEVR" "ssyevr_" %%SSYEVR %SSYEVR) - ("SSYEVR_2STAGE" "ssyevr_2stage_" %%SSYEVR_2STAGE - %SSYEVR_2STAGE) - ("SSYEVX" "ssyevx_" %%SSYEVX %SSYEVX) - ("SSYEVX_2STAGE" "ssyevx_2stage_" %%SSYEVX_2STAGE - %SSYEVX_2STAGE) - ("SSYGS2" "ssygs2_" %%SSYGS2 %SSYGS2) - ("SSYGST" "ssygst_" %%SSYGST %SSYGST) - ("SSYGV" "ssygv_" %%SSYGV %SSYGV) - ("SSYGV_2STAGE" "ssygv_2stage_" %%SSYGV_2STAGE - %SSYGV_2STAGE) - ("SSYGVD" "ssygvd_" %%SSYGVD %SSYGVD) - ("SSYGVX" "ssygvx_" %%SSYGVX %SSYGVX) - ("SSYRFS" "ssyrfs_" %%SSYRFS %SSYRFS) - ("SSYRFSX" "ssyrfsx_" %%SSYRFSX %SSYRFSX) - ("SSYSV" "ssysv_" %%SSYSV %SSYSV) - ("SSYSV_AA" "ssysv_aa_" %%SSYSV_AA %SSYSV_AA) - ("SSYSV_AA_2STAGE" "ssysv_aa_2stage_" %%SSYSV_AA_2STAGE - %SSYSV_AA_2STAGE) - ("SSYSV_RK" "ssysv_rk_" %%SSYSV_RK %SSYSV_RK) - ("SSYSV_ROOK" "ssysv_rook_" %%SSYSV_ROOK %SSYSV_ROOK) - ("SSYSVX" "ssysvx_" %%SSYSVX %SSYSVX) - ("SSYSVXX" "ssysvxx_" %%SSYSVXX %SSYSVXX) - ("SSYSWAPR" "ssyswapr_" %%SSYSWAPR %SSYSWAPR) - ("SSYTD2" "ssytd2_" %%SSYTD2 %SSYTD2) - ("SSYTF2" "ssytf2_" %%SSYTF2 %SSYTF2) - ("SSYTF2_RK" "ssytf2_rk_" %%SSYTF2_RK %SSYTF2_RK) - ("SSYTF2_ROOK" "ssytf2_rook_" %%SSYTF2_ROOK %SSYTF2_ROOK) - ("SSYTRD" "ssytrd_" %%SSYTRD %SSYTRD) - ("SSYTRD_2STAGE" "ssytrd_2stage_" %%SSYTRD_2STAGE - %SSYTRD_2STAGE) - ("SSYTRD_SY2SB" "ssytrd_sy2sb_" %%SSYTRD_SY2SB - %SSYTRD_SY2SB) - ("SSYTRF" "ssytrf_" %%SSYTRF %SSYTRF) - ("SSYTRF_AA" "ssytrf_aa_" %%SSYTRF_AA %SSYTRF_AA) - ("SSYTRF_AA_2STAGE" "ssytrf_aa_2stage_" - %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE) - ("SSYTRF_RK" "ssytrf_rk_" %%SSYTRF_RK %SSYTRF_RK) - ("SSYTRF_ROOK" "ssytrf_rook_" %%SSYTRF_ROOK %SSYTRF_ROOK) - ("SSYTRI" "ssytri_" %%SSYTRI %SSYTRI) - ("SSYTRI2" "ssytri2_" %%SSYTRI2 %SSYTRI2) - ("SSYTRI2X" "ssytri2x_" %%SSYTRI2X %SSYTRI2X) - ("SSYTRI_3" "ssytri_3_" %%SSYTRI_3 %SSYTRI_3) - ("SSYTRI_3X" "ssytri_3x_" %%SSYTRI_3X %SSYTRI_3X) - ("SSYTRI_ROOK" "ssytri_rook_" %%SSYTRI_ROOK %SSYTRI_ROOK) - ("SSYTRS" "ssytrs_" %%SSYTRS %SSYTRS) - ("SSYTRS2" "ssytrs2_" %%SSYTRS2 %SSYTRS2) - ("SSYTRS_3" "ssytrs_3_" %%SSYTRS_3 %SSYTRS_3) - ("SSYTRS_AA" "ssytrs_aa_" %%SSYTRS_AA %SSYTRS_AA) - ("SSYTRS_AA_2STAGE" "ssytrs_aa_2stage_" - %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE) - ("SSYTRS_ROOK" "ssytrs_rook_" %%SSYTRS_ROOK %SSYTRS_ROOK) - ("STBCON" "stbcon_" %%STBCON %STBCON) - ("STBRFS" "stbrfs_" %%STBRFS %STBRFS) - ("STBTRS" "stbtrs_" %%STBTRS %STBTRS) - ("STFSM" "stfsm_" %%STFSM %STFSM) - ("STFTRI" "stftri_" %%STFTRI %STFTRI) - ("STFTTP" "stfttp_" %%STFTTP %STFTTP) - ("STFTTR" "stfttr_" %%STFTTR %STFTTR) - ("STGEVC" "stgevc_" %%STGEVC %STGEVC) - ("STGEX2" "stgex2_" %%STGEX2 %STGEX2) - ("STGEXC" "stgexc_" %%STGEXC %STGEXC) - ("STGSEN" "stgsen_" %%STGSEN %STGSEN) - ("STGSJA" "stgsja_" %%STGSJA %STGSJA) - ("STGSNA" "stgsna_" %%STGSNA %STGSNA) - ("STGSY2" "stgsy2_" %%STGSY2 %STGSY2) - ("STGSYL" "stgsyl_" %%STGSYL %STGSYL) - ("STPCON" "stpcon_" %%STPCON %STPCON) - ("STPLQT" "stplqt_" %%STPLQT %STPLQT) - ("STPLQT2" "stplqt2_" %%STPLQT2 %STPLQT2) - ("STPMLQT" "stpmlqt_" %%STPMLQT %STPMLQT) - ("STPMQRT" "stpmqrt_" %%STPMQRT %STPMQRT) - ("STPQRT" "stpqrt_" %%STPQRT %STPQRT) - ("STPQRT2" "stpqrt2_" %%STPQRT2 %STPQRT2) - ("STPRFB" "stprfb_" %%STPRFB %STPRFB) - ("STPRFS" "stprfs_" %%STPRFS %STPRFS) - ("STPTRI" "stptri_" %%STPTRI %STPTRI) - ("STPTRS" "stptrs_" %%STPTRS %STPTRS) - ("STPTTF" "stpttf_" %%STPTTF %STPTTF) - ("STPTTR" "stpttr_" %%STPTTR %STPTTR) - ("STRCON" "strcon_" %%STRCON %STRCON) - ("STREVC" "strevc_" %%STREVC %STREVC) - ("STREVC3" "strevc3_" %%STREVC3 %STREVC3) - ("STREXC" "strexc_" %%STREXC %STREXC) - ("STRRFS" "strrfs_" %%STRRFS %STRRFS) - ("STRSEN" "strsen_" %%STRSEN %STRSEN) - ("STRSNA" "strsna_" %%STRSNA %STRSNA) - ("STRSYL" "strsyl_" %%STRSYL %STRSYL) - ("STRTI2" "strti2_" %%STRTI2 %STRTI2) - ("STRTRI" "strtri_" %%STRTRI %STRTRI) - ("STRTRS" "strtrs_" %%STRTRS %STRTRS) - ("STRTTF" "strttf_" %%STRTTF %STRTTF) - ("STRTTP" "strttp_" %%STRTTP %STRTTP) - ("STZRZF" "stzrzf_" %%STZRZF %STZRZF))) + %SORGQR %%SORGR2 %SORGR2 %%SORGRQ %SORGRQ %%SORGTR %SORGTR %%SORGTSQR + %SORGTSQR %%SORHR_COL %SORHR_COL %%SORM22 %SORM22 %%SORM2L %SORM2L %%SORM2R + %SORM2R %%SORMBR %SORMBR %%SORMHR %SORMHR %%SORML2 %SORML2 %%SORMLQ %SORMLQ + %%SORMQL %SORMQL %%SORMQR %SORMQR %%SORMR2 %SORMR2 %%SORMR3 %SORMR3 %%SORMRQ + %SORMRQ %%SORMRZ %SORMRZ %%SORMTR %SORMTR %%SPBCON %SPBCON %%SPBEQU %SPBEQU + %%SPBRFS %SPBRFS %%SPBSTF %SPBSTF %%SPBSV %SPBSV %%SPBSVX %SPBSVX %%SPBTF2 + %SPBTF2 %%SPBTRF %SPBTRF %%SPBTRS %SPBTRS %%SPFTRF %SPFTRF %%SPFTRI %SPFTRI + %%SPFTRS %SPFTRS %%SPOCON %SPOCON %%SPOEQU %SPOEQU %%SPOEQUB %SPOEQUB + %%SPORFS %SPORFS %%SPORFSX %SPORFSX %%SPOSV %SPOSV %%SPOSVX %SPOSVX %%SPOSVXX + %SPOSVXX %%SPOTF2 %SPOTF2 %%SPOTRF %SPOTRF %%SPOTRF2 %SPOTRF2 %%SPOTRI + %SPOTRI %%SPOTRS %SPOTRS %%SPPCON %SPPCON %%SPPEQU %SPPEQU %%SPPRFS %SPPRFS + %%SPPSV %SPPSV %%SPPSVX %SPPSVX %%SPPTRF %SPPTRF %%SPPTRI %SPPTRI %%SPPTRS + %SPPTRS %%SPSTF2 %SPSTF2 %%SPSTRF %SPSTRF %%SPTCON %SPTCON %%SPTEQR %SPTEQR + %%SPTRFS %SPTRFS %%SPTSV %SPTSV %%SPTSVX %SPTSVX %%SPTTRF %SPTTRF %%SPTTRS + %SPTTRS %%SPTTS2 %SPTTS2 %%SRSCL %SRSCL %%SSB2ST_KERNELS %SSB2ST_KERNELS + %%SSBEV %SSBEV %%SSBEV_2STAGE %SSBEV_2STAGE %%SSBEVD %SSBEVD %%SSBEVD_2STAGE + %SSBEVD_2STAGE %%SSBEVX %SSBEVX %%SSBEVX_2STAGE %SSBEVX_2STAGE %%SSBGST + %SSBGST %%SSBGV %SSBGV %%SSBGVD %SSBGVD %%SSBGVX %SSBGVX %%SSBTRD %SSBTRD + %%SSFRK %SSFRK %%SSPCON %SSPCON %%SSPEV %SSPEV %%SSPEVD %SSPEVD %%SSPEVX + %SSPEVX %%SSPGST %SSPGST %%SSPGV %SSPGV %%SSPGVD %SSPGVD %%SSPGVX %SSPGVX + %%SSPRFS %SSPRFS %%SSPSV %SSPSV %%SSPSVX %SSPSVX %%SSPTRD %SSPTRD %%SSPTRF + %SSPTRF %%SSPTRI %SSPTRI %%SSPTRS %SSPTRS %%SSTEBZ %SSTEBZ %%SSTEDC %SSTEDC + %%SSTEGR %SSTEGR %%SSTEIN %SSTEIN %%SSTEMR %SSTEMR %%SSTEQR %SSTEQR %%SSTERF + %SSTERF %%SSTEV %SSTEV %%SSTEVD %SSTEVD %%SSTEVR %SSTEVR %%SSTEVX %SSTEVX + %%SSYCON %SSYCON %%SSYCON_3 %SSYCON_3 %%SSYCON_ROOK %SSYCON_ROOK %%SSYCONV + %SSYCONV %%SSYCONVF %SSYCONVF %%SSYCONVF_ROOK %SSYCONVF_ROOK %%SSYEQUB + %SSYEQUB %%SSYEV %SSYEV %%SSYEV_2STAGE %SSYEV_2STAGE %%SSYEVD %SSYEVD + %%SSYEVD_2STAGE %SSYEVD_2STAGE %%SSYEVR %SSYEVR %%SSYEVR_2STAGE + %SSYEVR_2STAGE %%SSYEVX %SSYEVX %%SSYEVX_2STAGE %SSYEVX_2STAGE %%SSYGS2 + %SSYGS2 %%SSYGST %SSYGST %%SSYGV %SSYGV %%SSYGV_2STAGE %SSYGV_2STAGE %%SSYGVD + %SSYGVD %%SSYGVX %SSYGVX %%SSYRFS %SSYRFS %%SSYRFSX %SSYRFSX %%SSYSV %SSYSV + %%SSYSV_AA %SSYSV_AA %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE %%SSYSV_RK %SSYSV_RK + %%SSYSV_ROOK %SSYSV_ROOK %%SSYSVX %SSYSVX %%SSYSVXX %SSYSVXX %%SSYSWAPR + %SSYSWAPR %%SSYTD2 %SSYTD2 %%SSYTF2 %SSYTF2 %%SSYTF2_RK %SSYTF2_RK + %%SSYTF2_ROOK %SSYTF2_ROOK %%SSYTRD %SSYTRD %%SSYTRD_2STAGE %SSYTRD_2STAGE + %%SSYTRD_SY2SB %SSYTRD_SY2SB %%SSYTRF %SSYTRF %%SSYTRF_AA %SSYTRF_AA + %%SSYTRF_AA_2STAGE %SSYTRF_AA_2STAGE %%SSYTRF_RK %SSYTRF_RK %%SSYTRF_ROOK + %SSYTRF_ROOK %%SSYTRI %SSYTRI %%SSYTRI2 %SSYTRI2 %%SSYTRI2X %SSYTRI2X + %%SSYTRI_3 %SSYTRI_3 %%SSYTRI_3X %SSYTRI_3X %%SSYTRI_ROOK %SSYTRI_ROOK + %%SSYTRS %SSYTRS %%SSYTRS2 %SSYTRS2 %%SSYTRS_3 %SSYTRS_3 %%SSYTRS_AA + %SSYTRS_AA %%SSYTRS_AA_2STAGE %SSYTRS_AA_2STAGE %%SSYTRS_ROOK %SSYTRS_ROOK + %%STBCON %STBCON %%STBRFS %STBRFS %%STBTRS %STBTRS %%STFSM %STFSM %%STFTRI + %STFTRI %%STFTTP %STFTTP %%STFTTR %STFTTR %%STGEVC %STGEVC %%STGEX2 %STGEX2 + %%STGEXC %STGEXC %%STGSEN %STGSEN %%STGSJA %STGSJA %%STGSNA %STGSNA %%STGSY2 + %STGSY2 %%STGSYL %STGSYL %%STPCON %STPCON %%STPLQT %STPLQT %%STPLQT2 %STPLQT2 + %%STPMLQT %STPMLQT %%STPMQRT %STPMQRT %%STPQRT %STPQRT %%STPQRT2 %STPQRT2 + %%STPRFB %STPRFB %%STPRFS %STPRFS %%STPTRI %STPTRI %%STPTRS %STPTRS %%STPTTF + %STPTTF %%STPTTR %STPTTR %%STRCON %STRCON %%STREVC %STREVC %%STREVC3 %STREVC3 + %%STREXC %STREXC %%STRRFS %STRRFS %%STRSEN %STRSEN %%STRSNA %STRSNA %%STRSYL + %STRSYL %%STRTI2 %STRTI2 %%STRTRI %STRTRI %%STRTRS %STRTRS %%STRTTF %STRTTF + %%STRTTP %STRTTP %%STZRZF %STZRZF)) + +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK + '(("SLASDA" "slasda_" %%SLASDA %SLASDA) + ("SLASDQ" "slasdq_" %%SLASDQ %SLASDQ) + ("SLASDT" "slasdt_" %%SLASDT %SLASDT) + ("SLASET" "slaset_" %%SLASET %SLASET) + ("SLASQ1" "slasq1_" %%SLASQ1 %SLASQ1) + ("SLASQ2" "slasq2_" %%SLASQ2 %SLASQ2) + ("SLASQ3" "slasq3_" %%SLASQ3 %SLASQ3) + ("SLASQ4" "slasq4_" %%SLASQ4 %SLASQ4) + ("SLASQ5" "slasq5_" %%SLASQ5 %SLASQ5) + ("SLASQ6" "slasq6_" %%SLASQ6 %SLASQ6) + ("SLASR" "slasr_" %%SLASR %SLASR) + ("SLASRT" "slasrt_" %%SLASRT %SLASRT) + ("SLASSQ" "slassq_" %%SLASSQ %SLASSQ) + ("SLASV2" "slasv2_" %%SLASV2 %SLASV2) + ("SLASWLQ" "slaswlq_" %%SLASWLQ + %SLASWLQ) + ("SLASWP" "slaswp_" %%SLASWP %SLASWP) + ("SLASY2" "slasy2_" %%SLASY2 %SLASY2) + ("SLASYF" "slasyf_" %%SLASYF %SLASYF) + ("SLASYF_AA" "slasyf_aa_" %%SLASYF_AA + %SLASYF_AA) + ("SLASYF_RK" "slasyf_rk_" %%SLASYF_RK + %SLASYF_RK) + ("SLASYF_ROOK" "slasyf_rook_" + %%SLASYF_ROOK %SLASYF_ROOK) + ("SLATBS" "slatbs_" %%SLATBS %SLATBS) + ("SLATDF" "slatdf_" %%SLATDF %SLATDF) + ("SLATPS" "slatps_" %%SLATPS %SLATPS) + ("SLATRD" "slatrd_" %%SLATRD %SLATRD) + ("SLATRS" "slatrs_" %%SLATRS %SLATRS) + ("SLATRZ" "slatrz_" %%SLATRZ %SLATRZ) + ("SLATSQR" "slatsqr_" %%SLATSQR + %SLATSQR) + ("SLAUU2" "slauu2_" %%SLAUU2 %SLAUU2) + ("SLAUUM" "slauum_" %%SLAUUM %SLAUUM) + ("SOPGTR" "sopgtr_" %%SOPGTR %SOPGTR) + ("SOPMTR" "sopmtr_" %%SOPMTR %SOPMTR) + ("SORBDB" "sorbdb_" %%SORBDB %SORBDB) + ("SORBDB1" "sorbdb1_" %%SORBDB1 + %SORBDB1) + ("SORBDB2" "sorbdb2_" %%SORBDB2 + %SORBDB2) + ("SORBDB3" "sorbdb3_" %%SORBDB3 + %SORBDB3) + ("SORBDB4" "sorbdb4_" %%SORBDB4 + %SORBDB4) + ("SORBDB5" "sorbdb5_" %%SORBDB5 + %SORBDB5) + ("SORBDB6" "sorbdb6_" %%SORBDB6 + %SORBDB6) + ("SORCSD" "sorcsd_" %%SORCSD %SORCSD) + ("SORCSD2BY1" "sorcsd2by1_" + %%SORCSD2BY1 %SORCSD2BY1) + ("SORG2L" "sorg2l_" %%SORG2L %SORG2L) + ("SORG2R" "sorg2r_" %%SORG2R %SORG2R) + ("SORGBR" "sorgbr_" %%SORGBR %SORGBR) + ("SORGHR" "sorghr_" %%SORGHR %SORGHR) + ("SORGL2" "sorgl2_" %%SORGL2 %SORGL2) + ("SORGLQ" "sorglq_" %%SORGLQ %SORGLQ) + ("SORGQL" "sorgql_" %%SORGQL %SORGQL) + ("SORGQR" "sorgqr_" %%SORGQR %SORGQR) + ("SORGR2" "sorgr2_" %%SORGR2 %SORGR2) + ("SORGRQ" "sorgrq_" %%SORGRQ %SORGRQ) + ("SORGTR" "sorgtr_" %%SORGTR %SORGTR) + ("SORGTSQR" "sorgtsqr_" %%SORGTSQR + %SORGTSQR) + ("SORHR_COL" "sorhr_col_" %%SORHR_COL + %SORHR_COL) + ("SORM22" "sorm22_" %%SORM22 %SORM22) + ("SORM2L" "sorm2l_" %%SORM2L %SORM2L) + ("SORM2R" "sorm2r_" %%SORM2R %SORM2R) + ("SORMBR" "sormbr_" %%SORMBR %SORMBR) + ("SORMHR" "sormhr_" %%SORMHR %SORMHR) + ("SORML2" "sorml2_" %%SORML2 %SORML2) + ("SORMLQ" "sormlq_" %%SORMLQ %SORMLQ) + ("SORMQL" "sormql_" %%SORMQL %SORMQL) + ("SORMQR" "sormqr_" %%SORMQR %SORMQR) + ("SORMR2" "sormr2_" %%SORMR2 %SORMR2) + ("SORMR3" "sormr3_" %%SORMR3 %SORMR3) + ("SORMRQ" "sormrq_" %%SORMRQ %SORMRQ) + ("SORMRZ" "sormrz_" %%SORMRZ %SORMRZ) + ("SORMTR" "sormtr_" %%SORMTR %SORMTR) + ("SPBCON" "spbcon_" %%SPBCON %SPBCON) + ("SPBEQU" "spbequ_" %%SPBEQU %SPBEQU) + ("SPBRFS" "spbrfs_" %%SPBRFS %SPBRFS) + ("SPBSTF" "spbstf_" %%SPBSTF %SPBSTF) + ("SPBSV" "spbsv_" %%SPBSV %SPBSV) + ("SPBSVX" "spbsvx_" %%SPBSVX %SPBSVX) + ("SPBTF2" "spbtf2_" %%SPBTF2 %SPBTF2) + ("SPBTRF" "spbtrf_" %%SPBTRF %SPBTRF) + ("SPBTRS" "spbtrs_" %%SPBTRS %SPBTRS) + ("SPFTRF" "spftrf_" %%SPFTRF %SPFTRF) + ("SPFTRI" "spftri_" %%SPFTRI %SPFTRI) + ("SPFTRS" "spftrs_" %%SPFTRS %SPFTRS) + ("SPOCON" "spocon_" %%SPOCON %SPOCON) + ("SPOEQU" "spoequ_" %%SPOEQU %SPOEQU) + ("SPOEQUB" "spoequb_" %%SPOEQUB + %SPOEQUB) + ("SPORFS" "sporfs_" %%SPORFS %SPORFS) + ("SPORFSX" "sporfsx_" %%SPORFSX + %SPORFSX) + ("SPOSV" "sposv_" %%SPOSV %SPOSV) + ("SPOSVX" "sposvx_" %%SPOSVX %SPOSVX) + ("SPOSVXX" "sposvxx_" %%SPOSVXX + %SPOSVXX) + ("SPOTF2" "spotf2_" %%SPOTF2 %SPOTF2) + ("SPOTRF" "spotrf_" %%SPOTRF %SPOTRF) + ("SPOTRF2" "spotrf2_" %%SPOTRF2 + %SPOTRF2) + ("SPOTRI" "spotri_" %%SPOTRI %SPOTRI) + ("SPOTRS" "spotrs_" %%SPOTRS %SPOTRS) + ("SPPCON" "sppcon_" %%SPPCON %SPPCON) + ("SPPEQU" "sppequ_" %%SPPEQU %SPPEQU) + ("SPPRFS" "spprfs_" %%SPPRFS %SPPRFS) + ("SPPSV" "sppsv_" %%SPPSV %SPPSV) + ("SPPSVX" "sppsvx_" %%SPPSVX %SPPSVX) + ("SPPTRF" "spptrf_" %%SPPTRF %SPPTRF) + ("SPPTRI" "spptri_" %%SPPTRI %SPPTRI) + ("SPPTRS" "spptrs_" %%SPPTRS %SPPTRS) + ("SPSTF2" "spstf2_" %%SPSTF2 %SPSTF2) + ("SPSTRF" "spstrf_" %%SPSTRF %SPSTRF) + ("SPTCON" "sptcon_" %%SPTCON %SPTCON) + ("SPTEQR" "spteqr_" %%SPTEQR %SPTEQR) + ("SPTRFS" "sptrfs_" %%SPTRFS %SPTRFS) + ("SPTSV" "sptsv_" %%SPTSV %SPTSV) + ("SPTSVX" "sptsvx_" %%SPTSVX %SPTSVX) + ("SPTTRF" "spttrf_" %%SPTTRF %SPTTRF) + ("SPTTRS" "spttrs_" %%SPTTRS %SPTTRS) + ("SPTTS2" "sptts2_" %%SPTTS2 %SPTTS2) + ("SRSCL" "srscl_" %%SRSCL %SRSCL) + ("SSB2ST_KERNELS" "ssb2st_kernels_" + %%SSB2ST_KERNELS %SSB2ST_KERNELS) + ("SSBEV" "ssbev_" %%SSBEV %SSBEV) + ("SSBEV_2STAGE" "ssbev_2stage_" + %%SSBEV_2STAGE %SSBEV_2STAGE) + ("SSBEVD" "ssbevd_" %%SSBEVD %SSBEVD) + ("SSBEVD_2STAGE" "ssbevd_2stage_" + %%SSBEVD_2STAGE %SSBEVD_2STAGE) + ("SSBEVX" "ssbevx_" %%SSBEVX %SSBEVX) + ("SSBEVX_2STAGE" "ssbevx_2stage_" + %%SSBEVX_2STAGE %SSBEVX_2STAGE) + ("SSBGST" "ssbgst_" %%SSBGST %SSBGST) + ("SSBGV" "ssbgv_" %%SSBGV %SSBGV) + ("SSBGVD" "ssbgvd_" %%SSBGVD %SSBGVD) + ("SSBGVX" "ssbgvx_" %%SSBGVX %SSBGVX) + ("SSBTRD" "ssbtrd_" %%SSBTRD %SSBTRD) + ("SSFRK" "ssfrk_" %%SSFRK %SSFRK) + ("SSPCON" "sspcon_" %%SSPCON %SSPCON) + ("SSPEV" "sspev_" %%SSPEV %SSPEV) + ("SSPEVD" "sspevd_" %%SSPEVD %SSPEVD) + ("SSPEVX" "sspevx_" %%SSPEVX %SSPEVX) + ("SSPGST" "sspgst_" %%SSPGST %SSPGST) + ("SSPGV" "sspgv_" %%SSPGV %SSPGV) + ("SSPGVD" "sspgvd_" %%SSPGVD %SSPGVD) + ("SSPGVX" "sspgvx_" %%SSPGVX %SSPGVX) + ("SSPRFS" "ssprfs_" %%SSPRFS %SSPRFS) + ("SSPSV" "sspsv_" %%SSPSV %SSPSV) + ("SSPSVX" "sspsvx_" %%SSPSVX %SSPSVX) + ("SSPTRD" "ssptrd_" %%SSPTRD %SSPTRD) + ("SSPTRF" "ssptrf_" %%SSPTRF %SSPTRF) + ("SSPTRI" "ssptri_" %%SSPTRI %SSPTRI) + ("SSPTRS" "ssptrs_" %%SSPTRS %SSPTRS) + ("SSTEBZ" "sstebz_" %%SSTEBZ %SSTEBZ) + ("SSTEDC" "sstedc_" %%SSTEDC %SSTEDC) + ("SSTEGR" "sstegr_" %%SSTEGR %SSTEGR) + ("SSTEIN" "sstein_" %%SSTEIN %SSTEIN) + ("SSTEMR" "sstemr_" %%SSTEMR %SSTEMR) + ("SSTEQR" "ssteqr_" %%SSTEQR %SSTEQR) + ("SSTERF" "ssterf_" %%SSTERF %SSTERF) + ("SSTEV" "sstev_" %%SSTEV %SSTEV) + ("SSTEVD" "sstevd_" %%SSTEVD %SSTEVD) + ("SSTEVR" "sstevr_" %%SSTEVR %SSTEVR) + ("SSTEVX" "sstevx_" %%SSTEVX %SSTEVX) + ("SSYCON" "ssycon_" %%SSYCON %SSYCON) + ("SSYCON_3" "ssycon_3_" %%SSYCON_3 + %SSYCON_3) + ("SSYCON_ROOK" "ssycon_rook_" + %%SSYCON_ROOK %SSYCON_ROOK) + ("SSYCONV" "ssyconv_" %%SSYCONV + %SSYCONV) + ("SSYCONVF" "ssyconvf_" %%SSYCONVF + %SSYCONVF) + ("SSYCONVF_ROOK" "ssyconvf_rook_" + %%SSYCONVF_ROOK %SSYCONVF_ROOK) + ("SSYEQUB" "ssyequb_" %%SSYEQUB + %SSYEQUB) + ("SSYEV" "ssyev_" %%SSYEV %SSYEV) + ("SSYEV_2STAGE" "ssyev_2stage_" + %%SSYEV_2STAGE %SSYEV_2STAGE) + ("SSYEVD" "ssyevd_" %%SSYEVD %SSYEVD) + ("SSYEVD_2STAGE" "ssyevd_2stage_" + %%SSYEVD_2STAGE %SSYEVD_2STAGE) + ("SSYEVR" "ssyevr_" %%SSYEVR %SSYEVR) + ("SSYEVR_2STAGE" "ssyevr_2stage_" + %%SSYEVR_2STAGE %SSYEVR_2STAGE) + ("SSYEVX" "ssyevx_" %%SSYEVX %SSYEVX) + ("SSYEVX_2STAGE" "ssyevx_2stage_" + %%SSYEVX_2STAGE %SSYEVX_2STAGE) + ("SSYGS2" "ssygs2_" %%SSYGS2 %SSYGS2) + ("SSYGST" "ssygst_" %%SSYGST %SSYGST) + ("SSYGV" "ssygv_" %%SSYGV %SSYGV) + ("SSYGV_2STAGE" "ssygv_2stage_" + %%SSYGV_2STAGE %SSYGV_2STAGE) + ("SSYGVD" "ssygvd_" %%SSYGVD %SSYGVD) + ("SSYGVX" "ssygvx_" %%SSYGVX %SSYGVX) + ("SSYRFS" "ssyrfs_" %%SSYRFS %SSYRFS) + ("SSYRFSX" "ssyrfsx_" %%SSYRFSX + %SSYRFSX) + ("SSYSV" "ssysv_" %%SSYSV %SSYSV) + ("SSYSV_AA" "ssysv_aa_" %%SSYSV_AA + %SSYSV_AA) + ("SSYSV_AA_2STAGE" "ssysv_aa_2stage_" + %%SSYSV_AA_2STAGE %SSYSV_AA_2STAGE) + ("SSYSV_RK" "ssysv_rk_" %%SSYSV_RK + %SSYSV_RK) + ("SSYSV_ROOK" "ssysv_rook_" + %%SSYSV_ROOK %SSYSV_ROOK) + ("SSYSVX" "ssysvx_" %%SSYSVX %SSYSVX) + ("SSYSVXX" "ssysvxx_" %%SSYSVXX + %SSYSVXX) + ("SSYSWAPR" "ssyswapr_" %%SSYSWAPR + %SSYSWAPR) + ("SSYTD2" "ssytd2_" %%SSYTD2 %SSYTD2) + ("SSYTF2" "ssytf2_" %%SSYTF2 %SSYTF2) + ("SSYTF2_RK" "ssytf2_rk_" %%SSYTF2_RK + %SSYTF2_RK) + ("SSYTF2_ROOK" "ssytf2_rook_" + %%SSYTF2_ROOK %SSYTF2_ROOK) + ("SSYTRD" "ssytrd_" %%SSYTRD %SSYTRD) + ("SSYTRD_2STAGE" "ssytrd_2stage_" + %%SSYTRD_2STAGE %SSYTRD_2STAGE) + ("SSYTRD_SY2SB" "ssytrd_sy2sb_" + %%SSYTRD_SY2SB %SSYTRD_SY2SB) + ("SSYTRF" "ssytrf_" %%SSYTRF %SSYTRF) + ("SSYTRF_AA" "ssytrf_aa_" %%SSYTRF_AA + %SSYTRF_AA) + ("SSYTRF_AA_2STAGE" + "ssytrf_aa_2stage_" + %%SSYTRF_AA_2STAGE + %SSYTRF_AA_2STAGE) + ("SSYTRF_RK" "ssytrf_rk_" %%SSYTRF_RK + %SSYTRF_RK) + ("SSYTRF_ROOK" "ssytrf_rook_" + %%SSYTRF_ROOK %SSYTRF_ROOK) + ("SSYTRI" "ssytri_" %%SSYTRI %SSYTRI) + ("SSYTRI2" "ssytri2_" %%SSYTRI2 + %SSYTRI2) + ("SSYTRI2X" "ssytri2x_" %%SSYTRI2X + %SSYTRI2X) + ("SSYTRI_3" "ssytri_3_" %%SSYTRI_3 + %SSYTRI_3) + ("SSYTRI_3X" "ssytri_3x_" %%SSYTRI_3X + %SSYTRI_3X) + ("SSYTRI_ROOK" "ssytri_rook_" + %%SSYTRI_ROOK %SSYTRI_ROOK) + ("SSYTRS" "ssytrs_" %%SSYTRS %SSYTRS) + ("SSYTRS2" "ssytrs2_" %%SSYTRS2 + %SSYTRS2) + ("SSYTRS_3" "ssytrs_3_" %%SSYTRS_3 + %SSYTRS_3) + ("SSYTRS_AA" "ssytrs_aa_" %%SSYTRS_AA + %SSYTRS_AA) + ("SSYTRS_AA_2STAGE" + "ssytrs_aa_2stage_" + %%SSYTRS_AA_2STAGE + %SSYTRS_AA_2STAGE) + ("SSYTRS_ROOK" "ssytrs_rook_" + %%SSYTRS_ROOK %SSYTRS_ROOK) + ("STBCON" "stbcon_" %%STBCON %STBCON) + ("STBRFS" "stbrfs_" %%STBRFS %STBRFS) + ("STBTRS" "stbtrs_" %%STBTRS %STBTRS) + ("STFSM" "stfsm_" %%STFSM %STFSM) + ("STFTRI" "stftri_" %%STFTRI %STFTRI) + ("STFTTP" "stfttp_" %%STFTTP %STFTTP) + ("STFTTR" "stfttr_" %%STFTTR %STFTTR) + ("STGEVC" "stgevc_" %%STGEVC %STGEVC) + ("STGEX2" "stgex2_" %%STGEX2 %STGEX2) + ("STGEXC" "stgexc_" %%STGEXC %STGEXC) + ("STGSEN" "stgsen_" %%STGSEN %STGSEN) + ("STGSJA" "stgsja_" %%STGSJA %STGSJA) + ("STGSNA" "stgsna_" %%STGSNA %STGSNA) + ("STGSY2" "stgsy2_" %%STGSY2 %STGSY2) + ("STGSYL" "stgsyl_" %%STGSYL %STGSYL) + ("STPCON" "stpcon_" %%STPCON %STPCON) + ("STPLQT" "stplqt_" %%STPLQT %STPLQT) + ("STPLQT2" "stplqt2_" %%STPLQT2 + %STPLQT2) + ("STPMLQT" "stpmlqt_" %%STPMLQT + %STPMLQT) + ("STPMQRT" "stpmqrt_" %%STPMQRT + %STPMQRT) + ("STPQRT" "stpqrt_" %%STPQRT %STPQRT) + ("STPQRT2" "stpqrt2_" %%STPQRT2 + %STPQRT2) + ("STPRFB" "stprfb_" %%STPRFB %STPRFB) + ("STPRFS" "stprfs_" %%STPRFS %STPRFS) + ("STPTRI" "stptri_" %%STPTRI %STPTRI) + ("STPTRS" "stptrs_" %%STPTRS %STPTRS) + ("STPTTF" "stpttf_" %%STPTTF %STPTTF) + ("STPTTR" "stpttr_" %%STPTTR %STPTTR) + ("STRCON" "strcon_" %%STRCON %STRCON) + ("STREVC" "strevc_" %%STREVC %STREVC) + ("STREVC3" "strevc3_" %%STREVC3 + %STREVC3) + ("STREXC" "strexc_" %%STREXC %STREXC) + ("STRRFS" "strrfs_" %%STRRFS %STRRFS) + ("STRSEN" "strsen_" %%STRSEN %STRSEN) + ("STRSNA" "strsna_" %%STRSNA %STRSNA) + ("STRSYL" "strsyl_" %%STRSYL %STRSYL) + ("STRTI2" "strti2_" %%STRTI2 %STRTI2) + ("STRTRI" "strtri_" %%STRTRI %STRTRI) + ("STRTRS" "strtrs_" %%STRTRS %STRTRS) + ("STRTTF" "strttf_" %%STRTTF %STRTTF) + ("STRTTP" "strttp_" %%STRTTP %STRTTP) + ("STZRZF" "stzrzf_" %%STZRZF + %STZRZF))) (COMMON-LISP:EXPORT '(%SLASDA %SLASDQ %SLASDT %SLASET %SLASQ1 %SLASQ2 %SLASQ3 %SLASQ4 %SLASQ5 - %SLASQ6 %SLASR %SLASRT %SLASSQ %SLASV2 %SLASWLQ %SLASWP %SLASY2 - %SLASYF %SLASYF_AA %SLASYF_RK %SLASYF_ROOK %SLATBS %SLATDF %SLATPS - %SLATRD %SLATRS %SLATRZ %SLATSQR %SLAUU2 %SLAUUM %SOPGTR %SOPMTR - %SORBDB %SORBDB1 %SORBDB2 %SORBDB3 %SORBDB4 %SORBDB5 %SORBDB6 - %SORCSD %SORCSD2BY1 %SORG2L %SORG2R %SORGBR %SORGHR %SORGL2 %SORGLQ - %SORGQL %SORGQR %SORGR2 %SORGRQ %SORGTR %SORM22 %SORM2L %SORM2R - %SORMBR %SORMHR %SORML2 %SORMLQ %SORMQL %SORMQR %SORMR2 %SORMR3 - %SORMRQ %SORMRZ %SORMTR %SPBCON %SPBEQU %SPBRFS %SPBSTF %SPBSV - %SPBSVX %SPBTF2 %SPBTRF %SPBTRS %SPFTRF %SPFTRI %SPFTRS %SPOCON - %SPOEQU %SPOEQUB %SPORFS %SPORFSX %SPOSV %SPOSVX %SPOSVXX %SPOTF2 - %SPOTRF %SPOTRF2 %SPOTRI %SPOTRS %SPPCON %SPPEQU %SPPRFS %SPPSV - %SPPSVX %SPPTRF %SPPTRI %SPPTRS %SPSTF2 %SPSTRF %SPTCON %SPTEQR - %SPTRFS %SPTSV %SPTSVX %SPTTRF %SPTTRS %SPTTS2 %SRSCL - %SSB2ST_KERNELS %SSBEV %SSBEV_2STAGE %SSBEVD %SSBEVD_2STAGE %SSBEVX - %SSBEVX_2STAGE %SSBGST %SSBGV %SSBGVD %SSBGVX %SSBTRD %SSFRK %SSPCON - %SSPEV %SSPEVD %SSPEVX %SSPGST %SSPGV %SSPGVD %SSPGVX %SSPRFS %SSPSV - %SSPSVX %SSPTRD %SSPTRF %SSPTRI %SSPTRS %SSTEBZ %SSTEDC %SSTEGR - %SSTEIN %SSTEMR %SSTEQR %SSTERF %SSTEV %SSTEVD %SSTEVR %SSTEVX - %SSYCON %SSYCON_3 %SSYCON_ROOK %SSYCONV %SSYCONVF %SSYCONVF_ROOK - %SSYEQUB %SSYEV %SSYEV_2STAGE %SSYEVD %SSYEVD_2STAGE %SSYEVR - %SSYEVR_2STAGE %SSYEVX %SSYEVX_2STAGE %SSYGS2 %SSYGST %SSYGV - %SSYGV_2STAGE %SSYGVD %SSYGVX %SSYRFS %SSYRFSX %SSYSV %SSYSV_AA - %SSYSV_AA_2STAGE %SSYSV_RK %SSYSV_ROOK %SSYSVX %SSYSVXX %SSYSWAPR - %SSYTD2 %SSYTF2 %SSYTF2_RK %SSYTF2_ROOK %SSYTRD %SSYTRD_2STAGE - %SSYTRD_SY2SB %SSYTRF %SSYTRF_AA %SSYTRF_AA_2STAGE %SSYTRF_RK - %SSYTRF_ROOK %SSYTRI %SSYTRI2 %SSYTRI2X %SSYTRI_3 %SSYTRI_3X - %SSYTRI_ROOK %SSYTRS %SSYTRS2 %SSYTRS_3 %SSYTRS_AA %SSYTRS_AA_2STAGE - %SSYTRS_ROOK %STBCON %STBRFS %STBTRS %STFSM %STFTRI %STFTTP %STFTTR - %STGEVC %STGEX2 %STGEXC %STGSEN %STGSJA %STGSNA %STGSY2 %STGSYL - %STPCON %STPLQT %STPLQT2 %STPMLQT %STPMQRT %STPQRT %STPQRT2 %STPRFB - %STPRFS %STPTRI %STPTRS %STPTTF %STPTTR %STRCON %STREVC %STREVC3 - %STREXC %STRRFS %STRSEN %STRSNA %STRSYL %STRTI2 %STRTRI %STRTRS - %STRTTF %STRTTP %STZRZF) + %SLASQ6 %SLASR %SLASRT %SLASSQ %SLASV2 %SLASWLQ %SLASWP %SLASY2 %SLASYF + %SLASYF_AA %SLASYF_RK %SLASYF_ROOK %SLATBS %SLATDF %SLATPS %SLATRD %SLATRS + %SLATRZ %SLATSQR %SLAUU2 %SLAUUM %SOPGTR %SOPMTR %SORBDB %SORBDB1 %SORBDB2 + %SORBDB3 %SORBDB4 %SORBDB5 %SORBDB6 %SORCSD %SORCSD2BY1 %SORG2L %SORG2R + %SORGBR %SORGHR %SORGL2 %SORGLQ %SORGQL %SORGQR %SORGR2 %SORGRQ %SORGTR + %SORGTSQR %SORHR_COL %SORM22 %SORM2L %SORM2R %SORMBR %SORMHR %SORML2 %SORMLQ + %SORMQL %SORMQR %SORMR2 %SORMR3 %SORMRQ %SORMRZ %SORMTR %SPBCON %SPBEQU + %SPBRFS %SPBSTF %SPBSV %SPBSVX %SPBTF2 %SPBTRF %SPBTRS %SPFTRF %SPFTRI + %SPFTRS %SPOCON %SPOEQU %SPOEQUB %SPORFS %SPORFSX %SPOSV %SPOSVX %SPOSVXX + %SPOTF2 %SPOTRF %SPOTRF2 %SPOTRI %SPOTRS %SPPCON %SPPEQU %SPPRFS %SPPSV + %SPPSVX %SPPTRF %SPPTRI %SPPTRS %SPSTF2 %SPSTRF %SPTCON %SPTEQR %SPTRFS + %SPTSV %SPTSVX %SPTTRF %SPTTRS %SPTTS2 %SRSCL %SSB2ST_KERNELS %SSBEV + %SSBEV_2STAGE %SSBEVD %SSBEVD_2STAGE %SSBEVX %SSBEVX_2STAGE %SSBGST %SSBGV + %SSBGVD %SSBGVX %SSBTRD %SSFRK %SSPCON %SSPEV %SSPEVD %SSPEVX %SSPGST %SSPGV + %SSPGVD %SSPGVX %SSPRFS %SSPSV %SSPSVX %SSPTRD %SSPTRF %SSPTRI %SSPTRS + %SSTEBZ %SSTEDC %SSTEGR %SSTEIN %SSTEMR %SSTEQR %SSTERF %SSTEV %SSTEVD + %SSTEVR %SSTEVX %SSYCON %SSYCON_3 %SSYCON_ROOK %SSYCONV %SSYCONVF + %SSYCONVF_ROOK %SSYEQUB %SSYEV %SSYEV_2STAGE %SSYEVD %SSYEVD_2STAGE %SSYEVR + %SSYEVR_2STAGE %SSYEVX %SSYEVX_2STAGE %SSYGS2 %SSYGST %SSYGV %SSYGV_2STAGE + %SSYGVD %SSYGVX %SSYRFS %SSYRFSX %SSYSV %SSYSV_AA %SSYSV_AA_2STAGE %SSYSV_RK + %SSYSV_ROOK %SSYSVX %SSYSVXX %SSYSWAPR %SSYTD2 %SSYTF2 %SSYTF2_RK + %SSYTF2_ROOK %SSYTRD %SSYTRD_2STAGE %SSYTRD_SY2SB %SSYTRF %SSYTRF_AA + %SSYTRF_AA_2STAGE %SSYTRF_RK %SSYTRF_ROOK %SSYTRI %SSYTRI2 %SSYTRI2X + %SSYTRI_3 %SSYTRI_3X %SSYTRI_ROOK %SSYTRS %SSYTRS2 %SSYTRS_3 %SSYTRS_AA + %SSYTRS_AA_2STAGE %SSYTRS_ROOK %STBCON %STBRFS %STBTRS %STFSM %STFTRI + %STFTTP %STFTTR %STGEVC %STGEX2 %STGEXC %STGSEN %STGSJA %STGSNA %STGSY2 + %STGSYL %STPCON %STPLQT %STPLQT2 %STPMLQT %STPMQRT %STPQRT %STPQRT2 %STPRFB + %STPRFS %STPTRI %STPTRS %STPTTF %STPTTR %STRCON %STREVC %STREVC3 %STREXC + %STRRFS %STRSEN %STRSNA %STRSYL %STRTI2 %STRTRI %STRTRS %STRTTF %STRTTP + %STZRZF) '#:MAGICL.LAPACK-CFFI) ;;; End of file. diff --git a/src/bindings/lapack06-cffi.lisp b/src/bindings/lapack06-cffi.lisp index f93dc6c1..c3243f31 100644 --- a/src/bindings/lapack06-cffi.lisp +++ b/src/bindings/lapack06-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 5/21/2019 at 13:37:10 (UTC+1). +;;;; Generated on 3/22/2021 at 17:54:20 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -74,9 +74,10 @@ %ZLAHEF_RK %%ZLAHEF_ROOK %ZLAHEF_ROOK %%ZLAHQR %ZLAHQR %%ZLAHR2 %ZLAHR2 %%ZLAIC1 %ZLAIC1 %%ZLALS0 %ZLALS0 %%ZLALSA %ZLALSA %%ZLALSD %ZLALSD %%ZLAMSWLQ %ZLAMSWLQ %%ZLAMTSQR %ZLAMTSQR %%ZLANGB %ZLANGB %%ZLANGE %ZLANGE - %%ZLANGT %ZLANGT %%ZLANHB %ZLANHB %%ZLANHE %ZLANHE)) + %%ZLANGT %ZLANGT %%ZLANHB %ZLANHB %%ZLANHE %ZLANHE %%ZLANHF %ZLANHF %%ZLANHP + %ZLANHP)) -(CFFI:DEFCFUN ("xerbla_" %%XERBLA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("xerbla_" %%XERBLA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SRNAME :STRING) (INFO :POINTER)) @@ -85,13 +86,13 @@ (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA) (COMMON-LISP:TYPE COMMON-LISP:STRING SRNAME) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((INFO-REF17455 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17455 :INT32) INFO) + (CFFI:WITH-FOREIGN-OBJECTS ((INFO-REF17470 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17470 :INT32) INFO) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%XERBLA SRNAME INFO-REF17455)))) + (%%XERBLA SRNAME INFO-REF17470)))) (CFFI:DEFCFUN ("xerbla_array_" %%XERBLA_ARRAY :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SRNAME_ARRAY :POINTER) (SRNAME_LEN :POINTER) @@ -103,16 +104,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SRNAME_LEN) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SRNAME_LEN-REF17457 ':INT32) - (INFO-REF17458 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SRNAME_LEN-REF17457 :INT32) SRNAME_LEN) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17458 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SRNAME_ARRAY-REF17456 + (CFFI:WITH-FOREIGN-OBJECTS ((SRNAME_LEN-REF17472 ':INT32) + (INFO-REF17473 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SRNAME_LEN-REF17472 :INT32) SRNAME_LEN) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17473 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SRNAME_ARRAY-REF17471 SRNAME_ARRAY)) - (%%XERBLA_ARRAY SRNAME_ARRAY-REF17456 SRNAME_LEN-REF17457 - INFO-REF17458)))) + (%%XERBLA_ARRAY SRNAME_ARRAY-REF17471 SRNAME_LEN-REF17472 + INFO-REF17473)))) -(CFFI:DEFCFUN ("zbbcsd_" %%ZBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zbbcsd_" %%ZBBCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -216,42 +217,41 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17464 ':INT32) (P-REF17465 ':INT32) - (Q-REF17466 ':INT32) (LDU1-REF17470 ':INT32) - (LDU2-REF17472 ':INT32) (LDV1T-REF17474 ':INT32) - (LDV2T-REF17476 ':INT32) - (LRWORK-REF17486 ':INT32) (INFO-REF17487 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17464 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17465 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF17466 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF17470 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF17472 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF17474 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF17476 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17486 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17487 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF17467 THETA) - (PHI-REF17468 PHI) (U1-REF17469 U1) - (U2-REF17471 U2) (V1T-REF17473 V1T) - (V2T-REF17475 V2T) - (B11D-REF17477 B11D) - (B11E-REF17478 B11E) - (B12D-REF17479 B12D) - (B12E-REF17480 B12E) - (B21D-REF17481 B21D) - (B21E-REF17482 B21E) - (B22D-REF17483 B22D) - (B22E-REF17484 B22E) - (RWORK-REF17485 RWORK)) - (%%ZBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF17464 P-REF17465 - Q-REF17466 THETA-REF17467 PHI-REF17468 U1-REF17469 - LDU1-REF17470 U2-REF17471 LDU2-REF17472 V1T-REF17473 - LDV1T-REF17474 V2T-REF17475 LDV2T-REF17476 B11D-REF17477 - B11E-REF17478 B12D-REF17479 B12E-REF17480 B21D-REF17481 - B21E-REF17482 B22D-REF17483 B22E-REF17484 RWORK-REF17485 - LRWORK-REF17486 INFO-REF17487)))) - -(CFFI:DEFCFUN ("zbdsqr_" %%ZBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17479 ':INT32) (P-REF17480 ':INT32) + (Q-REF17481 ':INT32) (LDU1-REF17485 ':INT32) + (LDU2-REF17487 ':INT32) (LDV1T-REF17489 ':INT32) + (LDV2T-REF17491 ':INT32) + (LRWORK-REF17501 ':INT32) (INFO-REF17502 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17479 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF17480 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF17481 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF17485 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF17487 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF17489 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF17491 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17501 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17502 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF17482 THETA) + (PHI-REF17483 PHI) (U1-REF17484 U1) + (U2-REF17486 U2) (V1T-REF17488 V1T) + (V2T-REF17490 V2T) + (B11D-REF17492 B11D) + (B11E-REF17493 B11E) + (B12D-REF17494 B12D) + (B12E-REF17495 B12E) + (B21D-REF17496 B21D) + (B21E-REF17497 B21E) + (B22D-REF17498 B22D) + (B22E-REF17499 B22E) + (RWORK-REF17500 RWORK)) + (%%ZBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF17479 P-REF17480 + Q-REF17481 THETA-REF17482 PHI-REF17483 U1-REF17484 LDU1-REF17485 + U2-REF17486 LDU2-REF17487 V1T-REF17488 LDV1T-REF17489 V2T-REF17490 + LDV2T-REF17491 B11D-REF17492 B11E-REF17493 B12D-REF17494 B12E-REF17495 + B21D-REF17496 B21E-REF17497 B22D-REF17498 B22E-REF17499 RWORK-REF17500 + LRWORK-REF17501 INFO-REF17502)))) + +(CFFI:DEFCFUN ("zbdsqr_" %%ZBDSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -303,28 +303,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17489 ':INT32) (NCVT-REF17490 ':INT32) - (NRU-REF17491 ':INT32) (NCC-REF17492 ':INT32) - (LDVT-REF17496 ':INT32) (LDU-REF17498 ':INT32) - (LDC-REF17500 ':INT32) (INFO-REF17502 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17489 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF17490 :INT32) NCVT) - (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF17491 :INT32) NRU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF17492 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF17496 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17498 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17500 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17502 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17493 D) (E-REF17494 E) - (VT-REF17495 VT) (U-REF17497 U) - (C-REF17499 C) - (RWORK-REF17501 RWORK)) - (%%ZBDSQR UPLO N-REF17489 NCVT-REF17490 NRU-REF17491 NCC-REF17492 - D-REF17493 E-REF17494 VT-REF17495 LDVT-REF17496 U-REF17497 - LDU-REF17498 C-REF17499 LDC-REF17500 RWORK-REF17501 - INFO-REF17502)))) - -(CFFI:DEFCFUN ("zcgesv_" %%ZCGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17504 ':INT32) (NCVT-REF17505 ':INT32) + (NRU-REF17506 ':INT32) (NCC-REF17507 ':INT32) + (LDVT-REF17511 ':INT32) (LDU-REF17513 ':INT32) + (LDC-REF17515 ':INT32) (INFO-REF17517 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17504 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF17505 :INT32) NCVT) + (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF17506 :INT32) NRU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF17507 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF17511 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17513 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17515 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17517 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF17508 D) (E-REF17509 E) + (VT-REF17510 VT) (U-REF17512 U) + (C-REF17514 C) + (RWORK-REF17516 RWORK)) + (%%ZBDSQR UPLO N-REF17504 NCVT-REF17505 NRU-REF17506 NCC-REF17507 + D-REF17508 E-REF17509 VT-REF17510 LDVT-REF17511 U-REF17512 LDU-REF17513 + C-REF17514 LDC-REF17515 RWORK-REF17516 INFO-REF17517)))) + +(CFFI:DEFCFUN ("zcgesv_" %%ZCGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -383,27 +382,27 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17503 ':INT32) (NRHS-REF17504 ':INT32) - (LDA-REF17506 ':INT32) (LDB-REF17509 ':INT32) - (LDX-REF17511 ':INT32) (ITER-REF17515 ':INT32) - (INFO-REF17516 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17503 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17504 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17506 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17509 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17511 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF17515 :INT32) ITER) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17516 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17505 A) (IPIV-REF17507 IPIV) - (B-REF17508 B) (X-REF17510 X) - (WORK-REF17512 WORK) - (SWORK-REF17513 SWORK) - (RWORK-REF17514 RWORK)) - (%%ZCGESV N-REF17503 NRHS-REF17504 A-REF17505 LDA-REF17506 IPIV-REF17507 - B-REF17508 LDB-REF17509 X-REF17510 LDX-REF17511 WORK-REF17512 - SWORK-REF17513 RWORK-REF17514 ITER-REF17515 INFO-REF17516)))) - -(CFFI:DEFCFUN ("zcposv_" %%ZCPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17518 ':INT32) (NRHS-REF17519 ':INT32) + (LDA-REF17521 ':INT32) (LDB-REF17524 ':INT32) + (LDX-REF17526 ':INT32) (ITER-REF17530 ':INT32) + (INFO-REF17531 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17518 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17519 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17521 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17524 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17526 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF17530 :INT32) ITER) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17531 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17520 A) (IPIV-REF17522 IPIV) + (B-REF17523 B) (X-REF17525 X) + (WORK-REF17527 WORK) + (SWORK-REF17528 SWORK) + (RWORK-REF17529 RWORK)) + (%%ZCGESV N-REF17518 NRHS-REF17519 A-REF17520 LDA-REF17521 IPIV-REF17522 + B-REF17523 LDB-REF17524 X-REF17525 LDX-REF17526 WORK-REF17527 + SWORK-REF17528 RWORK-REF17529 ITER-REF17530 INFO-REF17531)))) + +(CFFI:DEFCFUN ("zcposv_" %%ZCPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -459,26 +458,26 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17518 ':INT32) (NRHS-REF17519 ':INT32) - (LDA-REF17521 ':INT32) (LDB-REF17523 ':INT32) - (LDX-REF17525 ':INT32) (ITER-REF17529 ':INT32) - (INFO-REF17530 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17518 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17519 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17521 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17523 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17525 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF17529 :INT32) ITER) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17530 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17520 A) (B-REF17522 B) - (X-REF17524 X) (WORK-REF17526 WORK) - (SWORK-REF17527 SWORK) - (RWORK-REF17528 RWORK)) - (%%ZCPOSV UPLO N-REF17518 NRHS-REF17519 A-REF17520 LDA-REF17521 - B-REF17522 LDB-REF17523 X-REF17524 LDX-REF17525 WORK-REF17526 - SWORK-REF17527 RWORK-REF17528 ITER-REF17529 INFO-REF17530)))) - -(CFFI:DEFCFUN ("zdrscl_" %%ZDRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17533 ':INT32) (NRHS-REF17534 ':INT32) + (LDA-REF17536 ':INT32) (LDB-REF17538 ':INT32) + (LDX-REF17540 ':INT32) (ITER-REF17544 ':INT32) + (INFO-REF17545 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17533 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17534 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17536 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17538 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17540 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF17544 :INT32) ITER) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17545 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17535 A) (B-REF17537 B) + (X-REF17539 X) (WORK-REF17541 WORK) + (SWORK-REF17542 SWORK) + (RWORK-REF17543 RWORK)) + (%%ZCPOSV UPLO N-REF17533 NRHS-REF17534 A-REF17535 LDA-REF17536 + B-REF17537 LDB-REF17538 X-REF17539 LDX-REF17540 WORK-REF17541 + SWORK-REF17542 RWORK-REF17543 ITER-REF17544 INFO-REF17545)))) + +(CFFI:DEFCFUN ("zdrscl_" %%ZDRSCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (SA :POINTER) @@ -495,15 +494,15 @@ (COMMON-LISP:*)) SX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17531 ':INT32) (SA-REF17532 ':DOUBLE) - (INCX-REF17534 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17531 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF17532 :DOUBLE) SA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF17534 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF17533 SX)) - (%%ZDRSCL N-REF17531 SA-REF17532 SX-REF17533 INCX-REF17534)))) - -(CFFI:DEFCFUN ("zgbbrd_" %%ZGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17546 ':INT32) (SA-REF17547 ':DOUBLE) + (INCX-REF17549 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17546 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF17547 :DOUBLE) SA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF17549 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF17548 SX)) + (%%ZDRSCL N-REF17546 SA-REF17547 SX-REF17548 INCX-REF17549)))) + +(CFFI:DEFCFUN ("zgbbrd_" %%ZGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (M :POINTER) @@ -572,32 +571,32 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17536 ':INT32) (N-REF17537 ':INT32) - (NCC-REF17538 ':INT32) (KL-REF17539 ':INT32) - (KU-REF17540 ':INT32) (LDAB-REF17542 ':INT32) - (LDQ-REF17546 ':INT32) (LDPT-REF17548 ':INT32) - (LDC-REF17550 ':INT32) (INFO-REF17553 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17536 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17537 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF17538 :INT32) NCC) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17539 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17540 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17542 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17546 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF17548 :INT32) LDPT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17550 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17553 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17541 AB) (D-REF17543 D) - (E-REF17544 E) (Q-REF17545 Q) - (PT-REF17547 PT) (C-REF17549 C) - (WORK-REF17551 WORK) - (RWORK-REF17552 RWORK)) - (%%ZGBBRD VECT M-REF17536 N-REF17537 NCC-REF17538 KL-REF17539 KU-REF17540 - AB-REF17541 LDAB-REF17542 D-REF17543 E-REF17544 Q-REF17545 - LDQ-REF17546 PT-REF17547 LDPT-REF17548 C-REF17549 LDC-REF17550 - WORK-REF17551 RWORK-REF17552 INFO-REF17553)))) - -(CFFI:DEFCFUN ("zgbcon_" %%ZGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17551 ':INT32) (N-REF17552 ':INT32) + (NCC-REF17553 ':INT32) (KL-REF17554 ':INT32) + (KU-REF17555 ':INT32) (LDAB-REF17557 ':INT32) + (LDQ-REF17561 ':INT32) (LDPT-REF17563 ':INT32) + (LDC-REF17565 ':INT32) (INFO-REF17568 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17551 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17552 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF17553 :INT32) NCC) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17554 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17555 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17557 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF17561 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF17563 :INT32) LDPT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF17565 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17568 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17556 AB) (D-REF17558 D) + (E-REF17559 E) (Q-REF17560 Q) + (PT-REF17562 PT) (C-REF17564 C) + (WORK-REF17566 WORK) + (RWORK-REF17567 RWORK)) + (%%ZGBBRD VECT M-REF17551 N-REF17552 NCC-REF17553 KL-REF17554 KU-REF17555 + AB-REF17556 LDAB-REF17557 D-REF17558 E-REF17559 Q-REF17560 LDQ-REF17561 + PT-REF17562 LDPT-REF17563 C-REF17564 LDC-REF17565 WORK-REF17566 + RWORK-REF17567 INFO-REF17568)))) + +(CFFI:DEFCFUN ("zgbcon_" %%ZGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -640,26 +639,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17555 ':INT32) (KL-REF17556 ':INT32) - (KU-REF17557 ':INT32) (LDAB-REF17559 ':INT32) - (ANORM-REF17561 ':DOUBLE) - (RCOND-REF17562 ':DOUBLE) (INFO-REF17565 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17555 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17556 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17557 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17559 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17561 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17562 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17565 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17558 AB) - (IPIV-REF17560 IPIV) - (WORK-REF17563 WORK) - (RWORK-REF17564 RWORK)) - (%%ZGBCON NORM N-REF17555 KL-REF17556 KU-REF17557 AB-REF17558 - LDAB-REF17559 IPIV-REF17560 ANORM-REF17561 RCOND-REF17562 - WORK-REF17563 RWORK-REF17564 INFO-REF17565)))) - -(CFFI:DEFCFUN ("zgbequ_" %%ZGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17570 ':INT32) (KL-REF17571 ':INT32) + (KU-REF17572 ':INT32) (LDAB-REF17574 ':INT32) + (ANORM-REF17576 ':DOUBLE) + (RCOND-REF17577 ':DOUBLE) (INFO-REF17580 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17570 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17571 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17572 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17574 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17576 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17577 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17580 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17573 AB) + (IPIV-REF17575 IPIV) + (WORK-REF17578 WORK) + (RWORK-REF17579 RWORK)) + (%%ZGBCON NORM N-REF17570 KL-REF17571 KU-REF17572 AB-REF17573 + LDAB-REF17574 IPIV-REF17575 ANORM-REF17576 RCOND-REF17577 WORK-REF17578 + RWORK-REF17579 INFO-REF17580)))) + +(CFFI:DEFCFUN ("zgbequ_" %%ZGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -694,28 +693,29 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17566 ':INT32) (N-REF17567 ':INT32) - (KL-REF17568 ':INT32) (KU-REF17569 ':INT32) - (LDAB-REF17571 ':INT32) - (ROWCND-REF17574 ':DOUBLE) - (COLCND-REF17575 ':DOUBLE) - (AMAX-REF17576 ':DOUBLE) (INFO-REF17577 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17566 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17567 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17568 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17569 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17571 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17574 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17575 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17576 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17577 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17570 AB) (R-REF17572 R) - (C-REF17573 C)) - (%%ZGBEQU M-REF17566 N-REF17567 KL-REF17568 KU-REF17569 AB-REF17570 - LDAB-REF17571 R-REF17572 C-REF17573 ROWCND-REF17574 - COLCND-REF17575 AMAX-REF17576 INFO-REF17577)))) - -(CFFI:DEFCFUN ("zgbequb_" %%ZGBEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17581 ':INT32) (N-REF17582 ':INT32) + (KL-REF17583 ':INT32) (KU-REF17584 ':INT32) + (LDAB-REF17586 ':INT32) + (ROWCND-REF17589 ':DOUBLE) + (COLCND-REF17590 ':DOUBLE) + (AMAX-REF17591 ':DOUBLE) (INFO-REF17592 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17581 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17582 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17583 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17584 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17586 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17589 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17590 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17591 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17592 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17585 AB) (R-REF17587 R) + (C-REF17588 C)) + (%%ZGBEQU M-REF17581 N-REF17582 KL-REF17583 KU-REF17584 AB-REF17585 + LDAB-REF17586 R-REF17587 C-REF17588 ROWCND-REF17589 COLCND-REF17590 + AMAX-REF17591 INFO-REF17592)))) + +(CFFI:DEFCFUN ("zgbequb_" %%ZGBEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -750,28 +750,28 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17578 ':INT32) (N-REF17579 ':INT32) - (KL-REF17580 ':INT32) (KU-REF17581 ':INT32) - (LDAB-REF17583 ':INT32) - (ROWCND-REF17586 ':DOUBLE) - (COLCND-REF17587 ':DOUBLE) - (AMAX-REF17588 ':DOUBLE) (INFO-REF17589 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17578 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17579 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17580 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17581 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17583 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17586 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17587 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17588 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17589 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17582 AB) (R-REF17584 R) - (C-REF17585 C)) - (%%ZGBEQUB M-REF17578 N-REF17579 KL-REF17580 KU-REF17581 AB-REF17582 - LDAB-REF17583 R-REF17584 C-REF17585 ROWCND-REF17586 - COLCND-REF17587 AMAX-REF17588 INFO-REF17589)))) - -(CFFI:DEFCFUN ("zgbrfs_" %%ZGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17593 ':INT32) (N-REF17594 ':INT32) + (KL-REF17595 ':INT32) (KU-REF17596 ':INT32) + (LDAB-REF17598 ':INT32) + (ROWCND-REF17601 ':DOUBLE) + (COLCND-REF17602 ':DOUBLE) + (AMAX-REF17603 ':DOUBLE) (INFO-REF17604 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17593 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17594 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17595 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17596 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17598 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17601 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17602 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17603 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17604 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17597 AB) (R-REF17599 R) + (C-REF17600 C)) + (%%ZGBEQUB M-REF17593 N-REF17594 KL-REF17595 KU-REF17596 AB-REF17597 + LDAB-REF17598 R-REF17599 C-REF17600 ROWCND-REF17601 COLCND-REF17602 + AMAX-REF17603 INFO-REF17604)))) + +(CFFI:DEFCFUN ("zgbrfs_" %%ZGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -845,33 +845,33 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17591 ':INT32) (KL-REF17592 ':INT32) - (KU-REF17593 ':INT32) (NRHS-REF17594 ':INT32) - (LDAB-REF17596 ':INT32) (LDAFB-REF17598 ':INT32) - (LDB-REF17601 ':INT32) (LDX-REF17603 ':INT32) - (INFO-REF17608 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17591 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17592 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17593 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17594 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17596 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17598 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17601 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17603 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17608 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17595 AB) (AFB-REF17597 AFB) - (IPIV-REF17599 IPIV) (B-REF17600 B) - (X-REF17602 X) (FERR-REF17604 FERR) - (BERR-REF17605 BERR) - (WORK-REF17606 WORK) - (RWORK-REF17607 RWORK)) - (%%ZGBRFS TRANS N-REF17591 KL-REF17592 KU-REF17593 NRHS-REF17594 - AB-REF17595 LDAB-REF17596 AFB-REF17597 LDAFB-REF17598 - IPIV-REF17599 B-REF17600 LDB-REF17601 X-REF17602 LDX-REF17603 - FERR-REF17604 BERR-REF17605 WORK-REF17606 RWORK-REF17607 - INFO-REF17608)))) - -(CFFI:DEFCFUN ("zgbrfsx_" %%ZGBRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17606 ':INT32) (KL-REF17607 ':INT32) + (KU-REF17608 ':INT32) (NRHS-REF17609 ':INT32) + (LDAB-REF17611 ':INT32) (LDAFB-REF17613 ':INT32) + (LDB-REF17616 ':INT32) (LDX-REF17618 ':INT32) + (INFO-REF17623 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17606 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17607 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17608 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17609 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17611 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17613 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17616 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17618 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17623 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17610 AB) (AFB-REF17612 AFB) + (IPIV-REF17614 IPIV) (B-REF17615 B) + (X-REF17617 X) (FERR-REF17619 FERR) + (BERR-REF17620 BERR) + (WORK-REF17621 WORK) + (RWORK-REF17622 RWORK)) + (%%ZGBRFS TRANS N-REF17606 KL-REF17607 KU-REF17608 NRHS-REF17609 + AB-REF17610 LDAB-REF17611 AFB-REF17612 LDAFB-REF17613 IPIV-REF17614 + B-REF17615 LDB-REF17616 X-REF17617 LDX-REF17618 FERR-REF17619 + BERR-REF17620 WORK-REF17621 RWORK-REF17622 INFO-REF17623)))) + +(CFFI:DEFCFUN ("zgbrfsx_" %%ZGBRFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (EQUED :STRING) @@ -969,46 +969,45 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17611 ':INT32) (KL-REF17612 ':INT32) - (KU-REF17613 ':INT32) (NRHS-REF17614 ':INT32) - (LDAB-REF17616 ':INT32) (LDAFB-REF17618 ':INT32) - (LDB-REF17623 ':INT32) (LDX-REF17625 ':INT32) - (RCOND-REF17626 ':DOUBLE) - (N_ERR_BNDS-REF17628 ':INT32) - (NPARAMS-REF17631 ':INT32) - (INFO-REF17635 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17611 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17612 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17613 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17614 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17616 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17618 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17623 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17625 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17626 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17628 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17631 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17635 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17615 AB) (AFB-REF17617 AFB) - (IPIV-REF17619 IPIV) (R-REF17620 R) - (C-REF17621 C) (B-REF17622 B) - (X-REF17624 X) (BERR-REF17627 BERR) - (ERR_BNDS_NORM-REF17629 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17626 ':INT32) (KL-REF17627 ':INT32) + (KU-REF17628 ':INT32) (NRHS-REF17629 ':INT32) + (LDAB-REF17631 ':INT32) (LDAFB-REF17633 ':INT32) + (LDB-REF17638 ':INT32) (LDX-REF17640 ':INT32) + (RCOND-REF17641 ':DOUBLE) + (N_ERR_BNDS-REF17643 ':INT32) + (NPARAMS-REF17646 ':INT32) + (INFO-REF17650 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17626 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17627 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17628 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17629 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17631 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17633 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17638 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17640 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17641 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17643 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17646 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17650 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17630 AB) (AFB-REF17632 AFB) + (IPIV-REF17634 IPIV) (R-REF17635 R) + (C-REF17636 C) (B-REF17637 B) + (X-REF17639 X) (BERR-REF17642 BERR) + (ERR_BNDS_NORM-REF17644 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF17630 + (ERR_BNDS_COMP-REF17645 ERR_BNDS_COMP) - (PARAMS-REF17632 PARAMS) - (WORK-REF17633 WORK) - (RWORK-REF17634 RWORK)) - (%%ZGBRFSX TRANS EQUED N-REF17611 KL-REF17612 KU-REF17613 NRHS-REF17614 - AB-REF17615 LDAB-REF17616 AFB-REF17617 LDAFB-REF17618 - IPIV-REF17619 R-REF17620 C-REF17621 B-REF17622 LDB-REF17623 - X-REF17624 LDX-REF17625 RCOND-REF17626 BERR-REF17627 - N_ERR_BNDS-REF17628 ERR_BNDS_NORM-REF17629 - ERR_BNDS_COMP-REF17630 NPARAMS-REF17631 PARAMS-REF17632 - WORK-REF17633 RWORK-REF17634 INFO-REF17635)))) - -(CFFI:DEFCFUN ("zgbsv_" %%ZGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF17647 PARAMS) + (WORK-REF17648 WORK) + (RWORK-REF17649 RWORK)) + (%%ZGBRFSX TRANS EQUED N-REF17626 KL-REF17627 KU-REF17628 NRHS-REF17629 + AB-REF17630 LDAB-REF17631 AFB-REF17632 LDAFB-REF17633 IPIV-REF17634 + R-REF17635 C-REF17636 B-REF17637 LDB-REF17638 X-REF17639 LDX-REF17640 + RCOND-REF17641 BERR-REF17642 N_ERR_BNDS-REF17643 ERR_BNDS_NORM-REF17644 + ERR_BNDS_COMP-REF17645 NPARAMS-REF17646 PARAMS-REF17647 WORK-REF17648 + RWORK-REF17649 INFO-REF17650)))) + +(CFFI:DEFCFUN ("zgbsv_" %%ZGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (KL :POINTER) @@ -1044,24 +1043,23 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17636 ':INT32) (KL-REF17637 ':INT32) - (KU-REF17638 ':INT32) (NRHS-REF17639 ':INT32) - (LDAB-REF17641 ':INT32) (LDB-REF17644 ':INT32) - (INFO-REF17645 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17636 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17637 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17638 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17639 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17641 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17644 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17645 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17640 AB) - (IPIV-REF17642 IPIV) (B-REF17643 B)) - (%%ZGBSV N-REF17636 KL-REF17637 KU-REF17638 NRHS-REF17639 AB-REF17640 - LDAB-REF17641 IPIV-REF17642 B-REF17643 LDB-REF17644 - INFO-REF17645)))) - -(CFFI:DEFCFUN ("zgbsvx_" %%ZGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17651 ':INT32) (KL-REF17652 ':INT32) + (KU-REF17653 ':INT32) (NRHS-REF17654 ':INT32) + (LDAB-REF17656 ':INT32) (LDB-REF17659 ':INT32) + (INFO-REF17660 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17651 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17652 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17653 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17654 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17656 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17659 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17660 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17655 AB) + (IPIV-REF17657 IPIV) (B-REF17658 B)) + (%%ZGBSV N-REF17651 KL-REF17652 KU-REF17653 NRHS-REF17654 AB-REF17655 + LDAB-REF17656 IPIV-REF17657 B-REF17658 LDB-REF17659 INFO-REF17660)))) + +(CFFI:DEFCFUN ("zgbsvx_" %%ZGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -1147,36 +1145,36 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17648 ':INT32) (KL-REF17649 ':INT32) - (KU-REF17650 ':INT32) (NRHS-REF17651 ':INT32) - (LDAB-REF17653 ':INT32) (LDAFB-REF17655 ':INT32) - (LDB-REF17661 ':INT32) (LDX-REF17663 ':INT32) - (RCOND-REF17664 ':DOUBLE) (INFO-REF17669 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17648 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17649 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17650 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17651 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17653 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17655 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17661 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17663 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17664 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17669 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17652 AB) (AFB-REF17654 AFB) - (IPIV-REF17656 IPIV) (R-REF17658 R) - (C-REF17659 C) (B-REF17660 B) - (X-REF17662 X) (FERR-REF17665 FERR) - (BERR-REF17666 BERR) - (WORK-REF17667 WORK) - (RWORK-REF17668 RWORK)) - (%%ZGBSVX FACT TRANS N-REF17648 KL-REF17649 KU-REF17650 NRHS-REF17651 - AB-REF17652 LDAB-REF17653 AFB-REF17654 LDAFB-REF17655 - IPIV-REF17656 EQUED R-REF17658 C-REF17659 B-REF17660 - LDB-REF17661 X-REF17662 LDX-REF17663 RCOND-REF17664 - FERR-REF17665 BERR-REF17666 WORK-REF17667 RWORK-REF17668 - INFO-REF17669)))) - -(CFFI:DEFCFUN ("zgbsvxx_" %%ZGBSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17663 ':INT32) (KL-REF17664 ':INT32) + (KU-REF17665 ':INT32) (NRHS-REF17666 ':INT32) + (LDAB-REF17668 ':INT32) (LDAFB-REF17670 ':INT32) + (LDB-REF17676 ':INT32) (LDX-REF17678 ':INT32) + (RCOND-REF17679 ':DOUBLE) (INFO-REF17684 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17663 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17664 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17665 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17666 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17668 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17670 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17676 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17678 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17679 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17684 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17667 AB) (AFB-REF17669 AFB) + (IPIV-REF17671 IPIV) (R-REF17673 R) + (C-REF17674 C) (B-REF17675 B) + (X-REF17677 X) (FERR-REF17680 FERR) + (BERR-REF17681 BERR) + (WORK-REF17682 WORK) + (RWORK-REF17683 RWORK)) + (%%ZGBSVX FACT TRANS N-REF17663 KL-REF17664 KU-REF17665 NRHS-REF17666 + AB-REF17667 LDAB-REF17668 AFB-REF17669 LDAFB-REF17670 IPIV-REF17671 + EQUED R-REF17673 C-REF17674 B-REF17675 LDB-REF17676 X-REF17677 + LDX-REF17678 RCOND-REF17679 FERR-REF17680 BERR-REF17681 WORK-REF17682 + RWORK-REF17683 INFO-REF17684)))) + +(CFFI:DEFCFUN ("zgbsvxx_" %%ZGBSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -1278,48 +1276,48 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17672 ':INT32) (KL-REF17673 ':INT32) - (KU-REF17674 ':INT32) (NRHS-REF17675 ':INT32) - (LDAB-REF17677 ':INT32) (LDAFB-REF17679 ':INT32) - (LDB-REF17685 ':INT32) (LDX-REF17687 ':INT32) - (RCOND-REF17688 ':DOUBLE) - (RPVGRW-REF17689 ':DOUBLE) - (N_ERR_BNDS-REF17691 ':INT32) - (NPARAMS-REF17694 ':INT32) - (INFO-REF17698 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17672 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17673 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17674 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17675 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17677 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17679 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17685 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17687 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17688 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF17689 :DOUBLE) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17691 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17694 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17698 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17676 AB) (AFB-REF17678 AFB) - (IPIV-REF17680 IPIV) (R-REF17682 R) - (C-REF17683 C) (B-REF17684 B) - (X-REF17686 X) (BERR-REF17690 BERR) - (ERR_BNDS_NORM-REF17692 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17687 ':INT32) (KL-REF17688 ':INT32) + (KU-REF17689 ':INT32) (NRHS-REF17690 ':INT32) + (LDAB-REF17692 ':INT32) (LDAFB-REF17694 ':INT32) + (LDB-REF17700 ':INT32) (LDX-REF17702 ':INT32) + (RCOND-REF17703 ':DOUBLE) + (RPVGRW-REF17704 ':DOUBLE) + (N_ERR_BNDS-REF17706 ':INT32) + (NPARAMS-REF17709 ':INT32) + (INFO-REF17713 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17687 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17688 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17689 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17690 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17692 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF17694 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17700 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF17702 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17703 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF17704 :DOUBLE) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF17706 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF17709 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17713 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17691 AB) (AFB-REF17693 AFB) + (IPIV-REF17695 IPIV) (R-REF17697 R) + (C-REF17698 C) (B-REF17699 B) + (X-REF17701 X) (BERR-REF17705 BERR) + (ERR_BNDS_NORM-REF17707 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF17693 + (ERR_BNDS_COMP-REF17708 ERR_BNDS_COMP) - (PARAMS-REF17695 PARAMS) - (WORK-REF17696 WORK) - (RWORK-REF17697 RWORK)) - (%%ZGBSVXX FACT TRANS N-REF17672 KL-REF17673 KU-REF17674 NRHS-REF17675 - AB-REF17676 LDAB-REF17677 AFB-REF17678 LDAFB-REF17679 - IPIV-REF17680 EQUED R-REF17682 C-REF17683 B-REF17684 - LDB-REF17685 X-REF17686 LDX-REF17687 RCOND-REF17688 - RPVGRW-REF17689 BERR-REF17690 N_ERR_BNDS-REF17691 - ERR_BNDS_NORM-REF17692 ERR_BNDS_COMP-REF17693 NPARAMS-REF17694 - PARAMS-REF17695 WORK-REF17696 RWORK-REF17697 INFO-REF17698)))) - -(CFFI:DEFCFUN ("zgbtf2_" %%ZGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF17710 PARAMS) + (WORK-REF17711 WORK) + (RWORK-REF17712 RWORK)) + (%%ZGBSVXX FACT TRANS N-REF17687 KL-REF17688 KU-REF17689 NRHS-REF17690 + AB-REF17691 LDAB-REF17692 AFB-REF17693 LDAFB-REF17694 IPIV-REF17695 + EQUED R-REF17697 C-REF17698 B-REF17699 LDB-REF17700 X-REF17701 + LDX-REF17702 RCOND-REF17703 RPVGRW-REF17704 BERR-REF17705 + N_ERR_BNDS-REF17706 ERR_BNDS_NORM-REF17707 ERR_BNDS_COMP-REF17708 + NPARAMS-REF17709 PARAMS-REF17710 WORK-REF17711 RWORK-REF17712 + INFO-REF17713)))) + +(CFFI:DEFCFUN ("zgbtf2_" %%ZGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1347,21 +1345,21 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17699 ':INT32) (N-REF17700 ':INT32) - (KL-REF17701 ':INT32) (KU-REF17702 ':INT32) - (LDAB-REF17704 ':INT32) (INFO-REF17706 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17699 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17700 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17701 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17702 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17704 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17706 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17703 AB) - (IPIV-REF17705 IPIV)) - (%%ZGBTF2 M-REF17699 N-REF17700 KL-REF17701 KU-REF17702 AB-REF17703 - LDAB-REF17704 IPIV-REF17705 INFO-REF17706)))) - -(CFFI:DEFCFUN ("zgbtrf_" %%ZGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17714 ':INT32) (N-REF17715 ':INT32) + (KL-REF17716 ':INT32) (KU-REF17717 ':INT32) + (LDAB-REF17719 ':INT32) (INFO-REF17721 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17714 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17715 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17716 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17717 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17719 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17721 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17718 AB) + (IPIV-REF17720 IPIV)) + (%%ZGBTF2 M-REF17714 N-REF17715 KL-REF17716 KU-REF17717 AB-REF17718 + LDAB-REF17719 IPIV-REF17720 INFO-REF17721)))) + +(CFFI:DEFCFUN ("zgbtrf_" %%ZGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1389,21 +1387,21 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17707 ':INT32) (N-REF17708 ':INT32) - (KL-REF17709 ':INT32) (KU-REF17710 ':INT32) - (LDAB-REF17712 ':INT32) (INFO-REF17714 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17707 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17708 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17709 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17710 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17712 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17714 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17711 AB) - (IPIV-REF17713 IPIV)) - (%%ZGBTRF M-REF17707 N-REF17708 KL-REF17709 KU-REF17710 AB-REF17711 - LDAB-REF17712 IPIV-REF17713 INFO-REF17714)))) - -(CFFI:DEFCFUN ("zgbtrs_" %%ZGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17722 ':INT32) (N-REF17723 ':INT32) + (KL-REF17724 ':INT32) (KU-REF17725 ':INT32) + (LDAB-REF17727 ':INT32) (INFO-REF17729 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17722 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17723 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17724 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17725 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17727 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17729 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17726 AB) + (IPIV-REF17728 IPIV)) + (%%ZGBTRF M-REF17722 N-REF17723 KL-REF17724 KU-REF17725 AB-REF17726 + LDAB-REF17727 IPIV-REF17728 INFO-REF17729)))) + +(CFFI:DEFCFUN ("zgbtrs_" %%ZGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -1441,24 +1439,24 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17716 ':INT32) (KL-REF17717 ':INT32) - (KU-REF17718 ':INT32) (NRHS-REF17719 ':INT32) - (LDAB-REF17721 ':INT32) (LDB-REF17724 ':INT32) - (INFO-REF17725 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17716 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17717 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17718 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17719 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17721 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17724 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17725 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17720 AB) - (IPIV-REF17722 IPIV) (B-REF17723 B)) - (%%ZGBTRS TRANS N-REF17716 KL-REF17717 KU-REF17718 NRHS-REF17719 - AB-REF17720 LDAB-REF17721 IPIV-REF17722 B-REF17723 LDB-REF17724 - INFO-REF17725)))) - -(CFFI:DEFCFUN ("zgebak_" %%ZGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17731 ':INT32) (KL-REF17732 ':INT32) + (KU-REF17733 ':INT32) (NRHS-REF17734 ':INT32) + (LDAB-REF17736 ':INT32) (LDB-REF17739 ':INT32) + (INFO-REF17740 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17731 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF17732 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF17733 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17734 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF17736 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17739 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17740 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF17735 AB) + (IPIV-REF17737 IPIV) (B-REF17738 B)) + (%%ZGBTRS TRANS N-REF17731 KL-REF17732 KU-REF17733 NRHS-REF17734 + AB-REF17735 LDAB-REF17736 IPIV-REF17737 B-REF17738 LDB-REF17739 + INFO-REF17740)))) + +(CFFI:DEFCFUN ("zgebak_" %%ZGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (SIDE :STRING) @@ -1489,21 +1487,21 @@ V) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17728 ':INT32) (ILO-REF17729 ':INT32) - (IHI-REF17730 ':INT32) (M-REF17732 ':INT32) - (LDV-REF17734 ':INT32) (INFO-REF17735 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17728 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17729 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17730 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17732 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17734 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17735 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF17731 SCALE) - (V-REF17733 V)) - (%%ZGEBAK JOB SIDE N-REF17728 ILO-REF17729 IHI-REF17730 SCALE-REF17731 - M-REF17732 V-REF17733 LDV-REF17734 INFO-REF17735)))) - -(CFFI:DEFCFUN ("zgebal_" %%ZGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17743 ':INT32) (ILO-REF17744 ':INT32) + (IHI-REF17745 ':INT32) (M-REF17747 ':INT32) + (LDV-REF17749 ':INT32) (INFO-REF17750 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17743 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17744 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17745 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17747 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17749 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17750 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF17746 SCALE) + (V-REF17748 V)) + (%%ZGEBAK JOB SIDE N-REF17743 ILO-REF17744 IHI-REF17745 SCALE-REF17746 + M-REF17747 V-REF17748 LDV-REF17749 INFO-REF17750)))) + +(CFFI:DEFCFUN ("zgebal_" %%ZGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (N :POINTER) @@ -1530,20 +1528,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SCALE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17737 ':INT32) (LDA-REF17739 ':INT32) - (ILO-REF17740 ':INT32) (IHI-REF17741 ':INT32) - (INFO-REF17743 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17737 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17739 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17740 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17741 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17743 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17738 A) - (SCALE-REF17742 SCALE)) - (%%ZGEBAL JOB N-REF17737 A-REF17738 LDA-REF17739 ILO-REF17740 - IHI-REF17741 SCALE-REF17742 INFO-REF17743)))) - -(CFFI:DEFCFUN ("zgebd2_" %%ZGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17752 ':INT32) (LDA-REF17754 ':INT32) + (ILO-REF17755 ':INT32) (IHI-REF17756 ':INT32) + (INFO-REF17758 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17752 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17754 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17755 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17756 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17758 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17753 A) + (SCALE-REF17757 SCALE)) + (%%ZGEBAL JOB N-REF17752 A-REF17753 LDA-REF17754 ILO-REF17755 + IHI-REF17756 SCALE-REF17757 INFO-REF17758)))) + +(CFFI:DEFCFUN ("zgebd2_" %%ZGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1586,21 +1584,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17744 ':INT32) (N-REF17745 ':INT32) - (LDA-REF17747 ':INT32) (INFO-REF17753 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17744 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17745 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17747 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17753 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17746 A) (D-REF17748 D) - (E-REF17749 E) (TAUQ-REF17750 TAUQ) - (TAUP-REF17751 TAUP) - (WORK-REF17752 WORK)) - (%%ZGEBD2 M-REF17744 N-REF17745 A-REF17746 LDA-REF17747 D-REF17748 - E-REF17749 TAUQ-REF17750 TAUP-REF17751 WORK-REF17752 - INFO-REF17753)))) - -(CFFI:DEFCFUN ("zgebrd_" %%ZGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17759 ':INT32) (N-REF17760 ':INT32) + (LDA-REF17762 ':INT32) (INFO-REF17768 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17759 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17760 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17762 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17768 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17761 A) (D-REF17763 D) + (E-REF17764 E) (TAUQ-REF17765 TAUQ) + (TAUP-REF17766 TAUP) + (WORK-REF17767 WORK)) + (%%ZGEBD2 M-REF17759 N-REF17760 A-REF17761 LDA-REF17762 D-REF17763 + E-REF17764 TAUQ-REF17765 TAUP-REF17766 WORK-REF17767 INFO-REF17768)))) + +(CFFI:DEFCFUN ("zgebrd_" %%ZGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1645,23 +1642,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17754 ':INT32) (N-REF17755 ':INT32) - (LDA-REF17757 ':INT32) (LWORK-REF17763 ':INT32) - (INFO-REF17764 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17754 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17755 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17757 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17763 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17764 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17756 A) (D-REF17758 D) - (E-REF17759 E) (TAUQ-REF17760 TAUQ) - (TAUP-REF17761 TAUP) - (WORK-REF17762 WORK)) - (%%ZGEBRD M-REF17754 N-REF17755 A-REF17756 LDA-REF17757 D-REF17758 - E-REF17759 TAUQ-REF17760 TAUP-REF17761 WORK-REF17762 - LWORK-REF17763 INFO-REF17764)))) - -(CFFI:DEFCFUN ("zgecon_" %%ZGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17769 ':INT32) (N-REF17770 ':INT32) + (LDA-REF17772 ':INT32) (LWORK-REF17778 ':INT32) + (INFO-REF17779 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17769 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17770 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17772 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17778 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17779 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17771 A) (D-REF17773 D) + (E-REF17774 E) (TAUQ-REF17775 TAUQ) + (TAUP-REF17776 TAUP) + (WORK-REF17777 WORK)) + (%%ZGEBRD M-REF17769 N-REF17770 A-REF17771 LDA-REF17772 D-REF17773 + E-REF17774 TAUQ-REF17775 TAUP-REF17776 WORK-REF17777 LWORK-REF17778 + INFO-REF17779)))) + +(CFFI:DEFCFUN ("zgecon_" %%ZGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -1694,20 +1691,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17766 ':INT32) (LDA-REF17768 ':INT32) - (ANORM-REF17769 ':DOUBLE) - (RCOND-REF17770 ':DOUBLE) (INFO-REF17773 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17766 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17768 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17769 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17770 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17773 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17767 A) (WORK-REF17771 WORK) - (RWORK-REF17772 RWORK)) - (%%ZGECON NORM N-REF17766 A-REF17767 LDA-REF17768 ANORM-REF17769 - RCOND-REF17770 WORK-REF17771 RWORK-REF17772 INFO-REF17773)))) - -(CFFI:DEFCFUN ("zgeequ_" %%ZGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17781 ':INT32) (LDA-REF17783 ':INT32) + (ANORM-REF17784 ':DOUBLE) + (RCOND-REF17785 ':DOUBLE) (INFO-REF17788 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17781 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17783 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF17784 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17785 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17788 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17782 A) (WORK-REF17786 WORK) + (RWORK-REF17787 RWORK)) + (%%ZGECON NORM N-REF17781 A-REF17782 LDA-REF17783 ANORM-REF17784 + RCOND-REF17785 WORK-REF17786 RWORK-REF17787 INFO-REF17788)))) + +(CFFI:DEFCFUN ("zgeequ_" %%ZGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1738,24 +1735,25 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17774 ':INT32) (N-REF17775 ':INT32) - (LDA-REF17777 ':INT32) (ROWCND-REF17780 ':DOUBLE) - (COLCND-REF17781 ':DOUBLE) - (AMAX-REF17782 ':DOUBLE) (INFO-REF17783 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17774 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17775 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17777 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17780 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17781 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17782 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17783 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17776 A) (R-REF17778 R) - (C-REF17779 C)) - (%%ZGEEQU M-REF17774 N-REF17775 A-REF17776 LDA-REF17777 R-REF17778 - C-REF17779 ROWCND-REF17780 COLCND-REF17781 AMAX-REF17782 - INFO-REF17783)))) - -(CFFI:DEFCFUN ("zgeequb_" %%ZGEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17789 ':INT32) (N-REF17790 ':INT32) + (LDA-REF17792 ':INT32) (ROWCND-REF17795 ':DOUBLE) + (COLCND-REF17796 ':DOUBLE) + (AMAX-REF17797 ':DOUBLE) (INFO-REF17798 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17789 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17790 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17792 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17795 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17796 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17797 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17798 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17791 A) (R-REF17793 R) + (C-REF17794 C)) + (%%ZGEEQU M-REF17789 N-REF17790 A-REF17791 LDA-REF17792 R-REF17793 + C-REF17794 ROWCND-REF17795 COLCND-REF17796 AMAX-REF17797 + INFO-REF17798)))) + +(CFFI:DEFCFUN ("zgeequb_" %%ZGEEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1786,24 +1784,24 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17784 ':INT32) (N-REF17785 ':INT32) - (LDA-REF17787 ':INT32) (ROWCND-REF17790 ':DOUBLE) - (COLCND-REF17791 ':DOUBLE) - (AMAX-REF17792 ':DOUBLE) (INFO-REF17793 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17784 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17785 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17787 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17790 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17791 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17792 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17793 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17786 A) (R-REF17788 R) - (C-REF17789 C)) - (%%ZGEEQUB M-REF17784 N-REF17785 A-REF17786 LDA-REF17787 R-REF17788 - C-REF17789 ROWCND-REF17790 COLCND-REF17791 AMAX-REF17792 - INFO-REF17793)))) - -(CFFI:DEFCFUN ("zgees_" %%ZGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17799 ':INT32) (N-REF17800 ':INT32) + (LDA-REF17802 ':INT32) (ROWCND-REF17805 ':DOUBLE) + (COLCND-REF17806 ':DOUBLE) + (AMAX-REF17807 ':DOUBLE) (INFO-REF17808 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17799 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17800 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17802 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF17805 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF17806 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF17807 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17808 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17801 A) (R-REF17803 R) + (C-REF17804 C)) + (%%ZGEEQUB M-REF17799 N-REF17800 A-REF17801 LDA-REF17802 R-REF17803 + C-REF17804 ROWCND-REF17805 COLCND-REF17806 AMAX-REF17807 + INFO-REF17808)))) + +(CFFI:DEFCFUN ("zgees_" %%ZGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVS :STRING) (SORT :STRING) @@ -1861,27 +1859,27 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF17796 ':INT32) (N-REF17797 ':INT32) - (LDA-REF17799 ':INT32) (SDIM-REF17800 ':INT32) - (LDVS-REF17803 ':INT32) (LWORK-REF17805 ':INT32) - (INFO-REF17808 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF17796 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17797 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17799 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17800 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF17803 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17805 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17808 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17798 A) (W-REF17801 W) - (VS-REF17802 VS) - (WORK-REF17804 WORK) - (RWORK-REF17806 RWORK) - (BWORK-REF17807 BWORK)) - (%%ZGEES JOBVS SORT SELECT-REF17796 N-REF17797 A-REF17798 LDA-REF17799 - SDIM-REF17800 W-REF17801 VS-REF17802 LDVS-REF17803 WORK-REF17804 - LWORK-REF17805 RWORK-REF17806 BWORK-REF17807 INFO-REF17808)))) - -(CFFI:DEFCFUN ("zgeesx_" %%ZGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF17811 ':INT32) (N-REF17812 ':INT32) + (LDA-REF17814 ':INT32) (SDIM-REF17815 ':INT32) + (LDVS-REF17818 ':INT32) (LWORK-REF17820 ':INT32) + (INFO-REF17823 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF17811 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17812 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17814 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17815 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF17818 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17820 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17823 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17813 A) (W-REF17816 W) + (VS-REF17817 VS) + (WORK-REF17819 WORK) + (RWORK-REF17821 RWORK) + (BWORK-REF17822 BWORK)) + (%%ZGEES JOBVS SORT SELECT-REF17811 N-REF17812 A-REF17813 LDA-REF17814 + SDIM-REF17815 W-REF17816 VS-REF17817 LDVS-REF17818 WORK-REF17819 + LWORK-REF17820 RWORK-REF17821 BWORK-REF17822 INFO-REF17823)))) + +(CFFI:DEFCFUN ("zgeesx_" %%ZGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVS :STRING) (SORT :STRING) @@ -1945,32 +1943,32 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF17811 ':INT32) (N-REF17813 ':INT32) - (LDA-REF17815 ':INT32) (SDIM-REF17816 ':INT32) - (LDVS-REF17819 ':INT32) - (RCONDE-REF17820 ':DOUBLE) - (RCONDV-REF17821 ':DOUBLE) - (LWORK-REF17823 ':INT32) (INFO-REF17826 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF17811 :INT32) SELECT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17813 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17815 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17816 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF17819 :INT32) LDVS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF17820 :DOUBLE) RCONDE) - (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF17821 :DOUBLE) RCONDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17823 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17826 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17814 A) (W-REF17817 W) - (VS-REF17818 VS) - (WORK-REF17822 WORK) - (RWORK-REF17824 RWORK) - (BWORK-REF17825 BWORK)) - (%%ZGEESX JOBVS SORT SELECT-REF17811 SENSE N-REF17813 A-REF17814 - LDA-REF17815 SDIM-REF17816 W-REF17817 VS-REF17818 LDVS-REF17819 - RCONDE-REF17820 RCONDV-REF17821 WORK-REF17822 LWORK-REF17823 - RWORK-REF17824 BWORK-REF17825 INFO-REF17826)))) - -(CFFI:DEFCFUN ("zgeev_" %%ZGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF17826 ':INT32) (N-REF17828 ':INT32) + (LDA-REF17830 ':INT32) (SDIM-REF17831 ':INT32) + (LDVS-REF17834 ':INT32) + (RCONDE-REF17835 ':DOUBLE) + (RCONDV-REF17836 ':DOUBLE) + (LWORK-REF17838 ':INT32) (INFO-REF17841 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF17826 :INT32) SELECT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17828 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17830 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF17831 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF17834 :INT32) LDVS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF17835 :DOUBLE) RCONDE) + (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF17836 :DOUBLE) RCONDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17838 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17841 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17829 A) (W-REF17832 W) + (VS-REF17833 VS) + (WORK-REF17837 WORK) + (RWORK-REF17839 RWORK) + (BWORK-REF17840 BWORK)) + (%%ZGEESX JOBVS SORT SELECT-REF17826 SENSE N-REF17828 A-REF17829 + LDA-REF17830 SDIM-REF17831 W-REF17832 VS-REF17833 LDVS-REF17834 + RCONDE-REF17835 RCONDV-REF17836 WORK-REF17837 LWORK-REF17838 + RWORK-REF17839 BWORK-REF17840 INFO-REF17841)))) + +(CFFI:DEFCFUN ("zgeev_" %%ZGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -2027,24 +2025,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17829 ':INT32) (LDA-REF17831 ':INT32) - (LDVL-REF17834 ':INT32) (LDVR-REF17836 ':INT32) - (LWORK-REF17838 ':INT32) (INFO-REF17840 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17829 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17831 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17834 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17836 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17838 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17840 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17830 A) (W-REF17832 W) - (VL-REF17833 VL) (VR-REF17835 VR) - (WORK-REF17837 WORK) - (RWORK-REF17839 RWORK)) - (%%ZGEEV JOBVL JOBVR N-REF17829 A-REF17830 LDA-REF17831 W-REF17832 - VL-REF17833 LDVL-REF17834 VR-REF17835 LDVR-REF17836 - WORK-REF17837 LWORK-REF17838 RWORK-REF17839 INFO-REF17840)))) - -(CFFI:DEFCFUN ("zgeevx_" %%ZGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17844 ':INT32) (LDA-REF17846 ':INT32) + (LDVL-REF17849 ':INT32) (LDVR-REF17851 ':INT32) + (LWORK-REF17853 ':INT32) (INFO-REF17855 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17844 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17846 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17849 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17851 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17853 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17855 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17845 A) (W-REF17847 W) + (VL-REF17848 VL) (VR-REF17850 VR) + (WORK-REF17852 WORK) + (RWORK-REF17854 RWORK)) + (%%ZGEEV JOBVL JOBVR N-REF17844 A-REF17845 LDA-REF17846 W-REF17847 + VL-REF17848 LDVL-REF17849 VR-REF17850 LDVR-REF17851 WORK-REF17852 + LWORK-REF17853 RWORK-REF17854 INFO-REF17855)))) + +(CFFI:DEFCFUN ("zgeevx_" %%ZGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (BALANC :STRING) (JOBVL :STRING) @@ -2123,34 +2121,34 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17845 ':INT32) (LDA-REF17847 ':INT32) - (LDVL-REF17850 ':INT32) (LDVR-REF17852 ':INT32) - (ILO-REF17853 ':INT32) (IHI-REF17854 ':INT32) - (ABNRM-REF17856 ':DOUBLE) - (LWORK-REF17860 ':INT32) (INFO-REF17862 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17845 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17847 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17850 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17852 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17853 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17854 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF17856 :DOUBLE) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17860 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17862 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17846 A) (W-REF17848 W) - (VL-REF17849 VL) (VR-REF17851 VR) - (SCALE-REF17855 SCALE) - (RCONDE-REF17857 RCONDE) - (RCONDV-REF17858 RCONDV) - (WORK-REF17859 WORK) - (RWORK-REF17861 RWORK)) - (%%ZGEEVX BALANC JOBVL JOBVR SENSE N-REF17845 A-REF17846 LDA-REF17847 - W-REF17848 VL-REF17849 LDVL-REF17850 VR-REF17851 LDVR-REF17852 - ILO-REF17853 IHI-REF17854 SCALE-REF17855 ABNRM-REF17856 - RCONDE-REF17857 RCONDV-REF17858 WORK-REF17859 LWORK-REF17860 - RWORK-REF17861 INFO-REF17862)))) - -(CFFI:DEFCFUN ("zgehd2_" %%ZGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17860 ':INT32) (LDA-REF17862 ':INT32) + (LDVL-REF17865 ':INT32) (LDVR-REF17867 ':INT32) + (ILO-REF17868 ':INT32) (IHI-REF17869 ':INT32) + (ABNRM-REF17871 ':DOUBLE) + (LWORK-REF17875 ':INT32) (INFO-REF17877 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17860 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17862 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF17865 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF17867 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17868 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17869 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF17871 :DOUBLE) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17875 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17877 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17861 A) (W-REF17863 W) + (VL-REF17864 VL) (VR-REF17866 VR) + (SCALE-REF17870 SCALE) + (RCONDE-REF17872 RCONDE) + (RCONDV-REF17873 RCONDV) + (WORK-REF17874 WORK) + (RWORK-REF17876 RWORK)) + (%%ZGEEVX BALANC JOBVL JOBVR SENSE N-REF17860 A-REF17861 LDA-REF17862 + W-REF17863 VL-REF17864 LDVL-REF17865 VR-REF17866 LDVR-REF17867 + ILO-REF17868 IHI-REF17869 SCALE-REF17870 ABNRM-REF17871 RCONDE-REF17872 + RCONDV-REF17873 WORK-REF17874 LWORK-REF17875 RWORK-REF17876 + INFO-REF17877)))) + +(CFFI:DEFCFUN ("zgehd2_" %%ZGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -2183,20 +2181,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17863 ':INT32) (ILO-REF17864 ':INT32) - (IHI-REF17865 ':INT32) (LDA-REF17867 ':INT32) - (INFO-REF17870 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17863 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17864 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17865 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17867 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17870 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17866 A) (TAU-REF17868 TAU) - (WORK-REF17869 WORK)) - (%%ZGEHD2 N-REF17863 ILO-REF17864 IHI-REF17865 A-REF17866 LDA-REF17867 - TAU-REF17868 WORK-REF17869 INFO-REF17870)))) - -(CFFI:DEFCFUN ("zgehrd_" %%ZGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17878 ':INT32) (ILO-REF17879 ':INT32) + (IHI-REF17880 ':INT32) (LDA-REF17882 ':INT32) + (INFO-REF17885 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17878 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17879 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17880 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17882 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17885 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17881 A) (TAU-REF17883 TAU) + (WORK-REF17884 WORK)) + (%%ZGEHD2 N-REF17878 ILO-REF17879 IHI-REF17880 A-REF17881 LDA-REF17882 + TAU-REF17883 WORK-REF17884 INFO-REF17885)))) + +(CFFI:DEFCFUN ("zgehrd_" %%ZGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -2231,21 +2229,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17871 ':INT32) (ILO-REF17872 ':INT32) - (IHI-REF17873 ':INT32) (LDA-REF17875 ':INT32) - (LWORK-REF17878 ':INT32) (INFO-REF17879 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17871 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17872 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17873 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17875 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17878 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17879 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17874 A) (TAU-REF17876 TAU) - (WORK-REF17877 WORK)) - (%%ZGEHRD N-REF17871 ILO-REF17872 IHI-REF17873 A-REF17874 LDA-REF17875 - TAU-REF17876 WORK-REF17877 LWORK-REF17878 INFO-REF17879)))) - -(CFFI:DEFCFUN ("zgejsv_" %%ZGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF17886 ':INT32) (ILO-REF17887 ':INT32) + (IHI-REF17888 ':INT32) (LDA-REF17890 ':INT32) + (LWORK-REF17893 ':INT32) (INFO-REF17894 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17886 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF17887 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF17888 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17890 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17893 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17894 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17889 A) (TAU-REF17891 TAU) + (WORK-REF17892 WORK)) + (%%ZGEHRD N-REF17886 ILO-REF17887 IHI-REF17888 A-REF17889 LDA-REF17890 + TAU-REF17891 WORK-REF17892 LWORK-REF17893 INFO-REF17894)))) + +(CFFI:DEFCFUN ("zgejsv_" %%ZGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBU :STRING) @@ -2317,29 +2315,29 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17886 ':INT32) (N-REF17887 ':INT32) - (LDA-REF17889 ':INT32) (LDU-REF17892 ':INT32) - (LDV-REF17894 ':INT32) (LWORK-REF17896 ':INT32) - (LRWORK-REF17898 ':INT32) (INFO-REF17900 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17886 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17887 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17889 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17892 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17894 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17896 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17898 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17900 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17888 A) (SVA-REF17890 SVA) - (U-REF17891 U) (V-REF17893 V) - (CWORK-REF17895 CWORK) - (RWORK-REF17897 RWORK) - (IWORK-REF17899 IWORK)) - (%%ZGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF17886 N-REF17887 A-REF17888 - LDA-REF17889 SVA-REF17890 U-REF17891 LDU-REF17892 V-REF17893 - LDV-REF17894 CWORK-REF17895 LWORK-REF17896 RWORK-REF17897 - LRWORK-REF17898 IWORK-REF17899 INFO-REF17900)))) - -(CFFI:DEFCFUN ("zgelq_" %%ZGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17901 ':INT32) (N-REF17902 ':INT32) + (LDA-REF17904 ':INT32) (LDU-REF17907 ':INT32) + (LDV-REF17909 ':INT32) (LWORK-REF17911 ':INT32) + (LRWORK-REF17913 ':INT32) (INFO-REF17915 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17901 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17902 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17904 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF17907 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF17909 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17911 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF17913 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17915 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17903 A) (SVA-REF17905 SVA) + (U-REF17906 U) (V-REF17908 V) + (CWORK-REF17910 CWORK) + (RWORK-REF17912 RWORK) + (IWORK-REF17914 IWORK)) + (%%ZGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF17901 N-REF17902 A-REF17903 + LDA-REF17904 SVA-REF17905 U-REF17906 LDU-REF17907 V-REF17908 + LDV-REF17909 CWORK-REF17910 LWORK-REF17911 RWORK-REF17912 + LRWORK-REF17913 IWORK-REF17914 INFO-REF17915)))) + +(CFFI:DEFCFUN ("zgelq_" %%ZGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2374,21 +2372,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17901 ':INT32) (N-REF17902 ':INT32) - (LDA-REF17904 ':INT32) (TSIZE-REF17906 ':INT32) - (LWORK-REF17908 ':INT32) (INFO-REF17909 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17901 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17902 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17904 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF17906 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17908 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17909 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17903 A) (T-REF17905 T) - (WORK-REF17907 WORK)) - (%%ZGELQ M-REF17901 N-REF17902 A-REF17903 LDA-REF17904 T-REF17905 - TSIZE-REF17906 WORK-REF17907 LWORK-REF17908 INFO-REF17909)))) - -(CFFI:DEFCFUN ("zgelq2_" %%ZGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17916 ':INT32) (N-REF17917 ':INT32) + (LDA-REF17919 ':INT32) (TSIZE-REF17921 ':INT32) + (LWORK-REF17923 ':INT32) (INFO-REF17924 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17916 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17917 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17919 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF17921 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17923 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17924 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17918 A) (T-REF17920 T) + (WORK-REF17922 WORK)) + (%%ZGELQ M-REF17916 N-REF17917 A-REF17918 LDA-REF17919 T-REF17920 + TSIZE-REF17921 WORK-REF17922 LWORK-REF17923 INFO-REF17924)))) + +(CFFI:DEFCFUN ("zgelq2_" %%ZGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2419,18 +2417,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17910 ':INT32) (N-REF17911 ':INT32) - (LDA-REF17913 ':INT32) (INFO-REF17916 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17910 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17911 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17913 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17916 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17912 A) (TAU-REF17914 TAU) - (WORK-REF17915 WORK)) - (%%ZGELQ2 M-REF17910 N-REF17911 A-REF17912 LDA-REF17913 TAU-REF17914 - WORK-REF17915 INFO-REF17916)))) - -(CFFI:DEFCFUN ("zgelqf_" %%ZGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17925 ':INT32) (N-REF17926 ':INT32) + (LDA-REF17928 ':INT32) (INFO-REF17931 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17925 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17926 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17928 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17931 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17927 A) (TAU-REF17929 TAU) + (WORK-REF17930 WORK)) + (%%ZGELQ2 M-REF17925 N-REF17926 A-REF17927 LDA-REF17928 TAU-REF17929 + WORK-REF17930 INFO-REF17931)))) + +(CFFI:DEFCFUN ("zgelqf_" %%ZGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2463,20 +2461,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17917 ':INT32) (N-REF17918 ':INT32) - (LDA-REF17920 ':INT32) (LWORK-REF17923 ':INT32) - (INFO-REF17924 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17917 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17918 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17920 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17923 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17924 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17919 A) (TAU-REF17921 TAU) - (WORK-REF17922 WORK)) - (%%ZGELQF M-REF17917 N-REF17918 A-REF17919 LDA-REF17920 TAU-REF17921 - WORK-REF17922 LWORK-REF17923 INFO-REF17924)))) - -(CFFI:DEFCFUN ("zgelqt_" %%ZGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17932 ':INT32) (N-REF17933 ':INT32) + (LDA-REF17935 ':INT32) (LWORK-REF17938 ':INT32) + (INFO-REF17939 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17932 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17933 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17935 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17938 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17939 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17934 A) (TAU-REF17936 TAU) + (WORK-REF17937 WORK)) + (%%ZGELQF M-REF17932 N-REF17933 A-REF17934 LDA-REF17935 TAU-REF17936 + WORK-REF17937 LWORK-REF17938 INFO-REF17939)))) + +(CFFI:DEFCFUN ("zgelqt_" %%ZGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2511,21 +2509,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17925 ':INT32) (N-REF17926 ':INT32) - (MB-REF17927 ':INT32) (LDA-REF17929 ':INT32) - (LDT-REF17931 ':INT32) (INFO-REF17933 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17925 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17926 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17927 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17929 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17931 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17933 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17928 A) (T-REF17930 T) - (WORK-REF17932 WORK)) - (%%ZGELQT M-REF17925 N-REF17926 MB-REF17927 A-REF17928 LDA-REF17929 - T-REF17930 LDT-REF17931 WORK-REF17932 INFO-REF17933)))) - -(CFFI:DEFCFUN ("zgelqt3_" %%ZGELQT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17940 ':INT32) (N-REF17941 ':INT32) + (MB-REF17942 ':INT32) (LDA-REF17944 ':INT32) + (LDT-REF17946 ':INT32) (INFO-REF17948 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17940 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17941 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF17942 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17944 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17946 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17948 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17943 A) (T-REF17945 T) + (WORK-REF17947 WORK)) + (%%ZGELQT M-REF17940 N-REF17941 MB-REF17942 A-REF17943 LDA-REF17944 + T-REF17945 LDT-REF17946 WORK-REF17947 INFO-REF17948)))) + +(CFFI:DEFCFUN ("zgelqt3_" %%ZGELQT3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2552,19 +2551,19 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17934 ':INT32) (N-REF17935 ':INT32) - (LDA-REF17937 ':INT32) (LDT-REF17939 ':INT32) - (INFO-REF17940 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17934 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17935 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17937 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17939 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17940 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17936 A) (T-REF17938 T)) - (%%ZGELQT3 M-REF17934 N-REF17935 A-REF17936 LDA-REF17937 T-REF17938 - LDT-REF17939 INFO-REF17940)))) - -(CFFI:DEFCFUN ("zgels_" %%ZGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17949 ':INT32) (N-REF17950 ':INT32) + (LDA-REF17952 ':INT32) (LDT-REF17954 ':INT32) + (INFO-REF17955 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17949 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17950 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17952 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF17954 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17955 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17951 A) (T-REF17953 T)) + (%%ZGELQT3 M-REF17949 N-REF17950 A-REF17951 LDA-REF17952 T-REF17953 + LDT-REF17954 INFO-REF17955)))) + +(CFFI:DEFCFUN ("zgels_" %%ZGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (M :POINTER) @@ -2603,24 +2602,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17942 ':INT32) (N-REF17943 ':INT32) - (NRHS-REF17944 ':INT32) (LDA-REF17946 ':INT32) - (LDB-REF17948 ':INT32) (LWORK-REF17950 ':INT32) - (INFO-REF17951 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17942 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17943 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17944 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17946 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17948 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17950 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17951 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17945 A) (B-REF17947 B) - (WORK-REF17949 WORK)) - (%%ZGELS TRANS M-REF17942 N-REF17943 NRHS-REF17944 A-REF17945 - LDA-REF17946 B-REF17947 LDB-REF17948 WORK-REF17949 - LWORK-REF17950 INFO-REF17951)))) - -(CFFI:DEFCFUN ("zgelsd_" %%ZGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17957 ':INT32) (N-REF17958 ':INT32) + (NRHS-REF17959 ':INT32) (LDA-REF17961 ':INT32) + (LDB-REF17963 ':INT32) (LWORK-REF17965 ':INT32) + (INFO-REF17966 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17957 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17958 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17959 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17961 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17963 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17965 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17966 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17960 A) (B-REF17962 B) + (WORK-REF17964 WORK)) + (%%ZGELS TRANS M-REF17957 N-REF17958 NRHS-REF17959 A-REF17960 + LDA-REF17961 B-REF17962 LDB-REF17963 WORK-REF17964 LWORK-REF17965 + INFO-REF17966)))) + +(CFFI:DEFCFUN ("zgelsd_" %%ZGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2675,30 +2674,30 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17952 ':INT32) (N-REF17953 ':INT32) - (NRHS-REF17954 ':INT32) (LDA-REF17956 ':INT32) - (LDB-REF17958 ':INT32) (RCOND-REF17960 ':DOUBLE) - (RANK-REF17961 ':INT32) (LWORK-REF17963 ':INT32) - (INFO-REF17966 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17952 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17953 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17954 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17956 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17958 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17960 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17961 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17963 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17966 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17955 A) (B-REF17957 B) - (S-REF17959 S) (WORK-REF17962 WORK) - (RWORK-REF17964 RWORK) - (IWORK-REF17965 IWORK)) - (%%ZGELSD M-REF17952 N-REF17953 NRHS-REF17954 A-REF17955 LDA-REF17956 - B-REF17957 LDB-REF17958 S-REF17959 RCOND-REF17960 RANK-REF17961 - WORK-REF17962 LWORK-REF17963 RWORK-REF17964 IWORK-REF17965 - INFO-REF17966)))) - -(CFFI:DEFCFUN ("zgelss_" %%ZGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17967 ':INT32) (N-REF17968 ':INT32) + (NRHS-REF17969 ':INT32) (LDA-REF17971 ':INT32) + (LDB-REF17973 ':INT32) (RCOND-REF17975 ':DOUBLE) + (RANK-REF17976 ':INT32) (LWORK-REF17978 ':INT32) + (INFO-REF17981 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17967 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17968 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17969 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17971 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17973 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17975 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17976 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17978 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17981 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17970 A) (B-REF17972 B) + (S-REF17974 S) (WORK-REF17977 WORK) + (RWORK-REF17979 RWORK) + (IWORK-REF17980 IWORK)) + (%%ZGELSD M-REF17967 N-REF17968 NRHS-REF17969 A-REF17970 LDA-REF17971 + B-REF17972 LDB-REF17973 S-REF17974 RCOND-REF17975 RANK-REF17976 + WORK-REF17977 LWORK-REF17978 RWORK-REF17979 IWORK-REF17980 + INFO-REF17981)))) + +(CFFI:DEFCFUN ("zgelss_" %%ZGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2747,28 +2746,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17967 ':INT32) (N-REF17968 ':INT32) - (NRHS-REF17969 ':INT32) (LDA-REF17971 ':INT32) - (LDB-REF17973 ':INT32) (RCOND-REF17975 ':DOUBLE) - (RANK-REF17976 ':INT32) (LWORK-REF17978 ':INT32) - (INFO-REF17980 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17967 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17968 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17969 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17971 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17973 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17975 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17976 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17978 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17980 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17970 A) (B-REF17972 B) - (S-REF17974 S) (WORK-REF17977 WORK) - (RWORK-REF17979 RWORK)) - (%%ZGELSS M-REF17967 N-REF17968 NRHS-REF17969 A-REF17970 LDA-REF17971 - B-REF17972 LDB-REF17973 S-REF17974 RCOND-REF17975 RANK-REF17976 - WORK-REF17977 LWORK-REF17978 RWORK-REF17979 INFO-REF17980)))) - -(CFFI:DEFCFUN ("zgelsy_" %%ZGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17982 ':INT32) (N-REF17983 ':INT32) + (NRHS-REF17984 ':INT32) (LDA-REF17986 ':INT32) + (LDB-REF17988 ':INT32) (RCOND-REF17990 ':DOUBLE) + (RANK-REF17991 ':INT32) (LWORK-REF17993 ':INT32) + (INFO-REF17995 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17982 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17983 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17984 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17986 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17988 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17990 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17991 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17993 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17995 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17985 A) (B-REF17987 B) + (S-REF17989 S) (WORK-REF17992 WORK) + (RWORK-REF17994 RWORK)) + (%%ZGELSS M-REF17982 N-REF17983 NRHS-REF17984 A-REF17985 LDA-REF17986 + B-REF17987 LDB-REF17988 S-REF17989 RCOND-REF17990 RANK-REF17991 + WORK-REF17992 LWORK-REF17993 RWORK-REF17994 INFO-REF17995)))) + +(CFFI:DEFCFUN ("zgelsy_" %%ZGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2819,30 +2818,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17981 ':INT32) (N-REF17982 ':INT32) - (NRHS-REF17983 ':INT32) (LDA-REF17985 ':INT32) - (LDB-REF17987 ':INT32) (RCOND-REF17989 ':DOUBLE) - (RANK-REF17990 ':INT32) (LWORK-REF17992 ':INT32) - (INFO-REF17994 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17981 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17982 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17983 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF17985 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF17987 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF17989 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF17990 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF17992 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF17994 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17984 A) (B-REF17986 B) - (JPVT-REF17988 JPVT) - (WORK-REF17991 WORK) - (RWORK-REF17993 RWORK)) - (%%ZGELSY M-REF17981 N-REF17982 NRHS-REF17983 A-REF17984 LDA-REF17985 - B-REF17986 LDB-REF17987 JPVT-REF17988 RCOND-REF17989 - RANK-REF17990 WORK-REF17991 LWORK-REF17992 RWORK-REF17993 - INFO-REF17994)))) - -(CFFI:DEFCFUN ("zgemlq_" %%ZGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17996 ':INT32) (N-REF17997 ':INT32) + (NRHS-REF17998 ':INT32) (LDA-REF18000 ':INT32) + (LDB-REF18002 ':INT32) (RCOND-REF18004 ':DOUBLE) + (RANK-REF18005 ':INT32) (LWORK-REF18007 ':INT32) + (INFO-REF18009 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17996 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17997 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF17998 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18000 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18002 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18004 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF18005 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18007 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18009 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF17999 A) (B-REF18001 B) + (JPVT-REF18003 JPVT) + (WORK-REF18006 WORK) + (RWORK-REF18008 RWORK)) + (%%ZGELSY M-REF17996 N-REF17997 NRHS-REF17998 A-REF17999 LDA-REF18000 + B-REF18001 LDB-REF18002 JPVT-REF18003 RCOND-REF18004 RANK-REF18005 + WORK-REF18006 LWORK-REF18007 RWORK-REF18008 INFO-REF18009)))) + +(CFFI:DEFCFUN ("zgemlq_" %%ZGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2892,25 +2890,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF17997 ':INT32) (N-REF17998 ':INT32) - (K-REF17999 ':INT32) (LDA-REF18001 ':INT32) - (TSIZE-REF18003 ':INT32) (LDC-REF18005 ':INT32) - (LWORK-REF18007 ':INT32) (INFO-REF18008 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF17997 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF17998 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF17999 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18001 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18003 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18005 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18007 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18008 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18000 A) (T-REF18002 T) - (C-REF18004 C) (WORK-REF18006 WORK)) - (%%ZGEMLQ SIDE TRANS M-REF17997 N-REF17998 K-REF17999 A-REF18000 - LDA-REF18001 T-REF18002 TSIZE-REF18003 C-REF18004 LDC-REF18005 - WORK-REF18006 LWORK-REF18007 INFO-REF18008)))) - -(CFFI:DEFCFUN ("zgemlqt_" %%ZGEMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18012 ':INT32) (N-REF18013 ':INT32) + (K-REF18014 ':INT32) (LDA-REF18016 ':INT32) + (TSIZE-REF18018 ':INT32) (LDC-REF18020 ':INT32) + (LWORK-REF18022 ':INT32) (INFO-REF18023 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18012 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18013 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18014 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18016 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18018 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18020 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18022 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18023 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18015 A) (T-REF18017 T) + (C-REF18019 C) (WORK-REF18021 WORK)) + (%%ZGEMLQ SIDE TRANS M-REF18012 N-REF18013 K-REF18014 A-REF18015 + LDA-REF18016 T-REF18017 TSIZE-REF18018 C-REF18019 LDC-REF18020 + WORK-REF18021 LWORK-REF18022 INFO-REF18023)))) + +(CFFI:DEFCFUN ("zgemlqt_" %%ZGEMLQT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2959,25 +2958,25 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18011 ':INT32) (N-REF18012 ':INT32) - (K-REF18013 ':INT32) (MB-REF18014 ':INT32) - (LDV-REF18016 ':INT32) (LDT-REF18018 ':INT32) - (LDC-REF18020 ':INT32) (INFO-REF18022 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18011 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18012 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18013 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF18014 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18016 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18018 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18020 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18022 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18015 V) (T-REF18017 T) - (C-REF18019 C) (WORK-REF18021 WORK)) - (%%ZGEMLQT SIDE TRANS M-REF18011 N-REF18012 K-REF18013 MB-REF18014 - V-REF18015 LDV-REF18016 T-REF18017 LDT-REF18018 C-REF18019 - LDC-REF18020 WORK-REF18021 INFO-REF18022)))) - -(CFFI:DEFCFUN ("zgemqr_" %%ZGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18026 ':INT32) (N-REF18027 ':INT32) + (K-REF18028 ':INT32) (MB-REF18029 ':INT32) + (LDV-REF18031 ':INT32) (LDT-REF18033 ':INT32) + (LDC-REF18035 ':INT32) (INFO-REF18037 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18026 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18027 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18028 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF18029 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18031 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18033 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18035 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18037 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18030 V) (T-REF18032 T) + (C-REF18034 C) (WORK-REF18036 WORK)) + (%%ZGEMLQT SIDE TRANS M-REF18026 N-REF18027 K-REF18028 MB-REF18029 + V-REF18030 LDV-REF18031 T-REF18032 LDT-REF18033 C-REF18034 LDC-REF18035 + WORK-REF18036 INFO-REF18037)))) + +(CFFI:DEFCFUN ("zgemqr_" %%ZGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3027,25 +3026,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18025 ':INT32) (N-REF18026 ':INT32) - (K-REF18027 ':INT32) (LDA-REF18029 ':INT32) - (TSIZE-REF18031 ':INT32) (LDC-REF18033 ':INT32) - (LWORK-REF18035 ':INT32) (INFO-REF18036 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18025 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18026 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18027 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18029 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18031 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18033 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18035 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18036 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18028 A) (T-REF18030 T) - (C-REF18032 C) (WORK-REF18034 WORK)) - (%%ZGEMQR SIDE TRANS M-REF18025 N-REF18026 K-REF18027 A-REF18028 - LDA-REF18029 T-REF18030 TSIZE-REF18031 C-REF18032 LDC-REF18033 - WORK-REF18034 LWORK-REF18035 INFO-REF18036)))) - -(CFFI:DEFCFUN ("zgemqrt_" %%ZGEMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18040 ':INT32) (N-REF18041 ':INT32) + (K-REF18042 ':INT32) (LDA-REF18044 ':INT32) + (TSIZE-REF18046 ':INT32) (LDC-REF18048 ':INT32) + (LWORK-REF18050 ':INT32) (INFO-REF18051 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18040 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18041 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18042 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18044 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18046 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18048 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18050 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18051 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18043 A) (T-REF18045 T) + (C-REF18047 C) (WORK-REF18049 WORK)) + (%%ZGEMQR SIDE TRANS M-REF18040 N-REF18041 K-REF18042 A-REF18043 + LDA-REF18044 T-REF18045 TSIZE-REF18046 C-REF18047 LDC-REF18048 + WORK-REF18049 LWORK-REF18050 INFO-REF18051)))) + +(CFFI:DEFCFUN ("zgemqrt_" %%ZGEMQRT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -3094,25 +3094,25 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18039 ':INT32) (N-REF18040 ':INT32) - (K-REF18041 ':INT32) (NB-REF18042 ':INT32) - (LDV-REF18044 ':INT32) (LDT-REF18046 ':INT32) - (LDC-REF18048 ':INT32) (INFO-REF18050 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18039 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18040 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18041 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18042 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18044 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18046 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18048 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18050 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18043 V) (T-REF18045 T) - (C-REF18047 C) (WORK-REF18049 WORK)) - (%%ZGEMQRT SIDE TRANS M-REF18039 N-REF18040 K-REF18041 NB-REF18042 - V-REF18043 LDV-REF18044 T-REF18045 LDT-REF18046 C-REF18047 - LDC-REF18048 WORK-REF18049 INFO-REF18050)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18054 ':INT32) (N-REF18055 ':INT32) + (K-REF18056 ':INT32) (NB-REF18057 ':INT32) + (LDV-REF18059 ':INT32) (LDT-REF18061 ':INT32) + (LDC-REF18063 ':INT32) (INFO-REF18065 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18054 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18055 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18056 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18057 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18059 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18061 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF18063 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18065 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF18058 V) (T-REF18060 T) + (C-REF18062 C) (WORK-REF18064 WORK)) + (%%ZGEMQRT SIDE TRANS M-REF18054 N-REF18055 K-REF18056 NB-REF18057 + V-REF18058 LDV-REF18059 T-REF18060 LDT-REF18061 C-REF18062 LDC-REF18063 + WORK-REF18064 INFO-REF18065)))) -(CFFI:DEFCFUN ("zgeql2_" %%ZGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zgeql2_" %%ZGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3143,18 +3143,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18051 ':INT32) (N-REF18052 ':INT32) - (LDA-REF18054 ':INT32) (INFO-REF18057 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18051 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18052 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18054 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18057 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18053 A) (TAU-REF18055 TAU) - (WORK-REF18056 WORK)) - (%%ZGEQL2 M-REF18051 N-REF18052 A-REF18053 LDA-REF18054 TAU-REF18055 - WORK-REF18056 INFO-REF18057)))) - -(CFFI:DEFCFUN ("zgeqlf_" %%ZGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18066 ':INT32) (N-REF18067 ':INT32) + (LDA-REF18069 ':INT32) (INFO-REF18072 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18066 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18067 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18069 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18072 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18068 A) (TAU-REF18070 TAU) + (WORK-REF18071 WORK)) + (%%ZGEQL2 M-REF18066 N-REF18067 A-REF18068 LDA-REF18069 TAU-REF18070 + WORK-REF18071 INFO-REF18072)))) + +(CFFI:DEFCFUN ("zgeqlf_" %%ZGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3187,20 +3187,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18058 ':INT32) (N-REF18059 ':INT32) - (LDA-REF18061 ':INT32) (LWORK-REF18064 ':INT32) - (INFO-REF18065 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18058 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18059 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18061 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18064 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18065 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18060 A) (TAU-REF18062 TAU) - (WORK-REF18063 WORK)) - (%%ZGEQLF M-REF18058 N-REF18059 A-REF18060 LDA-REF18061 TAU-REF18062 - WORK-REF18063 LWORK-REF18064 INFO-REF18065)))) - -(CFFI:DEFCFUN ("zgeqp3_" %%ZGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18073 ':INT32) (N-REF18074 ':INT32) + (LDA-REF18076 ':INT32) (LWORK-REF18079 ':INT32) + (INFO-REF18080 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18073 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18074 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18076 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18079 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18080 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18075 A) (TAU-REF18077 TAU) + (WORK-REF18078 WORK)) + (%%ZGEQLF M-REF18073 N-REF18074 A-REF18075 LDA-REF18076 TAU-REF18077 + WORK-REF18078 LWORK-REF18079 INFO-REF18080)))) + +(CFFI:DEFCFUN ("zgeqp3_" %%ZGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3242,23 +3242,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18066 ':INT32) (N-REF18067 ':INT32) - (LDA-REF18069 ':INT32) (LWORK-REF18073 ':INT32) - (INFO-REF18075 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18066 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18067 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18069 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18073 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18075 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18068 A) (JPVT-REF18070 JPVT) - (TAU-REF18071 TAU) - (WORK-REF18072 WORK) - (RWORK-REF18074 RWORK)) - (%%ZGEQP3 M-REF18066 N-REF18067 A-REF18068 LDA-REF18069 JPVT-REF18070 - TAU-REF18071 WORK-REF18072 LWORK-REF18073 RWORK-REF18074 - INFO-REF18075)))) - -(CFFI:DEFCFUN ("zgeqr_" %%ZGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18081 ':INT32) (N-REF18082 ':INT32) + (LDA-REF18084 ':INT32) (LWORK-REF18088 ':INT32) + (INFO-REF18090 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18081 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18082 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18084 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18088 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18090 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18083 A) (JPVT-REF18085 JPVT) + (TAU-REF18086 TAU) + (WORK-REF18087 WORK) + (RWORK-REF18089 RWORK)) + (%%ZGEQP3 M-REF18081 N-REF18082 A-REF18083 LDA-REF18084 JPVT-REF18085 + TAU-REF18086 WORK-REF18087 LWORK-REF18088 RWORK-REF18089 + INFO-REF18090)))) + +(CFFI:DEFCFUN ("zgeqr_" %%ZGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3293,21 +3293,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18076 ':INT32) (N-REF18077 ':INT32) - (LDA-REF18079 ':INT32) (TSIZE-REF18081 ':INT32) - (LWORK-REF18083 ':INT32) (INFO-REF18084 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18076 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18077 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18079 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18081 :INT32) TSIZE) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18083 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18084 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18078 A) (T-REF18080 T) - (WORK-REF18082 WORK)) - (%%ZGEQR M-REF18076 N-REF18077 A-REF18078 LDA-REF18079 T-REF18080 - TSIZE-REF18081 WORK-REF18082 LWORK-REF18083 INFO-REF18084)))) - -(CFFI:DEFCFUN ("zgeqr2_" %%ZGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18091 ':INT32) (N-REF18092 ':INT32) + (LDA-REF18094 ':INT32) (TSIZE-REF18096 ':INT32) + (LWORK-REF18098 ':INT32) (INFO-REF18099 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18091 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18092 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18094 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF18096 :INT32) TSIZE) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18098 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18099 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18093 A) (T-REF18095 T) + (WORK-REF18097 WORK)) + (%%ZGEQR M-REF18091 N-REF18092 A-REF18093 LDA-REF18094 T-REF18095 + TSIZE-REF18096 WORK-REF18097 LWORK-REF18098 INFO-REF18099)))) + +(CFFI:DEFCFUN ("zgeqr2_" %%ZGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3338,18 +3338,19 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18085 ':INT32) (N-REF18086 ':INT32) - (LDA-REF18088 ':INT32) (INFO-REF18091 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18085 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18086 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18088 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18091 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18087 A) (TAU-REF18089 TAU) - (WORK-REF18090 WORK)) - (%%ZGEQR2 M-REF18085 N-REF18086 A-REF18087 LDA-REF18088 TAU-REF18089 - WORK-REF18090 INFO-REF18091)))) - -(CFFI:DEFCFUN ("zgeqr2p_" %%ZGEQR2P :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18100 ':INT32) (N-REF18101 ':INT32) + (LDA-REF18103 ':INT32) (INFO-REF18106 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18100 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18101 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18103 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18106 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18102 A) (TAU-REF18104 TAU) + (WORK-REF18105 WORK)) + (%%ZGEQR2 M-REF18100 N-REF18101 A-REF18102 LDA-REF18103 TAU-REF18104 + WORK-REF18105 INFO-REF18106)))) + +(CFFI:DEFCFUN ("zgeqr2p_" %%ZGEQR2P :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3380,18 +3381,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18092 ':INT32) (N-REF18093 ':INT32) - (LDA-REF18095 ':INT32) (INFO-REF18098 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18092 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18093 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18095 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18098 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18094 A) (TAU-REF18096 TAU) - (WORK-REF18097 WORK)) - (%%ZGEQR2P M-REF18092 N-REF18093 A-REF18094 LDA-REF18095 TAU-REF18096 - WORK-REF18097 INFO-REF18098)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18107 ':INT32) (N-REF18108 ':INT32) + (LDA-REF18110 ':INT32) (INFO-REF18113 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18107 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18108 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18110 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18113 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18109 A) (TAU-REF18111 TAU) + (WORK-REF18112 WORK)) + (%%ZGEQR2P M-REF18107 N-REF18108 A-REF18109 LDA-REF18110 TAU-REF18111 + WORK-REF18112 INFO-REF18113)))) -(CFFI:DEFCFUN ("zgeqrf_" %%ZGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zgeqrf_" %%ZGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3424,20 +3425,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18099 ':INT32) (N-REF18100 ':INT32) - (LDA-REF18102 ':INT32) (LWORK-REF18105 ':INT32) - (INFO-REF18106 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18099 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18100 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18102 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18105 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18106 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18101 A) (TAU-REF18103 TAU) - (WORK-REF18104 WORK)) - (%%ZGEQRF M-REF18099 N-REF18100 A-REF18101 LDA-REF18102 TAU-REF18103 - WORK-REF18104 LWORK-REF18105 INFO-REF18106)))) - -(CFFI:DEFCFUN ("zgeqrfp_" %%ZGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18114 ':INT32) (N-REF18115 ':INT32) + (LDA-REF18117 ':INT32) (LWORK-REF18120 ':INT32) + (INFO-REF18121 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18114 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18115 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18117 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18120 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18121 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18116 A) (TAU-REF18118 TAU) + (WORK-REF18119 WORK)) + (%%ZGEQRF M-REF18114 N-REF18115 A-REF18116 LDA-REF18117 TAU-REF18118 + WORK-REF18119 LWORK-REF18120 INFO-REF18121)))) + +(CFFI:DEFCFUN ("zgeqrfp_" %%ZGEQRFP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3470,20 +3472,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18107 ':INT32) (N-REF18108 ':INT32) - (LDA-REF18110 ':INT32) (LWORK-REF18113 ':INT32) - (INFO-REF18114 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18107 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18108 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18110 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18113 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18114 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18109 A) (TAU-REF18111 TAU) - (WORK-REF18112 WORK)) - (%%ZGEQRFP M-REF18107 N-REF18108 A-REF18109 LDA-REF18110 TAU-REF18111 - WORK-REF18112 LWORK-REF18113 INFO-REF18114)))) - -(CFFI:DEFCFUN ("zgeqrt_" %%ZGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18122 ':INT32) (N-REF18123 ':INT32) + (LDA-REF18125 ':INT32) (LWORK-REF18128 ':INT32) + (INFO-REF18129 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18122 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18123 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18125 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18128 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18129 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18124 A) (TAU-REF18126 TAU) + (WORK-REF18127 WORK)) + (%%ZGEQRFP M-REF18122 N-REF18123 A-REF18124 LDA-REF18125 TAU-REF18126 + WORK-REF18127 LWORK-REF18128 INFO-REF18129)))) + +(CFFI:DEFCFUN ("zgeqrt_" %%ZGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3518,21 +3520,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18115 ':INT32) (N-REF18116 ':INT32) - (NB-REF18117 ':INT32) (LDA-REF18119 ':INT32) - (LDT-REF18121 ':INT32) (INFO-REF18123 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18115 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18116 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18117 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18119 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18121 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18123 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18118 A) (T-REF18120 T) - (WORK-REF18122 WORK)) - (%%ZGEQRT M-REF18115 N-REF18116 NB-REF18117 A-REF18118 LDA-REF18119 - T-REF18120 LDT-REF18121 WORK-REF18122 INFO-REF18123)))) - -(CFFI:DEFCFUN ("zgeqrt2_" %%ZGEQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18130 ':INT32) (N-REF18131 ':INT32) + (NB-REF18132 ':INT32) (LDA-REF18134 ':INT32) + (LDT-REF18136 ':INT32) (INFO-REF18138 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18130 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18131 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18132 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18134 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18136 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18138 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18133 A) (T-REF18135 T) + (WORK-REF18137 WORK)) + (%%ZGEQRT M-REF18130 N-REF18131 NB-REF18132 A-REF18133 LDA-REF18134 + T-REF18135 LDT-REF18136 WORK-REF18137 INFO-REF18138)))) + +(CFFI:DEFCFUN ("zgeqrt2_" %%ZGEQRT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3559,19 +3562,20 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18124 ':INT32) (N-REF18125 ':INT32) - (LDA-REF18127 ':INT32) (LDT-REF18129 ':INT32) - (INFO-REF18130 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18124 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18125 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18127 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18129 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18130 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18126 A) (T-REF18128 T)) - (%%ZGEQRT2 M-REF18124 N-REF18125 A-REF18126 LDA-REF18127 T-REF18128 - LDT-REF18129 INFO-REF18130)))) - -(CFFI:DEFCFUN ("zgeqrt3_" %%ZGEQRT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18139 ':INT32) (N-REF18140 ':INT32) + (LDA-REF18142 ':INT32) (LDT-REF18144 ':INT32) + (INFO-REF18145 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18139 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18140 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18142 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18144 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18145 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18141 A) (T-REF18143 T)) + (%%ZGEQRT2 M-REF18139 N-REF18140 A-REF18141 LDA-REF18142 T-REF18143 + LDT-REF18144 INFO-REF18145)))) + +(CFFI:DEFCFUN ("zgeqrt3_" %%ZGEQRT3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3598,19 +3602,19 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18131 ':INT32) (N-REF18132 ':INT32) - (LDA-REF18134 ':INT32) (LDT-REF18136 ':INT32) - (INFO-REF18137 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18131 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18132 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18134 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18136 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18137 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18133 A) (T-REF18135 T)) - (%%ZGEQRT3 M-REF18131 N-REF18132 A-REF18133 LDA-REF18134 T-REF18135 - LDT-REF18136 INFO-REF18137)))) - -(CFFI:DEFCFUN ("zgerfs_" %%ZGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18146 ':INT32) (N-REF18147 ':INT32) + (LDA-REF18149 ':INT32) (LDT-REF18151 ':INT32) + (INFO-REF18152 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18146 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18147 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18149 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF18151 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18152 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18148 A) (T-REF18150 T)) + (%%ZGEQRT3 M-REF18146 N-REF18147 A-REF18148 LDA-REF18149 T-REF18150 + LDT-REF18151 INFO-REF18152)))) + +(CFFI:DEFCFUN ("zgerfs_" %%ZGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -3680,29 +3684,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18139 ':INT32) (NRHS-REF18140 ':INT32) - (LDA-REF18142 ':INT32) (LDAF-REF18144 ':INT32) - (LDB-REF18147 ':INT32) (LDX-REF18149 ':INT32) - (INFO-REF18154 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18139 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18140 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18142 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18144 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18147 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18149 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18154 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18141 A) (AF-REF18143 AF) - (IPIV-REF18145 IPIV) (B-REF18146 B) - (X-REF18148 X) (FERR-REF18150 FERR) - (BERR-REF18151 BERR) - (WORK-REF18152 WORK) - (RWORK-REF18153 RWORK)) - (%%ZGERFS TRANS N-REF18139 NRHS-REF18140 A-REF18141 LDA-REF18142 - AF-REF18143 LDAF-REF18144 IPIV-REF18145 B-REF18146 LDB-REF18147 - X-REF18148 LDX-REF18149 FERR-REF18150 BERR-REF18151 - WORK-REF18152 RWORK-REF18153 INFO-REF18154)))) - -(CFFI:DEFCFUN ("zgerfsx_" %%ZGERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18154 ':INT32) (NRHS-REF18155 ':INT32) + (LDA-REF18157 ':INT32) (LDAF-REF18159 ':INT32) + (LDB-REF18162 ':INT32) (LDX-REF18164 ':INT32) + (INFO-REF18169 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18154 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18155 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18157 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18159 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18162 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18164 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18169 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18156 A) (AF-REF18158 AF) + (IPIV-REF18160 IPIV) (B-REF18161 B) + (X-REF18163 X) (FERR-REF18165 FERR) + (BERR-REF18166 BERR) + (WORK-REF18167 WORK) + (RWORK-REF18168 RWORK)) + (%%ZGERFS TRANS N-REF18154 NRHS-REF18155 A-REF18156 LDA-REF18157 + AF-REF18158 LDAF-REF18159 IPIV-REF18160 B-REF18161 LDB-REF18162 + X-REF18163 LDX-REF18164 FERR-REF18165 BERR-REF18166 WORK-REF18167 + RWORK-REF18168 INFO-REF18169)))) + +(CFFI:DEFCFUN ("zgerfsx_" %%ZGERFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (EQUED :STRING) @@ -3796,42 +3801,42 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18157 ':INT32) (NRHS-REF18158 ':INT32) - (LDA-REF18160 ':INT32) (LDAF-REF18162 ':INT32) - (LDB-REF18167 ':INT32) (LDX-REF18169 ':INT32) - (RCOND-REF18170 ':DOUBLE) - (N_ERR_BNDS-REF18172 ':INT32) - (NPARAMS-REF18175 ':INT32) - (INFO-REF18179 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18157 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18158 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18160 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18162 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18167 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18169 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18170 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18172 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18175 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18179 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18159 A) (AF-REF18161 AF) - (IPIV-REF18163 IPIV) (R-REF18164 R) - (C-REF18165 C) (B-REF18166 B) - (X-REF18168 X) (BERR-REF18171 BERR) - (ERR_BNDS_NORM-REF18173 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18172 ':INT32) (NRHS-REF18173 ':INT32) + (LDA-REF18175 ':INT32) (LDAF-REF18177 ':INT32) + (LDB-REF18182 ':INT32) (LDX-REF18184 ':INT32) + (RCOND-REF18185 ':DOUBLE) + (N_ERR_BNDS-REF18187 ':INT32) + (NPARAMS-REF18190 ':INT32) + (INFO-REF18194 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18172 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18173 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18175 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18177 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18182 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18184 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18185 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18187 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18190 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18194 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18174 A) (AF-REF18176 AF) + (IPIV-REF18178 IPIV) (R-REF18179 R) + (C-REF18180 C) (B-REF18181 B) + (X-REF18183 X) (BERR-REF18186 BERR) + (ERR_BNDS_NORM-REF18188 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF18174 + (ERR_BNDS_COMP-REF18189 ERR_BNDS_COMP) - (PARAMS-REF18176 PARAMS) - (WORK-REF18177 WORK) - (RWORK-REF18178 RWORK)) - (%%ZGERFSX TRANS EQUED N-REF18157 NRHS-REF18158 A-REF18159 LDA-REF18160 - AF-REF18161 LDAF-REF18162 IPIV-REF18163 R-REF18164 C-REF18165 - B-REF18166 LDB-REF18167 X-REF18168 LDX-REF18169 RCOND-REF18170 - BERR-REF18171 N_ERR_BNDS-REF18172 ERR_BNDS_NORM-REF18173 - ERR_BNDS_COMP-REF18174 NPARAMS-REF18175 PARAMS-REF18176 - WORK-REF18177 RWORK-REF18178 INFO-REF18179)))) - -(CFFI:DEFCFUN ("zgerq2_" %%ZGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF18191 PARAMS) + (WORK-REF18192 WORK) + (RWORK-REF18193 RWORK)) + (%%ZGERFSX TRANS EQUED N-REF18172 NRHS-REF18173 A-REF18174 LDA-REF18175 + AF-REF18176 LDAF-REF18177 IPIV-REF18178 R-REF18179 C-REF18180 B-REF18181 + LDB-REF18182 X-REF18183 LDX-REF18184 RCOND-REF18185 BERR-REF18186 + N_ERR_BNDS-REF18187 ERR_BNDS_NORM-REF18188 ERR_BNDS_COMP-REF18189 + NPARAMS-REF18190 PARAMS-REF18191 WORK-REF18192 RWORK-REF18193 + INFO-REF18194)))) + +(CFFI:DEFCFUN ("zgerq2_" %%ZGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3862,18 +3867,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18180 ':INT32) (N-REF18181 ':INT32) - (LDA-REF18183 ':INT32) (INFO-REF18186 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18180 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18181 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18183 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18186 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18182 A) (TAU-REF18184 TAU) - (WORK-REF18185 WORK)) - (%%ZGERQ2 M-REF18180 N-REF18181 A-REF18182 LDA-REF18183 TAU-REF18184 - WORK-REF18185 INFO-REF18186)))) - -(CFFI:DEFCFUN ("zgerqf_" %%ZGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18195 ':INT32) (N-REF18196 ':INT32) + (LDA-REF18198 ':INT32) (INFO-REF18201 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18195 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18196 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18198 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18201 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18197 A) (TAU-REF18199 TAU) + (WORK-REF18200 WORK)) + (%%ZGERQ2 M-REF18195 N-REF18196 A-REF18197 LDA-REF18198 TAU-REF18199 + WORK-REF18200 INFO-REF18201)))) + +(CFFI:DEFCFUN ("zgerqf_" %%ZGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3906,20 +3911,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18187 ':INT32) (N-REF18188 ':INT32) - (LDA-REF18190 ':INT32) (LWORK-REF18193 ':INT32) - (INFO-REF18194 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18187 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18188 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18190 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18193 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18194 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18189 A) (TAU-REF18191 TAU) - (WORK-REF18192 WORK)) - (%%ZGERQF M-REF18187 N-REF18188 A-REF18189 LDA-REF18190 TAU-REF18191 - WORK-REF18192 LWORK-REF18193 INFO-REF18194)))) - -(CFFI:DEFCFUN ("zgesc2_" %%ZGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18202 ':INT32) (N-REF18203 ':INT32) + (LDA-REF18205 ':INT32) (LWORK-REF18208 ':INT32) + (INFO-REF18209 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18202 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18203 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18205 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18208 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18209 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18204 A) (TAU-REF18206 TAU) + (WORK-REF18207 WORK)) + (%%ZGERQF M-REF18202 N-REF18203 A-REF18204 LDA-REF18205 TAU-REF18206 + WORK-REF18207 LWORK-REF18208 INFO-REF18209)))) + +(CFFI:DEFCFUN ("zgesc2_" %%ZGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -3952,18 +3957,18 @@ (COMMON-LISP:*)) JPIV) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18195 ':INT32) (LDA-REF18197 ':INT32) - (SCALE-REF18201 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18195 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18197 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF18201 :DOUBLE) SCALE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18196 A) (RHS-REF18198 RHS) - (IPIV-REF18199 IPIV) - (JPIV-REF18200 JPIV)) - (%%ZGESC2 N-REF18195 A-REF18196 LDA-REF18197 RHS-REF18198 IPIV-REF18199 - JPIV-REF18200 SCALE-REF18201)))) - -(CFFI:DEFCFUN ("zgesdd_" %%ZGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18210 ':INT32) (LDA-REF18212 ':INT32) + (SCALE-REF18216 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18210 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18212 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF18216 :DOUBLE) SCALE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18211 A) (RHS-REF18213 RHS) + (IPIV-REF18214 IPIV) + (JPIV-REF18215 JPIV)) + (%%ZGESC2 N-REF18210 A-REF18211 LDA-REF18212 RHS-REF18213 IPIV-REF18214 + JPIV-REF18215 SCALE-REF18216)))) + +(CFFI:DEFCFUN ("zgesdd_" %%ZGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (M :POINTER) @@ -4021,27 +4026,27 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18203 ':INT32) (N-REF18204 ':INT32) - (LDA-REF18206 ':INT32) (LDU-REF18209 ':INT32) - (LDVT-REF18211 ':INT32) (LWORK-REF18213 ':INT32) - (INFO-REF18216 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18203 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18204 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18206 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18209 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18211 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18213 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18216 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18205 A) (S-REF18207 S) - (U-REF18208 U) (VT-REF18210 VT) - (WORK-REF18212 WORK) - (RWORK-REF18214 RWORK) - (IWORK-REF18215 IWORK)) - (%%ZGESDD JOBZ M-REF18203 N-REF18204 A-REF18205 LDA-REF18206 S-REF18207 - U-REF18208 LDU-REF18209 VT-REF18210 LDVT-REF18211 WORK-REF18212 - LWORK-REF18213 RWORK-REF18214 IWORK-REF18215 INFO-REF18216)))) - -(CFFI:DEFCFUN ("zgesv_" %%ZGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18218 ':INT32) (N-REF18219 ':INT32) + (LDA-REF18221 ':INT32) (LDU-REF18224 ':INT32) + (LDVT-REF18226 ':INT32) (LWORK-REF18228 ':INT32) + (INFO-REF18231 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18218 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18219 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18221 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18224 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18226 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18228 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18231 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18220 A) (S-REF18222 S) + (U-REF18223 U) (VT-REF18225 VT) + (WORK-REF18227 WORK) + (RWORK-REF18229 RWORK) + (IWORK-REF18230 IWORK)) + (%%ZGESDD JOBZ M-REF18218 N-REF18219 A-REF18220 LDA-REF18221 S-REF18222 + U-REF18223 LDU-REF18224 VT-REF18225 LDVT-REF18226 WORK-REF18227 + LWORK-REF18228 RWORK-REF18229 IWORK-REF18230 INFO-REF18231)))) + +(CFFI:DEFCFUN ("zgesv_" %%ZGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -4073,20 +4078,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18217 ':INT32) (NRHS-REF18218 ':INT32) - (LDA-REF18220 ':INT32) (LDB-REF18223 ':INT32) - (INFO-REF18224 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18217 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18218 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18220 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18223 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18224 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18219 A) (IPIV-REF18221 IPIV) - (B-REF18222 B)) - (%%ZGESV N-REF18217 NRHS-REF18218 A-REF18219 LDA-REF18220 IPIV-REF18221 - B-REF18222 LDB-REF18223 INFO-REF18224)))) - -(CFFI:DEFCFUN ("zgesvd_" %%ZGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18232 ':INT32) (NRHS-REF18233 ':INT32) + (LDA-REF18235 ':INT32) (LDB-REF18238 ':INT32) + (INFO-REF18239 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18232 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18233 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18235 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18238 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18239 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18234 A) (IPIV-REF18236 IPIV) + (B-REF18237 B)) + (%%ZGESV N-REF18232 NRHS-REF18233 A-REF18234 LDA-REF18235 IPIV-REF18236 + B-REF18237 LDB-REF18238 INFO-REF18239)))) + +(CFFI:DEFCFUN ("zgesvd_" %%ZGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBVT :STRING) @@ -4141,26 +4146,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18227 ':INT32) (N-REF18228 ':INT32) - (LDA-REF18230 ':INT32) (LDU-REF18233 ':INT32) - (LDVT-REF18235 ':INT32) (LWORK-REF18237 ':INT32) - (INFO-REF18239 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18227 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18228 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18230 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18233 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18235 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18237 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18239 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18229 A) (S-REF18231 S) - (U-REF18232 U) (VT-REF18234 VT) - (WORK-REF18236 WORK) - (RWORK-REF18238 RWORK)) - (%%ZGESVD JOBU JOBVT M-REF18227 N-REF18228 A-REF18229 LDA-REF18230 - S-REF18231 U-REF18232 LDU-REF18233 VT-REF18234 LDVT-REF18235 - WORK-REF18236 LWORK-REF18237 RWORK-REF18238 INFO-REF18239)))) - -(CFFI:DEFCFUN ("zgesvdq_" %%ZGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18242 ':INT32) (N-REF18243 ':INT32) + (LDA-REF18245 ':INT32) (LDU-REF18248 ':INT32) + (LDVT-REF18250 ':INT32) (LWORK-REF18252 ':INT32) + (INFO-REF18254 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18242 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18243 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18245 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18248 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18250 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18252 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18254 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18244 A) (S-REF18246 S) + (U-REF18247 U) (VT-REF18249 VT) + (WORK-REF18251 WORK) + (RWORK-REF18253 RWORK)) + (%%ZGESVD JOBU JOBVT M-REF18242 N-REF18243 A-REF18244 LDA-REF18245 + S-REF18246 U-REF18247 LDU-REF18248 VT-REF18249 LDVT-REF18250 + WORK-REF18251 LWORK-REF18252 RWORK-REF18253 INFO-REF18254)))) + +(CFFI:DEFCFUN ("zgesvdq_" %%ZGESVDQ :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBP :STRING) @@ -4233,34 +4239,34 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18245 ':INT32) (N-REF18246 ':INT32) - (LDA-REF18248 ':INT32) (LDU-REF18251 ':INT32) - (LDV-REF18253 ':INT32) (NUMRANK-REF18254 ':INT32) - (LIWORK-REF18256 ':INT32) - (LCWORK-REF18258 ':INT32) - (LRWORK-REF18260 ':INT32) (INFO-REF18261 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18245 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18246 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18248 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18251 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18253 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF18254 :INT32) NUMRANK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18256 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF18258 :INT32) LCWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18260 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18261 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18247 A) (S-REF18249 S) - (U-REF18250 U) (V-REF18252 V) - (IWORK-REF18255 IWORK) - (CWORK-REF18257 CWORK) - (RWORK-REF18259 RWORK)) - (%%ZGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF18245 N-REF18246 A-REF18247 - LDA-REF18248 S-REF18249 U-REF18250 LDU-REF18251 V-REF18252 - LDV-REF18253 NUMRANK-REF18254 IWORK-REF18255 LIWORK-REF18256 - CWORK-REF18257 LCWORK-REF18258 RWORK-REF18259 LRWORK-REF18260 - INFO-REF18261)))) - -(CFFI:DEFCFUN ("zgesvdx_" %%ZGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18260 ':INT32) (N-REF18261 ':INT32) + (LDA-REF18263 ':INT32) (LDU-REF18266 ':INT32) + (LDV-REF18268 ':INT32) (NUMRANK-REF18269 ':INT32) + (LIWORK-REF18271 ':INT32) + (LCWORK-REF18273 ':INT32) + (LRWORK-REF18275 ':INT32) (INFO-REF18276 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18260 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18261 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18263 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18266 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18268 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF18269 :INT32) NUMRANK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18271 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF18273 :INT32) LCWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18275 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18276 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18262 A) (S-REF18264 S) + (U-REF18265 U) (V-REF18267 V) + (IWORK-REF18270 IWORK) + (CWORK-REF18272 CWORK) + (RWORK-REF18274 RWORK)) + (%%ZGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF18260 N-REF18261 A-REF18262 + LDA-REF18263 S-REF18264 U-REF18265 LDU-REF18266 V-REF18267 LDV-REF18268 + NUMRANK-REF18269 IWORK-REF18270 LIWORK-REF18271 CWORK-REF18272 + LCWORK-REF18273 RWORK-REF18274 LRWORK-REF18275 INFO-REF18276)))) + +(CFFI:DEFCFUN ("zgesvdx_" %%ZGESVDX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBVT :STRING) @@ -4333,36 +4339,35 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18265 ':INT32) (N-REF18266 ':INT32) - (LDA-REF18268 ':INT32) (VL-REF18269 ':DOUBLE) - (VU-REF18270 ':DOUBLE) (IL-REF18271 ':INT32) - (IU-REF18272 ':INT32) (NS-REF18273 ':INT32) - (LDU-REF18276 ':INT32) (LDVT-REF18278 ':INT32) - (LWORK-REF18280 ':INT32) (INFO-REF18283 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18265 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18266 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18268 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18269 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18270 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18271 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18272 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF18273 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18276 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18278 :INT32) LDVT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18280 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18283 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18267 A) (S-REF18274 S) - (U-REF18275 U) (VT-REF18277 VT) - (WORK-REF18279 WORK) - (RWORK-REF18281 RWORK) - (IWORK-REF18282 IWORK)) - (%%ZGESVDX JOBU JOBVT RANGE M-REF18265 N-REF18266 A-REF18267 LDA-REF18268 - VL-REF18269 VU-REF18270 IL-REF18271 IU-REF18272 NS-REF18273 - S-REF18274 U-REF18275 LDU-REF18276 VT-REF18277 LDVT-REF18278 - WORK-REF18279 LWORK-REF18280 RWORK-REF18281 IWORK-REF18282 - INFO-REF18283)))) - -(CFFI:DEFCFUN ("zgesvj_" %%ZGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18280 ':INT32) (N-REF18281 ':INT32) + (LDA-REF18283 ':INT32) (VL-REF18284 ':DOUBLE) + (VU-REF18285 ':DOUBLE) (IL-REF18286 ':INT32) + (IU-REF18287 ':INT32) (NS-REF18288 ':INT32) + (LDU-REF18291 ':INT32) (LDVT-REF18293 ':INT32) + (LWORK-REF18295 ':INT32) (INFO-REF18298 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18280 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18281 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18283 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18284 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18285 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18286 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18287 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF18288 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18291 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18293 :INT32) LDVT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18295 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18298 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18282 A) (S-REF18289 S) + (U-REF18290 U) (VT-REF18292 VT) + (WORK-REF18294 WORK) + (RWORK-REF18296 RWORK) + (IWORK-REF18297 IWORK)) + (%%ZGESVDX JOBU JOBVT RANGE M-REF18280 N-REF18281 A-REF18282 LDA-REF18283 + VL-REF18284 VU-REF18285 IL-REF18286 IU-REF18287 NS-REF18288 S-REF18289 + U-REF18290 LDU-REF18291 VT-REF18292 LDVT-REF18293 WORK-REF18294 + LWORK-REF18295 RWORK-REF18296 IWORK-REF18297 INFO-REF18298)))) + +(CFFI:DEFCFUN ("zgesvj_" %%ZGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBA :STRING) (JOBU :STRING) @@ -4417,27 +4422,27 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18287 ':INT32) (N-REF18288 ':INT32) - (LDA-REF18290 ':INT32) (MV-REF18292 ':INT32) - (LDV-REF18294 ':INT32) (LWORK-REF18296 ':INT32) - (LRWORK-REF18298 ':INT32) (INFO-REF18299 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18287 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18288 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18290 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18292 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18294 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18296 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18298 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18299 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18289 A) (SVA-REF18291 SVA) - (V-REF18293 V) - (CWORK-REF18295 CWORK) - (RWORK-REF18297 RWORK)) - (%%ZGESVJ JOBA JOBU JOBV M-REF18287 N-REF18288 A-REF18289 LDA-REF18290 - SVA-REF18291 MV-REF18292 V-REF18293 LDV-REF18294 CWORK-REF18295 - LWORK-REF18296 RWORK-REF18297 LRWORK-REF18298 INFO-REF18299)))) - -(CFFI:DEFCFUN ("zgesvx_" %%ZGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18302 ':INT32) (N-REF18303 ':INT32) + (LDA-REF18305 ':INT32) (MV-REF18307 ':INT32) + (LDV-REF18309 ':INT32) (LWORK-REF18311 ':INT32) + (LRWORK-REF18313 ':INT32) (INFO-REF18314 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18302 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18303 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18305 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18307 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18309 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18311 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18313 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18314 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18304 A) (SVA-REF18306 SVA) + (V-REF18308 V) + (CWORK-REF18310 CWORK) + (RWORK-REF18312 RWORK)) + (%%ZGESVJ JOBA JOBU JOBV M-REF18302 N-REF18303 A-REF18304 LDA-REF18305 + SVA-REF18306 MV-REF18307 V-REF18308 LDV-REF18309 CWORK-REF18310 + LWORK-REF18311 RWORK-REF18312 LRWORK-REF18313 INFO-REF18314)))) + +(CFFI:DEFCFUN ("zgesvx_" %%ZGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -4519,32 +4524,33 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18302 ':INT32) (NRHS-REF18303 ':INT32) - (LDA-REF18305 ':INT32) (LDAF-REF18307 ':INT32) - (LDB-REF18313 ':INT32) (LDX-REF18315 ':INT32) - (RCOND-REF18316 ':DOUBLE) (INFO-REF18321 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18302 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18303 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18305 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18307 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18313 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18315 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18316 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18321 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18304 A) (AF-REF18306 AF) - (IPIV-REF18308 IPIV) (R-REF18310 R) - (C-REF18311 C) (B-REF18312 B) - (X-REF18314 X) (FERR-REF18317 FERR) - (BERR-REF18318 BERR) - (WORK-REF18319 WORK) - (RWORK-REF18320 RWORK)) - (%%ZGESVX FACT TRANS N-REF18302 NRHS-REF18303 A-REF18304 LDA-REF18305 - AF-REF18306 LDAF-REF18307 IPIV-REF18308 EQUED R-REF18310 - C-REF18311 B-REF18312 LDB-REF18313 X-REF18314 LDX-REF18315 - RCOND-REF18316 FERR-REF18317 BERR-REF18318 WORK-REF18319 - RWORK-REF18320 INFO-REF18321)))) - -(CFFI:DEFCFUN ("zgesvxx_" %%ZGESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18317 ':INT32) (NRHS-REF18318 ':INT32) + (LDA-REF18320 ':INT32) (LDAF-REF18322 ':INT32) + (LDB-REF18328 ':INT32) (LDX-REF18330 ':INT32) + (RCOND-REF18331 ':DOUBLE) (INFO-REF18336 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18317 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18318 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18320 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18322 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18328 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18330 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18331 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18336 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18319 A) (AF-REF18321 AF) + (IPIV-REF18323 IPIV) (R-REF18325 R) + (C-REF18326 C) (B-REF18327 B) + (X-REF18329 X) (FERR-REF18332 FERR) + (BERR-REF18333 BERR) + (WORK-REF18334 WORK) + (RWORK-REF18335 RWORK)) + (%%ZGESVX FACT TRANS N-REF18317 NRHS-REF18318 A-REF18319 LDA-REF18320 + AF-REF18321 LDAF-REF18322 IPIV-REF18323 EQUED R-REF18325 C-REF18326 + B-REF18327 LDB-REF18328 X-REF18329 LDX-REF18330 RCOND-REF18331 + FERR-REF18332 BERR-REF18333 WORK-REF18334 RWORK-REF18335 + INFO-REF18336)))) + +(CFFI:DEFCFUN ("zgesvxx_" %%ZGESVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -4642,45 +4648,44 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18324 ':INT32) (NRHS-REF18325 ':INT32) - (LDA-REF18327 ':INT32) (LDAF-REF18329 ':INT32) - (LDB-REF18335 ':INT32) (LDX-REF18337 ':INT32) - (RCOND-REF18338 ':DOUBLE) - (RPVGRW-REF18339 ':DOUBLE) - (N_ERR_BNDS-REF18341 ':INT32) - (NPARAMS-REF18344 ':INT32) - (INFO-REF18348 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18324 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18325 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18327 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18329 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18335 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18337 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18338 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF18339 :DOUBLE) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18341 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18344 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18348 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18326 A) (AF-REF18328 AF) - (IPIV-REF18330 IPIV) (R-REF18332 R) - (C-REF18333 C) (B-REF18334 B) - (X-REF18336 X) (BERR-REF18340 BERR) - (ERR_BNDS_NORM-REF18342 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18339 ':INT32) (NRHS-REF18340 ':INT32) + (LDA-REF18342 ':INT32) (LDAF-REF18344 ':INT32) + (LDB-REF18350 ':INT32) (LDX-REF18352 ':INT32) + (RCOND-REF18353 ':DOUBLE) + (RPVGRW-REF18354 ':DOUBLE) + (N_ERR_BNDS-REF18356 ':INT32) + (NPARAMS-REF18359 ':INT32) + (INFO-REF18363 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18339 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18340 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18342 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF18344 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18350 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18352 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18353 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF18354 :DOUBLE) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF18356 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF18359 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18363 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18341 A) (AF-REF18343 AF) + (IPIV-REF18345 IPIV) (R-REF18347 R) + (C-REF18348 C) (B-REF18349 B) + (X-REF18351 X) (BERR-REF18355 BERR) + (ERR_BNDS_NORM-REF18357 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF18343 + (ERR_BNDS_COMP-REF18358 ERR_BNDS_COMP) - (PARAMS-REF18345 PARAMS) - (WORK-REF18346 WORK) - (RWORK-REF18347 RWORK)) - (%%ZGESVXX FACT TRANS N-REF18324 NRHS-REF18325 A-REF18326 LDA-REF18327 - AF-REF18328 LDAF-REF18329 IPIV-REF18330 EQUED R-REF18332 - C-REF18333 B-REF18334 LDB-REF18335 X-REF18336 LDX-REF18337 - RCOND-REF18338 RPVGRW-REF18339 BERR-REF18340 - N_ERR_BNDS-REF18341 ERR_BNDS_NORM-REF18342 - ERR_BNDS_COMP-REF18343 NPARAMS-REF18344 PARAMS-REF18345 - WORK-REF18346 RWORK-REF18347 INFO-REF18348)))) - -(CFFI:DEFCFUN ("zgetc2_" %%ZGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF18360 PARAMS) + (WORK-REF18361 WORK) + (RWORK-REF18362 RWORK)) + (%%ZGESVXX FACT TRANS N-REF18339 NRHS-REF18340 A-REF18341 LDA-REF18342 + AF-REF18343 LDAF-REF18344 IPIV-REF18345 EQUED R-REF18347 C-REF18348 + B-REF18349 LDB-REF18350 X-REF18351 LDX-REF18352 RCOND-REF18353 + RPVGRW-REF18354 BERR-REF18355 N_ERR_BNDS-REF18356 ERR_BNDS_NORM-REF18357 + ERR_BNDS_COMP-REF18358 NPARAMS-REF18359 PARAMS-REF18360 WORK-REF18361 + RWORK-REF18362 INFO-REF18363)))) + +(CFFI:DEFCFUN ("zgetc2_" %%ZGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4707,17 +4712,17 @@ (COMMON-LISP:*)) JPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18349 ':INT32) (LDA-REF18351 ':INT32) - (INFO-REF18354 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18349 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18351 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18354 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18350 A) (IPIV-REF18352 IPIV) - (JPIV-REF18353 JPIV)) - (%%ZGETC2 N-REF18349 A-REF18350 LDA-REF18351 IPIV-REF18352 JPIV-REF18353 - INFO-REF18354)))) - -(CFFI:DEFCFUN ("zgetf2_" %%ZGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18364 ':INT32) (LDA-REF18366 ':INT32) + (INFO-REF18369 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18364 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18366 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18369 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18365 A) (IPIV-REF18367 IPIV) + (JPIV-REF18368 JPIV)) + (%%ZGETC2 N-REF18364 A-REF18365 LDA-REF18366 IPIV-REF18367 JPIV-REF18368 + INFO-REF18369)))) + +(CFFI:DEFCFUN ("zgetf2_" %%ZGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4741,17 +4746,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18355 ':INT32) (N-REF18356 ':INT32) - (LDA-REF18358 ':INT32) (INFO-REF18360 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18355 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18356 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18358 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18360 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18357 A) (IPIV-REF18359 IPIV)) - (%%ZGETF2 M-REF18355 N-REF18356 A-REF18357 LDA-REF18358 IPIV-REF18359 - INFO-REF18360)))) - -(CFFI:DEFCFUN ("zgetrf_" %%ZGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18370 ':INT32) (N-REF18371 ':INT32) + (LDA-REF18373 ':INT32) (INFO-REF18375 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18370 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18371 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18373 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18375 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18372 A) (IPIV-REF18374 IPIV)) + (%%ZGETF2 M-REF18370 N-REF18371 A-REF18372 LDA-REF18373 IPIV-REF18374 + INFO-REF18375)))) + +(CFFI:DEFCFUN ("zgetrf_" %%ZGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4775,17 +4780,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18361 ':INT32) (N-REF18362 ':INT32) - (LDA-REF18364 ':INT32) (INFO-REF18366 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18361 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18362 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18364 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18366 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18363 A) (IPIV-REF18365 IPIV)) - (%%ZGETRF M-REF18361 N-REF18362 A-REF18363 LDA-REF18364 IPIV-REF18365 - INFO-REF18366)))) - -(CFFI:DEFCFUN ("zgetrf2_" %%ZGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18376 ':INT32) (N-REF18377 ':INT32) + (LDA-REF18379 ':INT32) (INFO-REF18381 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18376 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18377 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18379 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18381 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18378 A) (IPIV-REF18380 IPIV)) + (%%ZGETRF M-REF18376 N-REF18377 A-REF18378 LDA-REF18379 IPIV-REF18380 + INFO-REF18381)))) + +(CFFI:DEFCFUN ("zgetrf2_" %%ZGETRF2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -4809,17 +4815,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18367 ':INT32) (N-REF18368 ':INT32) - (LDA-REF18370 ':INT32) (INFO-REF18372 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18367 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18368 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18370 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18372 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18369 A) (IPIV-REF18371 IPIV)) - (%%ZGETRF2 M-REF18367 N-REF18368 A-REF18369 LDA-REF18370 IPIV-REF18371 - INFO-REF18372)))) - -(CFFI:DEFCFUN ("zgetri_" %%ZGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18382 ':INT32) (N-REF18383 ':INT32) + (LDA-REF18385 ':INT32) (INFO-REF18387 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18382 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18383 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18385 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18387 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18384 A) (IPIV-REF18386 IPIV)) + (%%ZGETRF2 M-REF18382 N-REF18383 A-REF18384 LDA-REF18385 IPIV-REF18386 + INFO-REF18387)))) + +(CFFI:DEFCFUN ("zgetri_" %%ZGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4849,18 +4855,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18373 ':INT32) (LDA-REF18375 ':INT32) - (LWORK-REF18378 ':INT32) (INFO-REF18379 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18373 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18375 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18378 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18379 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18374 A) (IPIV-REF18376 IPIV) - (WORK-REF18377 WORK)) - (%%ZGETRI N-REF18373 A-REF18374 LDA-REF18375 IPIV-REF18376 WORK-REF18377 - LWORK-REF18378 INFO-REF18379)))) - -(CFFI:DEFCFUN ("zgetrs_" %%ZGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18388 ':INT32) (LDA-REF18390 ':INT32) + (LWORK-REF18393 ':INT32) (INFO-REF18394 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18388 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18390 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18393 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18394 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18389 A) (IPIV-REF18391 IPIV) + (WORK-REF18392 WORK)) + (%%ZGETRI N-REF18388 A-REF18389 LDA-REF18390 IPIV-REF18391 WORK-REF18392 + LWORK-REF18393 INFO-REF18394)))) + +(CFFI:DEFCFUN ("zgetrs_" %%ZGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -4894,20 +4900,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18381 ':INT32) (NRHS-REF18382 ':INT32) - (LDA-REF18384 ':INT32) (LDB-REF18387 ':INT32) - (INFO-REF18388 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18381 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18382 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18384 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18387 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18388 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18383 A) (IPIV-REF18385 IPIV) - (B-REF18386 B)) - (%%ZGETRS TRANS N-REF18381 NRHS-REF18382 A-REF18383 LDA-REF18384 - IPIV-REF18385 B-REF18386 LDB-REF18387 INFO-REF18388)))) - -(CFFI:DEFCFUN ("zgetsls_" %%ZGETSLS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18396 ':INT32) (NRHS-REF18397 ':INT32) + (LDA-REF18399 ':INT32) (LDB-REF18402 ':INT32) + (INFO-REF18403 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18396 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18397 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18399 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18402 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18403 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18398 A) (IPIV-REF18400 IPIV) + (B-REF18401 B)) + (%%ZGETRS TRANS N-REF18396 NRHS-REF18397 A-REF18398 LDA-REF18399 + IPIV-REF18400 B-REF18401 LDB-REF18402 INFO-REF18403)))) + +(CFFI:DEFCFUN ("zgetsls_" %%ZGETSLS :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (M :POINTER) @@ -4946,24 +4953,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18390 ':INT32) (N-REF18391 ':INT32) - (NRHS-REF18392 ':INT32) (LDA-REF18394 ':INT32) - (LDB-REF18396 ':INT32) (LWORK-REF18398 ':INT32) - (INFO-REF18399 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18390 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18391 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18392 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18394 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18396 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18398 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18399 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18393 A) (B-REF18395 B) - (WORK-REF18397 WORK)) - (%%ZGETSLS TRANS M-REF18390 N-REF18391 NRHS-REF18392 A-REF18393 - LDA-REF18394 B-REF18395 LDB-REF18396 WORK-REF18397 - LWORK-REF18398 INFO-REF18399)))) - -(CFFI:DEFCFUN ("zggbak_" %%ZGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18405 ':INT32) (N-REF18406 ':INT32) + (NRHS-REF18407 ':INT32) (LDA-REF18409 ':INT32) + (LDB-REF18411 ':INT32) (LWORK-REF18413 ':INT32) + (INFO-REF18414 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18405 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18406 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18407 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18409 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18411 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18413 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18414 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18408 A) (B-REF18410 B) + (WORK-REF18412 WORK)) + (%%ZGETSLS TRANS M-REF18405 N-REF18406 NRHS-REF18407 A-REF18408 + LDA-REF18409 B-REF18410 LDB-REF18411 WORK-REF18412 LWORK-REF18413 + INFO-REF18414)))) + +(CFFI:DEFCFUN ("zggbak_" %%ZGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (SIDE :STRING) @@ -4998,23 +5005,22 @@ V) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18402 ':INT32) (ILO-REF18403 ':INT32) - (IHI-REF18404 ':INT32) (M-REF18407 ':INT32) - (LDV-REF18409 ':INT32) (INFO-REF18410 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18402 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18403 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18404 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18407 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18409 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18410 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF18405 LSCALE) - (RSCALE-REF18406 RSCALE) - (V-REF18408 V)) - (%%ZGGBAK JOB SIDE N-REF18402 ILO-REF18403 IHI-REF18404 LSCALE-REF18405 - RSCALE-REF18406 M-REF18407 V-REF18408 LDV-REF18409 - INFO-REF18410)))) - -(CFFI:DEFCFUN ("zggbal_" %%ZGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18417 ':INT32) (ILO-REF18418 ':INT32) + (IHI-REF18419 ':INT32) (M-REF18422 ':INT32) + (LDV-REF18424 ':INT32) (INFO-REF18425 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18417 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18418 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18419 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18422 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18424 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18425 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF18420 LSCALE) + (RSCALE-REF18421 RSCALE) + (V-REF18423 V)) + (%%ZGGBAK JOB SIDE N-REF18417 ILO-REF18418 IHI-REF18419 LSCALE-REF18420 + RSCALE-REF18421 M-REF18422 V-REF18423 LDV-REF18424 INFO-REF18425)))) + +(CFFI:DEFCFUN ("zggbal_" %%ZGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (N :POINTER) @@ -5057,24 +5063,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18412 ':INT32) (LDA-REF18414 ':INT32) - (LDB-REF18416 ':INT32) (ILO-REF18417 ':INT32) - (IHI-REF18418 ':INT32) (INFO-REF18422 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18412 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18414 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18416 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18417 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18418 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18422 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18413 A) (B-REF18415 B) - (LSCALE-REF18419 LSCALE) - (RSCALE-REF18420 RSCALE) - (WORK-REF18421 WORK)) - (%%ZGGBAL JOB N-REF18412 A-REF18413 LDA-REF18414 B-REF18415 LDB-REF18416 - ILO-REF18417 IHI-REF18418 LSCALE-REF18419 RSCALE-REF18420 - WORK-REF18421 INFO-REF18422)))) - -(CFFI:DEFCFUN ("zgges_" %%ZGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18427 ':INT32) (LDA-REF18429 ':INT32) + (LDB-REF18431 ':INT32) (ILO-REF18432 ':INT32) + (IHI-REF18433 ':INT32) (INFO-REF18437 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18427 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18429 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18431 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18432 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18433 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18437 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18428 A) (B-REF18430 B) + (LSCALE-REF18434 LSCALE) + (RSCALE-REF18435 RSCALE) + (WORK-REF18436 WORK)) + (%%ZGGBAL JOB N-REF18427 A-REF18428 LDA-REF18429 B-REF18430 LDB-REF18431 + ILO-REF18432 IHI-REF18433 LSCALE-REF18434 RSCALE-REF18435 WORK-REF18436 + INFO-REF18437)))) + +(CFFI:DEFCFUN ("zgges_" %%ZGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -5156,35 +5162,35 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18426 ':INT32) (N-REF18427 ':INT32) - (LDA-REF18429 ':INT32) (LDB-REF18431 ':INT32) - (SDIM-REF18432 ':INT32) (LDVSL-REF18436 ':INT32) - (LDVSR-REF18438 ':INT32) (LWORK-REF18440 ':INT32) - (INFO-REF18443 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18426 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18427 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18429 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18431 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18432 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18436 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18438 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18440 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18443 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18428 A) (B-REF18430 B) - (ALPHA-REF18433 ALPHA) - (BETA-REF18434 BETA) - (VSL-REF18435 VSL) - (VSR-REF18437 VSR) - (WORK-REF18439 WORK) - (RWORK-REF18441 RWORK) - (BWORK-REF18442 BWORK)) - (%%ZGGES JOBVSL JOBVSR SORT SELCTG-REF18426 N-REF18427 A-REF18428 - LDA-REF18429 B-REF18430 LDB-REF18431 SDIM-REF18432 - ALPHA-REF18433 BETA-REF18434 VSL-REF18435 LDVSL-REF18436 - VSR-REF18437 LDVSR-REF18438 WORK-REF18439 LWORK-REF18440 - RWORK-REF18441 BWORK-REF18442 INFO-REF18443)))) - -(CFFI:DEFCFUN ("zgges3_" %%ZGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18441 ':INT32) (N-REF18442 ':INT32) + (LDA-REF18444 ':INT32) (LDB-REF18446 ':INT32) + (SDIM-REF18447 ':INT32) (LDVSL-REF18451 ':INT32) + (LDVSR-REF18453 ':INT32) (LWORK-REF18455 ':INT32) + (INFO-REF18458 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18441 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18442 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18444 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18446 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18447 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18451 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18453 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18455 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18458 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18443 A) (B-REF18445 B) + (ALPHA-REF18448 ALPHA) + (BETA-REF18449 BETA) + (VSL-REF18450 VSL) + (VSR-REF18452 VSR) + (WORK-REF18454 WORK) + (RWORK-REF18456 RWORK) + (BWORK-REF18457 BWORK)) + (%%ZGGES JOBVSL JOBVSR SORT SELCTG-REF18441 N-REF18442 A-REF18443 + LDA-REF18444 B-REF18445 LDB-REF18446 SDIM-REF18447 ALPHA-REF18448 + BETA-REF18449 VSL-REF18450 LDVSL-REF18451 VSR-REF18452 LDVSR-REF18453 + WORK-REF18454 LWORK-REF18455 RWORK-REF18456 BWORK-REF18457 + INFO-REF18458)))) + +(CFFI:DEFCFUN ("zgges3_" %%ZGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -5266,35 +5272,35 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18447 ':INT32) (N-REF18448 ':INT32) - (LDA-REF18450 ':INT32) (LDB-REF18452 ':INT32) - (SDIM-REF18453 ':INT32) (LDVSL-REF18457 ':INT32) - (LDVSR-REF18459 ':INT32) (LWORK-REF18461 ':INT32) - (INFO-REF18464 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18447 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18448 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18450 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18452 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18453 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18457 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18459 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18461 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18464 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18449 A) (B-REF18451 B) - (ALPHA-REF18454 ALPHA) - (BETA-REF18455 BETA) - (VSL-REF18456 VSL) - (VSR-REF18458 VSR) - (WORK-REF18460 WORK) - (RWORK-REF18462 RWORK) - (BWORK-REF18463 BWORK)) - (%%ZGGES3 JOBVSL JOBVSR SORT SELCTG-REF18447 N-REF18448 A-REF18449 - LDA-REF18450 B-REF18451 LDB-REF18452 SDIM-REF18453 - ALPHA-REF18454 BETA-REF18455 VSL-REF18456 LDVSL-REF18457 - VSR-REF18458 LDVSR-REF18459 WORK-REF18460 LWORK-REF18461 - RWORK-REF18462 BWORK-REF18463 INFO-REF18464)))) - -(CFFI:DEFCFUN ("zggesx_" %%ZGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18462 ':INT32) (N-REF18463 ':INT32) + (LDA-REF18465 ':INT32) (LDB-REF18467 ':INT32) + (SDIM-REF18468 ':INT32) (LDVSL-REF18472 ':INT32) + (LDVSR-REF18474 ':INT32) (LWORK-REF18476 ':INT32) + (INFO-REF18479 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18462 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18463 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18465 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18467 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18468 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18472 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18474 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18476 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18479 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18464 A) (B-REF18466 B) + (ALPHA-REF18469 ALPHA) + (BETA-REF18470 BETA) + (VSL-REF18471 VSL) + (VSR-REF18473 VSR) + (WORK-REF18475 WORK) + (RWORK-REF18477 RWORK) + (BWORK-REF18478 BWORK)) + (%%ZGGES3 JOBVSL JOBVSR SORT SELCTG-REF18462 N-REF18463 A-REF18464 + LDA-REF18465 B-REF18466 LDB-REF18467 SDIM-REF18468 ALPHA-REF18469 + BETA-REF18470 VSL-REF18471 LDVSL-REF18472 VSR-REF18473 LDVSR-REF18474 + WORK-REF18475 LWORK-REF18476 RWORK-REF18477 BWORK-REF18478 + INFO-REF18479)))) + +(CFFI:DEFCFUN ("zggesx_" %%ZGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVSL :STRING) (JOBVSR :STRING) @@ -5394,40 +5400,40 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18468 ':INT32) (N-REF18470 ':INT32) - (LDA-REF18472 ':INT32) (LDB-REF18474 ':INT32) - (SDIM-REF18475 ':INT32) (LDVSL-REF18479 ':INT32) - (LDVSR-REF18481 ':INT32) (LWORK-REF18485 ':INT32) - (LIWORK-REF18488 ':INT32) (INFO-REF18490 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18468 :INT32) SELCTG) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18470 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18472 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18474 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18475 :INT32) SDIM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18479 :INT32) LDVSL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18481 :INT32) LDVSR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18485 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18488 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18490 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18471 A) (B-REF18473 B) - (ALPHA-REF18476 ALPHA) - (BETA-REF18477 BETA) - (VSL-REF18478 VSL) - (VSR-REF18480 VSR) - (RCONDE-REF18482 RCONDE) - (RCONDV-REF18483 RCONDV) - (WORK-REF18484 WORK) - (RWORK-REF18486 RWORK) - (IWORK-REF18487 IWORK) - (BWORK-REF18489 BWORK)) - (%%ZGGESX JOBVSL JOBVSR SORT SELCTG-REF18468 SENSE N-REF18470 A-REF18471 - LDA-REF18472 B-REF18473 LDB-REF18474 SDIM-REF18475 - ALPHA-REF18476 BETA-REF18477 VSL-REF18478 LDVSL-REF18479 - VSR-REF18480 LDVSR-REF18481 RCONDE-REF18482 RCONDV-REF18483 - WORK-REF18484 LWORK-REF18485 RWORK-REF18486 IWORK-REF18487 - LIWORK-REF18488 BWORK-REF18489 INFO-REF18490)))) - -(CFFI:DEFCFUN ("zggev_" %%ZGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF18483 ':INT32) (N-REF18485 ':INT32) + (LDA-REF18487 ':INT32) (LDB-REF18489 ':INT32) + (SDIM-REF18490 ':INT32) (LDVSL-REF18494 ':INT32) + (LDVSR-REF18496 ':INT32) (LWORK-REF18500 ':INT32) + (LIWORK-REF18503 ':INT32) (INFO-REF18505 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF18483 :INT32) SELCTG) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18485 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18487 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18489 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF18490 :INT32) SDIM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF18494 :INT32) LDVSL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF18496 :INT32) LDVSR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18500 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18503 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18505 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18486 A) (B-REF18488 B) + (ALPHA-REF18491 ALPHA) + (BETA-REF18492 BETA) + (VSL-REF18493 VSL) + (VSR-REF18495 VSR) + (RCONDE-REF18497 RCONDE) + (RCONDV-REF18498 RCONDV) + (WORK-REF18499 WORK) + (RWORK-REF18501 RWORK) + (IWORK-REF18502 IWORK) + (BWORK-REF18504 BWORK)) + (%%ZGGESX JOBVSL JOBVSR SORT SELCTG-REF18483 SENSE N-REF18485 A-REF18486 + LDA-REF18487 B-REF18488 LDB-REF18489 SDIM-REF18490 ALPHA-REF18491 + BETA-REF18492 VSL-REF18493 LDVSL-REF18494 VSR-REF18495 LDVSR-REF18496 + RCONDE-REF18497 RCONDV-REF18498 WORK-REF18499 LWORK-REF18500 + RWORK-REF18501 IWORK-REF18502 LIWORK-REF18503 BWORK-REF18504 + INFO-REF18505)))) + +(CFFI:DEFCFUN ("zggev_" %%ZGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -5498,29 +5504,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18493 ':INT32) (LDA-REF18495 ':INT32) - (LDB-REF18497 ':INT32) (LDVL-REF18501 ':INT32) - (LDVR-REF18503 ':INT32) (LWORK-REF18505 ':INT32) - (INFO-REF18507 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18493 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18495 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18497 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18501 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18503 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18505 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18507 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18494 A) (B-REF18496 B) - (ALPHA-REF18498 ALPHA) - (BETA-REF18499 BETA) - (VL-REF18500 VL) (VR-REF18502 VR) - (WORK-REF18504 WORK) - (RWORK-REF18506 RWORK)) - (%%ZGGEV JOBVL JOBVR N-REF18493 A-REF18494 LDA-REF18495 B-REF18496 - LDB-REF18497 ALPHA-REF18498 BETA-REF18499 VL-REF18500 - LDVL-REF18501 VR-REF18502 LDVR-REF18503 WORK-REF18504 - LWORK-REF18505 RWORK-REF18506 INFO-REF18507)))) - -(CFFI:DEFCFUN ("zggev3_" %%ZGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18508 ':INT32) (LDA-REF18510 ':INT32) + (LDB-REF18512 ':INT32) (LDVL-REF18516 ':INT32) + (LDVR-REF18518 ':INT32) (LWORK-REF18520 ':INT32) + (INFO-REF18522 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18508 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18510 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18512 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18516 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18518 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18520 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18522 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18509 A) (B-REF18511 B) + (ALPHA-REF18513 ALPHA) + (BETA-REF18514 BETA) + (VL-REF18515 VL) (VR-REF18517 VR) + (WORK-REF18519 WORK) + (RWORK-REF18521 RWORK)) + (%%ZGGEV JOBVL JOBVR N-REF18508 A-REF18509 LDA-REF18510 B-REF18511 + LDB-REF18512 ALPHA-REF18513 BETA-REF18514 VL-REF18515 LDVL-REF18516 + VR-REF18517 LDVR-REF18518 WORK-REF18519 LWORK-REF18520 RWORK-REF18521 + INFO-REF18522)))) + +(CFFI:DEFCFUN ("zggev3_" %%ZGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBVL :STRING) (JOBVR :STRING) @@ -5591,29 +5597,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18510 ':INT32) (LDA-REF18512 ':INT32) - (LDB-REF18514 ':INT32) (LDVL-REF18518 ':INT32) - (LDVR-REF18520 ':INT32) (LWORK-REF18522 ':INT32) - (INFO-REF18524 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18510 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18512 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18514 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18518 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18520 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18522 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18524 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18511 A) (B-REF18513 B) - (ALPHA-REF18515 ALPHA) - (BETA-REF18516 BETA) - (VL-REF18517 VL) (VR-REF18519 VR) - (WORK-REF18521 WORK) - (RWORK-REF18523 RWORK)) - (%%ZGGEV3 JOBVL JOBVR N-REF18510 A-REF18511 LDA-REF18512 B-REF18513 - LDB-REF18514 ALPHA-REF18515 BETA-REF18516 VL-REF18517 - LDVL-REF18518 VR-REF18519 LDVR-REF18520 WORK-REF18521 - LWORK-REF18522 RWORK-REF18523 INFO-REF18524)))) - -(CFFI:DEFCFUN ("zggevx_" %%ZGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18525 ':INT32) (LDA-REF18527 ':INT32) + (LDB-REF18529 ':INT32) (LDVL-REF18533 ':INT32) + (LDVR-REF18535 ':INT32) (LWORK-REF18537 ':INT32) + (INFO-REF18539 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18525 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18527 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18529 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18533 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18535 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18537 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18539 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18526 A) (B-REF18528 B) + (ALPHA-REF18530 ALPHA) + (BETA-REF18531 BETA) + (VL-REF18532 VL) (VR-REF18534 VR) + (WORK-REF18536 WORK) + (RWORK-REF18538 RWORK)) + (%%ZGGEV3 JOBVL JOBVR N-REF18525 A-REF18526 LDA-REF18527 B-REF18528 + LDB-REF18529 ALPHA-REF18530 BETA-REF18531 VL-REF18532 LDVL-REF18533 + VR-REF18534 LDVR-REF18535 WORK-REF18536 LWORK-REF18537 RWORK-REF18538 + INFO-REF18539)))) + +(CFFI:DEFCFUN ("zggevx_" %%ZGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (BALANC :STRING) (JOBVL :STRING) @@ -5723,44 +5729,43 @@ (COMMON-LISP:*)) BWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18529 ':INT32) (LDA-REF18531 ':INT32) - (LDB-REF18533 ':INT32) (LDVL-REF18537 ':INT32) - (LDVR-REF18539 ':INT32) (ILO-REF18540 ':INT32) - (IHI-REF18541 ':INT32) (ABNRM-REF18544 ':DOUBLE) - (BBNRM-REF18545 ':DOUBLE) - (LWORK-REF18549 ':INT32) (INFO-REF18553 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18529 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18531 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18533 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18537 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18539 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18540 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18541 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF18544 :DOUBLE) ABNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF18545 :DOUBLE) BBNRM) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18549 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18553 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18530 A) (B-REF18532 B) - (ALPHA-REF18534 ALPHA) - (BETA-REF18535 BETA) - (VL-REF18536 VL) (VR-REF18538 VR) - (LSCALE-REF18542 LSCALE) - (RSCALE-REF18543 RSCALE) - (RCONDE-REF18546 RCONDE) - (RCONDV-REF18547 RCONDV) - (WORK-REF18548 WORK) - (RWORK-REF18550 RWORK) - (IWORK-REF18551 IWORK) - (BWORK-REF18552 BWORK)) - (%%ZGGEVX BALANC JOBVL JOBVR SENSE N-REF18529 A-REF18530 LDA-REF18531 - B-REF18532 LDB-REF18533 ALPHA-REF18534 BETA-REF18535 - VL-REF18536 LDVL-REF18537 VR-REF18538 LDVR-REF18539 - ILO-REF18540 IHI-REF18541 LSCALE-REF18542 RSCALE-REF18543 - ABNRM-REF18544 BBNRM-REF18545 RCONDE-REF18546 RCONDV-REF18547 - WORK-REF18548 LWORK-REF18549 RWORK-REF18550 IWORK-REF18551 - BWORK-REF18552 INFO-REF18553)))) - -(CFFI:DEFCFUN ("zggglm_" %%ZGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18544 ':INT32) (LDA-REF18546 ':INT32) + (LDB-REF18548 ':INT32) (LDVL-REF18552 ':INT32) + (LDVR-REF18554 ':INT32) (ILO-REF18555 ':INT32) + (IHI-REF18556 ':INT32) (ABNRM-REF18559 ':DOUBLE) + (BBNRM-REF18560 ':DOUBLE) + (LWORK-REF18564 ':INT32) (INFO-REF18568 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18544 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18546 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18548 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF18552 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF18554 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18555 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18556 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF18559 :DOUBLE) ABNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF18560 :DOUBLE) BBNRM) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18564 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18568 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18545 A) (B-REF18547 B) + (ALPHA-REF18549 ALPHA) + (BETA-REF18550 BETA) + (VL-REF18551 VL) (VR-REF18553 VR) + (LSCALE-REF18557 LSCALE) + (RSCALE-REF18558 RSCALE) + (RCONDE-REF18561 RCONDE) + (RCONDV-REF18562 RCONDV) + (WORK-REF18563 WORK) + (RWORK-REF18565 RWORK) + (IWORK-REF18566 IWORK) + (BWORK-REF18567 BWORK)) + (%%ZGGEVX BALANC JOBVL JOBVR SENSE N-REF18544 A-REF18545 LDA-REF18546 + B-REF18547 LDB-REF18548 ALPHA-REF18549 BETA-REF18550 VL-REF18551 + LDVL-REF18552 VR-REF18553 LDVR-REF18554 ILO-REF18555 IHI-REF18556 + LSCALE-REF18557 RSCALE-REF18558 ABNRM-REF18559 BBNRM-REF18560 + RCONDE-REF18561 RCONDV-REF18562 WORK-REF18563 LWORK-REF18564 + RWORK-REF18565 IWORK-REF18566 BWORK-REF18567 INFO-REF18568)))) + +(CFFI:DEFCFUN ("zggglm_" %%ZGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (M :POINTER) @@ -5815,25 +5820,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18554 ':INT32) (M-REF18555 ':INT32) - (P-REF18556 ':INT32) (LDA-REF18558 ':INT32) - (LDB-REF18560 ':INT32) (LWORK-REF18565 ':INT32) - (INFO-REF18566 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18554 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18555 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18556 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18558 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18560 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18565 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18566 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18557 A) (B-REF18559 B) - (D-REF18561 D) (X-REF18562 X) - (Y-REF18563 Y) (WORK-REF18564 WORK)) - (%%ZGGGLM N-REF18554 M-REF18555 P-REF18556 A-REF18557 LDA-REF18558 - B-REF18559 LDB-REF18560 D-REF18561 X-REF18562 Y-REF18563 - WORK-REF18564 LWORK-REF18565 INFO-REF18566)))) - -(CFFI:DEFCFUN ("zgghd3_" %%ZGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18569 ':INT32) (M-REF18570 ':INT32) + (P-REF18571 ':INT32) (LDA-REF18573 ':INT32) + (LDB-REF18575 ':INT32) (LWORK-REF18580 ':INT32) + (INFO-REF18581 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18569 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18570 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18571 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18573 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18575 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18580 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18581 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18572 A) (B-REF18574 B) + (D-REF18576 D) (X-REF18577 X) + (Y-REF18578 Y) (WORK-REF18579 WORK)) + (%%ZGGGLM N-REF18569 M-REF18570 P-REF18571 A-REF18572 LDA-REF18573 + B-REF18574 LDB-REF18575 D-REF18576 X-REF18577 Y-REF18578 WORK-REF18579 + LWORK-REF18580 INFO-REF18581)))) + +(CFFI:DEFCFUN ("zgghd3_" %%ZGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (COMPZ :STRING) @@ -5892,29 +5897,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18569 ':INT32) (ILO-REF18570 ':INT32) - (IHI-REF18571 ':INT32) (LDA-REF18573 ':INT32) - (LDB-REF18575 ':INT32) (LDQ-REF18577 ':INT32) - (LDZ-REF18579 ':INT32) (LWORK-REF18581 ':INT32) - (INFO-REF18582 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18569 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18570 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18571 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18573 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18575 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18577 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18579 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18581 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18582 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18572 A) (B-REF18574 B) - (Q-REF18576 Q) (Z-REF18578 Z) - (WORK-REF18580 WORK)) - (%%ZGGHD3 COMPQ COMPZ N-REF18569 ILO-REF18570 IHI-REF18571 A-REF18572 - LDA-REF18573 B-REF18574 LDB-REF18575 Q-REF18576 LDQ-REF18577 - Z-REF18578 LDZ-REF18579 WORK-REF18580 LWORK-REF18581 - INFO-REF18582)))) - -(CFFI:DEFCFUN ("zgghrd_" %%ZGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18584 ':INT32) (ILO-REF18585 ':INT32) + (IHI-REF18586 ':INT32) (LDA-REF18588 ':INT32) + (LDB-REF18590 ':INT32) (LDQ-REF18592 ':INT32) + (LDZ-REF18594 ':INT32) (LWORK-REF18596 ':INT32) + (INFO-REF18597 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18584 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18585 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18586 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18588 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18590 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18592 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18594 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18596 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18597 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18587 A) (B-REF18589 B) + (Q-REF18591 Q) (Z-REF18593 Z) + (WORK-REF18595 WORK)) + (%%ZGGHD3 COMPQ COMPZ N-REF18584 ILO-REF18585 IHI-REF18586 A-REF18587 + LDA-REF18588 B-REF18589 LDB-REF18590 Q-REF18591 LDQ-REF18592 Z-REF18593 + LDZ-REF18594 WORK-REF18595 LWORK-REF18596 INFO-REF18597)))) + +(CFFI:DEFCFUN ("zgghrd_" %%ZGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (COMPZ :STRING) @@ -5963,25 +5967,25 @@ Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18585 ':INT32) (ILO-REF18586 ':INT32) - (IHI-REF18587 ':INT32) (LDA-REF18589 ':INT32) - (LDB-REF18591 ':INT32) (LDQ-REF18593 ':INT32) - (LDZ-REF18595 ':INT32) (INFO-REF18596 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18585 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18586 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18587 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18589 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18591 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18593 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18595 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18596 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18588 A) (B-REF18590 B) - (Q-REF18592 Q) (Z-REF18594 Z)) - (%%ZGGHRD COMPQ COMPZ N-REF18585 ILO-REF18586 IHI-REF18587 A-REF18588 - LDA-REF18589 B-REF18590 LDB-REF18591 Q-REF18592 LDQ-REF18593 - Z-REF18594 LDZ-REF18595 INFO-REF18596)))) - -(CFFI:DEFCFUN ("zgglse_" %%ZGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18600 ':INT32) (ILO-REF18601 ':INT32) + (IHI-REF18602 ':INT32) (LDA-REF18604 ':INT32) + (LDB-REF18606 ':INT32) (LDQ-REF18608 ':INT32) + (LDZ-REF18610 ':INT32) (INFO-REF18611 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18600 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF18601 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF18602 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18604 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18606 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18608 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18610 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18611 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18603 A) (B-REF18605 B) + (Q-REF18607 Q) (Z-REF18609 Z)) + (%%ZGGHRD COMPQ COMPZ N-REF18600 ILO-REF18601 IHI-REF18602 A-REF18603 + LDA-REF18604 B-REF18605 LDB-REF18606 Q-REF18607 LDQ-REF18608 Z-REF18609 + LDZ-REF18610 INFO-REF18611)))) + +(CFFI:DEFCFUN ("zgglse_" %%ZGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -6036,25 +6040,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18597 ':INT32) (N-REF18598 ':INT32) - (P-REF18599 ':INT32) (LDA-REF18601 ':INT32) - (LDB-REF18603 ':INT32) (LWORK-REF18608 ':INT32) - (INFO-REF18609 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18597 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18598 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18599 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18601 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18603 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18608 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18609 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18600 A) (B-REF18602 B) - (C-REF18604 C) (D-REF18605 D) - (X-REF18606 X) (WORK-REF18607 WORK)) - (%%ZGGLSE M-REF18597 N-REF18598 P-REF18599 A-REF18600 LDA-REF18601 - B-REF18602 LDB-REF18603 C-REF18604 D-REF18605 X-REF18606 - WORK-REF18607 LWORK-REF18608 INFO-REF18609)))) - -(CFFI:DEFCFUN ("zggqrf_" %%ZGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18612 ':INT32) (N-REF18613 ':INT32) + (P-REF18614 ':INT32) (LDA-REF18616 ':INT32) + (LDB-REF18618 ':INT32) (LWORK-REF18623 ':INT32) + (INFO-REF18624 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18612 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18613 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18614 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18616 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18618 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18623 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18624 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18615 A) (B-REF18617 B) + (C-REF18619 C) (D-REF18620 D) + (X-REF18621 X) (WORK-REF18622 WORK)) + (%%ZGGLSE M-REF18612 N-REF18613 P-REF18614 A-REF18615 LDA-REF18616 + B-REF18617 LDB-REF18618 C-REF18619 D-REF18620 X-REF18621 WORK-REF18622 + LWORK-REF18623 INFO-REF18624)))) + +(CFFI:DEFCFUN ("zggqrf_" %%ZGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (M :POINTER) @@ -6103,25 +6107,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18610 ':INT32) (M-REF18611 ':INT32) - (P-REF18612 ':INT32) (LDA-REF18614 ':INT32) - (LDB-REF18617 ':INT32) (LWORK-REF18620 ':INT32) - (INFO-REF18621 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18610 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18611 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18612 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18614 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18617 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18620 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18621 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18613 A) (TAUA-REF18615 TAUA) - (B-REF18616 B) (TAUB-REF18618 TAUB) - (WORK-REF18619 WORK)) - (%%ZGGQRF N-REF18610 M-REF18611 P-REF18612 A-REF18613 LDA-REF18614 - TAUA-REF18615 B-REF18616 LDB-REF18617 TAUB-REF18618 - WORK-REF18619 LWORK-REF18620 INFO-REF18621)))) - -(CFFI:DEFCFUN ("zggrqf_" %%ZGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18625 ':INT32) (M-REF18626 ':INT32) + (P-REF18627 ':INT32) (LDA-REF18629 ':INT32) + (LDB-REF18632 ':INT32) (LWORK-REF18635 ':INT32) + (INFO-REF18636 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18625 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18626 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18627 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18629 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18632 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18635 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18636 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18628 A) (TAUA-REF18630 TAUA) + (B-REF18631 B) (TAUB-REF18633 TAUB) + (WORK-REF18634 WORK)) + (%%ZGGQRF N-REF18625 M-REF18626 P-REF18627 A-REF18628 LDA-REF18629 + TAUA-REF18630 B-REF18631 LDB-REF18632 TAUB-REF18633 WORK-REF18634 + LWORK-REF18635 INFO-REF18636)))) + +(CFFI:DEFCFUN ("zggrqf_" %%ZGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -6170,25 +6174,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18622 ':INT32) (P-REF18623 ':INT32) - (N-REF18624 ':INT32) (LDA-REF18626 ':INT32) - (LDB-REF18629 ':INT32) (LWORK-REF18632 ':INT32) - (INFO-REF18633 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18622 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18623 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18624 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18626 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18629 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18632 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18633 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18625 A) (TAUA-REF18627 TAUA) - (B-REF18628 B) (TAUB-REF18630 TAUB) - (WORK-REF18631 WORK)) - (%%ZGGRQF M-REF18622 P-REF18623 N-REF18624 A-REF18625 LDA-REF18626 - TAUA-REF18627 B-REF18628 LDB-REF18629 TAUB-REF18630 - WORK-REF18631 LWORK-REF18632 INFO-REF18633)))) - -(CFFI:DEFCFUN ("zggsvd3_" %%ZGGSVD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18637 ':INT32) (P-REF18638 ':INT32) + (N-REF18639 ':INT32) (LDA-REF18641 ':INT32) + (LDB-REF18644 ':INT32) (LWORK-REF18647 ':INT32) + (INFO-REF18648 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18637 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18638 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18639 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18641 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18644 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18647 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18648 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18640 A) (TAUA-REF18642 TAUA) + (B-REF18643 B) (TAUB-REF18645 TAUB) + (WORK-REF18646 WORK)) + (%%ZGGRQF M-REF18637 P-REF18638 N-REF18639 A-REF18640 LDA-REF18641 + TAUA-REF18642 B-REF18643 LDB-REF18644 TAUB-REF18645 WORK-REF18646 + LWORK-REF18647 INFO-REF18648)))) + +(CFFI:DEFCFUN ("zggsvd3_" %%ZGGSVD3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -6278,38 +6283,39 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18637 ':INT32) (N-REF18638 ':INT32) - (P-REF18639 ':INT32) (K-REF18640 ':INT32) - (L-REF18641 ':INT32) (LDA-REF18643 ':INT32) - (LDB-REF18645 ':INT32) (LDU-REF18649 ':INT32) - (LDV-REF18651 ':INT32) (LDQ-REF18653 ':INT32) - (LWORK-REF18655 ':INT32) (INFO-REF18658 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18637 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18638 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18639 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18640 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18641 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18643 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18645 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18649 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18651 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18653 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18655 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18658 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18642 A) (B-REF18644 B) - (ALPHA-REF18646 ALPHA) - (BETA-REF18647 BETA) (U-REF18648 U) - (V-REF18650 V) (Q-REF18652 Q) - (WORK-REF18654 WORK) - (RWORK-REF18656 RWORK) - (IWORK-REF18657 IWORK)) - (%%ZGGSVD3 JOBU JOBV JOBQ M-REF18637 N-REF18638 P-REF18639 K-REF18640 - L-REF18641 A-REF18642 LDA-REF18643 B-REF18644 LDB-REF18645 - ALPHA-REF18646 BETA-REF18647 U-REF18648 LDU-REF18649 - V-REF18650 LDV-REF18651 Q-REF18652 LDQ-REF18653 WORK-REF18654 - LWORK-REF18655 RWORK-REF18656 IWORK-REF18657 INFO-REF18658)))) - -(CFFI:DEFCFUN ("zggsvp3_" %%ZGGSVP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18652 ':INT32) (N-REF18653 ':INT32) + (P-REF18654 ':INT32) (K-REF18655 ':INT32) + (L-REF18656 ':INT32) (LDA-REF18658 ':INT32) + (LDB-REF18660 ':INT32) (LDU-REF18664 ':INT32) + (LDV-REF18666 ':INT32) (LDQ-REF18668 ':INT32) + (LWORK-REF18670 ':INT32) (INFO-REF18673 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18652 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18653 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18654 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18655 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18656 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18658 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18660 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18664 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18666 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18668 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18670 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18673 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18657 A) (B-REF18659 B) + (ALPHA-REF18661 ALPHA) + (BETA-REF18662 BETA) (U-REF18663 U) + (V-REF18665 V) (Q-REF18667 Q) + (WORK-REF18669 WORK) + (RWORK-REF18671 RWORK) + (IWORK-REF18672 IWORK)) + (%%ZGGSVD3 JOBU JOBV JOBQ M-REF18652 N-REF18653 P-REF18654 K-REF18655 + L-REF18656 A-REF18657 LDA-REF18658 B-REF18659 LDB-REF18660 + ALPHA-REF18661 BETA-REF18662 U-REF18663 LDU-REF18664 V-REF18665 + LDV-REF18666 Q-REF18667 LDQ-REF18668 WORK-REF18669 LWORK-REF18670 + RWORK-REF18671 IWORK-REF18672 INFO-REF18673)))) + +(CFFI:DEFCFUN ("zggsvp3_" %%ZGGSVP3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -6401,42 +6407,41 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18662 ':INT32) (P-REF18663 ':INT32) - (N-REF18664 ':INT32) (LDA-REF18666 ':INT32) - (LDB-REF18668 ':INT32) (TOLA-REF18669 ':DOUBLE) - (TOLB-REF18670 ':DOUBLE) (K-REF18671 ':INT32) - (L-REF18672 ':INT32) (LDU-REF18674 ':INT32) - (LDV-REF18676 ':INT32) (LDQ-REF18678 ':INT32) - (LWORK-REF18683 ':INT32) (INFO-REF18684 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18662 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18663 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18664 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18666 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18668 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF18669 :DOUBLE) TOLA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF18670 :DOUBLE) TOLB) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18671 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18672 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18674 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18676 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18678 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18683 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18684 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18665 A) (B-REF18667 B) - (U-REF18673 U) (V-REF18675 V) - (Q-REF18677 Q) - (IWORK-REF18679 IWORK) - (RWORK-REF18680 RWORK) - (TAU-REF18681 TAU) - (WORK-REF18682 WORK)) - (%%ZGGSVP3 JOBU JOBV JOBQ M-REF18662 P-REF18663 N-REF18664 A-REF18665 - LDA-REF18666 B-REF18667 LDB-REF18668 TOLA-REF18669 - TOLB-REF18670 K-REF18671 L-REF18672 U-REF18673 LDU-REF18674 - V-REF18675 LDV-REF18676 Q-REF18677 LDQ-REF18678 IWORK-REF18679 - RWORK-REF18680 TAU-REF18681 WORK-REF18682 LWORK-REF18683 - INFO-REF18684)))) - -(CFFI:DEFCFUN ("zgsvj0_" %%ZGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18677 ':INT32) (P-REF18678 ':INT32) + (N-REF18679 ':INT32) (LDA-REF18681 ':INT32) + (LDB-REF18683 ':INT32) (TOLA-REF18684 ':DOUBLE) + (TOLB-REF18685 ':DOUBLE) (K-REF18686 ':INT32) + (L-REF18687 ':INT32) (LDU-REF18689 ':INT32) + (LDV-REF18691 ':INT32) (LDQ-REF18693 ':INT32) + (LWORK-REF18698 ':INT32) (INFO-REF18699 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18677 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF18678 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18679 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18681 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18683 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF18684 :DOUBLE) TOLA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF18685 :DOUBLE) TOLB) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF18686 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF18687 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF18689 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18691 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18693 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18698 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18699 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18680 A) (B-REF18682 B) + (U-REF18688 U) (V-REF18690 V) + (Q-REF18692 Q) + (IWORK-REF18694 IWORK) + (RWORK-REF18695 RWORK) + (TAU-REF18696 TAU) + (WORK-REF18697 WORK)) + (%%ZGGSVP3 JOBU JOBV JOBQ M-REF18677 P-REF18678 N-REF18679 A-REF18680 + LDA-REF18681 B-REF18682 LDB-REF18683 TOLA-REF18684 TOLB-REF18685 + K-REF18686 L-REF18687 U-REF18688 LDU-REF18689 V-REF18690 LDV-REF18691 + Q-REF18692 LDQ-REF18693 IWORK-REF18694 RWORK-REF18695 TAU-REF18696 + WORK-REF18697 LWORK-REF18698 INFO-REF18699)))) + +(CFFI:DEFCFUN ("zgsvj0_" %%ZGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBV :STRING) (M :POINTER) @@ -6495,32 +6500,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18686 ':INT32) (N-REF18687 ':INT32) - (LDA-REF18689 ':INT32) (MV-REF18692 ':INT32) - (LDV-REF18694 ':INT32) (EPS-REF18695 ':DOUBLE) - (SFMIN-REF18696 ':DOUBLE) (TOL-REF18697 ':DOUBLE) - (NSWEEP-REF18698 ':INT32) - (LWORK-REF18700 ':INT32) (INFO-REF18701 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18686 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18687 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18689 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18692 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18694 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF18695 :DOUBLE) EPS) - (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF18696 :DOUBLE) SFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18697 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF18698 :INT32) NSWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18700 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18701 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18688 A) (D-REF18690 D) - (SVA-REF18691 SVA) (V-REF18693 V) - (WORK-REF18699 WORK)) - (%%ZGSVJ0 JOBV M-REF18686 N-REF18687 A-REF18688 LDA-REF18689 D-REF18690 - SVA-REF18691 MV-REF18692 V-REF18693 LDV-REF18694 EPS-REF18695 - SFMIN-REF18696 TOL-REF18697 NSWEEP-REF18698 WORK-REF18699 - LWORK-REF18700 INFO-REF18701)))) - -(CFFI:DEFCFUN ("zgsvj1_" %%ZGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18701 ':INT32) (N-REF18702 ':INT32) + (LDA-REF18704 ':INT32) (MV-REF18707 ':INT32) + (LDV-REF18709 ':INT32) (EPS-REF18710 ':DOUBLE) + (SFMIN-REF18711 ':DOUBLE) (TOL-REF18712 ':DOUBLE) + (NSWEEP-REF18713 ':INT32) + (LWORK-REF18715 ':INT32) (INFO-REF18716 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18701 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18702 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18704 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18707 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18709 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF18710 :DOUBLE) EPS) + (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF18711 :DOUBLE) SFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18712 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF18713 :INT32) NSWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18715 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18716 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18703 A) (D-REF18705 D) + (SVA-REF18706 SVA) (V-REF18708 V) + (WORK-REF18714 WORK)) + (%%ZGSVJ0 JOBV M-REF18701 N-REF18702 A-REF18703 LDA-REF18704 D-REF18705 + SVA-REF18706 MV-REF18707 V-REF18708 LDV-REF18709 EPS-REF18710 + SFMIN-REF18711 TOL-REF18712 NSWEEP-REF18713 WORK-REF18714 LWORK-REF18715 + INFO-REF18716)))) + +(CFFI:DEFCFUN ("zgsvj1_" %%ZGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBV :STRING) (M :POINTER) @@ -6581,33 +6586,33 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18703 ':INT32) (N-REF18704 ':INT32) - (N1-REF18705 ':INT32) (LDA-REF18707 ':INT32) - (MV-REF18710 ':INT32) (LDV-REF18712 ':INT32) - (EPS-REF18713 ':DOUBLE) (SFMIN-REF18714 ':DOUBLE) - (TOL-REF18715 ':DOUBLE) (NSWEEP-REF18716 ':INT32) - (LWORK-REF18718 ':INT32) (INFO-REF18719 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18703 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18704 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF18705 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18707 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18710 :INT32) MV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18712 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF18713 :DOUBLE) EPS) - (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF18714 :DOUBLE) SFMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18715 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF18716 :INT32) NSWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18718 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18719 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18706 A) (D-REF18708 D) - (SVA-REF18709 SVA) (V-REF18711 V) - (WORK-REF18717 WORK)) - (%%ZGSVJ1 JOBV M-REF18703 N-REF18704 N1-REF18705 A-REF18706 LDA-REF18707 - D-REF18708 SVA-REF18709 MV-REF18710 V-REF18711 LDV-REF18712 - EPS-REF18713 SFMIN-REF18714 TOL-REF18715 NSWEEP-REF18716 - WORK-REF18717 LWORK-REF18718 INFO-REF18719)))) - -(CFFI:DEFCFUN ("zgtcon_" %%ZGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF18718 ':INT32) (N-REF18719 ':INT32) + (N1-REF18720 ':INT32) (LDA-REF18722 ':INT32) + (MV-REF18725 ':INT32) (LDV-REF18727 ':INT32) + (EPS-REF18728 ':DOUBLE) (SFMIN-REF18729 ':DOUBLE) + (TOL-REF18730 ':DOUBLE) (NSWEEP-REF18731 ':INT32) + (LWORK-REF18733 ':INT32) (INFO-REF18734 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18718 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18719 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF18720 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18722 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF18725 :INT32) MV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF18727 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF18728 :DOUBLE) EPS) + (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF18729 :DOUBLE) SFMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF18730 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF18731 :INT32) NSWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18733 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18734 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18721 A) (D-REF18723 D) + (SVA-REF18724 SVA) (V-REF18726 V) + (WORK-REF18732 WORK)) + (%%ZGSVJ1 JOBV M-REF18718 N-REF18719 N1-REF18720 A-REF18721 LDA-REF18722 + D-REF18723 SVA-REF18724 MV-REF18725 V-REF18726 LDV-REF18727 EPS-REF18728 + SFMIN-REF18729 TOL-REF18730 NSWEEP-REF18731 WORK-REF18732 LWORK-REF18733 + INFO-REF18734)))) + +(CFFI:DEFCFUN ("zgtcon_" %%ZGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (N :POINTER) @@ -6657,21 +6662,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18721 ':INT32) (ANORM-REF18727 ':DOUBLE) - (RCOND-REF18728 ':DOUBLE) (INFO-REF18730 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18721 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF18727 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18728 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18730 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18722 DL) (D-REF18723 D) - (DU-REF18724 DU) (DU2-REF18725 DU2) - (IPIV-REF18726 IPIV) - (WORK-REF18729 WORK)) - (%%ZGTCON NORM N-REF18721 DL-REF18722 D-REF18723 DU-REF18724 DU2-REF18725 - IPIV-REF18726 ANORM-REF18727 RCOND-REF18728 WORK-REF18729 - INFO-REF18730)))) - -(CFFI:DEFCFUN ("zgtrfs_" %%ZGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18736 ':INT32) (ANORM-REF18742 ':DOUBLE) + (RCOND-REF18743 ':DOUBLE) (INFO-REF18745 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18736 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF18742 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18743 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18745 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18737 DL) (D-REF18738 D) + (DU-REF18739 DU) (DU2-REF18740 DU2) + (IPIV-REF18741 IPIV) + (WORK-REF18744 WORK)) + (%%ZGTCON NORM N-REF18736 DL-REF18737 D-REF18738 DU-REF18739 DU2-REF18740 + IPIV-REF18741 ANORM-REF18742 RCOND-REF18743 WORK-REF18744 + INFO-REF18745)))) + +(CFFI:DEFCFUN ("zgtrfs_" %%ZGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -6767,30 +6772,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18732 ':INT32) (NRHS-REF18733 ':INT32) - (LDB-REF18743 ':INT32) (LDX-REF18745 ':INT32) - (INFO-REF18750 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18732 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18733 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18743 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18745 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18750 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18734 DL) (D-REF18735 D) - (DU-REF18736 DU) (DLF-REF18737 DLF) - (DF-REF18738 DF) (DUF-REF18739 DUF) - (DU2-REF18740 DU2) - (IPIV-REF18741 IPIV) (B-REF18742 B) - (X-REF18744 X) (FERR-REF18746 FERR) - (BERR-REF18747 BERR) - (WORK-REF18748 WORK) - (RWORK-REF18749 RWORK)) - (%%ZGTRFS TRANS N-REF18732 NRHS-REF18733 DL-REF18734 D-REF18735 - DU-REF18736 DLF-REF18737 DF-REF18738 DUF-REF18739 DU2-REF18740 - IPIV-REF18741 B-REF18742 LDB-REF18743 X-REF18744 LDX-REF18745 - FERR-REF18746 BERR-REF18747 WORK-REF18748 RWORK-REF18749 - INFO-REF18750)))) - -(CFFI:DEFCFUN ("zgtsv_" %%ZGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18747 ':INT32) (NRHS-REF18748 ':INT32) + (LDB-REF18758 ':INT32) (LDX-REF18760 ':INT32) + (INFO-REF18765 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18747 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18748 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18758 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18760 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18765 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18749 DL) (D-REF18750 D) + (DU-REF18751 DU) (DLF-REF18752 DLF) + (DF-REF18753 DF) (DUF-REF18754 DUF) + (DU2-REF18755 DU2) + (IPIV-REF18756 IPIV) (B-REF18757 B) + (X-REF18759 X) (FERR-REF18761 FERR) + (BERR-REF18762 BERR) + (WORK-REF18763 WORK) + (RWORK-REF18764 RWORK)) + (%%ZGTRFS TRANS N-REF18747 NRHS-REF18748 DL-REF18749 D-REF18750 + DU-REF18751 DLF-REF18752 DF-REF18753 DUF-REF18754 DU2-REF18755 + IPIV-REF18756 B-REF18757 LDB-REF18758 X-REF18759 LDX-REF18760 + FERR-REF18761 BERR-REF18762 WORK-REF18763 RWORK-REF18764 + INFO-REF18765)))) + +(CFFI:DEFCFUN ("zgtsv_" %%ZGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -6827,18 +6832,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18751 ':INT32) (NRHS-REF18752 ':INT32) - (LDB-REF18757 ':INT32) (INFO-REF18758 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18751 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18752 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18757 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18758 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18753 DL) (D-REF18754 D) - (DU-REF18755 DU) (B-REF18756 B)) - (%%ZGTSV N-REF18751 NRHS-REF18752 DL-REF18753 D-REF18754 DU-REF18755 - B-REF18756 LDB-REF18757 INFO-REF18758)))) - -(CFFI:DEFCFUN ("zgtsvx_" %%ZGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18766 ':INT32) (NRHS-REF18767 ':INT32) + (LDB-REF18772 ':INT32) (INFO-REF18773 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18766 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18767 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18772 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18773 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18768 DL) (D-REF18769 D) + (DU-REF18770 DU) (B-REF18771 B)) + (%%ZGTSV N-REF18766 NRHS-REF18767 DL-REF18768 D-REF18769 DU-REF18770 + B-REF18771 LDB-REF18772 INFO-REF18773)))) + +(CFFI:DEFCFUN ("zgtsvx_" %%ZGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (TRANS :STRING) @@ -6938,31 +6943,31 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18761 ':INT32) (NRHS-REF18762 ':INT32) - (LDB-REF18772 ':INT32) (LDX-REF18774 ':INT32) - (RCOND-REF18775 ':DOUBLE) (INFO-REF18780 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18761 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18762 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18772 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18774 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18775 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18780 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18763 DL) (D-REF18764 D) - (DU-REF18765 DU) (DLF-REF18766 DLF) - (DF-REF18767 DF) (DUF-REF18768 DUF) - (DU2-REF18769 DU2) - (IPIV-REF18770 IPIV) (B-REF18771 B) - (X-REF18773 X) (FERR-REF18776 FERR) - (BERR-REF18777 BERR) - (WORK-REF18778 WORK) - (RWORK-REF18779 RWORK)) - (%%ZGTSVX FACT TRANS N-REF18761 NRHS-REF18762 DL-REF18763 D-REF18764 - DU-REF18765 DLF-REF18766 DF-REF18767 DUF-REF18768 DU2-REF18769 - IPIV-REF18770 B-REF18771 LDB-REF18772 X-REF18773 LDX-REF18774 - RCOND-REF18775 FERR-REF18776 BERR-REF18777 WORK-REF18778 - RWORK-REF18779 INFO-REF18780)))) - -(CFFI:DEFCFUN ("zgttrf_" %%ZGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18776 ':INT32) (NRHS-REF18777 ':INT32) + (LDB-REF18787 ':INT32) (LDX-REF18789 ':INT32) + (RCOND-REF18790 ':DOUBLE) (INFO-REF18795 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18776 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18777 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18787 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18789 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF18790 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18795 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18778 DL) (D-REF18779 D) + (DU-REF18780 DU) (DLF-REF18781 DLF) + (DF-REF18782 DF) (DUF-REF18783 DUF) + (DU2-REF18784 DU2) + (IPIV-REF18785 IPIV) (B-REF18786 B) + (X-REF18788 X) (FERR-REF18791 FERR) + (BERR-REF18792 BERR) + (WORK-REF18793 WORK) + (RWORK-REF18794 RWORK)) + (%%ZGTSVX FACT TRANS N-REF18776 NRHS-REF18777 DL-REF18778 D-REF18779 + DU-REF18780 DLF-REF18781 DF-REF18782 DUF-REF18783 DU2-REF18784 + IPIV-REF18785 B-REF18786 LDB-REF18787 X-REF18788 LDX-REF18789 + RCOND-REF18790 FERR-REF18791 BERR-REF18792 WORK-REF18793 RWORK-REF18794 + INFO-REF18795)))) + +(CFFI:DEFCFUN ("zgttrf_" %%ZGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (DL :POINTER) @@ -7000,16 +7005,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18781 ':INT32) (INFO-REF18787 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18781 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18787 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18782 DL) (D-REF18783 D) - (DU-REF18784 DU) (DU2-REF18785 DU2) - (IPIV-REF18786 IPIV)) - (%%ZGTTRF N-REF18781 DL-REF18782 D-REF18783 DU-REF18784 DU2-REF18785 - IPIV-REF18786 INFO-REF18787)))) - -(CFFI:DEFCFUN ("zgttrs_" %%ZGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18796 ':INT32) (INFO-REF18802 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18796 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18802 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18797 DL) (D-REF18798 D) + (DU-REF18799 DU) (DU2-REF18800 DU2) + (IPIV-REF18801 IPIV)) + (%%ZGTTRF N-REF18796 DL-REF18797 D-REF18798 DU-REF18799 DU2-REF18800 + IPIV-REF18801 INFO-REF18802)))) + +(CFFI:DEFCFUN ("zgttrs_" %%ZGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -7059,20 +7064,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18789 ':INT32) (NRHS-REF18790 ':INT32) - (LDB-REF18797 ':INT32) (INFO-REF18798 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18789 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18790 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18797 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18798 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18791 DL) (D-REF18792 D) - (DU-REF18793 DU) (DU2-REF18794 DU2) - (IPIV-REF18795 IPIV) (B-REF18796 B)) - (%%ZGTTRS TRANS N-REF18789 NRHS-REF18790 DL-REF18791 D-REF18792 - DU-REF18793 DU2-REF18794 IPIV-REF18795 B-REF18796 LDB-REF18797 - INFO-REF18798)))) - -(CFFI:DEFCFUN ("zgtts2_" %%ZGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18804 ':INT32) (NRHS-REF18805 ':INT32) + (LDB-REF18812 ':INT32) (INFO-REF18813 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18804 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18805 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18812 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18813 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18806 DL) (D-REF18807 D) + (DU-REF18808 DU) (DU2-REF18809 DU2) + (IPIV-REF18810 IPIV) (B-REF18811 B)) + (%%ZGTTRS TRANS N-REF18804 NRHS-REF18805 DL-REF18806 D-REF18807 + DU-REF18808 DU2-REF18809 IPIV-REF18810 B-REF18811 LDB-REF18812 + INFO-REF18813)))) + +(CFFI:DEFCFUN ("zgtts2_" %%ZGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITRANS :POINTER) (N :POINTER) @@ -7120,21 +7125,20 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF18799 ':INT32) (N-REF18800 ':INT32) - (NRHS-REF18801 ':INT32) (LDB-REF18808 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF18799 :INT32) ITRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18800 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18801 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18808 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18802 DL) (D-REF18803 D) - (DU-REF18804 DU) (DU2-REF18805 DU2) - (IPIV-REF18806 IPIV) (B-REF18807 B)) - (%%ZGTTS2 ITRANS-REF18799 N-REF18800 NRHS-REF18801 DL-REF18802 D-REF18803 - DU-REF18804 DU2-REF18805 IPIV-REF18806 B-REF18807 - LDB-REF18808)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF18814 ':INT32) (N-REF18815 ':INT32) + (NRHS-REF18816 ':INT32) (LDB-REF18823 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF18814 :INT32) ITRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18815 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF18816 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF18823 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF18817 DL) (D-REF18818 D) + (DU-REF18819 DU) (DU2-REF18820 DU2) + (IPIV-REF18821 IPIV) (B-REF18822 B)) + (%%ZGTTS2 ITRANS-REF18814 N-REF18815 NRHS-REF18816 DL-REF18817 D-REF18818 + DU-REF18819 DU2-REF18820 IPIV-REF18821 B-REF18822 LDB-REF18823)))) (CFFI:DEFCFUN ("zhb2st_kernels_" %%ZHB2ST_KERNELS :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WANTZ :POINTER) @@ -7186,30 +7190,29 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF18810 ':INT32) (TTYPE-REF18811 ':INT32) - (ST-REF18812 ':INT32) (ED-REF18813 ':INT32) - (SWEEP-REF18814 ':INT32) (N-REF18815 ':INT32) - (NB-REF18816 ':INT32) (IB-REF18817 ':INT32) - (LDA-REF18819 ':INT32) (LDVT-REF18822 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF18810 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF18811 :INT32) TTYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF18812 :INT32) ST) - (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF18813 :INT32) ED) - (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF18814 :INT32) SWEEP) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18815 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18816 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF18817 :INT32) IB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18819 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18822 :INT32) LDVT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18818 A) (V-REF18820 V) - (TAU-REF18821 TAU) - (WORK-REF18823 WORK)) - (%%ZHB2ST_KERNELS UPLO WANTZ-REF18810 TTYPE-REF18811 ST-REF18812 - ED-REF18813 SWEEP-REF18814 N-REF18815 NB-REF18816 - IB-REF18817 A-REF18818 LDA-REF18819 V-REF18820 - TAU-REF18821 LDVT-REF18822 WORK-REF18823)))) - -(CFFI:DEFCFUN ("zhbev_" %%ZHBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTZ-REF18825 ':INT32) (TTYPE-REF18826 ':INT32) + (ST-REF18827 ':INT32) (ED-REF18828 ':INT32) + (SWEEP-REF18829 ':INT32) (N-REF18830 ':INT32) + (NB-REF18831 ':INT32) (IB-REF18832 ':INT32) + (LDA-REF18834 ':INT32) (LDVT-REF18837 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF18825 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF18826 :INT32) TTYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF ST-REF18827 :INT32) ST) + (COMMON-LISP:SETF (CFFI:MEM-REF ED-REF18828 :INT32) ED) + (COMMON-LISP:SETF (CFFI:MEM-REF SWEEP-REF18829 :INT32) SWEEP) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18830 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF18831 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF IB-REF18832 :INT32) IB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF18834 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF18837 :INT32) LDVT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF18833 A) (V-REF18835 V) + (TAU-REF18836 TAU) + (WORK-REF18838 WORK)) + (%%ZHB2ST_KERNELS UPLO WANTZ-REF18825 TTYPE-REF18826 ST-REF18827 + ED-REF18828 SWEEP-REF18829 N-REF18830 NB-REF18831 IB-REF18832 A-REF18833 + LDA-REF18834 V-REF18835 TAU-REF18836 LDVT-REF18837 WORK-REF18838)))) + +(CFFI:DEFCFUN ("zhbev_" %%ZHBEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7253,23 +7256,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18826 ':INT32) (KD-REF18827 ':INT32) - (LDAB-REF18829 ':INT32) (LDZ-REF18832 ':INT32) - (INFO-REF18835 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18826 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18827 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18829 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18832 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18835 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18828 AB) (W-REF18830 W) - (Z-REF18831 Z) (WORK-REF18833 WORK) - (RWORK-REF18834 RWORK)) - (%%ZHBEV JOBZ UPLO N-REF18826 KD-REF18827 AB-REF18828 LDAB-REF18829 - W-REF18830 Z-REF18831 LDZ-REF18832 WORK-REF18833 RWORK-REF18834 - INFO-REF18835)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18841 ':INT32) (KD-REF18842 ':INT32) + (LDAB-REF18844 ':INT32) (LDZ-REF18847 ':INT32) + (INFO-REF18850 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18841 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18842 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18844 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18847 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18850 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18843 AB) (W-REF18845 W) + (Z-REF18846 Z) (WORK-REF18848 WORK) + (RWORK-REF18849 RWORK)) + (%%ZHBEV JOBZ UPLO N-REF18841 KD-REF18842 AB-REF18843 LDAB-REF18844 + W-REF18845 Z-REF18846 LDZ-REF18847 WORK-REF18848 RWORK-REF18849 + INFO-REF18850)))) (CFFI:DEFCFUN ("zhbev_2stage_" %%ZHBEV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7316,24 +7319,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18838 ':INT32) (KD-REF18839 ':INT32) - (LDAB-REF18841 ':INT32) (LDZ-REF18844 ':INT32) - (LWORK-REF18846 ':INT32) (INFO-REF18848 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18838 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18839 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18841 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18844 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18846 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18848 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18840 AB) (W-REF18842 W) - (Z-REF18843 Z) (WORK-REF18845 WORK) - (RWORK-REF18847 RWORK)) - (%%ZHBEV_2STAGE JOBZ UPLO N-REF18838 KD-REF18839 AB-REF18840 - LDAB-REF18841 W-REF18842 Z-REF18843 LDZ-REF18844 - WORK-REF18845 LWORK-REF18846 RWORK-REF18847 - INFO-REF18848)))) - -(CFFI:DEFCFUN ("zhbevd_" %%ZHBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18853 ':INT32) (KD-REF18854 ':INT32) + (LDAB-REF18856 ':INT32) (LDZ-REF18859 ':INT32) + (LWORK-REF18861 ':INT32) (INFO-REF18863 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18853 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18854 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18856 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18859 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18861 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18863 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18855 AB) (W-REF18857 W) + (Z-REF18858 Z) (WORK-REF18860 WORK) + (RWORK-REF18862 RWORK)) + (%%ZHBEV_2STAGE JOBZ UPLO N-REF18853 KD-REF18854 AB-REF18855 + LDAB-REF18856 W-REF18857 Z-REF18858 LDZ-REF18859 WORK-REF18860 + LWORK-REF18861 RWORK-REF18862 INFO-REF18863)))) + +(CFFI:DEFCFUN ("zhbevd_" %%ZHBEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7390,30 +7392,30 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18851 ':INT32) (KD-REF18852 ':INT32) - (LDAB-REF18854 ':INT32) (LDZ-REF18857 ':INT32) - (LWORK-REF18859 ':INT32) - (LRWORK-REF18861 ':INT32) - (LIWORK-REF18863 ':INT32) (INFO-REF18864 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18851 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18852 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18854 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18857 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18859 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18861 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18863 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18864 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18853 AB) (W-REF18855 W) - (Z-REF18856 Z) (WORK-REF18858 WORK) - (RWORK-REF18860 RWORK) - (IWORK-REF18862 IWORK)) - (%%ZHBEVD JOBZ UPLO N-REF18851 KD-REF18852 AB-REF18853 LDAB-REF18854 - W-REF18855 Z-REF18856 LDZ-REF18857 WORK-REF18858 LWORK-REF18859 - RWORK-REF18860 LRWORK-REF18861 IWORK-REF18862 LIWORK-REF18863 - INFO-REF18864)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18866 ':INT32) (KD-REF18867 ':INT32) + (LDAB-REF18869 ':INT32) (LDZ-REF18872 ':INT32) + (LWORK-REF18874 ':INT32) + (LRWORK-REF18876 ':INT32) + (LIWORK-REF18878 ':INT32) (INFO-REF18879 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18866 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18867 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18869 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18872 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18874 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18876 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18878 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18879 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18868 AB) (W-REF18870 W) + (Z-REF18871 Z) (WORK-REF18873 WORK) + (RWORK-REF18875 RWORK) + (IWORK-REF18877 IWORK)) + (%%ZHBEVD JOBZ UPLO N-REF18866 KD-REF18867 AB-REF18868 LDAB-REF18869 + W-REF18870 Z-REF18871 LDZ-REF18872 WORK-REF18873 LWORK-REF18874 + RWORK-REF18875 LRWORK-REF18876 IWORK-REF18877 LIWORK-REF18878 + INFO-REF18879)))) (CFFI:DEFCFUN ("zhbevd_2stage_" %%ZHBEVD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7470,30 +7472,29 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18867 ':INT32) (KD-REF18868 ':INT32) - (LDAB-REF18870 ':INT32) (LDZ-REF18873 ':INT32) - (LWORK-REF18875 ':INT32) - (LRWORK-REF18877 ':INT32) - (LIWORK-REF18879 ':INT32) (INFO-REF18880 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18867 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18868 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18870 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18873 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18875 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18877 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18879 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18880 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18869 AB) (W-REF18871 W) - (Z-REF18872 Z) (WORK-REF18874 WORK) - (RWORK-REF18876 RWORK) - (IWORK-REF18878 IWORK)) - (%%ZHBEVD_2STAGE JOBZ UPLO N-REF18867 KD-REF18868 AB-REF18869 - LDAB-REF18870 W-REF18871 Z-REF18872 LDZ-REF18873 - WORK-REF18874 LWORK-REF18875 RWORK-REF18876 - LRWORK-REF18877 IWORK-REF18878 LIWORK-REF18879 - INFO-REF18880)))) - -(CFFI:DEFCFUN ("zhbevx_" %%ZHBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18882 ':INT32) (KD-REF18883 ':INT32) + (LDAB-REF18885 ':INT32) (LDZ-REF18888 ':INT32) + (LWORK-REF18890 ':INT32) + (LRWORK-REF18892 ':INT32) + (LIWORK-REF18894 ':INT32) (INFO-REF18895 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18882 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18883 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18885 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18888 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18890 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18892 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18894 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18895 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18884 AB) (W-REF18886 W) + (Z-REF18887 Z) (WORK-REF18889 WORK) + (RWORK-REF18891 RWORK) + (IWORK-REF18893 IWORK)) + (%%ZHBEVD_2STAGE JOBZ UPLO N-REF18882 KD-REF18883 AB-REF18884 + LDAB-REF18885 W-REF18886 Z-REF18887 LDZ-REF18888 WORK-REF18889 + LWORK-REF18890 RWORK-REF18891 LRWORK-REF18892 IWORK-REF18893 + LIWORK-REF18894 INFO-REF18895)))) + +(CFFI:DEFCFUN ("zhbevx_" %%ZHBEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7571,38 +7572,38 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18884 ':INT32) (KD-REF18885 ':INT32) - (LDAB-REF18887 ':INT32) (LDQ-REF18889 ':INT32) - (VL-REF18890 ':DOUBLE) (VU-REF18891 ':DOUBLE) - (IL-REF18892 ':INT32) (IU-REF18893 ':INT32) - (ABSTOL-REF18894 ':DOUBLE) (M-REF18895 ':INT32) - (LDZ-REF18898 ':INT32) (INFO-REF18903 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18884 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18885 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18887 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18889 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18890 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18891 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18892 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18893 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18894 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18895 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18898 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18903 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18886 AB) (Q-REF18888 Q) - (W-REF18896 W) (Z-REF18897 Z) - (WORK-REF18899 WORK) - (RWORK-REF18900 RWORK) - (IWORK-REF18901 IWORK) - (IFAIL-REF18902 IFAIL)) - (%%ZHBEVX JOBZ RANGE UPLO N-REF18884 KD-REF18885 AB-REF18886 - LDAB-REF18887 Q-REF18888 LDQ-REF18889 VL-REF18890 VU-REF18891 - IL-REF18892 IU-REF18893 ABSTOL-REF18894 M-REF18895 W-REF18896 - Z-REF18897 LDZ-REF18898 WORK-REF18899 RWORK-REF18900 - IWORK-REF18901 IFAIL-REF18902 INFO-REF18903)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18899 ':INT32) (KD-REF18900 ':INT32) + (LDAB-REF18902 ':INT32) (LDQ-REF18904 ':INT32) + (VL-REF18905 ':DOUBLE) (VU-REF18906 ':DOUBLE) + (IL-REF18907 ':INT32) (IU-REF18908 ':INT32) + (ABSTOL-REF18909 ':DOUBLE) (M-REF18910 ':INT32) + (LDZ-REF18913 ':INT32) (INFO-REF18918 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18899 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18900 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18902 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18904 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18905 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18906 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18907 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18908 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18909 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18910 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18913 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18918 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18901 AB) (Q-REF18903 Q) + (W-REF18911 W) (Z-REF18912 Z) + (WORK-REF18914 WORK) + (RWORK-REF18915 RWORK) + (IWORK-REF18916 IWORK) + (IFAIL-REF18917 IFAIL)) + (%%ZHBEVX JOBZ RANGE UPLO N-REF18899 KD-REF18900 AB-REF18901 + LDAB-REF18902 Q-REF18903 LDQ-REF18904 VL-REF18905 VU-REF18906 + IL-REF18907 IU-REF18908 ABSTOL-REF18909 M-REF18910 W-REF18911 Z-REF18912 + LDZ-REF18913 WORK-REF18914 RWORK-REF18915 IWORK-REF18916 IFAIL-REF18917 + INFO-REF18918)))) (CFFI:DEFCFUN ("zhbevx_2stage_" %%ZHBEVX_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -7682,40 +7683,39 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18907 ':INT32) (KD-REF18908 ':INT32) - (LDAB-REF18910 ':INT32) (LDQ-REF18912 ':INT32) - (VL-REF18913 ':DOUBLE) (VU-REF18914 ':DOUBLE) - (IL-REF18915 ':INT32) (IU-REF18916 ':INT32) - (ABSTOL-REF18917 ':DOUBLE) (M-REF18918 ':INT32) - (LDZ-REF18921 ':INT32) (LWORK-REF18923 ':INT32) - (INFO-REF18927 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18907 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18908 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18910 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18912 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18913 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18914 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18915 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18916 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18917 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18918 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18921 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18923 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18927 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18909 AB) (Q-REF18911 Q) - (W-REF18919 W) (Z-REF18920 Z) - (WORK-REF18922 WORK) - (RWORK-REF18924 RWORK) - (IWORK-REF18925 IWORK) - (IFAIL-REF18926 IFAIL)) - (%%ZHBEVX_2STAGE JOBZ RANGE UPLO N-REF18907 KD-REF18908 AB-REF18909 - LDAB-REF18910 Q-REF18911 LDQ-REF18912 VL-REF18913 - VU-REF18914 IL-REF18915 IU-REF18916 ABSTOL-REF18917 - M-REF18918 W-REF18919 Z-REF18920 LDZ-REF18921 - WORK-REF18922 LWORK-REF18923 RWORK-REF18924 - IWORK-REF18925 IFAIL-REF18926 INFO-REF18927)))) - -(CFFI:DEFCFUN ("zhbgst_" %%ZHBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18922 ':INT32) (KD-REF18923 ':INT32) + (LDAB-REF18925 ':INT32) (LDQ-REF18927 ':INT32) + (VL-REF18928 ':DOUBLE) (VU-REF18929 ':DOUBLE) + (IL-REF18930 ':INT32) (IU-REF18931 ':INT32) + (ABSTOL-REF18932 ':DOUBLE) (M-REF18933 ':INT32) + (LDZ-REF18936 ':INT32) (LWORK-REF18938 ':INT32) + (INFO-REF18942 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18922 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF18923 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18925 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18927 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18928 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18929 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18930 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18931 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18932 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18933 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18936 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18938 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18942 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18924 AB) (Q-REF18926 Q) + (W-REF18934 W) (Z-REF18935 Z) + (WORK-REF18937 WORK) + (RWORK-REF18939 RWORK) + (IWORK-REF18940 IWORK) + (IFAIL-REF18941 IFAIL)) + (%%ZHBEVX_2STAGE JOBZ RANGE UPLO N-REF18922 KD-REF18923 AB-REF18924 + LDAB-REF18925 Q-REF18926 LDQ-REF18927 VL-REF18928 VU-REF18929 + IL-REF18930 IU-REF18931 ABSTOL-REF18932 M-REF18933 W-REF18934 Z-REF18935 + LDZ-REF18936 WORK-REF18937 LWORK-REF18938 RWORK-REF18939 IWORK-REF18940 + IFAIL-REF18941 INFO-REF18942)))) + +(CFFI:DEFCFUN ("zhbgst_" %%ZHBGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -7767,25 +7767,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18930 ':INT32) (KA-REF18931 ':INT32) - (KB-REF18932 ':INT32) (LDAB-REF18934 ':INT32) - (LDBB-REF18936 ':INT32) (LDX-REF18938 ':INT32) - (INFO-REF18941 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18930 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18931 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18932 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18934 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18936 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18938 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18941 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18933 AB) (BB-REF18935 BB) - (X-REF18937 X) (WORK-REF18939 WORK) - (RWORK-REF18940 RWORK)) - (%%ZHBGST VECT UPLO N-REF18930 KA-REF18931 KB-REF18932 AB-REF18933 - LDAB-REF18934 BB-REF18935 LDBB-REF18936 X-REF18937 LDX-REF18938 - WORK-REF18939 RWORK-REF18940 INFO-REF18941)))) - -(CFFI:DEFCFUN ("zhbgv_" %%ZHBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18945 ':INT32) (KA-REF18946 ':INT32) + (KB-REF18947 ':INT32) (LDAB-REF18949 ':INT32) + (LDBB-REF18951 ':INT32) (LDX-REF18953 ':INT32) + (INFO-REF18956 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18945 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18946 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18947 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18949 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18951 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF18953 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18956 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18948 AB) (BB-REF18950 BB) + (X-REF18952 X) (WORK-REF18954 WORK) + (RWORK-REF18955 RWORK)) + (%%ZHBGST VECT UPLO N-REF18945 KA-REF18946 KB-REF18947 AB-REF18948 + LDAB-REF18949 BB-REF18950 LDBB-REF18951 X-REF18952 LDX-REF18953 + WORK-REF18954 RWORK-REF18955 INFO-REF18956)))) + +(CFFI:DEFCFUN ("zhbgv_" %%ZHBGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7840,26 +7840,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18944 ':INT32) (KA-REF18945 ':INT32) - (KB-REF18946 ':INT32) (LDAB-REF18948 ':INT32) - (LDBB-REF18950 ':INT32) (LDZ-REF18953 ':INT32) - (INFO-REF18956 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18944 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18945 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18946 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18948 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18950 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18953 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18956 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18947 AB) (BB-REF18949 BB) - (W-REF18951 W) (Z-REF18952 Z) - (WORK-REF18954 WORK) - (RWORK-REF18955 RWORK)) - (%%ZHBGV JOBZ UPLO N-REF18944 KA-REF18945 KB-REF18946 AB-REF18947 - LDAB-REF18948 BB-REF18949 LDBB-REF18950 W-REF18951 Z-REF18952 - LDZ-REF18953 WORK-REF18954 RWORK-REF18955 INFO-REF18956)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18959 ':INT32) (KA-REF18960 ':INT32) + (KB-REF18961 ':INT32) (LDAB-REF18963 ':INT32) + (LDBB-REF18965 ':INT32) (LDZ-REF18968 ':INT32) + (INFO-REF18971 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18959 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18960 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18961 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18963 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18965 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18968 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18971 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18962 AB) (BB-REF18964 BB) + (W-REF18966 W) (Z-REF18967 Z) + (WORK-REF18969 WORK) + (RWORK-REF18970 RWORK)) + (%%ZHBGV JOBZ UPLO N-REF18959 KA-REF18960 KB-REF18961 AB-REF18962 + LDAB-REF18963 BB-REF18964 LDBB-REF18965 W-REF18966 Z-REF18967 + LDZ-REF18968 WORK-REF18969 RWORK-REF18970 INFO-REF18971)))) -(CFFI:DEFCFUN ("zhbgvd_" %%ZHBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zhbgvd_" %%ZHBGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -7926,33 +7926,33 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18959 ':INT32) (KA-REF18960 ':INT32) - (KB-REF18961 ':INT32) (LDAB-REF18963 ':INT32) - (LDBB-REF18965 ':INT32) (LDZ-REF18968 ':INT32) - (LWORK-REF18970 ':INT32) - (LRWORK-REF18972 ':INT32) - (LIWORK-REF18974 ':INT32) (INFO-REF18975 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18959 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18960 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18961 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18963 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18965 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18968 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18970 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18972 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18974 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18975 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18962 AB) (BB-REF18964 BB) - (W-REF18966 W) (Z-REF18967 Z) - (WORK-REF18969 WORK) - (RWORK-REF18971 RWORK) - (IWORK-REF18973 IWORK)) - (%%ZHBGVD JOBZ UPLO N-REF18959 KA-REF18960 KB-REF18961 AB-REF18962 - LDAB-REF18963 BB-REF18964 LDBB-REF18965 W-REF18966 Z-REF18967 - LDZ-REF18968 WORK-REF18969 LWORK-REF18970 RWORK-REF18971 - LRWORK-REF18972 IWORK-REF18973 LIWORK-REF18974 INFO-REF18975)))) - -(CFFI:DEFCFUN ("zhbgvx_" %%ZHBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18974 ':INT32) (KA-REF18975 ':INT32) + (KB-REF18976 ':INT32) (LDAB-REF18978 ':INT32) + (LDBB-REF18980 ':INT32) (LDZ-REF18983 ':INT32) + (LWORK-REF18985 ':INT32) + (LRWORK-REF18987 ':INT32) + (LIWORK-REF18989 ':INT32) (INFO-REF18990 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18974 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18975 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18976 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18978 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18980 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18983 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF18985 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF18987 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF18989 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF18990 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18977 AB) (BB-REF18979 BB) + (W-REF18981 W) (Z-REF18982 Z) + (WORK-REF18984 WORK) + (RWORK-REF18986 RWORK) + (IWORK-REF18988 IWORK)) + (%%ZHBGVD JOBZ UPLO N-REF18974 KA-REF18975 KB-REF18976 AB-REF18977 + LDAB-REF18978 BB-REF18979 LDBB-REF18980 W-REF18981 Z-REF18982 + LDZ-REF18983 WORK-REF18984 LWORK-REF18985 RWORK-REF18986 LRWORK-REF18987 + IWORK-REF18988 LIWORK-REF18989 INFO-REF18990)))) + +(CFFI:DEFCFUN ("zhbgvx_" %%ZHBGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8040,40 +8040,40 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18979 ':INT32) (KA-REF18980 ':INT32) - (KB-REF18981 ':INT32) (LDAB-REF18983 ':INT32) - (LDBB-REF18985 ':INT32) (LDQ-REF18987 ':INT32) - (VL-REF18988 ':DOUBLE) (VU-REF18989 ':DOUBLE) - (IL-REF18990 ':INT32) (IU-REF18991 ':INT32) - (ABSTOL-REF18992 ':DOUBLE) (M-REF18993 ':INT32) - (LDZ-REF18996 ':INT32) (INFO-REF19001 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18979 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18980 :INT32) KA) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18981 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18983 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF18985 :INT32) LDBB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF18987 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF18988 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF18989 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF18990 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF18991 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF18992 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF18993 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF18996 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19001 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18982 AB) (BB-REF18984 BB) - (Q-REF18986 Q) (W-REF18994 W) - (Z-REF18995 Z) (WORK-REF18997 WORK) - (RWORK-REF18998 RWORK) - (IWORK-REF18999 IWORK) - (IFAIL-REF19000 IFAIL)) - (%%ZHBGVX JOBZ RANGE UPLO N-REF18979 KA-REF18980 KB-REF18981 AB-REF18982 - LDAB-REF18983 BB-REF18984 LDBB-REF18985 Q-REF18986 LDQ-REF18987 - VL-REF18988 VU-REF18989 IL-REF18990 IU-REF18991 ABSTOL-REF18992 - M-REF18993 W-REF18994 Z-REF18995 LDZ-REF18996 WORK-REF18997 - RWORK-REF18998 IWORK-REF18999 IFAIL-REF19000 INFO-REF19001)))) - -(CFFI:DEFCFUN ("zhbtrd_" %%ZHBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF18994 ':INT32) (KA-REF18995 ':INT32) + (KB-REF18996 ':INT32) (LDAB-REF18998 ':INT32) + (LDBB-REF19000 ':INT32) (LDQ-REF19002 ':INT32) + (VL-REF19003 ':DOUBLE) (VU-REF19004 ':DOUBLE) + (IL-REF19005 ':INT32) (IU-REF19006 ':INT32) + (ABSTOL-REF19007 ':DOUBLE) (M-REF19008 ':INT32) + (LDZ-REF19011 ':INT32) (INFO-REF19016 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF18994 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF18995 :INT32) KA) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF18996 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF18998 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF19000 :INT32) LDBB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19002 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19003 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19004 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19005 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19006 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19007 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19008 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19011 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19016 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF18997 AB) (BB-REF18999 BB) + (Q-REF19001 Q) (W-REF19009 W) + (Z-REF19010 Z) (WORK-REF19012 WORK) + (RWORK-REF19013 RWORK) + (IWORK-REF19014 IWORK) + (IFAIL-REF19015 IFAIL)) + (%%ZHBGVX JOBZ RANGE UPLO N-REF18994 KA-REF18995 KB-REF18996 AB-REF18997 + LDAB-REF18998 BB-REF18999 LDBB-REF19000 Q-REF19001 LDQ-REF19002 + VL-REF19003 VU-REF19004 IL-REF19005 IU-REF19006 ABSTOL-REF19007 + M-REF19008 W-REF19009 Z-REF19010 LDZ-REF19011 WORK-REF19012 + RWORK-REF19013 IWORK-REF19014 IFAIL-REF19015 INFO-REF19016)))) + +(CFFI:DEFCFUN ("zhbtrd_" %%ZHBTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -8116,22 +8116,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19004 ':INT32) (KD-REF19005 ':INT32) - (LDAB-REF19007 ':INT32) (LDQ-REF19011 ':INT32) - (INFO-REF19013 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19004 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19005 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19007 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19011 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19013 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19006 AB) (D-REF19008 D) - (E-REF19009 E) (Q-REF19010 Q) - (WORK-REF19012 WORK)) - (%%ZHBTRD VECT UPLO N-REF19004 KD-REF19005 AB-REF19006 LDAB-REF19007 - D-REF19008 E-REF19009 Q-REF19010 LDQ-REF19011 WORK-REF19012 - INFO-REF19013)))) - -(CFFI:DEFCFUN ("zhecon_" %%ZHECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19019 ':INT32) (KD-REF19020 ':INT32) + (LDAB-REF19022 ':INT32) (LDQ-REF19026 ':INT32) + (INFO-REF19028 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19019 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19020 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19022 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19026 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19028 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19021 AB) (D-REF19023 D) + (E-REF19024 E) (Q-REF19025 Q) + (WORK-REF19027 WORK)) + (%%ZHBTRD VECT UPLO N-REF19019 KD-REF19020 AB-REF19021 LDAB-REF19022 + D-REF19023 E-REF19024 Q-REF19025 LDQ-REF19026 WORK-REF19027 + INFO-REF19028)))) + +(CFFI:DEFCFUN ("zhecon_" %%ZHECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8165,21 +8165,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19015 ':INT32) (LDA-REF19017 ':INT32) - (ANORM-REF19019 ':DOUBLE) - (RCOND-REF19020 ':DOUBLE) (INFO-REF19022 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19015 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19017 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19019 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19020 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19022 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19016 A) (IPIV-REF19018 IPIV) - (WORK-REF19021 WORK)) - (%%ZHECON UPLO N-REF19015 A-REF19016 LDA-REF19017 IPIV-REF19018 - ANORM-REF19019 RCOND-REF19020 WORK-REF19021 INFO-REF19022)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19030 ':INT32) (LDA-REF19032 ':INT32) + (ANORM-REF19034 ':DOUBLE) + (RCOND-REF19035 ':DOUBLE) (INFO-REF19037 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19030 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19032 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19034 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19035 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19037 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19031 A) (IPIV-REF19033 IPIV) + (WORK-REF19036 WORK)) + (%%ZHECON UPLO N-REF19030 A-REF19031 LDA-REF19032 IPIV-REF19033 + ANORM-REF19034 RCOND-REF19035 WORK-REF19036 INFO-REF19037)))) (CFFI:DEFCFUN ("zhecon_3_" %%ZHECON_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8219,23 +8219,23 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19024 ':INT32) (LDA-REF19026 ':INT32) - (ANORM-REF19029 ':DOUBLE) - (RCOND-REF19030 ':DOUBLE) (INFO-REF19032 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19024 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19026 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19029 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19030 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19032 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19025 A) (E-REF19027 E) - (IPIV-REF19028 IPIV) - (WORK-REF19031 WORK)) - (%%ZHECON_3 UPLO N-REF19024 A-REF19025 LDA-REF19026 E-REF19027 - IPIV-REF19028 ANORM-REF19029 RCOND-REF19030 WORK-REF19031 - INFO-REF19032)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19039 ':INT32) (LDA-REF19041 ':INT32) + (ANORM-REF19044 ':DOUBLE) + (RCOND-REF19045 ':DOUBLE) (INFO-REF19047 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19039 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19041 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19044 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19045 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19047 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19040 A) (E-REF19042 E) + (IPIV-REF19043 IPIV) + (WORK-REF19046 WORK)) + (%%ZHECON_3 UPLO N-REF19039 A-REF19040 LDA-REF19041 E-REF19042 + IPIV-REF19043 ANORM-REF19044 RCOND-REF19045 WORK-REF19046 + INFO-REF19047)))) (CFFI:DEFCFUN ("zhecon_rook_" %%ZHECON_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8269,21 +8269,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19034 ':INT32) (LDA-REF19036 ':INT32) - (ANORM-REF19038 ':DOUBLE) - (RCOND-REF19039 ':DOUBLE) (INFO-REF19041 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19034 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19036 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19038 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19039 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19041 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19035 A) (IPIV-REF19037 IPIV) - (WORK-REF19040 WORK)) - (%%ZHECON_ROOK UPLO N-REF19034 A-REF19035 LDA-REF19036 IPIV-REF19037 - ANORM-REF19038 RCOND-REF19039 WORK-REF19040 - INFO-REF19041)))) - -(CFFI:DEFCFUN ("zheequb_" %%ZHEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19049 ':INT32) (LDA-REF19051 ':INT32) + (ANORM-REF19053 ':DOUBLE) + (RCOND-REF19054 ':DOUBLE) (INFO-REF19056 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19049 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19051 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19053 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19054 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19056 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19050 A) (IPIV-REF19052 IPIV) + (WORK-REF19055 WORK)) + (%%ZHECON_ROOK UPLO N-REF19049 A-REF19050 LDA-REF19051 IPIV-REF19052 + ANORM-REF19053 RCOND-REF19054 WORK-REF19055 INFO-REF19056)))) + +(CFFI:DEFCFUN ("zheequb_" %%ZHEEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8315,20 +8315,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19043 ':INT32) (LDA-REF19045 ':INT32) - (SCOND-REF19047 ':DOUBLE) - (AMAX-REF19048 ':DOUBLE) (INFO-REF19050 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19043 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19045 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF19047 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19048 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19050 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19044 A) (S-REF19046 S) - (WORK-REF19049 WORK)) - (%%ZHEEQUB UPLO N-REF19043 A-REF19044 LDA-REF19045 S-REF19046 - SCOND-REF19047 AMAX-REF19048 WORK-REF19049 INFO-REF19050)))) - -(CFFI:DEFCFUN ("zheev_" %%ZHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19058 ':INT32) (LDA-REF19060 ':INT32) + (SCOND-REF19062 ':DOUBLE) + (AMAX-REF19063 ':DOUBLE) (INFO-REF19065 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19058 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19060 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF19062 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF19063 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19065 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19059 A) (S-REF19061 S) + (WORK-REF19064 WORK)) + (%%ZHEEQUB UPLO N-REF19058 A-REF19059 LDA-REF19060 S-REF19061 + SCOND-REF19062 AMAX-REF19063 WORK-REF19064 INFO-REF19065)))) + +(CFFI:DEFCFUN ("zheev_" %%ZHEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8364,20 +8364,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19053 ':INT32) (LDA-REF19055 ':INT32) - (LWORK-REF19058 ':INT32) (INFO-REF19060 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19053 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19055 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19058 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19060 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19054 A) (W-REF19056 W) - (WORK-REF19057 WORK) - (RWORK-REF19059 RWORK)) - (%%ZHEEV JOBZ UPLO N-REF19053 A-REF19054 LDA-REF19055 W-REF19056 - WORK-REF19057 LWORK-REF19058 RWORK-REF19059 INFO-REF19060)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19068 ':INT32) (LDA-REF19070 ':INT32) + (LWORK-REF19073 ':INT32) (INFO-REF19075 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19068 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19070 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19073 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19075 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19069 A) (W-REF19071 W) + (WORK-REF19072 WORK) + (RWORK-REF19074 RWORK)) + (%%ZHEEV JOBZ UPLO N-REF19068 A-REF19069 LDA-REF19070 W-REF19071 + WORK-REF19072 LWORK-REF19073 RWORK-REF19074 INFO-REF19075)))) (CFFI:DEFCFUN ("zheev_2stage_" %%ZHEEV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8413,20 +8413,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19063 ':INT32) (LDA-REF19065 ':INT32) - (LWORK-REF19068 ':INT32) (INFO-REF19070 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19063 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19065 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19068 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19070 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19064 A) (W-REF19066 W) - (WORK-REF19067 WORK) - (RWORK-REF19069 RWORK)) - (%%ZHEEV_2STAGE JOBZ UPLO N-REF19063 A-REF19064 LDA-REF19065 W-REF19066 - WORK-REF19067 LWORK-REF19068 RWORK-REF19069 - INFO-REF19070)))) - -(CFFI:DEFCFUN ("zheevd_" %%ZHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19078 ':INT32) (LDA-REF19080 ':INT32) + (LWORK-REF19083 ':INT32) (INFO-REF19085 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19078 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19080 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19083 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19085 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19079 A) (W-REF19081 W) + (WORK-REF19082 WORK) + (RWORK-REF19084 RWORK)) + (%%ZHEEV_2STAGE JOBZ UPLO N-REF19078 A-REF19079 LDA-REF19080 W-REF19081 + WORK-REF19082 LWORK-REF19083 RWORK-REF19084 INFO-REF19085)))) + +(CFFI:DEFCFUN ("zheevd_" %%ZHEEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8473,26 +8472,26 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19073 ':INT32) (LDA-REF19075 ':INT32) - (LWORK-REF19078 ':INT32) - (LRWORK-REF19080 ':INT32) - (LIWORK-REF19082 ':INT32) (INFO-REF19083 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19073 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19075 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19078 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19080 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19082 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19083 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19074 A) (W-REF19076 W) - (WORK-REF19077 WORK) - (RWORK-REF19079 RWORK) - (IWORK-REF19081 IWORK)) - (%%ZHEEVD JOBZ UPLO N-REF19073 A-REF19074 LDA-REF19075 W-REF19076 - WORK-REF19077 LWORK-REF19078 RWORK-REF19079 LRWORK-REF19080 - IWORK-REF19081 LIWORK-REF19082 INFO-REF19083)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19088 ':INT32) (LDA-REF19090 ':INT32) + (LWORK-REF19093 ':INT32) + (LRWORK-REF19095 ':INT32) + (LIWORK-REF19097 ':INT32) (INFO-REF19098 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19088 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19090 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19093 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19095 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19097 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19098 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19089 A) (W-REF19091 W) + (WORK-REF19092 WORK) + (RWORK-REF19094 RWORK) + (IWORK-REF19096 IWORK)) + (%%ZHEEVD JOBZ UPLO N-REF19088 A-REF19089 LDA-REF19090 W-REF19091 + WORK-REF19092 LWORK-REF19093 RWORK-REF19094 LRWORK-REF19095 + IWORK-REF19096 LIWORK-REF19097 INFO-REF19098)))) (CFFI:DEFCFUN ("zheevd_2stage_" %%ZHEEVD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -8539,26 +8538,25 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19086 ':INT32) (LDA-REF19088 ':INT32) - (LWORK-REF19091 ':INT32) - (LRWORK-REF19093 ':INT32) - (LIWORK-REF19095 ':INT32) (INFO-REF19096 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19086 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19088 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19091 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19093 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19095 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19096 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19087 A) (W-REF19089 W) - (WORK-REF19090 WORK) - (RWORK-REF19092 RWORK) - (IWORK-REF19094 IWORK)) - (%%ZHEEVD_2STAGE JOBZ UPLO N-REF19086 A-REF19087 LDA-REF19088 W-REF19089 - WORK-REF19090 LWORK-REF19091 RWORK-REF19092 - LRWORK-REF19093 IWORK-REF19094 LIWORK-REF19095 - INFO-REF19096)))) - -(CFFI:DEFCFUN ("zheevr_" %%ZHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19101 ':INT32) (LDA-REF19103 ':INT32) + (LWORK-REF19106 ':INT32) + (LRWORK-REF19108 ':INT32) + (LIWORK-REF19110 ':INT32) (INFO-REF19111 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19101 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19103 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19106 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19108 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19110 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19111 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19102 A) (W-REF19104 W) + (WORK-REF19105 WORK) + (RWORK-REF19107 RWORK) + (IWORK-REF19109 IWORK)) + (%%ZHEEVD_2STAGE JOBZ UPLO N-REF19101 A-REF19102 LDA-REF19103 W-REF19104 + WORK-REF19105 LWORK-REF19106 RWORK-REF19107 LRWORK-REF19108 + IWORK-REF19109 LIWORK-REF19110 INFO-REF19111)))) + +(CFFI:DEFCFUN ("zheevr_" %%ZHEEVR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8632,40 +8630,40 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19100 ':INT32) (LDA-REF19102 ':INT32) - (VL-REF19103 ':DOUBLE) (VU-REF19104 ':DOUBLE) - (IL-REF19105 ':INT32) (IU-REF19106 ':INT32) - (ABSTOL-REF19107 ':DOUBLE) (M-REF19108 ':INT32) - (LDZ-REF19111 ':INT32) (LWORK-REF19114 ':INT32) - (LRWORK-REF19116 ':INT32) - (LIWORK-REF19118 ':INT32) (INFO-REF19119 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19100 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19102 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19103 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19104 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19105 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19106 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19107 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19108 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19111 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19114 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19116 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19118 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19119 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19101 A) (W-REF19109 W) - (Z-REF19110 Z) - (ISUPPZ-REF19112 ISUPPZ) - (WORK-REF19113 WORK) - (RWORK-REF19115 RWORK) - (IWORK-REF19117 IWORK)) - (%%ZHEEVR JOBZ RANGE UPLO N-REF19100 A-REF19101 LDA-REF19102 VL-REF19103 - VU-REF19104 IL-REF19105 IU-REF19106 ABSTOL-REF19107 M-REF19108 - W-REF19109 Z-REF19110 LDZ-REF19111 ISUPPZ-REF19112 - WORK-REF19113 LWORK-REF19114 RWORK-REF19115 LRWORK-REF19116 - IWORK-REF19117 LIWORK-REF19118 INFO-REF19119)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19115 ':INT32) (LDA-REF19117 ':INT32) + (VL-REF19118 ':DOUBLE) (VU-REF19119 ':DOUBLE) + (IL-REF19120 ':INT32) (IU-REF19121 ':INT32) + (ABSTOL-REF19122 ':DOUBLE) (M-REF19123 ':INT32) + (LDZ-REF19126 ':INT32) (LWORK-REF19129 ':INT32) + (LRWORK-REF19131 ':INT32) + (LIWORK-REF19133 ':INT32) (INFO-REF19134 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19115 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19117 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19118 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19119 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19120 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19121 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19122 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19123 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19126 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19129 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19131 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19133 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19134 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19116 A) (W-REF19124 W) + (Z-REF19125 Z) + (ISUPPZ-REF19127 ISUPPZ) + (WORK-REF19128 WORK) + (RWORK-REF19130 RWORK) + (IWORK-REF19132 IWORK)) + (%%ZHEEVR JOBZ RANGE UPLO N-REF19115 A-REF19116 LDA-REF19117 VL-REF19118 + VU-REF19119 IL-REF19120 IU-REF19121 ABSTOL-REF19122 M-REF19123 + W-REF19124 Z-REF19125 LDZ-REF19126 ISUPPZ-REF19127 WORK-REF19128 + LWORK-REF19129 RWORK-REF19130 LRWORK-REF19131 IWORK-REF19132 + LIWORK-REF19133 INFO-REF19134)))) (CFFI:DEFCFUN ("zheevr_2stage_" %%ZHEEVR_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8739,40 +8737,39 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19123 ':INT32) (LDA-REF19125 ':INT32) - (VL-REF19126 ':DOUBLE) (VU-REF19127 ':DOUBLE) - (IL-REF19128 ':INT32) (IU-REF19129 ':INT32) - (ABSTOL-REF19130 ':DOUBLE) (M-REF19131 ':INT32) - (LDZ-REF19134 ':INT32) (LWORK-REF19137 ':INT32) - (LRWORK-REF19139 ':INT32) - (LIWORK-REF19141 ':INT32) (INFO-REF19142 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19123 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19125 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19126 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19127 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19128 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19129 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19130 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19131 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19134 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19137 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19139 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19141 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19142 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19124 A) (W-REF19132 W) - (Z-REF19133 Z) - (ISUPPZ-REF19135 ISUPPZ) - (WORK-REF19136 WORK) - (RWORK-REF19138 RWORK) - (IWORK-REF19140 IWORK)) - (%%ZHEEVR_2STAGE JOBZ RANGE UPLO N-REF19123 A-REF19124 LDA-REF19125 - VL-REF19126 VU-REF19127 IL-REF19128 IU-REF19129 - ABSTOL-REF19130 M-REF19131 W-REF19132 Z-REF19133 - LDZ-REF19134 ISUPPZ-REF19135 WORK-REF19136 - LWORK-REF19137 RWORK-REF19138 LRWORK-REF19139 - IWORK-REF19140 LIWORK-REF19141 INFO-REF19142)))) - -(CFFI:DEFCFUN ("zheevx_" %%ZHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19138 ':INT32) (LDA-REF19140 ':INT32) + (VL-REF19141 ':DOUBLE) (VU-REF19142 ':DOUBLE) + (IL-REF19143 ':INT32) (IU-REF19144 ':INT32) + (ABSTOL-REF19145 ':DOUBLE) (M-REF19146 ':INT32) + (LDZ-REF19149 ':INT32) (LWORK-REF19152 ':INT32) + (LRWORK-REF19154 ':INT32) + (LIWORK-REF19156 ':INT32) (INFO-REF19157 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19138 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19140 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19141 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19142 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19143 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19144 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19145 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19146 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19149 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19152 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19154 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19156 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19157 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19139 A) (W-REF19147 W) + (Z-REF19148 Z) + (ISUPPZ-REF19150 ISUPPZ) + (WORK-REF19151 WORK) + (RWORK-REF19153 RWORK) + (IWORK-REF19155 IWORK)) + (%%ZHEEVR_2STAGE JOBZ RANGE UPLO N-REF19138 A-REF19139 LDA-REF19140 + VL-REF19141 VU-REF19142 IL-REF19143 IU-REF19144 ABSTOL-REF19145 + M-REF19146 W-REF19147 Z-REF19148 LDZ-REF19149 ISUPPZ-REF19150 + WORK-REF19151 LWORK-REF19152 RWORK-REF19153 LRWORK-REF19154 + IWORK-REF19155 LIWORK-REF19156 INFO-REF19157)))) + +(CFFI:DEFCFUN ("zheevx_" %%ZHEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8842,35 +8839,35 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19146 ':INT32) (LDA-REF19148 ':INT32) - (VL-REF19149 ':DOUBLE) (VU-REF19150 ':DOUBLE) - (IL-REF19151 ':INT32) (IU-REF19152 ':INT32) - (ABSTOL-REF19153 ':DOUBLE) (M-REF19154 ':INT32) - (LDZ-REF19157 ':INT32) (LWORK-REF19159 ':INT32) - (INFO-REF19163 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19146 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19148 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19149 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19150 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19151 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19152 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19153 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19154 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19157 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19159 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19163 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19147 A) (W-REF19155 W) - (Z-REF19156 Z) (WORK-REF19158 WORK) - (RWORK-REF19160 RWORK) - (IWORK-REF19161 IWORK) - (IFAIL-REF19162 IFAIL)) - (%%ZHEEVX JOBZ RANGE UPLO N-REF19146 A-REF19147 LDA-REF19148 VL-REF19149 - VU-REF19150 IL-REF19151 IU-REF19152 ABSTOL-REF19153 M-REF19154 - W-REF19155 Z-REF19156 LDZ-REF19157 WORK-REF19158 LWORK-REF19159 - RWORK-REF19160 IWORK-REF19161 IFAIL-REF19162 INFO-REF19163)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19161 ':INT32) (LDA-REF19163 ':INT32) + (VL-REF19164 ':DOUBLE) (VU-REF19165 ':DOUBLE) + (IL-REF19166 ':INT32) (IU-REF19167 ':INT32) + (ABSTOL-REF19168 ':DOUBLE) (M-REF19169 ':INT32) + (LDZ-REF19172 ':INT32) (LWORK-REF19174 ':INT32) + (INFO-REF19178 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19161 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19163 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19164 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19165 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19166 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19167 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19168 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19169 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19172 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19174 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19178 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19162 A) (W-REF19170 W) + (Z-REF19171 Z) (WORK-REF19173 WORK) + (RWORK-REF19175 RWORK) + (IWORK-REF19176 IWORK) + (IFAIL-REF19177 IFAIL)) + (%%ZHEEVX JOBZ RANGE UPLO N-REF19161 A-REF19162 LDA-REF19163 VL-REF19164 + VU-REF19165 IL-REF19166 IU-REF19167 ABSTOL-REF19168 M-REF19169 + W-REF19170 Z-REF19171 LDZ-REF19172 WORK-REF19173 LWORK-REF19174 + RWORK-REF19175 IWORK-REF19176 IFAIL-REF19177 INFO-REF19178)))) (CFFI:DEFCFUN ("zheevx_2stage_" %%ZHEEVX_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -8940,35 +8937,35 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19167 ':INT32) (LDA-REF19169 ':INT32) - (VL-REF19170 ':DOUBLE) (VU-REF19171 ':DOUBLE) - (IL-REF19172 ':INT32) (IU-REF19173 ':INT32) - (ABSTOL-REF19174 ':DOUBLE) (M-REF19175 ':INT32) - (LDZ-REF19178 ':INT32) (LWORK-REF19180 ':INT32) - (INFO-REF19184 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19167 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19169 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19170 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19171 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19172 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19173 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19174 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19175 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19178 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19180 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19184 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19168 A) (W-REF19176 W) - (Z-REF19177 Z) (WORK-REF19179 WORK) - (RWORK-REF19181 RWORK) - (IWORK-REF19182 IWORK) - (IFAIL-REF19183 IFAIL)) - (%%ZHEEVX_2STAGE JOBZ RANGE UPLO N-REF19167 A-REF19168 LDA-REF19169 - VL-REF19170 VU-REF19171 IL-REF19172 IU-REF19173 - ABSTOL-REF19174 M-REF19175 W-REF19176 Z-REF19177 - LDZ-REF19178 WORK-REF19179 LWORK-REF19180 RWORK-REF19181 - IWORK-REF19182 IFAIL-REF19183 INFO-REF19184)))) - -(CFFI:DEFCFUN ("zhegs2_" %%ZHEGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19182 ':INT32) (LDA-REF19184 ':INT32) + (VL-REF19185 ':DOUBLE) (VU-REF19186 ':DOUBLE) + (IL-REF19187 ':INT32) (IU-REF19188 ':INT32) + (ABSTOL-REF19189 ':DOUBLE) (M-REF19190 ':INT32) + (LDZ-REF19193 ':INT32) (LWORK-REF19195 ':INT32) + (INFO-REF19199 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19182 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19184 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19185 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19186 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19187 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19188 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19189 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19190 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19193 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19195 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19199 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19183 A) (W-REF19191 W) + (Z-REF19192 Z) (WORK-REF19194 WORK) + (RWORK-REF19196 RWORK) + (IWORK-REF19197 IWORK) + (IFAIL-REF19198 IFAIL)) + (%%ZHEEVX_2STAGE JOBZ RANGE UPLO N-REF19182 A-REF19183 LDA-REF19184 + VL-REF19185 VU-REF19186 IL-REF19187 IU-REF19188 ABSTOL-REF19189 + M-REF19190 W-REF19191 Z-REF19192 LDZ-REF19193 WORK-REF19194 + LWORK-REF19195 RWORK-REF19196 IWORK-REF19197 IFAIL-REF19198 + INFO-REF19199)))) + +(CFFI:DEFCFUN ("zhegs2_" %%ZHEGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -8997,19 +8994,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19185 ':INT32) (N-REF19187 ':INT32) - (LDA-REF19189 ':INT32) (LDB-REF19191 ':INT32) - (INFO-REF19192 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19185 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19187 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19189 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19191 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19192 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19188 A) (B-REF19190 B)) - (%%ZHEGS2 ITYPE-REF19185 UPLO N-REF19187 A-REF19188 LDA-REF19189 - B-REF19190 LDB-REF19191 INFO-REF19192)))) - -(CFFI:DEFCFUN ("zhegst_" %%ZHEGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19200 ':INT32) (N-REF19202 ':INT32) + (LDA-REF19204 ':INT32) (LDB-REF19206 ':INT32) + (INFO-REF19207 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19200 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19202 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19204 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19206 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19207 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19203 A) (B-REF19205 B)) + (%%ZHEGS2 ITYPE-REF19200 UPLO N-REF19202 A-REF19203 LDA-REF19204 + B-REF19205 LDB-REF19206 INFO-REF19207)))) + +(CFFI:DEFCFUN ("zhegst_" %%ZHEGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -9038,19 +9035,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19193 ':INT32) (N-REF19195 ':INT32) - (LDA-REF19197 ':INT32) (LDB-REF19199 ':INT32) - (INFO-REF19200 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19193 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19195 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19197 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19199 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19200 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19196 A) (B-REF19198 B)) - (%%ZHEGST ITYPE-REF19193 UPLO N-REF19195 A-REF19196 LDA-REF19197 - B-REF19198 LDB-REF19199 INFO-REF19200)))) - -(CFFI:DEFCFUN ("zhegv_" %%ZHEGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19208 ':INT32) (N-REF19210 ':INT32) + (LDA-REF19212 ':INT32) (LDB-REF19214 ':INT32) + (INFO-REF19215 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19208 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19210 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19212 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19214 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19215 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19211 A) (B-REF19213 B)) + (%%ZHEGST ITYPE-REF19208 UPLO N-REF19210 A-REF19211 LDA-REF19212 + B-REF19213 LDB-REF19214 INFO-REF19215)))) + +(CFFI:DEFCFUN ("zhegv_" %%ZHEGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -9097,24 +9094,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19201 ':INT32) (N-REF19204 ':INT32) - (LDA-REF19206 ':INT32) (LDB-REF19208 ':INT32) - (LWORK-REF19211 ':INT32) (INFO-REF19213 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19201 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19204 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19206 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19208 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19211 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19213 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19205 A) (B-REF19207 B) - (W-REF19209 W) (WORK-REF19210 WORK) - (RWORK-REF19212 RWORK)) - (%%ZHEGV ITYPE-REF19201 JOBZ UPLO N-REF19204 A-REF19205 LDA-REF19206 - B-REF19207 LDB-REF19208 W-REF19209 WORK-REF19210 LWORK-REF19211 - RWORK-REF19212 INFO-REF19213)))) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19216 ':INT32) (N-REF19219 ':INT32) + (LDA-REF19221 ':INT32) (LDB-REF19223 ':INT32) + (LWORK-REF19226 ':INT32) (INFO-REF19228 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19216 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19219 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19221 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19223 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19226 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19228 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19220 A) (B-REF19222 B) + (W-REF19224 W) (WORK-REF19225 WORK) + (RWORK-REF19227 RWORK)) + (%%ZHEGV ITYPE-REF19216 JOBZ UPLO N-REF19219 A-REF19220 LDA-REF19221 + B-REF19222 LDB-REF19223 W-REF19224 WORK-REF19225 LWORK-REF19226 + RWORK-REF19227 INFO-REF19228)))) (CFFI:DEFCFUN ("zhegv_2stage_" %%ZHEGV_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -9161,24 +9158,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19214 ':INT32) (N-REF19217 ':INT32) - (LDA-REF19219 ':INT32) (LDB-REF19221 ':INT32) - (LWORK-REF19224 ':INT32) (INFO-REF19226 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19214 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19217 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19219 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19221 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19224 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19226 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19218 A) (B-REF19220 B) - (W-REF19222 W) (WORK-REF19223 WORK) - (RWORK-REF19225 RWORK)) - (%%ZHEGV_2STAGE ITYPE-REF19214 JOBZ UPLO N-REF19217 A-REF19218 - LDA-REF19219 B-REF19220 LDB-REF19221 W-REF19222 - WORK-REF19223 LWORK-REF19224 RWORK-REF19225 - INFO-REF19226)))) - -(CFFI:DEFCFUN ("zhegvd_" %%ZHEGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19229 ':INT32) (N-REF19232 ':INT32) + (LDA-REF19234 ':INT32) (LDB-REF19236 ':INT32) + (LWORK-REF19239 ':INT32) (INFO-REF19241 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19229 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19232 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19234 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19236 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19239 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19241 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19233 A) (B-REF19235 B) + (W-REF19237 W) (WORK-REF19238 WORK) + (RWORK-REF19240 RWORK)) + (%%ZHEGV_2STAGE ITYPE-REF19229 JOBZ UPLO N-REF19232 A-REF19233 + LDA-REF19234 B-REF19235 LDB-REF19236 W-REF19237 WORK-REF19238 + LWORK-REF19239 RWORK-REF19240 INFO-REF19241)))) + +(CFFI:DEFCFUN ("zhegvd_" %%ZHEGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -9235,29 +9231,29 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19227 ':INT32) (N-REF19230 ':INT32) - (LDA-REF19232 ':INT32) (LDB-REF19234 ':INT32) - (LWORK-REF19237 ':INT32) - (LRWORK-REF19239 ':INT32) - (LIWORK-REF19241 ':INT32) (INFO-REF19242 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19227 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19230 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19232 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19234 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19237 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19239 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19241 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19242 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19231 A) (B-REF19233 B) - (W-REF19235 W) (WORK-REF19236 WORK) - (RWORK-REF19238 RWORK) - (IWORK-REF19240 IWORK)) - (%%ZHEGVD ITYPE-REF19227 JOBZ UPLO N-REF19230 A-REF19231 LDA-REF19232 - B-REF19233 LDB-REF19234 W-REF19235 WORK-REF19236 LWORK-REF19237 - RWORK-REF19238 LRWORK-REF19239 IWORK-REF19240 LIWORK-REF19241 - INFO-REF19242)))) - -(CFFI:DEFCFUN ("zhegvx_" %%ZHEGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19242 ':INT32) (N-REF19245 ':INT32) + (LDA-REF19247 ':INT32) (LDB-REF19249 ':INT32) + (LWORK-REF19252 ':INT32) + (LRWORK-REF19254 ':INT32) + (LIWORK-REF19256 ':INT32) (INFO-REF19257 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19242 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19245 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19247 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19249 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19252 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19254 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19256 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19257 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19246 A) (B-REF19248 B) + (W-REF19250 W) (WORK-REF19251 WORK) + (RWORK-REF19253 RWORK) + (IWORK-REF19255 IWORK)) + (%%ZHEGVD ITYPE-REF19242 JOBZ UPLO N-REF19245 A-REF19246 LDA-REF19247 + B-REF19248 LDB-REF19249 W-REF19250 WORK-REF19251 LWORK-REF19252 + RWORK-REF19253 LRWORK-REF19254 IWORK-REF19255 LIWORK-REF19256 + INFO-REF19257)))) + +(CFFI:DEFCFUN ("zhegvx_" %%ZHEGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -9337,39 +9333,39 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19243 ':INT32) (N-REF19247 ':INT32) - (LDA-REF19249 ':INT32) (LDB-REF19251 ':INT32) - (VL-REF19252 ':DOUBLE) (VU-REF19253 ':DOUBLE) - (IL-REF19254 ':INT32) (IU-REF19255 ':INT32) - (ABSTOL-REF19256 ':DOUBLE) (M-REF19257 ':INT32) - (LDZ-REF19260 ':INT32) (LWORK-REF19262 ':INT32) - (INFO-REF19266 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19243 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19247 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19249 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19251 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19252 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19253 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19254 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19255 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19256 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19257 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19260 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19262 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19266 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19248 A) (B-REF19250 B) - (W-REF19258 W) (Z-REF19259 Z) - (WORK-REF19261 WORK) - (RWORK-REF19263 RWORK) - (IWORK-REF19264 IWORK) - (IFAIL-REF19265 IFAIL)) - (%%ZHEGVX ITYPE-REF19243 JOBZ RANGE UPLO N-REF19247 A-REF19248 - LDA-REF19249 B-REF19250 LDB-REF19251 VL-REF19252 VU-REF19253 - IL-REF19254 IU-REF19255 ABSTOL-REF19256 M-REF19257 W-REF19258 - Z-REF19259 LDZ-REF19260 WORK-REF19261 LWORK-REF19262 - RWORK-REF19263 IWORK-REF19264 IFAIL-REF19265 INFO-REF19266)))) - -(CFFI:DEFCFUN ("zherfs_" %%ZHERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19258 ':INT32) (N-REF19262 ':INT32) + (LDA-REF19264 ':INT32) (LDB-REF19266 ':INT32) + (VL-REF19267 ':DOUBLE) (VU-REF19268 ':DOUBLE) + (IL-REF19269 ':INT32) (IU-REF19270 ':INT32) + (ABSTOL-REF19271 ':DOUBLE) (M-REF19272 ':INT32) + (LDZ-REF19275 ':INT32) (LWORK-REF19277 ':INT32) + (INFO-REF19281 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19258 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19262 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19264 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19266 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19267 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19268 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19269 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19270 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19271 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19272 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19275 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19277 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19281 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19263 A) (B-REF19265 B) + (W-REF19273 W) (Z-REF19274 Z) + (WORK-REF19276 WORK) + (RWORK-REF19278 RWORK) + (IWORK-REF19279 IWORK) + (IFAIL-REF19280 IFAIL)) + (%%ZHEGVX ITYPE-REF19258 JOBZ RANGE UPLO N-REF19262 A-REF19263 + LDA-REF19264 B-REF19265 LDB-REF19266 VL-REF19267 VU-REF19268 IL-REF19269 + IU-REF19270 ABSTOL-REF19271 M-REF19272 W-REF19273 Z-REF19274 + LDZ-REF19275 WORK-REF19276 LWORK-REF19277 RWORK-REF19278 IWORK-REF19279 + IFAIL-REF19280 INFO-REF19281)))) + +(CFFI:DEFCFUN ("zherfs_" %%ZHERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9439,29 +9435,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19268 ':INT32) (NRHS-REF19269 ':INT32) - (LDA-REF19271 ':INT32) (LDAF-REF19273 ':INT32) - (LDB-REF19276 ':INT32) (LDX-REF19278 ':INT32) - (INFO-REF19283 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19268 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19269 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19271 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19273 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19276 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19278 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19283 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19270 A) (AF-REF19272 AF) - (IPIV-REF19274 IPIV) (B-REF19275 B) - (X-REF19277 X) (FERR-REF19279 FERR) - (BERR-REF19280 BERR) - (WORK-REF19281 WORK) - (RWORK-REF19282 RWORK)) - (%%ZHERFS UPLO N-REF19268 NRHS-REF19269 A-REF19270 LDA-REF19271 - AF-REF19272 LDAF-REF19273 IPIV-REF19274 B-REF19275 LDB-REF19276 - X-REF19277 LDX-REF19278 FERR-REF19279 BERR-REF19280 - WORK-REF19281 RWORK-REF19282 INFO-REF19283)))) - -(CFFI:DEFCFUN ("zherfsx_" %%ZHERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19283 ':INT32) (NRHS-REF19284 ':INT32) + (LDA-REF19286 ':INT32) (LDAF-REF19288 ':INT32) + (LDB-REF19291 ':INT32) (LDX-REF19293 ':INT32) + (INFO-REF19298 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19283 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19284 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19286 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19288 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19291 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19293 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19298 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19285 A) (AF-REF19287 AF) + (IPIV-REF19289 IPIV) (B-REF19290 B) + (X-REF19292 X) (FERR-REF19294 FERR) + (BERR-REF19295 BERR) + (WORK-REF19296 WORK) + (RWORK-REF19297 RWORK)) + (%%ZHERFS UPLO N-REF19283 NRHS-REF19284 A-REF19285 LDA-REF19286 + AF-REF19287 LDAF-REF19288 IPIV-REF19289 B-REF19290 LDB-REF19291 + X-REF19292 LDX-REF19293 FERR-REF19294 BERR-REF19295 WORK-REF19296 + RWORK-REF19297 INFO-REF19298)))) + +(CFFI:DEFCFUN ("zherfsx_" %%ZHERFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -9552,42 +9549,42 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19286 ':INT32) (NRHS-REF19287 ':INT32) - (LDA-REF19289 ':INT32) (LDAF-REF19291 ':INT32) - (LDB-REF19295 ':INT32) (LDX-REF19297 ':INT32) - (RCOND-REF19298 ':DOUBLE) - (N_ERR_BNDS-REF19300 ':INT32) - (NPARAMS-REF19303 ':INT32) - (INFO-REF19307 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19286 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19287 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19289 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19291 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19295 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19297 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19298 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19300 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19303 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19307 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19288 A) (AF-REF19290 AF) - (IPIV-REF19292 IPIV) (S-REF19293 S) - (B-REF19294 B) (X-REF19296 X) - (BERR-REF19299 BERR) - (ERR_BNDS_NORM-REF19301 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19301 ':INT32) (NRHS-REF19302 ':INT32) + (LDA-REF19304 ':INT32) (LDAF-REF19306 ':INT32) + (LDB-REF19310 ':INT32) (LDX-REF19312 ':INT32) + (RCOND-REF19313 ':DOUBLE) + (N_ERR_BNDS-REF19315 ':INT32) + (NPARAMS-REF19318 ':INT32) + (INFO-REF19322 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19301 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19302 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19304 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19306 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19310 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19312 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19313 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19315 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19318 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19322 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19303 A) (AF-REF19305 AF) + (IPIV-REF19307 IPIV) (S-REF19308 S) + (B-REF19309 B) (X-REF19311 X) + (BERR-REF19314 BERR) + (ERR_BNDS_NORM-REF19316 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF19302 + (ERR_BNDS_COMP-REF19317 ERR_BNDS_COMP) - (PARAMS-REF19304 PARAMS) - (WORK-REF19305 WORK) - (RWORK-REF19306 RWORK)) - (%%ZHERFSX UPLO EQUED N-REF19286 NRHS-REF19287 A-REF19288 LDA-REF19289 - AF-REF19290 LDAF-REF19291 IPIV-REF19292 S-REF19293 B-REF19294 - LDB-REF19295 X-REF19296 LDX-REF19297 RCOND-REF19298 - BERR-REF19299 N_ERR_BNDS-REF19300 ERR_BNDS_NORM-REF19301 - ERR_BNDS_COMP-REF19302 NPARAMS-REF19303 PARAMS-REF19304 - WORK-REF19305 RWORK-REF19306 INFO-REF19307)))) - -(CFFI:DEFCFUN ("zhesv_" %%ZHESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (PARAMS-REF19319 PARAMS) + (WORK-REF19320 WORK) + (RWORK-REF19321 RWORK)) + (%%ZHERFSX UPLO EQUED N-REF19301 NRHS-REF19302 A-REF19303 LDA-REF19304 + AF-REF19305 LDAF-REF19306 IPIV-REF19307 S-REF19308 B-REF19309 + LDB-REF19310 X-REF19311 LDX-REF19312 RCOND-REF19313 BERR-REF19314 + N_ERR_BNDS-REF19315 ERR_BNDS_NORM-REF19316 ERR_BNDS_COMP-REF19317 + NPARAMS-REF19318 PARAMS-REF19319 WORK-REF19320 RWORK-REF19321 + INFO-REF19322)))) + +(CFFI:DEFCFUN ("zhesv_" %%ZHESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9629,23 +9626,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19309 ':INT32) (NRHS-REF19310 ':INT32) - (LDA-REF19312 ':INT32) (LDB-REF19315 ':INT32) - (LWORK-REF19317 ':INT32) (INFO-REF19318 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19309 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19310 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19312 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19315 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19317 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19318 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19311 A) (IPIV-REF19313 IPIV) - (B-REF19314 B) (WORK-REF19316 WORK)) - (%%ZHESV UPLO N-REF19309 NRHS-REF19310 A-REF19311 LDA-REF19312 - IPIV-REF19313 B-REF19314 LDB-REF19315 WORK-REF19316 - LWORK-REF19317 INFO-REF19318)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19324 ':INT32) (NRHS-REF19325 ':INT32) + (LDA-REF19327 ':INT32) (LDB-REF19330 ':INT32) + (LWORK-REF19332 ':INT32) (INFO-REF19333 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19324 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19325 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19327 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19330 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19332 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19333 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19326 A) (IPIV-REF19328 IPIV) + (B-REF19329 B) (WORK-REF19331 WORK)) + (%%ZHESV UPLO N-REF19324 NRHS-REF19325 A-REF19326 LDA-REF19327 + IPIV-REF19328 B-REF19329 LDB-REF19330 WORK-REF19331 LWORK-REF19332 + INFO-REF19333)))) (CFFI:DEFCFUN ("zhesv_aa_" %%ZHESV_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9687,23 +9684,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19320 ':INT32) (NRHS-REF19321 ':INT32) - (LDA-REF19323 ':INT32) (LDB-REF19326 ':INT32) - (LWORK-REF19328 ':INT32) (INFO-REF19329 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19320 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19321 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19323 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19326 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19328 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19329 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19322 A) (IPIV-REF19324 IPIV) - (B-REF19325 B) (WORK-REF19327 WORK)) - (%%ZHESV_AA UPLO N-REF19320 NRHS-REF19321 A-REF19322 LDA-REF19323 - IPIV-REF19324 B-REF19325 LDB-REF19326 WORK-REF19327 - LWORK-REF19328 INFO-REF19329)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19335 ':INT32) (NRHS-REF19336 ':INT32) + (LDA-REF19338 ':INT32) (LDB-REF19341 ':INT32) + (LWORK-REF19343 ':INT32) (INFO-REF19344 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19335 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19336 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19338 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19341 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19343 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19344 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19337 A) (IPIV-REF19339 IPIV) + (B-REF19340 B) (WORK-REF19342 WORK)) + (%%ZHESV_AA UPLO N-REF19335 NRHS-REF19336 A-REF19337 LDA-REF19338 + IPIV-REF19339 B-REF19340 LDB-REF19341 WORK-REF19342 LWORK-REF19343 + INFO-REF19344)))) (CFFI:DEFCFUN ("zhesv_aa_2stage_" %%ZHESV_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9759,28 +9756,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19331 ':INT32) (NRHS-REF19332 ':INT32) - (LDA-REF19334 ':INT32) (LTB-REF19336 ':INT32) - (LDB-REF19340 ':INT32) (LWORK-REF19342 ':INT32) - (INFO-REF19343 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19331 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19332 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19334 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19336 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19340 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19342 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19343 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19333 A) (TB-REF19335 TB) - (IPIV-REF19337 IPIV) - (IPIV2-REF19338 IPIV2) - (B-REF19339 B) (WORK-REF19341 WORK)) - (%%ZHESV_AA_2STAGE UPLO N-REF19331 NRHS-REF19332 A-REF19333 LDA-REF19334 - TB-REF19335 LTB-REF19336 IPIV-REF19337 IPIV2-REF19338 - B-REF19339 LDB-REF19340 WORK-REF19341 LWORK-REF19342 - INFO-REF19343)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19346 ':INT32) (NRHS-REF19347 ':INT32) + (LDA-REF19349 ':INT32) (LTB-REF19351 ':INT32) + (LDB-REF19355 ':INT32) (LWORK-REF19357 ':INT32) + (INFO-REF19358 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19346 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19347 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19349 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19351 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19355 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19357 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19358 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19348 A) (TB-REF19350 TB) + (IPIV-REF19352 IPIV) + (IPIV2-REF19353 IPIV2) + (B-REF19354 B) (WORK-REF19356 WORK)) + (%%ZHESV_AA_2STAGE UPLO N-REF19346 NRHS-REF19347 A-REF19348 LDA-REF19349 + TB-REF19350 LTB-REF19351 IPIV-REF19352 IPIV2-REF19353 B-REF19354 + LDB-REF19355 WORK-REF19356 LWORK-REF19357 INFO-REF19358)))) (CFFI:DEFCFUN ("zhesv_rk_" %%ZHESV_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9828,24 +9824,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19345 ':INT32) (NRHS-REF19346 ':INT32) - (LDA-REF19348 ':INT32) (LDB-REF19352 ':INT32) - (LWORK-REF19354 ':INT32) (INFO-REF19355 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19345 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19346 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19348 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19352 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19354 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19355 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19347 A) (E-REF19349 E) - (IPIV-REF19350 IPIV) (B-REF19351 B) - (WORK-REF19353 WORK)) - (%%ZHESV_RK UPLO N-REF19345 NRHS-REF19346 A-REF19347 LDA-REF19348 - E-REF19349 IPIV-REF19350 B-REF19351 LDB-REF19352 - WORK-REF19353 LWORK-REF19354 INFO-REF19355)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19360 ':INT32) (NRHS-REF19361 ':INT32) + (LDA-REF19363 ':INT32) (LDB-REF19367 ':INT32) + (LWORK-REF19369 ':INT32) (INFO-REF19370 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19360 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19361 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19363 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19367 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19369 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19370 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19362 A) (E-REF19364 E) + (IPIV-REF19365 IPIV) (B-REF19366 B) + (WORK-REF19368 WORK)) + (%%ZHESV_RK UPLO N-REF19360 NRHS-REF19361 A-REF19362 LDA-REF19363 + E-REF19364 IPIV-REF19365 B-REF19366 LDB-REF19367 WORK-REF19368 + LWORK-REF19369 INFO-REF19370)))) (CFFI:DEFCFUN ("zhesv_rook_" %%ZHESV_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -9887,22 +9883,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19357 ':INT32) (NRHS-REF19358 ':INT32) - (LDA-REF19360 ':INT32) (LDB-REF19363 ':INT32) - (LWORK-REF19365 ':INT32) (INFO-REF19366 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19357 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19358 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19360 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19363 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19365 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19366 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19359 A) (IPIV-REF19361 IPIV) - (B-REF19362 B) (WORK-REF19364 WORK)) - (%%ZHESV_ROOK UPLO N-REF19357 NRHS-REF19358 A-REF19359 LDA-REF19360 - IPIV-REF19361 B-REF19362 LDB-REF19363 WORK-REF19364 - LWORK-REF19365 INFO-REF19366)))) - -(CFFI:DEFCFUN ("zhesvx_" %%ZHESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19372 ':INT32) (NRHS-REF19373 ':INT32) + (LDA-REF19375 ':INT32) (LDB-REF19378 ':INT32) + (LWORK-REF19380 ':INT32) (INFO-REF19381 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19372 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19373 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19375 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19378 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19380 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19381 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19374 A) (IPIV-REF19376 IPIV) + (B-REF19377 B) (WORK-REF19379 WORK)) + (%%ZHESV_ROOK UPLO N-REF19372 NRHS-REF19373 A-REF19374 LDA-REF19375 + IPIV-REF19376 B-REF19377 LDB-REF19378 WORK-REF19379 LWORK-REF19380 + INFO-REF19381)))) + +(CFFI:DEFCFUN ("zhesvx_" %%ZHESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -9978,33 +9974,33 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19369 ':INT32) (NRHS-REF19370 ':INT32) - (LDA-REF19372 ':INT32) (LDAF-REF19374 ':INT32) - (LDB-REF19377 ':INT32) (LDX-REF19379 ':INT32) - (RCOND-REF19380 ':DOUBLE) - (LWORK-REF19384 ':INT32) (INFO-REF19386 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19369 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19370 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19372 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19374 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19377 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19379 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19380 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19384 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19386 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19371 A) (AF-REF19373 AF) - (IPIV-REF19375 IPIV) (B-REF19376 B) - (X-REF19378 X) (FERR-REF19381 FERR) - (BERR-REF19382 BERR) - (WORK-REF19383 WORK) - (RWORK-REF19385 RWORK)) - (%%ZHESVX FACT UPLO N-REF19369 NRHS-REF19370 A-REF19371 LDA-REF19372 - AF-REF19373 LDAF-REF19374 IPIV-REF19375 B-REF19376 LDB-REF19377 - X-REF19378 LDX-REF19379 RCOND-REF19380 FERR-REF19381 - BERR-REF19382 WORK-REF19383 LWORK-REF19384 RWORK-REF19385 - INFO-REF19386)))) - -(CFFI:DEFCFUN ("zhesvxx_" %%ZHESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19384 ':INT32) (NRHS-REF19385 ':INT32) + (LDA-REF19387 ':INT32) (LDAF-REF19389 ':INT32) + (LDB-REF19392 ':INT32) (LDX-REF19394 ':INT32) + (RCOND-REF19395 ':DOUBLE) + (LWORK-REF19399 ':INT32) (INFO-REF19401 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19384 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19385 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19387 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19389 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19392 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19394 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19395 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19399 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19401 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19386 A) (AF-REF19388 AF) + (IPIV-REF19390 IPIV) (B-REF19391 B) + (X-REF19393 X) (FERR-REF19396 FERR) + (BERR-REF19397 BERR) + (WORK-REF19398 WORK) + (RWORK-REF19400 RWORK)) + (%%ZHESVX FACT UPLO N-REF19384 NRHS-REF19385 A-REF19386 LDA-REF19387 + AF-REF19388 LDAF-REF19389 IPIV-REF19390 B-REF19391 LDB-REF19392 + X-REF19393 LDX-REF19394 RCOND-REF19395 FERR-REF19396 BERR-REF19397 + WORK-REF19398 LWORK-REF19399 RWORK-REF19400 INFO-REF19401)))) + +(CFFI:DEFCFUN ("zhesvxx_" %%ZHESVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -10099,45 +10095,45 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19389 ':INT32) (NRHS-REF19390 ':INT32) - (LDA-REF19392 ':INT32) (LDAF-REF19394 ':INT32) - (LDB-REF19399 ':INT32) (LDX-REF19401 ':INT32) - (RCOND-REF19402 ':DOUBLE) - (RPVGRW-REF19403 ':DOUBLE) - (N_ERR_BNDS-REF19405 ':INT32) - (NPARAMS-REF19408 ':INT32) - (INFO-REF19412 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19389 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19390 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19392 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19394 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19399 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19401 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19402 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF19403 :DOUBLE) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19405 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19408 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19412 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19391 A) (AF-REF19393 AF) - (IPIV-REF19395 IPIV) (S-REF19397 S) - (B-REF19398 B) (X-REF19400 X) - (BERR-REF19404 BERR) - (ERR_BNDS_NORM-REF19406 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19404 ':INT32) (NRHS-REF19405 ':INT32) + (LDA-REF19407 ':INT32) (LDAF-REF19409 ':INT32) + (LDB-REF19414 ':INT32) (LDX-REF19416 ':INT32) + (RCOND-REF19417 ':DOUBLE) + (RPVGRW-REF19418 ':DOUBLE) + (N_ERR_BNDS-REF19420 ':INT32) + (NPARAMS-REF19423 ':INT32) + (INFO-REF19427 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19404 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19405 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19407 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19409 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19414 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19416 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19417 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF19418 :DOUBLE) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF19420 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF19423 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19427 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19406 A) (AF-REF19408 AF) + (IPIV-REF19410 IPIV) (S-REF19412 S) + (B-REF19413 B) (X-REF19415 X) + (BERR-REF19419 BERR) + (ERR_BNDS_NORM-REF19421 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF19407 + (ERR_BNDS_COMP-REF19422 ERR_BNDS_COMP) - (PARAMS-REF19409 PARAMS) - (WORK-REF19410 WORK) - (RWORK-REF19411 RWORK)) - (%%ZHESVXX FACT UPLO N-REF19389 NRHS-REF19390 A-REF19391 LDA-REF19392 - AF-REF19393 LDAF-REF19394 IPIV-REF19395 EQUED S-REF19397 - B-REF19398 LDB-REF19399 X-REF19400 LDX-REF19401 RCOND-REF19402 - RPVGRW-REF19403 BERR-REF19404 N_ERR_BNDS-REF19405 - ERR_BNDS_NORM-REF19406 ERR_BNDS_COMP-REF19407 NPARAMS-REF19408 - PARAMS-REF19409 WORK-REF19410 RWORK-REF19411 INFO-REF19412)))) + (PARAMS-REF19424 PARAMS) + (WORK-REF19425 WORK) + (RWORK-REF19426 RWORK)) + (%%ZHESVXX FACT UPLO N-REF19404 NRHS-REF19405 A-REF19406 LDA-REF19407 + AF-REF19408 LDAF-REF19409 IPIV-REF19410 EQUED S-REF19412 B-REF19413 + LDB-REF19414 X-REF19415 LDX-REF19416 RCOND-REF19417 RPVGRW-REF19418 + BERR-REF19419 N_ERR_BNDS-REF19420 ERR_BNDS_NORM-REF19421 + ERR_BNDS_COMP-REF19422 NPARAMS-REF19423 PARAMS-REF19424 WORK-REF19425 + RWORK-REF19426 INFO-REF19427)))) (CFFI:DEFCFUN ("zheswapr_" %%ZHESWAPR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10158,17 +10154,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19414 ':INT32) (LDA-REF19416 ':INT32) - (I1-REF19417 ':INT32) (I2-REF19418 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19414 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19416 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF19417 :INT32) I1) - (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF19418 :INT32) I2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19415 A)) - (%%ZHESWAPR UPLO N-REF19414 A-REF19415 LDA-REF19416 I1-REF19417 - I2-REF19418)))) - -(CFFI:DEFCFUN ("zhetd2_" %%ZHETD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19429 ':INT32) (LDA-REF19431 ':INT32) + (I1-REF19432 ':INT32) (I2-REF19433 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19429 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19431 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF19432 :INT32) I1) + (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF19433 :INT32) I2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19430 A)) + (%%ZHESWAPR UPLO N-REF19429 A-REF19430 LDA-REF19431 I1-REF19432 + I2-REF19433)))) + +(CFFI:DEFCFUN ("zhetd2_" %%ZHETD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10199,17 +10195,17 @@ (COMMON-LISP:*)) TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19420 ':INT32) (LDA-REF19422 ':INT32) - (INFO-REF19426 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19420 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19422 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19426 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19421 A) (D-REF19423 D) - (E-REF19424 E) (TAU-REF19425 TAU)) - (%%ZHETD2 UPLO N-REF19420 A-REF19421 LDA-REF19422 D-REF19423 E-REF19424 - TAU-REF19425 INFO-REF19426)))) - -(CFFI:DEFCFUN ("zhetf2_" %%ZHETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19435 ':INT32) (LDA-REF19437 ':INT32) + (INFO-REF19441 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19435 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19437 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19441 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19436 A) (D-REF19438 D) + (E-REF19439 E) (TAU-REF19440 TAU)) + (%%ZHETD2 UPLO N-REF19435 A-REF19436 LDA-REF19437 D-REF19438 E-REF19439 + TAU-REF19440 INFO-REF19441)))) + +(CFFI:DEFCFUN ("zhetf2_" %%ZHETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10233,17 +10229,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19428 ':INT32) (LDA-REF19430 ':INT32) - (INFO-REF19432 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19428 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19430 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19432 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19429 A) (IPIV-REF19431 IPIV)) - (%%ZHETF2 UPLO N-REF19428 A-REF19429 LDA-REF19430 IPIV-REF19431 - INFO-REF19432)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19443 ':INT32) (LDA-REF19445 ':INT32) + (INFO-REF19447 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19443 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19445 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19447 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19444 A) (IPIV-REF19446 IPIV)) + (%%ZHETF2 UPLO N-REF19443 A-REF19444 LDA-REF19445 IPIV-REF19446 + INFO-REF19447)))) (CFFI:DEFCFUN ("zhetf2_rk_" %%ZHETF2_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10273,18 +10269,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19434 ':INT32) (LDA-REF19436 ':INT32) - (INFO-REF19439 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19434 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19436 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19439 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19435 A) (E-REF19437 E) - (IPIV-REF19438 IPIV)) - (%%ZHETF2_RK UPLO N-REF19434 A-REF19435 LDA-REF19436 E-REF19437 - IPIV-REF19438 INFO-REF19439)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19449 ':INT32) (LDA-REF19451 ':INT32) + (INFO-REF19454 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19449 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19451 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19454 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19450 A) (E-REF19452 E) + (IPIV-REF19453 IPIV)) + (%%ZHETF2_RK UPLO N-REF19449 A-REF19450 LDA-REF19451 E-REF19452 + IPIV-REF19453 INFO-REF19454)))) (CFFI:DEFCFUN ("zhetf2_rook_" %%ZHETF2_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10308,16 +10304,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19441 ':INT32) (LDA-REF19443 ':INT32) - (INFO-REF19445 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19441 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19443 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19445 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19442 A) (IPIV-REF19444 IPIV)) - (%%ZHETF2_ROOK UPLO N-REF19441 A-REF19442 LDA-REF19443 IPIV-REF19444 - INFO-REF19445)))) - -(CFFI:DEFCFUN ("zhetrd_" %%ZHETRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19456 ':INT32) (LDA-REF19458 ':INT32) + (INFO-REF19460 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19456 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19458 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19460 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19457 A) (IPIV-REF19459 IPIV)) + (%%ZHETF2_ROOK UPLO N-REF19456 A-REF19457 LDA-REF19458 IPIV-REF19459 + INFO-REF19460)))) + +(CFFI:DEFCFUN ("zhetrd_" %%ZHETRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10356,20 +10352,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19447 ':INT32) (LDA-REF19449 ':INT32) - (LWORK-REF19454 ':INT32) (INFO-REF19455 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19447 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19449 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19454 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19455 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19448 A) (D-REF19450 D) - (E-REF19451 E) (TAU-REF19452 TAU) - (WORK-REF19453 WORK)) - (%%ZHETRD UPLO N-REF19447 A-REF19448 LDA-REF19449 D-REF19450 E-REF19451 - TAU-REF19452 WORK-REF19453 LWORK-REF19454 INFO-REF19455)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19462 ':INT32) (LDA-REF19464 ':INT32) + (LWORK-REF19469 ':INT32) (INFO-REF19470 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19462 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19464 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19469 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19470 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19463 A) (D-REF19465 D) + (E-REF19466 E) (TAU-REF19467 TAU) + (WORK-REF19468 WORK)) + (%%ZHETRD UPLO N-REF19462 A-REF19463 LDA-REF19464 D-REF19465 E-REF19466 + TAU-REF19467 WORK-REF19468 LWORK-REF19469 INFO-REF19470)))) (CFFI:DEFCFUN ("zhetrd_2stage_" %%ZHETRD_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (UPLO :STRING) @@ -10419,24 +10415,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19458 ':INT32) (LDA-REF19460 ':INT32) - (LHOUS2-REF19465 ':INT32) - (LWORK-REF19467 ':INT32) (INFO-REF19468 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19458 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19460 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF19465 :INT32) LHOUS2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19467 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19468 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19459 A) (D-REF19461 D) - (E-REF19462 E) (TAU-REF19463 TAU) - (HOUS2-REF19464 HOUS2) - (WORK-REF19466 WORK)) - (%%ZHETRD_2STAGE VECT UPLO N-REF19458 A-REF19459 LDA-REF19460 D-REF19461 - E-REF19462 TAU-REF19463 HOUS2-REF19464 LHOUS2-REF19465 - WORK-REF19466 LWORK-REF19467 INFO-REF19468)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19473 ':INT32) (LDA-REF19475 ':INT32) + (LHOUS2-REF19480 ':INT32) + (LWORK-REF19482 ':INT32) (INFO-REF19483 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19473 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19475 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LHOUS2-REF19480 :INT32) LHOUS2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19482 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19483 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19474 A) (D-REF19476 D) + (E-REF19477 E) (TAU-REF19478 TAU) + (HOUS2-REF19479 HOUS2) + (WORK-REF19481 WORK)) + (%%ZHETRD_2STAGE VECT UPLO N-REF19473 A-REF19474 LDA-REF19475 D-REF19476 + E-REF19477 TAU-REF19478 HOUS2-REF19479 LHOUS2-REF19480 WORK-REF19481 + LWORK-REF19482 INFO-REF19483)))) (CFFI:DEFCFUN ("zhetrd_he2hb_" %%ZHETRD_HE2HB :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10479,23 +10475,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19470 ':INT32) (KD-REF19471 ':INT32) - (LDA-REF19473 ':INT32) (LDAB-REF19475 ':INT32) - (LWORK-REF19478 ':INT32) (INFO-REF19479 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19470 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19471 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19473 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19475 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19478 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19479 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19472 A) (AB-REF19474 AB) - (TAU-REF19476 TAU) - (WORK-REF19477 WORK)) - (%%ZHETRD_HE2HB UPLO N-REF19470 KD-REF19471 A-REF19472 LDA-REF19473 - AB-REF19474 LDAB-REF19475 TAU-REF19476 WORK-REF19477 - LWORK-REF19478 INFO-REF19479)))) - -(CFFI:DEFCFUN ("zhetrf_" %%ZHETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19485 ':INT32) (KD-REF19486 ':INT32) + (LDA-REF19488 ':INT32) (LDAB-REF19490 ':INT32) + (LWORK-REF19493 ':INT32) (INFO-REF19494 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19485 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF19486 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19488 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19490 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19493 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19494 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19487 A) (AB-REF19489 AB) + (TAU-REF19491 TAU) + (WORK-REF19492 WORK)) + (%%ZHETRD_HE2HB UPLO N-REF19485 KD-REF19486 A-REF19487 LDA-REF19488 + AB-REF19489 LDAB-REF19490 TAU-REF19491 WORK-REF19492 LWORK-REF19493 + INFO-REF19494)))) + +(CFFI:DEFCFUN ("zhetrf_" %%ZHETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10527,19 +10523,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19481 ':INT32) (LDA-REF19483 ':INT32) - (LWORK-REF19486 ':INT32) (INFO-REF19487 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19481 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19483 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19486 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19487 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19482 A) (IPIV-REF19484 IPIV) - (WORK-REF19485 WORK)) - (%%ZHETRF UPLO N-REF19481 A-REF19482 LDA-REF19483 IPIV-REF19484 - WORK-REF19485 LWORK-REF19486 INFO-REF19487)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19496 ':INT32) (LDA-REF19498 ':INT32) + (LWORK-REF19501 ':INT32) (INFO-REF19502 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19496 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19498 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19501 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19502 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19497 A) (IPIV-REF19499 IPIV) + (WORK-REF19500 WORK)) + (%%ZHETRF UPLO N-REF19496 A-REF19497 LDA-REF19498 IPIV-REF19499 + WORK-REF19500 LWORK-REF19501 INFO-REF19502)))) (CFFI:DEFCFUN ("zhetrf_aa_" %%ZHETRF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10571,19 +10567,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19489 ':INT32) (LDA-REF19491 ':INT32) - (LWORK-REF19494 ':INT32) (INFO-REF19495 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19489 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19491 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19494 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19495 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19490 A) (IPIV-REF19492 IPIV) - (WORK-REF19493 WORK)) - (%%ZHETRF_AA UPLO N-REF19489 A-REF19490 LDA-REF19491 IPIV-REF19492 - WORK-REF19493 LWORK-REF19494 INFO-REF19495)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19504 ':INT32) (LDA-REF19506 ':INT32) + (LWORK-REF19509 ':INT32) (INFO-REF19510 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19504 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19506 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19509 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19510 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19505 A) (IPIV-REF19507 IPIV) + (WORK-REF19508 WORK)) + (%%ZHETRF_AA UPLO N-REF19504 A-REF19505 LDA-REF19506 IPIV-REF19507 + WORK-REF19508 LWORK-REF19509 INFO-REF19510)))) (CFFI:DEFCFUN ("zhetrf_aa_2stage_" %%ZHETRF_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10629,24 +10625,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19497 ':INT32) (LDA-REF19499 ':INT32) - (LTB-REF19501 ':INT32) (LWORK-REF19505 ':INT32) - (INFO-REF19506 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19497 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19499 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19501 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19505 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19506 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19498 A) (TB-REF19500 TB) - (IPIV-REF19502 IPIV) - (IPIV2-REF19503 IPIV2) - (WORK-REF19504 WORK)) - (%%ZHETRF_AA_2STAGE UPLO N-REF19497 A-REF19498 LDA-REF19499 TB-REF19500 - LTB-REF19501 IPIV-REF19502 IPIV2-REF19503 - WORK-REF19504 LWORK-REF19505 INFO-REF19506)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19512 ':INT32) (LDA-REF19514 ':INT32) + (LTB-REF19516 ':INT32) (LWORK-REF19520 ':INT32) + (INFO-REF19521 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19512 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19514 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19516 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19520 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19521 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19513 A) (TB-REF19515 TB) + (IPIV-REF19517 IPIV) + (IPIV2-REF19518 IPIV2) + (WORK-REF19519 WORK)) + (%%ZHETRF_AA_2STAGE UPLO N-REF19512 A-REF19513 LDA-REF19514 TB-REF19515 + LTB-REF19516 IPIV-REF19517 IPIV2-REF19518 WORK-REF19519 LWORK-REF19520 + INFO-REF19521)))) (CFFI:DEFCFUN ("zhetrf_rk_" %%ZHETRF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10684,20 +10680,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19508 ':INT32) (LDA-REF19510 ':INT32) - (LWORK-REF19514 ':INT32) (INFO-REF19515 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19508 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19510 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19514 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19515 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19509 A) (E-REF19511 E) - (IPIV-REF19512 IPIV) - (WORK-REF19513 WORK)) - (%%ZHETRF_RK UPLO N-REF19508 A-REF19509 LDA-REF19510 E-REF19511 - IPIV-REF19512 WORK-REF19513 LWORK-REF19514 INFO-REF19515)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19523 ':INT32) (LDA-REF19525 ':INT32) + (LWORK-REF19529 ':INT32) (INFO-REF19530 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19523 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19525 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19529 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19530 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19524 A) (E-REF19526 E) + (IPIV-REF19527 IPIV) + (WORK-REF19528 WORK)) + (%%ZHETRF_RK UPLO N-REF19523 A-REF19524 LDA-REF19525 E-REF19526 + IPIV-REF19527 WORK-REF19528 LWORK-REF19529 INFO-REF19530)))) (CFFI:DEFCFUN ("zhetrf_rook_" %%ZHETRF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10729,18 +10725,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19517 ':INT32) (LDA-REF19519 ':INT32) - (LWORK-REF19522 ':INT32) (INFO-REF19523 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19517 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19519 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19522 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19523 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19518 A) (IPIV-REF19520 IPIV) - (WORK-REF19521 WORK)) - (%%ZHETRF_ROOK UPLO N-REF19517 A-REF19518 LDA-REF19519 IPIV-REF19520 - WORK-REF19521 LWORK-REF19522 INFO-REF19523)))) - -(CFFI:DEFCFUN ("zhetri_" %%ZHETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19532 ':INT32) (LDA-REF19534 ':INT32) + (LWORK-REF19537 ':INT32) (INFO-REF19538 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19532 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19534 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19537 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19538 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19533 A) (IPIV-REF19535 IPIV) + (WORK-REF19536 WORK)) + (%%ZHETRF_ROOK UPLO N-REF19532 A-REF19533 LDA-REF19534 IPIV-REF19535 + WORK-REF19536 LWORK-REF19537 INFO-REF19538)))) + +(CFFI:DEFCFUN ("zhetri_" %%ZHETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10770,17 +10766,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19525 ':INT32) (LDA-REF19527 ':INT32) - (INFO-REF19530 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19525 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19527 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19530 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19526 A) (IPIV-REF19528 IPIV) - (WORK-REF19529 WORK)) - (%%ZHETRI UPLO N-REF19525 A-REF19526 LDA-REF19527 IPIV-REF19528 - WORK-REF19529 INFO-REF19530)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19540 ':INT32) (LDA-REF19542 ':INT32) + (INFO-REF19545 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19540 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19542 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19545 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19541 A) (IPIV-REF19543 IPIV) + (WORK-REF19544 WORK)) + (%%ZHETRI UPLO N-REF19540 A-REF19541 LDA-REF19542 IPIV-REF19543 + WORK-REF19544 INFO-REF19545)))) -(CFFI:DEFCFUN ("zhetri2_" %%ZHETRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zhetri2_" %%ZHETRI2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10812,19 +10809,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19532 ':INT32) (LDA-REF19534 ':INT32) - (LWORK-REF19537 ':INT32) (INFO-REF19538 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19532 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19534 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19537 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19538 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19533 A) (IPIV-REF19535 IPIV) - (WORK-REF19536 WORK)) - (%%ZHETRI2 UPLO N-REF19532 A-REF19533 LDA-REF19534 IPIV-REF19535 - WORK-REF19536 LWORK-REF19537 INFO-REF19538)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19547 ':INT32) (LDA-REF19549 ':INT32) + (LWORK-REF19552 ':INT32) (INFO-REF19553 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19547 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19549 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19552 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19553 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19548 A) (IPIV-REF19550 IPIV) + (WORK-REF19551 WORK)) + (%%ZHETRI2 UPLO N-REF19547 A-REF19548 LDA-REF19549 IPIV-REF19550 + WORK-REF19551 LWORK-REF19552 INFO-REF19553)))) (CFFI:DEFCFUN ("zhetri2x_" %%ZHETRI2X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10856,19 +10853,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19540 ':INT32) (LDA-REF19542 ':INT32) - (NB-REF19545 ':INT32) (INFO-REF19546 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19540 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19542 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19545 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19546 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19541 A) (IPIV-REF19543 IPIV) - (WORK-REF19544 WORK)) - (%%ZHETRI2X UPLO N-REF19540 A-REF19541 LDA-REF19542 IPIV-REF19543 - WORK-REF19544 NB-REF19545 INFO-REF19546)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19555 ':INT32) (LDA-REF19557 ':INT32) + (NB-REF19560 ':INT32) (INFO-REF19561 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19555 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19557 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19560 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19561 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19556 A) (IPIV-REF19558 IPIV) + (WORK-REF19559 WORK)) + (%%ZHETRI2X UPLO N-REF19555 A-REF19556 LDA-REF19557 IPIV-REF19558 + WORK-REF19559 NB-REF19560 INFO-REF19561)))) (CFFI:DEFCFUN ("zhetri_3_" %%ZHETRI_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10906,20 +10903,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19548 ':INT32) (LDA-REF19550 ':INT32) - (LWORK-REF19554 ':INT32) (INFO-REF19555 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19548 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19550 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19554 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19555 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19549 A) (E-REF19551 E) - (IPIV-REF19552 IPIV) - (WORK-REF19553 WORK)) - (%%ZHETRI_3 UPLO N-REF19548 A-REF19549 LDA-REF19550 E-REF19551 - IPIV-REF19552 WORK-REF19553 LWORK-REF19554 INFO-REF19555)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19563 ':INT32) (LDA-REF19565 ':INT32) + (LWORK-REF19569 ':INT32) (INFO-REF19570 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19563 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19565 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19569 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19570 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19564 A) (E-REF19566 E) + (IPIV-REF19567 IPIV) + (WORK-REF19568 WORK)) + (%%ZHETRI_3 UPLO N-REF19563 A-REF19564 LDA-REF19565 E-REF19566 + IPIV-REF19567 WORK-REF19568 LWORK-REF19569 INFO-REF19570)))) (CFFI:DEFCFUN ("zhetri_3x_" %%ZHETRI_3X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10957,20 +10954,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19557 ':INT32) (LDA-REF19559 ':INT32) - (NB-REF19563 ':INT32) (INFO-REF19564 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19557 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19559 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19563 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19564 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19558 A) (E-REF19560 E) - (IPIV-REF19561 IPIV) - (WORK-REF19562 WORK)) - (%%ZHETRI_3X UPLO N-REF19557 A-REF19558 LDA-REF19559 E-REF19560 - IPIV-REF19561 WORK-REF19562 NB-REF19563 INFO-REF19564)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19572 ':INT32) (LDA-REF19574 ':INT32) + (NB-REF19578 ':INT32) (INFO-REF19579 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19572 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19574 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF19578 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19579 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19573 A) (E-REF19575 E) + (IPIV-REF19576 IPIV) + (WORK-REF19577 WORK)) + (%%ZHETRI_3X UPLO N-REF19572 A-REF19573 LDA-REF19574 E-REF19575 + IPIV-REF19576 WORK-REF19577 NB-REF19578 INFO-REF19579)))) (CFFI:DEFCFUN ("zhetri_rook_" %%ZHETRI_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11000,17 +10997,17 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19566 ':INT32) (LDA-REF19568 ':INT32) - (INFO-REF19571 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19566 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19568 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19571 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19567 A) (IPIV-REF19569 IPIV) - (WORK-REF19570 WORK)) - (%%ZHETRI_ROOK UPLO N-REF19566 A-REF19567 LDA-REF19568 IPIV-REF19569 - WORK-REF19570 INFO-REF19571)))) - -(CFFI:DEFCFUN ("zhetrs_" %%ZHETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19581 ':INT32) (LDA-REF19583 ':INT32) + (INFO-REF19586 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19581 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19583 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19586 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19582 A) (IPIV-REF19584 IPIV) + (WORK-REF19585 WORK)) + (%%ZHETRI_ROOK UPLO N-REF19581 A-REF19582 LDA-REF19583 IPIV-REF19584 + WORK-REF19585 INFO-REF19586)))) + +(CFFI:DEFCFUN ("zhetrs_" %%ZHETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11044,20 +11041,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19573 ':INT32) (NRHS-REF19574 ':INT32) - (LDA-REF19576 ':INT32) (LDB-REF19579 ':INT32) - (INFO-REF19580 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19573 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19574 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19576 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19579 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19580 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19575 A) (IPIV-REF19577 IPIV) - (B-REF19578 B)) - (%%ZHETRS UPLO N-REF19573 NRHS-REF19574 A-REF19575 LDA-REF19576 - IPIV-REF19577 B-REF19578 LDB-REF19579 INFO-REF19580)))) - -(CFFI:DEFCFUN ("zhetrs2_" %%ZHETRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19588 ':INT32) (NRHS-REF19589 ':INT32) + (LDA-REF19591 ':INT32) (LDB-REF19594 ':INT32) + (INFO-REF19595 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19588 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19589 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19591 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19594 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19595 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19590 A) (IPIV-REF19592 IPIV) + (B-REF19593 B)) + (%%ZHETRS UPLO N-REF19588 NRHS-REF19589 A-REF19590 LDA-REF19591 + IPIV-REF19592 B-REF19593 LDB-REF19594 INFO-REF19595)))) + +(CFFI:DEFCFUN ("zhetrs2_" %%ZHETRS2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11097,22 +11095,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19582 ':INT32) (NRHS-REF19583 ':INT32) - (LDA-REF19585 ':INT32) (LDB-REF19588 ':INT32) - (INFO-REF19590 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19582 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19583 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19585 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19588 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19590 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19584 A) (IPIV-REF19586 IPIV) - (B-REF19587 B) (WORK-REF19589 WORK)) - (%%ZHETRS2 UPLO N-REF19582 NRHS-REF19583 A-REF19584 LDA-REF19585 - IPIV-REF19586 B-REF19587 LDB-REF19588 WORK-REF19589 - INFO-REF19590)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19597 ':INT32) (NRHS-REF19598 ':INT32) + (LDA-REF19600 ':INT32) (LDB-REF19603 ':INT32) + (INFO-REF19605 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19597 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19598 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19600 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19603 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19605 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19599 A) (IPIV-REF19601 IPIV) + (B-REF19602 B) (WORK-REF19604 WORK)) + (%%ZHETRS2 UPLO N-REF19597 NRHS-REF19598 A-REF19599 LDA-REF19600 + IPIV-REF19601 B-REF19602 LDB-REF19603 WORK-REF19604 INFO-REF19605)))) (CFFI:DEFCFUN ("zhetrs_3_" %%ZHETRS_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11152,22 +11149,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19592 ':INT32) (NRHS-REF19593 ':INT32) - (LDA-REF19595 ':INT32) (LDB-REF19599 ':INT32) - (INFO-REF19600 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19592 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19593 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19595 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19599 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19600 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19594 A) (E-REF19596 E) - (IPIV-REF19597 IPIV) (B-REF19598 B)) - (%%ZHETRS_3 UPLO N-REF19592 NRHS-REF19593 A-REF19594 LDA-REF19595 - E-REF19596 IPIV-REF19597 B-REF19598 LDB-REF19599 - INFO-REF19600)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19607 ':INT32) (NRHS-REF19608 ':INT32) + (LDA-REF19610 ':INT32) (LDB-REF19614 ':INT32) + (INFO-REF19615 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19607 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19608 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19610 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19614 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19615 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19609 A) (E-REF19611 E) + (IPIV-REF19612 IPIV) (B-REF19613 B)) + (%%ZHETRS_3 UPLO N-REF19607 NRHS-REF19608 A-REF19609 LDA-REF19610 + E-REF19611 IPIV-REF19612 B-REF19613 LDB-REF19614 INFO-REF19615)))) (CFFI:DEFCFUN ("zhetrs_aa_" %%ZHETRS_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11209,23 +11205,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19602 ':INT32) (NRHS-REF19603 ':INT32) - (LDA-REF19605 ':INT32) (LDB-REF19608 ':INT32) - (LWORK-REF19610 ':INT32) (INFO-REF19611 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19602 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19603 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19605 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19608 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19610 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19611 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19604 A) (IPIV-REF19606 IPIV) - (B-REF19607 B) (WORK-REF19609 WORK)) - (%%ZHETRS_AA UPLO N-REF19602 NRHS-REF19603 A-REF19604 LDA-REF19605 - IPIV-REF19606 B-REF19607 LDB-REF19608 WORK-REF19609 - LWORK-REF19610 INFO-REF19611)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19617 ':INT32) (NRHS-REF19618 ':INT32) + (LDA-REF19620 ':INT32) (LDB-REF19623 ':INT32) + (LWORK-REF19625 ':INT32) (INFO-REF19626 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19617 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19618 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19620 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19623 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19625 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19626 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19619 A) (IPIV-REF19621 IPIV) + (B-REF19622 B) (WORK-REF19624 WORK)) + (%%ZHETRS_AA UPLO N-REF19617 NRHS-REF19618 A-REF19619 LDA-REF19620 + IPIV-REF19621 B-REF19622 LDB-REF19623 WORK-REF19624 LWORK-REF19625 + INFO-REF19626)))) (CFFI:DEFCFUN ("zhetrs_aa_2stage_" %%ZHETRS_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11273,25 +11269,25 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19613 ':INT32) (NRHS-REF19614 ':INT32) - (LDA-REF19616 ':INT32) (LTB-REF19618 ':INT32) - (LDB-REF19622 ':INT32) (INFO-REF19623 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19613 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19614 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19616 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19618 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19622 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19623 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19615 A) (TB-REF19617 TB) - (IPIV-REF19619 IPIV) - (IPIV2-REF19620 IPIV2) - (B-REF19621 B)) - (%%ZHETRS_AA_2STAGE UPLO N-REF19613 NRHS-REF19614 A-REF19615 LDA-REF19616 - TB-REF19617 LTB-REF19618 IPIV-REF19619 IPIV2-REF19620 - B-REF19621 LDB-REF19622 INFO-REF19623)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19628 ':INT32) (NRHS-REF19629 ':INT32) + (LDA-REF19631 ':INT32) (LTB-REF19633 ':INT32) + (LDB-REF19637 ':INT32) (INFO-REF19638 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19628 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19629 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19631 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF19633 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19637 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19638 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19630 A) (TB-REF19632 TB) + (IPIV-REF19634 IPIV) + (IPIV2-REF19635 IPIV2) + (B-REF19636 B)) + (%%ZHETRS_AA_2STAGE UPLO N-REF19628 NRHS-REF19629 A-REF19630 LDA-REF19631 + TB-REF19632 LTB-REF19633 IPIV-REF19634 IPIV2-REF19635 B-REF19636 + LDB-REF19637 INFO-REF19638)))) (CFFI:DEFCFUN ("zhetrs_rook_" %%ZHETRS_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11325,20 +11321,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19625 ':INT32) (NRHS-REF19626 ':INT32) - (LDA-REF19628 ':INT32) (LDB-REF19631 ':INT32) - (INFO-REF19632 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19625 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19626 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19628 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19631 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19632 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19627 A) (IPIV-REF19629 IPIV) - (B-REF19630 B)) - (%%ZHETRS_ROOK UPLO N-REF19625 NRHS-REF19626 A-REF19627 LDA-REF19628 - IPIV-REF19629 B-REF19630 LDB-REF19631 INFO-REF19632)))) - -(CFFI:DEFCFUN ("zhfrk_" %%ZHFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19640 ':INT32) (NRHS-REF19641 ':INT32) + (LDA-REF19643 ':INT32) (LDB-REF19646 ':INT32) + (INFO-REF19647 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19640 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19641 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19643 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19646 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19647 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19642 A) (IPIV-REF19644 IPIV) + (B-REF19645 B)) + (%%ZHETRS_ROOK UPLO N-REF19640 NRHS-REF19641 A-REF19642 LDA-REF19643 + IPIV-REF19644 B-REF19645 LDB-REF19646 INFO-REF19647)))) + +(CFFI:DEFCFUN ("zhfrk_" %%ZHFRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -11371,19 +11367,19 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) C)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19636 ':INT32) (K-REF19637 ':INT32) - (ALPHA-REF19638 ':DOUBLE) (LDA-REF19640 ':INT32) - (BETA-REF19641 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19636 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF19637 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19638 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19640 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19641 :DOUBLE) BETA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19639 A) (C-REF19642 C)) - (%%ZHFRK TRANSR UPLO TRANS N-REF19636 K-REF19637 ALPHA-REF19638 - A-REF19639 LDA-REF19640 BETA-REF19641 C-REF19642)))) - -(CFFI:DEFCFUN ("zhgeqz_" %%ZHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19651 ':INT32) (K-REF19652 ':INT32) + (ALPHA-REF19653 ':DOUBLE) (LDA-REF19655 ':INT32) + (BETA-REF19656 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19651 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF19652 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19653 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19655 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19656 :DOUBLE) BETA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19654 A) (C-REF19657 C)) + (%%ZHFRK TRANSR UPLO TRANS N-REF19651 K-REF19652 ALPHA-REF19653 + A-REF19654 LDA-REF19655 BETA-REF19656 C-REF19657)))) + +(CFFI:DEFCFUN ("zhgeqz_" %%ZHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPQ :STRING) @@ -11460,31 +11456,31 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19646 ':INT32) (ILO-REF19647 ':INT32) - (IHI-REF19648 ':INT32) (LDH-REF19650 ':INT32) - (LDT-REF19652 ':INT32) (LDQ-REF19656 ':INT32) - (LDZ-REF19658 ':INT32) (LWORK-REF19660 ':INT32) - (INFO-REF19662 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19646 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19647 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19648 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19650 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19652 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19656 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19658 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19660 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19662 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19649 H) (T-REF19651 T) - (ALPHA-REF19653 ALPHA) - (BETA-REF19654 BETA) (Q-REF19655 Q) - (Z-REF19657 Z) (WORK-REF19659 WORK) - (RWORK-REF19661 RWORK)) - (%%ZHGEQZ JOB COMPQ COMPZ N-REF19646 ILO-REF19647 IHI-REF19648 H-REF19649 - LDH-REF19650 T-REF19651 LDT-REF19652 ALPHA-REF19653 - BETA-REF19654 Q-REF19655 LDQ-REF19656 Z-REF19657 LDZ-REF19658 - WORK-REF19659 LWORK-REF19660 RWORK-REF19661 INFO-REF19662)))) - -(CFFI:DEFCFUN ("zhpcon_" %%ZHPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19661 ':INT32) (ILO-REF19662 ':INT32) + (IHI-REF19663 ':INT32) (LDH-REF19665 ':INT32) + (LDT-REF19667 ':INT32) (LDQ-REF19671 ':INT32) + (LDZ-REF19673 ':INT32) (LWORK-REF19675 ':INT32) + (INFO-REF19677 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19661 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19662 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19663 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19665 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF19667 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF19671 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19673 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19675 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19677 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19664 H) (T-REF19666 T) + (ALPHA-REF19668 ALPHA) + (BETA-REF19669 BETA) (Q-REF19670 Q) + (Z-REF19672 Z) (WORK-REF19674 WORK) + (RWORK-REF19676 RWORK)) + (%%ZHGEQZ JOB COMPQ COMPZ N-REF19661 ILO-REF19662 IHI-REF19663 H-REF19664 + LDH-REF19665 T-REF19666 LDT-REF19667 ALPHA-REF19668 BETA-REF19669 + Q-REF19670 LDQ-REF19671 Z-REF19672 LDZ-REF19673 WORK-REF19674 + LWORK-REF19675 RWORK-REF19676 INFO-REF19677)))) + +(CFFI:DEFCFUN ("zhpcon_" %%ZHPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11516,19 +11512,19 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19664 ':INT32) (ANORM-REF19667 ':DOUBLE) - (RCOND-REF19668 ':DOUBLE) (INFO-REF19670 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19664 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19667 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19668 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19670 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19665 AP) - (IPIV-REF19666 IPIV) - (WORK-REF19669 WORK)) - (%%ZHPCON UPLO N-REF19664 AP-REF19665 IPIV-REF19666 ANORM-REF19667 - RCOND-REF19668 WORK-REF19669 INFO-REF19670)))) - -(CFFI:DEFCFUN ("zhpev_" %%ZHPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19679 ':INT32) (ANORM-REF19682 ':DOUBLE) + (RCOND-REF19683 ':DOUBLE) (INFO-REF19685 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19679 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF19682 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19683 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19685 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19680 AP) + (IPIV-REF19681 IPIV) + (WORK-REF19684 WORK)) + (%%ZHPCON UPLO N-REF19679 AP-REF19680 IPIV-REF19681 ANORM-REF19682 + RCOND-REF19683 WORK-REF19684 INFO-REF19685)))) + +(CFFI:DEFCFUN ("zhpev_" %%ZHPEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -11568,18 +11564,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19673 ':INT32) (LDZ-REF19677 ':INT32) - (INFO-REF19680 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19673 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19677 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19680 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19674 AP) (W-REF19675 W) - (Z-REF19676 Z) (WORK-REF19678 WORK) - (RWORK-REF19679 RWORK)) - (%%ZHPEV JOBZ UPLO N-REF19673 AP-REF19674 W-REF19675 Z-REF19676 - LDZ-REF19677 WORK-REF19678 RWORK-REF19679 INFO-REF19680)))) - -(CFFI:DEFCFUN ("zhpevd_" %%ZHPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19688 ':INT32) (LDZ-REF19692 ':INT32) + (INFO-REF19695 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19688 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19692 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19695 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19689 AP) (W-REF19690 W) + (Z-REF19691 Z) (WORK-REF19693 WORK) + (RWORK-REF19694 RWORK)) + (%%ZHPEV JOBZ UPLO N-REF19688 AP-REF19689 W-REF19690 Z-REF19691 + LDZ-REF19692 WORK-REF19693 RWORK-REF19694 INFO-REF19695)))) + +(CFFI:DEFCFUN ("zhpevd_" %%ZHPEVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (UPLO :STRING) @@ -11632,25 +11628,25 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19683 ':INT32) (LDZ-REF19687 ':INT32) - (LWORK-REF19689 ':INT32) - (LRWORK-REF19691 ':INT32) - (LIWORK-REF19693 ':INT32) (INFO-REF19694 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19683 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19687 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19689 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19691 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19693 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19694 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19684 AP) (W-REF19685 W) - (Z-REF19686 Z) (WORK-REF19688 WORK) - (RWORK-REF19690 RWORK) - (IWORK-REF19692 IWORK)) - (%%ZHPEVD JOBZ UPLO N-REF19683 AP-REF19684 W-REF19685 Z-REF19686 - LDZ-REF19687 WORK-REF19688 LWORK-REF19689 RWORK-REF19690 - LRWORK-REF19691 IWORK-REF19692 LIWORK-REF19693 INFO-REF19694)))) - -(CFFI:DEFCFUN ("zhpevx_" %%ZHPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19698 ':INT32) (LDZ-REF19702 ':INT32) + (LWORK-REF19704 ':INT32) + (LRWORK-REF19706 ':INT32) + (LIWORK-REF19708 ':INT32) (INFO-REF19709 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19698 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19702 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19704 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19706 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19708 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19709 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19699 AP) (W-REF19700 W) + (Z-REF19701 Z) (WORK-REF19703 WORK) + (RWORK-REF19705 RWORK) + (IWORK-REF19707 IWORK)) + (%%ZHPEVD JOBZ UPLO N-REF19698 AP-REF19699 W-REF19700 Z-REF19701 + LDZ-REF19702 WORK-REF19703 LWORK-REF19704 RWORK-REF19705 LRWORK-REF19706 + IWORK-REF19707 LIWORK-REF19708 INFO-REF19709)))) + +(CFFI:DEFCFUN ("zhpevx_" %%ZHPEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -11716,31 +11712,31 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19698 ':INT32) (VL-REF19700 ':DOUBLE) - (VU-REF19701 ':DOUBLE) (IL-REF19702 ':INT32) - (IU-REF19703 ':INT32) (ABSTOL-REF19704 ':DOUBLE) - (M-REF19705 ':INT32) (LDZ-REF19708 ':INT32) - (INFO-REF19713 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19698 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19700 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19701 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19702 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19703 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19704 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19705 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19708 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19713 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19699 AP) (W-REF19706 W) - (Z-REF19707 Z) (WORK-REF19709 WORK) - (RWORK-REF19710 RWORK) - (IWORK-REF19711 IWORK) - (IFAIL-REF19712 IFAIL)) - (%%ZHPEVX JOBZ RANGE UPLO N-REF19698 AP-REF19699 VL-REF19700 VU-REF19701 - IL-REF19702 IU-REF19703 ABSTOL-REF19704 M-REF19705 W-REF19706 - Z-REF19707 LDZ-REF19708 WORK-REF19709 RWORK-REF19710 - IWORK-REF19711 IFAIL-REF19712 INFO-REF19713)))) - -(CFFI:DEFCFUN ("zhpgst_" %%ZHPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19713 ':INT32) (VL-REF19715 ':DOUBLE) + (VU-REF19716 ':DOUBLE) (IL-REF19717 ':INT32) + (IU-REF19718 ':INT32) (ABSTOL-REF19719 ':DOUBLE) + (M-REF19720 ':INT32) (LDZ-REF19723 ':INT32) + (INFO-REF19728 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19713 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19715 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19716 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19717 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19718 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19719 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19720 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19723 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19728 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19714 AP) (W-REF19721 W) + (Z-REF19722 Z) (WORK-REF19724 WORK) + (RWORK-REF19725 RWORK) + (IWORK-REF19726 IWORK) + (IFAIL-REF19727 IFAIL)) + (%%ZHPEVX JOBZ RANGE UPLO N-REF19713 AP-REF19714 VL-REF19715 VU-REF19716 + IL-REF19717 IU-REF19718 ABSTOL-REF19719 M-REF19720 W-REF19721 Z-REF19722 + LDZ-REF19723 WORK-REF19724 RWORK-REF19725 IWORK-REF19726 IFAIL-REF19727 + INFO-REF19728)))) + +(CFFI:DEFCFUN ("zhpgst_" %%ZHPGST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (UPLO :STRING) @@ -11765,16 +11761,16 @@ (COMMON-LISP:*)) BP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19714 ':INT32) (N-REF19716 ':INT32) - (INFO-REF19719 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19714 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19716 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19719 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19717 AP) (BP-REF19718 BP)) - (%%ZHPGST ITYPE-REF19714 UPLO N-REF19716 AP-REF19717 BP-REF19718 - INFO-REF19719)))) - -(CFFI:DEFCFUN ("zhpgv_" %%ZHPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19729 ':INT32) (N-REF19731 ':INT32) + (INFO-REF19734 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19729 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19731 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19734 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19732 AP) (BP-REF19733 BP)) + (%%ZHPGST ITYPE-REF19729 UPLO N-REF19731 AP-REF19732 BP-REF19733 + INFO-REF19734)))) + +(CFFI:DEFCFUN ("zhpgv_" %%ZHPGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -11822,21 +11818,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19720 ':INT32) (N-REF19723 ':INT32) - (LDZ-REF19728 ':INT32) (INFO-REF19731 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19720 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19723 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19728 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19731 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19724 AP) (BP-REF19725 BP) - (W-REF19726 W) (Z-REF19727 Z) - (WORK-REF19729 WORK) - (RWORK-REF19730 RWORK)) - (%%ZHPGV ITYPE-REF19720 JOBZ UPLO N-REF19723 AP-REF19724 BP-REF19725 - W-REF19726 Z-REF19727 LDZ-REF19728 WORK-REF19729 RWORK-REF19730 - INFO-REF19731)))) - -(CFFI:DEFCFUN ("zhpgvd_" %%ZHPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19735 ':INT32) (N-REF19738 ':INT32) + (LDZ-REF19743 ':INT32) (INFO-REF19746 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19735 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19738 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19743 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19746 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19739 AP) (BP-REF19740 BP) + (W-REF19741 W) (Z-REF19742 Z) + (WORK-REF19744 WORK) + (RWORK-REF19745 RWORK)) + (%%ZHPGV ITYPE-REF19735 JOBZ UPLO N-REF19738 AP-REF19739 BP-REF19740 + W-REF19741 Z-REF19742 LDZ-REF19743 WORK-REF19744 RWORK-REF19745 + INFO-REF19746)))) + +(CFFI:DEFCFUN ("zhpgvd_" %%ZHPGVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -11897,28 +11893,28 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19732 ':INT32) (N-REF19735 ':INT32) - (LDZ-REF19740 ':INT32) (LWORK-REF19742 ':INT32) - (LRWORK-REF19744 ':INT32) - (LIWORK-REF19746 ':INT32) (INFO-REF19747 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19732 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19735 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19740 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19742 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19744 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19746 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19747 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19736 AP) (BP-REF19737 BP) - (W-REF19738 W) (Z-REF19739 Z) - (WORK-REF19741 WORK) - (RWORK-REF19743 RWORK) - (IWORK-REF19745 IWORK)) - (%%ZHPGVD ITYPE-REF19732 JOBZ UPLO N-REF19735 AP-REF19736 BP-REF19737 - W-REF19738 Z-REF19739 LDZ-REF19740 WORK-REF19741 LWORK-REF19742 - RWORK-REF19743 LRWORK-REF19744 IWORK-REF19745 LIWORK-REF19746 - INFO-REF19747)))) - -(CFFI:DEFCFUN ("zhpgvx_" %%ZHPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19747 ':INT32) (N-REF19750 ':INT32) + (LDZ-REF19755 ':INT32) (LWORK-REF19757 ':INT32) + (LRWORK-REF19759 ':INT32) + (LIWORK-REF19761 ':INT32) (INFO-REF19762 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19747 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19750 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19755 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19757 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF19759 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF19761 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19762 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19751 AP) (BP-REF19752 BP) + (W-REF19753 W) (Z-REF19754 Z) + (WORK-REF19756 WORK) + (RWORK-REF19758 RWORK) + (IWORK-REF19760 IWORK)) + (%%ZHPGVD ITYPE-REF19747 JOBZ UPLO N-REF19750 AP-REF19751 BP-REF19752 + W-REF19753 Z-REF19754 LDZ-REF19755 WORK-REF19756 LWORK-REF19757 + RWORK-REF19758 LRWORK-REF19759 IWORK-REF19760 LIWORK-REF19761 + INFO-REF19762)))) + +(CFFI:DEFCFUN ("zhpgvx_" %%ZHPGVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ITYPE :POINTER) (JOBZ :STRING) @@ -11992,34 +11988,34 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19748 ':INT32) (N-REF19752 ':INT32) - (VL-REF19755 ':DOUBLE) (VU-REF19756 ':DOUBLE) - (IL-REF19757 ':INT32) (IU-REF19758 ':INT32) - (ABSTOL-REF19759 ':DOUBLE) (M-REF19760 ':INT32) - (LDZ-REF19763 ':INT32) (INFO-REF19768 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19748 :INT32) ITYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19752 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19755 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19756 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19757 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19758 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19759 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19760 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19763 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19768 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19753 AP) (BP-REF19754 BP) - (W-REF19761 W) (Z-REF19762 Z) - (WORK-REF19764 WORK) - (RWORK-REF19765 RWORK) - (IWORK-REF19766 IWORK) - (IFAIL-REF19767 IFAIL)) - (%%ZHPGVX ITYPE-REF19748 JOBZ RANGE UPLO N-REF19752 AP-REF19753 - BP-REF19754 VL-REF19755 VU-REF19756 IL-REF19757 IU-REF19758 - ABSTOL-REF19759 M-REF19760 W-REF19761 Z-REF19762 LDZ-REF19763 - WORK-REF19764 RWORK-REF19765 IWORK-REF19766 IFAIL-REF19767 - INFO-REF19768)))) - -(CFFI:DEFCFUN ("zhprfs_" %%ZHPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF19763 ':INT32) (N-REF19767 ':INT32) + (VL-REF19770 ':DOUBLE) (VU-REF19771 ':DOUBLE) + (IL-REF19772 ':INT32) (IU-REF19773 ':INT32) + (ABSTOL-REF19774 ':DOUBLE) (M-REF19775 ':INT32) + (LDZ-REF19778 ':INT32) (INFO-REF19783 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF19763 :INT32) ITYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19767 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF19770 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF19771 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF19772 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF19773 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF19774 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19775 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19778 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19783 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19768 AP) (BP-REF19769 BP) + (W-REF19776 W) (Z-REF19777 Z) + (WORK-REF19779 WORK) + (RWORK-REF19780 RWORK) + (IWORK-REF19781 IWORK) + (IFAIL-REF19782 IFAIL)) + (%%ZHPGVX ITYPE-REF19763 JOBZ RANGE UPLO N-REF19767 AP-REF19768 + BP-REF19769 VL-REF19770 VU-REF19771 IL-REF19772 IU-REF19773 + ABSTOL-REF19774 M-REF19775 W-REF19776 Z-REF19777 LDZ-REF19778 + WORK-REF19779 RWORK-REF19780 IWORK-REF19781 IFAIL-REF19782 + INFO-REF19783)))) + +(CFFI:DEFCFUN ("zhprfs_" %%ZHPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12085,26 +12081,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19770 ':INT32) (NRHS-REF19771 ':INT32) - (LDB-REF19776 ':INT32) (LDX-REF19778 ':INT32) - (INFO-REF19783 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19770 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19771 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19776 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19778 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19783 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19772 AP) (AFP-REF19773 AFP) - (IPIV-REF19774 IPIV) (B-REF19775 B) - (X-REF19777 X) (FERR-REF19779 FERR) - (BERR-REF19780 BERR) - (WORK-REF19781 WORK) - (RWORK-REF19782 RWORK)) - (%%ZHPRFS UPLO N-REF19770 NRHS-REF19771 AP-REF19772 AFP-REF19773 - IPIV-REF19774 B-REF19775 LDB-REF19776 X-REF19777 LDX-REF19778 - FERR-REF19779 BERR-REF19780 WORK-REF19781 RWORK-REF19782 - INFO-REF19783)))) - -(CFFI:DEFCFUN ("zhpsv_" %%ZHPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19785 ':INT32) (NRHS-REF19786 ':INT32) + (LDB-REF19791 ':INT32) (LDX-REF19793 ':INT32) + (INFO-REF19798 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19785 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19786 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19791 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19793 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19798 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19787 AP) (AFP-REF19788 AFP) + (IPIV-REF19789 IPIV) (B-REF19790 B) + (X-REF19792 X) (FERR-REF19794 FERR) + (BERR-REF19795 BERR) + (WORK-REF19796 WORK) + (RWORK-REF19797 RWORK)) + (%%ZHPRFS UPLO N-REF19785 NRHS-REF19786 AP-REF19787 AFP-REF19788 + IPIV-REF19789 B-REF19790 LDB-REF19791 X-REF19792 LDX-REF19793 + FERR-REF19794 BERR-REF19795 WORK-REF19796 RWORK-REF19797 + INFO-REF19798)))) + +(CFFI:DEFCFUN ("zhpsv_" %%ZHPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12136,18 +12132,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19785 ':INT32) (NRHS-REF19786 ':INT32) - (LDB-REF19790 ':INT32) (INFO-REF19791 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19785 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19786 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19790 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19791 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19787 AP) - (IPIV-REF19788 IPIV) (B-REF19789 B)) - (%%ZHPSV UPLO N-REF19785 NRHS-REF19786 AP-REF19787 IPIV-REF19788 - B-REF19789 LDB-REF19790 INFO-REF19791)))) - -(CFFI:DEFCFUN ("zhpsvx_" %%ZHPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19800 ':INT32) (NRHS-REF19801 ':INT32) + (LDB-REF19805 ':INT32) (INFO-REF19806 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19800 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19801 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19805 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19806 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19802 AP) + (IPIV-REF19803 IPIV) (B-REF19804 B)) + (%%ZHPSV UPLO N-REF19800 NRHS-REF19801 AP-REF19802 IPIV-REF19803 + B-REF19804 LDB-REF19805 INFO-REF19806)))) + +(CFFI:DEFCFUN ("zhpsvx_" %%ZHPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -12217,27 +12213,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19794 ':INT32) (NRHS-REF19795 ':INT32) - (LDB-REF19800 ':INT32) (LDX-REF19802 ':INT32) - (RCOND-REF19803 ':DOUBLE) (INFO-REF19808 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19794 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19795 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19800 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19802 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19803 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19808 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19796 AP) (AFP-REF19797 AFP) - (IPIV-REF19798 IPIV) (B-REF19799 B) - (X-REF19801 X) (FERR-REF19804 FERR) - (BERR-REF19805 BERR) - (WORK-REF19806 WORK) - (RWORK-REF19807 RWORK)) - (%%ZHPSVX FACT UPLO N-REF19794 NRHS-REF19795 AP-REF19796 AFP-REF19797 - IPIV-REF19798 B-REF19799 LDB-REF19800 X-REF19801 LDX-REF19802 - RCOND-REF19803 FERR-REF19804 BERR-REF19805 WORK-REF19806 - RWORK-REF19807 INFO-REF19808)))) - -(CFFI:DEFCFUN ("zhptrd_" %%ZHPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19809 ':INT32) (NRHS-REF19810 ':INT32) + (LDB-REF19815 ':INT32) (LDX-REF19817 ':INT32) + (RCOND-REF19818 ':DOUBLE) (INFO-REF19823 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19809 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19810 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19815 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF19817 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19818 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19823 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19811 AP) (AFP-REF19812 AFP) + (IPIV-REF19813 IPIV) (B-REF19814 B) + (X-REF19816 X) (FERR-REF19819 FERR) + (BERR-REF19820 BERR) + (WORK-REF19821 WORK) + (RWORK-REF19822 RWORK)) + (%%ZHPSVX FACT UPLO N-REF19809 NRHS-REF19810 AP-REF19811 AFP-REF19812 + IPIV-REF19813 B-REF19814 LDB-REF19815 X-REF19816 LDX-REF19817 + RCOND-REF19818 FERR-REF19819 BERR-REF19820 WORK-REF19821 RWORK-REF19822 + INFO-REF19823)))) + +(CFFI:DEFCFUN ("zhptrd_" %%ZHPTRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12266,15 +12262,15 @@ (COMMON-LISP:*)) TAU) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19810 ':INT32) (INFO-REF19815 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19810 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19815 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19811 AP) (D-REF19812 D) - (E-REF19813 E) (TAU-REF19814 TAU)) - (%%ZHPTRD UPLO N-REF19810 AP-REF19811 D-REF19812 E-REF19813 TAU-REF19814 - INFO-REF19815)))) - -(CFFI:DEFCFUN ("zhptrf_" %%ZHPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19825 ':INT32) (INFO-REF19830 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19825 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19830 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19826 AP) (D-REF19827 D) + (E-REF19828 E) (TAU-REF19829 TAU)) + (%%ZHPTRD UPLO N-REF19825 AP-REF19826 D-REF19827 E-REF19828 TAU-REF19829 + INFO-REF19830)))) + +(CFFI:DEFCFUN ("zhptrf_" %%ZHPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12296,14 +12292,14 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19817 ':INT32) (INFO-REF19820 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19817 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19820 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19818 AP) - (IPIV-REF19819 IPIV)) - (%%ZHPTRF UPLO N-REF19817 AP-REF19818 IPIV-REF19819 INFO-REF19820)))) - -(CFFI:DEFCFUN ("zhptri_" %%ZHPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19832 ':INT32) (INFO-REF19835 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19832 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19835 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19833 AP) + (IPIV-REF19834 IPIV)) + (%%ZHPTRF UPLO N-REF19832 AP-REF19833 IPIV-REF19834 INFO-REF19835)))) + +(CFFI:DEFCFUN ("zhptri_" %%ZHPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12331,16 +12327,16 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19822 ':INT32) (INFO-REF19826 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19822 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19826 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19823 AP) - (IPIV-REF19824 IPIV) - (WORK-REF19825 WORK)) - (%%ZHPTRI UPLO N-REF19822 AP-REF19823 IPIV-REF19824 WORK-REF19825 - INFO-REF19826)))) - -(CFFI:DEFCFUN ("zhptrs_" %%ZHPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19837 ':INT32) (INFO-REF19841 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19837 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19841 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19838 AP) + (IPIV-REF19839 IPIV) + (WORK-REF19840 WORK)) + (%%ZHPTRI UPLO N-REF19837 AP-REF19838 IPIV-REF19839 WORK-REF19840 + INFO-REF19841)))) + +(CFFI:DEFCFUN ("zhptrs_" %%ZHPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12372,18 +12368,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19828 ':INT32) (NRHS-REF19829 ':INT32) - (LDB-REF19833 ':INT32) (INFO-REF19834 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19828 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19829 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19833 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19834 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19830 AP) - (IPIV-REF19831 IPIV) (B-REF19832 B)) - (%%ZHPTRS UPLO N-REF19828 NRHS-REF19829 AP-REF19830 IPIV-REF19831 - B-REF19832 LDB-REF19833 INFO-REF19834)))) - -(CFFI:DEFCFUN ("zhsein_" %%ZHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19843 ':INT32) (NRHS-REF19844 ':INT32) + (LDB-REF19848 ':INT32) (INFO-REF19849 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19843 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19844 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19848 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19849 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF19845 AP) + (IPIV-REF19846 IPIV) (B-REF19847 B)) + (%%ZHPTRS UPLO N-REF19843 NRHS-REF19844 AP-REF19845 IPIV-REF19846 + B-REF19847 LDB-REF19848 INFO-REF19849)))) + +(CFFI:DEFCFUN ("zhsein_" %%ZHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (EIGSRC :STRING) @@ -12459,30 +12455,30 @@ (COMMON-LISP:*)) IFAILR) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19839 ':INT32) (LDH-REF19841 ':INT32) - (LDVL-REF19844 ':INT32) (LDVR-REF19846 ':INT32) - (MM-REF19847 ':INT32) (M-REF19848 ':INT32) - (INFO-REF19853 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19839 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19841 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF19844 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF19846 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF19847 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19848 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19853 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF19838 SELECT) - (H-REF19840 H) (W-REF19842 W) - (VL-REF19843 VL) (VR-REF19845 VR) - (WORK-REF19849 WORK) - (RWORK-REF19850 RWORK) - (IFAILL-REF19851 IFAILL) - (IFAILR-REF19852 IFAILR)) - (%%ZHSEIN SIDE EIGSRC INITV SELECT-REF19838 N-REF19839 H-REF19840 - LDH-REF19841 W-REF19842 VL-REF19843 LDVL-REF19844 VR-REF19845 - LDVR-REF19846 MM-REF19847 M-REF19848 WORK-REF19849 - RWORK-REF19850 IFAILL-REF19851 IFAILR-REF19852 INFO-REF19853)))) - -(CFFI:DEFCFUN ("zhseqr_" %%ZHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19854 ':INT32) (LDH-REF19856 ':INT32) + (LDVL-REF19859 ':INT32) (LDVR-REF19861 ':INT32) + (MM-REF19862 ':INT32) (M-REF19863 ':INT32) + (INFO-REF19868 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19854 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19856 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF19859 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF19861 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF19862 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19863 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19868 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF19853 SELECT) + (H-REF19855 H) (W-REF19857 W) + (VL-REF19858 VL) (VR-REF19860 VR) + (WORK-REF19864 WORK) + (RWORK-REF19865 RWORK) + (IFAILL-REF19866 IFAILL) + (IFAILR-REF19867 IFAILR)) + (%%ZHSEIN SIDE EIGSRC INITV SELECT-REF19853 N-REF19854 H-REF19855 + LDH-REF19856 W-REF19857 VL-REF19858 LDVL-REF19859 VR-REF19860 + LDVR-REF19861 MM-REF19862 M-REF19863 WORK-REF19864 RWORK-REF19865 + IFAILL-REF19866 IFAILR-REF19867 INFO-REF19868)))) + +(CFFI:DEFCFUN ("zhseqr_" %%ZHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPZ :STRING) @@ -12529,25 +12525,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19856 ':INT32) (ILO-REF19857 ':INT32) - (IHI-REF19858 ':INT32) (LDH-REF19860 ':INT32) - (LDZ-REF19863 ':INT32) (LWORK-REF19865 ':INT32) - (INFO-REF19866 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19856 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19857 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19858 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19860 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19863 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19865 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19866 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19859 H) (W-REF19861 W) - (Z-REF19862 Z) (WORK-REF19864 WORK)) - (%%ZHSEQR JOB COMPZ N-REF19856 ILO-REF19857 IHI-REF19858 H-REF19859 - LDH-REF19860 W-REF19861 Z-REF19862 LDZ-REF19863 WORK-REF19864 - LWORK-REF19865 INFO-REF19866)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19871 ':INT32) (ILO-REF19872 ':INT32) + (IHI-REF19873 ':INT32) (LDH-REF19875 ':INT32) + (LDZ-REF19878 ':INT32) (LWORK-REF19880 ':INT32) + (INFO-REF19881 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19871 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF19872 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF19873 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF19875 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF19878 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF19880 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19881 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF19874 H) (W-REF19876 W) + (Z-REF19877 Z) (WORK-REF19879 WORK)) + (%%ZHSEQR JOB COMPZ N-REF19871 ILO-REF19872 IHI-REF19873 H-REF19874 + LDH-REF19875 W-REF19876 Z-REF19877 LDZ-REF19878 WORK-REF19879 + LWORK-REF19880 INFO-REF19881)))) (CFFI:DEFCFUN ("zla_gbamv_" %%ZLA_GBAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :POINTER) (M :POINTER) @@ -12588,29 +12584,29 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF19867 ':INT32) (M-REF19868 ':INT32) - (N-REF19869 ':INT32) (KL-REF19870 ':INT32) - (KU-REF19871 ':INT32) (ALPHA-REF19872 ':DOUBLE) - (LDAB-REF19874 ':INT32) (INCX-REF19876 ':INT32) - (BETA-REF19877 ':DOUBLE) (INCY-REF19879 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF19867 :INT32) TRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19868 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19869 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19870 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19871 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19872 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19874 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19876 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19877 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19879 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19873 AB) (X-REF19875 X) - (Y-REF19878 Y)) - (%%ZLA_GBAMV TRANS-REF19867 M-REF19868 N-REF19869 KL-REF19870 KU-REF19871 - ALPHA-REF19872 AB-REF19873 LDAB-REF19874 X-REF19875 - INCX-REF19876 BETA-REF19877 Y-REF19878 INCY-REF19879)))) + (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF19882 ':INT32) (M-REF19883 ':INT32) + (N-REF19884 ':INT32) (KL-REF19885 ':INT32) + (KU-REF19886 ':INT32) (ALPHA-REF19887 ':DOUBLE) + (LDAB-REF19889 ':INT32) (INCX-REF19891 ':INT32) + (BETA-REF19892 ':DOUBLE) (INCY-REF19894 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF19882 :INT32) TRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19883 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19884 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19885 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19886 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19887 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19889 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19891 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19892 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19894 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19888 AB) (X-REF19890 X) + (Y-REF19893 Y)) + (%%ZLA_GBAMV TRANS-REF19882 M-REF19883 N-REF19884 KL-REF19885 KU-REF19886 + ALPHA-REF19887 AB-REF19888 LDAB-REF19889 X-REF19890 INCX-REF19891 + BETA-REF19892 Y-REF19893 INCY-REF19894)))) (CFFI:DEFCFUN ("zla_gbrcond_c_" %%ZLA_GBRCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (TRANS :STRING) (N :POINTER) @@ -12663,28 +12659,27 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19881 ':INT32) (KL-REF19882 ':INT32) - (KU-REF19883 ':INT32) (LDAB-REF19885 ':INT32) - (LDAFB-REF19887 ':INT32) - (CAPPLY-REF19890 ':INT32) (INFO-REF19891 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19881 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19882 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19883 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19885 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19887 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF19890 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19891 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19884 AB) (AFB-REF19886 AFB) - (IPIV-REF19888 IPIV) (C-REF19889 C) - (WORK-REF19892 WORK) - (RWORK-REF19893 RWORK)) - (%%ZLA_GBRCOND_C TRANS N-REF19881 KL-REF19882 KU-REF19883 AB-REF19884 - LDAB-REF19885 AFB-REF19886 LDAFB-REF19887 IPIV-REF19888 - C-REF19889 CAPPLY-REF19890 INFO-REF19891 WORK-REF19892 - RWORK-REF19893)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19896 ':INT32) (KL-REF19897 ':INT32) + (KU-REF19898 ':INT32) (LDAB-REF19900 ':INT32) + (LDAFB-REF19902 ':INT32) + (CAPPLY-REF19905 ':INT32) (INFO-REF19906 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19896 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19897 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19898 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19900 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19902 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF19905 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19906 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19899 AB) (AFB-REF19901 AFB) + (IPIV-REF19903 IPIV) (C-REF19904 C) + (WORK-REF19907 WORK) + (RWORK-REF19908 RWORK)) + (%%ZLA_GBRCOND_C TRANS N-REF19896 KL-REF19897 KU-REF19898 AB-REF19899 + LDAB-REF19900 AFB-REF19901 LDAFB-REF19902 IPIV-REF19903 C-REF19904 + CAPPLY-REF19905 INFO-REF19906 WORK-REF19907 RWORK-REF19908)))) (CFFI:DEFCFUN ("zla_gbrcond_x_" %%ZLA_GBRCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (TRANS :STRING) (N :POINTER) @@ -12737,25 +12732,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19895 ':INT32) (KL-REF19896 ':INT32) - (KU-REF19897 ':INT32) (LDAB-REF19899 ':INT32) - (LDAFB-REF19901 ':INT32) (INFO-REF19904 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19895 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19896 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19897 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19899 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19901 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19904 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19898 AB) (AFB-REF19900 AFB) - (IPIV-REF19902 IPIV) (X-REF19903 X) - (WORK-REF19905 WORK) - (RWORK-REF19906 RWORK)) - (%%ZLA_GBRCOND_X TRANS N-REF19895 KL-REF19896 KU-REF19897 AB-REF19898 - LDAB-REF19899 AFB-REF19900 LDAFB-REF19901 IPIV-REF19902 - X-REF19903 INFO-REF19904 WORK-REF19905 RWORK-REF19906)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19910 ':INT32) (KL-REF19911 ':INT32) + (KU-REF19912 ':INT32) (LDAB-REF19914 ':INT32) + (LDAFB-REF19916 ':INT32) (INFO-REF19919 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19910 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19911 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19912 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19914 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19916 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19919 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19913 AB) (AFB-REF19915 AFB) + (IPIV-REF19917 IPIV) (X-REF19918 X) + (WORK-REF19920 WORK) + (RWORK-REF19921 RWORK)) + (%%ZLA_GBRCOND_X TRANS N-REF19910 KL-REF19911 KU-REF19912 AB-REF19913 + LDAB-REF19914 AFB-REF19915 LDAFB-REF19916 IPIV-REF19917 X-REF19918 + INFO-REF19919 WORK-REF19920 RWORK-REF19921)))) (CFFI:DEFCFUN ("zla_gbrfsx_extended_" %%ZLA_GBRFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (TRANS_TYPE :POINTER) @@ -12869,62 +12864,59 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF19907 ':INT32) - (TRANS_TYPE-REF19908 ':INT32) - (N-REF19909 ':INT32) (KL-REF19910 ':INT32) - (KU-REF19911 ':INT32) (NRHS-REF19912 ':INT32) - (LDAB-REF19914 ':INT32) (LDAFB-REF19916 ':INT32) - (COLEQU-REF19918 ':INT32) (LDB-REF19921 ':INT32) - (LDY-REF19923 ':INT32) (N_NORMS-REF19925 ':INT32) - (RCOND-REF19932 ':DOUBLE) - (ITHRESH-REF19933 ':INT32) - (RTHRESH-REF19934 ':DOUBLE) - (DZ_UB-REF19935 ':DOUBLE) - (IGNORE_CWISE-REF19936 ':INT32) - (INFO-REF19937 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF19907 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF19908 :INT32) TRANS_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19909 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19910 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19911 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19912 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19914 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19916 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF19918 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19921 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF19923 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF19925 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19932 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF19933 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF19934 :DOUBLE) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF19935 :DOUBLE) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF19936 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19937 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19913 AB) (AFB-REF19915 AFB) - (IPIV-REF19917 IPIV) (C-REF19919 C) - (B-REF19920 B) (Y-REF19922 Y) - (BERR_OUT-REF19924 BERR_OUT) - (ERR_BNDS_NORM-REF19926 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF19922 ':INT32) + (TRANS_TYPE-REF19923 ':INT32) + (N-REF19924 ':INT32) (KL-REF19925 ':INT32) + (KU-REF19926 ':INT32) (NRHS-REF19927 ':INT32) + (LDAB-REF19929 ':INT32) (LDAFB-REF19931 ':INT32) + (COLEQU-REF19933 ':INT32) (LDB-REF19936 ':INT32) + (LDY-REF19938 ':INT32) (N_NORMS-REF19940 ':INT32) + (RCOND-REF19947 ':DOUBLE) + (ITHRESH-REF19948 ':INT32) + (RTHRESH-REF19949 ':DOUBLE) + (DZ_UB-REF19950 ':DOUBLE) + (IGNORE_CWISE-REF19951 ':INT32) + (INFO-REF19952 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF19922 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF19923 :INT32) TRANS_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19924 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19925 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19926 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19927 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19929 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19931 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF19933 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19936 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF19938 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF19940 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF19947 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF19948 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF19949 :DOUBLE) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF19950 :DOUBLE) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF19951 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19952 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19928 AB) (AFB-REF19930 AFB) + (IPIV-REF19932 IPIV) (C-REF19934 C) + (B-REF19935 B) (Y-REF19937 Y) + (BERR_OUT-REF19939 BERR_OUT) + (ERR_BNDS_NORM-REF19941 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF19927 + (ERR_BNDS_COMP-REF19942 ERR_BNDS_COMP) - (RES-REF19928 RES) - (AYB-REF19929 AYB) (DY-REF19930 DY) - (Y_TAIL-REF19931 Y_TAIL)) - (%%ZLA_GBRFSX_EXTENDED PREC_TYPE-REF19907 TRANS_TYPE-REF19908 N-REF19909 - KL-REF19910 KU-REF19911 NRHS-REF19912 AB-REF19913 - LDAB-REF19914 AFB-REF19915 LDAFB-REF19916 - IPIV-REF19917 COLEQU-REF19918 C-REF19919 - B-REF19920 LDB-REF19921 Y-REF19922 LDY-REF19923 - BERR_OUT-REF19924 N_NORMS-REF19925 - ERR_BNDS_NORM-REF19926 ERR_BNDS_COMP-REF19927 - RES-REF19928 AYB-REF19929 DY-REF19930 - Y_TAIL-REF19931 RCOND-REF19932 ITHRESH-REF19933 - RTHRESH-REF19934 DZ_UB-REF19935 - IGNORE_CWISE-REF19936 INFO-REF19937)))) + (RES-REF19943 RES) + (AYB-REF19944 AYB) (DY-REF19945 DY) + (Y_TAIL-REF19946 Y_TAIL)) + (%%ZLA_GBRFSX_EXTENDED PREC_TYPE-REF19922 TRANS_TYPE-REF19923 N-REF19924 + KL-REF19925 KU-REF19926 NRHS-REF19927 AB-REF19928 LDAB-REF19929 + AFB-REF19930 LDAFB-REF19931 IPIV-REF19932 COLEQU-REF19933 C-REF19934 + B-REF19935 LDB-REF19936 Y-REF19937 LDY-REF19938 BERR_OUT-REF19939 + N_NORMS-REF19940 ERR_BNDS_NORM-REF19941 ERR_BNDS_COMP-REF19942 + RES-REF19943 AYB-REF19944 DY-REF19945 Y_TAIL-REF19946 RCOND-REF19947 + ITHRESH-REF19948 RTHRESH-REF19949 DZ_UB-REF19950 IGNORE_CWISE-REF19951 + INFO-REF19952)))) (CFFI:DEFCFUN ("zla_gbrpvgrw_" %%ZLA_GBRPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (N :POINTER) (KL :POINTER) @@ -12953,21 +12945,21 @@ (COMMON-LISP:*)) AFB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19938 ':INT32) (KL-REF19939 ':INT32) - (KU-REF19940 ':INT32) (NCOLS-REF19941 ':INT32) - (LDAB-REF19943 ':INT32) (LDAFB-REF19945 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19938 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19939 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19940 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF19941 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19943 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19945 :INT32) LDAFB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19942 AB) (AFB-REF19944 AFB)) - (%%ZLA_GBRPVGRW N-REF19938 KL-REF19939 KU-REF19940 NCOLS-REF19941 - AB-REF19942 LDAB-REF19943 AFB-REF19944 LDAFB-REF19945)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19953 ':INT32) (KL-REF19954 ':INT32) + (KU-REF19955 ':INT32) (NCOLS-REF19956 ':INT32) + (LDAB-REF19958 ':INT32) (LDAFB-REF19960 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19953 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF19954 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF19955 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF19956 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF19958 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF19960 :INT32) LDAFB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF19957 AB) (AFB-REF19959 AFB)) + (%%ZLA_GBRPVGRW N-REF19953 KL-REF19954 KU-REF19955 NCOLS-REF19956 + AB-REF19957 LDAB-REF19958 AFB-REF19959 LDAFB-REF19960)))) (CFFI:DEFCFUN ("zla_geamv_" %%ZLA_GEAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :POINTER) (M :POINTER) @@ -13003,26 +12995,26 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF19946 ':INT32) (M-REF19947 ':INT32) - (N-REF19948 ':INT32) (ALPHA-REF19949 ':DOUBLE) - (LDA-REF19951 ':INT32) (INCX-REF19953 ':INT32) - (BETA-REF19954 ':DOUBLE) (INCY-REF19956 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF19946 :INT32) TRANS) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19947 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19948 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19949 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19951 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19953 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19954 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19956 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19950 A) (X-REF19952 X) - (Y-REF19955 Y)) - (%%ZLA_GEAMV TRANS-REF19946 M-REF19947 N-REF19948 ALPHA-REF19949 - A-REF19950 LDA-REF19951 X-REF19952 INCX-REF19953 - BETA-REF19954 Y-REF19955 INCY-REF19956)))) + (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF19961 ':INT32) (M-REF19962 ':INT32) + (N-REF19963 ':INT32) (ALPHA-REF19964 ':DOUBLE) + (LDA-REF19966 ':INT32) (INCX-REF19968 ':INT32) + (BETA-REF19969 ':DOUBLE) (INCY-REF19971 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF19961 :INT32) TRANS) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF19962 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19963 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF19964 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19966 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF19968 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF19969 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF19971 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19965 A) (X-REF19967 X) + (Y-REF19970 Y)) + (%%ZLA_GEAMV TRANS-REF19961 M-REF19962 N-REF19963 ALPHA-REF19964 + A-REF19965 LDA-REF19966 X-REF19967 INCX-REF19968 BETA-REF19969 + Y-REF19970 INCY-REF19971)))) (CFFI:DEFCFUN ("zla_gercond_c_" %%ZLA_GERCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (TRANS :STRING) (N :POINTER) @@ -13070,24 +13062,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19958 ':INT32) (LDA-REF19960 ':INT32) - (LDAF-REF19962 ':INT32) (CAPPLY-REF19965 ':INT32) - (INFO-REF19966 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19958 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19960 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19962 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF19965 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19966 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19959 A) (AF-REF19961 AF) - (IPIV-REF19963 IPIV) (C-REF19964 C) - (WORK-REF19967 WORK) - (RWORK-REF19968 RWORK)) - (%%ZLA_GERCOND_C TRANS N-REF19958 A-REF19959 LDA-REF19960 AF-REF19961 - LDAF-REF19962 IPIV-REF19963 C-REF19964 CAPPLY-REF19965 - INFO-REF19966 WORK-REF19967 RWORK-REF19968)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19973 ':INT32) (LDA-REF19975 ':INT32) + (LDAF-REF19977 ':INT32) (CAPPLY-REF19980 ':INT32) + (INFO-REF19981 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19973 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19975 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19977 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF19980 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19981 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19974 A) (AF-REF19976 AF) + (IPIV-REF19978 IPIV) (C-REF19979 C) + (WORK-REF19982 WORK) + (RWORK-REF19983 RWORK)) + (%%ZLA_GERCOND_C TRANS N-REF19973 A-REF19974 LDA-REF19975 AF-REF19976 + LDAF-REF19977 IPIV-REF19978 C-REF19979 CAPPLY-REF19980 INFO-REF19981 + WORK-REF19982 RWORK-REF19983)))) (CFFI:DEFCFUN ("zla_gercond_x_" %%ZLA_GERCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (TRANS :STRING) (N :POINTER) @@ -13136,22 +13128,22 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19970 ':INT32) (LDA-REF19972 ':INT32) - (LDAF-REF19974 ':INT32) (INFO-REF19977 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19970 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19972 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19974 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19977 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19971 A) (AF-REF19973 AF) - (IPIV-REF19975 IPIV) (X-REF19976 X) - (WORK-REF19978 WORK) - (RWORK-REF19979 RWORK)) - (%%ZLA_GERCOND_X TRANS N-REF19970 A-REF19971 LDA-REF19972 AF-REF19973 - LDAF-REF19974 IPIV-REF19975 X-REF19976 INFO-REF19977 - WORK-REF19978 RWORK-REF19979)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF19985 ':INT32) (LDA-REF19987 ':INT32) + (LDAF-REF19989 ':INT32) (INFO-REF19992 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19985 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19987 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19989 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF19992 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19986 A) (AF-REF19988 AF) + (IPIV-REF19990 IPIV) (X-REF19991 X) + (WORK-REF19993 WORK) + (RWORK-REF19994 RWORK)) + (%%ZLA_GERCOND_X TRANS N-REF19985 A-REF19986 LDA-REF19987 AF-REF19988 + LDAF-REF19989 IPIV-REF19990 X-REF19991 INFO-REF19992 WORK-REF19993 + RWORK-REF19994)))) (CFFI:DEFCFUN ("zla_gerfsx_extended_" %%ZLA_GERFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (TRANS_TYPE :POINTER) @@ -13260,56 +13252,53 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF19980 ':INT32) - (TRANS_TYPE-REF19981 ':INT32) - (N-REF19982 ':INT32) (NRHS-REF19983 ':INT32) - (LDA-REF19985 ':INT32) (LDAF-REF19987 ':INT32) - (COLEQU-REF19989 ':INT32) (LDB-REF19992 ':INT32) - (LDY-REF19994 ':INT32) (N_NORMS-REF19996 ':INT32) - (RCOND-REF20003 ':DOUBLE) - (ITHRESH-REF20004 ':INT32) - (RTHRESH-REF20005 ':DOUBLE) - (DZ_UB-REF20006 ':DOUBLE) - (IGNORE_CWISE-REF20007 ':INT32) - (INFO-REF20008 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF19980 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF19981 :INT32) TRANS_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19982 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19983 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF19985 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF19987 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF19989 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF19992 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF19994 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF19996 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20003 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20004 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20005 :DOUBLE) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20006 :DOUBLE) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20007 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20008 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19984 A) (AF-REF19986 AF) - (IPIV-REF19988 IPIV) (C-REF19990 C) - (B-REF19991 B) (Y-REF19993 Y) - (BERR_OUT-REF19995 BERR_OUT) - (ERRS_N-REF19997 ERRS_N) - (ERRS_C-REF19998 ERRS_C) - (RES-REF19999 RES) - (AYB-REF20000 AYB) (DY-REF20001 DY) - (Y_TAIL-REF20002 Y_TAIL)) - (%%ZLA_GERFSX_EXTENDED PREC_TYPE-REF19980 TRANS_TYPE-REF19981 N-REF19982 - NRHS-REF19983 A-REF19984 LDA-REF19985 AF-REF19986 - LDAF-REF19987 IPIV-REF19988 COLEQU-REF19989 - C-REF19990 B-REF19991 LDB-REF19992 Y-REF19993 - LDY-REF19994 BERR_OUT-REF19995 N_NORMS-REF19996 - ERRS_N-REF19997 ERRS_C-REF19998 RES-REF19999 - AYB-REF20000 DY-REF20001 Y_TAIL-REF20002 - RCOND-REF20003 ITHRESH-REF20004 RTHRESH-REF20005 - DZ_UB-REF20006 IGNORE_CWISE-REF20007 - INFO-REF20008)))) + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF19995 ':INT32) + (TRANS_TYPE-REF19996 ':INT32) + (N-REF19997 ':INT32) (NRHS-REF19998 ':INT32) + (LDA-REF20000 ':INT32) (LDAF-REF20002 ':INT32) + (COLEQU-REF20004 ':INT32) (LDB-REF20007 ':INT32) + (LDY-REF20009 ':INT32) (N_NORMS-REF20011 ':INT32) + (RCOND-REF20018 ':DOUBLE) + (ITHRESH-REF20019 ':INT32) + (RTHRESH-REF20020 ':DOUBLE) + (DZ_UB-REF20021 ':DOUBLE) + (IGNORE_CWISE-REF20022 ':INT32) + (INFO-REF20023 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF19995 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF19996 :INT32) TRANS_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF19997 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF19998 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20000 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20002 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20004 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20007 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20009 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20011 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20018 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20019 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20020 :DOUBLE) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20021 :DOUBLE) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20022 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20023 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF19999 A) (AF-REF20001 AF) + (IPIV-REF20003 IPIV) (C-REF20005 C) + (B-REF20006 B) (Y-REF20008 Y) + (BERR_OUT-REF20010 BERR_OUT) + (ERRS_N-REF20012 ERRS_N) + (ERRS_C-REF20013 ERRS_C) + (RES-REF20014 RES) + (AYB-REF20015 AYB) (DY-REF20016 DY) + (Y_TAIL-REF20017 Y_TAIL)) + (%%ZLA_GERFSX_EXTENDED PREC_TYPE-REF19995 TRANS_TYPE-REF19996 N-REF19997 + NRHS-REF19998 A-REF19999 LDA-REF20000 AF-REF20001 LDAF-REF20002 + IPIV-REF20003 COLEQU-REF20004 C-REF20005 B-REF20006 LDB-REF20007 + Y-REF20008 LDY-REF20009 BERR_OUT-REF20010 N_NORMS-REF20011 + ERRS_N-REF20012 ERRS_C-REF20013 RES-REF20014 AYB-REF20015 DY-REF20016 + Y_TAIL-REF20017 RCOND-REF20018 ITHRESH-REF20019 RTHRESH-REF20020 + DZ_UB-REF20021 IGNORE_CWISE-REF20022 INFO-REF20023)))) (CFFI:DEFCFUN ("zla_gerpvgrw_" %%ZLA_GERPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (N :POINTER) (NCOLS :POINTER) @@ -13334,18 +13323,18 @@ (COMMON-LISP:*)) AF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20009 ':INT32) (NCOLS-REF20010 ':INT32) - (LDA-REF20012 ':INT32) (LDAF-REF20014 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20009 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF20010 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20012 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20014 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20011 A) (AF-REF20013 AF)) - (%%ZLA_GERPVGRW N-REF20009 NCOLS-REF20010 A-REF20011 LDA-REF20012 - AF-REF20013 LDAF-REF20014)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20024 ':INT32) (NCOLS-REF20025 ':INT32) + (LDA-REF20027 ':INT32) (LDAF-REF20029 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20024 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF20025 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20027 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20029 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20026 A) (AF-REF20028 AF)) + (%%ZLA_GERPVGRW N-REF20024 NCOLS-REF20025 A-REF20026 LDA-REF20027 + AF-REF20028 LDAF-REF20029)))) (CFFI:DEFCFUN ("zla_heamv_" %%ZLA_HEAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :POINTER) (N :POINTER) @@ -13379,25 +13368,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF20015 ':INT32) (N-REF20016 ':INT32) - (ALPHA-REF20017 ':DOUBLE) (LDA-REF20019 ':INT32) - (INCX-REF20021 ':INT32) (BETA-REF20022 ':DOUBLE) - (INCY-REF20024 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF20015 :INT32) UPLO) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20016 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20017 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20019 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20021 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20022 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20024 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20018 A) (X-REF20020 X) - (Y-REF20023 Y)) - (%%ZLA_HEAMV UPLO-REF20015 N-REF20016 ALPHA-REF20017 A-REF20018 - LDA-REF20019 X-REF20020 INCX-REF20021 BETA-REF20022 - Y-REF20023 INCY-REF20024)))) + (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF20030 ':INT32) (N-REF20031 ':INT32) + (ALPHA-REF20032 ':DOUBLE) (LDA-REF20034 ':INT32) + (INCX-REF20036 ':INT32) (BETA-REF20037 ':DOUBLE) + (INCY-REF20039 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF20030 :INT32) UPLO) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20031 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20032 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20034 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20036 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20037 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20039 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20033 A) (X-REF20035 X) + (Y-REF20038 Y)) + (%%ZLA_HEAMV UPLO-REF20030 N-REF20031 ALPHA-REF20032 A-REF20033 + LDA-REF20034 X-REF20035 INCX-REF20036 BETA-REF20037 Y-REF20038 + INCY-REF20039)))) (CFFI:DEFCFUN ("zla_hercond_c_" %%ZLA_HERCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -13445,24 +13434,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20026 ':INT32) (LDA-REF20028 ':INT32) - (LDAF-REF20030 ':INT32) (CAPPLY-REF20033 ':INT32) - (INFO-REF20034 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20026 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20028 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20030 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20033 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20034 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20027 A) (AF-REF20029 AF) - (IPIV-REF20031 IPIV) (C-REF20032 C) - (WORK-REF20035 WORK) - (RWORK-REF20036 RWORK)) - (%%ZLA_HERCOND_C UPLO N-REF20026 A-REF20027 LDA-REF20028 AF-REF20029 - LDAF-REF20030 IPIV-REF20031 C-REF20032 CAPPLY-REF20033 - INFO-REF20034 WORK-REF20035 RWORK-REF20036)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20041 ':INT32) (LDA-REF20043 ':INT32) + (LDAF-REF20045 ':INT32) (CAPPLY-REF20048 ':INT32) + (INFO-REF20049 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20041 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20043 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20045 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20048 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20049 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20042 A) (AF-REF20044 AF) + (IPIV-REF20046 IPIV) (C-REF20047 C) + (WORK-REF20050 WORK) + (RWORK-REF20051 RWORK)) + (%%ZLA_HERCOND_C UPLO N-REF20041 A-REF20042 LDA-REF20043 AF-REF20044 + LDAF-REF20045 IPIV-REF20046 C-REF20047 CAPPLY-REF20048 INFO-REF20049 + WORK-REF20050 RWORK-REF20051)))) (CFFI:DEFCFUN ("zla_hercond_x_" %%ZLA_HERCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -13510,22 +13499,22 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20038 ':INT32) (LDA-REF20040 ':INT32) - (LDAF-REF20042 ':INT32) (INFO-REF20045 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20038 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20040 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20042 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20045 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20039 A) (AF-REF20041 AF) - (IPIV-REF20043 IPIV) (X-REF20044 X) - (WORK-REF20046 WORK) - (RWORK-REF20047 RWORK)) - (%%ZLA_HERCOND_X UPLO N-REF20038 A-REF20039 LDA-REF20040 AF-REF20041 - LDAF-REF20042 IPIV-REF20043 X-REF20044 INFO-REF20045 - WORK-REF20046 RWORK-REF20047)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20053 ':INT32) (LDA-REF20055 ':INT32) + (LDAF-REF20057 ':INT32) (INFO-REF20060 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20053 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20055 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20057 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20060 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20054 A) (AF-REF20056 AF) + (IPIV-REF20058 IPIV) (X-REF20059 X) + (WORK-REF20061 WORK) + (RWORK-REF20062 RWORK)) + (%%ZLA_HERCOND_X UPLO N-REF20053 A-REF20054 LDA-REF20055 AF-REF20056 + LDAF-REF20057 IPIV-REF20058 X-REF20059 INFO-REF20060 WORK-REF20061 + RWORK-REF20062)))) (CFFI:DEFCFUN ("zla_herfsx_extended_" %%ZLA_HERFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -13633,56 +13622,53 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20048 ':INT32) (N-REF20050 ':INT32) - (NRHS-REF20051 ':INT32) (LDA-REF20053 ':INT32) - (LDAF-REF20055 ':INT32) (COLEQU-REF20057 ':INT32) - (LDB-REF20060 ':INT32) (LDY-REF20062 ':INT32) - (N_NORMS-REF20064 ':INT32) - (RCOND-REF20071 ':DOUBLE) - (ITHRESH-REF20072 ':INT32) - (RTHRESH-REF20073 ':DOUBLE) - (DZ_UB-REF20074 ':DOUBLE) - (IGNORE_CWISE-REF20075 ':INT32) - (INFO-REF20076 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20048 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20050 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20051 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20053 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20055 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20057 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20060 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20062 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20064 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20071 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20072 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20073 :DOUBLE) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20074 :DOUBLE) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20075 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20076 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20052 A) (AF-REF20054 AF) - (IPIV-REF20056 IPIV) (C-REF20058 C) - (B-REF20059 B) (Y-REF20061 Y) - (BERR_OUT-REF20063 BERR_OUT) - (ERR_BNDS_NORM-REF20065 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20063 ':INT32) (N-REF20065 ':INT32) + (NRHS-REF20066 ':INT32) (LDA-REF20068 ':INT32) + (LDAF-REF20070 ':INT32) (COLEQU-REF20072 ':INT32) + (LDB-REF20075 ':INT32) (LDY-REF20077 ':INT32) + (N_NORMS-REF20079 ':INT32) + (RCOND-REF20086 ':DOUBLE) + (ITHRESH-REF20087 ':INT32) + (RTHRESH-REF20088 ':DOUBLE) + (DZ_UB-REF20089 ':DOUBLE) + (IGNORE_CWISE-REF20090 ':INT32) + (INFO-REF20091 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20063 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20065 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20066 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20068 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20070 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20072 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20075 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20077 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20079 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20086 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20087 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20088 :DOUBLE) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20089 :DOUBLE) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20090 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20091 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20067 A) (AF-REF20069 AF) + (IPIV-REF20071 IPIV) (C-REF20073 C) + (B-REF20074 B) (Y-REF20076 Y) + (BERR_OUT-REF20078 BERR_OUT) + (ERR_BNDS_NORM-REF20080 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF20066 + (ERR_BNDS_COMP-REF20081 ERR_BNDS_COMP) - (RES-REF20067 RES) - (AYB-REF20068 AYB) (DY-REF20069 DY) - (Y_TAIL-REF20070 Y_TAIL)) - (%%ZLA_HERFSX_EXTENDED PREC_TYPE-REF20048 UPLO N-REF20050 NRHS-REF20051 - A-REF20052 LDA-REF20053 AF-REF20054 LDAF-REF20055 - IPIV-REF20056 COLEQU-REF20057 C-REF20058 - B-REF20059 LDB-REF20060 Y-REF20061 LDY-REF20062 - BERR_OUT-REF20063 N_NORMS-REF20064 - ERR_BNDS_NORM-REF20065 ERR_BNDS_COMP-REF20066 - RES-REF20067 AYB-REF20068 DY-REF20069 - Y_TAIL-REF20070 RCOND-REF20071 ITHRESH-REF20072 - RTHRESH-REF20073 DZ_UB-REF20074 - IGNORE_CWISE-REF20075 INFO-REF20076)))) + (RES-REF20082 RES) + (AYB-REF20083 AYB) (DY-REF20084 DY) + (Y_TAIL-REF20085 Y_TAIL)) + (%%ZLA_HERFSX_EXTENDED PREC_TYPE-REF20063 UPLO N-REF20065 NRHS-REF20066 + A-REF20067 LDA-REF20068 AF-REF20069 LDAF-REF20070 IPIV-REF20071 + COLEQU-REF20072 C-REF20073 B-REF20074 LDB-REF20075 Y-REF20076 + LDY-REF20077 BERR_OUT-REF20078 N_NORMS-REF20079 ERR_BNDS_NORM-REF20080 + ERR_BNDS_COMP-REF20081 RES-REF20082 AYB-REF20083 DY-REF20084 + Y_TAIL-REF20085 RCOND-REF20086 ITHRESH-REF20087 RTHRESH-REF20088 + DZ_UB-REF20089 IGNORE_CWISE-REF20090 INFO-REF20091)))) (CFFI:DEFCFUN ("zla_herpvgrw_" %%ZLA_HERPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -13718,20 +13704,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20078 ':INT32) (INFO-REF20079 ':INT32) - (LDA-REF20081 ':INT32) (LDAF-REF20083 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20078 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20079 :INT32) INFO) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20081 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20083 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20080 A) (AF-REF20082 AF) - (IPIV-REF20084 IPIV) - (WORK-REF20085 WORK)) - (%%ZLA_HERPVGRW UPLO N-REF20078 INFO-REF20079 A-REF20080 LDA-REF20081 - AF-REF20082 LDAF-REF20083 IPIV-REF20084 WORK-REF20085)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20093 ':INT32) (INFO-REF20094 ':INT32) + (LDA-REF20096 ':INT32) (LDAF-REF20098 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20093 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20094 :INT32) INFO) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20096 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20098 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20095 A) (AF-REF20097 AF) + (IPIV-REF20099 IPIV) + (WORK-REF20100 WORK)) + (%%ZLA_HERPVGRW UPLO N-REF20093 INFO-REF20094 A-REF20095 LDA-REF20096 + AF-REF20097 LDAF-REF20098 IPIV-REF20099 WORK-REF20100)))) (CFFI:DEFCFUN ("zla_lin_berr_" %%ZLA_LIN_BERR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NZ :POINTER) @@ -13756,19 +13742,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20086 ':INT32) (NZ-REF20087 ':INT32) - (NRHS-REF20088 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20086 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF20087 :INT32) NZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20088 :INT32) NRHS) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF20089 RES) - (AYB-REF20090 AYB) - (BERR-REF20091 BERR)) - (%%ZLA_LIN_BERR N-REF20086 NZ-REF20087 NRHS-REF20088 RES-REF20089 - AYB-REF20090 BERR-REF20091)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20101 ':INT32) (NZ-REF20102 ':INT32) + (NRHS-REF20103 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20101 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF20102 :INT32) NZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20103 :INT32) NRHS) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF20104 RES) + (AYB-REF20105 AYB) + (BERR-REF20106 BERR)) + (%%ZLA_LIN_BERR N-REF20101 NZ-REF20102 NRHS-REF20103 RES-REF20104 + AYB-REF20105 BERR-REF20106)))) (CFFI:DEFCFUN ("zla_porcond_c_" %%ZLA_PORCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -13811,23 +13797,23 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20093 ':INT32) (LDA-REF20095 ':INT32) - (LDAF-REF20097 ':INT32) (CAPPLY-REF20099 ':INT32) - (INFO-REF20100 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20093 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20095 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20097 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20099 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20100 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20094 A) (AF-REF20096 AF) - (C-REF20098 C) (WORK-REF20101 WORK) - (RWORK-REF20102 RWORK)) - (%%ZLA_PORCOND_C UPLO N-REF20093 A-REF20094 LDA-REF20095 AF-REF20096 - LDAF-REF20097 C-REF20098 CAPPLY-REF20099 INFO-REF20100 - WORK-REF20101 RWORK-REF20102)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20108 ':INT32) (LDA-REF20110 ':INT32) + (LDAF-REF20112 ':INT32) (CAPPLY-REF20114 ':INT32) + (INFO-REF20115 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20108 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20110 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20112 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20114 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20115 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20109 A) (AF-REF20111 AF) + (C-REF20113 C) (WORK-REF20116 WORK) + (RWORK-REF20117 RWORK)) + (%%ZLA_PORCOND_C UPLO N-REF20108 A-REF20109 LDA-REF20110 AF-REF20111 + LDAF-REF20112 C-REF20113 CAPPLY-REF20114 INFO-REF20115 WORK-REF20116 + RWORK-REF20117)))) (CFFI:DEFCFUN ("zla_porcond_x_" %%ZLA_PORCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -13870,21 +13856,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20104 ':INT32) (LDA-REF20106 ':INT32) - (LDAF-REF20108 ':INT32) (INFO-REF20110 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20104 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20106 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20108 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20110 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20105 A) (AF-REF20107 AF) - (X-REF20109 X) (WORK-REF20111 WORK) - (RWORK-REF20112 RWORK)) - (%%ZLA_PORCOND_X UPLO N-REF20104 A-REF20105 LDA-REF20106 AF-REF20107 - LDAF-REF20108 X-REF20109 INFO-REF20110 WORK-REF20111 - RWORK-REF20112)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20119 ':INT32) (LDA-REF20121 ':INT32) + (LDAF-REF20123 ':INT32) (INFO-REF20125 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20119 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20121 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20123 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20125 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20120 A) (AF-REF20122 AF) + (X-REF20124 X) (WORK-REF20126 WORK) + (RWORK-REF20127 RWORK)) + (%%ZLA_PORCOND_X UPLO N-REF20119 A-REF20120 LDA-REF20121 AF-REF20122 + LDAF-REF20123 X-REF20124 INFO-REF20125 WORK-REF20126 RWORK-REF20127)))) (CFFI:DEFCFUN ("zla_porfsx_extended_" %%ZLA_PORFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -13987,55 +13972,53 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20113 ':INT32) (N-REF20115 ':INT32) - (NRHS-REF20116 ':INT32) (LDA-REF20118 ':INT32) - (LDAF-REF20120 ':INT32) (COLEQU-REF20121 ':INT32) - (LDB-REF20124 ':INT32) (LDY-REF20126 ':INT32) - (N_NORMS-REF20128 ':INT32) - (RCOND-REF20135 ':DOUBLE) - (ITHRESH-REF20136 ':INT32) - (RTHRESH-REF20137 ':DOUBLE) - (DZ_UB-REF20138 ':DOUBLE) - (IGNORE_CWISE-REF20139 ':INT32) - (INFO-REF20140 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20113 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20115 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20116 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20118 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20120 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20121 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20124 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20126 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20128 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20135 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20136 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20137 :DOUBLE) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20138 :DOUBLE) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20139 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20140 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20117 A) (AF-REF20119 AF) - (C-REF20122 C) (B-REF20123 B) - (Y-REF20125 Y) - (BERR_OUT-REF20127 BERR_OUT) - (ERR_BNDS_NORM-REF20129 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20128 ':INT32) (N-REF20130 ':INT32) + (NRHS-REF20131 ':INT32) (LDA-REF20133 ':INT32) + (LDAF-REF20135 ':INT32) (COLEQU-REF20136 ':INT32) + (LDB-REF20139 ':INT32) (LDY-REF20141 ':INT32) + (N_NORMS-REF20143 ':INT32) + (RCOND-REF20150 ':DOUBLE) + (ITHRESH-REF20151 ':INT32) + (RTHRESH-REF20152 ':DOUBLE) + (DZ_UB-REF20153 ':DOUBLE) + (IGNORE_CWISE-REF20154 ':INT32) + (INFO-REF20155 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20128 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20130 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20131 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20133 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20135 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20136 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20139 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20141 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20143 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20150 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20151 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20152 :DOUBLE) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20153 :DOUBLE) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20154 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20155 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20132 A) (AF-REF20134 AF) + (C-REF20137 C) (B-REF20138 B) + (Y-REF20140 Y) + (BERR_OUT-REF20142 BERR_OUT) + (ERR_BNDS_NORM-REF20144 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF20130 + (ERR_BNDS_COMP-REF20145 ERR_BNDS_COMP) - (RES-REF20131 RES) - (AYB-REF20132 AYB) (DY-REF20133 DY) - (Y_TAIL-REF20134 Y_TAIL)) - (%%ZLA_PORFSX_EXTENDED PREC_TYPE-REF20113 UPLO N-REF20115 NRHS-REF20116 - A-REF20117 LDA-REF20118 AF-REF20119 LDAF-REF20120 - COLEQU-REF20121 C-REF20122 B-REF20123 LDB-REF20124 - Y-REF20125 LDY-REF20126 BERR_OUT-REF20127 - N_NORMS-REF20128 ERR_BNDS_NORM-REF20129 - ERR_BNDS_COMP-REF20130 RES-REF20131 AYB-REF20132 - DY-REF20133 Y_TAIL-REF20134 RCOND-REF20135 - ITHRESH-REF20136 RTHRESH-REF20137 DZ_UB-REF20138 - IGNORE_CWISE-REF20139 INFO-REF20140)))) + (RES-REF20146 RES) + (AYB-REF20147 AYB) (DY-REF20148 DY) + (Y_TAIL-REF20149 Y_TAIL)) + (%%ZLA_PORFSX_EXTENDED PREC_TYPE-REF20128 UPLO N-REF20130 NRHS-REF20131 + A-REF20132 LDA-REF20133 AF-REF20134 LDAF-REF20135 COLEQU-REF20136 + C-REF20137 B-REF20138 LDB-REF20139 Y-REF20140 LDY-REF20141 + BERR_OUT-REF20142 N_NORMS-REF20143 ERR_BNDS_NORM-REF20144 + ERR_BNDS_COMP-REF20145 RES-REF20146 AYB-REF20147 DY-REF20148 + Y_TAIL-REF20149 RCOND-REF20150 ITHRESH-REF20151 RTHRESH-REF20152 + DZ_UB-REF20153 IGNORE_CWISE-REF20154 INFO-REF20155)))) (CFFI:DEFCFUN ("zla_porpvgrw_" %%ZLA_PORPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (NCOLS :POINTER) @@ -14064,18 +14047,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF20142 ':INT32) (LDA-REF20144 ':INT32) - (LDAF-REF20146 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF20142 :INT32) NCOLS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20144 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20146 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20143 A) (AF-REF20145 AF) - (WORK-REF20147 WORK)) - (%%ZLA_PORPVGRW UPLO NCOLS-REF20142 A-REF20143 LDA-REF20144 AF-REF20145 - LDAF-REF20146 WORK-REF20147)))) + (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF20157 ':INT32) (LDA-REF20159 ':INT32) + (LDAF-REF20161 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF20157 :INT32) NCOLS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20159 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20161 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20158 A) (AF-REF20160 AF) + (WORK-REF20162 WORK)) + (%%ZLA_PORPVGRW UPLO NCOLS-REF20157 A-REF20158 LDA-REF20159 AF-REF20160 + LDAF-REF20161 WORK-REF20162)))) (CFFI:DEFCFUN ("zla_syamv_" %%ZLA_SYAMV :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :POINTER) (N :POINTER) @@ -14109,25 +14092,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF20148 ':INT32) (N-REF20149 ':INT32) - (ALPHA-REF20150 ':DOUBLE) (LDA-REF20152 ':INT32) - (INCX-REF20154 ':INT32) (BETA-REF20155 ':DOUBLE) - (INCY-REF20157 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF20148 :INT32) UPLO) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20149 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20150 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20152 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20154 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20155 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20157 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20151 A) (X-REF20153 X) - (Y-REF20156 Y)) - (%%ZLA_SYAMV UPLO-REF20148 N-REF20149 ALPHA-REF20150 A-REF20151 - LDA-REF20152 X-REF20153 INCX-REF20154 BETA-REF20155 - Y-REF20156 INCY-REF20157)))) + (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF20163 ':INT32) (N-REF20164 ':INT32) + (ALPHA-REF20165 ':DOUBLE) (LDA-REF20167 ':INT32) + (INCX-REF20169 ':INT32) (BETA-REF20170 ':DOUBLE) + (INCY-REF20172 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF20163 :INT32) UPLO) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20164 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20165 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20167 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20169 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20170 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20172 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20166 A) (X-REF20168 X) + (Y-REF20171 Y)) + (%%ZLA_SYAMV UPLO-REF20163 N-REF20164 ALPHA-REF20165 A-REF20166 + LDA-REF20167 X-REF20168 INCX-REF20169 BETA-REF20170 Y-REF20171 + INCY-REF20172)))) (CFFI:DEFCFUN ("zla_syrcond_c_" %%ZLA_SYRCOND_C :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -14175,24 +14158,24 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20159 ':INT32) (LDA-REF20161 ':INT32) - (LDAF-REF20163 ':INT32) (CAPPLY-REF20166 ':INT32) - (INFO-REF20167 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20159 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20161 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20163 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20166 :INT32) CAPPLY) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20167 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20160 A) (AF-REF20162 AF) - (IPIV-REF20164 IPIV) (C-REF20165 C) - (WORK-REF20168 WORK) - (RWORK-REF20169 RWORK)) - (%%ZLA_SYRCOND_C UPLO N-REF20159 A-REF20160 LDA-REF20161 AF-REF20162 - LDAF-REF20163 IPIV-REF20164 C-REF20165 CAPPLY-REF20166 - INFO-REF20167 WORK-REF20168 RWORK-REF20169)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20174 ':INT32) (LDA-REF20176 ':INT32) + (LDAF-REF20178 ':INT32) (CAPPLY-REF20181 ':INT32) + (INFO-REF20182 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20174 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20176 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20178 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF20181 :INT32) CAPPLY) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20182 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20175 A) (AF-REF20177 AF) + (IPIV-REF20179 IPIV) (C-REF20180 C) + (WORK-REF20183 WORK) + (RWORK-REF20184 RWORK)) + (%%ZLA_SYRCOND_C UPLO N-REF20174 A-REF20175 LDA-REF20176 AF-REF20177 + LDAF-REF20178 IPIV-REF20179 C-REF20180 CAPPLY-REF20181 INFO-REF20182 + WORK-REF20183 RWORK-REF20184)))) (CFFI:DEFCFUN ("zla_syrcond_x_" %%ZLA_SYRCOND_X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -14240,22 +14223,22 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20171 ':INT32) (LDA-REF20173 ':INT32) - (LDAF-REF20175 ':INT32) (INFO-REF20178 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20171 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20173 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20175 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20178 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20172 A) (AF-REF20174 AF) - (IPIV-REF20176 IPIV) (X-REF20177 X) - (WORK-REF20179 WORK) - (RWORK-REF20180 RWORK)) - (%%ZLA_SYRCOND_X UPLO N-REF20171 A-REF20172 LDA-REF20173 AF-REF20174 - LDAF-REF20175 IPIV-REF20176 X-REF20177 INFO-REF20178 - WORK-REF20179 RWORK-REF20180)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20186 ':INT32) (LDA-REF20188 ':INT32) + (LDAF-REF20190 ':INT32) (INFO-REF20193 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20186 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20188 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20190 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20193 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20187 A) (AF-REF20189 AF) + (IPIV-REF20191 IPIV) (X-REF20192 X) + (WORK-REF20194 WORK) + (RWORK-REF20195 RWORK)) + (%%ZLA_SYRCOND_X UPLO N-REF20186 A-REF20187 LDA-REF20188 AF-REF20189 + LDAF-REF20190 IPIV-REF20191 X-REF20192 INFO-REF20193 WORK-REF20194 + RWORK-REF20195)))) (CFFI:DEFCFUN ("zla_syrfsx_extended_" %%ZLA_SYRFSX_EXTENDED :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (PREC_TYPE :POINTER) (UPLO :STRING) @@ -14363,56 +14346,53 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20181 ':INT32) (N-REF20183 ':INT32) - (NRHS-REF20184 ':INT32) (LDA-REF20186 ':INT32) - (LDAF-REF20188 ':INT32) (COLEQU-REF20190 ':INT32) - (LDB-REF20193 ':INT32) (LDY-REF20195 ':INT32) - (N_NORMS-REF20197 ':INT32) - (RCOND-REF20204 ':DOUBLE) - (ITHRESH-REF20205 ':INT32) - (RTHRESH-REF20206 ':DOUBLE) - (DZ_UB-REF20207 ':DOUBLE) - (IGNORE_CWISE-REF20208 ':INT32) - (INFO-REF20209 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20181 :INT32) PREC_TYPE) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20183 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20184 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20186 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20188 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20190 :INT32) COLEQU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20193 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20195 :INT32) LDY) - (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20197 :INT32) N_NORMS) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20204 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20205 :INT32) ITHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20206 :DOUBLE) RTHRESH) - (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20207 :DOUBLE) DZ_UB) - (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20208 :INT32) IGNORE_CWISE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20209 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20185 A) (AF-REF20187 AF) - (IPIV-REF20189 IPIV) (C-REF20191 C) - (B-REF20192 B) (Y-REF20194 Y) - (BERR_OUT-REF20196 BERR_OUT) - (ERR_BNDS_NORM-REF20198 + (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF20196 ':INT32) (N-REF20198 ':INT32) + (NRHS-REF20199 ':INT32) (LDA-REF20201 ':INT32) + (LDAF-REF20203 ':INT32) (COLEQU-REF20205 ':INT32) + (LDB-REF20208 ':INT32) (LDY-REF20210 ':INT32) + (N_NORMS-REF20212 ':INT32) + (RCOND-REF20219 ':DOUBLE) + (ITHRESH-REF20220 ':INT32) + (RTHRESH-REF20221 ':DOUBLE) + (DZ_UB-REF20222 ':DOUBLE) + (IGNORE_CWISE-REF20223 ':INT32) + (INFO-REF20224 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF20196 :INT32) PREC_TYPE) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20198 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20199 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20201 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20203 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF20205 :INT32) COLEQU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20208 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20210 :INT32) LDY) + (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF20212 :INT32) N_NORMS) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20219 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF20220 :INT32) ITHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF20221 :DOUBLE) RTHRESH) + (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF20222 :DOUBLE) DZ_UB) + (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF20223 :INT32) IGNORE_CWISE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20224 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20200 A) (AF-REF20202 AF) + (IPIV-REF20204 IPIV) (C-REF20206 C) + (B-REF20207 B) (Y-REF20209 Y) + (BERR_OUT-REF20211 BERR_OUT) + (ERR_BNDS_NORM-REF20213 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF20199 + (ERR_BNDS_COMP-REF20214 ERR_BNDS_COMP) - (RES-REF20200 RES) - (AYB-REF20201 AYB) (DY-REF20202 DY) - (Y_TAIL-REF20203 Y_TAIL)) - (%%ZLA_SYRFSX_EXTENDED PREC_TYPE-REF20181 UPLO N-REF20183 NRHS-REF20184 - A-REF20185 LDA-REF20186 AF-REF20187 LDAF-REF20188 - IPIV-REF20189 COLEQU-REF20190 C-REF20191 - B-REF20192 LDB-REF20193 Y-REF20194 LDY-REF20195 - BERR_OUT-REF20196 N_NORMS-REF20197 - ERR_BNDS_NORM-REF20198 ERR_BNDS_COMP-REF20199 - RES-REF20200 AYB-REF20201 DY-REF20202 - Y_TAIL-REF20203 RCOND-REF20204 ITHRESH-REF20205 - RTHRESH-REF20206 DZ_UB-REF20207 - IGNORE_CWISE-REF20208 INFO-REF20209)))) + (RES-REF20215 RES) + (AYB-REF20216 AYB) (DY-REF20217 DY) + (Y_TAIL-REF20218 Y_TAIL)) + (%%ZLA_SYRFSX_EXTENDED PREC_TYPE-REF20196 UPLO N-REF20198 NRHS-REF20199 + A-REF20200 LDA-REF20201 AF-REF20202 LDAF-REF20203 IPIV-REF20204 + COLEQU-REF20205 C-REF20206 B-REF20207 LDB-REF20208 Y-REF20209 + LDY-REF20210 BERR_OUT-REF20211 N_NORMS-REF20212 ERR_BNDS_NORM-REF20213 + ERR_BNDS_COMP-REF20214 RES-REF20215 AYB-REF20216 DY-REF20217 + Y_TAIL-REF20218 RCOND-REF20219 ITHRESH-REF20220 RTHRESH-REF20221 + DZ_UB-REF20222 IGNORE_CWISE-REF20223 INFO-REF20224)))) (CFFI:DEFCFUN ("zla_syrpvgrw_" %%ZLA_SYRPVGRW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (UPLO :STRING) (N :POINTER) @@ -14448,20 +14428,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20211 ':INT32) (INFO-REF20212 ':INT32) - (LDA-REF20214 ':INT32) (LDAF-REF20216 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20211 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20212 :INT32) INFO) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20214 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20216 :INT32) LDAF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20213 A) (AF-REF20215 AF) - (IPIV-REF20217 IPIV) - (WORK-REF20218 WORK)) - (%%ZLA_SYRPVGRW UPLO N-REF20211 INFO-REF20212 A-REF20213 LDA-REF20214 - AF-REF20215 LDAF-REF20216 IPIV-REF20217 WORK-REF20218)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20226 ':INT32) (INFO-REF20227 ':INT32) + (LDA-REF20229 ':INT32) (LDAF-REF20231 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20226 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20227 :INT32) INFO) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20229 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF20231 :INT32) LDAF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20228 A) (AF-REF20230 AF) + (IPIV-REF20232 IPIV) + (WORK-REF20233 WORK)) + (%%ZLA_SYRPVGRW UPLO N-REF20226 INFO-REF20227 A-REF20228 LDA-REF20229 + AF-REF20230 LDAF-REF20231 IPIV-REF20232 WORK-REF20233)))) (CFFI:DEFCFUN ("zla_wwaddw_" %%ZLA_WWADDW :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -14486,13 +14466,13 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) W)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20219 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20219 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20220 X) (Y-REF20221 Y) - (W-REF20222 W)) - (%%ZLA_WWADDW N-REF20219 X-REF20220 Y-REF20221 W-REF20222)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20234 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20234 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20235 X) (Y-REF20236 Y) + (W-REF20237 W)) + (%%ZLA_WWADDW N-REF20234 X-REF20235 Y-REF20236 W-REF20237)))) -(CFFI:DEFCFUN ("zlabrd_" %%ZLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlabrd_" %%ZLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -14545,24 +14525,24 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20223 ':INT32) (N-REF20224 ':INT32) - (NB-REF20225 ':INT32) (LDA-REF20227 ':INT32) - (LDX-REF20233 ':INT32) (LDY-REF20235 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20223 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20224 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20225 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20227 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20233 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20235 :INT32) LDY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20226 A) (D-REF20228 D) - (E-REF20229 E) (TAUQ-REF20230 TAUQ) - (TAUP-REF20231 TAUP) (X-REF20232 X) - (Y-REF20234 Y)) - (%%ZLABRD M-REF20223 N-REF20224 NB-REF20225 A-REF20226 LDA-REF20227 - D-REF20228 E-REF20229 TAUQ-REF20230 TAUP-REF20231 X-REF20232 - LDX-REF20233 Y-REF20234 LDY-REF20235)))) - -(CFFI:DEFCFUN ("zlacgv_" %%ZLACGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20238 ':INT32) (N-REF20239 ':INT32) + (NB-REF20240 ':INT32) (LDA-REF20242 ':INT32) + (LDX-REF20248 ':INT32) (LDY-REF20250 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20238 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20239 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20240 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20242 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20248 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20250 :INT32) LDY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20241 A) (D-REF20243 D) + (E-REF20244 E) (TAUQ-REF20245 TAUQ) + (TAUP-REF20246 TAUP) (X-REF20247 X) + (Y-REF20249 Y)) + (%%ZLABRD M-REF20238 N-REF20239 NB-REF20240 A-REF20241 LDA-REF20242 + D-REF20243 E-REF20244 TAUQ-REF20245 TAUP-REF20246 X-REF20247 + LDX-REF20248 Y-REF20249 LDY-REF20250)))) + +(CFFI:DEFCFUN ("zlacgv_" %%ZLACGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -14577,13 +14557,13 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20236 ':INT32) (INCX-REF20238 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20236 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20238 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20237 X)) - (%%ZLACGV N-REF20236 X-REF20237 INCX-REF20238)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20251 ':INT32) (INCX-REF20253 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20251 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20253 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20252 X)) + (%%ZLACGV N-REF20251 X-REF20252 INCX-REF20253)))) -(CFFI:DEFCFUN ("zlacn2_" %%ZLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlacn2_" %%ZLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (V :POINTER) @@ -14611,17 +14591,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) ISAVE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20239 ':INT32) (EST-REF20242 ':DOUBLE) - (KASE-REF20243 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20239 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF20242 :DOUBLE) EST) - (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF20243 :INT32) KASE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20240 V) (X-REF20241 X) - (ISAVE-REF20244 ISAVE)) - (%%ZLACN2 N-REF20239 V-REF20240 X-REF20241 EST-REF20242 KASE-REF20243 - ISAVE-REF20244)))) - -(CFFI:DEFCFUN ("zlacon_" %%ZLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20254 ':INT32) (EST-REF20257 ':DOUBLE) + (KASE-REF20258 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20254 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF20257 :DOUBLE) EST) + (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF20258 :INT32) KASE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20255 V) (X-REF20256 X) + (ISAVE-REF20259 ISAVE)) + (%%ZLACN2 N-REF20254 V-REF20255 X-REF20256 EST-REF20257 KASE-REF20258 + ISAVE-REF20259)))) + +(CFFI:DEFCFUN ("zlacon_" %%ZLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (V :POINTER) @@ -14644,15 +14624,15 @@ X) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20245 ':INT32) (EST-REF20248 ':DOUBLE) - (KASE-REF20249 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20245 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF20248 :DOUBLE) EST) - (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF20249 :INT32) KASE) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20246 V) (X-REF20247 X)) - (%%ZLACON N-REF20245 V-REF20246 X-REF20247 EST-REF20248 KASE-REF20249)))) - -(CFFI:DEFCFUN ("zlacp2_" %%ZLACP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20260 ':INT32) (EST-REF20263 ':DOUBLE) + (KASE-REF20264 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20260 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF20263 :DOUBLE) EST) + (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF20264 :INT32) KASE) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20261 V) (X-REF20262 X)) + (%%ZLACON N-REF20260 V-REF20261 X-REF20262 EST-REF20263 KASE-REF20264)))) + +(CFFI:DEFCFUN ("zlacp2_" %%ZLACP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -14676,17 +14656,17 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20251 ':INT32) (N-REF20252 ':INT32) - (LDA-REF20254 ':INT32) (LDB-REF20256 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20251 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20252 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20254 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20256 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20253 A) (B-REF20255 B)) - (%%ZLACP2 UPLO M-REF20251 N-REF20252 A-REF20253 LDA-REF20254 B-REF20255 - LDB-REF20256)))) - -(CFFI:DEFCFUN ("zlacpy_" %%ZLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20266 ':INT32) (N-REF20267 ':INT32) + (LDA-REF20269 ':INT32) (LDB-REF20271 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20266 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20267 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20269 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20271 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20268 A) (B-REF20270 B)) + (%%ZLACP2 UPLO M-REF20266 N-REF20267 A-REF20268 LDA-REF20269 B-REF20270 + LDB-REF20271)))) + +(CFFI:DEFCFUN ("zlacpy_" %%ZLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -14713,17 +14693,17 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20258 ':INT32) (N-REF20259 ':INT32) - (LDA-REF20261 ':INT32) (LDB-REF20263 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20258 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20259 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20261 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20263 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20260 A) (B-REF20262 B)) - (%%ZLACPY UPLO M-REF20258 N-REF20259 A-REF20260 LDA-REF20261 B-REF20262 - LDB-REF20263)))) - -(CFFI:DEFCFUN ("zlacrm_" %%ZLACRM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20273 ':INT32) (N-REF20274 ':INT32) + (LDA-REF20276 ':INT32) (LDB-REF20278 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20273 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20274 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20276 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20278 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20275 A) (B-REF20277 B)) + (%%ZLACPY UPLO M-REF20273 N-REF20274 A-REF20275 LDA-REF20276 B-REF20277 + LDB-REF20278)))) + +(CFFI:DEFCFUN ("zlacrm_" %%ZLACRM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -14757,21 +14737,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20264 ':INT32) (N-REF20265 ':INT32) - (LDA-REF20267 ':INT32) (LDB-REF20269 ':INT32) - (LDC-REF20271 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20264 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20265 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20267 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20269 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20271 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20266 A) (B-REF20268 B) - (C-REF20270 C) - (RWORK-REF20272 RWORK)) - (%%ZLACRM M-REF20264 N-REF20265 A-REF20266 LDA-REF20267 B-REF20268 - LDB-REF20269 C-REF20270 LDC-REF20271 RWORK-REF20272)))) - -(CFFI:DEFCFUN ("zlacrt_" %%ZLACRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20279 ':INT32) (N-REF20280 ':INT32) + (LDA-REF20282 ':INT32) (LDB-REF20284 ':INT32) + (LDC-REF20286 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20279 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20280 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20282 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20284 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20286 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20281 A) (B-REF20283 B) + (C-REF20285 C) + (RWORK-REF20287 RWORK)) + (%%ZLACRM M-REF20279 N-REF20280 A-REF20281 LDA-REF20282 B-REF20283 + LDB-REF20284 C-REF20285 LDC-REF20286 RWORK-REF20287)))) + +(CFFI:DEFCFUN ("zlacrt_" %%ZLACRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (CX :POINTER) @@ -14800,28 +14780,28 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20273 ':INT32) (INCX-REF20275 ':INT32) - (INCY-REF20277 ':INT32) - (C-REF20278 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20288 ':INT32) (INCX-REF20290 ':INT32) + (INCY-REF20292 ':INT32) + (C-REF20293 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (S-REF20279 + (S-REF20294 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20273 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20275 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20277 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20288 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20290 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20292 :INT32) INCY) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - C-REF20278 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + C-REF20293 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S-REF20279 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + S-REF20294 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF20274 CX) (CY-REF20276 CY)) - (%%ZLACRT N-REF20273 CX-REF20274 INCX-REF20275 CY-REF20276 INCY-REF20277 - C-REF20278 S-REF20279)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF20289 CX) (CY-REF20291 CY)) + (%%ZLACRT N-REF20288 CX-REF20289 INCX-REF20290 CY-REF20291 INCY-REF20292 + C-REF20293 S-REF20294)))) -(CFFI:DEFCFUN ("zladiv_" %%ZLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zladiv_" %%ZLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT (X :POINTER) (Y :POINTER)) @@ -14832,22 +14812,22 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) X) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) Y)) - (CFFI:WITH-FOREIGN-OBJECTS ((X-REF20280 + (CFFI:WITH-FOREIGN-OBJECTS ((X-REF20295 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (Y-REF20281 + (Y-REF20296 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - X-REF20280 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + X-REF20295 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART X) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART X))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - Y-REF20281 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + Y-REF20296 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Y) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Y))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%ZLADIV X-REF20280 Y-REF20281)))) + (%%ZLADIV X-REF20295 Y-REF20296)))) -(CFFI:DEFCFUN ("zlaed0_" %%ZLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaed0_" %%ZLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (QSIZ :POINTER) (N :POINTER) @@ -14889,24 +14869,24 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF20282 ':INT32) (N-REF20283 ':INT32) - (LDQ-REF20287 ':INT32) (LDQS-REF20289 ':INT32) - (INFO-REF20292 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20282 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20283 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20287 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF20289 :INT32) LDQS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20292 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20284 D) (E-REF20285 E) - (Q-REF20286 Q) - (QSTORE-REF20288 QSTORE) - (RWORK-REF20290 RWORK) - (IWORK-REF20291 IWORK)) - (%%ZLAED0 QSIZ-REF20282 N-REF20283 D-REF20284 E-REF20285 Q-REF20286 - LDQ-REF20287 QSTORE-REF20288 LDQS-REF20289 RWORK-REF20290 - IWORK-REF20291 INFO-REF20292)))) - -(CFFI:DEFCFUN ("zlaed7_" %%ZLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((QSIZ-REF20297 ':INT32) (N-REF20298 ':INT32) + (LDQ-REF20302 ':INT32) (LDQS-REF20304 ':INT32) + (INFO-REF20307 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20297 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20298 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20302 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF20304 :INT32) LDQS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20307 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20299 D) (E-REF20300 E) + (Q-REF20301 Q) + (QSTORE-REF20303 QSTORE) + (RWORK-REF20305 RWORK) + (IWORK-REF20306 IWORK)) + (%%ZLAED0 QSIZ-REF20297 N-REF20298 D-REF20299 E-REF20300 Q-REF20301 + LDQ-REF20302 QSTORE-REF20303 LDQS-REF20304 RWORK-REF20305 IWORK-REF20306 + INFO-REF20307)))) + +(CFFI:DEFCFUN ("zlaed7_" %%ZLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (CUTPNT :POINTER) @@ -14994,40 +14974,40 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20293 ':INT32) (CUTPNT-REF20294 ':INT32) - (QSIZ-REF20295 ':INT32) (TLVLS-REF20296 ':INT32) - (CURLVL-REF20297 ':INT32) - (CURPBM-REF20298 ':INT32) (LDQ-REF20301 ':INT32) - (RHO-REF20302 ':DOUBLE) (INFO-REF20314 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20293 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF20294 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20295 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF20296 :INT32) TLVLS) - (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF20297 :INT32) CURLVL) - (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF20298 :INT32) CURPBM) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20301 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20302 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20314 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20299 D) (Q-REF20300 Q) - (INDXQ-REF20303 INDXQ) - (QSTORE-REF20304 QSTORE) - (QPTR-REF20305 QPTR) - (PRMPTR-REF20306 PRMPTR) - (PERM-REF20307 PERM) - (GIVPTR-REF20308 GIVPTR) - (GIVCOL-REF20309 GIVCOL) - (GIVNUM-REF20310 GIVNUM) - (WORK-REF20311 WORK) - (RWORK-REF20312 RWORK) - (IWORK-REF20313 IWORK)) - (%%ZLAED7 N-REF20293 CUTPNT-REF20294 QSIZ-REF20295 TLVLS-REF20296 - CURLVL-REF20297 CURPBM-REF20298 D-REF20299 Q-REF20300 - LDQ-REF20301 RHO-REF20302 INDXQ-REF20303 QSTORE-REF20304 - QPTR-REF20305 PRMPTR-REF20306 PERM-REF20307 GIVPTR-REF20308 - GIVCOL-REF20309 GIVNUM-REF20310 WORK-REF20311 RWORK-REF20312 - IWORK-REF20313 INFO-REF20314)))) - -(CFFI:DEFCFUN ("zlaed8_" %%ZLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20308 ':INT32) (CUTPNT-REF20309 ':INT32) + (QSIZ-REF20310 ':INT32) (TLVLS-REF20311 ':INT32) + (CURLVL-REF20312 ':INT32) + (CURPBM-REF20313 ':INT32) (LDQ-REF20316 ':INT32) + (RHO-REF20317 ':DOUBLE) (INFO-REF20329 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20308 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF20309 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20310 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF20311 :INT32) TLVLS) + (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF20312 :INT32) CURLVL) + (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF20313 :INT32) CURPBM) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20316 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20317 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20329 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20314 D) (Q-REF20315 Q) + (INDXQ-REF20318 INDXQ) + (QSTORE-REF20319 QSTORE) + (QPTR-REF20320 QPTR) + (PRMPTR-REF20321 PRMPTR) + (PERM-REF20322 PERM) + (GIVPTR-REF20323 GIVPTR) + (GIVCOL-REF20324 GIVCOL) + (GIVNUM-REF20325 GIVNUM) + (WORK-REF20326 WORK) + (RWORK-REF20327 RWORK) + (IWORK-REF20328 IWORK)) + (%%ZLAED7 N-REF20308 CUTPNT-REF20309 QSIZ-REF20310 TLVLS-REF20311 + CURLVL-REF20312 CURPBM-REF20313 D-REF20314 Q-REF20315 LDQ-REF20316 + RHO-REF20317 INDXQ-REF20318 QSTORE-REF20319 QPTR-REF20320 + PRMPTR-REF20321 PERM-REF20322 GIVPTR-REF20323 GIVCOL-REF20324 + GIVNUM-REF20325 WORK-REF20326 RWORK-REF20327 IWORK-REF20328 + INFO-REF20329)))) + +(CFFI:DEFCFUN ("zlaed8_" %%ZLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (K :POINTER) (N :POINTER) @@ -15106,38 +15086,37 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((K-REF20315 ':INT32) (N-REF20316 ':INT32) - (QSIZ-REF20317 ':INT32) (LDQ-REF20319 ':INT32) - (RHO-REF20321 ':DOUBLE) (CUTPNT-REF20322 ':INT32) - (LDQ2-REF20326 ':INT32) (GIVPTR-REF20332 ':INT32) - (INFO-REF20335 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20315 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20316 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20317 :INT32) QSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20319 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20321 :DOUBLE) RHO) - (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF20322 :INT32) CUTPNT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF20326 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF20332 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20335 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF20318 Q) (D-REF20320 D) - (Z-REF20323 Z) - (DLAMDA-REF20324 DLAMDA) - (Q2-REF20325 Q2) (W-REF20327 W) - (INDXP-REF20328 INDXP) - (INDX-REF20329 INDX) - (INDXQ-REF20330 INDXQ) - (PERM-REF20331 PERM) - (GIVCOL-REF20333 GIVCOL) - (GIVNUM-REF20334 GIVNUM)) - (%%ZLAED8 K-REF20315 N-REF20316 QSIZ-REF20317 Q-REF20318 LDQ-REF20319 - D-REF20320 RHO-REF20321 CUTPNT-REF20322 Z-REF20323 - DLAMDA-REF20324 Q2-REF20325 LDQ2-REF20326 W-REF20327 - INDXP-REF20328 INDX-REF20329 INDXQ-REF20330 PERM-REF20331 - GIVPTR-REF20332 GIVCOL-REF20333 GIVNUM-REF20334 - INFO-REF20335)))) - -(CFFI:DEFCFUN ("zlaein_" %%ZLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((K-REF20330 ':INT32) (N-REF20331 ':INT32) + (QSIZ-REF20332 ':INT32) (LDQ-REF20334 ':INT32) + (RHO-REF20336 ':DOUBLE) (CUTPNT-REF20337 ':INT32) + (LDQ2-REF20341 ':INT32) (GIVPTR-REF20347 ':INT32) + (INFO-REF20350 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20330 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20331 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF20332 :INT32) QSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF20334 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF20336 :DOUBLE) RHO) + (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF20337 :INT32) CUTPNT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF20341 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF20347 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20350 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF20333 Q) (D-REF20335 D) + (Z-REF20338 Z) + (DLAMDA-REF20339 DLAMDA) + (Q2-REF20340 Q2) (W-REF20342 W) + (INDXP-REF20343 INDXP) + (INDX-REF20344 INDX) + (INDXQ-REF20345 INDXQ) + (PERM-REF20346 PERM) + (GIVCOL-REF20348 GIVCOL) + (GIVNUM-REF20349 GIVNUM)) + (%%ZLAED8 K-REF20330 N-REF20331 QSIZ-REF20332 Q-REF20333 LDQ-REF20334 + D-REF20335 RHO-REF20336 CUTPNT-REF20337 Z-REF20338 DLAMDA-REF20339 + Q2-REF20340 LDQ2-REF20341 W-REF20342 INDXP-REF20343 INDX-REF20344 + INDXQ-REF20345 PERM-REF20346 GIVPTR-REF20347 GIVCOL-REF20348 + GIVNUM-REF20349 INFO-REF20350)))) + +(CFFI:DEFCFUN ("zlaein_" %%ZLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (RIGHTV :POINTER) (NOINIT :POINTER) @@ -15184,34 +15163,34 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS3) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMLNUM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF20336 ':INT32) - (NOINIT-REF20337 ':INT32) (N-REF20338 ':INT32) - (LDH-REF20340 ':INT32) - (W-REF20341 + (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF20351 ':INT32) + (NOINIT-REF20352 ':INT32) (N-REF20353 ':INT32) + (LDH-REF20355 ':INT32) + (W-REF20356 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDB-REF20344 ':INT32) (EPS3-REF20346 ':DOUBLE) - (SMLNUM-REF20347 ':DOUBLE) - (INFO-REF20348 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF20336 :INT32) RIGHTV) - (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF20337 :INT32) NOINIT) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20338 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20340 :INT32) LDH) + (LDB-REF20359 ':INT32) (EPS3-REF20361 ':DOUBLE) + (SMLNUM-REF20362 ':DOUBLE) + (INFO-REF20363 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF20351 :INT32) RIGHTV) + (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF20352 :INT32) NOINIT) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20353 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20355 :INT32) LDH) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - W-REF20341 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + W-REF20356 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART W) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART W))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20344 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF20346 :DOUBLE) EPS3) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF20347 :DOUBLE) SMLNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20348 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20339 H) (V-REF20342 V) - (B-REF20343 B) - (RWORK-REF20345 RWORK)) - (%%ZLAEIN RIGHTV-REF20336 NOINIT-REF20337 N-REF20338 H-REF20339 - LDH-REF20340 W-REF20341 V-REF20342 B-REF20343 LDB-REF20344 - RWORK-REF20345 EPS3-REF20346 SMLNUM-REF20347 INFO-REF20348)))) - -(CFFI:DEFCFUN ("zlaesy_" %%ZLAESY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20359 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF20361 :DOUBLE) EPS3) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF20362 :DOUBLE) SMLNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20363 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20354 H) (V-REF20357 V) + (B-REF20358 B) + (RWORK-REF20360 RWORK)) + (%%ZLAEIN RIGHTV-REF20351 NOINIT-REF20352 N-REF20353 H-REF20354 + LDH-REF20355 W-REF20356 V-REF20357 B-REF20358 LDB-REF20359 + RWORK-REF20360 EPS3-REF20361 SMLNUM-REF20362 INFO-REF20363)))) + +(CFFI:DEFCFUN ("zlaesy_" %%ZLAESY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -15240,64 +15219,64 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) CS1) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN1)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF20349 + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF20364 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (B-REF20350 + (B-REF20365 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (C-REF20351 + (C-REF20366 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (RT1-REF20352 + (RT1-REF20367 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (RT2-REF20353 + (RT2-REF20368 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (EVSCAL-REF20354 + (EVSCAL-REF20369 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (CS1-REF20355 + (CS1-REF20370 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (SN1-REF20356 + (SN1-REF20371 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - A-REF20349 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + A-REF20364 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - B-REF20350 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + B-REF20365 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - C-REF20351 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + C-REF20366 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - RT1-REF20352 + RT1-REF20367 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT1))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - RT2-REF20353 + RT2-REF20368 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART RT2) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART RT2))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - EVSCAL-REF20354 + EVSCAL-REF20369 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART EVSCAL) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART EVSCAL))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - CS1-REF20355 + CS1-REF20370 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CS1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CS1))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SN1-REF20356 + SN1-REF20371 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%ZLAESY A-REF20349 B-REF20350 C-REF20351 RT1-REF20352 RT2-REF20353 - EVSCAL-REF20354 CS1-REF20355 SN1-REF20356)))) + (%%ZLAESY A-REF20364 B-REF20365 C-REF20366 RT1-REF20367 RT2-REF20368 + EVSCAL-REF20369 CS1-REF20370 SN1-REF20371)))) -(CFFI:DEFCFUN ("zlaev2_" %%ZLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaev2_" %%ZLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (A :POINTER) (B :POINTER) @@ -15320,41 +15299,41 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS1) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN1)) - (CFFI:WITH-FOREIGN-OBJECTS ((A-REF20357 + (CFFI:WITH-FOREIGN-OBJECTS ((A-REF20372 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (B-REF20358 + (B-REF20373 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (C-REF20359 + (C-REF20374 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (RT1-REF20360 ':DOUBLE) (RT2-REF20361 ':DOUBLE) - (CS1-REF20362 ':DOUBLE) - (SN1-REF20363 + (RT1-REF20375 ':DOUBLE) (RT2-REF20376 ':DOUBLE) + (CS1-REF20377 ':DOUBLE) + (SN1-REF20378 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - A-REF20357 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + A-REF20372 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - B-REF20358 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + B-REF20373 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - C-REF20359 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + C-REF20374 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C))) - (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF20360 :DOUBLE) RT1) - (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF20361 :DOUBLE) RT2) - (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF20362 :DOUBLE) CS1) + (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF20375 :DOUBLE) RT1) + (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF20376 :DOUBLE) RT2) + (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF20377 :DOUBLE) CS1) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SN1-REF20363 + SN1-REF20378 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN1))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%ZLAEV2 A-REF20357 B-REF20358 C-REF20359 RT1-REF20360 RT2-REF20361 - CS1-REF20362 SN1-REF20363)))) + (%%ZLAEV2 A-REF20372 B-REF20373 C-REF20374 RT1-REF20375 RT2-REF20376 + CS1-REF20377 SN1-REF20378)))) -(CFFI:DEFCFUN ("zlag2c_" %%ZLAG2C :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlag2c_" %%ZLAG2C :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -15381,19 +15360,19 @@ SA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20364 ':INT32) (N-REF20365 ':INT32) - (LDA-REF20367 ':INT32) (LDSA-REF20369 ':INT32) - (INFO-REF20370 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20364 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20365 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20367 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF20369 :INT32) LDSA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20370 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20366 A) (SA-REF20368 SA)) - (%%ZLAG2C M-REF20364 N-REF20365 A-REF20366 LDA-REF20367 SA-REF20368 - LDSA-REF20369 INFO-REF20370)))) - -(CFFI:DEFCFUN ("zlags2_" %%ZLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20379 ':INT32) (N-REF20380 ':INT32) + (LDA-REF20382 ':INT32) (LDSA-REF20384 ':INT32) + (INFO-REF20385 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20379 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20380 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20382 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF20384 :INT32) LDSA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20385 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20381 A) (SA-REF20383 SA)) + (%%ZLAG2C M-REF20379 N-REF20380 A-REF20381 LDA-REF20382 SA-REF20383 + LDSA-REF20384 INFO-REF20385)))) + +(CFFI:DEFCFUN ("zlags2_" %%ZLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPPER :POINTER) (A1 :POINTER) @@ -15429,60 +15408,60 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSQ) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SNQ)) - (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF20371 ':INT32) (A1-REF20372 ':DOUBLE) - (A2-REF20373 + (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF20386 ':INT32) (A1-REF20387 ':DOUBLE) + (A2-REF20388 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (A3-REF20374 ':DOUBLE) (B1-REF20375 ':DOUBLE) - (B2-REF20376 + (A3-REF20389 ':DOUBLE) (B1-REF20390 ':DOUBLE) + (B2-REF20391 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (B3-REF20377 ':DOUBLE) (CSU-REF20378 ':DOUBLE) - (SNU-REF20379 + (B3-REF20392 ':DOUBLE) (CSU-REF20393 ':DOUBLE) + (SNU-REF20394 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (CSV-REF20380 ':DOUBLE) - (SNV-REF20381 + (CSV-REF20395 ':DOUBLE) + (SNV-REF20396 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (CSQ-REF20382 ':DOUBLE) - (SNQ-REF20383 + (CSQ-REF20397 ':DOUBLE) + (SNQ-REF20398 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF20371 :INT32) UPPER) - (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF20372 :DOUBLE) A1) + (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF20386 :INT32) UPPER) + (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF20387 :DOUBLE) A1) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - A2-REF20373 + A2-REF20388 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A2) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART A2))) - (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF20374 :DOUBLE) A3) - (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF20375 :DOUBLE) B1) + (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF20389 :DOUBLE) A3) + (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF20390 :DOUBLE) B1) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - B2-REF20376 + B2-REF20391 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B2) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART B2))) - (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF20377 :DOUBLE) B3) - (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF20378 :DOUBLE) CSU) + (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF20392 :DOUBLE) B3) + (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF20393 :DOUBLE) CSU) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SNU-REF20379 + SNU-REF20394 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNU))) - (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF20380 :DOUBLE) CSV) + (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF20395 :DOUBLE) CSV) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SNV-REF20381 + SNV-REF20396 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNV) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNV))) - (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF20382 :DOUBLE) CSQ) + (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF20397 :DOUBLE) CSQ) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SNQ-REF20383 + SNQ-REF20398 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNQ) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SNQ))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%ZLAGS2 UPPER-REF20371 A1-REF20372 A2-REF20373 A3-REF20374 B1-REF20375 - B2-REF20376 B3-REF20377 CSU-REF20378 SNU-REF20379 CSV-REF20380 - SNV-REF20381 CSQ-REF20382 SNQ-REF20383)))) + (%%ZLAGS2 UPPER-REF20386 A1-REF20387 A2-REF20388 A3-REF20389 B1-REF20390 + B2-REF20391 B3-REF20392 CSU-REF20393 SNU-REF20394 CSV-REF20395 + SNV-REF20396 CSQ-REF20397 SNQ-REF20398)))) -(CFFI:DEFCFUN ("zlagtm_" %%ZLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlagtm_" %%ZLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (N :POINTER) @@ -15531,23 +15510,23 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20385 ':INT32) (NRHS-REF20386 ':INT32) - (ALPHA-REF20387 ':DOUBLE) (LDX-REF20392 ':INT32) - (BETA-REF20393 ':DOUBLE) (LDB-REF20395 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20385 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20386 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20387 :DOUBLE) ALPHA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20392 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20393 :DOUBLE) BETA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20395 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF20388 DL) (D-REF20389 D) - (DU-REF20390 DU) (X-REF20391 X) - (B-REF20394 B)) - (%%ZLAGTM TRANS N-REF20385 NRHS-REF20386 ALPHA-REF20387 DL-REF20388 - D-REF20389 DU-REF20390 X-REF20391 LDX-REF20392 BETA-REF20393 - B-REF20394 LDB-REF20395)))) - -(CFFI:DEFCFUN ("zlahef_" %%ZLAHEF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20400 ':INT32) (NRHS-REF20401 ':INT32) + (ALPHA-REF20402 ':DOUBLE) (LDX-REF20407 ':INT32) + (BETA-REF20408 ':DOUBLE) (LDB-REF20410 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20400 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20401 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF20402 :DOUBLE) ALPHA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20407 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF20408 :DOUBLE) BETA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20410 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF20403 DL) (D-REF20404 D) + (DU-REF20405 DU) (X-REF20406 X) + (B-REF20409 B)) + (%%ZLAGTM TRANS N-REF20400 NRHS-REF20401 ALPHA-REF20402 DL-REF20403 + D-REF20404 DU-REF20405 X-REF20406 LDX-REF20407 BETA-REF20408 B-REF20409 + LDB-REF20410)))) + +(CFFI:DEFCFUN ("zlahef_" %%ZLAHEF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -15583,22 +15562,22 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20397 ':INT32) (NB-REF20398 ':INT32) - (KB-REF20399 ':INT32) (LDA-REF20401 ':INT32) - (LDW-REF20404 ':INT32) (INFO-REF20405 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20397 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20398 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20399 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20401 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20404 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20405 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20400 A) (IPIV-REF20402 IPIV) - (W-REF20403 W)) - (%%ZLAHEF UPLO N-REF20397 NB-REF20398 KB-REF20399 A-REF20400 LDA-REF20401 - IPIV-REF20402 W-REF20403 LDW-REF20404 INFO-REF20405)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20412 ':INT32) (NB-REF20413 ':INT32) + (KB-REF20414 ':INT32) (LDA-REF20416 ':INT32) + (LDW-REF20419 ':INT32) (INFO-REF20420 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20412 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20413 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20414 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20416 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20419 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20420 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20415 A) (IPIV-REF20417 IPIV) + (W-REF20418 W)) + (%%ZLAHEF UPLO N-REF20412 NB-REF20413 KB-REF20414 A-REF20415 LDA-REF20416 + IPIV-REF20417 W-REF20418 LDW-REF20419 INFO-REF20420)))) (CFFI:DEFCFUN ("zlahef_aa_" %%ZLAHEF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (J1 :POINTER) @@ -15638,22 +15617,21 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF20407 ':INT32) (M-REF20408 ':INT32) - (NB-REF20409 ':INT32) (LDA-REF20411 ':INT32) - (LDH-REF20414 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF20407 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20408 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20409 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20411 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20414 :INT32) LDH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20410 A) (IPIV-REF20412 IPIV) - (H-REF20413 H) (WORK-REF20415 WORK)) - (%%ZLAHEF_AA UPLO J1-REF20407 M-REF20408 NB-REF20409 A-REF20410 - LDA-REF20411 IPIV-REF20412 H-REF20413 LDH-REF20414 - WORK-REF20415)))) + (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF20422 ':INT32) (M-REF20423 ':INT32) + (NB-REF20424 ':INT32) (LDA-REF20426 ':INT32) + (LDH-REF20429 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF20422 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20423 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20424 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20426 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20429 :INT32) LDH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20425 A) (IPIV-REF20427 IPIV) + (H-REF20428 H) (WORK-REF20430 WORK)) + (%%ZLAHEF_AA UPLO J1-REF20422 M-REF20423 NB-REF20424 A-REF20425 + LDA-REF20426 IPIV-REF20427 H-REF20428 LDH-REF20429 WORK-REF20430)))) (CFFI:DEFCFUN ("zlahef_rk_" %%ZLAHEF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -15695,23 +15673,23 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20417 ':INT32) (NB-REF20418 ':INT32) - (KB-REF20419 ':INT32) (LDA-REF20421 ':INT32) - (LDW-REF20425 ':INT32) (INFO-REF20426 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20417 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20418 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20419 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20421 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20425 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20426 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20420 A) (E-REF20422 E) - (IPIV-REF20423 IPIV) (W-REF20424 W)) - (%%ZLAHEF_RK UPLO N-REF20417 NB-REF20418 KB-REF20419 A-REF20420 - LDA-REF20421 E-REF20422 IPIV-REF20423 W-REF20424 - LDW-REF20425 INFO-REF20426)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20432 ':INT32) (NB-REF20433 ':INT32) + (KB-REF20434 ':INT32) (LDA-REF20436 ':INT32) + (LDW-REF20440 ':INT32) (INFO-REF20441 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20432 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20433 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20434 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20436 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20440 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20441 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20435 A) (E-REF20437 E) + (IPIV-REF20438 IPIV) (W-REF20439 W)) + (%%ZLAHEF_RK UPLO N-REF20432 NB-REF20433 KB-REF20434 A-REF20435 + LDA-REF20436 E-REF20437 IPIV-REF20438 W-REF20439 LDW-REF20440 + INFO-REF20441)))) (CFFI:DEFCFUN ("zlahef_rook_" %%ZLAHEF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -15747,22 +15725,21 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20428 ':INT32) (NB-REF20429 ':INT32) - (KB-REF20430 ':INT32) (LDA-REF20432 ':INT32) - (LDW-REF20435 ':INT32) (INFO-REF20436 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20428 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20429 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20430 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20432 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20435 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20436 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20431 A) (IPIV-REF20433 IPIV) - (W-REF20434 W)) - (%%ZLAHEF_ROOK UPLO N-REF20428 NB-REF20429 KB-REF20430 A-REF20431 - LDA-REF20432 IPIV-REF20433 W-REF20434 LDW-REF20435 - INFO-REF20436)))) - -(CFFI:DEFCFUN ("zlahqr_" %%ZLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20443 ':INT32) (NB-REF20444 ':INT32) + (KB-REF20445 ':INT32) (LDA-REF20447 ':INT32) + (LDW-REF20450 ':INT32) (INFO-REF20451 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20443 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20444 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20445 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20447 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF20450 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20451 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20446 A) (IPIV-REF20448 IPIV) + (W-REF20449 W)) + (%%ZLAHEF_ROOK UPLO N-REF20443 NB-REF20444 KB-REF20445 A-REF20446 + LDA-REF20447 IPIV-REF20448 W-REF20449 LDW-REF20450 INFO-REF20451)))) + +(CFFI:DEFCFUN ("zlahqr_" %%ZLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -15805,28 +15782,28 @@ Z) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20437 ':INT32) (WANTZ-REF20438 ':INT32) - (N-REF20439 ':INT32) (ILO-REF20440 ':INT32) - (IHI-REF20441 ':INT32) (LDH-REF20443 ':INT32) - (ILOZ-REF20445 ':INT32) (IHIZ-REF20446 ':INT32) - (LDZ-REF20448 ':INT32) (INFO-REF20449 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20437 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20438 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20439 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20440 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20441 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20443 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20445 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20446 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20448 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20449 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20442 H) (W-REF20444 W) - (Z-REF20447 Z)) - (%%ZLAHQR WANTT-REF20437 WANTZ-REF20438 N-REF20439 ILO-REF20440 - IHI-REF20441 H-REF20442 LDH-REF20443 W-REF20444 ILOZ-REF20445 - IHIZ-REF20446 Z-REF20447 LDZ-REF20448 INFO-REF20449)))) - -(CFFI:DEFCFUN ("zlahr2_" %%ZLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20452 ':INT32) (WANTZ-REF20453 ':INT32) + (N-REF20454 ':INT32) (ILO-REF20455 ':INT32) + (IHI-REF20456 ':INT32) (LDH-REF20458 ':INT32) + (ILOZ-REF20460 ':INT32) (IHIZ-REF20461 ':INT32) + (LDZ-REF20463 ':INT32) (INFO-REF20464 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20452 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20453 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20454 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20455 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20456 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20458 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20460 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20461 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20463 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20464 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20457 H) (W-REF20459 W) + (Z-REF20462 Z)) + (%%ZLAHQR WANTT-REF20452 WANTZ-REF20453 N-REF20454 ILO-REF20455 + IHI-REF20456 H-REF20457 LDH-REF20458 W-REF20459 ILOZ-REF20460 + IHIZ-REF20461 Z-REF20462 LDZ-REF20463 INFO-REF20464)))) + +(CFFI:DEFCFUN ("zlahr2_" %%ZLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (K :POINTER) @@ -15867,21 +15844,21 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20450 ':INT32) (K-REF20451 ':INT32) - (NB-REF20452 ':INT32) (LDA-REF20454 ':INT32) - (LDT-REF20457 ':INT32) (LDY-REF20459 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20450 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20451 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20452 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20454 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20457 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20459 :INT32) LDY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20453 A) (TAU-REF20455 TAU) - (T-REF20456 T) (Y-REF20458 Y)) - (%%ZLAHR2 N-REF20450 K-REF20451 NB-REF20452 A-REF20453 LDA-REF20454 - TAU-REF20455 T-REF20456 LDT-REF20457 Y-REF20458 LDY-REF20459)))) - -(CFFI:DEFCFUN ("zlaic1_" %%ZLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20465 ':INT32) (K-REF20466 ':INT32) + (NB-REF20467 ':INT32) (LDA-REF20469 ':INT32) + (LDT-REF20472 ':INT32) (LDY-REF20474 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20465 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20466 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20467 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20469 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20472 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF20474 :INT32) LDY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20468 A) (TAU-REF20470 TAU) + (T-REF20471 T) (Y-REF20473 Y)) + (%%ZLAHR2 N-REF20465 K-REF20466 NB-REF20467 A-REF20468 LDA-REF20469 + TAU-REF20470 T-REF20471 LDT-REF20472 Y-REF20473 LDY-REF20474)))) + +(CFFI:DEFCFUN ("zlaic1_" %%ZLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :POINTER) (J :POINTER) @@ -15915,37 +15892,37 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) C)) - (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF20460 ':INT32) (J-REF20461 ':INT32) - (SEST-REF20463 ':DOUBLE) - (GAMMA-REF20465 + (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF20475 ':INT32) (J-REF20476 ':INT32) + (SEST-REF20478 ':DOUBLE) + (GAMMA-REF20480 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (SESTPR-REF20466 ':DOUBLE) - (S-REF20467 + (SESTPR-REF20481 ':DOUBLE) + (S-REF20482 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (C-REF20468 + (C-REF20483 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF20460 :INT32) JOB) - (COMMON-LISP:SETF (CFFI:MEM-REF J-REF20461 :INT32) J) - (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF20463 :DOUBLE) SEST) + (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF20475 :INT32) JOB) + (COMMON-LISP:SETF (CFFI:MEM-REF J-REF20476 :INT32) J) + (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF20478 :DOUBLE) SEST) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - GAMMA-REF20465 + GAMMA-REF20480 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART GAMMA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART GAMMA))) - (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF20466 :DOUBLE) SESTPR) + (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF20481 :DOUBLE) SESTPR) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S-REF20467 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + S-REF20482 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - C-REF20468 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + C-REF20483 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART C))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20462 X) (W-REF20464 W)) - (%%ZLAIC1 JOB-REF20460 J-REF20461 X-REF20462 SEST-REF20463 W-REF20464 - GAMMA-REF20465 SESTPR-REF20466 S-REF20467 C-REF20468)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20477 X) (W-REF20479 W)) + (%%ZLAIC1 JOB-REF20475 J-REF20476 X-REF20477 SEST-REF20478 W-REF20479 + GAMMA-REF20480 SESTPR-REF20481 S-REF20482 C-REF20483)))) -(CFFI:DEFCFUN ("zlals0_" %%ZLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlals0_" %%ZLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (NL :POINTER) @@ -16025,44 +16002,44 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF20469 ':INT32) (NL-REF20470 ':INT32) - (NR-REF20471 ':INT32) (SQRE-REF20472 ':INT32) - (NRHS-REF20473 ':INT32) (LDB-REF20475 ':INT32) - (LDBX-REF20477 ':INT32) (GIVPTR-REF20479 ':INT32) - (LDGCOL-REF20481 ':INT32) - (LDGNUM-REF20483 ':INT32) (K-REF20488 ':INT32) - (C-REF20489 ':DOUBLE) (S-REF20490 ':DOUBLE) - (INFO-REF20492 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF20469 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF20470 :INT32) NL) - (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF20471 :INT32) NR) - (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF20472 :INT32) SQRE) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20473 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20475 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF20477 :INT32) LDBX) - (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF20479 :INT32) GIVPTR) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF20481 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF20483 :INT32) LDGNUM) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20488 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF20489 :DOUBLE) C) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF20490 :DOUBLE) S) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20492 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF20474 B) (BX-REF20476 BX) - (PERM-REF20478 PERM) - (GIVCOL-REF20480 GIVCOL) - (GIVNUM-REF20482 GIVNUM) - (POLES-REF20484 POLES) - (DIFL-REF20485 DIFL) - (DIFR-REF20486 DIFR) (Z-REF20487 Z) - (RWORK-REF20491 RWORK)) - (%%ZLALS0 ICOMPQ-REF20469 NL-REF20470 NR-REF20471 SQRE-REF20472 - NRHS-REF20473 B-REF20474 LDB-REF20475 BX-REF20476 LDBX-REF20477 - PERM-REF20478 GIVPTR-REF20479 GIVCOL-REF20480 LDGCOL-REF20481 - GIVNUM-REF20482 LDGNUM-REF20483 POLES-REF20484 DIFL-REF20485 - DIFR-REF20486 Z-REF20487 K-REF20488 C-REF20489 S-REF20490 - RWORK-REF20491 INFO-REF20492)))) - -(CFFI:DEFCFUN ("zlalsa_" %%ZLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF20484 ':INT32) (NL-REF20485 ':INT32) + (NR-REF20486 ':INT32) (SQRE-REF20487 ':INT32) + (NRHS-REF20488 ':INT32) (LDB-REF20490 ':INT32) + (LDBX-REF20492 ':INT32) (GIVPTR-REF20494 ':INT32) + (LDGCOL-REF20496 ':INT32) + (LDGNUM-REF20498 ':INT32) (K-REF20503 ':INT32) + (C-REF20504 ':DOUBLE) (S-REF20505 ':DOUBLE) + (INFO-REF20507 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF20484 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF20485 :INT32) NL) + (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF20486 :INT32) NR) + (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF20487 :INT32) SQRE) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20488 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20490 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF20492 :INT32) LDBX) + (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF20494 :INT32) GIVPTR) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF20496 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF20498 :INT32) LDGNUM) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20503 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF20504 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF20505 :DOUBLE) S) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20507 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF20489 B) (BX-REF20491 BX) + (PERM-REF20493 PERM) + (GIVCOL-REF20495 GIVCOL) + (GIVNUM-REF20497 GIVNUM) + (POLES-REF20499 POLES) + (DIFL-REF20500 DIFL) + (DIFR-REF20501 DIFR) (Z-REF20502 Z) + (RWORK-REF20506 RWORK)) + (%%ZLALS0 ICOMPQ-REF20484 NL-REF20485 NR-REF20486 SQRE-REF20487 + NRHS-REF20488 B-REF20489 LDB-REF20490 BX-REF20491 LDBX-REF20492 + PERM-REF20493 GIVPTR-REF20494 GIVCOL-REF20495 LDGCOL-REF20496 + GIVNUM-REF20497 LDGNUM-REF20498 POLES-REF20499 DIFL-REF20500 + DIFR-REF20501 Z-REF20502 K-REF20503 C-REF20504 S-REF20505 RWORK-REF20506 + INFO-REF20507)))) + +(CFFI:DEFCFUN ("zlalsa_" %%ZLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (ICOMPQ :POINTER) (SMLSIZ :POINTER) @@ -16160,40 +16137,40 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF20493 ':INT32) - (SMLSIZ-REF20494 ':INT32) (N-REF20495 ':INT32) - (NRHS-REF20496 ':INT32) (LDB-REF20498 ':INT32) - (LDBX-REF20500 ':INT32) (LDU-REF20502 ':INT32) - (LDGCOL-REF20511 ':INT32) (INFO-REF20518 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF20493 :INT32) ICOMPQ) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF20494 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20495 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20496 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20498 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF20500 :INT32) LDBX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20502 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF20511 :INT32) LDGCOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20518 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF20497 B) (BX-REF20499 BX) - (U-REF20501 U) (VT-REF20503 VT) - (K-REF20504 K) (DIFL-REF20505 DIFL) - (DIFR-REF20506 DIFR) (Z-REF20507 Z) - (POLES-REF20508 POLES) - (GIVPTR-REF20509 GIVPTR) - (GIVCOL-REF20510 GIVCOL) - (PERM-REF20512 PERM) - (GIVNUM-REF20513 GIVNUM) - (C-REF20514 C) (S-REF20515 S) - (RWORK-REF20516 RWORK) - (IWORK-REF20517 IWORK)) - (%%ZLALSA ICOMPQ-REF20493 SMLSIZ-REF20494 N-REF20495 NRHS-REF20496 - B-REF20497 LDB-REF20498 BX-REF20499 LDBX-REF20500 U-REF20501 - LDU-REF20502 VT-REF20503 K-REF20504 DIFL-REF20505 DIFR-REF20506 - Z-REF20507 POLES-REF20508 GIVPTR-REF20509 GIVCOL-REF20510 - LDGCOL-REF20511 PERM-REF20512 GIVNUM-REF20513 C-REF20514 - S-REF20515 RWORK-REF20516 IWORK-REF20517 INFO-REF20518)))) - -(CFFI:DEFCFUN ("zlalsd_" %%ZLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF20508 ':INT32) + (SMLSIZ-REF20509 ':INT32) (N-REF20510 ':INT32) + (NRHS-REF20511 ':INT32) (LDB-REF20513 ':INT32) + (LDBX-REF20515 ':INT32) (LDU-REF20517 ':INT32) + (LDGCOL-REF20526 ':INT32) (INFO-REF20533 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF20508 :INT32) ICOMPQ) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF20509 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20510 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20511 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20513 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF20515 :INT32) LDBX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20517 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF20526 :INT32) LDGCOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20533 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF20512 B) (BX-REF20514 BX) + (U-REF20516 U) (VT-REF20518 VT) + (K-REF20519 K) (DIFL-REF20520 DIFL) + (DIFR-REF20521 DIFR) (Z-REF20522 Z) + (POLES-REF20523 POLES) + (GIVPTR-REF20524 GIVPTR) + (GIVCOL-REF20525 GIVCOL) + (PERM-REF20527 PERM) + (GIVNUM-REF20528 GIVNUM) + (C-REF20529 C) (S-REF20530 S) + (RWORK-REF20531 RWORK) + (IWORK-REF20532 IWORK)) + (%%ZLALSA ICOMPQ-REF20508 SMLSIZ-REF20509 N-REF20510 NRHS-REF20511 + B-REF20512 LDB-REF20513 BX-REF20514 LDBX-REF20515 U-REF20516 + LDU-REF20517 VT-REF20518 K-REF20519 DIFL-REF20520 DIFR-REF20521 + Z-REF20522 POLES-REF20523 GIVPTR-REF20524 GIVCOL-REF20525 + LDGCOL-REF20526 PERM-REF20527 GIVNUM-REF20528 C-REF20529 S-REF20530 + RWORK-REF20531 IWORK-REF20532 INFO-REF20533)))) + +(CFFI:DEFCFUN ("zlalsd_" %%ZLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (SMLSIZ :POINTER) @@ -16243,27 +16220,27 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF20520 ':INT32) (N-REF20521 ':INT32) - (NRHS-REF20522 ':INT32) (LDB-REF20526 ':INT32) - (RCOND-REF20527 ':DOUBLE) (RANK-REF20528 ':INT32) - (INFO-REF20532 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF20520 :INT32) SMLSIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20521 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20522 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20526 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20527 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF20528 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20532 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20523 D) (E-REF20524 E) - (B-REF20525 B) (WORK-REF20529 WORK) - (RWORK-REF20530 RWORK) - (IWORK-REF20531 IWORK)) - (%%ZLALSD UPLO SMLSIZ-REF20520 N-REF20521 NRHS-REF20522 D-REF20523 - E-REF20524 B-REF20525 LDB-REF20526 RCOND-REF20527 RANK-REF20528 - WORK-REF20529 RWORK-REF20530 IWORK-REF20531 INFO-REF20532)))) + (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF20535 ':INT32) (N-REF20536 ':INT32) + (NRHS-REF20537 ':INT32) (LDB-REF20541 ':INT32) + (RCOND-REF20542 ':DOUBLE) (RANK-REF20543 ':INT32) + (INFO-REF20547 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF20535 :INT32) SMLSIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20536 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF20537 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20541 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF20542 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF20543 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20547 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20538 D) (E-REF20539 E) + (B-REF20540 B) (WORK-REF20544 WORK) + (RWORK-REF20545 RWORK) + (IWORK-REF20546 IWORK)) + (%%ZLALSD UPLO SMLSIZ-REF20535 N-REF20536 NRHS-REF20537 D-REF20538 + E-REF20539 B-REF20540 LDB-REF20541 RCOND-REF20542 RANK-REF20543 + WORK-REF20544 RWORK-REF20545 IWORK-REF20546 INFO-REF20547)))) (CFFI:DEFCFUN ("zlamswlq_" %%ZLAMSWLQ :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -16317,30 +16294,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20535 ':INT32) (N-REF20536 ':INT32) - (K-REF20537 ':INT32) (MB-REF20538 ':INT32) - (NB-REF20539 ':INT32) (LDA-REF20541 ':INT32) - (LDT-REF20543 ':INT32) (LDC-REF20545 ':INT32) - (LWORK-REF20547 ':INT32) (INFO-REF20548 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20535 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20536 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20537 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20538 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20539 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20541 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20543 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20545 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20547 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20548 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20540 A) (T-REF20542 T) - (C-REF20544 C) (WORK-REF20546 WORK)) - (%%ZLAMSWLQ SIDE TRANS M-REF20535 N-REF20536 K-REF20537 MB-REF20538 - NB-REF20539 A-REF20540 LDA-REF20541 T-REF20542 LDT-REF20543 - C-REF20544 LDC-REF20545 WORK-REF20546 LWORK-REF20547 - INFO-REF20548)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20550 ':INT32) (N-REF20551 ':INT32) + (K-REF20552 ':INT32) (MB-REF20553 ':INT32) + (NB-REF20554 ':INT32) (LDA-REF20556 ':INT32) + (LDT-REF20558 ':INT32) (LDC-REF20560 ':INT32) + (LWORK-REF20562 ':INT32) (INFO-REF20563 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20550 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20551 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20552 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20553 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20554 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20556 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20558 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20560 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20562 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20563 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20555 A) (T-REF20557 T) + (C-REF20559 C) (WORK-REF20561 WORK)) + (%%ZLAMSWLQ SIDE TRANS M-REF20550 N-REF20551 K-REF20552 MB-REF20553 + NB-REF20554 A-REF20555 LDA-REF20556 T-REF20557 LDT-REF20558 C-REF20559 + LDC-REF20560 WORK-REF20561 LWORK-REF20562 INFO-REF20563)))) (CFFI:DEFCFUN ("zlamtsqr_" %%ZLAMTSQR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -16394,29 +16370,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20551 ':INT32) (N-REF20552 ':INT32) - (K-REF20553 ':INT32) (MB-REF20554 ':INT32) - (NB-REF20555 ':INT32) (LDA-REF20557 ':INT32) - (LDT-REF20559 ':INT32) (LDC-REF20561 ':INT32) - (LWORK-REF20563 ':INT32) (INFO-REF20564 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20551 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20552 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20553 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20554 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20555 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20557 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20559 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20561 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20563 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20564 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20556 A) (T-REF20558 T) - (C-REF20560 C) (WORK-REF20562 WORK)) - (%%ZLAMTSQR SIDE TRANS M-REF20551 N-REF20552 K-REF20553 MB-REF20554 - NB-REF20555 A-REF20556 LDA-REF20557 T-REF20558 LDT-REF20559 - C-REF20560 LDC-REF20561 WORK-REF20562 LWORK-REF20563 - INFO-REF20564)))) - -(CFFI:DEFCFUN ("zlangb_" %%ZLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20566 ':INT32) (N-REF20567 ':INT32) + (K-REF20568 ':INT32) (MB-REF20569 ':INT32) + (NB-REF20570 ':INT32) (LDA-REF20572 ':INT32) + (LDT-REF20574 ':INT32) (LDC-REF20576 ':INT32) + (LWORK-REF20578 ':INT32) (INFO-REF20579 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20566 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20567 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20568 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF20569 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20570 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20572 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20574 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20576 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20578 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20579 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20571 A) (T-REF20573 T) + (C-REF20575 C) (WORK-REF20577 WORK)) + (%%ZLAMTSQR SIDE TRANS M-REF20566 N-REF20567 K-REF20568 MB-REF20569 + NB-REF20570 A-REF20571 LDA-REF20572 T-REF20573 LDT-REF20574 C-REF20575 + LDC-REF20576 WORK-REF20577 LWORK-REF20578 INFO-REF20579)))) + +(CFFI:DEFCFUN ("zlangb_" %%ZLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (N :POINTER) @@ -16441,18 +16416,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20566 ':INT32) (KL-REF20567 ':INT32) - (KU-REF20568 ':INT32) (LDAB-REF20570 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20566 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20567 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20568 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20570 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20569 AB) - (WORK-REF20571 WORK)) - (%%ZLANGB NORM N-REF20566 KL-REF20567 KU-REF20568 AB-REF20569 - LDAB-REF20570 WORK-REF20571)))) - -(CFFI:DEFCFUN ("zlange_" %%ZLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20581 ':INT32) (KL-REF20582 ':INT32) + (KU-REF20583 ':INT32) (LDAB-REF20585 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20581 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20582 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20583 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20585 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20584 AB) + (WORK-REF20586 WORK)) + (%%ZLANGB NORM N-REF20581 KL-REF20582 KU-REF20583 AB-REF20584 + LDAB-REF20585 WORK-REF20586)))) + +(CFFI:DEFCFUN ("zlange_" %%ZLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (M :POINTER) @@ -16475,16 +16450,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20573 ':INT32) (N-REF20574 ':INT32) - (LDA-REF20576 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20573 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20574 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20576 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20575 A) (WORK-REF20577 WORK)) - (%%ZLANGE NORM M-REF20573 N-REF20574 A-REF20575 LDA-REF20576 - WORK-REF20577)))) - -(CFFI:DEFCFUN ("zlangt_" %%ZLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20588 ':INT32) (N-REF20589 ':INT32) + (LDA-REF20591 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20588 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20589 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20591 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20590 A) (WORK-REF20592 WORK)) + (%%ZLANGE NORM M-REF20588 N-REF20589 A-REF20590 LDA-REF20591 + WORK-REF20592)))) + +(CFFI:DEFCFUN ("zlangt_" %%ZLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (N :POINTER) @@ -16511,13 +16486,13 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) DU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20579 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20579 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF20580 DL) (D-REF20581 D) - (DU-REF20582 DU)) - (%%ZLANGT NORM N-REF20579 DL-REF20580 D-REF20581 DU-REF20582)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20594 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20594 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF20595 DL) (D-REF20596 D) + (DU-REF20597 DU)) + (%%ZLANGT NORM N-REF20594 DL-REF20595 D-REF20596 DU-REF20597)))) -(CFFI:DEFCFUN ("zlanhb_" %%ZLANHB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlanhb_" %%ZLANHB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -16542,17 +16517,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20585 ':INT32) (K-REF20586 ':INT32) - (LDAB-REF20588 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20585 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20586 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20588 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20587 AB) - (WORK-REF20589 WORK)) - (%%ZLANHB NORM UPLO N-REF20585 K-REF20586 AB-REF20587 LDAB-REF20588 - WORK-REF20589)))) - -(CFFI:DEFCFUN ("zlanhe_" %%ZLANHE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20600 ':INT32) (K-REF20601 ':INT32) + (LDAB-REF20603 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20600 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20601 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20603 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20602 AB) + (WORK-REF20604 WORK)) + (%%ZLANHB NORM UPLO N-REF20600 K-REF20601 AB-REF20602 LDAB-REF20603 + WORK-REF20604)))) + +(CFFI:DEFCFUN ("zlanhe_" %%ZLANHE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -16575,11 +16550,66 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20592 ':INT32) (LDA-REF20594 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20592 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20594 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20593 A) (WORK-REF20595 WORK)) - (%%ZLANHE NORM UPLO N-REF20592 A-REF20593 LDA-REF20594 WORK-REF20595)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20607 ':INT32) (LDA-REF20609 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20607 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20609 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20608 A) (WORK-REF20610 WORK)) + (%%ZLANHE NORM UPLO N-REF20607 A-REF20608 LDA-REF20609 WORK-REF20610)))) + +(CFFI:DEFCFUN ("zlanhf_" %%ZLANHF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :DOUBLE + (NORM :STRING) + (TRANSR :STRING) + (UPLO :STRING) + (N :POINTER) + (A :POINTER) + (WORK :POINTER)) + +(COMMON-LISP:DEFUN %ZLANHF (NORM TRANSR UPLO N A WORK) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHF) + (COMMON-LISP:TYPE COMMON-LISP:STRING NORM) + (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR) + (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + A) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) + WORK)) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20614 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20614 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20615 A) (WORK-REF20616 WORK)) + (%%ZLANHF NORM TRANSR UPLO N-REF20614 A-REF20615 WORK-REF20616)))) + +(CFFI:DEFCFUN ("zlanhp_" %%ZLANHP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :DOUBLE + (NORM :STRING) + (UPLO :STRING) + (N :POINTER) + (AP :POINTER) + (WORK :POINTER)) + +(COMMON-LISP:DEFUN %ZLANHP (NORM UPLO N AP WORK) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHP) + (COMMON-LISP:TYPE COMMON-LISP:STRING NORM) + (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + AP) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) + WORK)) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20619 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20619 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20620 AP) + (WORK-REF20621 WORK)) + (%%ZLANHP NORM UPLO N-REF20619 AP-REF20620 WORK-REF20621)))) (COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%XERBLA %XERBLA %%XERBLA_ARRAY %XERBLA_ARRAY %%ZBBCSD @@ -16649,331 +16679,396 @@ %ZLAHEF_RK %%ZLAHEF_ROOK %ZLAHEF_ROOK %%ZLAHQR %ZLAHQR %%ZLAHR2 %ZLAHR2 %%ZLAIC1 %ZLAIC1 %%ZLALS0 %ZLALS0 %%ZLALSA %ZLALSA %%ZLALSD %ZLALSD %%ZLAMSWLQ %ZLAMSWLQ %%ZLAMTSQR %ZLAMTSQR %%ZLANGB %ZLANGB %%ZLANGE %ZLANGE - %%ZLANGT %ZLANGT %%ZLANHB %ZLANHB %%ZLANHE %ZLANHE)) - -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK - '(("XERBLA" "xerbla_" %%XERBLA %XERBLA) - ("XERBLA_ARRAY" "xerbla_array_" %%XERBLA_ARRAY - %XERBLA_ARRAY) - ("ZBBCSD" "zbbcsd_" %%ZBBCSD %ZBBCSD) - ("ZBDSQR" "zbdsqr_" %%ZBDSQR %ZBDSQR) - ("ZCGESV" "zcgesv_" %%ZCGESV %ZCGESV) - ("ZCPOSV" "zcposv_" %%ZCPOSV %ZCPOSV) - ("ZDRSCL" "zdrscl_" %%ZDRSCL %ZDRSCL) - ("ZGBBRD" "zgbbrd_" %%ZGBBRD %ZGBBRD) - ("ZGBCON" "zgbcon_" %%ZGBCON %ZGBCON) - ("ZGBEQU" "zgbequ_" %%ZGBEQU %ZGBEQU) - ("ZGBEQUB" "zgbequb_" %%ZGBEQUB %ZGBEQUB) - ("ZGBRFS" "zgbrfs_" %%ZGBRFS %ZGBRFS) - ("ZGBRFSX" "zgbrfsx_" %%ZGBRFSX %ZGBRFSX) - ("ZGBSV" "zgbsv_" %%ZGBSV %ZGBSV) - ("ZGBSVX" "zgbsvx_" %%ZGBSVX %ZGBSVX) - ("ZGBSVXX" "zgbsvxx_" %%ZGBSVXX %ZGBSVXX) - ("ZGBTF2" "zgbtf2_" %%ZGBTF2 %ZGBTF2) - ("ZGBTRF" "zgbtrf_" %%ZGBTRF %ZGBTRF) - ("ZGBTRS" "zgbtrs_" %%ZGBTRS %ZGBTRS) - ("ZGEBAK" "zgebak_" %%ZGEBAK %ZGEBAK) - ("ZGEBAL" "zgebal_" %%ZGEBAL %ZGEBAL) - ("ZGEBD2" "zgebd2_" %%ZGEBD2 %ZGEBD2) - ("ZGEBRD" "zgebrd_" %%ZGEBRD %ZGEBRD) - ("ZGECON" "zgecon_" %%ZGECON %ZGECON) - ("ZGEEQU" "zgeequ_" %%ZGEEQU %ZGEEQU) - ("ZGEEQUB" "zgeequb_" %%ZGEEQUB %ZGEEQUB) - ("ZGEES" "zgees_" %%ZGEES %ZGEES) - ("ZGEESX" "zgeesx_" %%ZGEESX %ZGEESX) - ("ZGEEV" "zgeev_" %%ZGEEV %ZGEEV) - ("ZGEEVX" "zgeevx_" %%ZGEEVX %ZGEEVX) - ("ZGEHD2" "zgehd2_" %%ZGEHD2 %ZGEHD2) - ("ZGEHRD" "zgehrd_" %%ZGEHRD %ZGEHRD) - ("ZGEJSV" "zgejsv_" %%ZGEJSV %ZGEJSV) - ("ZGELQ" "zgelq_" %%ZGELQ %ZGELQ) - ("ZGELQ2" "zgelq2_" %%ZGELQ2 %ZGELQ2) - ("ZGELQF" "zgelqf_" %%ZGELQF %ZGELQF) - ("ZGELQT" "zgelqt_" %%ZGELQT %ZGELQT) - ("ZGELQT3" "zgelqt3_" %%ZGELQT3 %ZGELQT3) - ("ZGELS" "zgels_" %%ZGELS %ZGELS) - ("ZGELSD" "zgelsd_" %%ZGELSD %ZGELSD) - ("ZGELSS" "zgelss_" %%ZGELSS %ZGELSS) - ("ZGELSY" "zgelsy_" %%ZGELSY %ZGELSY) - ("ZGEMLQ" "zgemlq_" %%ZGEMLQ %ZGEMLQ) - ("ZGEMLQT" "zgemlqt_" %%ZGEMLQT %ZGEMLQT) - ("ZGEMQR" "zgemqr_" %%ZGEMQR %ZGEMQR) - ("ZGEMQRT" "zgemqrt_" %%ZGEMQRT %ZGEMQRT) - ("ZGEQL2" "zgeql2_" %%ZGEQL2 %ZGEQL2) - ("ZGEQLF" "zgeqlf_" %%ZGEQLF %ZGEQLF) - ("ZGEQP3" "zgeqp3_" %%ZGEQP3 %ZGEQP3) - ("ZGEQR" "zgeqr_" %%ZGEQR %ZGEQR) - ("ZGEQR2" "zgeqr2_" %%ZGEQR2 %ZGEQR2) - ("ZGEQR2P" "zgeqr2p_" %%ZGEQR2P %ZGEQR2P) - ("ZGEQRF" "zgeqrf_" %%ZGEQRF %ZGEQRF) - ("ZGEQRFP" "zgeqrfp_" %%ZGEQRFP %ZGEQRFP) - ("ZGEQRT" "zgeqrt_" %%ZGEQRT %ZGEQRT) - ("ZGEQRT2" "zgeqrt2_" %%ZGEQRT2 %ZGEQRT2) - ("ZGEQRT3" "zgeqrt3_" %%ZGEQRT3 %ZGEQRT3) - ("ZGERFS" "zgerfs_" %%ZGERFS %ZGERFS) - ("ZGERFSX" "zgerfsx_" %%ZGERFSX %ZGERFSX) - ("ZGERQ2" "zgerq2_" %%ZGERQ2 %ZGERQ2) - ("ZGERQF" "zgerqf_" %%ZGERQF %ZGERQF) - ("ZGESC2" "zgesc2_" %%ZGESC2 %ZGESC2) - ("ZGESDD" "zgesdd_" %%ZGESDD %ZGESDD) - ("ZGESV" "zgesv_" %%ZGESV %ZGESV) - ("ZGESVD" "zgesvd_" %%ZGESVD %ZGESVD) - ("ZGESVDQ" "zgesvdq_" %%ZGESVDQ %ZGESVDQ) - ("ZGESVDX" "zgesvdx_" %%ZGESVDX %ZGESVDX) - ("ZGESVJ" "zgesvj_" %%ZGESVJ %ZGESVJ) - ("ZGESVX" "zgesvx_" %%ZGESVX %ZGESVX) - ("ZGESVXX" "zgesvxx_" %%ZGESVXX %ZGESVXX) - ("ZGETC2" "zgetc2_" %%ZGETC2 %ZGETC2) - ("ZGETF2" "zgetf2_" %%ZGETF2 %ZGETF2) - ("ZGETRF" "zgetrf_" %%ZGETRF %ZGETRF) - ("ZGETRF2" "zgetrf2_" %%ZGETRF2 %ZGETRF2) - ("ZGETRI" "zgetri_" %%ZGETRI %ZGETRI) - ("ZGETRS" "zgetrs_" %%ZGETRS %ZGETRS) - ("ZGETSLS" "zgetsls_" %%ZGETSLS %ZGETSLS) - ("ZGGBAK" "zggbak_" %%ZGGBAK %ZGGBAK) - ("ZGGBAL" "zggbal_" %%ZGGBAL %ZGGBAL) - ("ZGGES" "zgges_" %%ZGGES %ZGGES) - ("ZGGES3" "zgges3_" %%ZGGES3 %ZGGES3) - ("ZGGESX" "zggesx_" %%ZGGESX %ZGGESX) - ("ZGGEV" "zggev_" %%ZGGEV %ZGGEV) - ("ZGGEV3" "zggev3_" %%ZGGEV3 %ZGGEV3) - ("ZGGEVX" "zggevx_" %%ZGGEVX %ZGGEVX) - ("ZGGGLM" "zggglm_" %%ZGGGLM %ZGGGLM) - ("ZGGHD3" "zgghd3_" %%ZGGHD3 %ZGGHD3) - ("ZGGHRD" "zgghrd_" %%ZGGHRD %ZGGHRD) - ("ZGGLSE" "zgglse_" %%ZGGLSE %ZGGLSE) - ("ZGGQRF" "zggqrf_" %%ZGGQRF %ZGGQRF) - ("ZGGRQF" "zggrqf_" %%ZGGRQF %ZGGRQF) - ("ZGGSVD3" "zggsvd3_" %%ZGGSVD3 %ZGGSVD3) - ("ZGGSVP3" "zggsvp3_" %%ZGGSVP3 %ZGGSVP3) - ("ZGSVJ0" "zgsvj0_" %%ZGSVJ0 %ZGSVJ0) - ("ZGSVJ1" "zgsvj1_" %%ZGSVJ1 %ZGSVJ1) - ("ZGTCON" "zgtcon_" %%ZGTCON %ZGTCON) - ("ZGTRFS" "zgtrfs_" %%ZGTRFS %ZGTRFS) - ("ZGTSV" "zgtsv_" %%ZGTSV %ZGTSV) - ("ZGTSVX" "zgtsvx_" %%ZGTSVX %ZGTSVX) - ("ZGTTRF" "zgttrf_" %%ZGTTRF %ZGTTRF) - ("ZGTTRS" "zgttrs_" %%ZGTTRS %ZGTTRS) - ("ZGTTS2" "zgtts2_" %%ZGTTS2 %ZGTTS2) - ("ZHB2ST_KERNELS" "zhb2st_kernels_" %%ZHB2ST_KERNELS - %ZHB2ST_KERNELS) - ("ZHBEV" "zhbev_" %%ZHBEV %ZHBEV) - ("ZHBEV_2STAGE" "zhbev_2stage_" %%ZHBEV_2STAGE - %ZHBEV_2STAGE) - ("ZHBEVD" "zhbevd_" %%ZHBEVD %ZHBEVD) - ("ZHBEVD_2STAGE" "zhbevd_2stage_" %%ZHBEVD_2STAGE - %ZHBEVD_2STAGE) - ("ZHBEVX" "zhbevx_" %%ZHBEVX %ZHBEVX) - ("ZHBEVX_2STAGE" "zhbevx_2stage_" %%ZHBEVX_2STAGE - %ZHBEVX_2STAGE) - ("ZHBGST" "zhbgst_" %%ZHBGST %ZHBGST) - ("ZHBGV" "zhbgv_" %%ZHBGV %ZHBGV) - ("ZHBGVD" "zhbgvd_" %%ZHBGVD %ZHBGVD) - ("ZHBGVX" "zhbgvx_" %%ZHBGVX %ZHBGVX) - ("ZHBTRD" "zhbtrd_" %%ZHBTRD %ZHBTRD) - ("ZHECON" "zhecon_" %%ZHECON %ZHECON) - ("ZHECON_3" "zhecon_3_" %%ZHECON_3 %ZHECON_3) - ("ZHECON_ROOK" "zhecon_rook_" %%ZHECON_ROOK %ZHECON_ROOK) - ("ZHEEQUB" "zheequb_" %%ZHEEQUB %ZHEEQUB) - ("ZHEEV" "zheev_" %%ZHEEV %ZHEEV) - ("ZHEEV_2STAGE" "zheev_2stage_" %%ZHEEV_2STAGE - %ZHEEV_2STAGE) - ("ZHEEVD" "zheevd_" %%ZHEEVD %ZHEEVD) - ("ZHEEVD_2STAGE" "zheevd_2stage_" %%ZHEEVD_2STAGE - %ZHEEVD_2STAGE) - ("ZHEEVR" "zheevr_" %%ZHEEVR %ZHEEVR) - ("ZHEEVR_2STAGE" "zheevr_2stage_" %%ZHEEVR_2STAGE - %ZHEEVR_2STAGE) - ("ZHEEVX" "zheevx_" %%ZHEEVX %ZHEEVX) - ("ZHEEVX_2STAGE" "zheevx_2stage_" %%ZHEEVX_2STAGE - %ZHEEVX_2STAGE) - ("ZHEGS2" "zhegs2_" %%ZHEGS2 %ZHEGS2) - ("ZHEGST" "zhegst_" %%ZHEGST %ZHEGST) - ("ZHEGV" "zhegv_" %%ZHEGV %ZHEGV) - ("ZHEGV_2STAGE" "zhegv_2stage_" %%ZHEGV_2STAGE - %ZHEGV_2STAGE) - ("ZHEGVD" "zhegvd_" %%ZHEGVD %ZHEGVD) - ("ZHEGVX" "zhegvx_" %%ZHEGVX %ZHEGVX) - ("ZHERFS" "zherfs_" %%ZHERFS %ZHERFS) - ("ZHERFSX" "zherfsx_" %%ZHERFSX %ZHERFSX) - ("ZHESV" "zhesv_" %%ZHESV %ZHESV) - ("ZHESV_AA" "zhesv_aa_" %%ZHESV_AA %ZHESV_AA) - ("ZHESV_AA_2STAGE" "zhesv_aa_2stage_" %%ZHESV_AA_2STAGE - %ZHESV_AA_2STAGE) - ("ZHESV_RK" "zhesv_rk_" %%ZHESV_RK %ZHESV_RK) - ("ZHESV_ROOK" "zhesv_rook_" %%ZHESV_ROOK %ZHESV_ROOK) - ("ZHESVX" "zhesvx_" %%ZHESVX %ZHESVX) - ("ZHESVXX" "zhesvxx_" %%ZHESVXX %ZHESVXX) - ("ZHESWAPR" "zheswapr_" %%ZHESWAPR %ZHESWAPR) - ("ZHETD2" "zhetd2_" %%ZHETD2 %ZHETD2) - ("ZHETF2" "zhetf2_" %%ZHETF2 %ZHETF2) - ("ZHETF2_RK" "zhetf2_rk_" %%ZHETF2_RK %ZHETF2_RK) - ("ZHETF2_ROOK" "zhetf2_rook_" %%ZHETF2_ROOK %ZHETF2_ROOK) - ("ZHETRD" "zhetrd_" %%ZHETRD %ZHETRD) - ("ZHETRD_2STAGE" "zhetrd_2stage_" %%ZHETRD_2STAGE - %ZHETRD_2STAGE) - ("ZHETRD_HE2HB" "zhetrd_he2hb_" %%ZHETRD_HE2HB - %ZHETRD_HE2HB) - ("ZHETRF" "zhetrf_" %%ZHETRF %ZHETRF) - ("ZHETRF_AA" "zhetrf_aa_" %%ZHETRF_AA %ZHETRF_AA) - ("ZHETRF_AA_2STAGE" "zhetrf_aa_2stage_" - %%ZHETRF_AA_2STAGE %ZHETRF_AA_2STAGE) - ("ZHETRF_RK" "zhetrf_rk_" %%ZHETRF_RK %ZHETRF_RK) - ("ZHETRF_ROOK" "zhetrf_rook_" %%ZHETRF_ROOK %ZHETRF_ROOK) - ("ZHETRI" "zhetri_" %%ZHETRI %ZHETRI) - ("ZHETRI2" "zhetri2_" %%ZHETRI2 %ZHETRI2) - ("ZHETRI2X" "zhetri2x_" %%ZHETRI2X %ZHETRI2X) - ("ZHETRI_3" "zhetri_3_" %%ZHETRI_3 %ZHETRI_3) - ("ZHETRI_3X" "zhetri_3x_" %%ZHETRI_3X %ZHETRI_3X) - ("ZHETRI_ROOK" "zhetri_rook_" %%ZHETRI_ROOK %ZHETRI_ROOK) - ("ZHETRS" "zhetrs_" %%ZHETRS %ZHETRS) - ("ZHETRS2" "zhetrs2_" %%ZHETRS2 %ZHETRS2) - ("ZHETRS_3" "zhetrs_3_" %%ZHETRS_3 %ZHETRS_3) - ("ZHETRS_AA" "zhetrs_aa_" %%ZHETRS_AA %ZHETRS_AA) - ("ZHETRS_AA_2STAGE" "zhetrs_aa_2stage_" - %%ZHETRS_AA_2STAGE %ZHETRS_AA_2STAGE) - ("ZHETRS_ROOK" "zhetrs_rook_" %%ZHETRS_ROOK %ZHETRS_ROOK) - ("ZHFRK" "zhfrk_" %%ZHFRK %ZHFRK) - ("ZHGEQZ" "zhgeqz_" %%ZHGEQZ %ZHGEQZ) - ("ZHPCON" "zhpcon_" %%ZHPCON %ZHPCON) - ("ZHPEV" "zhpev_" %%ZHPEV %ZHPEV) - ("ZHPEVD" "zhpevd_" %%ZHPEVD %ZHPEVD) - ("ZHPEVX" "zhpevx_" %%ZHPEVX %ZHPEVX) - ("ZHPGST" "zhpgst_" %%ZHPGST %ZHPGST) - ("ZHPGV" "zhpgv_" %%ZHPGV %ZHPGV) - ("ZHPGVD" "zhpgvd_" %%ZHPGVD %ZHPGVD) - ("ZHPGVX" "zhpgvx_" %%ZHPGVX %ZHPGVX) - ("ZHPRFS" "zhprfs_" %%ZHPRFS %ZHPRFS) - ("ZHPSV" "zhpsv_" %%ZHPSV %ZHPSV) - ("ZHPSVX" "zhpsvx_" %%ZHPSVX %ZHPSVX) - ("ZHPTRD" "zhptrd_" %%ZHPTRD %ZHPTRD) - ("ZHPTRF" "zhptrf_" %%ZHPTRF %ZHPTRF) - ("ZHPTRI" "zhptri_" %%ZHPTRI %ZHPTRI) - ("ZHPTRS" "zhptrs_" %%ZHPTRS %ZHPTRS) - ("ZHSEIN" "zhsein_" %%ZHSEIN %ZHSEIN) - ("ZHSEQR" "zhseqr_" %%ZHSEQR %ZHSEQR) - ("ZLA_GBAMV" "zla_gbamv_" %%ZLA_GBAMV %ZLA_GBAMV) - ("ZLA_GBRCOND_C" "zla_gbrcond_c_" %%ZLA_GBRCOND_C - %ZLA_GBRCOND_C) - ("ZLA_GBRCOND_X" "zla_gbrcond_x_" %%ZLA_GBRCOND_X - %ZLA_GBRCOND_X) - ("ZLA_GBRFSX_EXTENDED" "zla_gbrfsx_extended_" - %%ZLA_GBRFSX_EXTENDED %ZLA_GBRFSX_EXTENDED) - ("ZLA_GBRPVGRW" "zla_gbrpvgrw_" %%ZLA_GBRPVGRW - %ZLA_GBRPVGRW) - ("ZLA_GEAMV" "zla_geamv_" %%ZLA_GEAMV %ZLA_GEAMV) - ("ZLA_GERCOND_C" "zla_gercond_c_" %%ZLA_GERCOND_C - %ZLA_GERCOND_C) - ("ZLA_GERCOND_X" "zla_gercond_x_" %%ZLA_GERCOND_X - %ZLA_GERCOND_X) - ("ZLA_GERFSX_EXTENDED" "zla_gerfsx_extended_" - %%ZLA_GERFSX_EXTENDED %ZLA_GERFSX_EXTENDED) - ("ZLA_GERPVGRW" "zla_gerpvgrw_" %%ZLA_GERPVGRW - %ZLA_GERPVGRW) - ("ZLA_HEAMV" "zla_heamv_" %%ZLA_HEAMV %ZLA_HEAMV) - ("ZLA_HERCOND_C" "zla_hercond_c_" %%ZLA_HERCOND_C - %ZLA_HERCOND_C) - ("ZLA_HERCOND_X" "zla_hercond_x_" %%ZLA_HERCOND_X - %ZLA_HERCOND_X) - ("ZLA_HERFSX_EXTENDED" "zla_herfsx_extended_" - %%ZLA_HERFSX_EXTENDED %ZLA_HERFSX_EXTENDED) - ("ZLA_HERPVGRW" "zla_herpvgrw_" %%ZLA_HERPVGRW - %ZLA_HERPVGRW) - ("ZLA_LIN_BERR" "zla_lin_berr_" %%ZLA_LIN_BERR - %ZLA_LIN_BERR) - ("ZLA_PORCOND_C" "zla_porcond_c_" %%ZLA_PORCOND_C - %ZLA_PORCOND_C) - ("ZLA_PORCOND_X" "zla_porcond_x_" %%ZLA_PORCOND_X - %ZLA_PORCOND_X) - ("ZLA_PORFSX_EXTENDED" "zla_porfsx_extended_" - %%ZLA_PORFSX_EXTENDED %ZLA_PORFSX_EXTENDED) - ("ZLA_PORPVGRW" "zla_porpvgrw_" %%ZLA_PORPVGRW - %ZLA_PORPVGRW) - ("ZLA_SYAMV" "zla_syamv_" %%ZLA_SYAMV %ZLA_SYAMV) - ("ZLA_SYRCOND_C" "zla_syrcond_c_" %%ZLA_SYRCOND_C - %ZLA_SYRCOND_C) - ("ZLA_SYRCOND_X" "zla_syrcond_x_" %%ZLA_SYRCOND_X - %ZLA_SYRCOND_X) - ("ZLA_SYRFSX_EXTENDED" "zla_syrfsx_extended_" - %%ZLA_SYRFSX_EXTENDED %ZLA_SYRFSX_EXTENDED) - ("ZLA_SYRPVGRW" "zla_syrpvgrw_" %%ZLA_SYRPVGRW - %ZLA_SYRPVGRW) - ("ZLA_WWADDW" "zla_wwaddw_" %%ZLA_WWADDW %ZLA_WWADDW) - ("ZLABRD" "zlabrd_" %%ZLABRD %ZLABRD) - ("ZLACGV" "zlacgv_" %%ZLACGV %ZLACGV) - ("ZLACN2" "zlacn2_" %%ZLACN2 %ZLACN2) - ("ZLACON" "zlacon_" %%ZLACON %ZLACON) - ("ZLACP2" "zlacp2_" %%ZLACP2 %ZLACP2) - ("ZLACPY" "zlacpy_" %%ZLACPY %ZLACPY) - ("ZLACRM" "zlacrm_" %%ZLACRM %ZLACRM) - ("ZLACRT" "zlacrt_" %%ZLACRT %ZLACRT) - ("ZLADIV" "zladiv_" %%ZLADIV %ZLADIV) - ("ZLAED0" "zlaed0_" %%ZLAED0 %ZLAED0) - ("ZLAED7" "zlaed7_" %%ZLAED7 %ZLAED7) - ("ZLAED8" "zlaed8_" %%ZLAED8 %ZLAED8) - ("ZLAEIN" "zlaein_" %%ZLAEIN %ZLAEIN) - ("ZLAESY" "zlaesy_" %%ZLAESY %ZLAESY) - ("ZLAEV2" "zlaev2_" %%ZLAEV2 %ZLAEV2) - ("ZLAG2C" "zlag2c_" %%ZLAG2C %ZLAG2C) - ("ZLAGS2" "zlags2_" %%ZLAGS2 %ZLAGS2) - ("ZLAGTM" "zlagtm_" %%ZLAGTM %ZLAGTM) - ("ZLAHEF" "zlahef_" %%ZLAHEF %ZLAHEF) - ("ZLAHEF_AA" "zlahef_aa_" %%ZLAHEF_AA %ZLAHEF_AA) - ("ZLAHEF_RK" "zlahef_rk_" %%ZLAHEF_RK %ZLAHEF_RK) - ("ZLAHEF_ROOK" "zlahef_rook_" %%ZLAHEF_ROOK %ZLAHEF_ROOK) - ("ZLAHQR" "zlahqr_" %%ZLAHQR %ZLAHQR) - ("ZLAHR2" "zlahr2_" %%ZLAHR2 %ZLAHR2) - ("ZLAIC1" "zlaic1_" %%ZLAIC1 %ZLAIC1) - ("ZLALS0" "zlals0_" %%ZLALS0 %ZLALS0) - ("ZLALSA" "zlalsa_" %%ZLALSA %ZLALSA) - ("ZLALSD" "zlalsd_" %%ZLALSD %ZLALSD) - ("ZLAMSWLQ" "zlamswlq_" %%ZLAMSWLQ %ZLAMSWLQ) - ("ZLAMTSQR" "zlamtsqr_" %%ZLAMTSQR %ZLAMTSQR) - ("ZLANGB" "zlangb_" %%ZLANGB %ZLANGB) - ("ZLANGE" "zlange_" %%ZLANGE %ZLANGE) - ("ZLANGT" "zlangt_" %%ZLANGT %ZLANGT) - ("ZLANHB" "zlanhb_" %%ZLANHB %ZLANHB) - ("ZLANHE" "zlanhe_" %%ZLANHE %ZLANHE))) + %%ZLANGT %ZLANGT %%ZLANHB %ZLANHB %%ZLANHE %ZLANHE %%ZLANHF %ZLANHF %%ZLANHP + %ZLANHP)) + +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK + '(("XERBLA" "xerbla_" %%XERBLA %XERBLA) + ("XERBLA_ARRAY" "xerbla_array_" + %%XERBLA_ARRAY %XERBLA_ARRAY) + ("ZBBCSD" "zbbcsd_" %%ZBBCSD %ZBBCSD) + ("ZBDSQR" "zbdsqr_" %%ZBDSQR %ZBDSQR) + ("ZCGESV" "zcgesv_" %%ZCGESV %ZCGESV) + ("ZCPOSV" "zcposv_" %%ZCPOSV %ZCPOSV) + ("ZDRSCL" "zdrscl_" %%ZDRSCL %ZDRSCL) + ("ZGBBRD" "zgbbrd_" %%ZGBBRD %ZGBBRD) + ("ZGBCON" "zgbcon_" %%ZGBCON %ZGBCON) + ("ZGBEQU" "zgbequ_" %%ZGBEQU %ZGBEQU) + ("ZGBEQUB" "zgbequb_" %%ZGBEQUB + %ZGBEQUB) + ("ZGBRFS" "zgbrfs_" %%ZGBRFS %ZGBRFS) + ("ZGBRFSX" "zgbrfsx_" %%ZGBRFSX + %ZGBRFSX) + ("ZGBSV" "zgbsv_" %%ZGBSV %ZGBSV) + ("ZGBSVX" "zgbsvx_" %%ZGBSVX %ZGBSVX) + ("ZGBSVXX" "zgbsvxx_" %%ZGBSVXX + %ZGBSVXX) + ("ZGBTF2" "zgbtf2_" %%ZGBTF2 %ZGBTF2) + ("ZGBTRF" "zgbtrf_" %%ZGBTRF %ZGBTRF) + ("ZGBTRS" "zgbtrs_" %%ZGBTRS %ZGBTRS) + ("ZGEBAK" "zgebak_" %%ZGEBAK %ZGEBAK) + ("ZGEBAL" "zgebal_" %%ZGEBAL %ZGEBAL) + ("ZGEBD2" "zgebd2_" %%ZGEBD2 %ZGEBD2) + ("ZGEBRD" "zgebrd_" %%ZGEBRD %ZGEBRD) + ("ZGECON" "zgecon_" %%ZGECON %ZGECON) + ("ZGEEQU" "zgeequ_" %%ZGEEQU %ZGEEQU) + ("ZGEEQUB" "zgeequb_" %%ZGEEQUB + %ZGEEQUB) + ("ZGEES" "zgees_" %%ZGEES %ZGEES) + ("ZGEESX" "zgeesx_" %%ZGEESX %ZGEESX) + ("ZGEEV" "zgeev_" %%ZGEEV %ZGEEV) + ("ZGEEVX" "zgeevx_" %%ZGEEVX %ZGEEVX) + ("ZGEHD2" "zgehd2_" %%ZGEHD2 %ZGEHD2) + ("ZGEHRD" "zgehrd_" %%ZGEHRD %ZGEHRD) + ("ZGEJSV" "zgejsv_" %%ZGEJSV %ZGEJSV) + ("ZGELQ" "zgelq_" %%ZGELQ %ZGELQ) + ("ZGELQ2" "zgelq2_" %%ZGELQ2 %ZGELQ2) + ("ZGELQF" "zgelqf_" %%ZGELQF %ZGELQF) + ("ZGELQT" "zgelqt_" %%ZGELQT %ZGELQT) + ("ZGELQT3" "zgelqt3_" %%ZGELQT3 + %ZGELQT3) + ("ZGELS" "zgels_" %%ZGELS %ZGELS) + ("ZGELSD" "zgelsd_" %%ZGELSD %ZGELSD) + ("ZGELSS" "zgelss_" %%ZGELSS %ZGELSS) + ("ZGELSY" "zgelsy_" %%ZGELSY %ZGELSY) + ("ZGEMLQ" "zgemlq_" %%ZGEMLQ %ZGEMLQ) + ("ZGEMLQT" "zgemlqt_" %%ZGEMLQT + %ZGEMLQT) + ("ZGEMQR" "zgemqr_" %%ZGEMQR %ZGEMQR) + ("ZGEMQRT" "zgemqrt_" %%ZGEMQRT + %ZGEMQRT) + ("ZGEQL2" "zgeql2_" %%ZGEQL2 %ZGEQL2) + ("ZGEQLF" "zgeqlf_" %%ZGEQLF %ZGEQLF) + ("ZGEQP3" "zgeqp3_" %%ZGEQP3 %ZGEQP3) + ("ZGEQR" "zgeqr_" %%ZGEQR %ZGEQR) + ("ZGEQR2" "zgeqr2_" %%ZGEQR2 %ZGEQR2) + ("ZGEQR2P" "zgeqr2p_" %%ZGEQR2P + %ZGEQR2P) + ("ZGEQRF" "zgeqrf_" %%ZGEQRF %ZGEQRF) + ("ZGEQRFP" "zgeqrfp_" %%ZGEQRFP + %ZGEQRFP) + ("ZGEQRT" "zgeqrt_" %%ZGEQRT %ZGEQRT) + ("ZGEQRT2" "zgeqrt2_" %%ZGEQRT2 + %ZGEQRT2) + ("ZGEQRT3" "zgeqrt3_" %%ZGEQRT3 + %ZGEQRT3) + ("ZGERFS" "zgerfs_" %%ZGERFS %ZGERFS) + ("ZGERFSX" "zgerfsx_" %%ZGERFSX + %ZGERFSX) + ("ZGERQ2" "zgerq2_" %%ZGERQ2 %ZGERQ2) + ("ZGERQF" "zgerqf_" %%ZGERQF %ZGERQF) + ("ZGESC2" "zgesc2_" %%ZGESC2 %ZGESC2) + ("ZGESDD" "zgesdd_" %%ZGESDD %ZGESDD) + ("ZGESV" "zgesv_" %%ZGESV %ZGESV) + ("ZGESVD" "zgesvd_" %%ZGESVD %ZGESVD) + ("ZGESVDQ" "zgesvdq_" %%ZGESVDQ + %ZGESVDQ) + ("ZGESVDX" "zgesvdx_" %%ZGESVDX + %ZGESVDX) + ("ZGESVJ" "zgesvj_" %%ZGESVJ %ZGESVJ) + ("ZGESVX" "zgesvx_" %%ZGESVX %ZGESVX) + ("ZGESVXX" "zgesvxx_" %%ZGESVXX + %ZGESVXX) + ("ZGETC2" "zgetc2_" %%ZGETC2 %ZGETC2) + ("ZGETF2" "zgetf2_" %%ZGETF2 %ZGETF2) + ("ZGETRF" "zgetrf_" %%ZGETRF %ZGETRF) + ("ZGETRF2" "zgetrf2_" %%ZGETRF2 + %ZGETRF2) + ("ZGETRI" "zgetri_" %%ZGETRI %ZGETRI) + ("ZGETRS" "zgetrs_" %%ZGETRS %ZGETRS) + ("ZGETSLS" "zgetsls_" %%ZGETSLS + %ZGETSLS) + ("ZGGBAK" "zggbak_" %%ZGGBAK %ZGGBAK) + ("ZGGBAL" "zggbal_" %%ZGGBAL %ZGGBAL) + ("ZGGES" "zgges_" %%ZGGES %ZGGES) + ("ZGGES3" "zgges3_" %%ZGGES3 %ZGGES3) + ("ZGGESX" "zggesx_" %%ZGGESX %ZGGESX) + ("ZGGEV" "zggev_" %%ZGGEV %ZGGEV) + ("ZGGEV3" "zggev3_" %%ZGGEV3 %ZGGEV3) + ("ZGGEVX" "zggevx_" %%ZGGEVX %ZGGEVX) + ("ZGGGLM" "zggglm_" %%ZGGGLM %ZGGGLM) + ("ZGGHD3" "zgghd3_" %%ZGGHD3 %ZGGHD3) + ("ZGGHRD" "zgghrd_" %%ZGGHRD %ZGGHRD) + ("ZGGLSE" "zgglse_" %%ZGGLSE %ZGGLSE) + ("ZGGQRF" "zggqrf_" %%ZGGQRF %ZGGQRF) + ("ZGGRQF" "zggrqf_" %%ZGGRQF %ZGGRQF) + ("ZGGSVD3" "zggsvd3_" %%ZGGSVD3 + %ZGGSVD3) + ("ZGGSVP3" "zggsvp3_" %%ZGGSVP3 + %ZGGSVP3) + ("ZGSVJ0" "zgsvj0_" %%ZGSVJ0 %ZGSVJ0) + ("ZGSVJ1" "zgsvj1_" %%ZGSVJ1 %ZGSVJ1) + ("ZGTCON" "zgtcon_" %%ZGTCON %ZGTCON) + ("ZGTRFS" "zgtrfs_" %%ZGTRFS %ZGTRFS) + ("ZGTSV" "zgtsv_" %%ZGTSV %ZGTSV) + ("ZGTSVX" "zgtsvx_" %%ZGTSVX %ZGTSVX) + ("ZGTTRF" "zgttrf_" %%ZGTTRF %ZGTTRF) + ("ZGTTRS" "zgttrs_" %%ZGTTRS %ZGTTRS) + ("ZGTTS2" "zgtts2_" %%ZGTTS2 %ZGTTS2) + ("ZHB2ST_KERNELS" "zhb2st_kernels_" + %%ZHB2ST_KERNELS %ZHB2ST_KERNELS) + ("ZHBEV" "zhbev_" %%ZHBEV %ZHBEV) + ("ZHBEV_2STAGE" "zhbev_2stage_" + %%ZHBEV_2STAGE %ZHBEV_2STAGE) + ("ZHBEVD" "zhbevd_" %%ZHBEVD %ZHBEVD) + ("ZHBEVD_2STAGE" "zhbevd_2stage_" + %%ZHBEVD_2STAGE %ZHBEVD_2STAGE) + ("ZHBEVX" "zhbevx_" %%ZHBEVX %ZHBEVX) + ("ZHBEVX_2STAGE" "zhbevx_2stage_" + %%ZHBEVX_2STAGE %ZHBEVX_2STAGE) + ("ZHBGST" "zhbgst_" %%ZHBGST %ZHBGST) + ("ZHBGV" "zhbgv_" %%ZHBGV %ZHBGV) + ("ZHBGVD" "zhbgvd_" %%ZHBGVD %ZHBGVD) + ("ZHBGVX" "zhbgvx_" %%ZHBGVX %ZHBGVX) + ("ZHBTRD" "zhbtrd_" %%ZHBTRD %ZHBTRD) + ("ZHECON" "zhecon_" %%ZHECON %ZHECON) + ("ZHECON_3" "zhecon_3_" %%ZHECON_3 + %ZHECON_3) + ("ZHECON_ROOK" "zhecon_rook_" + %%ZHECON_ROOK %ZHECON_ROOK) + ("ZHEEQUB" "zheequb_" %%ZHEEQUB + %ZHEEQUB) + ("ZHEEV" "zheev_" %%ZHEEV %ZHEEV) + ("ZHEEV_2STAGE" "zheev_2stage_" + %%ZHEEV_2STAGE %ZHEEV_2STAGE) + ("ZHEEVD" "zheevd_" %%ZHEEVD %ZHEEVD) + ("ZHEEVD_2STAGE" "zheevd_2stage_" + %%ZHEEVD_2STAGE %ZHEEVD_2STAGE) + ("ZHEEVR" "zheevr_" %%ZHEEVR %ZHEEVR) + ("ZHEEVR_2STAGE" "zheevr_2stage_" + %%ZHEEVR_2STAGE %ZHEEVR_2STAGE) + ("ZHEEVX" "zheevx_" %%ZHEEVX %ZHEEVX) + ("ZHEEVX_2STAGE" "zheevx_2stage_" + %%ZHEEVX_2STAGE %ZHEEVX_2STAGE) + ("ZHEGS2" "zhegs2_" %%ZHEGS2 %ZHEGS2) + ("ZHEGST" "zhegst_" %%ZHEGST %ZHEGST) + ("ZHEGV" "zhegv_" %%ZHEGV %ZHEGV) + ("ZHEGV_2STAGE" "zhegv_2stage_" + %%ZHEGV_2STAGE %ZHEGV_2STAGE) + ("ZHEGVD" "zhegvd_" %%ZHEGVD %ZHEGVD) + ("ZHEGVX" "zhegvx_" %%ZHEGVX %ZHEGVX) + ("ZHERFS" "zherfs_" %%ZHERFS %ZHERFS) + ("ZHERFSX" "zherfsx_" %%ZHERFSX + %ZHERFSX) + ("ZHESV" "zhesv_" %%ZHESV %ZHESV) + ("ZHESV_AA" "zhesv_aa_" %%ZHESV_AA + %ZHESV_AA) + ("ZHESV_AA_2STAGE" "zhesv_aa_2stage_" + %%ZHESV_AA_2STAGE %ZHESV_AA_2STAGE) + ("ZHESV_RK" "zhesv_rk_" %%ZHESV_RK + %ZHESV_RK) + ("ZHESV_ROOK" "zhesv_rook_" + %%ZHESV_ROOK %ZHESV_ROOK) + ("ZHESVX" "zhesvx_" %%ZHESVX %ZHESVX) + ("ZHESVXX" "zhesvxx_" %%ZHESVXX + %ZHESVXX) + ("ZHESWAPR" "zheswapr_" %%ZHESWAPR + %ZHESWAPR) + ("ZHETD2" "zhetd2_" %%ZHETD2 %ZHETD2) + ("ZHETF2" "zhetf2_" %%ZHETF2 %ZHETF2) + ("ZHETF2_RK" "zhetf2_rk_" %%ZHETF2_RK + %ZHETF2_RK) + ("ZHETF2_ROOK" "zhetf2_rook_" + %%ZHETF2_ROOK %ZHETF2_ROOK) + ("ZHETRD" "zhetrd_" %%ZHETRD %ZHETRD) + ("ZHETRD_2STAGE" "zhetrd_2stage_" + %%ZHETRD_2STAGE %ZHETRD_2STAGE) + ("ZHETRD_HE2HB" "zhetrd_he2hb_" + %%ZHETRD_HE2HB %ZHETRD_HE2HB) + ("ZHETRF" "zhetrf_" %%ZHETRF %ZHETRF) + ("ZHETRF_AA" "zhetrf_aa_" %%ZHETRF_AA + %ZHETRF_AA) + ("ZHETRF_AA_2STAGE" + "zhetrf_aa_2stage_" + %%ZHETRF_AA_2STAGE + %ZHETRF_AA_2STAGE) + ("ZHETRF_RK" "zhetrf_rk_" %%ZHETRF_RK + %ZHETRF_RK) + ("ZHETRF_ROOK" "zhetrf_rook_" + %%ZHETRF_ROOK %ZHETRF_ROOK) + ("ZHETRI" "zhetri_" %%ZHETRI %ZHETRI) + ("ZHETRI2" "zhetri2_" %%ZHETRI2 + %ZHETRI2) + ("ZHETRI2X" "zhetri2x_" %%ZHETRI2X + %ZHETRI2X) + ("ZHETRI_3" "zhetri_3_" %%ZHETRI_3 + %ZHETRI_3) + ("ZHETRI_3X" "zhetri_3x_" %%ZHETRI_3X + %ZHETRI_3X) + ("ZHETRI_ROOK" "zhetri_rook_" + %%ZHETRI_ROOK %ZHETRI_ROOK) + ("ZHETRS" "zhetrs_" %%ZHETRS %ZHETRS) + ("ZHETRS2" "zhetrs2_" %%ZHETRS2 + %ZHETRS2) + ("ZHETRS_3" "zhetrs_3_" %%ZHETRS_3 + %ZHETRS_3) + ("ZHETRS_AA" "zhetrs_aa_" %%ZHETRS_AA + %ZHETRS_AA) + ("ZHETRS_AA_2STAGE" + "zhetrs_aa_2stage_" + %%ZHETRS_AA_2STAGE + %ZHETRS_AA_2STAGE) + ("ZHETRS_ROOK" "zhetrs_rook_" + %%ZHETRS_ROOK %ZHETRS_ROOK) + ("ZHFRK" "zhfrk_" %%ZHFRK %ZHFRK) + ("ZHGEQZ" "zhgeqz_" %%ZHGEQZ %ZHGEQZ) + ("ZHPCON" "zhpcon_" %%ZHPCON %ZHPCON) + ("ZHPEV" "zhpev_" %%ZHPEV %ZHPEV) + ("ZHPEVD" "zhpevd_" %%ZHPEVD %ZHPEVD) + ("ZHPEVX" "zhpevx_" %%ZHPEVX %ZHPEVX) + ("ZHPGST" "zhpgst_" %%ZHPGST %ZHPGST) + ("ZHPGV" "zhpgv_" %%ZHPGV %ZHPGV) + ("ZHPGVD" "zhpgvd_" %%ZHPGVD %ZHPGVD) + ("ZHPGVX" "zhpgvx_" %%ZHPGVX %ZHPGVX) + ("ZHPRFS" "zhprfs_" %%ZHPRFS %ZHPRFS) + ("ZHPSV" "zhpsv_" %%ZHPSV %ZHPSV) + ("ZHPSVX" "zhpsvx_" %%ZHPSVX %ZHPSVX) + ("ZHPTRD" "zhptrd_" %%ZHPTRD %ZHPTRD) + ("ZHPTRF" "zhptrf_" %%ZHPTRF %ZHPTRF) + ("ZHPTRI" "zhptri_" %%ZHPTRI %ZHPTRI) + ("ZHPTRS" "zhptrs_" %%ZHPTRS %ZHPTRS) + ("ZHSEIN" "zhsein_" %%ZHSEIN %ZHSEIN) + ("ZHSEQR" "zhseqr_" %%ZHSEQR %ZHSEQR) + ("ZLA_GBAMV" "zla_gbamv_" %%ZLA_GBAMV + %ZLA_GBAMV) + ("ZLA_GBRCOND_C" "zla_gbrcond_c_" + %%ZLA_GBRCOND_C %ZLA_GBRCOND_C) + ("ZLA_GBRCOND_X" "zla_gbrcond_x_" + %%ZLA_GBRCOND_X %ZLA_GBRCOND_X) + ("ZLA_GBRFSX_EXTENDED" + "zla_gbrfsx_extended_" + %%ZLA_GBRFSX_EXTENDED + %ZLA_GBRFSX_EXTENDED) + ("ZLA_GBRPVGRW" "zla_gbrpvgrw_" + %%ZLA_GBRPVGRW %ZLA_GBRPVGRW) + ("ZLA_GEAMV" "zla_geamv_" %%ZLA_GEAMV + %ZLA_GEAMV) + ("ZLA_GERCOND_C" "zla_gercond_c_" + %%ZLA_GERCOND_C %ZLA_GERCOND_C) + ("ZLA_GERCOND_X" "zla_gercond_x_" + %%ZLA_GERCOND_X %ZLA_GERCOND_X) + ("ZLA_GERFSX_EXTENDED" + "zla_gerfsx_extended_" + %%ZLA_GERFSX_EXTENDED + %ZLA_GERFSX_EXTENDED) + ("ZLA_GERPVGRW" "zla_gerpvgrw_" + %%ZLA_GERPVGRW %ZLA_GERPVGRW) + ("ZLA_HEAMV" "zla_heamv_" %%ZLA_HEAMV + %ZLA_HEAMV) + ("ZLA_HERCOND_C" "zla_hercond_c_" + %%ZLA_HERCOND_C %ZLA_HERCOND_C) + ("ZLA_HERCOND_X" "zla_hercond_x_" + %%ZLA_HERCOND_X %ZLA_HERCOND_X) + ("ZLA_HERFSX_EXTENDED" + "zla_herfsx_extended_" + %%ZLA_HERFSX_EXTENDED + %ZLA_HERFSX_EXTENDED) + ("ZLA_HERPVGRW" "zla_herpvgrw_" + %%ZLA_HERPVGRW %ZLA_HERPVGRW) + ("ZLA_LIN_BERR" "zla_lin_berr_" + %%ZLA_LIN_BERR %ZLA_LIN_BERR) + ("ZLA_PORCOND_C" "zla_porcond_c_" + %%ZLA_PORCOND_C %ZLA_PORCOND_C) + ("ZLA_PORCOND_X" "zla_porcond_x_" + %%ZLA_PORCOND_X %ZLA_PORCOND_X) + ("ZLA_PORFSX_EXTENDED" + "zla_porfsx_extended_" + %%ZLA_PORFSX_EXTENDED + %ZLA_PORFSX_EXTENDED) + ("ZLA_PORPVGRW" "zla_porpvgrw_" + %%ZLA_PORPVGRW %ZLA_PORPVGRW) + ("ZLA_SYAMV" "zla_syamv_" %%ZLA_SYAMV + %ZLA_SYAMV) + ("ZLA_SYRCOND_C" "zla_syrcond_c_" + %%ZLA_SYRCOND_C %ZLA_SYRCOND_C) + ("ZLA_SYRCOND_X" "zla_syrcond_x_" + %%ZLA_SYRCOND_X %ZLA_SYRCOND_X) + ("ZLA_SYRFSX_EXTENDED" + "zla_syrfsx_extended_" + %%ZLA_SYRFSX_EXTENDED + %ZLA_SYRFSX_EXTENDED) + ("ZLA_SYRPVGRW" "zla_syrpvgrw_" + %%ZLA_SYRPVGRW %ZLA_SYRPVGRW) + ("ZLA_WWADDW" "zla_wwaddw_" + %%ZLA_WWADDW %ZLA_WWADDW) + ("ZLABRD" "zlabrd_" %%ZLABRD %ZLABRD) + ("ZLACGV" "zlacgv_" %%ZLACGV %ZLACGV) + ("ZLACN2" "zlacn2_" %%ZLACN2 %ZLACN2) + ("ZLACON" "zlacon_" %%ZLACON %ZLACON) + ("ZLACP2" "zlacp2_" %%ZLACP2 %ZLACP2) + ("ZLACPY" "zlacpy_" %%ZLACPY %ZLACPY) + ("ZLACRM" "zlacrm_" %%ZLACRM %ZLACRM) + ("ZLACRT" "zlacrt_" %%ZLACRT %ZLACRT) + ("ZLADIV" "zladiv_" %%ZLADIV %ZLADIV) + ("ZLAED0" "zlaed0_" %%ZLAED0 %ZLAED0) + ("ZLAED7" "zlaed7_" %%ZLAED7 %ZLAED7) + ("ZLAED8" "zlaed8_" %%ZLAED8 %ZLAED8) + ("ZLAEIN" "zlaein_" %%ZLAEIN %ZLAEIN) + ("ZLAESY" "zlaesy_" %%ZLAESY %ZLAESY) + ("ZLAEV2" "zlaev2_" %%ZLAEV2 %ZLAEV2) + ("ZLAG2C" "zlag2c_" %%ZLAG2C %ZLAG2C) + ("ZLAGS2" "zlags2_" %%ZLAGS2 %ZLAGS2) + ("ZLAGTM" "zlagtm_" %%ZLAGTM %ZLAGTM) + ("ZLAHEF" "zlahef_" %%ZLAHEF %ZLAHEF) + ("ZLAHEF_AA" "zlahef_aa_" %%ZLAHEF_AA + %ZLAHEF_AA) + ("ZLAHEF_RK" "zlahef_rk_" %%ZLAHEF_RK + %ZLAHEF_RK) + ("ZLAHEF_ROOK" "zlahef_rook_" + %%ZLAHEF_ROOK %ZLAHEF_ROOK) + ("ZLAHQR" "zlahqr_" %%ZLAHQR %ZLAHQR) + ("ZLAHR2" "zlahr2_" %%ZLAHR2 %ZLAHR2) + ("ZLAIC1" "zlaic1_" %%ZLAIC1 %ZLAIC1) + ("ZLALS0" "zlals0_" %%ZLALS0 %ZLALS0) + ("ZLALSA" "zlalsa_" %%ZLALSA %ZLALSA) + ("ZLALSD" "zlalsd_" %%ZLALSD %ZLALSD) + ("ZLAMSWLQ" "zlamswlq_" %%ZLAMSWLQ + %ZLAMSWLQ) + ("ZLAMTSQR" "zlamtsqr_" %%ZLAMTSQR + %ZLAMTSQR) + ("ZLANGB" "zlangb_" %%ZLANGB %ZLANGB) + ("ZLANGE" "zlange_" %%ZLANGE %ZLANGE) + ("ZLANGT" "zlangt_" %%ZLANGT %ZLANGT) + ("ZLANHB" "zlanhb_" %%ZLANHB %ZLANHB) + ("ZLANHE" "zlanhe_" %%ZLANHE %ZLANHE) + ("ZLANHF" "zlanhf_" %%ZLANHF %ZLANHF) + ("ZLANHP" "zlanhp_" %%ZLANHP + %ZLANHP))) (COMMON-LISP:EXPORT '(%XERBLA %XERBLA_ARRAY %ZBBCSD %ZBDSQR %ZCGESV %ZCPOSV %ZDRSCL %ZGBBRD - %ZGBCON %ZGBEQU %ZGBEQUB %ZGBRFS %ZGBRFSX %ZGBSV %ZGBSVX %ZGBSVXX - %ZGBTF2 %ZGBTRF %ZGBTRS %ZGEBAK %ZGEBAL %ZGEBD2 %ZGEBRD %ZGECON - %ZGEEQU %ZGEEQUB %ZGEES %ZGEESX %ZGEEV %ZGEEVX %ZGEHD2 %ZGEHRD - %ZGEJSV %ZGELQ %ZGELQ2 %ZGELQF %ZGELQT %ZGELQT3 %ZGELS %ZGELSD - %ZGELSS %ZGELSY %ZGEMLQ %ZGEMLQT %ZGEMQR %ZGEMQRT %ZGEQL2 %ZGEQLF - %ZGEQP3 %ZGEQR %ZGEQR2 %ZGEQR2P %ZGEQRF %ZGEQRFP %ZGEQRT %ZGEQRT2 - %ZGEQRT3 %ZGERFS %ZGERFSX %ZGERQ2 %ZGERQF %ZGESC2 %ZGESDD %ZGESV - %ZGESVD %ZGESVDQ %ZGESVDX %ZGESVJ %ZGESVX %ZGESVXX %ZGETC2 %ZGETF2 - %ZGETRF %ZGETRF2 %ZGETRI %ZGETRS %ZGETSLS %ZGGBAK %ZGGBAL %ZGGES - %ZGGES3 %ZGGESX %ZGGEV %ZGGEV3 %ZGGEVX %ZGGGLM %ZGGHD3 %ZGGHRD - %ZGGLSE %ZGGQRF %ZGGRQF %ZGGSVD3 %ZGGSVP3 %ZGSVJ0 %ZGSVJ1 %ZGTCON - %ZGTRFS %ZGTSV %ZGTSVX %ZGTTRF %ZGTTRS %ZGTTS2 %ZHB2ST_KERNELS - %ZHBEV %ZHBEV_2STAGE %ZHBEVD %ZHBEVD_2STAGE %ZHBEVX %ZHBEVX_2STAGE - %ZHBGST %ZHBGV %ZHBGVD %ZHBGVX %ZHBTRD %ZHECON %ZHECON_3 - %ZHECON_ROOK %ZHEEQUB %ZHEEV %ZHEEV_2STAGE %ZHEEVD %ZHEEVD_2STAGE - %ZHEEVR %ZHEEVR_2STAGE %ZHEEVX %ZHEEVX_2STAGE %ZHEGS2 %ZHEGST %ZHEGV - %ZHEGV_2STAGE %ZHEGVD %ZHEGVX %ZHERFS %ZHERFSX %ZHESV %ZHESV_AA - %ZHESV_AA_2STAGE %ZHESV_RK %ZHESV_ROOK %ZHESVX %ZHESVXX %ZHESWAPR - %ZHETD2 %ZHETF2 %ZHETF2_RK %ZHETF2_ROOK %ZHETRD %ZHETRD_2STAGE - %ZHETRD_HE2HB %ZHETRF %ZHETRF_AA %ZHETRF_AA_2STAGE %ZHETRF_RK - %ZHETRF_ROOK %ZHETRI %ZHETRI2 %ZHETRI2X %ZHETRI_3 %ZHETRI_3X - %ZHETRI_ROOK %ZHETRS %ZHETRS2 %ZHETRS_3 %ZHETRS_AA %ZHETRS_AA_2STAGE - %ZHETRS_ROOK %ZHFRK %ZHGEQZ %ZHPCON %ZHPEV %ZHPEVD %ZHPEVX %ZHPGST - %ZHPGV %ZHPGVD %ZHPGVX %ZHPRFS %ZHPSV %ZHPSVX %ZHPTRD %ZHPTRF - %ZHPTRI %ZHPTRS %ZHSEIN %ZHSEQR %ZLA_GBAMV %ZLA_GBRCOND_C - %ZLA_GBRCOND_X %ZLA_GBRFSX_EXTENDED %ZLA_GBRPVGRW %ZLA_GEAMV - %ZLA_GERCOND_C %ZLA_GERCOND_X %ZLA_GERFSX_EXTENDED %ZLA_GERPVGRW - %ZLA_HEAMV %ZLA_HERCOND_C %ZLA_HERCOND_X %ZLA_HERFSX_EXTENDED - %ZLA_HERPVGRW %ZLA_LIN_BERR %ZLA_PORCOND_C %ZLA_PORCOND_X - %ZLA_PORFSX_EXTENDED %ZLA_PORPVGRW %ZLA_SYAMV %ZLA_SYRCOND_C - %ZLA_SYRCOND_X %ZLA_SYRFSX_EXTENDED %ZLA_SYRPVGRW %ZLA_WWADDW - %ZLABRD %ZLACGV %ZLACN2 %ZLACON %ZLACP2 %ZLACPY %ZLACRM %ZLACRT - %ZLADIV %ZLAED0 %ZLAED7 %ZLAED8 %ZLAEIN %ZLAESY %ZLAEV2 %ZLAG2C - %ZLAGS2 %ZLAGTM %ZLAHEF %ZLAHEF_AA %ZLAHEF_RK %ZLAHEF_ROOK %ZLAHQR - %ZLAHR2 %ZLAIC1 %ZLALS0 %ZLALSA %ZLALSD %ZLAMSWLQ %ZLAMTSQR %ZLANGB - %ZLANGE %ZLANGT %ZLANHB %ZLANHE) + %ZGBCON %ZGBEQU %ZGBEQUB %ZGBRFS %ZGBRFSX %ZGBSV %ZGBSVX %ZGBSVXX %ZGBTF2 + %ZGBTRF %ZGBTRS %ZGEBAK %ZGEBAL %ZGEBD2 %ZGEBRD %ZGECON %ZGEEQU %ZGEEQUB + %ZGEES %ZGEESX %ZGEEV %ZGEEVX %ZGEHD2 %ZGEHRD %ZGEJSV %ZGELQ %ZGELQ2 %ZGELQF + %ZGELQT %ZGELQT3 %ZGELS %ZGELSD %ZGELSS %ZGELSY %ZGEMLQ %ZGEMLQT %ZGEMQR + %ZGEMQRT %ZGEQL2 %ZGEQLF %ZGEQP3 %ZGEQR %ZGEQR2 %ZGEQR2P %ZGEQRF %ZGEQRFP + %ZGEQRT %ZGEQRT2 %ZGEQRT3 %ZGERFS %ZGERFSX %ZGERQ2 %ZGERQF %ZGESC2 %ZGESDD + %ZGESV %ZGESVD %ZGESVDQ %ZGESVDX %ZGESVJ %ZGESVX %ZGESVXX %ZGETC2 %ZGETF2 + %ZGETRF %ZGETRF2 %ZGETRI %ZGETRS %ZGETSLS %ZGGBAK %ZGGBAL %ZGGES %ZGGES3 + %ZGGESX %ZGGEV %ZGGEV3 %ZGGEVX %ZGGGLM %ZGGHD3 %ZGGHRD %ZGGLSE %ZGGQRF + %ZGGRQF %ZGGSVD3 %ZGGSVP3 %ZGSVJ0 %ZGSVJ1 %ZGTCON %ZGTRFS %ZGTSV %ZGTSVX + %ZGTTRF %ZGTTRS %ZGTTS2 %ZHB2ST_KERNELS %ZHBEV %ZHBEV_2STAGE %ZHBEVD + %ZHBEVD_2STAGE %ZHBEVX %ZHBEVX_2STAGE %ZHBGST %ZHBGV %ZHBGVD %ZHBGVX %ZHBTRD + %ZHECON %ZHECON_3 %ZHECON_ROOK %ZHEEQUB %ZHEEV %ZHEEV_2STAGE %ZHEEVD + %ZHEEVD_2STAGE %ZHEEVR %ZHEEVR_2STAGE %ZHEEVX %ZHEEVX_2STAGE %ZHEGS2 %ZHEGST + %ZHEGV %ZHEGV_2STAGE %ZHEGVD %ZHEGVX %ZHERFS %ZHERFSX %ZHESV %ZHESV_AA + %ZHESV_AA_2STAGE %ZHESV_RK %ZHESV_ROOK %ZHESVX %ZHESVXX %ZHESWAPR %ZHETD2 + %ZHETF2 %ZHETF2_RK %ZHETF2_ROOK %ZHETRD %ZHETRD_2STAGE %ZHETRD_HE2HB %ZHETRF + %ZHETRF_AA %ZHETRF_AA_2STAGE %ZHETRF_RK %ZHETRF_ROOK %ZHETRI %ZHETRI2 + %ZHETRI2X %ZHETRI_3 %ZHETRI_3X %ZHETRI_ROOK %ZHETRS %ZHETRS2 %ZHETRS_3 + %ZHETRS_AA %ZHETRS_AA_2STAGE %ZHETRS_ROOK %ZHFRK %ZHGEQZ %ZHPCON %ZHPEV + %ZHPEVD %ZHPEVX %ZHPGST %ZHPGV %ZHPGVD %ZHPGVX %ZHPRFS %ZHPSV %ZHPSVX + %ZHPTRD %ZHPTRF %ZHPTRI %ZHPTRS %ZHSEIN %ZHSEQR %ZLA_GBAMV %ZLA_GBRCOND_C + %ZLA_GBRCOND_X %ZLA_GBRFSX_EXTENDED %ZLA_GBRPVGRW %ZLA_GEAMV %ZLA_GERCOND_C + %ZLA_GERCOND_X %ZLA_GERFSX_EXTENDED %ZLA_GERPVGRW %ZLA_HEAMV %ZLA_HERCOND_C + %ZLA_HERCOND_X %ZLA_HERFSX_EXTENDED %ZLA_HERPVGRW %ZLA_LIN_BERR + %ZLA_PORCOND_C %ZLA_PORCOND_X %ZLA_PORFSX_EXTENDED %ZLA_PORPVGRW %ZLA_SYAMV + %ZLA_SYRCOND_C %ZLA_SYRCOND_X %ZLA_SYRFSX_EXTENDED %ZLA_SYRPVGRW %ZLA_WWADDW + %ZLABRD %ZLACGV %ZLACN2 %ZLACON %ZLACP2 %ZLACPY %ZLACRM %ZLACRT %ZLADIV + %ZLAED0 %ZLAED7 %ZLAED8 %ZLAEIN %ZLAESY %ZLAEV2 %ZLAG2C %ZLAGS2 %ZLAGTM + %ZLAHEF %ZLAHEF_AA %ZLAHEF_RK %ZLAHEF_ROOK %ZLAHQR %ZLAHR2 %ZLAIC1 %ZLALS0 + %ZLALSA %ZLALSD %ZLAMSWLQ %ZLAMTSQR %ZLANGB %ZLANGE %ZLANGT %ZLANHB %ZLANHE + %ZLANHF %ZLANHP) '#:MAGICL.LAPACK-CFFI) ;;; End of file. diff --git a/src/bindings/lapack07-cffi.lisp b/src/bindings/lapack07-cffi.lisp index 2a2ea449..4b2900b1 100644 --- a/src/bindings/lapack07-cffi.lisp +++ b/src/bindings/lapack07-cffi.lisp @@ -1,4 +1,4 @@ -;;;; Generated on 5/21/2019 at 13:37:10 (UTC+1). +;;;; Generated on 3/22/2021 at 17:54:20 (UTC-8). (COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY @@ -7,123 +7,69 @@ (COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI) (COMMON-LISP:DECLAIM - (COMMON-LISP:INLINE %%ZLANHF %ZLANHF %%ZLANHP %ZLANHP %%ZLANHS %ZLANHS - %%ZLANHT %ZLANHT %%ZLANSB %ZLANSB %%ZLANSP %ZLANSP %%ZLANSY %ZLANSY %%ZLANTB - %ZLANTB %%ZLANTP %ZLANTP %%ZLANTR %ZLANTR %%ZLAPLL %ZLAPLL %%ZLAPMR %ZLAPMR - %%ZLAPMT %ZLAPMT %%ZLAQGB %ZLAQGB %%ZLAQGE %ZLAQGE %%ZLAQHB %ZLAQHB %%ZLAQHE - %ZLAQHE %%ZLAQHP %ZLAQHP %%ZLAQP2 %ZLAQP2 %%ZLAQPS %ZLAQPS %%ZLAQR0 %ZLAQR0 - %%ZLAQR1 %ZLAQR1 %%ZLAQR2 %ZLAQR2 %%ZLAQR3 %ZLAQR3 %%ZLAQR4 %ZLAQR4 %%ZLAQR5 - %ZLAQR5 %%ZLAQSB %ZLAQSB %%ZLAQSP %ZLAQSP %%ZLAQSY %ZLAQSY %%ZLAR1V %ZLAR1V - %%ZLAR2V %ZLAR2V %%ZLARCM %ZLARCM %%ZLARF %ZLARF %%ZLARFB %ZLARFB %%ZLARFG - %ZLARFG %%ZLARFGP %ZLARFGP %%ZLARFT %ZLARFT %%ZLARFX %ZLARFX %%ZLARFY %ZLARFY - %%ZLARGV %ZLARGV %%ZLARNV %ZLARNV %%ZLARRV %ZLARRV %%ZLARSCL2 %ZLARSCL2 - %%ZLARTG %ZLARTG %%ZLARTV %ZLARTV %%ZLARZ %ZLARZ %%ZLARZB %ZLARZB %%ZLARZT - %ZLARZT %%ZLASCL %ZLASCL %%ZLASCL2 %ZLASCL2 %%ZLASET %ZLASET %%ZLASR %ZLASR - %%ZLASSQ %ZLASSQ %%ZLASWLQ %ZLASWLQ %%ZLASWP %ZLASWP %%ZLASYF %ZLASYF - %%ZLASYF_AA %ZLASYF_AA %%ZLASYF_RK %ZLASYF_RK %%ZLASYF_ROOK %ZLASYF_ROOK - %%ZLAT2C %ZLAT2C %%ZLATBS %ZLATBS %%ZLATDF %ZLATDF %%ZLATPS %ZLATPS %%ZLATRD - %ZLATRD %%ZLATRS %ZLATRS %%ZLATRZ %ZLATRZ %%ZLATSQR %ZLATSQR %%ZLAUU2 %ZLAUU2 - %%ZLAUUM %ZLAUUM %%ZPBCON %ZPBCON %%ZPBEQU %ZPBEQU %%ZPBRFS %ZPBRFS %%ZPBSTF - %ZPBSTF %%ZPBSV %ZPBSV %%ZPBSVX %ZPBSVX %%ZPBTF2 %ZPBTF2 %%ZPBTRF %ZPBTRF - %%ZPBTRS %ZPBTRS %%ZPFTRF %ZPFTRF %%ZPFTRI %ZPFTRI %%ZPFTRS %ZPFTRS %%ZPOCON - %ZPOCON %%ZPOEQU %ZPOEQU %%ZPOEQUB %ZPOEQUB %%ZPORFS %ZPORFS %%ZPORFSX - %ZPORFSX %%ZPOSV %ZPOSV %%ZPOSVX %ZPOSVX %%ZPOSVXX %ZPOSVXX %%ZPOTF2 %ZPOTF2 - %%ZPOTRF %ZPOTRF %%ZPOTRF2 %ZPOTRF2 %%ZPOTRI %ZPOTRI %%ZPOTRS %ZPOTRS - %%ZPPCON %ZPPCON %%ZPPEQU %ZPPEQU %%ZPPRFS %ZPPRFS %%ZPPSV %ZPPSV %%ZPPSVX - %ZPPSVX %%ZPPTRF %ZPPTRF %%ZPPTRI %ZPPTRI %%ZPPTRS %ZPPTRS %%ZPSTF2 %ZPSTF2 - %%ZPSTRF %ZPSTRF %%ZPTCON %ZPTCON %%ZPTEQR %ZPTEQR %%ZPTRFS %ZPTRFS %%ZPTSV - %ZPTSV %%ZPTSVX %ZPTSVX %%ZPTTRF %ZPTTRF %%ZPTTRS %ZPTTRS %%ZPTTS2 %ZPTTS2 - %%ZROT %ZROT %%ZSPCON %ZSPCON %%ZSPMV %ZSPMV %%ZSPR %ZSPR %%ZSPRFS %ZSPRFS - %%ZSPSV %ZSPSV %%ZSPSVX %ZSPSVX %%ZSPTRF %ZSPTRF %%ZSPTRI %ZSPTRI %%ZSPTRS - %ZSPTRS %%ZSTEDC %ZSTEDC %%ZSTEGR %ZSTEGR %%ZSTEIN %ZSTEIN %%ZSTEMR %ZSTEMR - %%ZSTEQR %ZSTEQR %%ZSYCON %ZSYCON %%ZSYCON_3 %ZSYCON_3 %%ZSYCON_ROOK - %ZSYCON_ROOK %%ZSYCONV %ZSYCONV %%ZSYCONVF %ZSYCONVF %%ZSYCONVF_ROOK - %ZSYCONVF_ROOK %%ZSYEQUB %ZSYEQUB %%ZSYMV %ZSYMV %%ZSYR %ZSYR %%ZSYRFS - %ZSYRFS %%ZSYRFSX %ZSYRFSX %%ZSYSV %ZSYSV %%ZSYSV_AA %ZSYSV_AA - %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE %%ZSYSV_RK %ZSYSV_RK %%ZSYSV_ROOK - %ZSYSV_ROOK %%ZSYSVX %ZSYSVX %%ZSYSVXX %ZSYSVXX %%ZSYSWAPR %ZSYSWAPR %%ZSYTF2 - %ZSYTF2 %%ZSYTF2_RK %ZSYTF2_RK %%ZSYTF2_ROOK %ZSYTF2_ROOK %%ZSYTRF %ZSYTRF - %%ZSYTRF_AA %ZSYTRF_AA %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE %%ZSYTRF_RK - %ZSYTRF_RK %%ZSYTRF_ROOK %ZSYTRF_ROOK %%ZSYTRI %ZSYTRI %%ZSYTRI2 %ZSYTRI2 - %%ZSYTRI2X %ZSYTRI2X %%ZSYTRI_3 %ZSYTRI_3 %%ZSYTRI_3X %ZSYTRI_3X - %%ZSYTRI_ROOK %ZSYTRI_ROOK %%ZSYTRS %ZSYTRS %%ZSYTRS2 %ZSYTRS2 %%ZSYTRS_3 - %ZSYTRS_3 %%ZSYTRS_AA %ZSYTRS_AA %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE - %%ZSYTRS_ROOK %ZSYTRS_ROOK %%ZTBCON %ZTBCON %%ZTBRFS %ZTBRFS %%ZTBTRS %ZTBTRS - %%ZTFSM %ZTFSM %%ZTFTRI %ZTFTRI %%ZTFTTP %ZTFTTP %%ZTFTTR %ZTFTTR %%ZTGEVC - %ZTGEVC %%ZTGEX2 %ZTGEX2 %%ZTGEXC %ZTGEXC %%ZTGSEN %ZTGSEN %%ZTGSJA %ZTGSJA - %%ZTGSNA %ZTGSNA %%ZTGSY2 %ZTGSY2 %%ZTGSYL %ZTGSYL %%ZTPCON %ZTPCON %%ZTPLQT - %ZTPLQT %%ZTPLQT2 %ZTPLQT2 %%ZTPMLQT %ZTPMLQT %%ZTPMQRT %ZTPMQRT %%ZTPQRT - %ZTPQRT %%ZTPQRT2 %ZTPQRT2 %%ZTPRFB %ZTPRFB %%ZTPRFS %ZTPRFS %%ZTPTRI %ZTPTRI - %%ZTPTRS %ZTPTRS %%ZTPTTF %ZTPTTF %%ZTPTTR %ZTPTTR %%ZTRCON %ZTRCON %%ZTREVC - %ZTREVC %%ZTREVC3 %ZTREVC3 %%ZTREXC %ZTREXC %%ZTRRFS %ZTRRFS %%ZTRSEN %ZTRSEN - %%ZTRSNA %ZTRSNA %%ZTRSYL %ZTRSYL %%ZTRTI2 %ZTRTI2 %%ZTRTRI %ZTRTRI %%ZTRTRS - %ZTRTRS %%ZTRTTF %ZTRTTF %%ZTRTTP %ZTRTTP %%ZTZRZF %ZTZRZF %%ZUNBDB %ZUNBDB - %%ZUNBDB1 %ZUNBDB1 %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB3 %ZUNBDB3 %%ZUNBDB4 %ZUNBDB4 - %%ZUNBDB5 %ZUNBDB5 %%ZUNBDB6 %ZUNBDB6 %%ZUNCSD %ZUNCSD %%ZUNCSD2BY1 - %ZUNCSD2BY1 %%ZUNG2L %ZUNG2L %%ZUNG2R %ZUNG2R %%ZUNGBR %ZUNGBR %%ZUNGHR - %ZUNGHR %%ZUNGL2 %ZUNGL2 %%ZUNGLQ %ZUNGLQ %%ZUNGQL %ZUNGQL %%ZUNGQR %ZUNGQR - %%ZUNGR2 %ZUNGR2 %%ZUNGRQ %ZUNGRQ %%ZUNGTR %ZUNGTR %%ZUNM22 %ZUNM22 %%ZUNM2L - %ZUNM2L %%ZUNM2R %ZUNM2R %%ZUNMBR %ZUNMBR %%ZUNMHR %ZUNMHR %%ZUNML2 %ZUNML2 - %%ZUNMLQ %ZUNMLQ %%ZUNMQL %ZUNMQL %%ZUNMQR %ZUNMQR %%ZUNMR2 %ZUNMR2 %%ZUNMR3 - %ZUNMR3 %%ZUNMRQ %ZUNMRQ %%ZUNMRZ %ZUNMRZ %%ZUNMTR %ZUNMTR %%ZUPGTR %ZUPGTR - %%ZUPMTR %ZUPMTR)) - -(CFFI:DEFCFUN ("zlanhf_" %%ZLANHF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - :DOUBLE - (NORM :STRING) - (TRANSR :STRING) - (UPLO :STRING) - (N :POINTER) - (A :POINTER) - (WORK :POINTER)) - -(COMMON-LISP:DEFUN %ZLANHF (NORM TRANSR UPLO N A WORK) - (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHF) - (COMMON-LISP:TYPE COMMON-LISP:STRING NORM) - (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR) - (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO) - (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) - (COMMON-LISP:TYPE - (COMMON-LISP:SIMPLE-ARRAY - (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) - (COMMON-LISP:*)) - A) - (COMMON-LISP:TYPE - (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) - WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20599 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20599 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20600 A) (WORK-REF20601 WORK)) - (%%ZLANHF NORM TRANSR UPLO N-REF20599 A-REF20600 WORK-REF20601)))) - -(CFFI:DEFCFUN ("zlanhp_" %%ZLANHP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) - :DOUBLE - (NORM :STRING) - (UPLO :STRING) - (N :POINTER) - (AP :POINTER) - (WORK :POINTER)) - -(COMMON-LISP:DEFUN %ZLANHP (NORM UPLO N AP WORK) - (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHP) - (COMMON-LISP:TYPE COMMON-LISP:STRING NORM) - (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO) - (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) - (COMMON-LISP:TYPE - (COMMON-LISP:SIMPLE-ARRAY - (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) - (COMMON-LISP:*)) - AP) - (COMMON-LISP:TYPE - (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) - WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20604 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20604 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20605 AP) - (WORK-REF20606 WORK)) - (%%ZLANHP NORM UPLO N-REF20604 AP-REF20605 WORK-REF20606)))) - -(CFFI:DEFCFUN ("zlanhs_" %%ZLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (COMMON-LISP:INLINE %%ZLANHS %ZLANHS %%ZLANHT %ZLANHT %%ZLANSB %ZLANSB + %%ZLANSP %ZLANSP %%ZLANSY %ZLANSY %%ZLANTB %ZLANTB %%ZLANTP %ZLANTP %%ZLANTR + %ZLANTR %%ZLAPLL %ZLAPLL %%ZLAPMR %ZLAPMR %%ZLAPMT %ZLAPMT %%ZLAQGB %ZLAQGB + %%ZLAQGE %ZLAQGE %%ZLAQHB %ZLAQHB %%ZLAQHE %ZLAQHE %%ZLAQHP %ZLAQHP %%ZLAQP2 + %ZLAQP2 %%ZLAQPS %ZLAQPS %%ZLAQR0 %ZLAQR0 %%ZLAQR1 %ZLAQR1 %%ZLAQR2 %ZLAQR2 + %%ZLAQR3 %ZLAQR3 %%ZLAQR4 %ZLAQR4 %%ZLAQR5 %ZLAQR5 %%ZLAQSB %ZLAQSB %%ZLAQSP + %ZLAQSP %%ZLAQSY %ZLAQSY %%ZLAR1V %ZLAR1V %%ZLAR2V %ZLAR2V %%ZLARCM %ZLARCM + %%ZLARF %ZLARF %%ZLARFB %ZLARFB %%ZLARFG %ZLARFG %%ZLARFGP %ZLARFGP %%ZLARFT + %ZLARFT %%ZLARFX %ZLARFX %%ZLARFY %ZLARFY %%ZLARGV %ZLARGV %%ZLARNV %ZLARNV + %%ZLARRV %ZLARRV %%ZLARSCL2 %ZLARSCL2 %%ZLARTG %ZLARTG %%ZLARTV %ZLARTV + %%ZLARZ %ZLARZ %%ZLARZB %ZLARZB %%ZLARZT %ZLARZT %%ZLASCL %ZLASCL %%ZLASCL2 + %ZLASCL2 %%ZLASET %ZLASET %%ZLASR %ZLASR %%ZLASSQ %ZLASSQ %%ZLASWLQ %ZLASWLQ + %%ZLASWP %ZLASWP %%ZLASYF %ZLASYF %%ZLASYF_AA %ZLASYF_AA %%ZLASYF_RK + %ZLASYF_RK %%ZLASYF_ROOK %ZLASYF_ROOK %%ZLAT2C %ZLAT2C %%ZLATBS %ZLATBS + %%ZLATDF %ZLATDF %%ZLATPS %ZLATPS %%ZLATRD %ZLATRD %%ZLATRS %ZLATRS %%ZLATRZ + %ZLATRZ %%ZLATSQR %ZLATSQR %%ZLAUNHR_COL_GETRFNP %ZLAUNHR_COL_GETRFNP + %%ZLAUNHR_COL_GETRFNP2 %ZLAUNHR_COL_GETRFNP2 %%ZLAUU2 %ZLAUU2 %%ZLAUUM + %ZLAUUM %%ZPBCON %ZPBCON %%ZPBEQU %ZPBEQU %%ZPBRFS %ZPBRFS %%ZPBSTF %ZPBSTF + %%ZPBSV %ZPBSV %%ZPBSVX %ZPBSVX %%ZPBTF2 %ZPBTF2 %%ZPBTRF %ZPBTRF %%ZPBTRS + %ZPBTRS %%ZPFTRF %ZPFTRF %%ZPFTRI %ZPFTRI %%ZPFTRS %ZPFTRS %%ZPOCON %ZPOCON + %%ZPOEQU %ZPOEQU %%ZPOEQUB %ZPOEQUB %%ZPORFS %ZPORFS %%ZPORFSX %ZPORFSX + %%ZPOSV %ZPOSV %%ZPOSVX %ZPOSVX %%ZPOSVXX %ZPOSVXX %%ZPOTF2 %ZPOTF2 %%ZPOTRF + %ZPOTRF %%ZPOTRF2 %ZPOTRF2 %%ZPOTRI %ZPOTRI %%ZPOTRS %ZPOTRS %%ZPPCON %ZPPCON + %%ZPPEQU %ZPPEQU %%ZPPRFS %ZPPRFS %%ZPPSV %ZPPSV %%ZPPSVX %ZPPSVX %%ZPPTRF + %ZPPTRF %%ZPPTRI %ZPPTRI %%ZPPTRS %ZPPTRS %%ZPSTF2 %ZPSTF2 %%ZPSTRF %ZPSTRF + %%ZPTCON %ZPTCON %%ZPTEQR %ZPTEQR %%ZPTRFS %ZPTRFS %%ZPTSV %ZPTSV %%ZPTSVX + %ZPTSVX %%ZPTTRF %ZPTTRF %%ZPTTRS %ZPTTRS %%ZPTTS2 %ZPTTS2 %%ZROT %ZROT + %%ZSPCON %ZSPCON %%ZSPMV %ZSPMV %%ZSPR %ZSPR %%ZSPRFS %ZSPRFS %%ZSPSV %ZSPSV + %%ZSPSVX %ZSPSVX %%ZSPTRF %ZSPTRF %%ZSPTRI %ZSPTRI %%ZSPTRS %ZSPTRS %%ZSTEDC + %ZSTEDC %%ZSTEGR %ZSTEGR %%ZSTEIN %ZSTEIN %%ZSTEMR %ZSTEMR %%ZSTEQR %ZSTEQR + %%ZSYCON %ZSYCON %%ZSYCON_3 %ZSYCON_3 %%ZSYCON_ROOK %ZSYCON_ROOK %%ZSYCONV + %ZSYCONV %%ZSYCONVF %ZSYCONVF %%ZSYCONVF_ROOK %ZSYCONVF_ROOK %%ZSYEQUB + %ZSYEQUB %%ZSYMV %ZSYMV %%ZSYR %ZSYR %%ZSYRFS %ZSYRFS %%ZSYRFSX %ZSYRFSX + %%ZSYSV %ZSYSV %%ZSYSV_AA %ZSYSV_AA %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE + %%ZSYSV_RK %ZSYSV_RK %%ZSYSV_ROOK %ZSYSV_ROOK %%ZSYSVX %ZSYSVX %%ZSYSVXX + %ZSYSVXX %%ZSYSWAPR %ZSYSWAPR %%ZSYTF2 %ZSYTF2 %%ZSYTF2_RK %ZSYTF2_RK + %%ZSYTF2_ROOK %ZSYTF2_ROOK %%ZSYTRF %ZSYTRF %%ZSYTRF_AA %ZSYTRF_AA + %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE %%ZSYTRF_RK %ZSYTRF_RK %%ZSYTRF_ROOK + %ZSYTRF_ROOK %%ZSYTRI %ZSYTRI %%ZSYTRI2 %ZSYTRI2 %%ZSYTRI2X %ZSYTRI2X + %%ZSYTRI_3 %ZSYTRI_3 %%ZSYTRI_3X %ZSYTRI_3X %%ZSYTRI_ROOK %ZSYTRI_ROOK + %%ZSYTRS %ZSYTRS %%ZSYTRS2 %ZSYTRS2 %%ZSYTRS_3 %ZSYTRS_3 %%ZSYTRS_AA + %ZSYTRS_AA %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE %%ZSYTRS_ROOK %ZSYTRS_ROOK + %%ZTBCON %ZTBCON %%ZTBRFS %ZTBRFS %%ZTBTRS %ZTBTRS %%ZTFSM %ZTFSM %%ZTFTRI + %ZTFTRI %%ZTFTTP %ZTFTTP %%ZTFTTR %ZTFTTR %%ZTGEVC %ZTGEVC %%ZTGEX2 %ZTGEX2 + %%ZTGEXC %ZTGEXC %%ZTGSEN %ZTGSEN %%ZTGSJA %ZTGSJA %%ZTGSNA %ZTGSNA %%ZTGSY2 + %ZTGSY2 %%ZTGSYL %ZTGSYL %%ZTPCON %ZTPCON %%ZTPLQT %ZTPLQT %%ZTPLQT2 %ZTPLQT2 + %%ZTPMLQT %ZTPMLQT %%ZTPMQRT %ZTPMQRT %%ZTPQRT %ZTPQRT %%ZTPQRT2 %ZTPQRT2 + %%ZTPRFB %ZTPRFB %%ZTPRFS %ZTPRFS %%ZTPTRI %ZTPTRI %%ZTPTRS %ZTPTRS %%ZTPTTF + %ZTPTTF %%ZTPTTR %ZTPTTR %%ZTRCON %ZTRCON %%ZTREVC %ZTREVC %%ZTREVC3 %ZTREVC3 + %%ZTREXC %ZTREXC %%ZTRRFS %ZTRRFS %%ZTRSEN %ZTRSEN %%ZTRSNA %ZTRSNA %%ZTRSYL + %ZTRSYL %%ZTRTI2 %ZTRTI2 %%ZTRTRI %ZTRTRI %%ZTRTRS %ZTRTRS %%ZTRTTF %ZTRTTF + %%ZTRTTP %ZTRTTP %%ZTZRZF %ZTZRZF %%ZUNBDB %ZUNBDB %%ZUNBDB1 %ZUNBDB1 + %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB3 %ZUNBDB3 %%ZUNBDB4 %ZUNBDB4 %%ZUNBDB5 %ZUNBDB5 + %%ZUNBDB6 %ZUNBDB6 %%ZUNCSD %ZUNCSD %%ZUNCSD2BY1 %ZUNCSD2BY1 %%ZUNG2L %ZUNG2L + %%ZUNG2R %ZUNG2R %%ZUNGBR %ZUNGBR %%ZUNGHR %ZUNGHR %%ZUNGL2 %ZUNGL2 %%ZUNGLQ + %ZUNGLQ %%ZUNGQL %ZUNGQL %%ZUNGQR %ZUNGQR %%ZUNGR2 %ZUNGR2 %%ZUNGRQ %ZUNGRQ + %%ZUNGTR %ZUNGTR %%ZUNGTSQR %ZUNGTSQR %%ZUNHR_COL %ZUNHR_COL %%ZUNM22 %ZUNM22 + %%ZUNM2L %ZUNM2L %%ZUNM2R %ZUNM2R %%ZUNMBR %ZUNMBR %%ZUNMHR %ZUNMHR %%ZUNML2 + %ZUNML2 %%ZUNMLQ %ZUNMLQ %%ZUNMQL %ZUNMQL %%ZUNMQR %ZUNMQR %%ZUNMR2 %ZUNMR2 + %%ZUNMR3 %ZUNMR3 %%ZUNMRQ %ZUNMRQ %%ZUNMRZ %ZUNMRZ %%ZUNMTR %ZUNMTR %%ZUPGTR + %ZUPGTR %%ZUPMTR %ZUPMTR)) + +(CFFI:DEFCFUN ("zlanhs_" %%ZLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (N :POINTER) @@ -144,13 +90,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20608 ':INT32) (LDA-REF20610 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20608 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20610 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20609 A) (WORK-REF20611 WORK)) - (%%ZLANHS NORM N-REF20608 A-REF20609 LDA-REF20610 WORK-REF20611)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20623 ':INT32) (LDA-REF20625 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20623 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20625 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20624 A) (WORK-REF20626 WORK)) + (%%ZLANHS NORM N-REF20623 A-REF20624 LDA-REF20625 WORK-REF20626)))) -(CFFI:DEFCFUN ("zlanht_" %%ZLANHT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlanht_" %%ZLANHT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (N :POINTER) @@ -168,12 +114,12 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) E)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20613 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20613 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20614 D) (E-REF20615 E)) - (%%ZLANHT NORM N-REF20613 D-REF20614 E-REF20615)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20628 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20628 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20629 D) (E-REF20630 E)) + (%%ZLANHT NORM N-REF20628 D-REF20629 E-REF20630)))) -(CFFI:DEFCFUN ("zlansb_" %%ZLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlansb_" %%ZLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -198,17 +144,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20618 ':INT32) (K-REF20619 ':INT32) - (LDAB-REF20621 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20618 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20619 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20621 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20620 AB) - (WORK-REF20622 WORK)) - (%%ZLANSB NORM UPLO N-REF20618 K-REF20619 AB-REF20620 LDAB-REF20621 - WORK-REF20622)))) - -(CFFI:DEFCFUN ("zlansp_" %%ZLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20633 ':INT32) (K-REF20634 ':INT32) + (LDAB-REF20636 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20633 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20634 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20636 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20635 AB) + (WORK-REF20637 WORK)) + (%%ZLANSB NORM UPLO N-REF20633 K-REF20634 AB-REF20635 LDAB-REF20636 + WORK-REF20637)))) + +(CFFI:DEFCFUN ("zlansp_" %%ZLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -229,13 +175,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20625 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20625 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20626 AP) - (WORK-REF20627 WORK)) - (%%ZLANSP NORM UPLO N-REF20625 AP-REF20626 WORK-REF20627)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20640 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20640 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20641 AP) + (WORK-REF20642 WORK)) + (%%ZLANSP NORM UPLO N-REF20640 AP-REF20641 WORK-REF20642)))) -(CFFI:DEFCFUN ("zlansy_" %%ZLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlansy_" %%ZLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -258,13 +204,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20630 ':INT32) (LDA-REF20632 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20630 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20632 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20631 A) (WORK-REF20633 WORK)) - (%%ZLANSY NORM UPLO N-REF20630 A-REF20631 LDA-REF20632 WORK-REF20633)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20645 ':INT32) (LDA-REF20647 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20645 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20647 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20646 A) (WORK-REF20648 WORK)) + (%%ZLANSY NORM UPLO N-REF20645 A-REF20646 LDA-REF20647 WORK-REF20648)))) -(CFFI:DEFCFUN ("zlantb_" %%ZLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlantb_" %%ZLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -291,17 +237,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20637 ':INT32) (K-REF20638 ':INT32) - (LDAB-REF20640 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20637 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20638 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20640 :INT32) LDAB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20639 AB) - (WORK-REF20641 WORK)) - (%%ZLANTB NORM UPLO DIAG N-REF20637 K-REF20638 AB-REF20639 LDAB-REF20640 - WORK-REF20641)))) - -(CFFI:DEFCFUN ("zlantp_" %%ZLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20652 ':INT32) (K-REF20653 ':INT32) + (LDAB-REF20655 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20652 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20653 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20655 :INT32) LDAB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20654 AB) + (WORK-REF20656 WORK)) + (%%ZLANTB NORM UPLO DIAG N-REF20652 K-REF20653 AB-REF20654 LDAB-REF20655 + WORK-REF20656)))) + +(CFFI:DEFCFUN ("zlantp_" %%ZLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -324,13 +270,13 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20645 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20645 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20646 AP) - (WORK-REF20647 WORK)) - (%%ZLANTP NORM UPLO DIAG N-REF20645 AP-REF20646 WORK-REF20647)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20660 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20660 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20661 AP) + (WORK-REF20662 WORK)) + (%%ZLANTP NORM UPLO DIAG N-REF20660 AP-REF20661 WORK-REF20662)))) -(CFFI:DEFCFUN ("zlantr_" %%ZLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlantr_" %%ZLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :DOUBLE (NORM :STRING) (UPLO :STRING) @@ -357,16 +303,16 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20651 ':INT32) (N-REF20652 ':INT32) - (LDA-REF20654 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20651 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20652 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20654 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20653 A) (WORK-REF20655 WORK)) - (%%ZLANTR NORM UPLO DIAG M-REF20651 N-REF20652 A-REF20653 LDA-REF20654 - WORK-REF20655)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20666 ':INT32) (N-REF20667 ':INT32) + (LDA-REF20669 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20666 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20667 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20669 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20668 A) (WORK-REF20670 WORK)) + (%%ZLANTR NORM UPLO DIAG M-REF20666 N-REF20667 A-REF20668 LDA-REF20669 + WORK-REF20670)))) -(CFFI:DEFCFUN ("zlapll_" %%ZLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlapll_" %%ZLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -391,17 +337,17 @@ Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20656 ':INT32) (INCX-REF20658 ':INT32) - (INCY-REF20660 ':INT32) (SSMIN-REF20661 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20656 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20658 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20660 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF20661 :DOUBLE) SSMIN) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20657 X) (Y-REF20659 Y)) - (%%ZLAPLL N-REF20656 X-REF20657 INCX-REF20658 Y-REF20659 INCY-REF20660 - SSMIN-REF20661)))) - -(CFFI:DEFCFUN ("zlapmr_" %%ZLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20671 ':INT32) (INCX-REF20673 ':INT32) + (INCY-REF20675 ':INT32) (SSMIN-REF20676 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20671 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20673 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20675 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF20676 :DOUBLE) SSMIN) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20672 X) (Y-REF20674 Y)) + (%%ZLAPLL N-REF20671 X-REF20672 INCX-REF20673 Y-REF20674 INCY-REF20675 + SSMIN-REF20676)))) + +(CFFI:DEFCFUN ("zlapmr_" %%ZLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FORWRD :POINTER) (M :POINTER) @@ -425,17 +371,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) K)) - (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF20662 ':INT32) (M-REF20663 ':INT32) - (N-REF20664 ':INT32) (LDX-REF20666 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF20662 :INT32) FORWRD) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20663 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20664 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20666 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20665 X) (K-REF20667 K)) - (%%ZLAPMR FORWRD-REF20662 M-REF20663 N-REF20664 X-REF20665 LDX-REF20666 - K-REF20667)))) - -(CFFI:DEFCFUN ("zlapmt_" %%ZLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF20677 ':INT32) (M-REF20678 ':INT32) + (N-REF20679 ':INT32) (LDX-REF20681 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF20677 :INT32) FORWRD) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20678 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20679 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20681 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20680 X) (K-REF20682 K)) + (%%ZLAPMR FORWRD-REF20677 M-REF20678 N-REF20679 X-REF20680 LDX-REF20681 + K-REF20682)))) + +(CFFI:DEFCFUN ("zlapmt_" %%ZLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FORWRD :POINTER) (M :POINTER) @@ -459,17 +405,17 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) K)) - (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF20668 ':INT32) (M-REF20669 ':INT32) - (N-REF20670 ':INT32) (LDX-REF20672 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF20668 :INT32) FORWRD) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20669 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20670 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20672 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20671 X) (K-REF20673 K)) - (%%ZLAPMT FORWRD-REF20668 M-REF20669 N-REF20670 X-REF20671 LDX-REF20672 - K-REF20673)))) - -(CFFI:DEFCFUN ("zlaqgb_" %%ZLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF20683 ':INT32) (M-REF20684 ':INT32) + (N-REF20685 ':INT32) (LDX-REF20687 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF20683 :INT32) FORWRD) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20684 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20685 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20687 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20686 X) (K-REF20688 K)) + (%%ZLAPMT FORWRD-REF20683 M-REF20684 N-REF20685 X-REF20686 LDX-REF20687 + K-REF20688)))) + +(CFFI:DEFCFUN ("zlaqgb_" %%ZLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -504,27 +450,27 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20674 ':INT32) (N-REF20675 ':INT32) - (KL-REF20676 ':INT32) (KU-REF20677 ':INT32) - (LDAB-REF20679 ':INT32) - (ROWCND-REF20682 ':DOUBLE) - (COLCND-REF20683 ':DOUBLE) - (AMAX-REF20684 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20674 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20675 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20676 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20677 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20679 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF20682 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF20683 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20684 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20678 AB) (R-REF20680 R) - (C-REF20681 C)) - (%%ZLAQGB M-REF20674 N-REF20675 KL-REF20676 KU-REF20677 AB-REF20678 - LDAB-REF20679 R-REF20680 C-REF20681 ROWCND-REF20682 - COLCND-REF20683 AMAX-REF20684 EQUED)))) - -(CFFI:DEFCFUN ("zlaqge_" %%ZLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20689 ':INT32) (N-REF20690 ':INT32) + (KL-REF20691 ':INT32) (KU-REF20692 ':INT32) + (LDAB-REF20694 ':INT32) + (ROWCND-REF20697 ':DOUBLE) + (COLCND-REF20698 ':DOUBLE) + (AMAX-REF20699 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20689 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20690 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20691 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20692 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20694 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF20697 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF20698 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20699 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20693 AB) (R-REF20695 R) + (C-REF20696 C)) + (%%ZLAQGB M-REF20689 N-REF20690 KL-REF20691 KU-REF20692 AB-REF20693 + LDAB-REF20694 R-REF20695 C-REF20696 ROWCND-REF20697 COLCND-REF20698 + AMAX-REF20699 EQUED)))) + +(CFFI:DEFCFUN ("zlaqge_" %%ZLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -555,23 +501,22 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20686 ':INT32) (N-REF20687 ':INT32) - (LDA-REF20689 ':INT32) (ROWCND-REF20692 ':DOUBLE) - (COLCND-REF20693 ':DOUBLE) - (AMAX-REF20694 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20686 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20687 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20689 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF20692 :DOUBLE) ROWCND) - (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF20693 :DOUBLE) COLCND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20694 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20688 A) (R-REF20690 R) - (C-REF20691 C)) - (%%ZLAQGE M-REF20686 N-REF20687 A-REF20688 LDA-REF20689 R-REF20690 - C-REF20691 ROWCND-REF20692 COLCND-REF20693 AMAX-REF20694 - EQUED)))) - -(CFFI:DEFCFUN ("zlaqhb_" %%ZLAQHB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20701 ':INT32) (N-REF20702 ':INT32) + (LDA-REF20704 ':INT32) (ROWCND-REF20707 ':DOUBLE) + (COLCND-REF20708 ':DOUBLE) + (AMAX-REF20709 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20701 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20702 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20704 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF20707 :DOUBLE) ROWCND) + (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF20708 :DOUBLE) COLCND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20709 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20703 A) (R-REF20705 R) + (C-REF20706 C)) + (%%ZLAQGE M-REF20701 N-REF20702 A-REF20703 LDA-REF20704 R-REF20705 + C-REF20706 ROWCND-REF20707 COLCND-REF20708 AMAX-REF20709 EQUED)))) + +(CFFI:DEFCFUN ("zlaqhb_" %%ZLAQHB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -599,19 +544,19 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20697 ':INT32) (KD-REF20698 ':INT32) - (LDAB-REF20700 ':INT32) (SCOND-REF20702 ':DOUBLE) - (AMAX-REF20703 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20697 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20698 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20700 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20702 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20703 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20699 AB) (S-REF20701 S)) - (%%ZLAQHB UPLO N-REF20697 KD-REF20698 AB-REF20699 LDAB-REF20700 - S-REF20701 SCOND-REF20702 AMAX-REF20703 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20712 ':INT32) (KD-REF20713 ':INT32) + (LDAB-REF20715 ':INT32) (SCOND-REF20717 ':DOUBLE) + (AMAX-REF20718 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20712 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20713 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20715 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20717 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20718 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20714 AB) (S-REF20716 S)) + (%%ZLAQHB UPLO N-REF20712 KD-REF20713 AB-REF20714 LDAB-REF20715 + S-REF20716 SCOND-REF20717 AMAX-REF20718 EQUED)))) -(CFFI:DEFCFUN ("zlaqhe_" %%ZLAQHE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaqhe_" %%ZLAQHE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -637,18 +582,18 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20706 ':INT32) (LDA-REF20708 ':INT32) - (SCOND-REF20710 ':DOUBLE) - (AMAX-REF20711 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20706 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20708 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20710 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20711 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20707 A) (S-REF20709 S)) - (%%ZLAQHE UPLO N-REF20706 A-REF20707 LDA-REF20708 S-REF20709 - SCOND-REF20710 AMAX-REF20711 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20721 ':INT32) (LDA-REF20723 ':INT32) + (SCOND-REF20725 ':DOUBLE) + (AMAX-REF20726 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20721 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20723 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20725 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20726 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20722 A) (S-REF20724 S)) + (%%ZLAQHE UPLO N-REF20721 A-REF20722 LDA-REF20723 S-REF20724 + SCOND-REF20725 AMAX-REF20726 EQUED)))) -(CFFI:DEFCFUN ("zlaqhp_" %%ZLAQHP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaqhp_" %%ZLAQHP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -672,16 +617,16 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20714 ':INT32) (SCOND-REF20717 ':DOUBLE) - (AMAX-REF20718 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20714 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20717 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20718 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20715 AP) (S-REF20716 S)) - (%%ZLAQHP UPLO N-REF20714 AP-REF20715 S-REF20716 SCOND-REF20717 - AMAX-REF20718 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20729 ':INT32) (SCOND-REF20732 ':DOUBLE) + (AMAX-REF20733 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20729 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20732 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20733 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20730 AP) (S-REF20731 S)) + (%%ZLAQHP UPLO N-REF20729 AP-REF20730 S-REF20731 SCOND-REF20732 + AMAX-REF20733 EQUED)))) -(CFFI:DEFCFUN ("zlaqp2_" %%ZLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaqp2_" %%ZLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -725,22 +670,21 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20720 ':INT32) (N-REF20721 ':INT32) - (OFFSET-REF20722 ':INT32) (LDA-REF20724 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20720 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20721 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF20722 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20724 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20723 A) (JPVT-REF20725 JPVT) - (TAU-REF20726 TAU) - (VN1-REF20727 VN1) - (VN2-REF20728 VN2) - (WORK-REF20729 WORK)) - (%%ZLAQP2 M-REF20720 N-REF20721 OFFSET-REF20722 A-REF20723 LDA-REF20724 - JPVT-REF20725 TAU-REF20726 VN1-REF20727 VN2-REF20728 - WORK-REF20729)))) - -(CFFI:DEFCFUN ("zlaqps_" %%ZLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20735 ':INT32) (N-REF20736 ':INT32) + (OFFSET-REF20737 ':INT32) (LDA-REF20739 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20735 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20736 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF20737 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20739 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20738 A) (JPVT-REF20740 JPVT) + (TAU-REF20741 TAU) + (VN1-REF20742 VN1) + (VN2-REF20743 VN2) + (WORK-REF20744 WORK)) + (%%ZLAQP2 M-REF20735 N-REF20736 OFFSET-REF20737 A-REF20738 LDA-REF20739 + JPVT-REF20740 TAU-REF20741 VN1-REF20742 VN2-REF20743 WORK-REF20744)))) + +(CFFI:DEFCFUN ("zlaqps_" %%ZLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -796,27 +740,27 @@ (COMMON-LISP:*)) F) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20730 ':INT32) (N-REF20731 ':INT32) - (OFFSET-REF20732 ':INT32) (NB-REF20733 ':INT32) - (KB-REF20734 ':INT32) (LDA-REF20736 ':INT32) - (LDF-REF20743 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20730 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20731 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF20732 :INT32) OFFSET) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20733 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20734 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20736 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF20743 :INT32) LDF) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20735 A) (JPVT-REF20737 JPVT) - (TAU-REF20738 TAU) - (VN1-REF20739 VN1) - (VN2-REF20740 VN2) - (AUXV-REF20741 AUXV) (F-REF20742 F)) - (%%ZLAQPS M-REF20730 N-REF20731 OFFSET-REF20732 NB-REF20733 KB-REF20734 - A-REF20735 LDA-REF20736 JPVT-REF20737 TAU-REF20738 VN1-REF20739 - VN2-REF20740 AUXV-REF20741 F-REF20742 LDF-REF20743)))) - -(CFFI:DEFCFUN ("zlaqr0_" %%ZLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20745 ':INT32) (N-REF20746 ':INT32) + (OFFSET-REF20747 ':INT32) (NB-REF20748 ':INT32) + (KB-REF20749 ':INT32) (LDA-REF20751 ':INT32) + (LDF-REF20758 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20745 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20746 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF20747 :INT32) OFFSET) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20748 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20749 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20751 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF20758 :INT32) LDF) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20750 A) (JPVT-REF20752 JPVT) + (TAU-REF20753 TAU) + (VN1-REF20754 VN1) + (VN2-REF20755 VN2) + (AUXV-REF20756 AUXV) (F-REF20757 F)) + (%%ZLAQPS M-REF20745 N-REF20746 OFFSET-REF20747 NB-REF20748 KB-REF20749 + A-REF20750 LDA-REF20751 JPVT-REF20752 TAU-REF20753 VN1-REF20754 + VN2-REF20755 AUXV-REF20756 F-REF20757 LDF-REF20758)))) + +(CFFI:DEFCFUN ("zlaqr0_" %%ZLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -869,31 +813,31 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20744 ':INT32) (WANTZ-REF20745 ':INT32) - (N-REF20746 ':INT32) (ILO-REF20747 ':INT32) - (IHI-REF20748 ':INT32) (LDH-REF20750 ':INT32) - (ILOZ-REF20752 ':INT32) (IHIZ-REF20753 ':INT32) - (LDZ-REF20755 ':INT32) (LWORK-REF20757 ':INT32) - (INFO-REF20758 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20744 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20745 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20746 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20747 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20748 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20750 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20752 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20753 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20755 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20757 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20758 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20749 H) (W-REF20751 W) - (Z-REF20754 Z) (WORK-REF20756 WORK)) - (%%ZLAQR0 WANTT-REF20744 WANTZ-REF20745 N-REF20746 ILO-REF20747 - IHI-REF20748 H-REF20749 LDH-REF20750 W-REF20751 ILOZ-REF20752 - IHIZ-REF20753 Z-REF20754 LDZ-REF20755 WORK-REF20756 - LWORK-REF20757 INFO-REF20758)))) - -(CFFI:DEFCFUN ("zlaqr1_" %%ZLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20759 ':INT32) (WANTZ-REF20760 ':INT32) + (N-REF20761 ':INT32) (ILO-REF20762 ':INT32) + (IHI-REF20763 ':INT32) (LDH-REF20765 ':INT32) + (ILOZ-REF20767 ':INT32) (IHIZ-REF20768 ':INT32) + (LDZ-REF20770 ':INT32) (LWORK-REF20772 ':INT32) + (INFO-REF20773 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20759 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20760 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20761 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20762 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20763 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20765 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20767 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20768 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20770 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20772 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20773 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20764 H) (W-REF20766 W) + (Z-REF20769 Z) (WORK-REF20771 WORK)) + (%%ZLAQR0 WANTT-REF20759 WANTZ-REF20760 N-REF20761 ILO-REF20762 + IHI-REF20763 H-REF20764 LDH-REF20765 W-REF20766 ILOZ-REF20767 + IHIZ-REF20768 Z-REF20769 LDZ-REF20770 WORK-REF20771 LWORK-REF20772 + INFO-REF20773)))) + +(CFFI:DEFCFUN ("zlaqr1_" %%ZLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (H :POINTER) @@ -920,28 +864,28 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) V)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20759 ':INT32) (LDH-REF20761 ':INT32) - (S1-REF20762 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20774 ':INT32) (LDH-REF20776 ':INT32) + (S1-REF20777 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (S2-REF20763 + (S2-REF20778 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20759 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20761 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20774 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20776 :INT32) LDH) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S1-REF20762 + S1-REF20777 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S1) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S1))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S2-REF20763 + S2-REF20778 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S2) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S2))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20760 H) (V-REF20764 V)) - (%%ZLAQR1 N-REF20759 H-REF20760 LDH-REF20761 S1-REF20762 S2-REF20763 - V-REF20764)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20775 H) (V-REF20779 V)) + (%%ZLAQR1 N-REF20774 H-REF20775 LDH-REF20776 S1-REF20777 S2-REF20778 + V-REF20779)))) -(CFFI:DEFCFUN ("zlaqr2_" %%ZLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaqr2_" %%ZLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -1026,45 +970,44 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20765 ':INT32) (WANTZ-REF20766 ':INT32) - (N-REF20767 ':INT32) (KTOP-REF20768 ':INT32) - (KBOT-REF20769 ':INT32) (NW-REF20770 ':INT32) - (LDH-REF20772 ':INT32) (ILOZ-REF20773 ':INT32) - (IHIZ-REF20774 ':INT32) (LDZ-REF20776 ':INT32) - (NS-REF20777 ':INT32) (ND-REF20778 ':INT32) - (LDV-REF20781 ':INT32) (NH-REF20782 ':INT32) - (LDT-REF20784 ':INT32) (NV-REF20785 ':INT32) - (LDWV-REF20787 ':INT32) (LWORK-REF20789 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20765 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20766 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20767 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20768 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20769 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF20770 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20772 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20773 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20774 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20776 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF20777 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF20778 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20781 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20782 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20784 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20785 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20787 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20789 :INT32) LWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20771 H) (Z-REF20775 Z) - (SH-REF20779 SH) (V-REF20780 V) - (T-REF20783 T) (WV-REF20786 WV) - (WORK-REF20788 WORK)) - (%%ZLAQR2 WANTT-REF20765 WANTZ-REF20766 N-REF20767 KTOP-REF20768 - KBOT-REF20769 NW-REF20770 H-REF20771 LDH-REF20772 ILOZ-REF20773 - IHIZ-REF20774 Z-REF20775 LDZ-REF20776 NS-REF20777 ND-REF20778 - SH-REF20779 V-REF20780 LDV-REF20781 NH-REF20782 T-REF20783 - LDT-REF20784 NV-REF20785 WV-REF20786 LDWV-REF20787 - WORK-REF20788 LWORK-REF20789)))) - -(CFFI:DEFCFUN ("zlaqr3_" %%ZLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20780 ':INT32) (WANTZ-REF20781 ':INT32) + (N-REF20782 ':INT32) (KTOP-REF20783 ':INT32) + (KBOT-REF20784 ':INT32) (NW-REF20785 ':INT32) + (LDH-REF20787 ':INT32) (ILOZ-REF20788 ':INT32) + (IHIZ-REF20789 ':INT32) (LDZ-REF20791 ':INT32) + (NS-REF20792 ':INT32) (ND-REF20793 ':INT32) + (LDV-REF20796 ':INT32) (NH-REF20797 ':INT32) + (LDT-REF20799 ':INT32) (NV-REF20800 ':INT32) + (LDWV-REF20802 ':INT32) (LWORK-REF20804 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20780 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20781 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20782 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20783 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20784 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF20785 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20787 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20788 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20789 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20791 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF20792 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF20793 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20796 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20797 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20799 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20800 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20802 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20804 :INT32) LWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20786 H) (Z-REF20790 Z) + (SH-REF20794 SH) (V-REF20795 V) + (T-REF20798 T) (WV-REF20801 WV) + (WORK-REF20803 WORK)) + (%%ZLAQR2 WANTT-REF20780 WANTZ-REF20781 N-REF20782 KTOP-REF20783 + KBOT-REF20784 NW-REF20785 H-REF20786 LDH-REF20787 ILOZ-REF20788 + IHIZ-REF20789 Z-REF20790 LDZ-REF20791 NS-REF20792 ND-REF20793 + SH-REF20794 V-REF20795 LDV-REF20796 NH-REF20797 T-REF20798 LDT-REF20799 + NV-REF20800 WV-REF20801 LDWV-REF20802 WORK-REF20803 LWORK-REF20804)))) + +(CFFI:DEFCFUN ("zlaqr3_" %%ZLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -1149,45 +1092,44 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20790 ':INT32) (WANTZ-REF20791 ':INT32) - (N-REF20792 ':INT32) (KTOP-REF20793 ':INT32) - (KBOT-REF20794 ':INT32) (NW-REF20795 ':INT32) - (LDH-REF20797 ':INT32) (ILOZ-REF20798 ':INT32) - (IHIZ-REF20799 ':INT32) (LDZ-REF20801 ':INT32) - (NS-REF20802 ':INT32) (ND-REF20803 ':INT32) - (LDV-REF20806 ':INT32) (NH-REF20807 ':INT32) - (LDT-REF20809 ':INT32) (NV-REF20810 ':INT32) - (LDWV-REF20812 ':INT32) (LWORK-REF20814 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20790 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20791 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20792 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20793 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20794 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF20795 :INT32) NW) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20797 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20798 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20799 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20801 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF20802 :INT32) NS) - (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF20803 :INT32) ND) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20806 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20807 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20809 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20810 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20812 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20814 :INT32) LWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20796 H) (Z-REF20800 Z) - (SH-REF20804 SH) (V-REF20805 V) - (T-REF20808 T) (WV-REF20811 WV) - (WORK-REF20813 WORK)) - (%%ZLAQR3 WANTT-REF20790 WANTZ-REF20791 N-REF20792 KTOP-REF20793 - KBOT-REF20794 NW-REF20795 H-REF20796 LDH-REF20797 ILOZ-REF20798 - IHIZ-REF20799 Z-REF20800 LDZ-REF20801 NS-REF20802 ND-REF20803 - SH-REF20804 V-REF20805 LDV-REF20806 NH-REF20807 T-REF20808 - LDT-REF20809 NV-REF20810 WV-REF20811 LDWV-REF20812 - WORK-REF20813 LWORK-REF20814)))) - -(CFFI:DEFCFUN ("zlaqr4_" %%ZLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20805 ':INT32) (WANTZ-REF20806 ':INT32) + (N-REF20807 ':INT32) (KTOP-REF20808 ':INT32) + (KBOT-REF20809 ':INT32) (NW-REF20810 ':INT32) + (LDH-REF20812 ':INT32) (ILOZ-REF20813 ':INT32) + (IHIZ-REF20814 ':INT32) (LDZ-REF20816 ':INT32) + (NS-REF20817 ':INT32) (ND-REF20818 ':INT32) + (LDV-REF20821 ':INT32) (NH-REF20822 ':INT32) + (LDT-REF20824 ':INT32) (NV-REF20825 ':INT32) + (LDWV-REF20827 ':INT32) (LWORK-REF20829 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20805 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20806 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20807 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20808 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20809 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF20810 :INT32) NW) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20812 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20813 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20814 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20816 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF20817 :INT32) NS) + (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF20818 :INT32) ND) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20821 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20822 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20824 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20825 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20827 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20829 :INT32) LWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20811 H) (Z-REF20815 Z) + (SH-REF20819 SH) (V-REF20820 V) + (T-REF20823 T) (WV-REF20826 WV) + (WORK-REF20828 WORK)) + (%%ZLAQR3 WANTT-REF20805 WANTZ-REF20806 N-REF20807 KTOP-REF20808 + KBOT-REF20809 NW-REF20810 H-REF20811 LDH-REF20812 ILOZ-REF20813 + IHIZ-REF20814 Z-REF20815 LDZ-REF20816 NS-REF20817 ND-REF20818 + SH-REF20819 V-REF20820 LDV-REF20821 NH-REF20822 T-REF20823 LDT-REF20824 + NV-REF20825 WV-REF20826 LDWV-REF20827 WORK-REF20828 LWORK-REF20829)))) + +(CFFI:DEFCFUN ("zlaqr4_" %%ZLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -1240,31 +1182,31 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20815 ':INT32) (WANTZ-REF20816 ':INT32) - (N-REF20817 ':INT32) (ILO-REF20818 ':INT32) - (IHI-REF20819 ':INT32) (LDH-REF20821 ':INT32) - (ILOZ-REF20823 ':INT32) (IHIZ-REF20824 ':INT32) - (LDZ-REF20826 ':INT32) (LWORK-REF20828 ':INT32) - (INFO-REF20829 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20815 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20816 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20817 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20818 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20819 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20821 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20823 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20824 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20826 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20828 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20829 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20820 H) (W-REF20822 W) - (Z-REF20825 Z) (WORK-REF20827 WORK)) - (%%ZLAQR4 WANTT-REF20815 WANTZ-REF20816 N-REF20817 ILO-REF20818 - IHI-REF20819 H-REF20820 LDH-REF20821 W-REF20822 ILOZ-REF20823 - IHIZ-REF20824 Z-REF20825 LDZ-REF20826 WORK-REF20827 - LWORK-REF20828 INFO-REF20829)))) - -(CFFI:DEFCFUN ("zlaqr5_" %%ZLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20830 ':INT32) (WANTZ-REF20831 ':INT32) + (N-REF20832 ':INT32) (ILO-REF20833 ':INT32) + (IHI-REF20834 ':INT32) (LDH-REF20836 ':INT32) + (ILOZ-REF20838 ':INT32) (IHIZ-REF20839 ':INT32) + (LDZ-REF20841 ':INT32) (LWORK-REF20843 ':INT32) + (INFO-REF20844 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20830 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20831 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20832 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20833 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20834 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20836 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20838 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20839 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20841 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20843 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20844 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20835 H) (W-REF20837 W) + (Z-REF20840 Z) (WORK-REF20842 WORK)) + (%%ZLAQR4 WANTT-REF20830 WANTZ-REF20831 N-REF20832 ILO-REF20833 + IHI-REF20834 H-REF20835 LDH-REF20836 W-REF20837 ILOZ-REF20838 + IHIZ-REF20839 Z-REF20840 LDZ-REF20841 WORK-REF20842 LWORK-REF20843 + INFO-REF20844)))) + +(CFFI:DEFCFUN ("zlaqr5_" %%ZLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTT :POINTER) (WANTZ :POINTER) @@ -1347,44 +1289,43 @@ (COMMON-LISP:*)) WH) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20830 ':INT32) (WANTZ-REF20831 ':INT32) - (KACC22-REF20832 ':INT32) (N-REF20833 ':INT32) - (KTOP-REF20834 ':INT32) (KBOT-REF20835 ':INT32) - (NSHFTS-REF20836 ':INT32) (LDH-REF20839 ':INT32) - (ILOZ-REF20840 ':INT32) (IHIZ-REF20841 ':INT32) - (LDZ-REF20843 ':INT32) (LDV-REF20845 ':INT32) - (LDU-REF20847 ':INT32) (NV-REF20848 ':INT32) - (LDWV-REF20850 ':INT32) (NH-REF20851 ':INT32) - (LDWH-REF20853 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20830 :INT32) WANTT) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20831 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF20832 :INT32) KACC22) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20833 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20834 :INT32) KTOP) - (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20835 :INT32) KBOT) - (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF20836 :INT32) NSHFTS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20839 :INT32) LDH) - (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20840 :INT32) ILOZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20841 :INT32) IHIZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20843 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20845 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20847 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20848 :INT32) NV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20850 :INT32) LDWV) - (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20851 :INT32) NH) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF20853 :INT32) LDWH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF20837 S) (H-REF20838 H) - (Z-REF20842 Z) (V-REF20844 V) - (U-REF20846 U) (WV-REF20849 WV) - (WH-REF20852 WH)) - (%%ZLAQR5 WANTT-REF20830 WANTZ-REF20831 KACC22-REF20832 N-REF20833 - KTOP-REF20834 KBOT-REF20835 NSHFTS-REF20836 S-REF20837 - H-REF20838 LDH-REF20839 ILOZ-REF20840 IHIZ-REF20841 Z-REF20842 - LDZ-REF20843 V-REF20844 LDV-REF20845 U-REF20846 LDU-REF20847 - NV-REF20848 WV-REF20849 LDWV-REF20850 NH-REF20851 WH-REF20852 - LDWH-REF20853)))) - -(CFFI:DEFCFUN ("zlaqsb_" %%ZLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20845 ':INT32) (WANTZ-REF20846 ':INT32) + (KACC22-REF20847 ':INT32) (N-REF20848 ':INT32) + (KTOP-REF20849 ':INT32) (KBOT-REF20850 ':INT32) + (NSHFTS-REF20851 ':INT32) (LDH-REF20854 ':INT32) + (ILOZ-REF20855 ':INT32) (IHIZ-REF20856 ':INT32) + (LDZ-REF20858 ':INT32) (LDV-REF20860 ':INT32) + (LDU-REF20862 ':INT32) (NV-REF20863 ':INT32) + (LDWV-REF20865 ':INT32) (NH-REF20866 ':INT32) + (LDWH-REF20868 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20845 :INT32) WANTT) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20846 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF20847 :INT32) KACC22) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20848 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20849 :INT32) KTOP) + (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20850 :INT32) KBOT) + (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF20851 :INT32) NSHFTS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20854 :INT32) LDH) + (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20855 :INT32) ILOZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20856 :INT32) IHIZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20858 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20860 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20862 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20863 :INT32) NV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20865 :INT32) LDWV) + (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20866 :INT32) NH) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF20868 :INT32) LDWH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF20852 S) (H-REF20853 H) + (Z-REF20857 Z) (V-REF20859 V) + (U-REF20861 U) (WV-REF20864 WV) + (WH-REF20867 WH)) + (%%ZLAQR5 WANTT-REF20845 WANTZ-REF20846 KACC22-REF20847 N-REF20848 + KTOP-REF20849 KBOT-REF20850 NSHFTS-REF20851 S-REF20852 H-REF20853 + LDH-REF20854 ILOZ-REF20855 IHIZ-REF20856 Z-REF20857 LDZ-REF20858 + V-REF20859 LDV-REF20860 U-REF20861 LDU-REF20862 NV-REF20863 WV-REF20864 + LDWV-REF20865 NH-REF20866 WH-REF20867 LDWH-REF20868)))) + +(CFFI:DEFCFUN ("zlaqsb_" %%ZLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1412,19 +1353,19 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20855 ':INT32) (KD-REF20856 ':INT32) - (LDAB-REF20858 ':INT32) (SCOND-REF20860 ':DOUBLE) - (AMAX-REF20861 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20855 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20856 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20858 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20860 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20861 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20857 AB) (S-REF20859 S)) - (%%ZLAQSB UPLO N-REF20855 KD-REF20856 AB-REF20857 LDAB-REF20858 - S-REF20859 SCOND-REF20860 AMAX-REF20861 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20870 ':INT32) (KD-REF20871 ':INT32) + (LDAB-REF20873 ':INT32) (SCOND-REF20875 ':DOUBLE) + (AMAX-REF20876 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20870 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20871 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20873 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20875 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20876 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20872 AB) (S-REF20874 S)) + (%%ZLAQSB UPLO N-REF20870 KD-REF20871 AB-REF20872 LDAB-REF20873 + S-REF20874 SCOND-REF20875 AMAX-REF20876 EQUED)))) -(CFFI:DEFCFUN ("zlaqsp_" %%ZLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaqsp_" %%ZLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1448,16 +1389,16 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20864 ':INT32) (SCOND-REF20867 ':DOUBLE) - (AMAX-REF20868 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20864 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20867 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20868 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20865 AP) (S-REF20866 S)) - (%%ZLAQSP UPLO N-REF20864 AP-REF20865 S-REF20866 SCOND-REF20867 - AMAX-REF20868 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20879 ':INT32) (SCOND-REF20882 ':DOUBLE) + (AMAX-REF20883 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20879 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20882 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20883 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20880 AP) (S-REF20881 S)) + (%%ZLAQSP UPLO N-REF20879 AP-REF20880 S-REF20881 SCOND-REF20882 + AMAX-REF20883 EQUED)))) -(CFFI:DEFCFUN ("zlaqsy_" %%ZLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaqsy_" %%ZLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -1483,18 +1424,18 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20871 ':INT32) (LDA-REF20873 ':INT32) - (SCOND-REF20875 ':DOUBLE) - (AMAX-REF20876 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20871 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20873 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20875 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20876 :DOUBLE) AMAX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20872 A) (S-REF20874 S)) - (%%ZLAQSY UPLO N-REF20871 A-REF20872 LDA-REF20873 S-REF20874 - SCOND-REF20875 AMAX-REF20876 EQUED)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20886 ':INT32) (LDA-REF20888 ':INT32) + (SCOND-REF20890 ':DOUBLE) + (AMAX-REF20891 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20886 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20888 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20890 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20891 :DOUBLE) AMAX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20887 A) (S-REF20889 S)) + (%%ZLAQSY UPLO N-REF20886 A-REF20887 LDA-REF20888 S-REF20889 + SCOND-REF20890 AMAX-REF20891 EQUED)))) -(CFFI:DEFCFUN ("zlar1v_" %%ZLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlar1v_" %%ZLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (B1 :POINTER) @@ -1557,42 +1498,42 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20878 ':INT32) (B1-REF20879 ':INT32) - (BN-REF20880 ':INT32) (LAMBDA-REF20881 ':DOUBLE) - (PIVMIN-REF20886 ':DOUBLE) - (GAPTOL-REF20887 ':DOUBLE) - (WANTNC-REF20889 ':INT32) - (NEGCNT-REF20890 ':INT32) (ZTZ-REF20891 ':DOUBLE) - (MINGMA-REF20892 ':DOUBLE) (R-REF20893 ':INT32) - (NRMINV-REF20895 ':DOUBLE) - (RESID-REF20896 ':DOUBLE) - (RQCORR-REF20897 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20878 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF20879 :INT32) B1) - (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF20880 :INT32) BN) - (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF20881 :DOUBLE) LAMBDA) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF20886 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF20887 :DOUBLE) GAPTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF20889 :INT32) WANTNC) - (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF20890 :INT32) NEGCNT) - (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF20891 :DOUBLE) ZTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF20892 :DOUBLE) MINGMA) - (COMMON-LISP:SETF (CFFI:MEM-REF R-REF20893 :INT32) R) - (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF20895 :DOUBLE) NRMINV) - (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF20896 :DOUBLE) RESID) - (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF20897 :DOUBLE) RQCORR) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20882 D) (L-REF20883 L) - (LD-REF20884 LD) (LLD-REF20885 LLD) - (Z-REF20888 Z) - (ISUPPZ-REF20894 ISUPPZ) - (WORK-REF20898 WORK)) - (%%ZLAR1V N-REF20878 B1-REF20879 BN-REF20880 LAMBDA-REF20881 D-REF20882 - L-REF20883 LD-REF20884 LLD-REF20885 PIVMIN-REF20886 - GAPTOL-REF20887 Z-REF20888 WANTNC-REF20889 NEGCNT-REF20890 - ZTZ-REF20891 MINGMA-REF20892 R-REF20893 ISUPPZ-REF20894 - NRMINV-REF20895 RESID-REF20896 RQCORR-REF20897 WORK-REF20898)))) - -(CFFI:DEFCFUN ("zlar2v_" %%ZLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20893 ':INT32) (B1-REF20894 ':INT32) + (BN-REF20895 ':INT32) (LAMBDA-REF20896 ':DOUBLE) + (PIVMIN-REF20901 ':DOUBLE) + (GAPTOL-REF20902 ':DOUBLE) + (WANTNC-REF20904 ':INT32) + (NEGCNT-REF20905 ':INT32) (ZTZ-REF20906 ':DOUBLE) + (MINGMA-REF20907 ':DOUBLE) (R-REF20908 ':INT32) + (NRMINV-REF20910 ':DOUBLE) + (RESID-REF20911 ':DOUBLE) + (RQCORR-REF20912 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20893 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF20894 :INT32) B1) + (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF20895 :INT32) BN) + (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF20896 :DOUBLE) LAMBDA) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF20901 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF20902 :DOUBLE) GAPTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF20904 :INT32) WANTNC) + (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF20905 :INT32) NEGCNT) + (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF20906 :DOUBLE) ZTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF20907 :DOUBLE) MINGMA) + (COMMON-LISP:SETF (CFFI:MEM-REF R-REF20908 :INT32) R) + (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF20910 :DOUBLE) NRMINV) + (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF20911 :DOUBLE) RESID) + (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF20912 :DOUBLE) RQCORR) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20897 D) (L-REF20898 L) + (LD-REF20899 LD) (LLD-REF20900 LLD) + (Z-REF20903 Z) + (ISUPPZ-REF20909 ISUPPZ) + (WORK-REF20913 WORK)) + (%%ZLAR1V N-REF20893 B1-REF20894 BN-REF20895 LAMBDA-REF20896 D-REF20897 + L-REF20898 LD-REF20899 LLD-REF20900 PIVMIN-REF20901 GAPTOL-REF20902 + Z-REF20903 WANTNC-REF20904 NEGCNT-REF20905 ZTZ-REF20906 MINGMA-REF20907 + R-REF20908 ISUPPZ-REF20909 NRMINV-REF20910 RESID-REF20911 + RQCORR-REF20912 WORK-REF20913)))) + +(CFFI:DEFCFUN ("zlar2v_" %%ZLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -1630,18 +1571,18 @@ (COMMON-LISP:*)) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20899 ':INT32) (INCX-REF20903 ':INT32) - (INCC-REF20906 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20899 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20903 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF20906 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20900 X) (Y-REF20901 Y) - (Z-REF20902 Z) (C-REF20904 C) - (S-REF20905 S)) - (%%ZLAR2V N-REF20899 X-REF20900 Y-REF20901 Z-REF20902 INCX-REF20903 - C-REF20904 S-REF20905 INCC-REF20906)))) - -(CFFI:DEFCFUN ("zlarcm_" %%ZLARCM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20914 ':INT32) (INCX-REF20918 ':INT32) + (INCC-REF20921 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20914 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20918 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF20921 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20915 X) (Y-REF20916 Y) + (Z-REF20917 Z) (C-REF20919 C) + (S-REF20920 S)) + (%%ZLAR2V N-REF20914 X-REF20915 Y-REF20916 Z-REF20917 INCX-REF20918 + C-REF20919 S-REF20920 INCC-REF20921)))) + +(CFFI:DEFCFUN ("zlarcm_" %%ZLARCM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -1675,21 +1616,21 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20907 ':INT32) (N-REF20908 ':INT32) - (LDA-REF20910 ':INT32) (LDB-REF20912 ':INT32) - (LDC-REF20914 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20907 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20908 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20910 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20912 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20914 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20909 A) (B-REF20911 B) - (C-REF20913 C) - (RWORK-REF20915 RWORK)) - (%%ZLARCM M-REF20907 N-REF20908 A-REF20909 LDA-REF20910 B-REF20911 - LDB-REF20912 C-REF20913 LDC-REF20914 RWORK-REF20915)))) - -(CFFI:DEFCFUN ("zlarf_" %%ZLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20922 ':INT32) (N-REF20923 ':INT32) + (LDA-REF20925 ':INT32) (LDB-REF20927 ':INT32) + (LDC-REF20929 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20922 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20923 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20925 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20927 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20929 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20924 A) (B-REF20926 B) + (C-REF20928 C) + (RWORK-REF20930 RWORK)) + (%%ZLARCM M-REF20922 N-REF20923 A-REF20924 LDA-REF20925 B-REF20926 + LDB-REF20927 C-REF20928 LDC-REF20929 RWORK-REF20930)))) + +(CFFI:DEFCFUN ("zlarf_" %%ZLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -1725,26 +1666,26 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20917 ':INT32) (N-REF20918 ':INT32) - (INCV-REF20920 ':INT32) - (TAU-REF20921 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20932 ':INT32) (N-REF20933 ':INT32) + (INCV-REF20935 ':INT32) + (TAU-REF20936 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDC-REF20923 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20917 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20918 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF20920 :INT32) INCV) + (LDC-REF20938 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20932 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20933 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF20935 :INT32) INCV) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF20921 + TAU-REF20936 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20923 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20919 V) (C-REF20922 C) - (WORK-REF20924 WORK)) - (%%ZLARF SIDE M-REF20917 N-REF20918 V-REF20919 INCV-REF20920 TAU-REF20921 - C-REF20922 LDC-REF20923 WORK-REF20924)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20938 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20934 V) (C-REF20937 C) + (WORK-REF20939 WORK)) + (%%ZLARF SIDE M-REF20932 N-REF20933 V-REF20934 INCV-REF20935 TAU-REF20936 + C-REF20937 LDC-REF20938 WORK-REF20939)))) -(CFFI:DEFCFUN ("zlarfb_" %%ZLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlarfb_" %%ZLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -1797,24 +1738,24 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20929 ':INT32) (N-REF20930 ':INT32) - (K-REF20931 ':INT32) (LDV-REF20933 ':INT32) - (LDT-REF20935 ':INT32) (LDC-REF20937 ':INT32) - (LDWORK-REF20939 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20929 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20930 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20931 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20933 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20935 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20937 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF20939 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20932 V) (T-REF20934 T) - (C-REF20936 C) (WORK-REF20938 WORK)) - (%%ZLARFB SIDE TRANS DIRECT STOREV M-REF20929 N-REF20930 K-REF20931 - V-REF20932 LDV-REF20933 T-REF20934 LDT-REF20935 C-REF20936 - LDC-REF20937 WORK-REF20938 LDWORK-REF20939)))) - -(CFFI:DEFCFUN ("zlarfg_" %%ZLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20944 ':INT32) (N-REF20945 ':INT32) + (K-REF20946 ':INT32) (LDV-REF20948 ':INT32) + (LDT-REF20950 ':INT32) (LDC-REF20952 ':INT32) + (LDWORK-REF20954 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20944 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20945 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20946 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20948 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20950 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20952 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF20954 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20947 V) (T-REF20949 T) + (C-REF20951 C) (WORK-REF20953 WORK)) + (%%ZLARFB SIDE TRANS DIRECT STOREV M-REF20944 N-REF20945 K-REF20946 + V-REF20947 LDV-REF20948 T-REF20949 LDT-REF20950 C-REF20951 LDC-REF20952 + WORK-REF20953 LDWORK-REF20954)))) + +(CFFI:DEFCFUN ("zlarfg_" %%ZLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ALPHA :POINTER) @@ -1835,29 +1776,30 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20940 ':INT32) - (ALPHA-REF20941 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20955 ':INT32) + (ALPHA-REF20956 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF20943 ':INT32) - (TAU-REF20944 + (INCX-REF20958 ':INT32) + (TAU-REF20959 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20940 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20955 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF20941 + ALPHA-REF20956 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20943 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20958 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF20944 + TAU-REF20959 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20942 X)) - (%%ZLARFG N-REF20940 ALPHA-REF20941 X-REF20942 INCX-REF20943 - TAU-REF20944)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20957 X)) + (%%ZLARFG N-REF20955 ALPHA-REF20956 X-REF20957 INCX-REF20958 + TAU-REF20959)))) -(CFFI:DEFCFUN ("zlarfgp_" %%ZLARFGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlarfgp_" %%ZLARFGP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ALPHA :POINTER) @@ -1878,29 +1820,29 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20945 ':INT32) - (ALPHA-REF20946 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20960 ':INT32) + (ALPHA-REF20961 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF20948 ':INT32) - (TAU-REF20949 + (INCX-REF20963 ':INT32) + (TAU-REF20964 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20945 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20960 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF20946 + ALPHA-REF20961 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20948 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20963 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF20949 + TAU-REF20964 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20947 X)) - (%%ZLARFGP N-REF20945 ALPHA-REF20946 X-REF20947 INCX-REF20948 - TAU-REF20949)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20962 X)) + (%%ZLARFGP N-REF20960 ALPHA-REF20961 X-REF20962 INCX-REF20963 + TAU-REF20964)))) -(CFFI:DEFCFUN ("zlarft_" %%ZLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlarft_" %%ZLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (DIRECT :STRING) (STOREV :STRING) @@ -1935,18 +1877,18 @@ (COMMON-LISP:*)) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20952 ':INT32) (K-REF20953 ':INT32) - (LDV-REF20955 ':INT32) (LDT-REF20958 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20952 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20953 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20955 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20958 :INT32) LDT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20954 V) (TAU-REF20956 TAU) - (T-REF20957 T)) - (%%ZLARFT DIRECT STOREV N-REF20952 K-REF20953 V-REF20954 LDV-REF20955 - TAU-REF20956 T-REF20957 LDT-REF20958)))) - -(CFFI:DEFCFUN ("zlarfx_" %%ZLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20967 ':INT32) (K-REF20968 ':INT32) + (LDV-REF20970 ':INT32) (LDT-REF20973 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20967 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20968 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20970 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20973 :INT32) LDT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20969 V) (TAU-REF20971 TAU) + (T-REF20972 T)) + (%%ZLARFT DIRECT STOREV N-REF20967 K-REF20968 V-REF20969 LDV-REF20970 + TAU-REF20971 T-REF20972 LDT-REF20973)))) + +(CFFI:DEFCFUN ("zlarfx_" %%ZLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -1980,24 +1922,24 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20960 ':INT32) (N-REF20961 ':INT32) - (TAU-REF20963 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20975 ':INT32) (N-REF20976 ':INT32) + (TAU-REF20978 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDC-REF20965 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20960 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20961 :INT32) N) + (LDC-REF20980 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20975 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20976 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF20963 + TAU-REF20978 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20965 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20962 V) (C-REF20964 C) - (WORK-REF20966 WORK)) - (%%ZLARFX SIDE M-REF20960 N-REF20961 V-REF20962 TAU-REF20963 C-REF20964 - LDC-REF20965 WORK-REF20966)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20980 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20977 V) (C-REF20979 C) + (WORK-REF20981 WORK)) + (%%ZLARFX SIDE M-REF20975 N-REF20976 V-REF20977 TAU-REF20978 C-REF20979 + LDC-REF20980 WORK-REF20981)))) -(CFFI:DEFCFUN ("zlarfy_" %%ZLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlarfy_" %%ZLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2031,24 +1973,24 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20968 ':INT32) (INCV-REF20970 ':INT32) - (TAU-REF20971 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20983 ':INT32) (INCV-REF20985 ':INT32) + (TAU-REF20986 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDC-REF20973 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20968 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF20970 :INT32) INCV) + (LDC-REF20988 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20983 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF20985 :INT32) INCV) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF20971 + TAU-REF20986 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20973 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20969 V) (C-REF20972 C) - (WORK-REF20974 WORK)) - (%%ZLARFY UPLO N-REF20968 V-REF20969 INCV-REF20970 TAU-REF20971 - C-REF20972 LDC-REF20973 WORK-REF20974)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20988 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20984 V) (C-REF20987 C) + (WORK-REF20989 WORK)) + (%%ZLARFY UPLO N-REF20983 V-REF20984 INCV-REF20985 TAU-REF20986 + C-REF20987 LDC-REF20988 WORK-REF20989)))) -(CFFI:DEFCFUN ("zlargv_" %%ZLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlargv_" %%ZLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -2076,18 +2018,18 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20975 ':INT32) (INCX-REF20977 ':INT32) - (INCY-REF20979 ':INT32) (INCC-REF20981 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20975 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20977 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20979 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF20981 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20976 X) (Y-REF20978 Y) - (C-REF20980 C)) - (%%ZLARGV N-REF20975 X-REF20976 INCX-REF20977 Y-REF20978 INCY-REF20979 - C-REF20980 INCC-REF20981)))) - -(CFFI:DEFCFUN ("zlarnv_" %%ZLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20990 ':INT32) (INCX-REF20992 ':INT32) + (INCY-REF20994 ':INT32) (INCC-REF20996 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20990 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20992 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20994 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF20996 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20991 X) (Y-REF20993 Y) + (C-REF20995 C)) + (%%ZLARGV N-REF20990 X-REF20991 INCX-REF20992 Y-REF20993 INCY-REF20994 + C-REF20995 INCC-REF20996)))) + +(CFFI:DEFCFUN ("zlarnv_" %%ZLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IDIST :POINTER) (ISEED :POINTER) @@ -2107,14 +2049,14 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) X)) - (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF20982 ':INT32) (N-REF20984 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF20982 :INT32) IDIST) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20984 :INT32) N) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF20983 ISEED) - (X-REF20985 X)) - (%%ZLARNV IDIST-REF20982 ISEED-REF20983 N-REF20984 X-REF20985)))) + (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF20997 ':INT32) (N-REF20999 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF20997 :INT32) IDIST) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20999 :INT32) N) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF20998 ISEED) + (X-REF21000 X)) + (%%ZLARNV IDIST-REF20997 ISEED-REF20998 N-REF20999 X-REF21000)))) -(CFFI:DEFCFUN ("zlarrv_" %%ZLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlarrv_" %%ZLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (VL :POINTER) @@ -2201,44 +2143,44 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20986 ':INT32) (VL-REF20987 ':DOUBLE) - (VU-REF20988 ':DOUBLE) (PIVMIN-REF20991 ':DOUBLE) - (M-REF20993 ':INT32) (DOL-REF20994 ':INT32) - (DOU-REF20995 ':INT32) (MINRGP-REF20996 ':DOUBLE) - (RTOL1-REF20997 ':DOUBLE) - (RTOL2-REF20998 ':DOUBLE) (LDZ-REF21006 ':INT32) - (INFO-REF21010 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20986 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF20987 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF20988 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF20991 :DOUBLE) PIVMIN) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20993 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF20994 :INT32) DOL) - (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF20995 :INT32) DOU) - (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF20996 :DOUBLE) MINRGP) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF20997 :DOUBLE) RTOL1) - (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF20998 :DOUBLE) RTOL2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21006 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21010 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20989 D) (L-REF20990 L) - (ISPLIT-REF20992 ISPLIT) - (W-REF20999 W) (WERR-REF21000 WERR) - (WGAP-REF21001 WGAP) - (IBLOCK-REF21002 IBLOCK) - (INDEXW-REF21003 INDEXW) - (GERS-REF21004 GERS) (Z-REF21005 Z) - (ISUPPZ-REF21007 ISUPPZ) - (WORK-REF21008 WORK) - (IWORK-REF21009 IWORK)) - (%%ZLARRV N-REF20986 VL-REF20987 VU-REF20988 D-REF20989 L-REF20990 - PIVMIN-REF20991 ISPLIT-REF20992 M-REF20993 DOL-REF20994 - DOU-REF20995 MINRGP-REF20996 RTOL1-REF20997 RTOL2-REF20998 - W-REF20999 WERR-REF21000 WGAP-REF21001 IBLOCK-REF21002 - INDEXW-REF21003 GERS-REF21004 Z-REF21005 LDZ-REF21006 - ISUPPZ-REF21007 WORK-REF21008 IWORK-REF21009 INFO-REF21010)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21001 ':INT32) (VL-REF21002 ':DOUBLE) + (VU-REF21003 ':DOUBLE) (PIVMIN-REF21006 ':DOUBLE) + (M-REF21008 ':INT32) (DOL-REF21009 ':INT32) + (DOU-REF21010 ':INT32) (MINRGP-REF21011 ':DOUBLE) + (RTOL1-REF21012 ':DOUBLE) + (RTOL2-REF21013 ':DOUBLE) (LDZ-REF21021 ':INT32) + (INFO-REF21025 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21001 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21002 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21003 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF21006 :DOUBLE) PIVMIN) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21008 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF21009 :INT32) DOL) + (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF21010 :INT32) DOU) + (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF21011 :DOUBLE) MINRGP) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF21012 :DOUBLE) RTOL1) + (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF21013 :DOUBLE) RTOL2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21021 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21025 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21004 D) (L-REF21005 L) + (ISPLIT-REF21007 ISPLIT) + (W-REF21014 W) (WERR-REF21015 WERR) + (WGAP-REF21016 WGAP) + (IBLOCK-REF21017 IBLOCK) + (INDEXW-REF21018 INDEXW) + (GERS-REF21019 GERS) (Z-REF21020 Z) + (ISUPPZ-REF21022 ISUPPZ) + (WORK-REF21023 WORK) + (IWORK-REF21024 IWORK)) + (%%ZLARRV N-REF21001 VL-REF21002 VU-REF21003 D-REF21004 L-REF21005 + PIVMIN-REF21006 ISPLIT-REF21007 M-REF21008 DOL-REF21009 DOU-REF21010 + MINRGP-REF21011 RTOL1-REF21012 RTOL2-REF21013 W-REF21014 WERR-REF21015 + WGAP-REF21016 IBLOCK-REF21017 INDEXW-REF21018 GERS-REF21019 Z-REF21020 + LDZ-REF21021 ISUPPZ-REF21022 WORK-REF21023 IWORK-REF21024 + INFO-REF21025)))) (CFFI:DEFCFUN ("zlarscl2_" %%ZLARSCL2 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2258,15 +2200,15 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21011 ':INT32) (N-REF21012 ':INT32) - (LDX-REF21015 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21011 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21012 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21015 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21013 D) (X-REF21014 X)) - (%%ZLARSCL2 M-REF21011 N-REF21012 D-REF21013 X-REF21014 LDX-REF21015)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21026 ':INT32) (N-REF21027 ':INT32) + (LDX-REF21030 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21026 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21027 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21030 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21028 D) (X-REF21029 X)) + (%%ZLARSCL2 M-REF21026 N-REF21027 D-REF21028 X-REF21029 LDX-REF21030)))) -(CFFI:DEFCFUN ("zlartg_" %%ZLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlartg_" %%ZLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (F :POINTER) (G :POINTER) @@ -2285,37 +2227,37 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) R)) - (CFFI:WITH-FOREIGN-OBJECTS ((F-REF21016 + (CFFI:WITH-FOREIGN-OBJECTS ((F-REF21031 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (G-REF21017 + (G-REF21032 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (CS-REF21018 ':DOUBLE) - (SN-REF21019 + (CS-REF21033 ':DOUBLE) + (SN-REF21034 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (R-REF21020 + (R-REF21035 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - F-REF21016 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + F-REF21031 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART F) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART F))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - G-REF21017 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + G-REF21032 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART G) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART G))) - (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF21018 :DOUBLE) CS) + (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF21033 :DOUBLE) CS) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - SN-REF21019 + SN-REF21034 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - R-REF21020 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + R-REF21035 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART R) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART R))) (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL - (%%ZLARTG F-REF21016 G-REF21017 CS-REF21018 SN-REF21019 R-REF21020)))) + (%%ZLARTG F-REF21031 G-REF21032 CS-REF21033 SN-REF21034 R-REF21035)))) -(CFFI:DEFCFUN ("zlartv_" %%ZLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlartv_" %%ZLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -2349,18 +2291,18 @@ (COMMON-LISP:*)) S) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21021 ':INT32) (INCX-REF21023 ':INT32) - (INCY-REF21025 ':INT32) (INCC-REF21028 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21021 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21023 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21025 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF21028 :INT32) INCC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21022 X) (Y-REF21024 Y) - (C-REF21026 C) (S-REF21027 S)) - (%%ZLARTV N-REF21021 X-REF21022 INCX-REF21023 Y-REF21024 INCY-REF21025 - C-REF21026 S-REF21027 INCC-REF21028)))) - -(CFFI:DEFCFUN ("zlarz_" %%ZLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21036 ':INT32) (INCX-REF21038 ':INT32) + (INCY-REF21040 ':INT32) (INCC-REF21043 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21036 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21038 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21040 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF21043 :INT32) INCC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21037 X) (Y-REF21039 Y) + (C-REF21041 C) (S-REF21042 S)) + (%%ZLARTV N-REF21036 X-REF21037 INCX-REF21038 Y-REF21039 INCY-REF21040 + C-REF21041 S-REF21042 INCC-REF21043)))) + +(CFFI:DEFCFUN ("zlarz_" %%ZLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (M :POINTER) @@ -2398,27 +2340,27 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21030 ':INT32) (N-REF21031 ':INT32) - (L-REF21032 ':INT32) (INCV-REF21034 ':INT32) - (TAU-REF21035 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21045 ':INT32) (N-REF21046 ':INT32) + (L-REF21047 ':INT32) (INCV-REF21049 ':INT32) + (TAU-REF21050 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDC-REF21037 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21030 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21031 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21032 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF21034 :INT32) INCV) + (LDC-REF21052 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21045 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21046 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21047 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF21049 :INT32) INCV) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - TAU-REF21035 + TAU-REF21050 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21037 :INT32) LDC) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21033 V) (C-REF21036 C) - (WORK-REF21038 WORK)) - (%%ZLARZ SIDE M-REF21030 N-REF21031 L-REF21032 V-REF21033 INCV-REF21034 - TAU-REF21035 C-REF21036 LDC-REF21037 WORK-REF21038)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21052 :INT32) LDC) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21048 V) (C-REF21051 C) + (WORK-REF21053 WORK)) + (%%ZLARZ SIDE M-REF21045 N-REF21046 L-REF21047 V-REF21048 INCV-REF21049 + TAU-REF21050 C-REF21051 LDC-REF21052 WORK-REF21053)))) -(CFFI:DEFCFUN ("zlarzb_" %%ZLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlarzb_" %%ZLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -2473,25 +2415,25 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21043 ':INT32) (N-REF21044 ':INT32) - (K-REF21045 ':INT32) (L-REF21046 ':INT32) - (LDV-REF21048 ':INT32) (LDT-REF21050 ':INT32) - (LDC-REF21052 ':INT32) (LDWORK-REF21054 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21043 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21044 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21045 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21046 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21048 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21050 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21052 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF21054 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21047 V) (T-REF21049 T) - (C-REF21051 C) (WORK-REF21053 WORK)) - (%%ZLARZB SIDE TRANS DIRECT STOREV M-REF21043 N-REF21044 K-REF21045 - L-REF21046 V-REF21047 LDV-REF21048 T-REF21049 LDT-REF21050 - C-REF21051 LDC-REF21052 WORK-REF21053 LDWORK-REF21054)))) - -(CFFI:DEFCFUN ("zlarzt_" %%ZLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21058 ':INT32) (N-REF21059 ':INT32) + (K-REF21060 ':INT32) (L-REF21061 ':INT32) + (LDV-REF21063 ':INT32) (LDT-REF21065 ':INT32) + (LDC-REF21067 ':INT32) (LDWORK-REF21069 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21058 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21059 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21060 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21061 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21063 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21065 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21067 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF21069 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21062 V) (T-REF21064 T) + (C-REF21066 C) (WORK-REF21068 WORK)) + (%%ZLARZB SIDE TRANS DIRECT STOREV M-REF21058 N-REF21059 K-REF21060 + L-REF21061 V-REF21062 LDV-REF21063 T-REF21064 LDT-REF21065 C-REF21066 + LDC-REF21067 WORK-REF21068 LDWORK-REF21069)))) + +(CFFI:DEFCFUN ("zlarzt_" %%ZLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (DIRECT :STRING) (STOREV :STRING) @@ -2526,18 +2468,18 @@ (COMMON-LISP:*)) T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21057 ':INT32) (K-REF21058 ':INT32) - (LDV-REF21060 ':INT32) (LDT-REF21063 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21057 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21058 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21060 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21063 :INT32) LDT) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21059 V) (TAU-REF21061 TAU) - (T-REF21062 T)) - (%%ZLARZT DIRECT STOREV N-REF21057 K-REF21058 V-REF21059 LDV-REF21060 - TAU-REF21061 T-REF21062 LDT-REF21063)))) - -(CFFI:DEFCFUN ("zlascl_" %%ZLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21072 ':INT32) (K-REF21073 ':INT32) + (LDV-REF21075 ':INT32) (LDT-REF21078 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21072 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21073 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21075 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21078 :INT32) LDT) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21074 V) (TAU-REF21076 TAU) + (T-REF21077 T)) + (%%ZLARZT DIRECT STOREV N-REF21072 K-REF21073 V-REF21074 LDV-REF21075 + TAU-REF21076 T-REF21077 LDT-REF21078)))) + +(CFFI:DEFCFUN ("zlascl_" %%ZLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TYPE :STRING) (KL :POINTER) @@ -2566,23 +2508,24 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF21065 ':INT32) (KU-REF21066 ':INT32) - (CFROM-REF21067 ':DOUBLE) (CTO-REF21068 ':DOUBLE) - (M-REF21069 ':INT32) (N-REF21070 ':INT32) - (LDA-REF21072 ':INT32) (INFO-REF21073 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF21065 :INT32) KL) - (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF21066 :INT32) KU) - (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF21067 :DOUBLE) CFROM) - (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF21068 :DOUBLE) CTO) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21069 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21070 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21072 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21073 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21071 A)) - (%%ZLASCL TYPE KL-REF21065 KU-REF21066 CFROM-REF21067 CTO-REF21068 - M-REF21069 N-REF21070 A-REF21071 LDA-REF21072 INFO-REF21073)))) - -(CFFI:DEFCFUN ("zlascl2_" %%ZLASCL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF21080 ':INT32) (KU-REF21081 ':INT32) + (CFROM-REF21082 ':DOUBLE) (CTO-REF21083 ':DOUBLE) + (M-REF21084 ':INT32) (N-REF21085 ':INT32) + (LDA-REF21087 ':INT32) (INFO-REF21088 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF21080 :INT32) KL) + (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF21081 :INT32) KU) + (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF21082 :DOUBLE) CFROM) + (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF21083 :DOUBLE) CTO) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21084 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21085 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21087 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21088 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21086 A)) + (%%ZLASCL TYPE KL-REF21080 KU-REF21081 CFROM-REF21082 CTO-REF21083 + M-REF21084 N-REF21085 A-REF21086 LDA-REF21087 INFO-REF21088)))) + +(CFFI:DEFCFUN ("zlascl2_" %%ZLASCL2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2602,15 +2545,15 @@ (COMMON-LISP:*)) X) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21074 ':INT32) (N-REF21075 ':INT32) - (LDX-REF21078 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21074 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21075 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21078 :INT32) LDX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21076 D) (X-REF21077 X)) - (%%ZLASCL2 M-REF21074 N-REF21075 D-REF21076 X-REF21077 LDX-REF21078)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21089 ':INT32) (N-REF21090 ':INT32) + (LDX-REF21093 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21089 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21090 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21093 :INT32) LDX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21091 D) (X-REF21092 X)) + (%%ZLASCL2 M-REF21089 N-REF21090 D-REF21091 X-REF21092 LDX-REF21093)))) -(CFFI:DEFCFUN ("zlaset_" %%ZLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaset_" %%ZLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (M :POINTER) @@ -2635,30 +2578,30 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21080 ':INT32) (N-REF21081 ':INT32) - (ALPHA-REF21082 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21095 ':INT32) (N-REF21096 ':INT32) + (ALPHA-REF21097 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (BETA-REF21083 + (BETA-REF21098 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF21085 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21080 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21081 :INT32) N) + (LDA-REF21100 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21095 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21096 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF21082 + ALPHA-REF21097 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF21083 + BETA-REF21098 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21085 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21084 A)) - (%%ZLASET UPLO M-REF21080 N-REF21081 ALPHA-REF21082 BETA-REF21083 - A-REF21084 LDA-REF21085)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21100 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21099 A)) + (%%ZLASET UPLO M-REF21095 N-REF21096 ALPHA-REF21097 BETA-REF21098 + A-REF21099 LDA-REF21100)))) -(CFFI:DEFCFUN ("zlasr_" %%ZLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlasr_" %%ZLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (PIVOT :STRING) @@ -2687,17 +2630,17 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21089 ':INT32) (N-REF21090 ':INT32) - (LDA-REF21094 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21089 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21090 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21094 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF21091 C) (S-REF21092 S) - (A-REF21093 A)) - (%%ZLASR SIDE PIVOT DIRECT M-REF21089 N-REF21090 C-REF21091 S-REF21092 - A-REF21093 LDA-REF21094)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21104 ':INT32) (N-REF21105 ':INT32) + (LDA-REF21109 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21104 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21105 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21109 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF21106 C) (S-REF21107 S) + (A-REF21108 A)) + (%%ZLASR SIDE PIVOT DIRECT M-REF21104 N-REF21105 C-REF21106 S-REF21107 + A-REF21108 LDA-REF21109)))) -(CFFI:DEFCFUN ("zlassq_" %%ZLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlassq_" %%ZLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (X :POINTER) @@ -2716,18 +2659,19 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SUMSQ)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21095 ':INT32) (INCX-REF21097 ':INT32) - (SCALE-REF21098 ':DOUBLE) - (SUMSQ-REF21099 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21095 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21097 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21098 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF21099 :DOUBLE) SUMSQ) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21096 X)) - (%%ZLASSQ N-REF21095 X-REF21096 INCX-REF21097 SCALE-REF21098 - SUMSQ-REF21099)))) - -(CFFI:DEFCFUN ("zlaswlq_" %%ZLASWLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21110 ':INT32) (INCX-REF21112 ':INT32) + (SCALE-REF21113 ':DOUBLE) + (SUMSQ-REF21114 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21110 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21112 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21113 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF21114 :DOUBLE) SUMSQ) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21111 X)) + (%%ZLASSQ N-REF21110 X-REF21111 INCX-REF21112 SCALE-REF21113 + SUMSQ-REF21114)))) + +(CFFI:DEFCFUN ("zlaswlq_" %%ZLASWLQ :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -2766,25 +2710,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21100 ':INT32) (N-REF21101 ':INT32) - (MB-REF21102 ':INT32) (NB-REF21103 ':INT32) - (LDA-REF21105 ':INT32) (LDT-REF21107 ':INT32) - (LWORK-REF21109 ':INT32) (INFO-REF21110 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21100 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21101 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF21102 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21103 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21105 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21107 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21109 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21110 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21104 A) (T-REF21106 T) - (WORK-REF21108 WORK)) - (%%ZLASWLQ M-REF21100 N-REF21101 MB-REF21102 NB-REF21103 A-REF21104 - LDA-REF21105 T-REF21106 LDT-REF21107 WORK-REF21108 - LWORK-REF21109 INFO-REF21110)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21115 ':INT32) (N-REF21116 ':INT32) + (MB-REF21117 ':INT32) (NB-REF21118 ':INT32) + (LDA-REF21120 ':INT32) (LDT-REF21122 ':INT32) + (LWORK-REF21124 ':INT32) (INFO-REF21125 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21115 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21116 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF21117 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21118 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21120 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21122 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21124 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21125 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21119 A) (T-REF21121 T) + (WORK-REF21123 WORK)) + (%%ZLASWLQ M-REF21115 N-REF21116 MB-REF21117 NB-REF21118 A-REF21119 + LDA-REF21120 T-REF21121 LDT-REF21122 WORK-REF21123 LWORK-REF21124 + INFO-REF21125)))) -(CFFI:DEFCFUN ("zlaswp_" %%ZLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaswp_" %%ZLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -2810,19 +2754,19 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21111 ':INT32) (LDA-REF21113 ':INT32) - (K1-REF21114 ':INT32) (K2-REF21115 ':INT32) - (INCX-REF21117 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21111 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21113 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF21114 :INT32) K1) - (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF21115 :INT32) K2) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21117 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21112 A) (IPIV-REF21116 IPIV)) - (%%ZLASWP N-REF21111 A-REF21112 LDA-REF21113 K1-REF21114 K2-REF21115 - IPIV-REF21116 INCX-REF21117)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21126 ':INT32) (LDA-REF21128 ':INT32) + (K1-REF21129 ':INT32) (K2-REF21130 ':INT32) + (INCX-REF21132 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21126 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21128 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF21129 :INT32) K1) + (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF21130 :INT32) K2) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21132 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21127 A) (IPIV-REF21131 IPIV)) + (%%ZLASWP N-REF21126 A-REF21127 LDA-REF21128 K1-REF21129 K2-REF21130 + IPIV-REF21131 INCX-REF21132)))) -(CFFI:DEFCFUN ("zlasyf_" %%ZLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlasyf_" %%ZLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2858,22 +2802,22 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21119 ':INT32) (NB-REF21120 ':INT32) - (KB-REF21121 ':INT32) (LDA-REF21123 ':INT32) - (LDW-REF21126 ':INT32) (INFO-REF21127 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21119 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21120 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21121 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21123 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21126 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21127 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21122 A) (IPIV-REF21124 IPIV) - (W-REF21125 W)) - (%%ZLASYF UPLO N-REF21119 NB-REF21120 KB-REF21121 A-REF21122 LDA-REF21123 - IPIV-REF21124 W-REF21125 LDW-REF21126 INFO-REF21127)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21134 ':INT32) (NB-REF21135 ':INT32) + (KB-REF21136 ':INT32) (LDA-REF21138 ':INT32) + (LDW-REF21141 ':INT32) (INFO-REF21142 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21134 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21135 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21136 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21138 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21141 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21142 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21137 A) (IPIV-REF21139 IPIV) + (W-REF21140 W)) + (%%ZLASYF UPLO N-REF21134 NB-REF21135 KB-REF21136 A-REF21137 LDA-REF21138 + IPIV-REF21139 W-REF21140 LDW-REF21141 INFO-REF21142)))) (CFFI:DEFCFUN ("zlasyf_aa_" %%ZLASYF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (J1 :POINTER) @@ -2913,22 +2857,21 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF21129 ':INT32) (M-REF21130 ':INT32) - (NB-REF21131 ':INT32) (LDA-REF21133 ':INT32) - (LDH-REF21136 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF21129 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21130 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21131 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21133 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF21136 :INT32) LDH) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21132 A) (IPIV-REF21134 IPIV) - (H-REF21135 H) (WORK-REF21137 WORK)) - (%%ZLASYF_AA UPLO J1-REF21129 M-REF21130 NB-REF21131 A-REF21132 - LDA-REF21133 IPIV-REF21134 H-REF21135 LDH-REF21136 - WORK-REF21137)))) + (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF21144 ':INT32) (M-REF21145 ':INT32) + (NB-REF21146 ':INT32) (LDA-REF21148 ':INT32) + (LDH-REF21151 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF21144 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21145 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21146 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21148 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF21151 :INT32) LDH) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21147 A) (IPIV-REF21149 IPIV) + (H-REF21150 H) (WORK-REF21152 WORK)) + (%%ZLASYF_AA UPLO J1-REF21144 M-REF21145 NB-REF21146 A-REF21147 + LDA-REF21148 IPIV-REF21149 H-REF21150 LDH-REF21151 WORK-REF21152)))) (CFFI:DEFCFUN ("zlasyf_rk_" %%ZLASYF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -2970,23 +2913,23 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21139 ':INT32) (NB-REF21140 ':INT32) - (KB-REF21141 ':INT32) (LDA-REF21143 ':INT32) - (LDW-REF21147 ':INT32) (INFO-REF21148 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21139 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21140 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21141 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21143 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21147 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21148 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21142 A) (E-REF21144 E) - (IPIV-REF21145 IPIV) (W-REF21146 W)) - (%%ZLASYF_RK UPLO N-REF21139 NB-REF21140 KB-REF21141 A-REF21142 - LDA-REF21143 E-REF21144 IPIV-REF21145 W-REF21146 - LDW-REF21147 INFO-REF21148)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21154 ':INT32) (NB-REF21155 ':INT32) + (KB-REF21156 ':INT32) (LDA-REF21158 ':INT32) + (LDW-REF21162 ':INT32) (INFO-REF21163 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21154 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21155 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21156 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21158 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21162 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21163 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21157 A) (E-REF21159 E) + (IPIV-REF21160 IPIV) (W-REF21161 W)) + (%%ZLASYF_RK UPLO N-REF21154 NB-REF21155 KB-REF21156 A-REF21157 + LDA-REF21158 E-REF21159 IPIV-REF21160 W-REF21161 LDW-REF21162 + INFO-REF21163)))) (CFFI:DEFCFUN ("zlasyf_rook_" %%ZLASYF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3022,22 +2965,21 @@ W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21150 ':INT32) (NB-REF21151 ':INT32) - (KB-REF21152 ':INT32) (LDA-REF21154 ':INT32) - (LDW-REF21157 ':INT32) (INFO-REF21158 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21150 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21151 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21152 :INT32) KB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21154 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21157 :INT32) LDW) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21158 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21153 A) (IPIV-REF21155 IPIV) - (W-REF21156 W)) - (%%ZLASYF_ROOK UPLO N-REF21150 NB-REF21151 KB-REF21152 A-REF21153 - LDA-REF21154 IPIV-REF21155 W-REF21156 LDW-REF21157 - INFO-REF21158)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21165 ':INT32) (NB-REF21166 ':INT32) + (KB-REF21167 ':INT32) (LDA-REF21169 ':INT32) + (LDW-REF21172 ':INT32) (INFO-REF21173 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21165 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21166 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21167 :INT32) KB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21169 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21172 :INT32) LDW) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21173 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21168 A) (IPIV-REF21170 IPIV) + (W-REF21171 W)) + (%%ZLASYF_ROOK UPLO N-REF21165 NB-REF21166 KB-REF21167 A-REF21168 + LDA-REF21169 IPIV-REF21170 W-REF21171 LDW-REF21172 INFO-REF21173)))) -(CFFI:DEFCFUN ("zlat2c_" %%ZLAT2C :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlat2c_" %%ZLAT2C :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3064,17 +3006,17 @@ SA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21160 ':INT32) (LDA-REF21162 ':INT32) - (LDSA-REF21164 ':INT32) (INFO-REF21165 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21160 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21162 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF21164 :INT32) LDSA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21165 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21161 A) (SA-REF21163 SA)) - (%%ZLAT2C UPLO N-REF21160 A-REF21161 LDA-REF21162 SA-REF21163 - LDSA-REF21164 INFO-REF21165)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21175 ':INT32) (LDA-REF21177 ':INT32) + (LDSA-REF21179 ':INT32) (INFO-REF21180 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21175 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21177 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF21179 :INT32) LDSA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21180 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21176 A) (SA-REF21178 SA)) + (%%ZLAT2C UPLO N-REF21175 A-REF21176 LDA-REF21177 SA-REF21178 + LDSA-REF21179 INFO-REF21180)))) -(CFFI:DEFCFUN ("zlatbs_" %%ZLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlatbs_" %%ZLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -3114,21 +3056,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21170 ':INT32) (KD-REF21171 ':INT32) - (LDAB-REF21173 ':INT32) (SCALE-REF21175 ':DOUBLE) - (INFO-REF21177 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21170 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21171 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21173 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21175 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21177 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21172 AB) (X-REF21174 X) - (CNORM-REF21176 CNORM)) - (%%ZLATBS UPLO TRANS DIAG NORMIN N-REF21170 KD-REF21171 AB-REF21172 - LDAB-REF21173 X-REF21174 SCALE-REF21175 CNORM-REF21176 - INFO-REF21177)))) - -(CFFI:DEFCFUN ("zlatdf_" %%ZLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21185 ':INT32) (KD-REF21186 ':INT32) + (LDAB-REF21188 ':INT32) (SCALE-REF21190 ':DOUBLE) + (INFO-REF21192 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21185 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21186 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21188 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21190 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21192 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21187 AB) (X-REF21189 X) + (CNORM-REF21191 CNORM)) + (%%ZLATBS UPLO TRANS DIAG NORMIN N-REF21185 KD-REF21186 AB-REF21187 + LDAB-REF21188 X-REF21189 SCALE-REF21190 CNORM-REF21191 INFO-REF21192)))) + +(CFFI:DEFCFUN ("zlatdf_" %%ZLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (N :POINTER) @@ -3165,21 +3106,21 @@ (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32) (COMMON-LISP:*)) JPIV)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF21178 ':INT32) (N-REF21179 ':INT32) - (LDZ-REF21181 ':INT32) (RDSUM-REF21183 ':DOUBLE) - (RDSCAL-REF21184 ':DOUBLE)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF21178 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21179 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21181 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF21183 :DOUBLE) RDSUM) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF21184 :DOUBLE) RDSCAL) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF21180 Z) (RHS-REF21182 RHS) - (IPIV-REF21185 IPIV) - (JPIV-REF21186 JPIV)) - (%%ZLATDF IJOB-REF21178 N-REF21179 Z-REF21180 LDZ-REF21181 RHS-REF21182 - RDSUM-REF21183 RDSCAL-REF21184 IPIV-REF21185 JPIV-REF21186)))) - -(CFFI:DEFCFUN ("zlatps_" %%ZLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF21193 ':INT32) (N-REF21194 ':INT32) + (LDZ-REF21196 ':INT32) (RDSUM-REF21198 ':DOUBLE) + (RDSCAL-REF21199 ':DOUBLE)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF21193 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21194 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21196 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF21198 :DOUBLE) RDSUM) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF21199 :DOUBLE) RDSCAL) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF21195 Z) (RHS-REF21197 RHS) + (IPIV-REF21200 IPIV) + (JPIV-REF21201 JPIV)) + (%%ZLATDF IJOB-REF21193 N-REF21194 Z-REF21195 LDZ-REF21196 RHS-REF21197 + RDSUM-REF21198 RDSCAL-REF21199 IPIV-REF21200 JPIV-REF21201)))) + +(CFFI:DEFCFUN ("zlatps_" %%ZLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -3214,17 +3155,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21191 ':INT32) (SCALE-REF21194 ':DOUBLE) - (INFO-REF21196 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21191 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21194 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21196 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21192 AP) (X-REF21193 X) - (CNORM-REF21195 CNORM)) - (%%ZLATPS UPLO TRANS DIAG NORMIN N-REF21191 AP-REF21192 X-REF21193 - SCALE-REF21194 CNORM-REF21195 INFO-REF21196)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21206 ':INT32) (SCALE-REF21209 ':DOUBLE) + (INFO-REF21211 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21206 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21209 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21211 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21207 AP) (X-REF21208 X) + (CNORM-REF21210 CNORM)) + (%%ZLATPS UPLO TRANS DIAG NORMIN N-REF21206 AP-REF21207 X-REF21208 + SCALE-REF21209 CNORM-REF21210 INFO-REF21211)))) -(CFFI:DEFCFUN ("zlatrd_" %%ZLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlatrd_" %%ZLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3260,18 +3201,18 @@ (COMMON-LISP:*)) W) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21198 ':INT32) (NB-REF21199 ':INT32) - (LDA-REF21201 ':INT32) (LDW-REF21205 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21198 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21199 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21201 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21205 :INT32) LDW) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21200 A) (E-REF21202 E) - (TAU-REF21203 TAU) (W-REF21204 W)) - (%%ZLATRD UPLO N-REF21198 NB-REF21199 A-REF21200 LDA-REF21201 E-REF21202 - TAU-REF21203 W-REF21204 LDW-REF21205)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21213 ':INT32) (NB-REF21214 ':INT32) + (LDA-REF21216 ':INT32) (LDW-REF21220 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21213 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21214 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21216 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21220 :INT32) LDW) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21215 A) (E-REF21217 E) + (TAU-REF21218 TAU) (W-REF21219 W)) + (%%ZLATRD UPLO N-REF21213 NB-REF21214 A-REF21215 LDA-REF21216 E-REF21217 + TAU-REF21218 W-REF21219 LDW-REF21220)))) -(CFFI:DEFCFUN ("zlatrs_" %%ZLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlatrs_" %%ZLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -3308,18 +3249,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21210 ':INT32) (LDA-REF21212 ':INT32) - (SCALE-REF21214 ':DOUBLE) (INFO-REF21216 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21210 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21212 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21214 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21216 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21211 A) (X-REF21213 X) - (CNORM-REF21215 CNORM)) - (%%ZLATRS UPLO TRANS DIAG NORMIN N-REF21210 A-REF21211 LDA-REF21212 - X-REF21213 SCALE-REF21214 CNORM-REF21215 INFO-REF21216)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21225 ':INT32) (LDA-REF21227 ':INT32) + (SCALE-REF21229 ':DOUBLE) (INFO-REF21231 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21225 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21227 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21229 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21231 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21226 A) (X-REF21228 X) + (CNORM-REF21230 CNORM)) + (%%ZLATRS UPLO TRANS DIAG NORMIN N-REF21225 A-REF21226 LDA-REF21227 + X-REF21228 SCALE-REF21229 CNORM-REF21230 INFO-REF21231)))) -(CFFI:DEFCFUN ("zlatrz_" %%ZLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlatrz_" %%ZLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3350,18 +3291,19 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) WORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21217 ':INT32) (N-REF21218 ':INT32) - (L-REF21219 ':INT32) (LDA-REF21221 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21217 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21218 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21219 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21221 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21220 A) (TAU-REF21222 TAU) - (WORK-REF21223 WORK)) - (%%ZLATRZ M-REF21217 N-REF21218 L-REF21219 A-REF21220 LDA-REF21221 - TAU-REF21222 WORK-REF21223)))) - -(CFFI:DEFCFUN ("zlatsqr_" %%ZLATSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21232 ':INT32) (N-REF21233 ':INT32) + (L-REF21234 ':INT32) (LDA-REF21236 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21232 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21233 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21234 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21236 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21235 A) (TAU-REF21237 TAU) + (WORK-REF21238 WORK)) + (%%ZLATRZ M-REF21232 N-REF21233 L-REF21234 A-REF21235 LDA-REF21236 + TAU-REF21237 WORK-REF21238)))) + +(CFFI:DEFCFUN ("zlatsqr_" %%ZLATSQR :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -3400,25 +3342,97 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21224 ':INT32) (N-REF21225 ':INT32) - (MB-REF21226 ':INT32) (NB-REF21227 ':INT32) - (LDA-REF21229 ':INT32) (LDT-REF21231 ':INT32) - (LWORK-REF21233 ':INT32) (INFO-REF21234 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21224 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21225 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF21226 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21227 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21229 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21231 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21233 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21234 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21228 A) (T-REF21230 T) - (WORK-REF21232 WORK)) - (%%ZLATSQR M-REF21224 N-REF21225 MB-REF21226 NB-REF21227 A-REF21228 - LDA-REF21229 T-REF21230 LDT-REF21231 WORK-REF21232 - LWORK-REF21233 INFO-REF21234)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21239 ':INT32) (N-REF21240 ':INT32) + (MB-REF21241 ':INT32) (NB-REF21242 ':INT32) + (LDA-REF21244 ':INT32) (LDT-REF21246 ':INT32) + (LWORK-REF21248 ':INT32) (INFO-REF21249 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21239 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21240 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF21241 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21242 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21244 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21246 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21248 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21249 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21243 A) (T-REF21245 T) + (WORK-REF21247 WORK)) + (%%ZLATSQR M-REF21239 N-REF21240 MB-REF21241 NB-REF21242 A-REF21243 + LDA-REF21244 T-REF21245 LDT-REF21246 WORK-REF21247 LWORK-REF21248 + INFO-REF21249)))) + +(CFFI:DEFCFUN ("zlaunhr_col_getrfnp_" %%ZLAUNHR_COL_GETRFNP :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (A :POINTER) + (LDA :POINTER) + (D :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %ZLAUNHR_COL_GETRFNP (M N A LDA D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUNHR_COL_GETRFNP) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21250 ':INT32) (N-REF21251 ':INT32) + (LDA-REF21253 ':INT32) (INFO-REF21255 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21250 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21251 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21253 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21255 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21252 A) (D-REF21254 D)) + (%%ZLAUNHR_COL_GETRFNP M-REF21250 N-REF21251 A-REF21252 LDA-REF21253 + D-REF21254 INFO-REF21255)))) -(CFFI:DEFCFUN ("zlauu2_" %%ZLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlaunhr_col_getrfnp2_" %%ZLAUNHR_COL_GETRFNP2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (A :POINTER) + (LDA :POINTER) + (D :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %ZLAUNHR_COL_GETRFNP2 (M N A LDA D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUNHR_COL_GETRFNP2) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21256 ':INT32) (N-REF21257 ':INT32) + (LDA-REF21259 ':INT32) (INFO-REF21261 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21256 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21257 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21259 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21261 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21258 A) (D-REF21260 D)) + (%%ZLAUNHR_COL_GETRFNP2 M-REF21256 N-REF21257 A-REF21258 LDA-REF21259 + D-REF21260 INFO-REF21261)))) + +(CFFI:DEFCFUN ("zlauu2_" %%ZLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3437,15 +3451,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21236 ':INT32) (LDA-REF21238 ':INT32) - (INFO-REF21239 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21236 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21238 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21239 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21237 A)) - (%%ZLAUU2 UPLO N-REF21236 A-REF21237 LDA-REF21238 INFO-REF21239)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21263 ':INT32) (LDA-REF21265 ':INT32) + (INFO-REF21266 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21263 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21265 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21266 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21264 A)) + (%%ZLAUU2 UPLO N-REF21263 A-REF21264 LDA-REF21265 INFO-REF21266)))) -(CFFI:DEFCFUN ("zlauum_" %%ZLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zlauum_" %%ZLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3464,15 +3478,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21241 ':INT32) (LDA-REF21243 ':INT32) - (INFO-REF21244 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21241 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21243 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21244 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21242 A)) - (%%ZLAUUM UPLO N-REF21241 A-REF21242 LDA-REF21243 INFO-REF21244)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21268 ':INT32) (LDA-REF21270 ':INT32) + (INFO-REF21271 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21268 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21270 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21271 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21269 A)) + (%%ZLAUUM UPLO N-REF21268 A-REF21269 LDA-REF21270 INFO-REF21271)))) -(CFFI:DEFCFUN ("zpbcon_" %%ZPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpbcon_" %%ZPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3507,23 +3521,23 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21246 ':INT32) (KD-REF21247 ':INT32) - (LDAB-REF21249 ':INT32) (ANORM-REF21250 ':DOUBLE) - (RCOND-REF21251 ':DOUBLE) (INFO-REF21254 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21246 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21247 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21249 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21250 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21251 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21254 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21248 AB) - (WORK-REF21252 WORK) - (RWORK-REF21253 RWORK)) - (%%ZPBCON UPLO N-REF21246 KD-REF21247 AB-REF21248 LDAB-REF21249 - ANORM-REF21250 RCOND-REF21251 WORK-REF21252 RWORK-REF21253 - INFO-REF21254)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21273 ':INT32) (KD-REF21274 ':INT32) + (LDAB-REF21276 ':INT32) (ANORM-REF21277 ':DOUBLE) + (RCOND-REF21278 ':DOUBLE) (INFO-REF21281 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21273 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21274 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21276 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21277 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21278 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21281 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21275 AB) + (WORK-REF21279 WORK) + (RWORK-REF21280 RWORK)) + (%%ZPBCON UPLO N-REF21273 KD-REF21274 AB-REF21275 LDAB-REF21276 + ANORM-REF21277 RCOND-REF21278 WORK-REF21279 RWORK-REF21280 + INFO-REF21281)))) -(CFFI:DEFCFUN ("zpbequ_" %%ZPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpbequ_" %%ZPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3551,20 +3565,20 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21256 ':INT32) (KD-REF21257 ':INT32) - (LDAB-REF21259 ':INT32) (SCOND-REF21261 ':DOUBLE) - (AMAX-REF21262 ':DOUBLE) (INFO-REF21263 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21256 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21257 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21259 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21261 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21262 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21263 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21258 AB) (S-REF21260 S)) - (%%ZPBEQU UPLO N-REF21256 KD-REF21257 AB-REF21258 LDAB-REF21259 - S-REF21260 SCOND-REF21261 AMAX-REF21262 INFO-REF21263)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21283 ':INT32) (KD-REF21284 ':INT32) + (LDAB-REF21286 ':INT32) (SCOND-REF21288 ':DOUBLE) + (AMAX-REF21289 ':DOUBLE) (INFO-REF21290 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21283 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21284 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21286 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21288 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21289 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21290 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21285 AB) (S-REF21287 S)) + (%%ZPBEQU UPLO N-REF21283 KD-REF21284 AB-REF21285 LDAB-REF21286 + S-REF21287 SCOND-REF21288 AMAX-REF21289 INFO-REF21290)))) -(CFFI:DEFCFUN ("zpbrfs_" %%ZPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpbrfs_" %%ZPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3631,30 +3645,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21265 ':INT32) (KD-REF21266 ':INT32) - (NRHS-REF21267 ':INT32) (LDAB-REF21269 ':INT32) - (LDAFB-REF21271 ':INT32) (LDB-REF21273 ':INT32) - (LDX-REF21275 ':INT32) (INFO-REF21280 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21265 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21266 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21267 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21269 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21271 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21273 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21275 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21280 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21268 AB) (AFB-REF21270 AFB) - (B-REF21272 B) (X-REF21274 X) - (FERR-REF21276 FERR) - (BERR-REF21277 BERR) - (WORK-REF21278 WORK) - (RWORK-REF21279 RWORK)) - (%%ZPBRFS UPLO N-REF21265 KD-REF21266 NRHS-REF21267 AB-REF21268 - LDAB-REF21269 AFB-REF21270 LDAFB-REF21271 B-REF21272 - LDB-REF21273 X-REF21274 LDX-REF21275 FERR-REF21276 - BERR-REF21277 WORK-REF21278 RWORK-REF21279 INFO-REF21280)))) - -(CFFI:DEFCFUN ("zpbstf_" %%ZPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21292 ':INT32) (KD-REF21293 ':INT32) + (NRHS-REF21294 ':INT32) (LDAB-REF21296 ':INT32) + (LDAFB-REF21298 ':INT32) (LDB-REF21300 ':INT32) + (LDX-REF21302 ':INT32) (INFO-REF21307 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21292 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21293 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21294 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21296 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21298 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21300 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21302 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21307 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21295 AB) (AFB-REF21297 AFB) + (B-REF21299 B) (X-REF21301 X) + (FERR-REF21303 FERR) + (BERR-REF21304 BERR) + (WORK-REF21305 WORK) + (RWORK-REF21306 RWORK)) + (%%ZPBRFS UPLO N-REF21292 KD-REF21293 NRHS-REF21294 AB-REF21295 + LDAB-REF21296 AFB-REF21297 LDAFB-REF21298 B-REF21299 LDB-REF21300 + X-REF21301 LDX-REF21302 FERR-REF21303 BERR-REF21304 WORK-REF21305 + RWORK-REF21306 INFO-REF21307)))) + +(CFFI:DEFCFUN ("zpbstf_" %%ZPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3675,17 +3689,17 @@ AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21282 ':INT32) (KD-REF21283 ':INT32) - (LDAB-REF21285 ':INT32) (INFO-REF21286 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21282 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21283 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21285 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21286 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21284 AB)) - (%%ZPBSTF UPLO N-REF21282 KD-REF21283 AB-REF21284 LDAB-REF21285 - INFO-REF21286)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21309 ':INT32) (KD-REF21310 ':INT32) + (LDAB-REF21312 ':INT32) (INFO-REF21313 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21309 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21310 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21312 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21313 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21311 AB)) + (%%ZPBSTF UPLO N-REF21309 KD-REF21310 AB-REF21311 LDAB-REF21312 + INFO-REF21313)))) -(CFFI:DEFCFUN ("zpbsv_" %%ZPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpbsv_" %%ZPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3716,20 +3730,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21288 ':INT32) (KD-REF21289 ':INT32) - (NRHS-REF21290 ':INT32) (LDAB-REF21292 ':INT32) - (LDB-REF21294 ':INT32) (INFO-REF21295 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21288 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21289 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21290 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21292 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21294 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21295 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21291 AB) (B-REF21293 B)) - (%%ZPBSV UPLO N-REF21288 KD-REF21289 NRHS-REF21290 AB-REF21291 - LDAB-REF21292 B-REF21293 LDB-REF21294 INFO-REF21295)))) - -(CFFI:DEFCFUN ("zpbsvx_" %%ZPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21315 ':INT32) (KD-REF21316 ':INT32) + (NRHS-REF21317 ':INT32) (LDAB-REF21319 ':INT32) + (LDB-REF21321 ':INT32) (INFO-REF21322 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21315 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21316 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21317 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21319 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21321 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21322 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21318 AB) (B-REF21320 B)) + (%%ZPBSV UPLO N-REF21315 KD-REF21316 NRHS-REF21317 AB-REF21318 + LDAB-REF21319 B-REF21320 LDB-REF21321 INFO-REF21322)))) + +(CFFI:DEFCFUN ("zpbsvx_" %%ZPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -3805,33 +3819,32 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21298 ':INT32) (KD-REF21299 ':INT32) - (NRHS-REF21300 ':INT32) (LDAB-REF21302 ':INT32) - (LDAFB-REF21304 ':INT32) (LDB-REF21308 ':INT32) - (LDX-REF21310 ':INT32) (RCOND-REF21311 ':DOUBLE) - (INFO-REF21316 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21298 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21299 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21300 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21302 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21304 :INT32) LDAFB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21308 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21310 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21311 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21316 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21301 AB) (AFB-REF21303 AFB) - (S-REF21306 S) (B-REF21307 B) - (X-REF21309 X) (FERR-REF21312 FERR) - (BERR-REF21313 BERR) - (WORK-REF21314 WORK) - (RWORK-REF21315 RWORK)) - (%%ZPBSVX FACT UPLO N-REF21298 KD-REF21299 NRHS-REF21300 AB-REF21301 - LDAB-REF21302 AFB-REF21303 LDAFB-REF21304 EQUED S-REF21306 - B-REF21307 LDB-REF21308 X-REF21309 LDX-REF21310 RCOND-REF21311 - FERR-REF21312 BERR-REF21313 WORK-REF21314 RWORK-REF21315 - INFO-REF21316)))) - -(CFFI:DEFCFUN ("zpbtf2_" %%ZPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21325 ':INT32) (KD-REF21326 ':INT32) + (NRHS-REF21327 ':INT32) (LDAB-REF21329 ':INT32) + (LDAFB-REF21331 ':INT32) (LDB-REF21335 ':INT32) + (LDX-REF21337 ':INT32) (RCOND-REF21338 ':DOUBLE) + (INFO-REF21343 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21325 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21326 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21327 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21329 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21331 :INT32) LDAFB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21335 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21337 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21338 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21343 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21328 AB) (AFB-REF21330 AFB) + (S-REF21333 S) (B-REF21334 B) + (X-REF21336 X) (FERR-REF21339 FERR) + (BERR-REF21340 BERR) + (WORK-REF21341 WORK) + (RWORK-REF21342 RWORK)) + (%%ZPBSVX FACT UPLO N-REF21325 KD-REF21326 NRHS-REF21327 AB-REF21328 + LDAB-REF21329 AFB-REF21330 LDAFB-REF21331 EQUED S-REF21333 B-REF21334 + LDB-REF21335 X-REF21336 LDX-REF21337 RCOND-REF21338 FERR-REF21339 + BERR-REF21340 WORK-REF21341 RWORK-REF21342 INFO-REF21343)))) + +(CFFI:DEFCFUN ("zpbtf2_" %%ZPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3852,17 +3865,17 @@ AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21318 ':INT32) (KD-REF21319 ':INT32) - (LDAB-REF21321 ':INT32) (INFO-REF21322 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21318 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21319 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21321 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21322 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21320 AB)) - (%%ZPBTF2 UPLO N-REF21318 KD-REF21319 AB-REF21320 LDAB-REF21321 - INFO-REF21322)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21345 ':INT32) (KD-REF21346 ':INT32) + (LDAB-REF21348 ':INT32) (INFO-REF21349 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21345 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21346 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21348 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21349 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21347 AB)) + (%%ZPBTF2 UPLO N-REF21345 KD-REF21346 AB-REF21347 LDAB-REF21348 + INFO-REF21349)))) -(CFFI:DEFCFUN ("zpbtrf_" %%ZPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpbtrf_" %%ZPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3883,17 +3896,17 @@ AB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21324 ':INT32) (KD-REF21325 ':INT32) - (LDAB-REF21327 ':INT32) (INFO-REF21328 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21324 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21325 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21327 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21328 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21326 AB)) - (%%ZPBTRF UPLO N-REF21324 KD-REF21325 AB-REF21326 LDAB-REF21327 - INFO-REF21328)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21351 ':INT32) (KD-REF21352 ':INT32) + (LDAB-REF21354 ':INT32) (INFO-REF21355 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21351 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21352 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21354 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21355 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21353 AB)) + (%%ZPBTRF UPLO N-REF21351 KD-REF21352 AB-REF21353 LDAB-REF21354 + INFO-REF21355)))) -(CFFI:DEFCFUN ("zpbtrs_" %%ZPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpbtrs_" %%ZPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -3924,20 +3937,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21330 ':INT32) (KD-REF21331 ':INT32) - (NRHS-REF21332 ':INT32) (LDAB-REF21334 ':INT32) - (LDB-REF21336 ':INT32) (INFO-REF21337 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21330 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21331 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21332 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21334 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21336 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21337 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21333 AB) (B-REF21335 B)) - (%%ZPBTRS UPLO N-REF21330 KD-REF21331 NRHS-REF21332 AB-REF21333 - LDAB-REF21334 B-REF21335 LDB-REF21336 INFO-REF21337)))) - -(CFFI:DEFCFUN ("zpftrf_" %%ZPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21357 ':INT32) (KD-REF21358 ':INT32) + (NRHS-REF21359 ':INT32) (LDAB-REF21361 ':INT32) + (LDB-REF21363 ':INT32) (INFO-REF21364 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21357 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21358 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21359 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21361 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21363 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21364 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21360 AB) (B-REF21362 B)) + (%%ZPBTRS UPLO N-REF21357 KD-REF21358 NRHS-REF21359 AB-REF21360 + LDAB-REF21361 B-REF21362 LDB-REF21363 INFO-REF21364)))) + +(CFFI:DEFCFUN ("zpftrf_" %%ZPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3956,13 +3969,13 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21340 ':INT32) (INFO-REF21342 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21340 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21342 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21341 A)) - (%%ZPFTRF TRANSR UPLO N-REF21340 A-REF21341 INFO-REF21342)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21367 ':INT32) (INFO-REF21369 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21367 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21369 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21368 A)) + (%%ZPFTRF TRANSR UPLO N-REF21367 A-REF21368 INFO-REF21369)))) -(CFFI:DEFCFUN ("zpftri_" %%ZPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpftri_" %%ZPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -3981,13 +3994,13 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21345 ':INT32) (INFO-REF21347 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21345 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21347 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21346 A)) - (%%ZPFTRI TRANSR UPLO N-REF21345 A-REF21346 INFO-REF21347)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21372 ':INT32) (INFO-REF21374 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21372 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21374 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21373 A)) + (%%ZPFTRI TRANSR UPLO N-REF21372 A-REF21373 INFO-REF21374)))) -(CFFI:DEFCFUN ("zpftrs_" %%ZPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpftrs_" %%ZPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -4016,17 +4029,17 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21350 ':INT32) (NRHS-REF21351 ':INT32) - (LDB-REF21354 ':INT32) (INFO-REF21355 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21350 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21351 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21354 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21355 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21352 A) (B-REF21353 B)) - (%%ZPFTRS TRANSR UPLO N-REF21350 NRHS-REF21351 A-REF21352 B-REF21353 - LDB-REF21354 INFO-REF21355)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21377 ':INT32) (NRHS-REF21378 ':INT32) + (LDB-REF21381 ':INT32) (INFO-REF21382 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21377 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21378 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21381 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21382 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21379 A) (B-REF21380 B)) + (%%ZPFTRS TRANSR UPLO N-REF21377 NRHS-REF21378 A-REF21379 B-REF21380 + LDB-REF21381 INFO-REF21382)))) -(CFFI:DEFCFUN ("zpocon_" %%ZPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpocon_" %%ZPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4059,20 +4072,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21357 ':INT32) (LDA-REF21359 ':INT32) - (ANORM-REF21360 ':DOUBLE) - (RCOND-REF21361 ':DOUBLE) (INFO-REF21364 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21357 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21359 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21360 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21361 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21364 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21358 A) (WORK-REF21362 WORK) - (RWORK-REF21363 RWORK)) - (%%ZPOCON UPLO N-REF21357 A-REF21358 LDA-REF21359 ANORM-REF21360 - RCOND-REF21361 WORK-REF21362 RWORK-REF21363 INFO-REF21364)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21384 ':INT32) (LDA-REF21386 ':INT32) + (ANORM-REF21387 ':DOUBLE) + (RCOND-REF21388 ':DOUBLE) (INFO-REF21391 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21384 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21386 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21387 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21388 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21391 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21385 A) (WORK-REF21389 WORK) + (RWORK-REF21390 RWORK)) + (%%ZPOCON UPLO N-REF21384 A-REF21385 LDA-REF21386 ANORM-REF21387 + RCOND-REF21388 WORK-REF21389 RWORK-REF21390 INFO-REF21391)))) -(CFFI:DEFCFUN ("zpoequ_" %%ZPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpoequ_" %%ZPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4096,19 +4109,20 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21365 ':INT32) (LDA-REF21367 ':INT32) - (SCOND-REF21369 ':DOUBLE) - (AMAX-REF21370 ':DOUBLE) (INFO-REF21371 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21365 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21367 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21369 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21370 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21371 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21366 A) (S-REF21368 S)) - (%%ZPOEQU N-REF21365 A-REF21366 LDA-REF21367 S-REF21368 SCOND-REF21369 - AMAX-REF21370 INFO-REF21371)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21392 ':INT32) (LDA-REF21394 ':INT32) + (SCOND-REF21396 ':DOUBLE) + (AMAX-REF21397 ':DOUBLE) (INFO-REF21398 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21392 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21394 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21396 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21397 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21398 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21393 A) (S-REF21395 S)) + (%%ZPOEQU N-REF21392 A-REF21393 LDA-REF21394 S-REF21395 SCOND-REF21396 + AMAX-REF21397 INFO-REF21398)))) -(CFFI:DEFCFUN ("zpoequb_" %%ZPOEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpoequb_" %%ZPOEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (A :POINTER) @@ -4132,19 +4146,19 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21372 ':INT32) (LDA-REF21374 ':INT32) - (SCOND-REF21376 ':DOUBLE) - (AMAX-REF21377 ':DOUBLE) (INFO-REF21378 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21372 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21374 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21376 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21377 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21378 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21373 A) (S-REF21375 S)) - (%%ZPOEQUB N-REF21372 A-REF21373 LDA-REF21374 S-REF21375 SCOND-REF21376 - AMAX-REF21377 INFO-REF21378)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21399 ':INT32) (LDA-REF21401 ':INT32) + (SCOND-REF21403 ':DOUBLE) + (AMAX-REF21404 ':DOUBLE) (INFO-REF21405 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21399 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21401 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21403 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21404 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21405 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21400 A) (S-REF21402 S)) + (%%ZPOEQUB N-REF21399 A-REF21400 LDA-REF21401 S-REF21402 SCOND-REF21403 + AMAX-REF21404 INFO-REF21405)))) -(CFFI:DEFCFUN ("zporfs_" %%ZPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zporfs_" %%ZPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4209,29 +4223,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21380 ':INT32) (NRHS-REF21381 ':INT32) - (LDA-REF21383 ':INT32) (LDAF-REF21385 ':INT32) - (LDB-REF21387 ':INT32) (LDX-REF21389 ':INT32) - (INFO-REF21394 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21380 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21381 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21383 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21385 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21387 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21389 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21394 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21382 A) (AF-REF21384 AF) - (B-REF21386 B) (X-REF21388 X) - (FERR-REF21390 FERR) - (BERR-REF21391 BERR) - (WORK-REF21392 WORK) - (RWORK-REF21393 RWORK)) - (%%ZPORFS UPLO N-REF21380 NRHS-REF21381 A-REF21382 LDA-REF21383 - AF-REF21384 LDAF-REF21385 B-REF21386 LDB-REF21387 X-REF21388 - LDX-REF21389 FERR-REF21390 BERR-REF21391 WORK-REF21392 - RWORK-REF21393 INFO-REF21394)))) - -(CFFI:DEFCFUN ("zporfsx_" %%ZPORFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21407 ':INT32) (NRHS-REF21408 ':INT32) + (LDA-REF21410 ':INT32) (LDAF-REF21412 ':INT32) + (LDB-REF21414 ':INT32) (LDX-REF21416 ':INT32) + (INFO-REF21421 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21407 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21408 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21410 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21412 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21414 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21416 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21421 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21409 A) (AF-REF21411 AF) + (B-REF21413 B) (X-REF21415 X) + (FERR-REF21417 FERR) + (BERR-REF21418 BERR) + (WORK-REF21419 WORK) + (RWORK-REF21420 RWORK)) + (%%ZPORFS UPLO N-REF21407 NRHS-REF21408 A-REF21409 LDA-REF21410 + AF-REF21411 LDAF-REF21412 B-REF21413 LDB-REF21414 X-REF21415 + LDX-REF21416 FERR-REF21417 BERR-REF21418 WORK-REF21419 RWORK-REF21420 + INFO-REF21421)))) + +(CFFI:DEFCFUN ("zporfsx_" %%ZPORFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -4317,41 +4332,40 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21397 ':INT32) (NRHS-REF21398 ':INT32) - (LDA-REF21400 ':INT32) (LDAF-REF21402 ':INT32) - (LDB-REF21405 ':INT32) (LDX-REF21407 ':INT32) - (RCOND-REF21408 ':DOUBLE) - (N_ERR_BNDS-REF21410 ':INT32) - (NPARAMS-REF21413 ':INT32) - (INFO-REF21417 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21397 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21398 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21400 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21402 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21405 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21407 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21408 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21410 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21413 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21417 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21399 A) (AF-REF21401 AF) - (S-REF21403 S) (B-REF21404 B) - (X-REF21406 X) (BERR-REF21409 BERR) - (ERR_BNDS_NORM-REF21411 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21424 ':INT32) (NRHS-REF21425 ':INT32) + (LDA-REF21427 ':INT32) (LDAF-REF21429 ':INT32) + (LDB-REF21432 ':INT32) (LDX-REF21434 ':INT32) + (RCOND-REF21435 ':DOUBLE) + (N_ERR_BNDS-REF21437 ':INT32) + (NPARAMS-REF21440 ':INT32) + (INFO-REF21444 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21424 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21425 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21427 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21429 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21432 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21434 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21435 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21437 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21440 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21444 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21426 A) (AF-REF21428 AF) + (S-REF21430 S) (B-REF21431 B) + (X-REF21433 X) (BERR-REF21436 BERR) + (ERR_BNDS_NORM-REF21438 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF21412 + (ERR_BNDS_COMP-REF21439 ERR_BNDS_COMP) - (PARAMS-REF21414 PARAMS) - (WORK-REF21415 WORK) - (RWORK-REF21416 RWORK)) - (%%ZPORFSX UPLO EQUED N-REF21397 NRHS-REF21398 A-REF21399 LDA-REF21400 - AF-REF21401 LDAF-REF21402 S-REF21403 B-REF21404 LDB-REF21405 - X-REF21406 LDX-REF21407 RCOND-REF21408 BERR-REF21409 - N_ERR_BNDS-REF21410 ERR_BNDS_NORM-REF21411 - ERR_BNDS_COMP-REF21412 NPARAMS-REF21413 PARAMS-REF21414 - WORK-REF21415 RWORK-REF21416 INFO-REF21417)))) + (PARAMS-REF21441 PARAMS) + (WORK-REF21442 WORK) + (RWORK-REF21443 RWORK)) + (%%ZPORFSX UPLO EQUED N-REF21424 NRHS-REF21425 A-REF21426 LDA-REF21427 + AF-REF21428 LDAF-REF21429 S-REF21430 B-REF21431 LDB-REF21432 X-REF21433 + LDX-REF21434 RCOND-REF21435 BERR-REF21436 N_ERR_BNDS-REF21437 + ERR_BNDS_NORM-REF21438 ERR_BNDS_COMP-REF21439 NPARAMS-REF21440 + PARAMS-REF21441 WORK-REF21442 RWORK-REF21443 INFO-REF21444)))) -(CFFI:DEFCFUN ("zposv_" %%ZPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zposv_" %%ZPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4380,19 +4394,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21419 ':INT32) (NRHS-REF21420 ':INT32) - (LDA-REF21422 ':INT32) (LDB-REF21424 ':INT32) - (INFO-REF21425 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21419 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21420 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21422 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21424 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21425 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21421 A) (B-REF21423 B)) - (%%ZPOSV UPLO N-REF21419 NRHS-REF21420 A-REF21421 LDA-REF21422 B-REF21423 - LDB-REF21424 INFO-REF21425)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21446 ':INT32) (NRHS-REF21447 ':INT32) + (LDA-REF21449 ':INT32) (LDB-REF21451 ':INT32) + (INFO-REF21452 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21446 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21447 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21449 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21451 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21452 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21448 A) (B-REF21450 B)) + (%%ZPOSV UPLO N-REF21446 NRHS-REF21447 A-REF21448 LDA-REF21449 B-REF21450 + LDB-REF21451 INFO-REF21452)))) -(CFFI:DEFCFUN ("zposvx_" %%ZPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zposvx_" %%ZPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -4466,31 +4480,31 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21428 ':INT32) (NRHS-REF21429 ':INT32) - (LDA-REF21431 ':INT32) (LDAF-REF21433 ':INT32) - (LDB-REF21437 ':INT32) (LDX-REF21439 ':INT32) - (RCOND-REF21440 ':DOUBLE) (INFO-REF21445 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21428 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21429 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21431 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21433 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21437 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21439 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21440 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21445 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21430 A) (AF-REF21432 AF) - (S-REF21435 S) (B-REF21436 B) - (X-REF21438 X) (FERR-REF21441 FERR) - (BERR-REF21442 BERR) - (WORK-REF21443 WORK) - (RWORK-REF21444 RWORK)) - (%%ZPOSVX FACT UPLO N-REF21428 NRHS-REF21429 A-REF21430 LDA-REF21431 - AF-REF21432 LDAF-REF21433 EQUED S-REF21435 B-REF21436 - LDB-REF21437 X-REF21438 LDX-REF21439 RCOND-REF21440 - FERR-REF21441 BERR-REF21442 WORK-REF21443 RWORK-REF21444 - INFO-REF21445)))) - -(CFFI:DEFCFUN ("zposvxx_" %%ZPOSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21455 ':INT32) (NRHS-REF21456 ':INT32) + (LDA-REF21458 ':INT32) (LDAF-REF21460 ':INT32) + (LDB-REF21464 ':INT32) (LDX-REF21466 ':INT32) + (RCOND-REF21467 ':DOUBLE) (INFO-REF21472 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21455 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21456 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21458 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21460 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21464 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21466 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21467 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21472 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21457 A) (AF-REF21459 AF) + (S-REF21462 S) (B-REF21463 B) + (X-REF21465 X) (FERR-REF21468 FERR) + (BERR-REF21469 BERR) + (WORK-REF21470 WORK) + (RWORK-REF21471 RWORK)) + (%%ZPOSVX FACT UPLO N-REF21455 NRHS-REF21456 A-REF21457 LDA-REF21458 + AF-REF21459 LDAF-REF21460 EQUED S-REF21462 B-REF21463 LDB-REF21464 + X-REF21465 LDX-REF21466 RCOND-REF21467 FERR-REF21468 BERR-REF21469 + WORK-REF21470 RWORK-REF21471 INFO-REF21472)))) + +(CFFI:DEFCFUN ("zposvxx_" %%ZPOSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -4580,43 +4594,43 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21448 ':INT32) (NRHS-REF21449 ':INT32) - (LDA-REF21451 ':INT32) (LDAF-REF21453 ':INT32) - (LDB-REF21457 ':INT32) (LDX-REF21459 ':INT32) - (RCOND-REF21460 ':DOUBLE) - (RPVGRW-REF21461 ':DOUBLE) - (N_ERR_BNDS-REF21463 ':INT32) - (NPARAMS-REF21466 ':INT32) - (INFO-REF21470 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21448 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21449 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21451 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21453 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21457 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21459 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21460 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF21461 :DOUBLE) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21463 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21466 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21470 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21450 A) (AF-REF21452 AF) - (S-REF21455 S) (B-REF21456 B) - (X-REF21458 X) (BERR-REF21462 BERR) - (ERR_BNDS_NORM-REF21464 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21475 ':INT32) (NRHS-REF21476 ':INT32) + (LDA-REF21478 ':INT32) (LDAF-REF21480 ':INT32) + (LDB-REF21484 ':INT32) (LDX-REF21486 ':INT32) + (RCOND-REF21487 ':DOUBLE) + (RPVGRW-REF21488 ':DOUBLE) + (N_ERR_BNDS-REF21490 ':INT32) + (NPARAMS-REF21493 ':INT32) + (INFO-REF21497 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21475 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21476 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21478 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21480 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21484 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21486 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21487 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF21488 :DOUBLE) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21490 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21493 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21497 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21477 A) (AF-REF21479 AF) + (S-REF21482 S) (B-REF21483 B) + (X-REF21485 X) (BERR-REF21489 BERR) + (ERR_BNDS_NORM-REF21491 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF21465 + (ERR_BNDS_COMP-REF21492 ERR_BNDS_COMP) - (PARAMS-REF21467 PARAMS) - (WORK-REF21468 WORK) - (RWORK-REF21469 RWORK)) - (%%ZPOSVXX FACT UPLO N-REF21448 NRHS-REF21449 A-REF21450 LDA-REF21451 - AF-REF21452 LDAF-REF21453 EQUED S-REF21455 B-REF21456 - LDB-REF21457 X-REF21458 LDX-REF21459 RCOND-REF21460 - RPVGRW-REF21461 BERR-REF21462 N_ERR_BNDS-REF21463 - ERR_BNDS_NORM-REF21464 ERR_BNDS_COMP-REF21465 NPARAMS-REF21466 - PARAMS-REF21467 WORK-REF21468 RWORK-REF21469 INFO-REF21470)))) + (PARAMS-REF21494 PARAMS) + (WORK-REF21495 WORK) + (RWORK-REF21496 RWORK)) + (%%ZPOSVXX FACT UPLO N-REF21475 NRHS-REF21476 A-REF21477 LDA-REF21478 + AF-REF21479 LDAF-REF21480 EQUED S-REF21482 B-REF21483 LDB-REF21484 + X-REF21485 LDX-REF21486 RCOND-REF21487 RPVGRW-REF21488 BERR-REF21489 + N_ERR_BNDS-REF21490 ERR_BNDS_NORM-REF21491 ERR_BNDS_COMP-REF21492 + NPARAMS-REF21493 PARAMS-REF21494 WORK-REF21495 RWORK-REF21496 + INFO-REF21497)))) -(CFFI:DEFCFUN ("zpotf2_" %%ZPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpotf2_" %%ZPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4635,15 +4649,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21472 ':INT32) (LDA-REF21474 ':INT32) - (INFO-REF21475 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21472 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21474 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21475 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21473 A)) - (%%ZPOTF2 UPLO N-REF21472 A-REF21473 LDA-REF21474 INFO-REF21475)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21499 ':INT32) (LDA-REF21501 ':INT32) + (INFO-REF21502 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21499 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21501 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21502 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21500 A)) + (%%ZPOTF2 UPLO N-REF21499 A-REF21500 LDA-REF21501 INFO-REF21502)))) -(CFFI:DEFCFUN ("zpotrf_" %%ZPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpotrf_" %%ZPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4662,15 +4676,16 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21477 ':INT32) (LDA-REF21479 ':INT32) - (INFO-REF21480 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21477 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21479 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21480 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21478 A)) - (%%ZPOTRF UPLO N-REF21477 A-REF21478 LDA-REF21479 INFO-REF21480)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21504 ':INT32) (LDA-REF21506 ':INT32) + (INFO-REF21507 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21504 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21506 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21507 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21505 A)) + (%%ZPOTRF UPLO N-REF21504 A-REF21505 LDA-REF21506 INFO-REF21507)))) -(CFFI:DEFCFUN ("zpotrf2_" %%ZPOTRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpotrf2_" %%ZPOTRF2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4689,15 +4704,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21482 ':INT32) (LDA-REF21484 ':INT32) - (INFO-REF21485 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21482 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21484 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21485 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21483 A)) - (%%ZPOTRF2 UPLO N-REF21482 A-REF21483 LDA-REF21484 INFO-REF21485)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21509 ':INT32) (LDA-REF21511 ':INT32) + (INFO-REF21512 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21509 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21511 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21512 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21510 A)) + (%%ZPOTRF2 UPLO N-REF21509 A-REF21510 LDA-REF21511 INFO-REF21512)))) -(CFFI:DEFCFUN ("zpotri_" %%ZPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpotri_" %%ZPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4716,15 +4731,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21487 ':INT32) (LDA-REF21489 ':INT32) - (INFO-REF21490 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21487 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21489 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21490 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21488 A)) - (%%ZPOTRI UPLO N-REF21487 A-REF21488 LDA-REF21489 INFO-REF21490)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21514 ':INT32) (LDA-REF21516 ':INT32) + (INFO-REF21517 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21514 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21516 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21517 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21515 A)) + (%%ZPOTRI UPLO N-REF21514 A-REF21515 LDA-REF21516 INFO-REF21517)))) -(CFFI:DEFCFUN ("zpotrs_" %%ZPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpotrs_" %%ZPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4753,19 +4768,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21492 ':INT32) (NRHS-REF21493 ':INT32) - (LDA-REF21495 ':INT32) (LDB-REF21497 ':INT32) - (INFO-REF21498 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21492 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21493 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21495 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21497 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21498 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21494 A) (B-REF21496 B)) - (%%ZPOTRS UPLO N-REF21492 NRHS-REF21493 A-REF21494 LDA-REF21495 - B-REF21496 LDB-REF21497 INFO-REF21498)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21519 ':INT32) (NRHS-REF21520 ':INT32) + (LDA-REF21522 ':INT32) (LDB-REF21524 ':INT32) + (INFO-REF21525 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21519 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21520 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21522 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21524 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21525 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21521 A) (B-REF21523 B)) + (%%ZPOTRS UPLO N-REF21519 NRHS-REF21520 A-REF21521 LDA-REF21522 + B-REF21523 LDB-REF21524 INFO-REF21525)))) -(CFFI:DEFCFUN ("zppcon_" %%ZPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zppcon_" %%ZPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4796,19 +4811,19 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21500 ':INT32) (ANORM-REF21502 ':DOUBLE) - (RCOND-REF21503 ':DOUBLE) (INFO-REF21506 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21500 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21502 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21503 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21506 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21501 AP) - (WORK-REF21504 WORK) - (RWORK-REF21505 RWORK)) - (%%ZPPCON UPLO N-REF21500 AP-REF21501 ANORM-REF21502 RCOND-REF21503 - WORK-REF21504 RWORK-REF21505 INFO-REF21506)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21527 ':INT32) (ANORM-REF21529 ':DOUBLE) + (RCOND-REF21530 ':DOUBLE) (INFO-REF21533 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21527 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21529 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21530 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21533 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21528 AP) + (WORK-REF21531 WORK) + (RWORK-REF21532 RWORK)) + (%%ZPPCON UPLO N-REF21527 AP-REF21528 ANORM-REF21529 RCOND-REF21530 + WORK-REF21531 RWORK-REF21532 INFO-REF21533)))) -(CFFI:DEFCFUN ("zppequ_" %%ZPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zppequ_" %%ZPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4832,17 +4847,17 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21508 ':INT32) (SCOND-REF21511 ':DOUBLE) - (AMAX-REF21512 ':DOUBLE) (INFO-REF21513 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21508 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21511 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21512 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21513 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21509 AP) (S-REF21510 S)) - (%%ZPPEQU UPLO N-REF21508 AP-REF21509 S-REF21510 SCOND-REF21511 - AMAX-REF21512 INFO-REF21513)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21535 ':INT32) (SCOND-REF21538 ':DOUBLE) + (AMAX-REF21539 ':DOUBLE) (INFO-REF21540 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21535 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21538 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21539 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21540 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21536 AP) (S-REF21537 S)) + (%%ZPPEQU UPLO N-REF21535 AP-REF21536 S-REF21537 SCOND-REF21538 + AMAX-REF21539 INFO-REF21540)))) -(CFFI:DEFCFUN ("zpprfs_" %%ZPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpprfs_" %%ZPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4902,25 +4917,25 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21515 ':INT32) (NRHS-REF21516 ':INT32) - (LDB-REF21520 ':INT32) (LDX-REF21522 ':INT32) - (INFO-REF21527 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21515 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21516 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21520 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21522 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21527 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21517 AP) (AFP-REF21518 AFP) - (B-REF21519 B) (X-REF21521 X) - (FERR-REF21523 FERR) - (BERR-REF21524 BERR) - (WORK-REF21525 WORK) - (RWORK-REF21526 RWORK)) - (%%ZPPRFS UPLO N-REF21515 NRHS-REF21516 AP-REF21517 AFP-REF21518 - B-REF21519 LDB-REF21520 X-REF21521 LDX-REF21522 FERR-REF21523 - BERR-REF21524 WORK-REF21525 RWORK-REF21526 INFO-REF21527)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21542 ':INT32) (NRHS-REF21543 ':INT32) + (LDB-REF21547 ':INT32) (LDX-REF21549 ':INT32) + (INFO-REF21554 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21542 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21543 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21547 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21549 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21554 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21544 AP) (AFP-REF21545 AFP) + (B-REF21546 B) (X-REF21548 X) + (FERR-REF21550 FERR) + (BERR-REF21551 BERR) + (WORK-REF21552 WORK) + (RWORK-REF21553 RWORK)) + (%%ZPPRFS UPLO N-REF21542 NRHS-REF21543 AP-REF21544 AFP-REF21545 + B-REF21546 LDB-REF21547 X-REF21548 LDX-REF21549 FERR-REF21550 + BERR-REF21551 WORK-REF21552 RWORK-REF21553 INFO-REF21554)))) -(CFFI:DEFCFUN ("zppsv_" %%ZPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zppsv_" %%ZPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -4947,17 +4962,17 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21529 ':INT32) (NRHS-REF21530 ':INT32) - (LDB-REF21533 ':INT32) (INFO-REF21534 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21529 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21530 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21533 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21534 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21531 AP) (B-REF21532 B)) - (%%ZPPSV UPLO N-REF21529 NRHS-REF21530 AP-REF21531 B-REF21532 - LDB-REF21533 INFO-REF21534)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21556 ':INT32) (NRHS-REF21557 ':INT32) + (LDB-REF21560 ':INT32) (INFO-REF21561 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21556 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21557 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21560 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21561 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21558 AP) (B-REF21559 B)) + (%%ZPPSV UPLO N-REF21556 NRHS-REF21557 AP-REF21558 B-REF21559 + LDB-REF21560 INFO-REF21561)))) -(CFFI:DEFCFUN ("zppsvx_" %%ZPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zppsvx_" %%ZPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -5027,27 +5042,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21537 ':INT32) (NRHS-REF21538 ':INT32) - (LDB-REF21544 ':INT32) (LDX-REF21546 ':INT32) - (RCOND-REF21547 ':DOUBLE) (INFO-REF21552 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21537 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21538 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21544 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21546 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21547 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21552 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21539 AP) (AFP-REF21540 AFP) - (S-REF21542 S) (B-REF21543 B) - (X-REF21545 X) (FERR-REF21548 FERR) - (BERR-REF21549 BERR) - (WORK-REF21550 WORK) - (RWORK-REF21551 RWORK)) - (%%ZPPSVX FACT UPLO N-REF21537 NRHS-REF21538 AP-REF21539 AFP-REF21540 - EQUED S-REF21542 B-REF21543 LDB-REF21544 X-REF21545 - LDX-REF21546 RCOND-REF21547 FERR-REF21548 BERR-REF21549 - WORK-REF21550 RWORK-REF21551 INFO-REF21552)))) - -(CFFI:DEFCFUN ("zpptrf_" %%ZPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21564 ':INT32) (NRHS-REF21565 ':INT32) + (LDB-REF21571 ':INT32) (LDX-REF21573 ':INT32) + (RCOND-REF21574 ':DOUBLE) (INFO-REF21579 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21564 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21565 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21571 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21573 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21574 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21579 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21566 AP) (AFP-REF21567 AFP) + (S-REF21569 S) (B-REF21570 B) + (X-REF21572 X) (FERR-REF21575 FERR) + (BERR-REF21576 BERR) + (WORK-REF21577 WORK) + (RWORK-REF21578 RWORK)) + (%%ZPPSVX FACT UPLO N-REF21564 NRHS-REF21565 AP-REF21566 AFP-REF21567 + EQUED S-REF21569 B-REF21570 LDB-REF21571 X-REF21572 LDX-REF21573 + RCOND-REF21574 FERR-REF21575 BERR-REF21576 WORK-REF21577 RWORK-REF21578 + INFO-REF21579)))) + +(CFFI:DEFCFUN ("zpptrf_" %%ZPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5064,13 +5079,13 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21554 ':INT32) (INFO-REF21556 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21554 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21556 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21555 AP)) - (%%ZPPTRF UPLO N-REF21554 AP-REF21555 INFO-REF21556)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21581 ':INT32) (INFO-REF21583 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21581 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21583 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21582 AP)) + (%%ZPPTRF UPLO N-REF21581 AP-REF21582 INFO-REF21583)))) -(CFFI:DEFCFUN ("zpptri_" %%ZPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpptri_" %%ZPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5087,13 +5102,13 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21558 ':INT32) (INFO-REF21560 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21558 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21560 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21559 AP)) - (%%ZPPTRI UPLO N-REF21558 AP-REF21559 INFO-REF21560)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21585 ':INT32) (INFO-REF21587 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21585 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21587 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21586 AP)) + (%%ZPPTRI UPLO N-REF21585 AP-REF21586 INFO-REF21587)))) -(CFFI:DEFCFUN ("zpptrs_" %%ZPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpptrs_" %%ZPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5120,17 +5135,17 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21562 ':INT32) (NRHS-REF21563 ':INT32) - (LDB-REF21566 ':INT32) (INFO-REF21567 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21562 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21563 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21566 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21567 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21564 AP) (B-REF21565 B)) - (%%ZPPTRS UPLO N-REF21562 NRHS-REF21563 AP-REF21564 B-REF21565 - LDB-REF21566 INFO-REF21567)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21589 ':INT32) (NRHS-REF21590 ':INT32) + (LDB-REF21593 ':INT32) (INFO-REF21594 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21589 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21590 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21593 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21594 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21591 AP) (B-REF21592 B)) + (%%ZPPTRS UPLO N-REF21589 NRHS-REF21590 AP-REF21591 B-REF21592 + LDB-REF21593 INFO-REF21594)))) -(CFFI:DEFCFUN ("zpstf2_" %%ZPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpstf2_" %%ZPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5162,20 +5177,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21569 ':INT32) (LDA-REF21571 ':INT32) - (RANK-REF21573 ':INT32) (TOL-REF21574 ':DOUBLE) - (INFO-REF21576 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21569 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21571 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF21573 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF21574 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21576 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21570 A) (PIV-REF21572 PIV) - (WORK-REF21575 WORK)) - (%%ZPSTF2 UPLO N-REF21569 A-REF21570 LDA-REF21571 PIV-REF21572 - RANK-REF21573 TOL-REF21574 WORK-REF21575 INFO-REF21576)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21596 ':INT32) (LDA-REF21598 ':INT32) + (RANK-REF21600 ':INT32) (TOL-REF21601 ':DOUBLE) + (INFO-REF21603 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21596 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21598 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF21600 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF21601 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21603 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21597 A) (PIV-REF21599 PIV) + (WORK-REF21602 WORK)) + (%%ZPSTF2 UPLO N-REF21596 A-REF21597 LDA-REF21598 PIV-REF21599 + RANK-REF21600 TOL-REF21601 WORK-REF21602 INFO-REF21603)))) -(CFFI:DEFCFUN ("zpstrf_" %%ZPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpstrf_" %%ZPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5207,20 +5222,20 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21578 ':INT32) (LDA-REF21580 ':INT32) - (RANK-REF21582 ':INT32) (TOL-REF21583 ':DOUBLE) - (INFO-REF21585 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21578 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21580 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF21582 :INT32) RANK) - (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF21583 :DOUBLE) TOL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21585 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21579 A) (PIV-REF21581 PIV) - (WORK-REF21584 WORK)) - (%%ZPSTRF UPLO N-REF21578 A-REF21579 LDA-REF21580 PIV-REF21581 - RANK-REF21582 TOL-REF21583 WORK-REF21584 INFO-REF21585)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21605 ':INT32) (LDA-REF21607 ':INT32) + (RANK-REF21609 ':INT32) (TOL-REF21610 ':DOUBLE) + (INFO-REF21612 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21605 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21607 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF21609 :INT32) RANK) + (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF21610 :DOUBLE) TOL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21612 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21606 A) (PIV-REF21608 PIV) + (WORK-REF21611 WORK)) + (%%ZPSTRF UPLO N-REF21605 A-REF21606 LDA-REF21607 PIV-REF21608 + RANK-REF21609 TOL-REF21610 WORK-REF21611 INFO-REF21612)))) -(CFFI:DEFCFUN ("zptcon_" %%ZPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zptcon_" %%ZPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -5246,18 +5261,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21586 ':INT32) (ANORM-REF21589 ':DOUBLE) - (RCOND-REF21590 ':DOUBLE) (INFO-REF21592 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21586 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21589 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21590 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21592 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21587 D) (E-REF21588 E) - (RWORK-REF21591 RWORK)) - (%%ZPTCON N-REF21586 D-REF21587 E-REF21588 ANORM-REF21589 RCOND-REF21590 - RWORK-REF21591 INFO-REF21592)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21613 ':INT32) (ANORM-REF21616 ':DOUBLE) + (RCOND-REF21617 ':DOUBLE) (INFO-REF21619 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21613 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21616 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21617 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21619 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21614 D) (E-REF21615 E) + (RWORK-REF21618 RWORK)) + (%%ZPTCON N-REF21613 D-REF21614 E-REF21615 ANORM-REF21616 RCOND-REF21617 + RWORK-REF21618 INFO-REF21619)))) -(CFFI:DEFCFUN ("zpteqr_" %%ZPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpteqr_" %%ZPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -5286,17 +5301,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21594 ':INT32) (LDZ-REF21598 ':INT32) - (INFO-REF21600 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21594 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21598 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21600 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21595 D) (E-REF21596 E) - (Z-REF21597 Z) (WORK-REF21599 WORK)) - (%%ZPTEQR COMPZ N-REF21594 D-REF21595 E-REF21596 Z-REF21597 LDZ-REF21598 - WORK-REF21599 INFO-REF21600)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21621 ':INT32) (LDZ-REF21625 ':INT32) + (INFO-REF21627 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21621 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21625 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21627 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21622 D) (E-REF21623 E) + (Z-REF21624 Z) (WORK-REF21626 WORK)) + (%%ZPTEQR COMPZ N-REF21621 D-REF21622 E-REF21623 Z-REF21624 LDZ-REF21625 + WORK-REF21626 INFO-REF21627)))) -(CFFI:DEFCFUN ("zptrfs_" %%ZPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zptrfs_" %%ZPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5363,27 +5378,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21602 ':INT32) (NRHS-REF21603 ':INT32) - (LDB-REF21609 ':INT32) (LDX-REF21611 ':INT32) - (INFO-REF21616 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21602 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21603 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21609 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21611 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21616 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21604 D) (E-REF21605 E) - (DF-REF21606 DF) (EF-REF21607 EF) - (B-REF21608 B) (X-REF21610 X) - (FERR-REF21612 FERR) - (BERR-REF21613 BERR) - (WORK-REF21614 WORK) - (RWORK-REF21615 RWORK)) - (%%ZPTRFS UPLO N-REF21602 NRHS-REF21603 D-REF21604 E-REF21605 DF-REF21606 - EF-REF21607 B-REF21608 LDB-REF21609 X-REF21610 LDX-REF21611 - FERR-REF21612 BERR-REF21613 WORK-REF21614 RWORK-REF21615 - INFO-REF21616)))) - -(CFFI:DEFCFUN ("zptsv_" %%ZPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21629 ':INT32) (NRHS-REF21630 ':INT32) + (LDB-REF21636 ':INT32) (LDX-REF21638 ':INT32) + (INFO-REF21643 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21629 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21630 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21636 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21638 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21643 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21631 D) (E-REF21632 E) + (DF-REF21633 DF) (EF-REF21634 EF) + (B-REF21635 B) (X-REF21637 X) + (FERR-REF21639 FERR) + (BERR-REF21640 BERR) + (WORK-REF21641 WORK) + (RWORK-REF21642 RWORK)) + (%%ZPTRFS UPLO N-REF21629 NRHS-REF21630 D-REF21631 E-REF21632 DF-REF21633 + EF-REF21634 B-REF21635 LDB-REF21636 X-REF21637 LDX-REF21638 + FERR-REF21639 BERR-REF21640 WORK-REF21641 RWORK-REF21642 + INFO-REF21643)))) + +(CFFI:DEFCFUN ("zptsv_" %%ZPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (NRHS :POINTER) @@ -5411,18 +5426,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21617 ':INT32) (NRHS-REF21618 ':INT32) - (LDB-REF21622 ':INT32) (INFO-REF21623 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21617 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21618 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21622 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21623 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21619 D) (E-REF21620 E) - (B-REF21621 B)) - (%%ZPTSV N-REF21617 NRHS-REF21618 D-REF21619 E-REF21620 B-REF21621 - LDB-REF21622 INFO-REF21623)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21644 ':INT32) (NRHS-REF21645 ':INT32) + (LDB-REF21649 ':INT32) (INFO-REF21650 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21644 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21645 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21649 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21650 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21646 D) (E-REF21647 E) + (B-REF21648 B)) + (%%ZPTSV N-REF21644 NRHS-REF21645 D-REF21646 E-REF21647 B-REF21648 + LDB-REF21649 INFO-REF21650)))) -(CFFI:DEFCFUN ("zptsvx_" %%ZPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zptsvx_" %%ZPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (N :POINTER) @@ -5491,28 +5506,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21625 ':INT32) (NRHS-REF21626 ':INT32) - (LDB-REF21632 ':INT32) (LDX-REF21634 ':INT32) - (RCOND-REF21635 ':DOUBLE) (INFO-REF21640 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21625 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21626 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21632 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21634 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21635 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21640 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21627 D) (E-REF21628 E) - (DF-REF21629 DF) (EF-REF21630 EF) - (B-REF21631 B) (X-REF21633 X) - (FERR-REF21636 FERR) - (BERR-REF21637 BERR) - (WORK-REF21638 WORK) - (RWORK-REF21639 RWORK)) - (%%ZPTSVX FACT N-REF21625 NRHS-REF21626 D-REF21627 E-REF21628 DF-REF21629 - EF-REF21630 B-REF21631 LDB-REF21632 X-REF21633 LDX-REF21634 - RCOND-REF21635 FERR-REF21636 BERR-REF21637 WORK-REF21638 - RWORK-REF21639 INFO-REF21640)))) - -(CFFI:DEFCFUN ("zpttrf_" %%ZPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21652 ':INT32) (NRHS-REF21653 ':INT32) + (LDB-REF21659 ':INT32) (LDX-REF21661 ':INT32) + (RCOND-REF21662 ':DOUBLE) (INFO-REF21667 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21652 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21653 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21659 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21661 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21662 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21667 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21654 D) (E-REF21655 E) + (DF-REF21656 DF) (EF-REF21657 EF) + (B-REF21658 B) (X-REF21660 X) + (FERR-REF21663 FERR) + (BERR-REF21664 BERR) + (WORK-REF21665 WORK) + (RWORK-REF21666 RWORK)) + (%%ZPTSVX FACT N-REF21652 NRHS-REF21653 D-REF21654 E-REF21655 DF-REF21656 + EF-REF21657 B-REF21658 LDB-REF21659 X-REF21660 LDX-REF21661 + RCOND-REF21662 FERR-REF21663 BERR-REF21664 WORK-REF21665 RWORK-REF21666 + INFO-REF21667)))) + +(CFFI:DEFCFUN ("zpttrf_" %%ZPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -5530,13 +5545,13 @@ (COMMON-LISP:*)) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21641 ':INT32) (INFO-REF21644 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21641 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21644 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21642 D) (E-REF21643 E)) - (%%ZPTTRF N-REF21641 D-REF21642 E-REF21643 INFO-REF21644)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21668 ':INT32) (INFO-REF21671 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21668 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21671 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21669 D) (E-REF21670 E)) + (%%ZPTTRF N-REF21668 D-REF21669 E-REF21670 INFO-REF21671)))) -(CFFI:DEFCFUN ("zpttrs_" %%ZPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zpttrs_" %%ZPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5566,18 +5581,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21646 ':INT32) (NRHS-REF21647 ':INT32) - (LDB-REF21651 ':INT32) (INFO-REF21652 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21646 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21647 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21651 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21652 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21648 D) (E-REF21649 E) - (B-REF21650 B)) - (%%ZPTTRS UPLO N-REF21646 NRHS-REF21647 D-REF21648 E-REF21649 B-REF21650 - LDB-REF21651 INFO-REF21652)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21673 ':INT32) (NRHS-REF21674 ':INT32) + (LDB-REF21678 ':INT32) (INFO-REF21679 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21673 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21674 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21678 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21679 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21675 D) (E-REF21676 E) + (B-REF21677 B)) + (%%ZPTTRS UPLO N-REF21673 NRHS-REF21674 D-REF21675 E-REF21676 B-REF21677 + LDB-REF21678 INFO-REF21679)))) -(CFFI:DEFCFUN ("zptts2_" %%ZPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zptts2_" %%ZPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IUPLO :POINTER) (N :POINTER) @@ -5605,18 +5620,18 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF21653 ':INT32) (N-REF21654 ':INT32) - (NRHS-REF21655 ':INT32) (LDB-REF21659 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF21653 :INT32) IUPLO) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21654 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21655 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21659 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21656 D) (E-REF21657 E) - (B-REF21658 B)) - (%%ZPTTS2 IUPLO-REF21653 N-REF21654 NRHS-REF21655 D-REF21656 E-REF21657 - B-REF21658 LDB-REF21659)))) + (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF21680 ':INT32) (N-REF21681 ':INT32) + (NRHS-REF21682 ':INT32) (LDB-REF21686 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF21680 :INT32) IUPLO) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21681 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21682 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21686 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21683 D) (E-REF21684 E) + (B-REF21685 B)) + (%%ZPTTS2 IUPLO-REF21680 N-REF21681 NRHS-REF21682 D-REF21683 E-REF21684 + B-REF21685 LDB-REF21686)))) -(CFFI:DEFCFUN ("zrot_" %%ZROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zrot_" %%ZROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (CX :POINTER) @@ -5644,23 +5659,23 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C) (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21660 ':INT32) (INCX-REF21662 ':INT32) - (INCY-REF21664 ':INT32) (C-REF21665 ':DOUBLE) - (S-REF21666 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21687 ':INT32) (INCX-REF21689 ':INT32) + (INCY-REF21691 ':INT32) (C-REF21692 ':DOUBLE) + (S-REF21693 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21660 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21662 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21664 :INT32) INCY) - (COMMON-LISP:SETF (CFFI:MEM-REF C-REF21665 :DOUBLE) C) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21687 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21689 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21691 :INT32) INCY) + (COMMON-LISP:SETF (CFFI:MEM-REF C-REF21692 :DOUBLE) C) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - S-REF21666 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) + S-REF21693 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S))) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF21661 CX) (CY-REF21663 CY)) - (%%ZROT N-REF21660 CX-REF21661 INCX-REF21662 CY-REF21663 INCY-REF21664 - C-REF21665 S-REF21666)))) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF21688 CX) (CY-REF21690 CY)) + (%%ZROT N-REF21687 CX-REF21688 INCX-REF21689 CY-REF21690 INCY-REF21691 + C-REF21692 S-REF21693)))) -(CFFI:DEFCFUN ("zspcon_" %%ZSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zspcon_" %%ZSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5692,19 +5707,19 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21668 ':INT32) (ANORM-REF21671 ':DOUBLE) - (RCOND-REF21672 ':DOUBLE) (INFO-REF21674 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21668 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21671 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21672 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21674 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21669 AP) - (IPIV-REF21670 IPIV) - (WORK-REF21673 WORK)) - (%%ZSPCON UPLO N-REF21668 AP-REF21669 IPIV-REF21670 ANORM-REF21671 - RCOND-REF21672 WORK-REF21673 INFO-REF21674)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21695 ':INT32) (ANORM-REF21698 ':DOUBLE) + (RCOND-REF21699 ':DOUBLE) (INFO-REF21701 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21695 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21698 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21699 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21701 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21696 AP) + (IPIV-REF21697 IPIV) + (WORK-REF21700 WORK)) + (%%ZSPCON UPLO N-REF21695 AP-REF21696 IPIV-REF21697 ANORM-REF21698 + RCOND-REF21699 WORK-REF21700 INFO-REF21701)))) -(CFFI:DEFCFUN ("zspmv_" %%ZSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zspmv_" %%ZSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5741,32 +5756,32 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21676 ':INT32) - (ALPHA-REF21677 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21703 ':INT32) + (ALPHA-REF21704 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF21680 ':INT32) - (BETA-REF21681 + (INCX-REF21707 ':INT32) + (BETA-REF21708 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCY-REF21683 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21676 :INT32) N) + (INCY-REF21710 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21703 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF21677 + ALPHA-REF21704 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21680 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21707 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF21681 + BETA-REF21708 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21683 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21678 AP) (X-REF21679 X) - (Y-REF21682 Y)) - (%%ZSPMV UPLO N-REF21676 ALPHA-REF21677 AP-REF21678 X-REF21679 - INCX-REF21680 BETA-REF21681 Y-REF21682 INCY-REF21683)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21710 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21705 AP) (X-REF21706 X) + (Y-REF21709 Y)) + (%%ZSPMV UPLO N-REF21703 ALPHA-REF21704 AP-REF21705 X-REF21706 + INCX-REF21707 BETA-REF21708 Y-REF21709 INCY-REF21710)))) -(CFFI:DEFCFUN ("zspr_" %%ZSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zspr_" %%ZSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5792,22 +5807,22 @@ (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*)) AP)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21685 ':INT32) - (ALPHA-REF21686 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21712 ':INT32) + (ALPHA-REF21713 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF21688 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21685 :INT32) N) + (INCX-REF21715 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21712 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF21686 + ALPHA-REF21713 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21688 :INT32) INCX) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21687 X) (AP-REF21689 AP)) - (%%ZSPR UPLO N-REF21685 ALPHA-REF21686 X-REF21687 INCX-REF21688 - AP-REF21689)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21715 :INT32) INCX) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21714 X) (AP-REF21716 AP)) + (%%ZSPR UPLO N-REF21712 ALPHA-REF21713 X-REF21714 INCX-REF21715 + AP-REF21716)))) -(CFFI:DEFCFUN ("zsprfs_" %%ZSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsprfs_" %%ZSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5873,26 +5888,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21691 ':INT32) (NRHS-REF21692 ':INT32) - (LDB-REF21697 ':INT32) (LDX-REF21699 ':INT32) - (INFO-REF21704 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21691 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21692 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21697 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21699 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21704 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21693 AP) (AFP-REF21694 AFP) - (IPIV-REF21695 IPIV) (B-REF21696 B) - (X-REF21698 X) (FERR-REF21700 FERR) - (BERR-REF21701 BERR) - (WORK-REF21702 WORK) - (RWORK-REF21703 RWORK)) - (%%ZSPRFS UPLO N-REF21691 NRHS-REF21692 AP-REF21693 AFP-REF21694 - IPIV-REF21695 B-REF21696 LDB-REF21697 X-REF21698 LDX-REF21699 - FERR-REF21700 BERR-REF21701 WORK-REF21702 RWORK-REF21703 - INFO-REF21704)))) - -(CFFI:DEFCFUN ("zspsv_" %%ZSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21718 ':INT32) (NRHS-REF21719 ':INT32) + (LDB-REF21724 ':INT32) (LDX-REF21726 ':INT32) + (INFO-REF21731 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21718 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21719 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21724 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21726 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21731 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21720 AP) (AFP-REF21721 AFP) + (IPIV-REF21722 IPIV) (B-REF21723 B) + (X-REF21725 X) (FERR-REF21727 FERR) + (BERR-REF21728 BERR) + (WORK-REF21729 WORK) + (RWORK-REF21730 RWORK)) + (%%ZSPRFS UPLO N-REF21718 NRHS-REF21719 AP-REF21720 AFP-REF21721 + IPIV-REF21722 B-REF21723 LDB-REF21724 X-REF21725 LDX-REF21726 + FERR-REF21727 BERR-REF21728 WORK-REF21729 RWORK-REF21730 + INFO-REF21731)))) + +(CFFI:DEFCFUN ("zspsv_" %%ZSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -5924,18 +5939,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21706 ':INT32) (NRHS-REF21707 ':INT32) - (LDB-REF21711 ':INT32) (INFO-REF21712 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21706 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21707 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21711 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21712 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21708 AP) - (IPIV-REF21709 IPIV) (B-REF21710 B)) - (%%ZSPSV UPLO N-REF21706 NRHS-REF21707 AP-REF21708 IPIV-REF21709 - B-REF21710 LDB-REF21711 INFO-REF21712)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21733 ':INT32) (NRHS-REF21734 ':INT32) + (LDB-REF21738 ':INT32) (INFO-REF21739 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21733 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21734 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21738 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21739 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21735 AP) + (IPIV-REF21736 IPIV) (B-REF21737 B)) + (%%ZSPSV UPLO N-REF21733 NRHS-REF21734 AP-REF21735 IPIV-REF21736 + B-REF21737 LDB-REF21738 INFO-REF21739)))) -(CFFI:DEFCFUN ("zspsvx_" %%ZSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zspsvx_" %%ZSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -6005,27 +6020,27 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21715 ':INT32) (NRHS-REF21716 ':INT32) - (LDB-REF21721 ':INT32) (LDX-REF21723 ':INT32) - (RCOND-REF21724 ':DOUBLE) (INFO-REF21729 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21715 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21716 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21721 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21723 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21724 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21729 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21717 AP) (AFP-REF21718 AFP) - (IPIV-REF21719 IPIV) (B-REF21720 B) - (X-REF21722 X) (FERR-REF21725 FERR) - (BERR-REF21726 BERR) - (WORK-REF21727 WORK) - (RWORK-REF21728 RWORK)) - (%%ZSPSVX FACT UPLO N-REF21715 NRHS-REF21716 AP-REF21717 AFP-REF21718 - IPIV-REF21719 B-REF21720 LDB-REF21721 X-REF21722 LDX-REF21723 - RCOND-REF21724 FERR-REF21725 BERR-REF21726 WORK-REF21727 - RWORK-REF21728 INFO-REF21729)))) - -(CFFI:DEFCFUN ("zsptrf_" %%ZSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21742 ':INT32) (NRHS-REF21743 ':INT32) + (LDB-REF21748 ':INT32) (LDX-REF21750 ':INT32) + (RCOND-REF21751 ':DOUBLE) (INFO-REF21756 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21742 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21743 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21748 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21750 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21751 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21756 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21744 AP) (AFP-REF21745 AFP) + (IPIV-REF21746 IPIV) (B-REF21747 B) + (X-REF21749 X) (FERR-REF21752 FERR) + (BERR-REF21753 BERR) + (WORK-REF21754 WORK) + (RWORK-REF21755 RWORK)) + (%%ZSPSVX FACT UPLO N-REF21742 NRHS-REF21743 AP-REF21744 AFP-REF21745 + IPIV-REF21746 B-REF21747 LDB-REF21748 X-REF21749 LDX-REF21750 + RCOND-REF21751 FERR-REF21752 BERR-REF21753 WORK-REF21754 RWORK-REF21755 + INFO-REF21756)))) + +(CFFI:DEFCFUN ("zsptrf_" %%ZSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6047,14 +6062,14 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21731 ':INT32) (INFO-REF21734 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21731 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21734 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21732 AP) - (IPIV-REF21733 IPIV)) - (%%ZSPTRF UPLO N-REF21731 AP-REF21732 IPIV-REF21733 INFO-REF21734)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21758 ':INT32) (INFO-REF21761 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21758 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21761 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21759 AP) + (IPIV-REF21760 IPIV)) + (%%ZSPTRF UPLO N-REF21758 AP-REF21759 IPIV-REF21760 INFO-REF21761)))) -(CFFI:DEFCFUN ("zsptri_" %%ZSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsptri_" %%ZSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6082,16 +6097,16 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21736 ':INT32) (INFO-REF21740 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21736 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21740 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21737 AP) - (IPIV-REF21738 IPIV) - (WORK-REF21739 WORK)) - (%%ZSPTRI UPLO N-REF21736 AP-REF21737 IPIV-REF21738 WORK-REF21739 - INFO-REF21740)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21763 ':INT32) (INFO-REF21767 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21763 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21767 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21764 AP) + (IPIV-REF21765 IPIV) + (WORK-REF21766 WORK)) + (%%ZSPTRI UPLO N-REF21763 AP-REF21764 IPIV-REF21765 WORK-REF21766 + INFO-REF21767)))) -(CFFI:DEFCFUN ("zsptrs_" %%ZSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsptrs_" %%ZSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6123,18 +6138,18 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21742 ':INT32) (NRHS-REF21743 ':INT32) - (LDB-REF21747 ':INT32) (INFO-REF21748 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21742 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21743 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21747 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21748 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21744 AP) - (IPIV-REF21745 IPIV) (B-REF21746 B)) - (%%ZSPTRS UPLO N-REF21742 NRHS-REF21743 AP-REF21744 IPIV-REF21745 - B-REF21746 LDB-REF21747 INFO-REF21748)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21769 ':INT32) (NRHS-REF21770 ':INT32) + (LDB-REF21774 ':INT32) (INFO-REF21775 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21769 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21770 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21774 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21775 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21771 AP) + (IPIV-REF21772 IPIV) (B-REF21773 B)) + (%%ZSPTRS UPLO N-REF21769 NRHS-REF21770 AP-REF21771 IPIV-REF21772 + B-REF21773 LDB-REF21774 INFO-REF21775)))) -(CFFI:DEFCFUN ("zstedc_" %%ZSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zstedc_" %%ZSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -6182,25 +6197,25 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21750 ':INT32) (LDZ-REF21754 ':INT32) - (LWORK-REF21756 ':INT32) - (LRWORK-REF21758 ':INT32) - (LIWORK-REF21760 ':INT32) (INFO-REF21761 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21750 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21754 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21756 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF21758 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21760 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21761 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21751 D) (E-REF21752 E) - (Z-REF21753 Z) (WORK-REF21755 WORK) - (RWORK-REF21757 RWORK) - (IWORK-REF21759 IWORK)) - (%%ZSTEDC COMPZ N-REF21750 D-REF21751 E-REF21752 Z-REF21753 LDZ-REF21754 - WORK-REF21755 LWORK-REF21756 RWORK-REF21757 LRWORK-REF21758 - IWORK-REF21759 LIWORK-REF21760 INFO-REF21761)))) - -(CFFI:DEFCFUN ("zstegr_" %%ZSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21777 ':INT32) (LDZ-REF21781 ':INT32) + (LWORK-REF21783 ':INT32) + (LRWORK-REF21785 ':INT32) + (LIWORK-REF21787 ':INT32) (INFO-REF21788 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21777 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21781 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21783 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF21785 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21787 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21788 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21778 D) (E-REF21779 E) + (Z-REF21780 Z) (WORK-REF21782 WORK) + (RWORK-REF21784 RWORK) + (IWORK-REF21786 IWORK)) + (%%ZSTEDC COMPZ N-REF21777 D-REF21778 E-REF21779 Z-REF21780 LDZ-REF21781 + WORK-REF21782 LWORK-REF21783 RWORK-REF21784 LRWORK-REF21785 + IWORK-REF21786 LIWORK-REF21787 INFO-REF21788)))) + +(CFFI:DEFCFUN ("zstegr_" %%ZSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -6262,35 +6277,34 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21764 ':INT32) (VL-REF21767 ':DOUBLE) - (VU-REF21768 ':DOUBLE) (IL-REF21769 ':INT32) - (IU-REF21770 ':INT32) (ABSTOL-REF21771 ':DOUBLE) - (M-REF21772 ':INT32) (LDZ-REF21775 ':INT32) - (LWORK-REF21778 ':INT32) - (LIWORK-REF21780 ':INT32) (INFO-REF21781 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21764 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21767 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21768 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21769 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21770 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF21771 :DOUBLE) ABSTOL) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21772 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21775 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21778 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21780 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21781 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21765 D) (E-REF21766 E) - (W-REF21773 W) (Z-REF21774 Z) - (ISUPPZ-REF21776 ISUPPZ) - (WORK-REF21777 WORK) - (IWORK-REF21779 IWORK)) - (%%ZSTEGR JOBZ RANGE N-REF21764 D-REF21765 E-REF21766 VL-REF21767 - VU-REF21768 IL-REF21769 IU-REF21770 ABSTOL-REF21771 M-REF21772 - W-REF21773 Z-REF21774 LDZ-REF21775 ISUPPZ-REF21776 - WORK-REF21777 LWORK-REF21778 IWORK-REF21779 LIWORK-REF21780 - INFO-REF21781)))) - -(CFFI:DEFCFUN ("zstein_" %%ZSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21791 ':INT32) (VL-REF21794 ':DOUBLE) + (VU-REF21795 ':DOUBLE) (IL-REF21796 ':INT32) + (IU-REF21797 ':INT32) (ABSTOL-REF21798 ':DOUBLE) + (M-REF21799 ':INT32) (LDZ-REF21802 ':INT32) + (LWORK-REF21805 ':INT32) + (LIWORK-REF21807 ':INT32) (INFO-REF21808 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21791 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21794 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21795 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21796 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21797 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF21798 :DOUBLE) ABSTOL) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21799 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21802 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21805 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21807 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21808 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21792 D) (E-REF21793 E) + (W-REF21800 W) (Z-REF21801 Z) + (ISUPPZ-REF21803 ISUPPZ) + (WORK-REF21804 WORK) + (IWORK-REF21806 IWORK)) + (%%ZSTEGR JOBZ RANGE N-REF21791 D-REF21792 E-REF21793 VL-REF21794 + VU-REF21795 IL-REF21796 IU-REF21797 ABSTOL-REF21798 M-REF21799 + W-REF21800 Z-REF21801 LDZ-REF21802 ISUPPZ-REF21803 WORK-REF21804 + LWORK-REF21805 IWORK-REF21806 LIWORK-REF21807 INFO-REF21808)))) + +(CFFI:DEFCFUN ("zstein_" %%ZSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (D :POINTER) @@ -6343,24 +6357,24 @@ (COMMON-LISP:*)) IFAIL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21782 ':INT32) (M-REF21785 ':INT32) - (LDZ-REF21790 ':INT32) (INFO-REF21794 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21782 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21785 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21790 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21794 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21783 D) (E-REF21784 E) - (W-REF21786 W) - (IBLOCK-REF21787 IBLOCK) - (ISPLIT-REF21788 ISPLIT) - (Z-REF21789 Z) (WORK-REF21791 WORK) - (IWORK-REF21792 IWORK) - (IFAIL-REF21793 IFAIL)) - (%%ZSTEIN N-REF21782 D-REF21783 E-REF21784 M-REF21785 W-REF21786 - IBLOCK-REF21787 ISPLIT-REF21788 Z-REF21789 LDZ-REF21790 - WORK-REF21791 IWORK-REF21792 IFAIL-REF21793 INFO-REF21794)))) - -(CFFI:DEFCFUN ("zstemr_" %%ZSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21809 ':INT32) (M-REF21812 ':INT32) + (LDZ-REF21817 ':INT32) (INFO-REF21821 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21809 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21812 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21817 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21821 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21810 D) (E-REF21811 E) + (W-REF21813 W) + (IBLOCK-REF21814 IBLOCK) + (ISPLIT-REF21815 ISPLIT) + (Z-REF21816 Z) (WORK-REF21818 WORK) + (IWORK-REF21819 IWORK) + (IFAIL-REF21820 IFAIL)) + (%%ZSTEIN N-REF21809 D-REF21810 E-REF21811 M-REF21812 W-REF21813 + IBLOCK-REF21814 ISPLIT-REF21815 Z-REF21816 LDZ-REF21817 WORK-REF21818 + IWORK-REF21819 IFAIL-REF21820 INFO-REF21821)))) + +(CFFI:DEFCFUN ("zstemr_" %%ZSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBZ :STRING) (RANGE :STRING) @@ -6424,37 +6438,36 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21797 ':INT32) (VL-REF21800 ':DOUBLE) - (VU-REF21801 ':DOUBLE) (IL-REF21802 ':INT32) - (IU-REF21803 ':INT32) (M-REF21804 ':INT32) - (LDZ-REF21807 ':INT32) (NZC-REF21808 ':INT32) - (TRYRAC-REF21810 ':INT32) - (LWORK-REF21812 ':INT32) - (LIWORK-REF21814 ':INT32) (INFO-REF21815 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21797 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21800 :DOUBLE) VL) - (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21801 :DOUBLE) VU) - (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21802 :INT32) IL) - (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21803 :INT32) IU) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21804 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21807 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF21808 :INT32) NZC) - (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF21810 :INT32) TRYRAC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21812 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21814 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21815 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21798 D) (E-REF21799 E) - (W-REF21805 W) (Z-REF21806 Z) - (ISUPPZ-REF21809 ISUPPZ) - (WORK-REF21811 WORK) - (IWORK-REF21813 IWORK)) - (%%ZSTEMR JOBZ RANGE N-REF21797 D-REF21798 E-REF21799 VL-REF21800 - VU-REF21801 IL-REF21802 IU-REF21803 M-REF21804 W-REF21805 - Z-REF21806 LDZ-REF21807 NZC-REF21808 ISUPPZ-REF21809 - TRYRAC-REF21810 WORK-REF21811 LWORK-REF21812 IWORK-REF21813 - LIWORK-REF21814 INFO-REF21815)))) - -(CFFI:DEFCFUN ("zsteqr_" %%ZSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21824 ':INT32) (VL-REF21827 ':DOUBLE) + (VU-REF21828 ':DOUBLE) (IL-REF21829 ':INT32) + (IU-REF21830 ':INT32) (M-REF21831 ':INT32) + (LDZ-REF21834 ':INT32) (NZC-REF21835 ':INT32) + (TRYRAC-REF21837 ':INT32) + (LWORK-REF21839 ':INT32) + (LIWORK-REF21841 ':INT32) (INFO-REF21842 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21824 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21827 :DOUBLE) VL) + (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21828 :DOUBLE) VU) + (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21829 :INT32) IL) + (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21830 :INT32) IU) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21831 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21834 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF21835 :INT32) NZC) + (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF21837 :INT32) TRYRAC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21839 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21841 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21842 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21825 D) (E-REF21826 E) + (W-REF21832 W) (Z-REF21833 Z) + (ISUPPZ-REF21836 ISUPPZ) + (WORK-REF21838 WORK) + (IWORK-REF21840 IWORK)) + (%%ZSTEMR JOBZ RANGE N-REF21824 D-REF21825 E-REF21826 VL-REF21827 + VU-REF21828 IL-REF21829 IU-REF21830 M-REF21831 W-REF21832 Z-REF21833 + LDZ-REF21834 NZC-REF21835 ISUPPZ-REF21836 TRYRAC-REF21837 WORK-REF21838 + LWORK-REF21839 IWORK-REF21840 LIWORK-REF21841 INFO-REF21842)))) + +(CFFI:DEFCFUN ("zsteqr_" %%ZSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPZ :STRING) (N :POINTER) @@ -6483,17 +6496,17 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21817 ':INT32) (LDZ-REF21821 ':INT32) - (INFO-REF21823 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21817 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21821 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21823 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21818 D) (E-REF21819 E) - (Z-REF21820 Z) (WORK-REF21822 WORK)) - (%%ZSTEQR COMPZ N-REF21817 D-REF21818 E-REF21819 Z-REF21820 LDZ-REF21821 - WORK-REF21822 INFO-REF21823)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21844 ':INT32) (LDZ-REF21848 ':INT32) + (INFO-REF21850 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21844 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21848 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21850 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21845 D) (E-REF21846 E) + (Z-REF21847 Z) (WORK-REF21849 WORK)) + (%%ZSTEQR COMPZ N-REF21844 D-REF21845 E-REF21846 Z-REF21847 LDZ-REF21848 + WORK-REF21849 INFO-REF21850)))) -(CFFI:DEFCFUN ("zsycon_" %%ZSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsycon_" %%ZSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6527,21 +6540,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21825 ':INT32) (LDA-REF21827 ':INT32) - (ANORM-REF21829 ':DOUBLE) - (RCOND-REF21830 ':DOUBLE) (INFO-REF21832 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21825 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21827 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21829 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21830 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21832 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21826 A) (IPIV-REF21828 IPIV) - (WORK-REF21831 WORK)) - (%%ZSYCON UPLO N-REF21825 A-REF21826 LDA-REF21827 IPIV-REF21828 - ANORM-REF21829 RCOND-REF21830 WORK-REF21831 INFO-REF21832)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21852 ':INT32) (LDA-REF21854 ':INT32) + (ANORM-REF21856 ':DOUBLE) + (RCOND-REF21857 ':DOUBLE) (INFO-REF21859 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21852 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21854 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21856 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21857 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21859 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21853 A) (IPIV-REF21855 IPIV) + (WORK-REF21858 WORK)) + (%%ZSYCON UPLO N-REF21852 A-REF21853 LDA-REF21854 IPIV-REF21855 + ANORM-REF21856 RCOND-REF21857 WORK-REF21858 INFO-REF21859)))) (CFFI:DEFCFUN ("zsycon_3_" %%ZSYCON_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6581,23 +6594,23 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21834 ':INT32) (LDA-REF21836 ':INT32) - (ANORM-REF21839 ':DOUBLE) - (RCOND-REF21840 ':DOUBLE) (INFO-REF21842 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21834 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21836 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21839 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21840 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21842 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21835 A) (E-REF21837 E) - (IPIV-REF21838 IPIV) - (WORK-REF21841 WORK)) - (%%ZSYCON_3 UPLO N-REF21834 A-REF21835 LDA-REF21836 E-REF21837 - IPIV-REF21838 ANORM-REF21839 RCOND-REF21840 WORK-REF21841 - INFO-REF21842)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21861 ':INT32) (LDA-REF21863 ':INT32) + (ANORM-REF21866 ':DOUBLE) + (RCOND-REF21867 ':DOUBLE) (INFO-REF21869 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21861 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21863 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21866 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21867 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21869 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21862 A) (E-REF21864 E) + (IPIV-REF21865 IPIV) + (WORK-REF21868 WORK)) + (%%ZSYCON_3 UPLO N-REF21861 A-REF21862 LDA-REF21863 E-REF21864 + IPIV-REF21865 ANORM-REF21866 RCOND-REF21867 WORK-REF21868 + INFO-REF21869)))) (CFFI:DEFCFUN ("zsycon_rook_" %%ZSYCON_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6631,21 +6644,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21844 ':INT32) (LDA-REF21846 ':INT32) - (ANORM-REF21848 ':DOUBLE) - (RCOND-REF21849 ':DOUBLE) (INFO-REF21851 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21844 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21846 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21848 :DOUBLE) ANORM) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21849 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21851 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21845 A) (IPIV-REF21847 IPIV) - (WORK-REF21850 WORK)) - (%%ZSYCON_ROOK UPLO N-REF21844 A-REF21845 LDA-REF21846 IPIV-REF21847 - ANORM-REF21848 RCOND-REF21849 WORK-REF21850 - INFO-REF21851)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21871 ':INT32) (LDA-REF21873 ':INT32) + (ANORM-REF21875 ':DOUBLE) + (RCOND-REF21876 ':DOUBLE) (INFO-REF21878 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21871 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21873 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21875 :DOUBLE) ANORM) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21876 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21878 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21872 A) (IPIV-REF21874 IPIV) + (WORK-REF21877 WORK)) + (%%ZSYCON_ROOK UPLO N-REF21871 A-REF21872 LDA-REF21873 IPIV-REF21874 + ANORM-REF21875 RCOND-REF21876 WORK-REF21877 INFO-REF21878)))) -(CFFI:DEFCFUN ("zsyconv_" %%ZSYCONV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsyconv_" %%ZSYCONV :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -6677,18 +6690,18 @@ (COMMON-LISP:*)) E) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21854 ':INT32) (LDA-REF21856 ':INT32) - (INFO-REF21859 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21854 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21856 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21859 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21855 A) (IPIV-REF21857 IPIV) - (E-REF21858 E)) - (%%ZSYCONV UPLO WAY N-REF21854 A-REF21855 LDA-REF21856 IPIV-REF21857 - E-REF21858 INFO-REF21859)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21881 ':INT32) (LDA-REF21883 ':INT32) + (INFO-REF21886 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21881 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21883 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21886 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21882 A) (IPIV-REF21884 IPIV) + (E-REF21885 E)) + (%%ZSYCONV UPLO WAY N-REF21881 A-REF21882 LDA-REF21883 IPIV-REF21884 + E-REF21885 INFO-REF21886)))) (CFFI:DEFCFUN ("zsyconvf_" %%ZSYCONVF :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -6720,18 +6733,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21862 ':INT32) (LDA-REF21864 ':INT32) - (INFO-REF21867 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21862 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21864 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21867 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21863 A) (E-REF21865 E) - (IPIV-REF21866 IPIV)) - (%%ZSYCONVF UPLO WAY N-REF21862 A-REF21863 LDA-REF21864 E-REF21865 - IPIV-REF21866 INFO-REF21867)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21889 ':INT32) (LDA-REF21891 ':INT32) + (INFO-REF21894 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21889 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21891 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21894 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21890 A) (E-REF21892 E) + (IPIV-REF21893 IPIV)) + (%%ZSYCONVF UPLO WAY N-REF21889 A-REF21890 LDA-REF21891 E-REF21892 + IPIV-REF21893 INFO-REF21894)))) (CFFI:DEFCFUN ("zsyconvf_rook_" %%ZSYCONVF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (WAY :STRING) @@ -6763,17 +6776,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21870 ':INT32) (LDA-REF21872 ':INT32) - (INFO-REF21875 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21870 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21872 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21875 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21871 A) (E-REF21873 E) - (IPIV-REF21874 IPIV)) - (%%ZSYCONVF_ROOK UPLO WAY N-REF21870 A-REF21871 LDA-REF21872 E-REF21873 - IPIV-REF21874 INFO-REF21875)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21897 ':INT32) (LDA-REF21899 ':INT32) + (INFO-REF21902 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21897 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21899 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21902 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21898 A) (E-REF21900 E) + (IPIV-REF21901 IPIV)) + (%%ZSYCONVF_ROOK UPLO WAY N-REF21897 A-REF21898 LDA-REF21899 E-REF21900 + IPIV-REF21901 INFO-REF21902)))) -(CFFI:DEFCFUN ("zsyequb_" %%ZSYEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsyequb_" %%ZSYEQUB :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6805,20 +6819,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21877 ':INT32) (LDA-REF21879 ':INT32) - (SCOND-REF21881 ':DOUBLE) - (AMAX-REF21882 ':DOUBLE) (INFO-REF21884 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21877 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21879 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21881 :DOUBLE) SCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21882 :DOUBLE) AMAX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21884 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21878 A) (S-REF21880 S) - (WORK-REF21883 WORK)) - (%%ZSYEQUB UPLO N-REF21877 A-REF21878 LDA-REF21879 S-REF21880 - SCOND-REF21881 AMAX-REF21882 WORK-REF21883 INFO-REF21884)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21904 ':INT32) (LDA-REF21906 ':INT32) + (SCOND-REF21908 ':DOUBLE) + (AMAX-REF21909 ':DOUBLE) (INFO-REF21911 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21904 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21906 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21908 :DOUBLE) SCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21909 :DOUBLE) AMAX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21911 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21905 A) (S-REF21907 S) + (WORK-REF21910 WORK)) + (%%ZSYEQUB UPLO N-REF21904 A-REF21905 LDA-REF21906 S-REF21907 + SCOND-REF21908 AMAX-REF21909 WORK-REF21910 INFO-REF21911)))) -(CFFI:DEFCFUN ("zsymv_" %%ZSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsymv_" %%ZSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6857,34 +6871,33 @@ (COMMON-LISP:*)) Y) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21886 ':INT32) - (ALPHA-REF21887 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21913 ':INT32) + (ALPHA-REF21914 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDA-REF21889 ':INT32) (INCX-REF21891 ':INT32) - (BETA-REF21892 + (LDA-REF21916 ':INT32) (INCX-REF21918 ':INT32) + (BETA-REF21919 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCY-REF21894 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21886 :INT32) N) + (INCY-REF21921 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21913 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF21887 + ALPHA-REF21914 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21889 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21891 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21916 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21918 :INT32) INCX) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - BETA-REF21892 + BETA-REF21919 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21894 :INT32) INCY) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21888 A) (X-REF21890 X) - (Y-REF21893 Y)) - (%%ZSYMV UPLO N-REF21886 ALPHA-REF21887 A-REF21888 LDA-REF21889 - X-REF21890 INCX-REF21891 BETA-REF21892 Y-REF21893 - INCY-REF21894)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21921 :INT32) INCY) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21915 A) (X-REF21917 X) + (Y-REF21920 Y)) + (%%ZSYMV UPLO N-REF21913 ALPHA-REF21914 A-REF21915 LDA-REF21916 + X-REF21917 INCX-REF21918 BETA-REF21919 Y-REF21920 INCY-REF21921)))) -(CFFI:DEFCFUN ("zsyr_" %%ZSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsyr_" %%ZSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6912,23 +6925,23 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21896 ':INT32) - (ALPHA-REF21897 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21923 ':INT32) + (ALPHA-REF21924 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (INCX-REF21899 ':INT32) (LDA-REF21901 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21896 :INT32) N) + (INCX-REF21926 ':INT32) (LDA-REF21928 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21923 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF21897 + ALPHA-REF21924 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21899 :INT32) INCX) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21901 :INT32) LDA) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21898 X) (A-REF21900 A)) - (%%ZSYR UPLO N-REF21896 ALPHA-REF21897 X-REF21898 INCX-REF21899 - A-REF21900 LDA-REF21901)))) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21926 :INT32) INCX) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21928 :INT32) LDA) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21925 X) (A-REF21927 A)) + (%%ZSYR UPLO N-REF21923 ALPHA-REF21924 X-REF21925 INCX-REF21926 + A-REF21927 LDA-REF21928)))) -(CFFI:DEFCFUN ("zsyrfs_" %%ZSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsyrfs_" %%ZSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -6998,29 +7011,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21903 ':INT32) (NRHS-REF21904 ':INT32) - (LDA-REF21906 ':INT32) (LDAF-REF21908 ':INT32) - (LDB-REF21911 ':INT32) (LDX-REF21913 ':INT32) - (INFO-REF21918 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21903 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21904 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21906 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21908 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21911 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21913 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21918 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21905 A) (AF-REF21907 AF) - (IPIV-REF21909 IPIV) (B-REF21910 B) - (X-REF21912 X) (FERR-REF21914 FERR) - (BERR-REF21915 BERR) - (WORK-REF21916 WORK) - (RWORK-REF21917 RWORK)) - (%%ZSYRFS UPLO N-REF21903 NRHS-REF21904 A-REF21905 LDA-REF21906 - AF-REF21907 LDAF-REF21908 IPIV-REF21909 B-REF21910 LDB-REF21911 - X-REF21912 LDX-REF21913 FERR-REF21914 BERR-REF21915 - WORK-REF21916 RWORK-REF21917 INFO-REF21918)))) - -(CFFI:DEFCFUN ("zsyrfsx_" %%ZSYRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21930 ':INT32) (NRHS-REF21931 ':INT32) + (LDA-REF21933 ':INT32) (LDAF-REF21935 ':INT32) + (LDB-REF21938 ':INT32) (LDX-REF21940 ':INT32) + (INFO-REF21945 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21930 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21931 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21933 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21935 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21938 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21940 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21945 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21932 A) (AF-REF21934 AF) + (IPIV-REF21936 IPIV) (B-REF21937 B) + (X-REF21939 X) (FERR-REF21941 FERR) + (BERR-REF21942 BERR) + (WORK-REF21943 WORK) + (RWORK-REF21944 RWORK)) + (%%ZSYRFS UPLO N-REF21930 NRHS-REF21931 A-REF21932 LDA-REF21933 + AF-REF21934 LDAF-REF21935 IPIV-REF21936 B-REF21937 LDB-REF21938 + X-REF21939 LDX-REF21940 FERR-REF21941 BERR-REF21942 WORK-REF21943 + RWORK-REF21944 INFO-REF21945)))) + +(CFFI:DEFCFUN ("zsyrfsx_" %%ZSYRFSX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (EQUED :STRING) @@ -7111,42 +7125,42 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21921 ':INT32) (NRHS-REF21922 ':INT32) - (LDA-REF21924 ':INT32) (LDAF-REF21926 ':INT32) - (LDB-REF21930 ':INT32) (LDX-REF21932 ':INT32) - (RCOND-REF21933 ':DOUBLE) - (N_ERR_BNDS-REF21935 ':INT32) - (NPARAMS-REF21938 ':INT32) - (INFO-REF21942 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21921 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21922 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21924 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21926 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21930 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21932 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21933 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21935 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21938 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21942 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21923 A) (AF-REF21925 AF) - (IPIV-REF21927 IPIV) (S-REF21928 S) - (B-REF21929 B) (X-REF21931 X) - (BERR-REF21934 BERR) - (ERR_BNDS_NORM-REF21936 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21948 ':INT32) (NRHS-REF21949 ':INT32) + (LDA-REF21951 ':INT32) (LDAF-REF21953 ':INT32) + (LDB-REF21957 ':INT32) (LDX-REF21959 ':INT32) + (RCOND-REF21960 ':DOUBLE) + (N_ERR_BNDS-REF21962 ':INT32) + (NPARAMS-REF21965 ':INT32) + (INFO-REF21969 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21948 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21949 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21951 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21953 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21957 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21959 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21960 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21962 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21965 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21969 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21950 A) (AF-REF21952 AF) + (IPIV-REF21954 IPIV) (S-REF21955 S) + (B-REF21956 B) (X-REF21958 X) + (BERR-REF21961 BERR) + (ERR_BNDS_NORM-REF21963 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF21937 + (ERR_BNDS_COMP-REF21964 ERR_BNDS_COMP) - (PARAMS-REF21939 PARAMS) - (WORK-REF21940 WORK) - (RWORK-REF21941 RWORK)) - (%%ZSYRFSX UPLO EQUED N-REF21921 NRHS-REF21922 A-REF21923 LDA-REF21924 - AF-REF21925 LDAF-REF21926 IPIV-REF21927 S-REF21928 B-REF21929 - LDB-REF21930 X-REF21931 LDX-REF21932 RCOND-REF21933 - BERR-REF21934 N_ERR_BNDS-REF21935 ERR_BNDS_NORM-REF21936 - ERR_BNDS_COMP-REF21937 NPARAMS-REF21938 PARAMS-REF21939 - WORK-REF21940 RWORK-REF21941 INFO-REF21942)))) + (PARAMS-REF21966 PARAMS) + (WORK-REF21967 WORK) + (RWORK-REF21968 RWORK)) + (%%ZSYRFSX UPLO EQUED N-REF21948 NRHS-REF21949 A-REF21950 LDA-REF21951 + AF-REF21952 LDAF-REF21953 IPIV-REF21954 S-REF21955 B-REF21956 + LDB-REF21957 X-REF21958 LDX-REF21959 RCOND-REF21960 BERR-REF21961 + N_ERR_BNDS-REF21962 ERR_BNDS_NORM-REF21963 ERR_BNDS_COMP-REF21964 + NPARAMS-REF21965 PARAMS-REF21966 WORK-REF21967 RWORK-REF21968 + INFO-REF21969)))) -(CFFI:DEFCFUN ("zsysv_" %%ZSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsysv_" %%ZSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7188,23 +7202,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21944 ':INT32) (NRHS-REF21945 ':INT32) - (LDA-REF21947 ':INT32) (LDB-REF21950 ':INT32) - (LWORK-REF21952 ':INT32) (INFO-REF21953 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21944 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21945 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21947 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21950 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21952 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21953 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21946 A) (IPIV-REF21948 IPIV) - (B-REF21949 B) (WORK-REF21951 WORK)) - (%%ZSYSV UPLO N-REF21944 NRHS-REF21945 A-REF21946 LDA-REF21947 - IPIV-REF21948 B-REF21949 LDB-REF21950 WORK-REF21951 - LWORK-REF21952 INFO-REF21953)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21971 ':INT32) (NRHS-REF21972 ':INT32) + (LDA-REF21974 ':INT32) (LDB-REF21977 ':INT32) + (LWORK-REF21979 ':INT32) (INFO-REF21980 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21971 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21972 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21974 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21977 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21979 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21980 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21973 A) (IPIV-REF21975 IPIV) + (B-REF21976 B) (WORK-REF21978 WORK)) + (%%ZSYSV UPLO N-REF21971 NRHS-REF21972 A-REF21973 LDA-REF21974 + IPIV-REF21975 B-REF21976 LDB-REF21977 WORK-REF21978 LWORK-REF21979 + INFO-REF21980)))) (CFFI:DEFCFUN ("zsysv_aa_" %%ZSYSV_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7246,23 +7260,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21955 ':INT32) (NRHS-REF21956 ':INT32) - (LDA-REF21958 ':INT32) (LDB-REF21961 ':INT32) - (LWORK-REF21963 ':INT32) (INFO-REF21964 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21955 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21956 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21958 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21961 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21963 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21964 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21957 A) (IPIV-REF21959 IPIV) - (B-REF21960 B) (WORK-REF21962 WORK)) - (%%ZSYSV_AA UPLO N-REF21955 NRHS-REF21956 A-REF21957 LDA-REF21958 - IPIV-REF21959 B-REF21960 LDB-REF21961 WORK-REF21962 - LWORK-REF21963 INFO-REF21964)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21982 ':INT32) (NRHS-REF21983 ':INT32) + (LDA-REF21985 ':INT32) (LDB-REF21988 ':INT32) + (LWORK-REF21990 ':INT32) (INFO-REF21991 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21982 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21983 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21985 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21988 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21990 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21991 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21984 A) (IPIV-REF21986 IPIV) + (B-REF21987 B) (WORK-REF21989 WORK)) + (%%ZSYSV_AA UPLO N-REF21982 NRHS-REF21983 A-REF21984 LDA-REF21985 + IPIV-REF21986 B-REF21987 LDB-REF21988 WORK-REF21989 LWORK-REF21990 + INFO-REF21991)))) (CFFI:DEFCFUN ("zsysv_aa_2stage_" %%ZSYSV_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7318,28 +7332,27 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21966 ':INT32) (NRHS-REF21967 ':INT32) - (LDA-REF21969 ':INT32) (LTB-REF21971 ':INT32) - (LDB-REF21975 ':INT32) (LWORK-REF21977 ':INT32) - (INFO-REF21978 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21966 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21967 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21969 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF21971 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21975 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21977 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21978 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21968 A) (TB-REF21970 TB) - (IPIV-REF21972 IPIV) - (IPIV2-REF21973 IPIV2) - (B-REF21974 B) (WORK-REF21976 WORK)) - (%%ZSYSV_AA_2STAGE UPLO N-REF21966 NRHS-REF21967 A-REF21968 LDA-REF21969 - TB-REF21970 LTB-REF21971 IPIV-REF21972 IPIV2-REF21973 - B-REF21974 LDB-REF21975 WORK-REF21976 LWORK-REF21977 - INFO-REF21978)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21993 ':INT32) (NRHS-REF21994 ':INT32) + (LDA-REF21996 ':INT32) (LTB-REF21998 ':INT32) + (LDB-REF22002 ':INT32) (LWORK-REF22004 ':INT32) + (INFO-REF22005 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21993 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21994 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21996 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF21998 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22002 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22004 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22005 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21995 A) (TB-REF21997 TB) + (IPIV-REF21999 IPIV) + (IPIV2-REF22000 IPIV2) + (B-REF22001 B) (WORK-REF22003 WORK)) + (%%ZSYSV_AA_2STAGE UPLO N-REF21993 NRHS-REF21994 A-REF21995 LDA-REF21996 + TB-REF21997 LTB-REF21998 IPIV-REF21999 IPIV2-REF22000 B-REF22001 + LDB-REF22002 WORK-REF22003 LWORK-REF22004 INFO-REF22005)))) (CFFI:DEFCFUN ("zsysv_rk_" %%ZSYSV_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7387,24 +7400,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21980 ':INT32) (NRHS-REF21981 ':INT32) - (LDA-REF21983 ':INT32) (LDB-REF21987 ':INT32) - (LWORK-REF21989 ':INT32) (INFO-REF21990 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21980 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21981 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21983 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21987 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21989 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21990 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21982 A) (E-REF21984 E) - (IPIV-REF21985 IPIV) (B-REF21986 B) - (WORK-REF21988 WORK)) - (%%ZSYSV_RK UPLO N-REF21980 NRHS-REF21981 A-REF21982 LDA-REF21983 - E-REF21984 IPIV-REF21985 B-REF21986 LDB-REF21987 - WORK-REF21988 LWORK-REF21989 INFO-REF21990)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22007 ':INT32) (NRHS-REF22008 ':INT32) + (LDA-REF22010 ':INT32) (LDB-REF22014 ':INT32) + (LWORK-REF22016 ':INT32) (INFO-REF22017 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22007 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22008 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22010 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22014 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22016 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22017 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22009 A) (E-REF22011 E) + (IPIV-REF22012 IPIV) (B-REF22013 B) + (WORK-REF22015 WORK)) + (%%ZSYSV_RK UPLO N-REF22007 NRHS-REF22008 A-REF22009 LDA-REF22010 + E-REF22011 IPIV-REF22012 B-REF22013 LDB-REF22014 WORK-REF22015 + LWORK-REF22016 INFO-REF22017)))) (CFFI:DEFCFUN ("zsysv_rook_" %%ZSYSV_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7446,22 +7459,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21992 ':INT32) (NRHS-REF21993 ':INT32) - (LDA-REF21995 ':INT32) (LDB-REF21998 ':INT32) - (LWORK-REF22000 ':INT32) (INFO-REF22001 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21992 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21993 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21995 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21998 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22000 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22001 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21994 A) (IPIV-REF21996 IPIV) - (B-REF21997 B) (WORK-REF21999 WORK)) - (%%ZSYSV_ROOK UPLO N-REF21992 NRHS-REF21993 A-REF21994 LDA-REF21995 - IPIV-REF21996 B-REF21997 LDB-REF21998 WORK-REF21999 - LWORK-REF22000 INFO-REF22001)))) - -(CFFI:DEFCFUN ("zsysvx_" %%ZSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22019 ':INT32) (NRHS-REF22020 ':INT32) + (LDA-REF22022 ':INT32) (LDB-REF22025 ':INT32) + (LWORK-REF22027 ':INT32) (INFO-REF22028 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22019 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22020 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22022 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22025 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22027 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22028 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22021 A) (IPIV-REF22023 IPIV) + (B-REF22024 B) (WORK-REF22026 WORK)) + (%%ZSYSV_ROOK UPLO N-REF22019 NRHS-REF22020 A-REF22021 LDA-REF22022 + IPIV-REF22023 B-REF22024 LDB-REF22025 WORK-REF22026 LWORK-REF22027 + INFO-REF22028)))) + +(CFFI:DEFCFUN ("zsysvx_" %%ZSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -7537,33 +7550,33 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22004 ':INT32) (NRHS-REF22005 ':INT32) - (LDA-REF22007 ':INT32) (LDAF-REF22009 ':INT32) - (LDB-REF22012 ':INT32) (LDX-REF22014 ':INT32) - (RCOND-REF22015 ':DOUBLE) - (LWORK-REF22019 ':INT32) (INFO-REF22021 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22004 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22005 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22007 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22009 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22012 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22014 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22015 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22019 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22021 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22006 A) (AF-REF22008 AF) - (IPIV-REF22010 IPIV) (B-REF22011 B) - (X-REF22013 X) (FERR-REF22016 FERR) - (BERR-REF22017 BERR) - (WORK-REF22018 WORK) - (RWORK-REF22020 RWORK)) - (%%ZSYSVX FACT UPLO N-REF22004 NRHS-REF22005 A-REF22006 LDA-REF22007 - AF-REF22008 LDAF-REF22009 IPIV-REF22010 B-REF22011 LDB-REF22012 - X-REF22013 LDX-REF22014 RCOND-REF22015 FERR-REF22016 - BERR-REF22017 WORK-REF22018 LWORK-REF22019 RWORK-REF22020 - INFO-REF22021)))) - -(CFFI:DEFCFUN ("zsysvxx_" %%ZSYSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22031 ':INT32) (NRHS-REF22032 ':INT32) + (LDA-REF22034 ':INT32) (LDAF-REF22036 ':INT32) + (LDB-REF22039 ':INT32) (LDX-REF22041 ':INT32) + (RCOND-REF22042 ':DOUBLE) + (LWORK-REF22046 ':INT32) (INFO-REF22048 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22031 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22032 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22034 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22036 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22039 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22041 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22042 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22046 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22048 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22033 A) (AF-REF22035 AF) + (IPIV-REF22037 IPIV) (B-REF22038 B) + (X-REF22040 X) (FERR-REF22043 FERR) + (BERR-REF22044 BERR) + (WORK-REF22045 WORK) + (RWORK-REF22047 RWORK)) + (%%ZSYSVX FACT UPLO N-REF22031 NRHS-REF22032 A-REF22033 LDA-REF22034 + AF-REF22035 LDAF-REF22036 IPIV-REF22037 B-REF22038 LDB-REF22039 + X-REF22040 LDX-REF22041 RCOND-REF22042 FERR-REF22043 BERR-REF22044 + WORK-REF22045 LWORK-REF22046 RWORK-REF22047 INFO-REF22048)))) + +(CFFI:DEFCFUN ("zsysvxx_" %%ZSYSVXX :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (FACT :STRING) (UPLO :STRING) @@ -7658,45 +7671,45 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22024 ':INT32) (NRHS-REF22025 ':INT32) - (LDA-REF22027 ':INT32) (LDAF-REF22029 ':INT32) - (LDB-REF22034 ':INT32) (LDX-REF22036 ':INT32) - (RCOND-REF22037 ':DOUBLE) - (RPVGRW-REF22038 ':DOUBLE) - (N_ERR_BNDS-REF22040 ':INT32) - (NPARAMS-REF22043 ':INT32) - (INFO-REF22047 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22024 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22025 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22027 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22029 :INT32) LDAF) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22034 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22036 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22037 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF22038 :DOUBLE) RPVGRW) - (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF22040 :INT32) N_ERR_BNDS) - (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF22043 :INT32) NPARAMS) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22047 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22026 A) (AF-REF22028 AF) - (IPIV-REF22030 IPIV) (S-REF22032 S) - (B-REF22033 B) (X-REF22035 X) - (BERR-REF22039 BERR) - (ERR_BNDS_NORM-REF22041 + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22051 ':INT32) (NRHS-REF22052 ':INT32) + (LDA-REF22054 ':INT32) (LDAF-REF22056 ':INT32) + (LDB-REF22061 ':INT32) (LDX-REF22063 ':INT32) + (RCOND-REF22064 ':DOUBLE) + (RPVGRW-REF22065 ':DOUBLE) + (N_ERR_BNDS-REF22067 ':INT32) + (NPARAMS-REF22070 ':INT32) + (INFO-REF22074 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22051 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22052 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22054 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22056 :INT32) LDAF) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22061 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22063 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22064 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF22065 :DOUBLE) RPVGRW) + (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF22067 :INT32) N_ERR_BNDS) + (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF22070 :INT32) NPARAMS) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22074 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22053 A) (AF-REF22055 AF) + (IPIV-REF22057 IPIV) (S-REF22059 S) + (B-REF22060 B) (X-REF22062 X) + (BERR-REF22066 BERR) + (ERR_BNDS_NORM-REF22068 ERR_BNDS_NORM) - (ERR_BNDS_COMP-REF22042 + (ERR_BNDS_COMP-REF22069 ERR_BNDS_COMP) - (PARAMS-REF22044 PARAMS) - (WORK-REF22045 WORK) - (RWORK-REF22046 RWORK)) - (%%ZSYSVXX FACT UPLO N-REF22024 NRHS-REF22025 A-REF22026 LDA-REF22027 - AF-REF22028 LDAF-REF22029 IPIV-REF22030 EQUED S-REF22032 - B-REF22033 LDB-REF22034 X-REF22035 LDX-REF22036 RCOND-REF22037 - RPVGRW-REF22038 BERR-REF22039 N_ERR_BNDS-REF22040 - ERR_BNDS_NORM-REF22041 ERR_BNDS_COMP-REF22042 NPARAMS-REF22043 - PARAMS-REF22044 WORK-REF22045 RWORK-REF22046 INFO-REF22047)))) + (PARAMS-REF22071 PARAMS) + (WORK-REF22072 WORK) + (RWORK-REF22073 RWORK)) + (%%ZSYSVXX FACT UPLO N-REF22051 NRHS-REF22052 A-REF22053 LDA-REF22054 + AF-REF22055 LDAF-REF22056 IPIV-REF22057 EQUED S-REF22059 B-REF22060 + LDB-REF22061 X-REF22062 LDX-REF22063 RCOND-REF22064 RPVGRW-REF22065 + BERR-REF22066 N_ERR_BNDS-REF22067 ERR_BNDS_NORM-REF22068 + ERR_BNDS_COMP-REF22069 NPARAMS-REF22070 PARAMS-REF22071 WORK-REF22072 + RWORK-REF22073 INFO-REF22074)))) (CFFI:DEFCFUN ("zsyswapr_" %%ZSYSWAPR :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7717,17 +7730,17 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22049 ':INT32) (LDA-REF22051 ':INT32) - (I1-REF22052 ':INT32) (I2-REF22053 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22049 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22051 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF22052 :INT32) I1) - (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF22053 :INT32) I2) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22050 A)) - (%%ZSYSWAPR UPLO N-REF22049 A-REF22050 LDA-REF22051 I1-REF22052 - I2-REF22053)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22076 ':INT32) (LDA-REF22078 ':INT32) + (I1-REF22079 ':INT32) (I2-REF22080 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22076 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22078 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF22079 :INT32) I1) + (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF22080 :INT32) I2) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22077 A)) + (%%ZSYSWAPR UPLO N-REF22076 A-REF22077 LDA-REF22078 I1-REF22079 + I2-REF22080)))) -(CFFI:DEFCFUN ("zsytf2_" %%ZSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsytf2_" %%ZSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7751,17 +7764,17 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22055 ':INT32) (LDA-REF22057 ':INT32) - (INFO-REF22059 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22055 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22057 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22059 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22056 A) (IPIV-REF22058 IPIV)) - (%%ZSYTF2 UPLO N-REF22055 A-REF22056 LDA-REF22057 IPIV-REF22058 - INFO-REF22059)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22082 ':INT32) (LDA-REF22084 ':INT32) + (INFO-REF22086 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22082 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22084 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22086 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22083 A) (IPIV-REF22085 IPIV)) + (%%ZSYTF2 UPLO N-REF22082 A-REF22083 LDA-REF22084 IPIV-REF22085 + INFO-REF22086)))) (CFFI:DEFCFUN ("zsytf2_rk_" %%ZSYTF2_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7791,18 +7804,18 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22061 ':INT32) (LDA-REF22063 ':INT32) - (INFO-REF22066 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22061 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22063 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22066 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22062 A) (E-REF22064 E) - (IPIV-REF22065 IPIV)) - (%%ZSYTF2_RK UPLO N-REF22061 A-REF22062 LDA-REF22063 E-REF22064 - IPIV-REF22065 INFO-REF22066)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22088 ':INT32) (LDA-REF22090 ':INT32) + (INFO-REF22093 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22088 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22090 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22093 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22089 A) (E-REF22091 E) + (IPIV-REF22092 IPIV)) + (%%ZSYTF2_RK UPLO N-REF22088 A-REF22089 LDA-REF22090 E-REF22091 + IPIV-REF22092 INFO-REF22093)))) (CFFI:DEFCFUN ("zsytf2_rook_" %%ZSYTF2_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7826,16 +7839,16 @@ (COMMON-LISP:*)) IPIV) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22068 ':INT32) (LDA-REF22070 ':INT32) - (INFO-REF22072 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22068 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22070 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22072 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22069 A) (IPIV-REF22071 IPIV)) - (%%ZSYTF2_ROOK UPLO N-REF22068 A-REF22069 LDA-REF22070 IPIV-REF22071 - INFO-REF22072)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22095 ':INT32) (LDA-REF22097 ':INT32) + (INFO-REF22099 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22095 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22097 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22099 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22096 A) (IPIV-REF22098 IPIV)) + (%%ZSYTF2_ROOK UPLO N-REF22095 A-REF22096 LDA-REF22097 IPIV-REF22098 + INFO-REF22099)))) -(CFFI:DEFCFUN ("zsytrf_" %%ZSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsytrf_" %%ZSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7867,19 +7880,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22074 ':INT32) (LDA-REF22076 ':INT32) - (LWORK-REF22079 ':INT32) (INFO-REF22080 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22074 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22076 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22079 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22080 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22075 A) (IPIV-REF22077 IPIV) - (WORK-REF22078 WORK)) - (%%ZSYTRF UPLO N-REF22074 A-REF22075 LDA-REF22076 IPIV-REF22077 - WORK-REF22078 LWORK-REF22079 INFO-REF22080)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22101 ':INT32) (LDA-REF22103 ':INT32) + (LWORK-REF22106 ':INT32) (INFO-REF22107 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22101 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22103 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22106 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22107 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22102 A) (IPIV-REF22104 IPIV) + (WORK-REF22105 WORK)) + (%%ZSYTRF UPLO N-REF22101 A-REF22102 LDA-REF22103 IPIV-REF22104 + WORK-REF22105 LWORK-REF22106 INFO-REF22107)))) (CFFI:DEFCFUN ("zsytrf_aa_" %%ZSYTRF_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7911,19 +7924,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22082 ':INT32) (LDA-REF22084 ':INT32) - (LWORK-REF22087 ':INT32) (INFO-REF22088 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22082 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22084 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22087 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22088 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22083 A) (IPIV-REF22085 IPIV) - (WORK-REF22086 WORK)) - (%%ZSYTRF_AA UPLO N-REF22082 A-REF22083 LDA-REF22084 IPIV-REF22085 - WORK-REF22086 LWORK-REF22087 INFO-REF22088)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22109 ':INT32) (LDA-REF22111 ':INT32) + (LWORK-REF22114 ':INT32) (INFO-REF22115 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22109 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22111 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22114 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22115 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22110 A) (IPIV-REF22112 IPIV) + (WORK-REF22113 WORK)) + (%%ZSYTRF_AA UPLO N-REF22109 A-REF22110 LDA-REF22111 IPIV-REF22112 + WORK-REF22113 LWORK-REF22114 INFO-REF22115)))) (CFFI:DEFCFUN ("zsytrf_aa_2stage_" %%ZSYTRF_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -7969,24 +7982,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22090 ':INT32) (LDA-REF22092 ':INT32) - (LTB-REF22094 ':INT32) (LWORK-REF22098 ':INT32) - (INFO-REF22099 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22090 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22092 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF22094 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22098 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22099 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22091 A) (TB-REF22093 TB) - (IPIV-REF22095 IPIV) - (IPIV2-REF22096 IPIV2) - (WORK-REF22097 WORK)) - (%%ZSYTRF_AA_2STAGE UPLO N-REF22090 A-REF22091 LDA-REF22092 TB-REF22093 - LTB-REF22094 IPIV-REF22095 IPIV2-REF22096 - WORK-REF22097 LWORK-REF22098 INFO-REF22099)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22117 ':INT32) (LDA-REF22119 ':INT32) + (LTB-REF22121 ':INT32) (LWORK-REF22125 ':INT32) + (INFO-REF22126 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22117 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22119 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF22121 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22125 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22126 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22118 A) (TB-REF22120 TB) + (IPIV-REF22122 IPIV) + (IPIV2-REF22123 IPIV2) + (WORK-REF22124 WORK)) + (%%ZSYTRF_AA_2STAGE UPLO N-REF22117 A-REF22118 LDA-REF22119 TB-REF22120 + LTB-REF22121 IPIV-REF22122 IPIV2-REF22123 WORK-REF22124 LWORK-REF22125 + INFO-REF22126)))) (CFFI:DEFCFUN ("zsytrf_rk_" %%ZSYTRF_RK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8024,20 +8037,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22101 ':INT32) (LDA-REF22103 ':INT32) - (LWORK-REF22107 ':INT32) (INFO-REF22108 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22101 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22103 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22107 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22108 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22102 A) (E-REF22104 E) - (IPIV-REF22105 IPIV) - (WORK-REF22106 WORK)) - (%%ZSYTRF_RK UPLO N-REF22101 A-REF22102 LDA-REF22103 E-REF22104 - IPIV-REF22105 WORK-REF22106 LWORK-REF22107 INFO-REF22108)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22128 ':INT32) (LDA-REF22130 ':INT32) + (LWORK-REF22134 ':INT32) (INFO-REF22135 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22128 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22130 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22134 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22135 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22129 A) (E-REF22131 E) + (IPIV-REF22132 IPIV) + (WORK-REF22133 WORK)) + (%%ZSYTRF_RK UPLO N-REF22128 A-REF22129 LDA-REF22130 E-REF22131 + IPIV-REF22132 WORK-REF22133 LWORK-REF22134 INFO-REF22135)))) (CFFI:DEFCFUN ("zsytrf_rook_" %%ZSYTRF_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8069,18 +8082,18 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22110 ':INT32) (LDA-REF22112 ':INT32) - (LWORK-REF22115 ':INT32) (INFO-REF22116 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22110 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22112 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22115 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22116 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22111 A) (IPIV-REF22113 IPIV) - (WORK-REF22114 WORK)) - (%%ZSYTRF_ROOK UPLO N-REF22110 A-REF22111 LDA-REF22112 IPIV-REF22113 - WORK-REF22114 LWORK-REF22115 INFO-REF22116)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22137 ':INT32) (LDA-REF22139 ':INT32) + (LWORK-REF22142 ':INT32) (INFO-REF22143 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22137 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22139 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22142 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22143 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22138 A) (IPIV-REF22140 IPIV) + (WORK-REF22141 WORK)) + (%%ZSYTRF_ROOK UPLO N-REF22137 A-REF22138 LDA-REF22139 IPIV-REF22140 + WORK-REF22141 LWORK-REF22142 INFO-REF22143)))) -(CFFI:DEFCFUN ("zsytri_" %%ZSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsytri_" %%ZSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8110,17 +8123,18 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22118 ':INT32) (LDA-REF22120 ':INT32) - (INFO-REF22123 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22118 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22120 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22123 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22119 A) (IPIV-REF22121 IPIV) - (WORK-REF22122 WORK)) - (%%ZSYTRI UPLO N-REF22118 A-REF22119 LDA-REF22120 IPIV-REF22121 - WORK-REF22122 INFO-REF22123)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22145 ':INT32) (LDA-REF22147 ':INT32) + (INFO-REF22150 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22145 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22147 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22150 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22146 A) (IPIV-REF22148 IPIV) + (WORK-REF22149 WORK)) + (%%ZSYTRI UPLO N-REF22145 A-REF22146 LDA-REF22147 IPIV-REF22148 + WORK-REF22149 INFO-REF22150)))) -(CFFI:DEFCFUN ("zsytri2_" %%ZSYTRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsytri2_" %%ZSYTRI2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8152,19 +8166,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22125 ':INT32) (LDA-REF22127 ':INT32) - (LWORK-REF22130 ':INT32) (INFO-REF22131 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22125 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22127 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22130 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22131 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22126 A) (IPIV-REF22128 IPIV) - (WORK-REF22129 WORK)) - (%%ZSYTRI2 UPLO N-REF22125 A-REF22126 LDA-REF22127 IPIV-REF22128 - WORK-REF22129 LWORK-REF22130 INFO-REF22131)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22152 ':INT32) (LDA-REF22154 ':INT32) + (LWORK-REF22157 ':INT32) (INFO-REF22158 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22152 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22154 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22157 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22158 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22153 A) (IPIV-REF22155 IPIV) + (WORK-REF22156 WORK)) + (%%ZSYTRI2 UPLO N-REF22152 A-REF22153 LDA-REF22154 IPIV-REF22155 + WORK-REF22156 LWORK-REF22157 INFO-REF22158)))) (CFFI:DEFCFUN ("zsytri2x_" %%ZSYTRI2X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8196,19 +8210,19 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22133 ':INT32) (LDA-REF22135 ':INT32) - (NB-REF22138 ':INT32) (INFO-REF22139 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22133 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22135 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22138 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22139 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22134 A) (IPIV-REF22136 IPIV) - (WORK-REF22137 WORK)) - (%%ZSYTRI2X UPLO N-REF22133 A-REF22134 LDA-REF22135 IPIV-REF22136 - WORK-REF22137 NB-REF22138 INFO-REF22139)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22160 ':INT32) (LDA-REF22162 ':INT32) + (NB-REF22165 ':INT32) (INFO-REF22166 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22160 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22162 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22165 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22166 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22161 A) (IPIV-REF22163 IPIV) + (WORK-REF22164 WORK)) + (%%ZSYTRI2X UPLO N-REF22160 A-REF22161 LDA-REF22162 IPIV-REF22163 + WORK-REF22164 NB-REF22165 INFO-REF22166)))) (CFFI:DEFCFUN ("zsytri_3_" %%ZSYTRI_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8246,20 +8260,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22141 ':INT32) (LDA-REF22143 ':INT32) - (LWORK-REF22147 ':INT32) (INFO-REF22148 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22141 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22143 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22147 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22148 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22142 A) (E-REF22144 E) - (IPIV-REF22145 IPIV) - (WORK-REF22146 WORK)) - (%%ZSYTRI_3 UPLO N-REF22141 A-REF22142 LDA-REF22143 E-REF22144 - IPIV-REF22145 WORK-REF22146 LWORK-REF22147 INFO-REF22148)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22168 ':INT32) (LDA-REF22170 ':INT32) + (LWORK-REF22174 ':INT32) (INFO-REF22175 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22168 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22170 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22174 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22175 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22169 A) (E-REF22171 E) + (IPIV-REF22172 IPIV) + (WORK-REF22173 WORK)) + (%%ZSYTRI_3 UPLO N-REF22168 A-REF22169 LDA-REF22170 E-REF22171 + IPIV-REF22172 WORK-REF22173 LWORK-REF22174 INFO-REF22175)))) (CFFI:DEFCFUN ("zsytri_3x_" %%ZSYTRI_3X :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8297,20 +8311,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22150 ':INT32) (LDA-REF22152 ':INT32) - (NB-REF22156 ':INT32) (INFO-REF22157 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22150 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22152 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22156 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22157 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22151 A) (E-REF22153 E) - (IPIV-REF22154 IPIV) - (WORK-REF22155 WORK)) - (%%ZSYTRI_3X UPLO N-REF22150 A-REF22151 LDA-REF22152 E-REF22153 - IPIV-REF22154 WORK-REF22155 NB-REF22156 INFO-REF22157)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22177 ':INT32) (LDA-REF22179 ':INT32) + (NB-REF22183 ':INT32) (INFO-REF22184 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22177 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22179 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22183 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22184 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22178 A) (E-REF22180 E) + (IPIV-REF22181 IPIV) + (WORK-REF22182 WORK)) + (%%ZSYTRI_3X UPLO N-REF22177 A-REF22178 LDA-REF22179 E-REF22180 + IPIV-REF22181 WORK-REF22182 NB-REF22183 INFO-REF22184)))) (CFFI:DEFCFUN ("zsytri_rook_" %%ZSYTRI_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8340,17 +8354,17 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22159 ':INT32) (LDA-REF22161 ':INT32) - (INFO-REF22164 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22159 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22161 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22164 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22160 A) (IPIV-REF22162 IPIV) - (WORK-REF22163 WORK)) - (%%ZSYTRI_ROOK UPLO N-REF22159 A-REF22160 LDA-REF22161 IPIV-REF22162 - WORK-REF22163 INFO-REF22164)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22186 ':INT32) (LDA-REF22188 ':INT32) + (INFO-REF22191 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22186 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22188 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22191 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22187 A) (IPIV-REF22189 IPIV) + (WORK-REF22190 WORK)) + (%%ZSYTRI_ROOK UPLO N-REF22186 A-REF22187 LDA-REF22188 IPIV-REF22189 + WORK-REF22190 INFO-REF22191)))) -(CFFI:DEFCFUN ("zsytrs_" %%ZSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsytrs_" %%ZSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8384,20 +8398,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22166 ':INT32) (NRHS-REF22167 ':INT32) - (LDA-REF22169 ':INT32) (LDB-REF22172 ':INT32) - (INFO-REF22173 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22166 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22167 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22169 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22172 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22173 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22168 A) (IPIV-REF22170 IPIV) - (B-REF22171 B)) - (%%ZSYTRS UPLO N-REF22166 NRHS-REF22167 A-REF22168 LDA-REF22169 - IPIV-REF22170 B-REF22171 LDB-REF22172 INFO-REF22173)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22193 ':INT32) (NRHS-REF22194 ':INT32) + (LDA-REF22196 ':INT32) (LDB-REF22199 ':INT32) + (INFO-REF22200 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22193 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22194 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22196 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22199 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22200 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22195 A) (IPIV-REF22197 IPIV) + (B-REF22198 B)) + (%%ZSYTRS UPLO N-REF22193 NRHS-REF22194 A-REF22195 LDA-REF22196 + IPIV-REF22197 B-REF22198 LDB-REF22199 INFO-REF22200)))) -(CFFI:DEFCFUN ("zsytrs2_" %%ZSYTRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zsytrs2_" %%ZSYTRS2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8437,22 +8452,21 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22175 ':INT32) (NRHS-REF22176 ':INT32) - (LDA-REF22178 ':INT32) (LDB-REF22181 ':INT32) - (INFO-REF22183 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22175 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22176 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22178 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22181 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22183 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22177 A) (IPIV-REF22179 IPIV) - (B-REF22180 B) (WORK-REF22182 WORK)) - (%%ZSYTRS2 UPLO N-REF22175 NRHS-REF22176 A-REF22177 LDA-REF22178 - IPIV-REF22179 B-REF22180 LDB-REF22181 WORK-REF22182 - INFO-REF22183)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22202 ':INT32) (NRHS-REF22203 ':INT32) + (LDA-REF22205 ':INT32) (LDB-REF22208 ':INT32) + (INFO-REF22210 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22202 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22203 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22205 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22208 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22210 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22204 A) (IPIV-REF22206 IPIV) + (B-REF22207 B) (WORK-REF22209 WORK)) + (%%ZSYTRS2 UPLO N-REF22202 NRHS-REF22203 A-REF22204 LDA-REF22205 + IPIV-REF22206 B-REF22207 LDB-REF22208 WORK-REF22209 INFO-REF22210)))) (CFFI:DEFCFUN ("zsytrs_3_" %%ZSYTRS_3 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8492,22 +8506,21 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22185 ':INT32) (NRHS-REF22186 ':INT32) - (LDA-REF22188 ':INT32) (LDB-REF22192 ':INT32) - (INFO-REF22193 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22185 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22186 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22188 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22192 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22193 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22187 A) (E-REF22189 E) - (IPIV-REF22190 IPIV) (B-REF22191 B)) - (%%ZSYTRS_3 UPLO N-REF22185 NRHS-REF22186 A-REF22187 LDA-REF22188 - E-REF22189 IPIV-REF22190 B-REF22191 LDB-REF22192 - INFO-REF22193)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22212 ':INT32) (NRHS-REF22213 ':INT32) + (LDA-REF22215 ':INT32) (LDB-REF22219 ':INT32) + (INFO-REF22220 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22212 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22213 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22215 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22219 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22220 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22214 A) (E-REF22216 E) + (IPIV-REF22217 IPIV) (B-REF22218 B)) + (%%ZSYTRS_3 UPLO N-REF22212 NRHS-REF22213 A-REF22214 LDA-REF22215 + E-REF22216 IPIV-REF22217 B-REF22218 LDB-REF22219 INFO-REF22220)))) (CFFI:DEFCFUN ("zsytrs_aa_" %%ZSYTRS_AA :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8549,23 +8562,23 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22195 ':INT32) (NRHS-REF22196 ':INT32) - (LDA-REF22198 ':INT32) (LDB-REF22201 ':INT32) - (LWORK-REF22203 ':INT32) (INFO-REF22204 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22195 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22196 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22198 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22201 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22203 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22204 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22197 A) (IPIV-REF22199 IPIV) - (B-REF22200 B) (WORK-REF22202 WORK)) - (%%ZSYTRS_AA UPLO N-REF22195 NRHS-REF22196 A-REF22197 LDA-REF22198 - IPIV-REF22199 B-REF22200 LDB-REF22201 WORK-REF22202 - LWORK-REF22203 INFO-REF22204)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22222 ':INT32) (NRHS-REF22223 ':INT32) + (LDA-REF22225 ':INT32) (LDB-REF22228 ':INT32) + (LWORK-REF22230 ':INT32) (INFO-REF22231 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22222 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22223 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22225 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22228 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22230 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22231 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22224 A) (IPIV-REF22226 IPIV) + (B-REF22227 B) (WORK-REF22229 WORK)) + (%%ZSYTRS_AA UPLO N-REF22222 NRHS-REF22223 A-REF22224 LDA-REF22225 + IPIV-REF22226 B-REF22227 LDB-REF22228 WORK-REF22229 LWORK-REF22230 + INFO-REF22231)))) (CFFI:DEFCFUN ("zsytrs_aa_2stage_" %%ZSYTRS_AA_2STAGE :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8613,25 +8626,25 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22206 ':INT32) (NRHS-REF22207 ':INT32) - (LDA-REF22209 ':INT32) (LTB-REF22211 ':INT32) - (LDB-REF22215 ':INT32) (INFO-REF22216 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22206 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22207 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22209 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF22211 :INT32) LTB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22215 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22216 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22208 A) (TB-REF22210 TB) - (IPIV-REF22212 IPIV) - (IPIV2-REF22213 IPIV2) - (B-REF22214 B)) - (%%ZSYTRS_AA_2STAGE UPLO N-REF22206 NRHS-REF22207 A-REF22208 LDA-REF22209 - TB-REF22210 LTB-REF22211 IPIV-REF22212 IPIV2-REF22213 - B-REF22214 LDB-REF22215 INFO-REF22216)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22233 ':INT32) (NRHS-REF22234 ':INT32) + (LDA-REF22236 ':INT32) (LTB-REF22238 ':INT32) + (LDB-REF22242 ':INT32) (INFO-REF22243 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22233 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22234 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22236 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF22238 :INT32) LTB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22242 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22243 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22235 A) (TB-REF22237 TB) + (IPIV-REF22239 IPIV) + (IPIV2-REF22240 IPIV2) + (B-REF22241 B)) + (%%ZSYTRS_AA_2STAGE UPLO N-REF22233 NRHS-REF22234 A-REF22235 LDA-REF22236 + TB-REF22237 LTB-REF22238 IPIV-REF22239 IPIV2-REF22240 B-REF22241 + LDB-REF22242 INFO-REF22243)))) (CFFI:DEFCFUN ("zsytrs_rook_" %%ZSYTRS_ROOK :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -8665,20 +8678,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22218 ':INT32) (NRHS-REF22219 ':INT32) - (LDA-REF22221 ':INT32) (LDB-REF22224 ':INT32) - (INFO-REF22225 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22218 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22219 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22221 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22224 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22225 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22220 A) (IPIV-REF22222 IPIV) - (B-REF22223 B)) - (%%ZSYTRS_ROOK UPLO N-REF22218 NRHS-REF22219 A-REF22220 LDA-REF22221 - IPIV-REF22222 B-REF22223 LDB-REF22224 INFO-REF22225)))) - -(CFFI:DEFCFUN ("ztbcon_" %%ZTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22245 ':INT32) (NRHS-REF22246 ':INT32) + (LDA-REF22248 ':INT32) (LDB-REF22251 ':INT32) + (INFO-REF22252 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22245 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22246 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22248 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22251 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22252 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22247 A) (IPIV-REF22249 IPIV) + (B-REF22250 B)) + (%%ZSYTRS_ROOK UPLO N-REF22245 NRHS-REF22246 A-REF22247 LDA-REF22248 + IPIV-REF22249 B-REF22250 LDB-REF22251 INFO-REF22252)))) + +(CFFI:DEFCFUN ("ztbcon_" %%ZTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -8715,21 +8728,21 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22229 ':INT32) (KD-REF22230 ':INT32) - (LDAB-REF22232 ':INT32) (RCOND-REF22233 ':DOUBLE) - (INFO-REF22236 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22229 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22230 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22232 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22233 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22236 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22231 AB) - (WORK-REF22234 WORK) - (RWORK-REF22235 RWORK)) - (%%ZTBCON NORM UPLO DIAG N-REF22229 KD-REF22230 AB-REF22231 LDAB-REF22232 - RCOND-REF22233 WORK-REF22234 RWORK-REF22235 INFO-REF22236)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22256 ':INT32) (KD-REF22257 ':INT32) + (LDAB-REF22259 ':INT32) (RCOND-REF22260 ':DOUBLE) + (INFO-REF22263 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22256 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22257 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22259 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22260 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22263 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22258 AB) + (WORK-REF22261 WORK) + (RWORK-REF22262 RWORK)) + (%%ZTBCON NORM UPLO DIAG N-REF22256 KD-REF22257 AB-REF22258 LDAB-REF22259 + RCOND-REF22260 WORK-REF22261 RWORK-REF22262 INFO-REF22263)))) -(CFFI:DEFCFUN ("ztbrfs_" %%ZTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztbrfs_" %%ZTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -8792,28 +8805,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22240 ':INT32) (KD-REF22241 ':INT32) - (NRHS-REF22242 ':INT32) (LDAB-REF22244 ':INT32) - (LDB-REF22246 ':INT32) (LDX-REF22248 ':INT32) - (INFO-REF22253 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22240 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22241 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22242 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22244 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22246 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22248 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22253 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22243 AB) (B-REF22245 B) - (X-REF22247 X) (FERR-REF22249 FERR) - (BERR-REF22250 BERR) - (WORK-REF22251 WORK) - (RWORK-REF22252 RWORK)) - (%%ZTBRFS UPLO TRANS DIAG N-REF22240 KD-REF22241 NRHS-REF22242 - AB-REF22243 LDAB-REF22244 B-REF22245 LDB-REF22246 X-REF22247 - LDX-REF22248 FERR-REF22249 BERR-REF22250 WORK-REF22251 - RWORK-REF22252 INFO-REF22253)))) - -(CFFI:DEFCFUN ("ztbtrs_" %%ZTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22267 ':INT32) (KD-REF22268 ':INT32) + (NRHS-REF22269 ':INT32) (LDAB-REF22271 ':INT32) + (LDB-REF22273 ':INT32) (LDX-REF22275 ':INT32) + (INFO-REF22280 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22267 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22268 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22269 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22271 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22273 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22275 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22280 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22270 AB) (B-REF22272 B) + (X-REF22274 X) (FERR-REF22276 FERR) + (BERR-REF22277 BERR) + (WORK-REF22278 WORK) + (RWORK-REF22279 RWORK)) + (%%ZTBRFS UPLO TRANS DIAG N-REF22267 KD-REF22268 NRHS-REF22269 + AB-REF22270 LDAB-REF22271 B-REF22272 LDB-REF22273 X-REF22274 + LDX-REF22275 FERR-REF22276 BERR-REF22277 WORK-REF22278 RWORK-REF22279 + INFO-REF22280)))) + +(CFFI:DEFCFUN ("ztbtrs_" %%ZTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -8848,21 +8861,20 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22257 ':INT32) (KD-REF22258 ':INT32) - (NRHS-REF22259 ':INT32) (LDAB-REF22261 ':INT32) - (LDB-REF22263 ':INT32) (INFO-REF22264 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22257 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22258 :INT32) KD) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22259 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22261 :INT32) LDAB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22263 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22264 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22260 AB) (B-REF22262 B)) - (%%ZTBTRS UPLO TRANS DIAG N-REF22257 KD-REF22258 NRHS-REF22259 - AB-REF22260 LDAB-REF22261 B-REF22262 LDB-REF22263 - INFO-REF22264)))) - -(CFFI:DEFCFUN ("ztfsm_" %%ZTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22284 ':INT32) (KD-REF22285 ':INT32) + (NRHS-REF22286 ':INT32) (LDAB-REF22288 ':INT32) + (LDB-REF22290 ':INT32) (INFO-REF22291 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22284 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22285 :INT32) KD) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22286 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22288 :INT32) LDAB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22290 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22291 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22287 AB) (B-REF22289 B)) + (%%ZTBTRS UPLO TRANS DIAG N-REF22284 KD-REF22285 NRHS-REF22286 + AB-REF22287 LDAB-REF22288 B-REF22289 LDB-REF22290 INFO-REF22291)))) + +(CFFI:DEFCFUN ("ztfsm_" %%ZTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (SIDE :STRING) @@ -8898,23 +8910,23 @@ (COMMON-LISP:*)) B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22270 ':INT32) (N-REF22271 ':INT32) - (ALPHA-REF22272 + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22297 ':INT32) (N-REF22298 ':INT32) + (ALPHA-REF22299 'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) - (LDB-REF22275 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22270 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22271 :INT32) N) + (LDB-REF22302 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22297 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22298 :INT32) N) (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG) - ALPHA-REF22272 + ALPHA-REF22299 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT) (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA) MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA))) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22275 :INT32) LDB) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22273 A) (B-REF22274 B)) - (%%ZTFSM TRANSR SIDE UPLO TRANS DIAG M-REF22270 N-REF22271 ALPHA-REF22272 - A-REF22273 B-REF22274 LDB-REF22275)))) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22302 :INT32) LDB) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22300 A) (B-REF22301 B)) + (%%ZTFSM TRANSR SIDE UPLO TRANS DIAG M-REF22297 N-REF22298 ALPHA-REF22299 + A-REF22300 B-REF22301 LDB-REF22302)))) -(CFFI:DEFCFUN ("ztftri_" %%ZTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztftri_" %%ZTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -8935,13 +8947,13 @@ (COMMON-LISP:*)) A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22279 ':INT32) (INFO-REF22281 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22279 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22281 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22280 A)) - (%%ZTFTRI TRANSR UPLO DIAG N-REF22279 A-REF22280 INFO-REF22281)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22306 ':INT32) (INFO-REF22308 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22306 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22308 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22307 A)) + (%%ZTFTRI TRANSR UPLO DIAG N-REF22306 A-REF22307 INFO-REF22308)))) -(CFFI:DEFCFUN ("ztfttp_" %%ZTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztfttp_" %%ZTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -8966,14 +8978,14 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22284 ':INT32) (INFO-REF22287 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22284 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22287 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF22285 ARF) (AP-REF22286 AP)) - (%%ZTFTTP TRANSR UPLO N-REF22284 ARF-REF22285 AP-REF22286 - INFO-REF22287)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22311 ':INT32) (INFO-REF22314 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22311 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22314 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF22312 ARF) (AP-REF22313 AP)) + (%%ZTFTTP TRANSR UPLO N-REF22311 ARF-REF22312 AP-REF22313 + INFO-REF22314)))) -(CFFI:DEFCFUN ("ztfttr_" %%ZTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztfttr_" %%ZTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -9000,16 +9012,16 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22290 ':INT32) (LDA-REF22293 ':INT32) - (INFO-REF22294 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22290 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22293 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22294 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF22291 ARF) (A-REF22292 A)) - (%%ZTFTTR TRANSR UPLO N-REF22290 ARF-REF22291 A-REF22292 LDA-REF22293 - INFO-REF22294)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22317 ':INT32) (LDA-REF22320 ':INT32) + (INFO-REF22321 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22317 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22320 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22321 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF22318 ARF) (A-REF22319 A)) + (%%ZTFTTR TRANSR UPLO N-REF22317 ARF-REF22318 A-REF22319 LDA-REF22320 + INFO-REF22321)))) -(CFFI:DEFCFUN ("ztgevc_" %%ZTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztgevc_" %%ZTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -9075,29 +9087,29 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22298 ':INT32) (LDS-REF22300 ':INT32) - (LDP-REF22302 ':INT32) (LDVL-REF22304 ':INT32) - (LDVR-REF22306 ':INT32) (MM-REF22307 ':INT32) - (M-REF22308 ':INT32) (INFO-REF22311 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22298 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF22300 :INT32) LDS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF22302 :INT32) LDP) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22304 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22306 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22307 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22308 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22311 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22297 SELECT) - (S-REF22299 S) (P-REF22301 P) - (VL-REF22303 VL) (VR-REF22305 VR) - (WORK-REF22309 WORK) - (RWORK-REF22310 RWORK)) - (%%ZTGEVC SIDE HOWMNY SELECT-REF22297 N-REF22298 S-REF22299 LDS-REF22300 - P-REF22301 LDP-REF22302 VL-REF22303 LDVL-REF22304 VR-REF22305 - LDVR-REF22306 MM-REF22307 M-REF22308 WORK-REF22309 - RWORK-REF22310 INFO-REF22311)))) - -(CFFI:DEFCFUN ("ztgex2_" %%ZTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22325 ':INT32) (LDS-REF22327 ':INT32) + (LDP-REF22329 ':INT32) (LDVL-REF22331 ':INT32) + (LDVR-REF22333 ':INT32) (MM-REF22334 ':INT32) + (M-REF22335 ':INT32) (INFO-REF22338 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22325 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF22327 :INT32) LDS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF22329 :INT32) LDP) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22331 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22333 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22334 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22335 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22338 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22324 SELECT) + (S-REF22326 S) (P-REF22328 P) + (VL-REF22330 VL) (VR-REF22332 VR) + (WORK-REF22336 WORK) + (RWORK-REF22337 RWORK)) + (%%ZTGEVC SIDE HOWMNY SELECT-REF22324 N-REF22325 S-REF22326 LDS-REF22327 + P-REF22328 LDP-REF22329 VL-REF22330 LDVL-REF22331 VR-REF22332 + LDVR-REF22333 MM-REF22334 M-REF22335 WORK-REF22336 RWORK-REF22337 + INFO-REF22338)))) + +(CFFI:DEFCFUN ("ztgex2_" %%ZTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (WANTZ :POINTER) @@ -9144,27 +9156,27 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF22312 ':INT32) (WANTZ-REF22313 ':INT32) - (N-REF22314 ':INT32) (LDA-REF22316 ':INT32) - (LDB-REF22318 ':INT32) (LDQ-REF22320 ':INT32) - (LDZ-REF22322 ':INT32) (J1-REF22323 ':INT32) - (INFO-REF22324 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22312 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22313 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22314 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22316 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22318 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22320 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22322 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF22323 :INT32) J1) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22324 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22315 A) (B-REF22317 B) - (Q-REF22319 Q) (Z-REF22321 Z)) - (%%ZTGEX2 WANTQ-REF22312 WANTZ-REF22313 N-REF22314 A-REF22315 - LDA-REF22316 B-REF22317 LDB-REF22318 Q-REF22319 LDQ-REF22320 - Z-REF22321 LDZ-REF22322 J1-REF22323 INFO-REF22324)))) - -(CFFI:DEFCFUN ("ztgexc_" %%ZTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF22339 ':INT32) (WANTZ-REF22340 ':INT32) + (N-REF22341 ':INT32) (LDA-REF22343 ':INT32) + (LDB-REF22345 ':INT32) (LDQ-REF22347 ':INT32) + (LDZ-REF22349 ':INT32) (J1-REF22350 ':INT32) + (INFO-REF22351 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22339 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22340 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22341 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22343 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22345 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22347 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22349 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF22350 :INT32) J1) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22351 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22342 A) (B-REF22344 B) + (Q-REF22346 Q) (Z-REF22348 Z)) + (%%ZTGEX2 WANTQ-REF22339 WANTZ-REF22340 N-REF22341 A-REF22342 + LDA-REF22343 B-REF22344 LDB-REF22345 Q-REF22346 LDQ-REF22347 Z-REF22348 + LDZ-REF22349 J1-REF22350 INFO-REF22351)))) + +(CFFI:DEFCFUN ("ztgexc_" %%ZTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (WANTQ :POINTER) (WANTZ :POINTER) @@ -9214,29 +9226,28 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF22325 ':INT32) (WANTZ-REF22326 ':INT32) - (N-REF22327 ':INT32) (LDA-REF22329 ':INT32) - (LDB-REF22331 ':INT32) (LDQ-REF22333 ':INT32) - (LDZ-REF22335 ':INT32) (IFST-REF22336 ':INT32) - (ILST-REF22337 ':INT32) (INFO-REF22338 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22325 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22326 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22327 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22329 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22331 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22333 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22335 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF22336 :INT32) IFST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF22337 :INT32) ILST) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22338 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22328 A) (B-REF22330 B) - (Q-REF22332 Q) (Z-REF22334 Z)) - (%%ZTGEXC WANTQ-REF22325 WANTZ-REF22326 N-REF22327 A-REF22328 - LDA-REF22329 B-REF22330 LDB-REF22331 Q-REF22332 LDQ-REF22333 - Z-REF22334 LDZ-REF22335 IFST-REF22336 ILST-REF22337 - INFO-REF22338)))) - -(CFFI:DEFCFUN ("ztgsen_" %%ZTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF22352 ':INT32) (WANTZ-REF22353 ':INT32) + (N-REF22354 ':INT32) (LDA-REF22356 ':INT32) + (LDB-REF22358 ':INT32) (LDQ-REF22360 ':INT32) + (LDZ-REF22362 ':INT32) (IFST-REF22363 ':INT32) + (ILST-REF22364 ':INT32) (INFO-REF22365 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22352 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22353 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22354 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22356 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22358 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22360 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22362 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF22363 :INT32) IFST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF22364 :INT32) ILST) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22365 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22355 A) (B-REF22357 B) + (Q-REF22359 Q) (Z-REF22361 Z)) + (%%ZTGEXC WANTQ-REF22352 WANTZ-REF22353 N-REF22354 A-REF22355 + LDA-REF22356 B-REF22357 LDB-REF22358 Q-REF22359 LDQ-REF22360 Z-REF22361 + LDZ-REF22362 IFST-REF22363 ILST-REF22364 INFO-REF22365)))) + +(CFFI:DEFCFUN ("ztgsen_" %%ZTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (IJOB :POINTER) (WANTQ :POINTER) @@ -9327,42 +9338,42 @@ IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22339 ':INT32) (WANTQ-REF22340 ':INT32) - (WANTZ-REF22341 ':INT32) (N-REF22343 ':INT32) - (LDA-REF22345 ':INT32) (LDB-REF22347 ':INT32) - (LDQ-REF22351 ':INT32) (LDZ-REF22353 ':INT32) - (M-REF22354 ':INT32) (PL-REF22355 ':DOUBLE) - (PR-REF22356 ':DOUBLE) (LWORK-REF22359 ':INT32) - (LIWORK-REF22361 ':INT32) (INFO-REF22362 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22339 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22340 :INT32) WANTQ) - (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22341 :INT32) WANTZ) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22343 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22345 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22347 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22351 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22353 :INT32) LDZ) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22354 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF22355 :DOUBLE) PL) - (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF22356 :DOUBLE) PR) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22359 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF22361 :INT32) LIWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22362 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22342 SELECT) - (A-REF22344 A) (B-REF22346 B) - (ALPHA-REF22348 ALPHA) - (BETA-REF22349 BETA) (Q-REF22350 Q) - (Z-REF22352 Z) (DIF-REF22357 DIF) - (WORK-REF22358 WORK) - (IWORK-REF22360 IWORK)) - (%%ZTGSEN IJOB-REF22339 WANTQ-REF22340 WANTZ-REF22341 SELECT-REF22342 - N-REF22343 A-REF22344 LDA-REF22345 B-REF22346 LDB-REF22347 - ALPHA-REF22348 BETA-REF22349 Q-REF22350 LDQ-REF22351 Z-REF22352 - LDZ-REF22353 M-REF22354 PL-REF22355 PR-REF22356 DIF-REF22357 - WORK-REF22358 LWORK-REF22359 IWORK-REF22360 LIWORK-REF22361 - INFO-REF22362)))) - -(CFFI:DEFCFUN ("ztgsja_" %%ZTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22366 ':INT32) (WANTQ-REF22367 ':INT32) + (WANTZ-REF22368 ':INT32) (N-REF22370 ':INT32) + (LDA-REF22372 ':INT32) (LDB-REF22374 ':INT32) + (LDQ-REF22378 ':INT32) (LDZ-REF22380 ':INT32) + (M-REF22381 ':INT32) (PL-REF22382 ':DOUBLE) + (PR-REF22383 ':DOUBLE) (LWORK-REF22386 ':INT32) + (LIWORK-REF22388 ':INT32) (INFO-REF22389 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22366 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22367 :INT32) WANTQ) + (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22368 :INT32) WANTZ) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22370 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22372 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22374 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22378 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22380 :INT32) LDZ) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22381 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF22382 :DOUBLE) PL) + (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF22383 :DOUBLE) PR) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22386 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF22388 :INT32) LIWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22389 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22369 SELECT) + (A-REF22371 A) (B-REF22373 B) + (ALPHA-REF22375 ALPHA) + (BETA-REF22376 BETA) (Q-REF22377 Q) + (Z-REF22379 Z) (DIF-REF22384 DIF) + (WORK-REF22385 WORK) + (IWORK-REF22387 IWORK)) + (%%ZTGSEN IJOB-REF22366 WANTQ-REF22367 WANTZ-REF22368 SELECT-REF22369 + N-REF22370 A-REF22371 LDA-REF22372 B-REF22373 LDB-REF22374 + ALPHA-REF22375 BETA-REF22376 Q-REF22377 LDQ-REF22378 Z-REF22379 + LDZ-REF22380 M-REF22381 PL-REF22382 PR-REF22383 DIF-REF22384 + WORK-REF22385 LWORK-REF22386 IWORK-REF22387 LIWORK-REF22388 + INFO-REF22389)))) + +(CFFI:DEFCFUN ("ztgsja_" %%ZTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU :STRING) (JOBV :STRING) @@ -9447,39 +9458,39 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22366 ':INT32) (P-REF22367 ':INT32) - (N-REF22368 ':INT32) (K-REF22369 ':INT32) - (L-REF22370 ':INT32) (LDA-REF22372 ':INT32) - (LDB-REF22374 ':INT32) (TOLA-REF22375 ':DOUBLE) - (TOLB-REF22376 ':DOUBLE) (LDU-REF22380 ':INT32) - (LDV-REF22382 ':INT32) (LDQ-REF22384 ':INT32) - (NCYCLE-REF22386 ':INT32) (INFO-REF22387 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22366 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22367 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22368 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22369 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22370 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22372 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22374 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF22375 :DOUBLE) TOLA) - (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF22376 :DOUBLE) TOLB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF22380 :INT32) LDU) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22382 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22384 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF22386 :INT32) NCYCLE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22387 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22371 A) (B-REF22373 B) - (ALPHA-REF22377 ALPHA) - (BETA-REF22378 BETA) (U-REF22379 U) - (V-REF22381 V) (Q-REF22383 Q) - (WORK-REF22385 WORK)) - (%%ZTGSJA JOBU JOBV JOBQ M-REF22366 P-REF22367 N-REF22368 K-REF22369 - L-REF22370 A-REF22371 LDA-REF22372 B-REF22373 LDB-REF22374 - TOLA-REF22375 TOLB-REF22376 ALPHA-REF22377 BETA-REF22378 - U-REF22379 LDU-REF22380 V-REF22381 LDV-REF22382 Q-REF22383 - LDQ-REF22384 WORK-REF22385 NCYCLE-REF22386 INFO-REF22387)))) - -(CFFI:DEFCFUN ("ztgsna_" %%ZTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22393 ':INT32) (P-REF22394 ':INT32) + (N-REF22395 ':INT32) (K-REF22396 ':INT32) + (L-REF22397 ':INT32) (LDA-REF22399 ':INT32) + (LDB-REF22401 ':INT32) (TOLA-REF22402 ':DOUBLE) + (TOLB-REF22403 ':DOUBLE) (LDU-REF22407 ':INT32) + (LDV-REF22409 ':INT32) (LDQ-REF22411 ':INT32) + (NCYCLE-REF22413 ':INT32) (INFO-REF22414 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22393 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22394 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22395 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22396 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22397 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22399 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22401 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF22402 :DOUBLE) TOLA) + (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF22403 :DOUBLE) TOLB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF22407 :INT32) LDU) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22409 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22411 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF22413 :INT32) NCYCLE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22414 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22398 A) (B-REF22400 B) + (ALPHA-REF22404 ALPHA) + (BETA-REF22405 BETA) (U-REF22406 U) + (V-REF22408 V) (Q-REF22410 Q) + (WORK-REF22412 WORK)) + (%%ZTGSJA JOBU JOBV JOBQ M-REF22393 P-REF22394 N-REF22395 K-REF22396 + L-REF22397 A-REF22398 LDA-REF22399 B-REF22400 LDB-REF22401 TOLA-REF22402 + TOLB-REF22403 ALPHA-REF22404 BETA-REF22405 U-REF22406 LDU-REF22407 + V-REF22408 LDV-REF22409 Q-REF22410 LDQ-REF22411 WORK-REF22412 + NCYCLE-REF22413 INFO-REF22414)))) + +(CFFI:DEFCFUN ("ztgsna_" %%ZTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (HOWMNY :STRING) @@ -9555,32 +9566,32 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22391 ':INT32) (LDA-REF22393 ':INT32) - (LDB-REF22395 ':INT32) (LDVL-REF22397 ':INT32) - (LDVR-REF22399 ':INT32) (MM-REF22402 ':INT32) - (M-REF22403 ':INT32) (LWORK-REF22405 ':INT32) - (INFO-REF22407 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22391 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22393 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22395 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22397 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22399 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22402 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22403 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22405 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22407 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22390 SELECT) - (A-REF22392 A) (B-REF22394 B) - (VL-REF22396 VL) (VR-REF22398 VR) - (S-REF22400 S) (DIF-REF22401 DIF) - (WORK-REF22404 WORK) - (IWORK-REF22406 IWORK)) - (%%ZTGSNA JOB HOWMNY SELECT-REF22390 N-REF22391 A-REF22392 LDA-REF22393 - B-REF22394 LDB-REF22395 VL-REF22396 LDVL-REF22397 VR-REF22398 - LDVR-REF22399 S-REF22400 DIF-REF22401 MM-REF22402 M-REF22403 - WORK-REF22404 LWORK-REF22405 IWORK-REF22406 INFO-REF22407)))) - -(CFFI:DEFCFUN ("ztgsy2_" %%ZTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22418 ':INT32) (LDA-REF22420 ':INT32) + (LDB-REF22422 ':INT32) (LDVL-REF22424 ':INT32) + (LDVR-REF22426 ':INT32) (MM-REF22429 ':INT32) + (M-REF22430 ':INT32) (LWORK-REF22432 ':INT32) + (INFO-REF22434 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22418 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22420 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22422 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22424 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22426 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22429 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22430 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22432 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22434 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22417 SELECT) + (A-REF22419 A) (B-REF22421 B) + (VL-REF22423 VL) (VR-REF22425 VR) + (S-REF22427 S) (DIF-REF22428 DIF) + (WORK-REF22431 WORK) + (IWORK-REF22433 IWORK)) + (%%ZTGSNA JOB HOWMNY SELECT-REF22417 N-REF22418 A-REF22419 LDA-REF22420 + B-REF22421 LDB-REF22422 VL-REF22423 LDVL-REF22424 VR-REF22425 + LDVR-REF22426 S-REF22427 DIF-REF22428 MM-REF22429 M-REF22430 + WORK-REF22431 LWORK-REF22432 IWORK-REF22433 INFO-REF22434)))) + +(CFFI:DEFCFUN ("ztgsy2_" %%ZTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (IJOB :POINTER) @@ -9651,37 +9662,36 @@ (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22409 ':INT32) (M-REF22410 ':INT32) - (N-REF22411 ':INT32) (LDA-REF22413 ':INT32) - (LDB-REF22415 ':INT32) (LDC-REF22417 ':INT32) - (LDD-REF22419 ':INT32) (LDE-REF22421 ':INT32) - (LDF-REF22423 ':INT32) (SCALE-REF22424 ':DOUBLE) - (RDSUM-REF22425 ':DOUBLE) - (RDSCAL-REF22426 ':DOUBLE) - (INFO-REF22427 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22409 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22410 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22411 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22413 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22415 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22417 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF22419 :INT32) LDD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF22421 :INT32) LDE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF22423 :INT32) LDF) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22424 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF22425 :DOUBLE) RDSUM) - (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF22426 :DOUBLE) RDSCAL) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22427 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22412 A) (B-REF22414 B) - (C-REF22416 C) (D-REF22418 D) - (E-REF22420 E) (F-REF22422 F)) - (%%ZTGSY2 TRANS IJOB-REF22409 M-REF22410 N-REF22411 A-REF22412 - LDA-REF22413 B-REF22414 LDB-REF22415 C-REF22416 LDC-REF22417 - D-REF22418 LDD-REF22419 E-REF22420 LDE-REF22421 F-REF22422 - LDF-REF22423 SCALE-REF22424 RDSUM-REF22425 RDSCAL-REF22426 - INFO-REF22427)))) - -(CFFI:DEFCFUN ("ztgsyl_" %%ZTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22436 ':INT32) (M-REF22437 ':INT32) + (N-REF22438 ':INT32) (LDA-REF22440 ':INT32) + (LDB-REF22442 ':INT32) (LDC-REF22444 ':INT32) + (LDD-REF22446 ':INT32) (LDE-REF22448 ':INT32) + (LDF-REF22450 ':INT32) (SCALE-REF22451 ':DOUBLE) + (RDSUM-REF22452 ':DOUBLE) + (RDSCAL-REF22453 ':DOUBLE) + (INFO-REF22454 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22436 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22437 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22438 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22440 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22442 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22444 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF22446 :INT32) LDD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF22448 :INT32) LDE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF22450 :INT32) LDF) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22451 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF22452 :DOUBLE) RDSUM) + (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF22453 :DOUBLE) RDSCAL) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22454 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22439 A) (B-REF22441 B) + (C-REF22443 C) (D-REF22445 D) + (E-REF22447 E) (F-REF22449 F)) + (%%ZTGSY2 TRANS IJOB-REF22436 M-REF22437 N-REF22438 A-REF22439 + LDA-REF22440 B-REF22441 LDB-REF22442 C-REF22443 LDC-REF22444 D-REF22445 + LDD-REF22446 E-REF22447 LDE-REF22448 F-REF22449 LDF-REF22450 + SCALE-REF22451 RDSUM-REF22452 RDSCAL-REF22453 INFO-REF22454)))) + +(CFFI:DEFCFUN ("ztgsyl_" %%ZTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (IJOB :POINTER) @@ -9763,38 +9773,38 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22429 ':INT32) (M-REF22430 ':INT32) - (N-REF22431 ':INT32) (LDA-REF22433 ':INT32) - (LDB-REF22435 ':INT32) (LDC-REF22437 ':INT32) - (LDD-REF22439 ':INT32) (LDE-REF22441 ':INT32) - (LDF-REF22443 ':INT32) (SCALE-REF22444 ':DOUBLE) - (DIF-REF22445 ':DOUBLE) (LWORK-REF22447 ':INT32) - (INFO-REF22449 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22429 :INT32) IJOB) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22430 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22431 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22433 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22435 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22437 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF22439 :INT32) LDD) - (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF22441 :INT32) LDE) - (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF22443 :INT32) LDF) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22444 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF22445 :DOUBLE) DIF) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22447 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22449 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22432 A) (B-REF22434 B) - (C-REF22436 C) (D-REF22438 D) - (E-REF22440 E) (F-REF22442 F) - (WORK-REF22446 WORK) - (IWORK-REF22448 IWORK)) - (%%ZTGSYL TRANS IJOB-REF22429 M-REF22430 N-REF22431 A-REF22432 - LDA-REF22433 B-REF22434 LDB-REF22435 C-REF22436 LDC-REF22437 - D-REF22438 LDD-REF22439 E-REF22440 LDE-REF22441 F-REF22442 - LDF-REF22443 SCALE-REF22444 DIF-REF22445 WORK-REF22446 - LWORK-REF22447 IWORK-REF22448 INFO-REF22449)))) - -(CFFI:DEFCFUN ("ztpcon_" %%ZTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22456 ':INT32) (M-REF22457 ':INT32) + (N-REF22458 ':INT32) (LDA-REF22460 ':INT32) + (LDB-REF22462 ':INT32) (LDC-REF22464 ':INT32) + (LDD-REF22466 ':INT32) (LDE-REF22468 ':INT32) + (LDF-REF22470 ':INT32) (SCALE-REF22471 ':DOUBLE) + (DIF-REF22472 ':DOUBLE) (LWORK-REF22474 ':INT32) + (INFO-REF22476 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22456 :INT32) IJOB) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22457 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22458 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22460 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22462 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22464 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF22466 :INT32) LDD) + (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF22468 :INT32) LDE) + (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF22470 :INT32) LDF) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22471 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF22472 :DOUBLE) DIF) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22474 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22476 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22459 A) (B-REF22461 B) + (C-REF22463 C) (D-REF22465 D) + (E-REF22467 E) (F-REF22469 F) + (WORK-REF22473 WORK) + (IWORK-REF22475 IWORK)) + (%%ZTGSYL TRANS IJOB-REF22456 M-REF22457 N-REF22458 A-REF22459 + LDA-REF22460 B-REF22461 LDB-REF22462 C-REF22463 LDC-REF22464 D-REF22465 + LDD-REF22466 E-REF22467 LDE-REF22468 F-REF22469 LDF-REF22470 + SCALE-REF22471 DIF-REF22472 WORK-REF22473 LWORK-REF22474 IWORK-REF22475 + INFO-REF22476)))) + +(CFFI:DEFCFUN ("ztpcon_" %%ZTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -9827,18 +9837,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22453 ':INT32) (RCOND-REF22455 ':DOUBLE) - (INFO-REF22458 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22453 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22455 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22458 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22454 AP) - (WORK-REF22456 WORK) - (RWORK-REF22457 RWORK)) - (%%ZTPCON NORM UPLO DIAG N-REF22453 AP-REF22454 RCOND-REF22455 - WORK-REF22456 RWORK-REF22457 INFO-REF22458)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22480 ':INT32) (RCOND-REF22482 ':DOUBLE) + (INFO-REF22485 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22480 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22482 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22485 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22481 AP) + (WORK-REF22483 WORK) + (RWORK-REF22484 RWORK)) + (%%ZTPCON NORM UPLO DIAG N-REF22480 AP-REF22481 RCOND-REF22482 + WORK-REF22483 RWORK-REF22484 INFO-REF22485)))) -(CFFI:DEFCFUN ("ztplqt_" %%ZTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztplqt_" %%ZTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -9883,25 +9893,26 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22459 ':INT32) (N-REF22460 ':INT32) - (L-REF22461 ':INT32) (MB-REF22462 ':INT32) - (LDA-REF22464 ':INT32) (LDB-REF22466 ':INT32) - (LDT-REF22468 ':INT32) (INFO-REF22470 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22459 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22460 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22461 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF22462 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22464 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22466 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22468 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22470 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22463 A) (B-REF22465 B) - (T-REF22467 T) (WORK-REF22469 WORK)) - (%%ZTPLQT M-REF22459 N-REF22460 L-REF22461 MB-REF22462 A-REF22463 - LDA-REF22464 B-REF22465 LDB-REF22466 T-REF22467 LDT-REF22468 - WORK-REF22469 INFO-REF22470)))) - -(CFFI:DEFCFUN ("ztplqt2_" %%ZTPLQT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22486 ':INT32) (N-REF22487 ':INT32) + (L-REF22488 ':INT32) (MB-REF22489 ':INT32) + (LDA-REF22491 ':INT32) (LDB-REF22493 ':INT32) + (LDT-REF22495 ':INT32) (INFO-REF22497 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22486 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22487 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22488 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF22489 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22491 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22493 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22495 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22497 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22490 A) (B-REF22492 B) + (T-REF22494 T) (WORK-REF22496 WORK)) + (%%ZTPLQT M-REF22486 N-REF22487 L-REF22488 MB-REF22489 A-REF22490 + LDA-REF22491 B-REF22492 LDB-REF22493 T-REF22494 LDT-REF22495 + WORK-REF22496 INFO-REF22497)))) + +(CFFI:DEFCFUN ("ztplqt2_" %%ZTPLQT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -9938,24 +9949,24 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22471 ':INT32) (N-REF22472 ':INT32) - (L-REF22473 ':INT32) (LDA-REF22475 ':INT32) - (LDB-REF22477 ':INT32) (LDT-REF22479 ':INT32) - (INFO-REF22480 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22471 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22472 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22473 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22475 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22477 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22479 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22480 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22474 A) (B-REF22476 B) - (T-REF22478 T)) - (%%ZTPLQT2 M-REF22471 N-REF22472 L-REF22473 A-REF22474 LDA-REF22475 - B-REF22476 LDB-REF22477 T-REF22478 LDT-REF22479 - INFO-REF22480)))) - -(CFFI:DEFCFUN ("ztpmlqt_" %%ZTPMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22498 ':INT32) (N-REF22499 ':INT32) + (L-REF22500 ':INT32) (LDA-REF22502 ':INT32) + (LDB-REF22504 ':INT32) (LDT-REF22506 ':INT32) + (INFO-REF22507 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22498 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22499 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22500 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22502 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22504 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22506 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22507 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22501 A) (B-REF22503 B) + (T-REF22505 T)) + (%%ZTPLQT2 M-REF22498 N-REF22499 L-REF22500 A-REF22501 LDA-REF22502 + B-REF22503 LDB-REF22504 T-REF22505 LDT-REF22506 INFO-REF22507)))) + +(CFFI:DEFCFUN ("ztpmlqt_" %%ZTPMLQT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -10015,30 +10026,30 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22483 ':INT32) (N-REF22484 ':INT32) - (K-REF22485 ':INT32) (L-REF22486 ':INT32) - (MB-REF22487 ':INT32) (LDV-REF22489 ':INT32) - (LDT-REF22491 ':INT32) (LDA-REF22493 ':INT32) - (LDB-REF22495 ':INT32) (INFO-REF22497 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22483 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22484 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22485 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22486 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF22487 :INT32) MB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22489 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22491 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22493 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22495 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22497 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22488 V) (T-REF22490 T) - (A-REF22492 A) (B-REF22494 B) - (WORK-REF22496 WORK)) - (%%ZTPMLQT SIDE TRANS M-REF22483 N-REF22484 K-REF22485 L-REF22486 - MB-REF22487 V-REF22488 LDV-REF22489 T-REF22490 LDT-REF22491 - A-REF22492 LDA-REF22493 B-REF22494 LDB-REF22495 WORK-REF22496 - INFO-REF22497)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22510 ':INT32) (N-REF22511 ':INT32) + (K-REF22512 ':INT32) (L-REF22513 ':INT32) + (MB-REF22514 ':INT32) (LDV-REF22516 ':INT32) + (LDT-REF22518 ':INT32) (LDA-REF22520 ':INT32) + (LDB-REF22522 ':INT32) (INFO-REF22524 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22510 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22511 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22512 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22513 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF22514 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22516 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22518 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22520 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22522 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22524 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22515 V) (T-REF22517 T) + (A-REF22519 A) (B-REF22521 B) + (WORK-REF22523 WORK)) + (%%ZTPMLQT SIDE TRANS M-REF22510 N-REF22511 K-REF22512 L-REF22513 + MB-REF22514 V-REF22515 LDV-REF22516 T-REF22517 LDT-REF22518 A-REF22519 + LDA-REF22520 B-REF22521 LDB-REF22522 WORK-REF22523 INFO-REF22524)))) -(CFFI:DEFCFUN ("ztpmqrt_" %%ZTPMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztpmqrt_" %%ZTPMQRT :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -10098,30 +10109,29 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22500 ':INT32) (N-REF22501 ':INT32) - (K-REF22502 ':INT32) (L-REF22503 ':INT32) - (NB-REF22504 ':INT32) (LDV-REF22506 ':INT32) - (LDT-REF22508 ':INT32) (LDA-REF22510 ':INT32) - (LDB-REF22512 ':INT32) (INFO-REF22514 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22500 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22501 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22502 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22503 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22504 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22506 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22508 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22510 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22512 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22514 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22505 V) (T-REF22507 T) - (A-REF22509 A) (B-REF22511 B) - (WORK-REF22513 WORK)) - (%%ZTPMQRT SIDE TRANS M-REF22500 N-REF22501 K-REF22502 L-REF22503 - NB-REF22504 V-REF22505 LDV-REF22506 T-REF22507 LDT-REF22508 - A-REF22509 LDA-REF22510 B-REF22511 LDB-REF22512 WORK-REF22513 - INFO-REF22514)))) - -(CFFI:DEFCFUN ("ztpqrt_" %%ZTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22527 ':INT32) (N-REF22528 ':INT32) + (K-REF22529 ':INT32) (L-REF22530 ':INT32) + (NB-REF22531 ':INT32) (LDV-REF22533 ':INT32) + (LDT-REF22535 ':INT32) (LDA-REF22537 ':INT32) + (LDB-REF22539 ':INT32) (INFO-REF22541 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22527 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22528 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22529 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22530 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22531 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22533 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22535 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22537 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22539 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22541 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22532 V) (T-REF22534 T) + (A-REF22536 A) (B-REF22538 B) + (WORK-REF22540 WORK)) + (%%ZTPMQRT SIDE TRANS M-REF22527 N-REF22528 K-REF22529 L-REF22530 + NB-REF22531 V-REF22532 LDV-REF22533 T-REF22534 LDT-REF22535 A-REF22536 + LDA-REF22537 B-REF22538 LDB-REF22539 WORK-REF22540 INFO-REF22541)))) + +(CFFI:DEFCFUN ("ztpqrt_" %%ZTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -10166,25 +10176,26 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22515 ':INT32) (N-REF22516 ':INT32) - (L-REF22517 ':INT32) (NB-REF22518 ':INT32) - (LDA-REF22520 ':INT32) (LDB-REF22522 ':INT32) - (LDT-REF22524 ':INT32) (INFO-REF22526 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22515 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22516 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22517 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22518 :INT32) NB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22520 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22522 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22524 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22526 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22519 A) (B-REF22521 B) - (T-REF22523 T) (WORK-REF22525 WORK)) - (%%ZTPQRT M-REF22515 N-REF22516 L-REF22517 NB-REF22518 A-REF22519 - LDA-REF22520 B-REF22521 LDB-REF22522 T-REF22523 LDT-REF22524 - WORK-REF22525 INFO-REF22526)))) - -(CFFI:DEFCFUN ("ztpqrt2_" %%ZTPQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22542 ':INT32) (N-REF22543 ':INT32) + (L-REF22544 ':INT32) (NB-REF22545 ':INT32) + (LDA-REF22547 ':INT32) (LDB-REF22549 ':INT32) + (LDT-REF22551 ':INT32) (INFO-REF22553 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22542 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22543 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22544 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22545 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22547 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22549 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22551 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22553 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22546 A) (B-REF22548 B) + (T-REF22550 T) (WORK-REF22552 WORK)) + (%%ZTPQRT M-REF22542 N-REF22543 L-REF22544 NB-REF22545 A-REF22546 + LDA-REF22547 B-REF22548 LDB-REF22549 T-REF22550 LDT-REF22551 + WORK-REF22552 INFO-REF22553)))) + +(CFFI:DEFCFUN ("ztpqrt2_" %%ZTPQRT2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -10221,24 +10232,23 @@ T) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22527 ':INT32) (N-REF22528 ':INT32) - (L-REF22529 ':INT32) (LDA-REF22531 ':INT32) - (LDB-REF22533 ':INT32) (LDT-REF22535 ':INT32) - (INFO-REF22536 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22527 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22528 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22529 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22531 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22533 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22535 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22536 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22530 A) (B-REF22532 B) - (T-REF22534 T)) - (%%ZTPQRT2 M-REF22527 N-REF22528 L-REF22529 A-REF22530 LDA-REF22531 - B-REF22532 LDB-REF22533 T-REF22534 LDT-REF22535 - INFO-REF22536)))) - -(CFFI:DEFCFUN ("ztprfb_" %%ZTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22554 ':INT32) (N-REF22555 ':INT32) + (L-REF22556 ':INT32) (LDA-REF22558 ':INT32) + (LDB-REF22560 ':INT32) (LDT-REF22562 ':INT32) + (INFO-REF22563 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22554 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22555 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22556 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22558 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22560 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22562 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22563 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22557 A) (B-REF22559 B) + (T-REF22561 T)) + (%%ZTPQRT2 M-REF22554 N-REF22555 L-REF22556 A-REF22557 LDA-REF22558 + B-REF22559 LDB-REF22560 T-REF22561 LDT-REF22562 INFO-REF22563)))) + +(CFFI:DEFCFUN ("ztprfb_" %%ZTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -10301,29 +10311,28 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22541 ':INT32) (N-REF22542 ':INT32) - (K-REF22543 ':INT32) (L-REF22544 ':INT32) - (LDV-REF22546 ':INT32) (LDT-REF22548 ':INT32) - (LDA-REF22550 ':INT32) (LDB-REF22552 ':INT32) - (LDWORK-REF22554 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22541 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22542 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22543 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22544 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22546 :INT32) LDV) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22548 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22550 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22552 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF22554 :INT32) LDWORK) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22545 V) (T-REF22547 T) - (A-REF22549 A) (B-REF22551 B) - (WORK-REF22553 WORK)) - (%%ZTPRFB SIDE TRANS DIRECT STOREV M-REF22541 N-REF22542 K-REF22543 - L-REF22544 V-REF22545 LDV-REF22546 T-REF22547 LDT-REF22548 - A-REF22549 LDA-REF22550 B-REF22551 LDB-REF22552 WORK-REF22553 - LDWORK-REF22554)))) - -(CFFI:DEFCFUN ("ztprfs_" %%ZTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22568 ':INT32) (N-REF22569 ':INT32) + (K-REF22570 ':INT32) (L-REF22571 ':INT32) + (LDV-REF22573 ':INT32) (LDT-REF22575 ':INT32) + (LDA-REF22577 ':INT32) (LDB-REF22579 ':INT32) + (LDWORK-REF22581 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22568 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22569 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22570 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22571 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22573 :INT32) LDV) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22575 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22577 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22579 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF22581 :INT32) LDWORK) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22572 V) (T-REF22574 T) + (A-REF22576 A) (B-REF22578 B) + (WORK-REF22580 WORK)) + (%%ZTPRFB SIDE TRANS DIRECT STOREV M-REF22568 N-REF22569 K-REF22570 + L-REF22571 V-REF22572 LDV-REF22573 T-REF22574 LDT-REF22575 A-REF22576 + LDA-REF22577 B-REF22578 LDB-REF22579 WORK-REF22580 LDWORK-REF22581)))) + +(CFFI:DEFCFUN ("ztprfs_" %%ZTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10382,24 +10391,24 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22558 ':INT32) (NRHS-REF22559 ':INT32) - (LDB-REF22562 ':INT32) (LDX-REF22564 ':INT32) - (INFO-REF22569 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22558 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22559 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22562 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22564 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22569 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22560 AP) (B-REF22561 B) - (X-REF22563 X) (FERR-REF22565 FERR) - (BERR-REF22566 BERR) - (WORK-REF22567 WORK) - (RWORK-REF22568 RWORK)) - (%%ZTPRFS UPLO TRANS DIAG N-REF22558 NRHS-REF22559 AP-REF22560 B-REF22561 - LDB-REF22562 X-REF22563 LDX-REF22564 FERR-REF22565 - BERR-REF22566 WORK-REF22567 RWORK-REF22568 INFO-REF22569)))) - -(CFFI:DEFCFUN ("ztptri_" %%ZTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22585 ':INT32) (NRHS-REF22586 ':INT32) + (LDB-REF22589 ':INT32) (LDX-REF22591 ':INT32) + (INFO-REF22596 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22585 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22586 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22589 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22591 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22596 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22587 AP) (B-REF22588 B) + (X-REF22590 X) (FERR-REF22592 FERR) + (BERR-REF22593 BERR) + (WORK-REF22594 WORK) + (RWORK-REF22595 RWORK)) + (%%ZTPRFS UPLO TRANS DIAG N-REF22585 NRHS-REF22586 AP-REF22587 B-REF22588 + LDB-REF22589 X-REF22590 LDX-REF22591 FERR-REF22592 BERR-REF22593 + WORK-REF22594 RWORK-REF22595 INFO-REF22596)))) + +(CFFI:DEFCFUN ("ztptri_" %%ZTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -10418,13 +10427,13 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22572 ':INT32) (INFO-REF22574 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22572 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22574 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22573 AP)) - (%%ZTPTRI UPLO DIAG N-REF22572 AP-REF22573 INFO-REF22574)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22599 ':INT32) (INFO-REF22601 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22599 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22601 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22600 AP)) + (%%ZTPTRI UPLO DIAG N-REF22599 AP-REF22600 INFO-REF22601)))) -(CFFI:DEFCFUN ("ztptrs_" %%ZTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztptrs_" %%ZTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10455,17 +10464,17 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22578 ':INT32) (NRHS-REF22579 ':INT32) - (LDB-REF22582 ':INT32) (INFO-REF22583 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22578 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22579 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22582 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22583 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22580 AP) (B-REF22581 B)) - (%%ZTPTRS UPLO TRANS DIAG N-REF22578 NRHS-REF22579 AP-REF22580 B-REF22581 - LDB-REF22582 INFO-REF22583)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22605 ':INT32) (NRHS-REF22606 ':INT32) + (LDB-REF22609 ':INT32) (INFO-REF22610 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22605 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22606 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22609 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22610 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22607 AP) (B-REF22608 B)) + (%%ZTPTRS UPLO TRANS DIAG N-REF22605 NRHS-REF22606 AP-REF22607 B-REF22608 + LDB-REF22609 INFO-REF22610)))) -(CFFI:DEFCFUN ("ztpttf_" %%ZTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztpttf_" %%ZTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -10490,14 +10499,14 @@ (COMMON-LISP:*)) ARF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22586 ':INT32) (INFO-REF22589 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22586 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22589 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22587 AP) (ARF-REF22588 ARF)) - (%%ZTPTTF TRANSR UPLO N-REF22586 AP-REF22587 ARF-REF22588 - INFO-REF22589)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22613 ':INT32) (INFO-REF22616 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22613 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22616 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22614 AP) (ARF-REF22615 ARF)) + (%%ZTPTTF TRANSR UPLO N-REF22613 AP-REF22614 ARF-REF22615 + INFO-REF22616)))) -(CFFI:DEFCFUN ("ztpttr_" %%ZTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztpttr_" %%ZTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -10522,16 +10531,16 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22591 ':INT32) (LDA-REF22594 ':INT32) - (INFO-REF22595 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22591 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22594 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22595 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22592 AP) (A-REF22593 A)) - (%%ZTPTTR UPLO N-REF22591 AP-REF22592 A-REF22593 LDA-REF22594 - INFO-REF22595)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22618 ':INT32) (LDA-REF22621 ':INT32) + (INFO-REF22622 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22618 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22621 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22622 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22619 AP) (A-REF22620 A)) + (%%ZTPTTR UPLO N-REF22618 AP-REF22619 A-REF22620 LDA-REF22621 + INFO-REF22622)))) -(CFFI:DEFCFUN ("ztrcon_" %%ZTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztrcon_" %%ZTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (NORM :STRING) (UPLO :STRING) @@ -10566,18 +10575,18 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22599 ':INT32) (LDA-REF22601 ':INT32) - (RCOND-REF22602 ':DOUBLE) (INFO-REF22605 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22599 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22601 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22602 :DOUBLE) RCOND) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22605 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22600 A) (WORK-REF22603 WORK) - (RWORK-REF22604 RWORK)) - (%%ZTRCON NORM UPLO DIAG N-REF22599 A-REF22600 LDA-REF22601 - RCOND-REF22602 WORK-REF22603 RWORK-REF22604 INFO-REF22605)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22626 ':INT32) (LDA-REF22628 ':INT32) + (RCOND-REF22629 ':DOUBLE) (INFO-REF22632 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22626 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22628 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22629 :DOUBLE) RCOND) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22632 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22627 A) (WORK-REF22630 WORK) + (RWORK-REF22631 RWORK)) + (%%ZTRCON NORM UPLO DIAG N-REF22626 A-REF22627 LDA-REF22628 + RCOND-REF22629 WORK-REF22630 RWORK-REF22631 INFO-REF22632)))) -(CFFI:DEFCFUN ("ztrevc_" %%ZTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztrevc_" %%ZTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -10635,27 +10644,28 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22609 ':INT32) (LDT-REF22611 ':INT32) - (LDVL-REF22613 ':INT32) (LDVR-REF22615 ':INT32) - (MM-REF22616 ':INT32) (M-REF22617 ':INT32) - (INFO-REF22620 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22609 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22611 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22613 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22615 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22616 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22617 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22620 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22608 SELECT) - (T-REF22610 T) (VL-REF22612 VL) - (VR-REF22614 VR) - (WORK-REF22618 WORK) - (RWORK-REF22619 RWORK)) - (%%ZTREVC SIDE HOWMNY SELECT-REF22608 N-REF22609 T-REF22610 LDT-REF22611 - VL-REF22612 LDVL-REF22613 VR-REF22614 LDVR-REF22615 MM-REF22616 - M-REF22617 WORK-REF22618 RWORK-REF22619 INFO-REF22620)))) - -(CFFI:DEFCFUN ("ztrevc3_" %%ZTREVC3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22636 ':INT32) (LDT-REF22638 ':INT32) + (LDVL-REF22640 ':INT32) (LDVR-REF22642 ':INT32) + (MM-REF22643 ':INT32) (M-REF22644 ':INT32) + (INFO-REF22647 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22636 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22638 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22640 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22642 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22643 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22644 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22647 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22635 SELECT) + (T-REF22637 T) (VL-REF22639 VL) + (VR-REF22641 VR) + (WORK-REF22645 WORK) + (RWORK-REF22646 RWORK)) + (%%ZTREVC SIDE HOWMNY SELECT-REF22635 N-REF22636 T-REF22637 LDT-REF22638 + VL-REF22639 LDVL-REF22640 VR-REF22641 LDVR-REF22642 MM-REF22643 + M-REF22644 WORK-REF22645 RWORK-REF22646 INFO-REF22647)))) + +(CFFI:DEFCFUN ("ztrevc3_" %%ZTREVC3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (HOWMNY :STRING) @@ -10717,31 +10727,31 @@ RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22624 ':INT32) (LDT-REF22626 ':INT32) - (LDVL-REF22628 ':INT32) (LDVR-REF22630 ':INT32) - (MM-REF22631 ':INT32) (M-REF22632 ':INT32) - (LWORK-REF22634 ':INT32) - (LRWORK-REF22636 ':INT32) (INFO-REF22637 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22624 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22626 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22628 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22630 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22631 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22632 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22634 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22636 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22637 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22623 SELECT) - (T-REF22625 T) (VL-REF22627 VL) - (VR-REF22629 VR) - (WORK-REF22633 WORK) - (RWORK-REF22635 RWORK)) - (%%ZTREVC3 SIDE HOWMNY SELECT-REF22623 N-REF22624 T-REF22625 LDT-REF22626 - VL-REF22627 LDVL-REF22628 VR-REF22629 LDVR-REF22630 - MM-REF22631 M-REF22632 WORK-REF22633 LWORK-REF22634 - RWORK-REF22635 LRWORK-REF22636 INFO-REF22637)))) - -(CFFI:DEFCFUN ("ztrexc_" %%ZTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22651 ':INT32) (LDT-REF22653 ':INT32) + (LDVL-REF22655 ':INT32) (LDVR-REF22657 ':INT32) + (MM-REF22658 ':INT32) (M-REF22659 ':INT32) + (LWORK-REF22661 ':INT32) + (LRWORK-REF22663 ':INT32) (INFO-REF22664 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22651 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22653 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22655 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22657 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22658 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22659 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22661 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22663 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22664 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22650 SELECT) + (T-REF22652 T) (VL-REF22654 VL) + (VR-REF22656 VR) + (WORK-REF22660 WORK) + (RWORK-REF22662 RWORK)) + (%%ZTREVC3 SIDE HOWMNY SELECT-REF22650 N-REF22651 T-REF22652 LDT-REF22653 + VL-REF22654 LDVL-REF22655 VR-REF22656 LDVR-REF22657 MM-REF22658 + M-REF22659 WORK-REF22660 LWORK-REF22661 RWORK-REF22662 LRWORK-REF22663 + INFO-REF22664)))) + +(CFFI:DEFCFUN ("ztrexc_" %%ZTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (COMPQ :STRING) (N :POINTER) @@ -10772,20 +10782,20 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22639 ':INT32) (LDT-REF22641 ':INT32) - (LDQ-REF22643 ':INT32) (IFST-REF22644 ':INT32) - (ILST-REF22645 ':INT32) (INFO-REF22646 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22639 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22641 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22643 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF22644 :INT32) IFST) - (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF22645 :INT32) ILST) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22646 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF22640 T) (Q-REF22642 Q)) - (%%ZTREXC COMPQ N-REF22639 T-REF22640 LDT-REF22641 Q-REF22642 - LDQ-REF22643 IFST-REF22644 ILST-REF22645 INFO-REF22646)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22666 ':INT32) (LDT-REF22668 ':INT32) + (LDQ-REF22670 ':INT32) (IFST-REF22671 ':INT32) + (ILST-REF22672 ':INT32) (INFO-REF22673 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22666 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22668 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22670 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF22671 :INT32) IFST) + (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF22672 :INT32) ILST) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22673 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF22667 T) (Q-REF22669 Q)) + (%%ZTREXC COMPQ N-REF22666 T-REF22667 LDT-REF22668 Q-REF22669 + LDQ-REF22670 IFST-REF22671 ILST-REF22672 INFO-REF22673)))) -(CFFI:DEFCFUN ("ztrrfs_" %%ZTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztrrfs_" %%ZTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -10846,26 +10856,26 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22650 ':INT32) (NRHS-REF22651 ':INT32) - (LDA-REF22653 ':INT32) (LDB-REF22655 ':INT32) - (LDX-REF22657 ':INT32) (INFO-REF22662 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22650 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22651 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22653 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22655 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22657 :INT32) LDX) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22662 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22652 A) (B-REF22654 B) - (X-REF22656 X) (FERR-REF22658 FERR) - (BERR-REF22659 BERR) - (WORK-REF22660 WORK) - (RWORK-REF22661 RWORK)) - (%%ZTRRFS UPLO TRANS DIAG N-REF22650 NRHS-REF22651 A-REF22652 - LDA-REF22653 B-REF22654 LDB-REF22655 X-REF22656 LDX-REF22657 - FERR-REF22658 BERR-REF22659 WORK-REF22660 RWORK-REF22661 - INFO-REF22662)))) - -(CFFI:DEFCFUN ("ztrsen_" %%ZTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22677 ':INT32) (NRHS-REF22678 ':INT32) + (LDA-REF22680 ':INT32) (LDB-REF22682 ':INT32) + (LDX-REF22684 ':INT32) (INFO-REF22689 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22677 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22678 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22680 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22682 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22684 :INT32) LDX) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22689 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22679 A) (B-REF22681 B) + (X-REF22683 X) (FERR-REF22685 FERR) + (BERR-REF22686 BERR) + (WORK-REF22687 WORK) + (RWORK-REF22688 RWORK)) + (%%ZTRRFS UPLO TRANS DIAG N-REF22677 NRHS-REF22678 A-REF22679 + LDA-REF22680 B-REF22681 LDB-REF22682 X-REF22683 LDX-REF22684 + FERR-REF22685 BERR-REF22686 WORK-REF22687 RWORK-REF22688 + INFO-REF22689)))) + +(CFFI:DEFCFUN ("ztrsen_" %%ZTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (COMPQ :STRING) @@ -10920,26 +10930,26 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22666 ':INT32) (LDT-REF22668 ':INT32) - (LDQ-REF22670 ':INT32) (M-REF22672 ':INT32) - (S-REF22673 ':DOUBLE) (SEP-REF22674 ':DOUBLE) - (LWORK-REF22676 ':INT32) (INFO-REF22677 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22666 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22668 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22670 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22672 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF S-REF22673 :DOUBLE) S) - (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF22674 :DOUBLE) SEP) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22676 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22677 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22665 SELECT) - (T-REF22667 T) (Q-REF22669 Q) - (W-REF22671 W) (WORK-REF22675 WORK)) - (%%ZTRSEN JOB COMPQ SELECT-REF22665 N-REF22666 T-REF22667 LDT-REF22668 - Q-REF22669 LDQ-REF22670 W-REF22671 M-REF22672 S-REF22673 - SEP-REF22674 WORK-REF22675 LWORK-REF22676 INFO-REF22677)))) - -(CFFI:DEFCFUN ("ztrsna_" %%ZTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22693 ':INT32) (LDT-REF22695 ':INT32) + (LDQ-REF22697 ':INT32) (M-REF22699 ':INT32) + (S-REF22700 ':DOUBLE) (SEP-REF22701 ':DOUBLE) + (LWORK-REF22703 ':INT32) (INFO-REF22704 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22693 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22695 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22697 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22699 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF S-REF22700 :DOUBLE) S) + (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF22701 :DOUBLE) SEP) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22703 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22704 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22692 SELECT) + (T-REF22694 T) (Q-REF22696 Q) + (W-REF22698 W) (WORK-REF22702 WORK)) + (%%ZTRSEN JOB COMPQ SELECT-REF22692 N-REF22693 T-REF22694 LDT-REF22695 + Q-REF22696 LDQ-REF22697 W-REF22698 M-REF22699 S-REF22700 SEP-REF22701 + WORK-REF22702 LWORK-REF22703 INFO-REF22704)))) + +(CFFI:DEFCFUN ("ztrsna_" %%ZTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOB :STRING) (HOWMNY :STRING) @@ -11006,30 +11016,30 @@ (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22681 ':INT32) (LDT-REF22683 ':INT32) - (LDVL-REF22685 ':INT32) (LDVR-REF22687 ':INT32) - (MM-REF22690 ':INT32) (M-REF22691 ':INT32) - (LDWORK-REF22693 ':INT32) (INFO-REF22695 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22681 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22683 :INT32) LDT) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22685 :INT32) LDVL) - (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22687 :INT32) LDVR) - (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22690 :INT32) MM) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22691 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF22693 :INT32) LDWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22695 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22680 SELECT) - (T-REF22682 T) (VL-REF22684 VL) - (VR-REF22686 VR) (S-REF22688 S) - (SEP-REF22689 SEP) - (WORK-REF22692 WORK) - (RWORK-REF22694 RWORK)) - (%%ZTRSNA JOB HOWMNY SELECT-REF22680 N-REF22681 T-REF22682 LDT-REF22683 - VL-REF22684 LDVL-REF22685 VR-REF22686 LDVR-REF22687 S-REF22688 - SEP-REF22689 MM-REF22690 M-REF22691 WORK-REF22692 - LDWORK-REF22693 RWORK-REF22694 INFO-REF22695)))) - -(CFFI:DEFCFUN ("ztrsyl_" %%ZTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22708 ':INT32) (LDT-REF22710 ':INT32) + (LDVL-REF22712 ':INT32) (LDVR-REF22714 ':INT32) + (MM-REF22717 ':INT32) (M-REF22718 ':INT32) + (LDWORK-REF22720 ':INT32) (INFO-REF22722 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22708 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22710 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22712 :INT32) LDVL) + (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22714 :INT32) LDVR) + (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22717 :INT32) MM) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22718 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF22720 :INT32) LDWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22722 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22707 SELECT) + (T-REF22709 T) (VL-REF22711 VL) + (VR-REF22713 VR) (S-REF22715 S) + (SEP-REF22716 SEP) + (WORK-REF22719 WORK) + (RWORK-REF22721 RWORK)) + (%%ZTRSNA JOB HOWMNY SELECT-REF22707 N-REF22708 T-REF22709 LDT-REF22710 + VL-REF22711 LDVL-REF22712 VR-REF22713 LDVR-REF22714 S-REF22715 + SEP-REF22716 MM-REF22717 M-REF22718 WORK-REF22719 LDWORK-REF22720 + RWORK-REF22721 INFO-REF22722)))) + +(CFFI:DEFCFUN ("ztrsyl_" %%ZTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANA :STRING) (TRANB :STRING) @@ -11072,25 +11082,25 @@ (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC) (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF22698 ':INT32) (M-REF22699 ':INT32) - (N-REF22700 ':INT32) (LDA-REF22702 ':INT32) - (LDB-REF22704 ':INT32) (LDC-REF22706 ':INT32) - (SCALE-REF22707 ':DOUBLE) (INFO-REF22708 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF22698 :INT32) ISGN) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22699 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22700 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22702 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22704 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22706 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22707 :DOUBLE) SCALE) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22708 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22701 A) (B-REF22703 B) - (C-REF22705 C)) - (%%ZTRSYL TRANA TRANB ISGN-REF22698 M-REF22699 N-REF22700 A-REF22701 - LDA-REF22702 B-REF22703 LDB-REF22704 C-REF22705 LDC-REF22706 - SCALE-REF22707 INFO-REF22708)))) - -(CFFI:DEFCFUN ("ztrti2_" %%ZTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF22725 ':INT32) (M-REF22726 ':INT32) + (N-REF22727 ':INT32) (LDA-REF22729 ':INT32) + (LDB-REF22731 ':INT32) (LDC-REF22733 ':INT32) + (SCALE-REF22734 ':DOUBLE) (INFO-REF22735 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF22725 :INT32) ISGN) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22726 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22727 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22729 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22731 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22733 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22734 :DOUBLE) SCALE) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22735 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22728 A) (B-REF22730 B) + (C-REF22732 C)) + (%%ZTRSYL TRANA TRANB ISGN-REF22725 M-REF22726 N-REF22727 A-REF22728 + LDA-REF22729 B-REF22730 LDB-REF22731 C-REF22732 LDC-REF22733 + SCALE-REF22734 INFO-REF22735)))) + +(CFFI:DEFCFUN ("ztrti2_" %%ZTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -11111,15 +11121,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22711 ':INT32) (LDA-REF22713 ':INT32) - (INFO-REF22714 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22711 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22713 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22714 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22712 A)) - (%%ZTRTI2 UPLO DIAG N-REF22711 A-REF22712 LDA-REF22713 INFO-REF22714)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22738 ':INT32) (LDA-REF22740 ':INT32) + (INFO-REF22741 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22738 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22740 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22741 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22739 A)) + (%%ZTRTI2 UPLO DIAG N-REF22738 A-REF22739 LDA-REF22740 INFO-REF22741)))) -(CFFI:DEFCFUN ("ztrtri_" %%ZTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztrtri_" %%ZTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (DIAG :STRING) @@ -11140,15 +11150,15 @@ A) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22717 ':INT32) (LDA-REF22719 ':INT32) - (INFO-REF22720 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22717 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22719 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22720 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22718 A)) - (%%ZTRTRI UPLO DIAG N-REF22717 A-REF22718 LDA-REF22719 INFO-REF22720)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22744 ':INT32) (LDA-REF22746 ':INT32) + (INFO-REF22747 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22744 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22746 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22747 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22745 A)) + (%%ZTRTRI UPLO DIAG N-REF22744 A-REF22745 LDA-REF22746 INFO-REF22747)))) -(CFFI:DEFCFUN ("ztrtrs_" %%ZTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztrtrs_" %%ZTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (TRANS :STRING) @@ -11181,19 +11191,19 @@ B) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22724 ':INT32) (NRHS-REF22725 ':INT32) - (LDA-REF22727 ':INT32) (LDB-REF22729 ':INT32) - (INFO-REF22730 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22724 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22725 :INT32) NRHS) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22727 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22729 :INT32) LDB) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22730 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22726 A) (B-REF22728 B)) - (%%ZTRTRS UPLO TRANS DIAG N-REF22724 NRHS-REF22725 A-REF22726 - LDA-REF22727 B-REF22728 LDB-REF22729 INFO-REF22730)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22751 ':INT32) (NRHS-REF22752 ':INT32) + (LDA-REF22754 ':INT32) (LDB-REF22756 ':INT32) + (INFO-REF22757 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22751 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22752 :INT32) NRHS) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22754 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22756 :INT32) LDB) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22757 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22753 A) (B-REF22755 B)) + (%%ZTRTRS UPLO TRANS DIAG N-REF22751 NRHS-REF22752 A-REF22753 + LDA-REF22754 B-REF22755 LDB-REF22756 INFO-REF22757)))) -(CFFI:DEFCFUN ("ztrttf_" %%ZTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztrttf_" %%ZTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANSR :STRING) (UPLO :STRING) @@ -11220,16 +11230,16 @@ (COMMON-LISP:*)) ARF) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22733 ':INT32) (LDA-REF22735 ':INT32) - (INFO-REF22737 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22733 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22735 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22737 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22734 A) (ARF-REF22736 ARF)) - (%%ZTRTTF TRANSR UPLO N-REF22733 A-REF22734 LDA-REF22735 ARF-REF22736 - INFO-REF22737)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22760 ':INT32) (LDA-REF22762 ':INT32) + (INFO-REF22764 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22760 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22762 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22764 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22761 A) (ARF-REF22763 ARF)) + (%%ZTRTTF TRANSR UPLO N-REF22760 A-REF22761 LDA-REF22762 ARF-REF22763 + INFO-REF22764)))) -(CFFI:DEFCFUN ("ztrttp_" %%ZTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztrttp_" %%ZTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -11254,16 +11264,16 @@ (COMMON-LISP:*)) AP) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22739 ':INT32) (LDA-REF22741 ':INT32) - (INFO-REF22743 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22739 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22741 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22743 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22740 A) (AP-REF22742 AP)) - (%%ZTRTTP UPLO N-REF22739 A-REF22740 LDA-REF22741 AP-REF22742 - INFO-REF22743)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22766 ':INT32) (LDA-REF22768 ':INT32) + (INFO-REF22770 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22766 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22768 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22770 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22767 A) (AP-REF22769 AP)) + (%%ZTRTTP UPLO N-REF22766 A-REF22767 LDA-REF22768 AP-REF22769 + INFO-REF22770)))) -(CFFI:DEFCFUN ("ztzrzf_" %%ZTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("ztzrzf_" %%ZTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -11296,20 +11306,20 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22744 ':INT32) (N-REF22745 ':INT32) - (LDA-REF22747 ':INT32) (LWORK-REF22750 ':INT32) - (INFO-REF22751 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22744 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22745 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22747 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22750 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22751 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22746 A) (TAU-REF22748 TAU) - (WORK-REF22749 WORK)) - (%%ZTZRZF M-REF22744 N-REF22745 A-REF22746 LDA-REF22747 TAU-REF22748 - WORK-REF22749 LWORK-REF22750 INFO-REF22751)))) - -(CFFI:DEFCFUN ("zunbdb_" %%ZUNBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22771 ':INT32) (N-REF22772 ':INT32) + (LDA-REF22774 ':INT32) (LWORK-REF22777 ':INT32) + (INFO-REF22778 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22771 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22772 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22774 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22777 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22778 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22773 A) (TAU-REF22775 TAU) + (WORK-REF22776 WORK)) + (%%ZTZRZF M-REF22771 N-REF22772 A-REF22773 LDA-REF22774 TAU-REF22775 + WORK-REF22776 LWORK-REF22777 INFO-REF22778)))) + +(CFFI:DEFCFUN ("zunbdb_" %%ZUNBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (TRANS :STRING) (SIGNS :STRING) @@ -11400,38 +11410,39 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22754 ':INT32) (P-REF22755 ':INT32) - (Q-REF22756 ':INT32) (LDX11-REF22758 ':INT32) - (LDX12-REF22760 ':INT32) (LDX21-REF22762 ':INT32) - (LDX22-REF22764 ':INT32) (LWORK-REF22772 ':INT32) - (INFO-REF22773 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22754 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22755 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22756 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22758 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF22760 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22762 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF22764 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22772 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22773 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22757 X11) - (X12-REF22759 X12) - (X21-REF22761 X21) - (X22-REF22763 X22) - (THETA-REF22765 THETA) - (PHI-REF22766 PHI) - (TAUP1-REF22767 TAUP1) - (TAUP2-REF22768 TAUP2) - (TAUQ1-REF22769 TAUQ1) - (TAUQ2-REF22770 TAUQ2) - (WORK-REF22771 WORK)) - (%%ZUNBDB TRANS SIGNS M-REF22754 P-REF22755 Q-REF22756 X11-REF22757 - LDX11-REF22758 X12-REF22759 LDX12-REF22760 X21-REF22761 - LDX21-REF22762 X22-REF22763 LDX22-REF22764 THETA-REF22765 - PHI-REF22766 TAUP1-REF22767 TAUP2-REF22768 TAUQ1-REF22769 - TAUQ2-REF22770 WORK-REF22771 LWORK-REF22772 INFO-REF22773)))) - -(CFFI:DEFCFUN ("zunbdb1_" %%ZUNBDB1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22781 ':INT32) (P-REF22782 ':INT32) + (Q-REF22783 ':INT32) (LDX11-REF22785 ':INT32) + (LDX12-REF22787 ':INT32) (LDX21-REF22789 ':INT32) + (LDX22-REF22791 ':INT32) (LWORK-REF22799 ':INT32) + (INFO-REF22800 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22781 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22782 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22783 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22785 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF22787 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22789 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF22791 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22799 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22800 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22784 X11) + (X12-REF22786 X12) + (X21-REF22788 X21) + (X22-REF22790 X22) + (THETA-REF22792 THETA) + (PHI-REF22793 PHI) + (TAUP1-REF22794 TAUP1) + (TAUP2-REF22795 TAUP2) + (TAUQ1-REF22796 TAUQ1) + (TAUQ2-REF22797 TAUQ2) + (WORK-REF22798 WORK)) + (%%ZUNBDB TRANS SIGNS M-REF22781 P-REF22782 Q-REF22783 X11-REF22784 + LDX11-REF22785 X12-REF22786 LDX12-REF22787 X21-REF22788 LDX21-REF22789 + X22-REF22790 LDX22-REF22791 THETA-REF22792 PHI-REF22793 TAUP1-REF22794 + TAUP2-REF22795 TAUQ1-REF22796 TAUQ2-REF22797 WORK-REF22798 + LWORK-REF22799 INFO-REF22800)))) + +(CFFI:DEFCFUN ("zunbdb1_" %%ZUNBDB1 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -11496,31 +11507,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22774 ':INT32) (P-REF22775 ':INT32) - (Q-REF22776 ':INT32) (LDX11-REF22778 ':INT32) - (LDX21-REF22780 ':INT32) (LWORK-REF22787 ':INT32) - (INFO-REF22788 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22774 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22775 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22776 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22778 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22780 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22787 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22788 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22777 X11) - (X21-REF22779 X21) - (THETA-REF22781 THETA) - (PHI-REF22782 PHI) - (TAUP1-REF22783 TAUP1) - (TAUP2-REF22784 TAUP2) - (TAUQ1-REF22785 TAUQ1) - (WORK-REF22786 WORK)) - (%%ZUNBDB1 M-REF22774 P-REF22775 Q-REF22776 X11-REF22777 LDX11-REF22778 - X21-REF22779 LDX21-REF22780 THETA-REF22781 PHI-REF22782 - TAUP1-REF22783 TAUP2-REF22784 TAUQ1-REF22785 WORK-REF22786 - LWORK-REF22787 INFO-REF22788)))) - -(CFFI:DEFCFUN ("zunbdb2_" %%ZUNBDB2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22801 ':INT32) (P-REF22802 ':INT32) + (Q-REF22803 ':INT32) (LDX11-REF22805 ':INT32) + (LDX21-REF22807 ':INT32) (LWORK-REF22814 ':INT32) + (INFO-REF22815 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22801 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22802 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22803 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22805 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22807 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22814 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22815 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22804 X11) + (X21-REF22806 X21) + (THETA-REF22808 THETA) + (PHI-REF22809 PHI) + (TAUP1-REF22810 TAUP1) + (TAUP2-REF22811 TAUP2) + (TAUQ1-REF22812 TAUQ1) + (WORK-REF22813 WORK)) + (%%ZUNBDB1 M-REF22801 P-REF22802 Q-REF22803 X11-REF22804 LDX11-REF22805 + X21-REF22806 LDX21-REF22807 THETA-REF22808 PHI-REF22809 TAUP1-REF22810 + TAUP2-REF22811 TAUQ1-REF22812 WORK-REF22813 LWORK-REF22814 + INFO-REF22815)))) + +(CFFI:DEFCFUN ("zunbdb2_" %%ZUNBDB2 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -11585,31 +11597,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22789 ':INT32) (P-REF22790 ':INT32) - (Q-REF22791 ':INT32) (LDX11-REF22793 ':INT32) - (LDX21-REF22795 ':INT32) (LWORK-REF22802 ':INT32) - (INFO-REF22803 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22789 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22790 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22791 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22793 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22795 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22802 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22803 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22792 X11) - (X21-REF22794 X21) - (THETA-REF22796 THETA) - (PHI-REF22797 PHI) - (TAUP1-REF22798 TAUP1) - (TAUP2-REF22799 TAUP2) - (TAUQ1-REF22800 TAUQ1) - (WORK-REF22801 WORK)) - (%%ZUNBDB2 M-REF22789 P-REF22790 Q-REF22791 X11-REF22792 LDX11-REF22793 - X21-REF22794 LDX21-REF22795 THETA-REF22796 PHI-REF22797 - TAUP1-REF22798 TAUP2-REF22799 TAUQ1-REF22800 WORK-REF22801 - LWORK-REF22802 INFO-REF22803)))) - -(CFFI:DEFCFUN ("zunbdb3_" %%ZUNBDB3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22816 ':INT32) (P-REF22817 ':INT32) + (Q-REF22818 ':INT32) (LDX11-REF22820 ':INT32) + (LDX21-REF22822 ':INT32) (LWORK-REF22829 ':INT32) + (INFO-REF22830 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22816 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22817 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22818 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22820 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22822 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22829 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22830 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22819 X11) + (X21-REF22821 X21) + (THETA-REF22823 THETA) + (PHI-REF22824 PHI) + (TAUP1-REF22825 TAUP1) + (TAUP2-REF22826 TAUP2) + (TAUQ1-REF22827 TAUQ1) + (WORK-REF22828 WORK)) + (%%ZUNBDB2 M-REF22816 P-REF22817 Q-REF22818 X11-REF22819 LDX11-REF22820 + X21-REF22821 LDX21-REF22822 THETA-REF22823 PHI-REF22824 TAUP1-REF22825 + TAUP2-REF22826 TAUQ1-REF22827 WORK-REF22828 LWORK-REF22829 + INFO-REF22830)))) + +(CFFI:DEFCFUN ("zunbdb3_" %%ZUNBDB3 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -11674,31 +11687,32 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22804 ':INT32) (P-REF22805 ':INT32) - (Q-REF22806 ':INT32) (LDX11-REF22808 ':INT32) - (LDX21-REF22810 ':INT32) (LWORK-REF22817 ':INT32) - (INFO-REF22818 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22804 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22805 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22806 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22808 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22810 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22817 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22818 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22807 X11) - (X21-REF22809 X21) - (THETA-REF22811 THETA) - (PHI-REF22812 PHI) - (TAUP1-REF22813 TAUP1) - (TAUP2-REF22814 TAUP2) - (TAUQ1-REF22815 TAUQ1) - (WORK-REF22816 WORK)) - (%%ZUNBDB3 M-REF22804 P-REF22805 Q-REF22806 X11-REF22807 LDX11-REF22808 - X21-REF22809 LDX21-REF22810 THETA-REF22811 PHI-REF22812 - TAUP1-REF22813 TAUP2-REF22814 TAUQ1-REF22815 WORK-REF22816 - LWORK-REF22817 INFO-REF22818)))) - -(CFFI:DEFCFUN ("zunbdb4_" %%ZUNBDB4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22831 ':INT32) (P-REF22832 ':INT32) + (Q-REF22833 ':INT32) (LDX11-REF22835 ':INT32) + (LDX21-REF22837 ':INT32) (LWORK-REF22844 ':INT32) + (INFO-REF22845 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22831 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22832 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22833 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22835 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22837 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22844 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22845 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22834 X11) + (X21-REF22836 X21) + (THETA-REF22838 THETA) + (PHI-REF22839 PHI) + (TAUP1-REF22840 TAUP1) + (TAUP2-REF22841 TAUP2) + (TAUQ1-REF22842 TAUQ1) + (WORK-REF22843 WORK)) + (%%ZUNBDB3 M-REF22831 P-REF22832 Q-REF22833 X11-REF22834 LDX11-REF22835 + X21-REF22836 LDX21-REF22837 THETA-REF22838 PHI-REF22839 TAUP1-REF22840 + TAUP2-REF22841 TAUQ1-REF22842 WORK-REF22843 LWORK-REF22844 + INFO-REF22845)))) + +(CFFI:DEFCFUN ("zunbdb4_" %%ZUNBDB4 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (P :POINTER) @@ -11769,32 +11783,33 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22819 ':INT32) (P-REF22820 ':INT32) - (Q-REF22821 ':INT32) (LDX11-REF22823 ':INT32) - (LDX21-REF22825 ':INT32) (LWORK-REF22833 ':INT32) - (INFO-REF22834 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22819 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22820 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22821 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22823 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22825 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22833 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22834 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22822 X11) - (X21-REF22824 X21) - (THETA-REF22826 THETA) - (PHI-REF22827 PHI) - (TAUP1-REF22828 TAUP1) - (TAUP2-REF22829 TAUP2) - (TAUQ1-REF22830 TAUQ1) - (PHANTOM-REF22831 PHANTOM) - (WORK-REF22832 WORK)) - (%%ZUNBDB4 M-REF22819 P-REF22820 Q-REF22821 X11-REF22822 LDX11-REF22823 - X21-REF22824 LDX21-REF22825 THETA-REF22826 PHI-REF22827 - TAUP1-REF22828 TAUP2-REF22829 TAUQ1-REF22830 PHANTOM-REF22831 - WORK-REF22832 LWORK-REF22833 INFO-REF22834)))) - -(CFFI:DEFCFUN ("zunbdb5_" %%ZUNBDB5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22846 ':INT32) (P-REF22847 ':INT32) + (Q-REF22848 ':INT32) (LDX11-REF22850 ':INT32) + (LDX21-REF22852 ':INT32) (LWORK-REF22860 ':INT32) + (INFO-REF22861 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22846 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22847 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22848 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22850 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22852 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22860 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22861 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22849 X11) + (X21-REF22851 X21) + (THETA-REF22853 THETA) + (PHI-REF22854 PHI) + (TAUP1-REF22855 TAUP1) + (TAUP2-REF22856 TAUP2) + (TAUQ1-REF22857 TAUQ1) + (PHANTOM-REF22858 PHANTOM) + (WORK-REF22859 WORK)) + (%%ZUNBDB4 M-REF22846 P-REF22847 Q-REF22848 X11-REF22849 LDX11-REF22850 + X21-REF22851 LDX21-REF22852 THETA-REF22853 PHI-REF22854 TAUP1-REF22855 + TAUP2-REF22856 TAUQ1-REF22857 PHANTOM-REF22858 WORK-REF22859 + LWORK-REF22860 INFO-REF22861)))) + +(CFFI:DEFCFUN ("zunbdb5_" %%ZUNBDB5 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M1 :POINTER) (M2 :POINTER) @@ -11848,29 +11863,29 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF22835 ':INT32) (M2-REF22836 ':INT32) - (N-REF22837 ':INT32) (INCX1-REF22839 ':INT32) - (INCX2-REF22841 ':INT32) (LDQ1-REF22843 ':INT32) - (LDQ2-REF22845 ':INT32) (LWORK-REF22847 ':INT32) - (INFO-REF22848 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF22835 :INT32) M1) - (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF22836 :INT32) M2) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22837 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF22839 :INT32) INCX1) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF22841 :INT32) INCX2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF22843 :INT32) LDQ1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF22845 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22847 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22848 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF22838 X1) (X2-REF22840 X2) - (Q1-REF22842 Q1) (Q2-REF22844 Q2) - (WORK-REF22846 WORK)) - (%%ZUNBDB5 M1-REF22835 M2-REF22836 N-REF22837 X1-REF22838 INCX1-REF22839 - X2-REF22840 INCX2-REF22841 Q1-REF22842 LDQ1-REF22843 - Q2-REF22844 LDQ2-REF22845 WORK-REF22846 LWORK-REF22847 - INFO-REF22848)))) - -(CFFI:DEFCFUN ("zunbdb6_" %%ZUNBDB6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF22862 ':INT32) (M2-REF22863 ':INT32) + (N-REF22864 ':INT32) (INCX1-REF22866 ':INT32) + (INCX2-REF22868 ':INT32) (LDQ1-REF22870 ':INT32) + (LDQ2-REF22872 ':INT32) (LWORK-REF22874 ':INT32) + (INFO-REF22875 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF22862 :INT32) M1) + (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF22863 :INT32) M2) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22864 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF22866 :INT32) INCX1) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF22868 :INT32) INCX2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF22870 :INT32) LDQ1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF22872 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22874 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22875 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF22865 X1) (X2-REF22867 X2) + (Q1-REF22869 Q1) (Q2-REF22871 Q2) + (WORK-REF22873 WORK)) + (%%ZUNBDB5 M1-REF22862 M2-REF22863 N-REF22864 X1-REF22865 INCX1-REF22866 + X2-REF22867 INCX2-REF22868 Q1-REF22869 LDQ1-REF22870 Q2-REF22871 + LDQ2-REF22872 WORK-REF22873 LWORK-REF22874 INFO-REF22875)))) + +(CFFI:DEFCFUN ("zunbdb6_" %%ZUNBDB6 :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M1 :POINTER) (M2 :POINTER) @@ -11924,29 +11939,28 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF22849 ':INT32) (M2-REF22850 ':INT32) - (N-REF22851 ':INT32) (INCX1-REF22853 ':INT32) - (INCX2-REF22855 ':INT32) (LDQ1-REF22857 ':INT32) - (LDQ2-REF22859 ':INT32) (LWORK-REF22861 ':INT32) - (INFO-REF22862 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF22849 :INT32) M1) - (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF22850 :INT32) M2) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22851 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF22853 :INT32) INCX1) - (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF22855 :INT32) INCX2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF22857 :INT32) LDQ1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF22859 :INT32) LDQ2) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22861 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22862 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF22852 X1) (X2-REF22854 X2) - (Q1-REF22856 Q1) (Q2-REF22858 Q2) - (WORK-REF22860 WORK)) - (%%ZUNBDB6 M1-REF22849 M2-REF22850 N-REF22851 X1-REF22852 INCX1-REF22853 - X2-REF22854 INCX2-REF22855 Q1-REF22856 LDQ1-REF22857 - Q2-REF22858 LDQ2-REF22859 WORK-REF22860 LWORK-REF22861 - INFO-REF22862)))) - -(CFFI:DEFCFUN ("zuncsd_" %%ZUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF22876 ':INT32) (M2-REF22877 ':INT32) + (N-REF22878 ':INT32) (INCX1-REF22880 ':INT32) + (INCX2-REF22882 ':INT32) (LDQ1-REF22884 ':INT32) + (LDQ2-REF22886 ':INT32) (LWORK-REF22888 ':INT32) + (INFO-REF22889 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF22876 :INT32) M1) + (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF22877 :INT32) M2) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22878 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF22880 :INT32) INCX1) + (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF22882 :INT32) INCX2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF22884 :INT32) LDQ1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF22886 :INT32) LDQ2) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22888 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22889 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF22879 X1) (X2-REF22881 X2) + (Q1-REF22883 Q1) (Q2-REF22885 Q2) + (WORK-REF22887 WORK)) + (%%ZUNBDB6 M1-REF22876 M2-REF22877 N-REF22878 X1-REF22879 INCX1-REF22880 + X2-REF22881 INCX2-REF22882 Q1-REF22883 LDQ1-REF22884 Q2-REF22885 + LDQ2-REF22886 WORK-REF22887 LWORK-REF22888 INFO-REF22889)))) + +(CFFI:DEFCFUN ("zuncsd_" %%ZUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -12061,48 +12075,47 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22869 ':INT32) (P-REF22870 ':INT32) - (Q-REF22871 ':INT32) (LDX11-REF22873 ':INT32) - (LDX12-REF22875 ':INT32) (LDX21-REF22877 ':INT32) - (LDX22-REF22879 ':INT32) (LDU1-REF22882 ':INT32) - (LDU2-REF22884 ':INT32) (LDV1T-REF22886 ':INT32) - (LDV2T-REF22888 ':INT32) (LWORK-REF22890 ':INT32) - (LRWORK-REF22892 ':INT32) (INFO-REF22894 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22869 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22870 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22871 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22873 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF22875 :INT32) LDX12) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22877 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF22879 :INT32) LDX22) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF22882 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF22884 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF22886 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF22888 :INT32) LDV2T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22890 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22892 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22894 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22872 X11) - (X12-REF22874 X12) - (X21-REF22876 X21) - (X22-REF22878 X22) - (THETA-REF22880 THETA) - (U1-REF22881 U1) (U2-REF22883 U2) - (V1T-REF22885 V1T) - (V2T-REF22887 V2T) - (WORK-REF22889 WORK) - (RWORK-REF22891 RWORK) - (IWORK-REF22893 IWORK)) - (%%ZUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF22869 P-REF22870 - Q-REF22871 X11-REF22872 LDX11-REF22873 X12-REF22874 - LDX12-REF22875 X21-REF22876 LDX21-REF22877 X22-REF22878 - LDX22-REF22879 THETA-REF22880 U1-REF22881 LDU1-REF22882 - U2-REF22883 LDU2-REF22884 V1T-REF22885 LDV1T-REF22886 - V2T-REF22887 LDV2T-REF22888 WORK-REF22889 LWORK-REF22890 - RWORK-REF22891 LRWORK-REF22892 IWORK-REF22893 INFO-REF22894)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22896 ':INT32) (P-REF22897 ':INT32) + (Q-REF22898 ':INT32) (LDX11-REF22900 ':INT32) + (LDX12-REF22902 ':INT32) (LDX21-REF22904 ':INT32) + (LDX22-REF22906 ':INT32) (LDU1-REF22909 ':INT32) + (LDU2-REF22911 ':INT32) (LDV1T-REF22913 ':INT32) + (LDV2T-REF22915 ':INT32) (LWORK-REF22917 ':INT32) + (LRWORK-REF22919 ':INT32) (INFO-REF22921 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22896 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22897 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22898 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22900 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF22902 :INT32) LDX12) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22904 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF22906 :INT32) LDX22) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF22909 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF22911 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF22913 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF22915 :INT32) LDV2T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22917 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22919 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22921 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22899 X11) + (X12-REF22901 X12) + (X21-REF22903 X21) + (X22-REF22905 X22) + (THETA-REF22907 THETA) + (U1-REF22908 U1) (U2-REF22910 U2) + (V1T-REF22912 V1T) + (V2T-REF22914 V2T) + (WORK-REF22916 WORK) + (RWORK-REF22918 RWORK) + (IWORK-REF22920 IWORK)) + (%%ZUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF22896 P-REF22897 + Q-REF22898 X11-REF22899 LDX11-REF22900 X12-REF22901 LDX12-REF22902 + X21-REF22903 LDX21-REF22904 X22-REF22905 LDX22-REF22906 THETA-REF22907 + U1-REF22908 LDU1-REF22909 U2-REF22910 LDU2-REF22911 V1T-REF22912 + LDV1T-REF22913 V2T-REF22914 LDV2T-REF22915 WORK-REF22916 LWORK-REF22917 + RWORK-REF22918 LRWORK-REF22919 IWORK-REF22920 INFO-REF22921)))) (CFFI:DEFCFUN ("zuncsd2by1_" %%ZUNCSD2BY1 :LIBRARY - MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (JOBU1 :STRING) (JOBU2 :STRING) @@ -12186,39 +12199,38 @@ (COMMON-LISP:*)) IWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22898 ':INT32) (P-REF22899 ':INT32) - (Q-REF22900 ':INT32) (LDX11-REF22902 ':INT32) - (LDX21-REF22904 ':INT32) (LDU1-REF22907 ':INT32) - (LDU2-REF22909 ':INT32) (LDV1T-REF22911 ':INT32) - (LWORK-REF22913 ':INT32) - (LRWORK-REF22915 ':INT32) (INFO-REF22917 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22898 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22899 :INT32) P) - (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22900 :INT32) Q) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22902 :INT32) LDX11) - (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22904 :INT32) LDX21) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF22907 :INT32) LDU1) - (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF22909 :INT32) LDU2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF22911 :INT32) LDV1T) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22913 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22915 :INT32) LRWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22917 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22901 X11) - (X21-REF22903 X21) - (THETA-REF22905 THETA) - (U1-REF22906 U1) (U2-REF22908 U2) - (V1T-REF22910 V1T) - (WORK-REF22912 WORK) - (RWORK-REF22914 RWORK) - (IWORK-REF22916 IWORK)) - (%%ZUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF22898 P-REF22899 Q-REF22900 - X11-REF22901 LDX11-REF22902 X21-REF22903 LDX21-REF22904 - THETA-REF22905 U1-REF22906 LDU1-REF22907 U2-REF22908 - LDU2-REF22909 V1T-REF22910 LDV1T-REF22911 WORK-REF22912 - LWORK-REF22913 RWORK-REF22914 LRWORK-REF22915 - IWORK-REF22916 INFO-REF22917)))) - -(CFFI:DEFCFUN ("zung2l_" %%ZUNG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22925 ':INT32) (P-REF22926 ':INT32) + (Q-REF22927 ':INT32) (LDX11-REF22929 ':INT32) + (LDX21-REF22931 ':INT32) (LDU1-REF22934 ':INT32) + (LDU2-REF22936 ':INT32) (LDV1T-REF22938 ':INT32) + (LWORK-REF22940 ':INT32) + (LRWORK-REF22942 ':INT32) (INFO-REF22944 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22925 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22926 :INT32) P) + (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22927 :INT32) Q) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22929 :INT32) LDX11) + (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22931 :INT32) LDX21) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF22934 :INT32) LDU1) + (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF22936 :INT32) LDU2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF22938 :INT32) LDV1T) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22940 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22942 :INT32) LRWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22944 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22928 X11) + (X21-REF22930 X21) + (THETA-REF22932 THETA) + (U1-REF22933 U1) (U2-REF22935 U2) + (V1T-REF22937 V1T) + (WORK-REF22939 WORK) + (RWORK-REF22941 RWORK) + (IWORK-REF22943 IWORK)) + (%%ZUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF22925 P-REF22926 Q-REF22927 + X11-REF22928 LDX11-REF22929 X21-REF22930 LDX21-REF22931 THETA-REF22932 + U1-REF22933 LDU1-REF22934 U2-REF22935 LDU2-REF22936 V1T-REF22937 + LDV1T-REF22938 WORK-REF22939 LWORK-REF22940 RWORK-REF22941 + LRWORK-REF22942 IWORK-REF22943 INFO-REF22944)))) + +(CFFI:DEFCFUN ("zung2l_" %%ZUNG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12251,20 +12263,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22918 ':INT32) (N-REF22919 ':INT32) - (K-REF22920 ':INT32) (LDA-REF22922 ':INT32) - (INFO-REF22925 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22918 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22919 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22920 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22922 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22925 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22921 A) (TAU-REF22923 TAU) - (WORK-REF22924 WORK)) - (%%ZUNG2L M-REF22918 N-REF22919 K-REF22920 A-REF22921 LDA-REF22922 - TAU-REF22923 WORK-REF22924 INFO-REF22925)))) - -(CFFI:DEFCFUN ("zung2r_" %%ZUNG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22945 ':INT32) (N-REF22946 ':INT32) + (K-REF22947 ':INT32) (LDA-REF22949 ':INT32) + (INFO-REF22952 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22945 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22946 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22947 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22949 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22952 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22948 A) (TAU-REF22950 TAU) + (WORK-REF22951 WORK)) + (%%ZUNG2L M-REF22945 N-REF22946 K-REF22947 A-REF22948 LDA-REF22949 + TAU-REF22950 WORK-REF22951 INFO-REF22952)))) + +(CFFI:DEFCFUN ("zung2r_" %%ZUNG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12297,20 +12309,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22926 ':INT32) (N-REF22927 ':INT32) - (K-REF22928 ':INT32) (LDA-REF22930 ':INT32) - (INFO-REF22933 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22926 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22927 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22928 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22930 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22933 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22929 A) (TAU-REF22931 TAU) - (WORK-REF22932 WORK)) - (%%ZUNG2R M-REF22926 N-REF22927 K-REF22928 A-REF22929 LDA-REF22930 - TAU-REF22931 WORK-REF22932 INFO-REF22933)))) - -(CFFI:DEFCFUN ("zungbr_" %%ZUNGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22953 ':INT32) (N-REF22954 ':INT32) + (K-REF22955 ':INT32) (LDA-REF22957 ':INT32) + (INFO-REF22960 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22953 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22954 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22955 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22957 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22960 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22956 A) (TAU-REF22958 TAU) + (WORK-REF22959 WORK)) + (%%ZUNG2R M-REF22953 N-REF22954 K-REF22955 A-REF22956 LDA-REF22957 + TAU-REF22958 WORK-REF22959 INFO-REF22960)))) + +(CFFI:DEFCFUN ("zungbr_" %%ZUNGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (M :POINTER) @@ -12347,21 +12359,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22935 ':INT32) (N-REF22936 ':INT32) - (K-REF22937 ':INT32) (LDA-REF22939 ':INT32) - (LWORK-REF22942 ':INT32) (INFO-REF22943 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22935 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22936 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22937 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22939 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22942 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22943 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22938 A) (TAU-REF22940 TAU) - (WORK-REF22941 WORK)) - (%%ZUNGBR VECT M-REF22935 N-REF22936 K-REF22937 A-REF22938 LDA-REF22939 - TAU-REF22940 WORK-REF22941 LWORK-REF22942 INFO-REF22943)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22962 ':INT32) (N-REF22963 ':INT32) + (K-REF22964 ':INT32) (LDA-REF22966 ':INT32) + (LWORK-REF22969 ':INT32) (INFO-REF22970 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22962 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22963 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22964 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22966 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22969 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22970 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22965 A) (TAU-REF22967 TAU) + (WORK-REF22968 WORK)) + (%%ZUNGBR VECT M-REF22962 N-REF22963 K-REF22964 A-REF22965 LDA-REF22966 + TAU-REF22967 WORK-REF22968 LWORK-REF22969 INFO-REF22970)))) -(CFFI:DEFCFUN ("zunghr_" %%ZUNGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zunghr_" %%ZUNGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (N :POINTER) (ILO :POINTER) @@ -12396,21 +12408,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22944 ':INT32) (ILO-REF22945 ':INT32) - (IHI-REF22946 ':INT32) (LDA-REF22948 ':INT32) - (LWORK-REF22951 ':INT32) (INFO-REF22952 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22944 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF22945 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF22946 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22948 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22951 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22952 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22947 A) (TAU-REF22949 TAU) - (WORK-REF22950 WORK)) - (%%ZUNGHR N-REF22944 ILO-REF22945 IHI-REF22946 A-REF22947 LDA-REF22948 - TAU-REF22949 WORK-REF22950 LWORK-REF22951 INFO-REF22952)))) - -(CFFI:DEFCFUN ("zungl2_" %%ZUNGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22971 ':INT32) (ILO-REF22972 ':INT32) + (IHI-REF22973 ':INT32) (LDA-REF22975 ':INT32) + (LWORK-REF22978 ':INT32) (INFO-REF22979 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22971 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF22972 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF22973 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22975 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22978 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22979 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22974 A) (TAU-REF22976 TAU) + (WORK-REF22977 WORK)) + (%%ZUNGHR N-REF22971 ILO-REF22972 IHI-REF22973 A-REF22974 LDA-REF22975 + TAU-REF22976 WORK-REF22977 LWORK-REF22978 INFO-REF22979)))) + +(CFFI:DEFCFUN ("zungl2_" %%ZUNGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12443,20 +12455,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22953 ':INT32) (N-REF22954 ':INT32) - (K-REF22955 ':INT32) (LDA-REF22957 ':INT32) - (INFO-REF22960 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22953 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22954 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22955 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22957 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22960 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22956 A) (TAU-REF22958 TAU) - (WORK-REF22959 WORK)) - (%%ZUNGL2 M-REF22953 N-REF22954 K-REF22955 A-REF22956 LDA-REF22957 - TAU-REF22958 WORK-REF22959 INFO-REF22960)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22980 ':INT32) (N-REF22981 ':INT32) + (K-REF22982 ':INT32) (LDA-REF22984 ':INT32) + (INFO-REF22987 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22980 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22981 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22982 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22984 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22987 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22983 A) (TAU-REF22985 TAU) + (WORK-REF22986 WORK)) + (%%ZUNGL2 M-REF22980 N-REF22981 K-REF22982 A-REF22983 LDA-REF22984 + TAU-REF22985 WORK-REF22986 INFO-REF22987)))) -(CFFI:DEFCFUN ("zunglq_" %%ZUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zunglq_" %%ZUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12491,21 +12503,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22961 ':INT32) (N-REF22962 ':INT32) - (K-REF22963 ':INT32) (LDA-REF22965 ':INT32) - (LWORK-REF22968 ':INT32) (INFO-REF22969 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22961 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22962 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22963 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22965 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22968 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22969 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22964 A) (TAU-REF22966 TAU) - (WORK-REF22967 WORK)) - (%%ZUNGLQ M-REF22961 N-REF22962 K-REF22963 A-REF22964 LDA-REF22965 - TAU-REF22966 WORK-REF22967 LWORK-REF22968 INFO-REF22969)))) - -(CFFI:DEFCFUN ("zungql_" %%ZUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22988 ':INT32) (N-REF22989 ':INT32) + (K-REF22990 ':INT32) (LDA-REF22992 ':INT32) + (LWORK-REF22995 ':INT32) (INFO-REF22996 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22988 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22989 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22990 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22992 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22995 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22996 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22991 A) (TAU-REF22993 TAU) + (WORK-REF22994 WORK)) + (%%ZUNGLQ M-REF22988 N-REF22989 K-REF22990 A-REF22991 LDA-REF22992 + TAU-REF22993 WORK-REF22994 LWORK-REF22995 INFO-REF22996)))) + +(CFFI:DEFCFUN ("zungql_" %%ZUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12540,21 +12552,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22970 ':INT32) (N-REF22971 ':INT32) - (K-REF22972 ':INT32) (LDA-REF22974 ':INT32) - (LWORK-REF22977 ':INT32) (INFO-REF22978 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22970 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22971 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22972 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22974 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22977 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22978 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22973 A) (TAU-REF22975 TAU) - (WORK-REF22976 WORK)) - (%%ZUNGQL M-REF22970 N-REF22971 K-REF22972 A-REF22973 LDA-REF22974 - TAU-REF22975 WORK-REF22976 LWORK-REF22977 INFO-REF22978)))) - -(CFFI:DEFCFUN ("zungqr_" %%ZUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22997 ':INT32) (N-REF22998 ':INT32) + (K-REF22999 ':INT32) (LDA-REF23001 ':INT32) + (LWORK-REF23004 ':INT32) (INFO-REF23005 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22997 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22998 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22999 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23001 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23004 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23005 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23000 A) (TAU-REF23002 TAU) + (WORK-REF23003 WORK)) + (%%ZUNGQL M-REF22997 N-REF22998 K-REF22999 A-REF23000 LDA-REF23001 + TAU-REF23002 WORK-REF23003 LWORK-REF23004 INFO-REF23005)))) + +(CFFI:DEFCFUN ("zungqr_" %%ZUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12589,21 +12601,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22979 ':INT32) (N-REF22980 ':INT32) - (K-REF22981 ':INT32) (LDA-REF22983 ':INT32) - (LWORK-REF22986 ':INT32) (INFO-REF22987 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22979 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22980 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22981 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22983 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22986 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22987 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22982 A) (TAU-REF22984 TAU) - (WORK-REF22985 WORK)) - (%%ZUNGQR M-REF22979 N-REF22980 K-REF22981 A-REF22982 LDA-REF22983 - TAU-REF22984 WORK-REF22985 LWORK-REF22986 INFO-REF22987)))) - -(CFFI:DEFCFUN ("zungr2_" %%ZUNGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23006 ':INT32) (N-REF23007 ':INT32) + (K-REF23008 ':INT32) (LDA-REF23010 ':INT32) + (LWORK-REF23013 ':INT32) (INFO-REF23014 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23006 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23007 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23008 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23010 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23013 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23014 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23009 A) (TAU-REF23011 TAU) + (WORK-REF23012 WORK)) + (%%ZUNGQR M-REF23006 N-REF23007 K-REF23008 A-REF23009 LDA-REF23010 + TAU-REF23011 WORK-REF23012 LWORK-REF23013 INFO-REF23014)))) + +(CFFI:DEFCFUN ("zungr2_" %%ZUNGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12636,20 +12648,20 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22988 ':INT32) (N-REF22989 ':INT32) - (K-REF22990 ':INT32) (LDA-REF22992 ':INT32) - (INFO-REF22995 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22988 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22989 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22990 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22992 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22995 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22991 A) (TAU-REF22993 TAU) - (WORK-REF22994 WORK)) - (%%ZUNGR2 M-REF22988 N-REF22989 K-REF22990 A-REF22991 LDA-REF22992 - TAU-REF22993 WORK-REF22994 INFO-REF22995)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23015 ':INT32) (N-REF23016 ':INT32) + (K-REF23017 ':INT32) (LDA-REF23019 ':INT32) + (INFO-REF23022 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23015 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23016 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23017 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23019 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23022 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23018 A) (TAU-REF23020 TAU) + (WORK-REF23021 WORK)) + (%%ZUNGR2 M-REF23015 N-REF23016 K-REF23017 A-REF23018 LDA-REF23019 + TAU-REF23020 WORK-REF23021 INFO-REF23022)))) -(CFFI:DEFCFUN ("zungrq_" %%ZUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zungrq_" %%ZUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (M :POINTER) (N :POINTER) @@ -12684,21 +12696,21 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22996 ':INT32) (N-REF22997 ':INT32) - (K-REF22998 ':INT32) (LDA-REF23000 ':INT32) - (LWORK-REF23003 ':INT32) (INFO-REF23004 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22996 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22997 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22998 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23000 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23003 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23004 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22999 A) (TAU-REF23001 TAU) - (WORK-REF23002 WORK)) - (%%ZUNGRQ M-REF22996 N-REF22997 K-REF22998 A-REF22999 LDA-REF23000 - TAU-REF23001 WORK-REF23002 LWORK-REF23003 INFO-REF23004)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23023 ':INT32) (N-REF23024 ':INT32) + (K-REF23025 ':INT32) (LDA-REF23027 ':INT32) + (LWORK-REF23030 ':INT32) (INFO-REF23031 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23023 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23024 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23025 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23027 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23030 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23031 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23026 A) (TAU-REF23028 TAU) + (WORK-REF23029 WORK)) + (%%ZUNGRQ M-REF23023 N-REF23024 K-REF23025 A-REF23026 LDA-REF23027 + TAU-REF23028 WORK-REF23029 LWORK-REF23030 INFO-REF23031)))) -(CFFI:DEFCFUN ("zungtr_" %%ZUNGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zungtr_" %%ZUNGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -12731,18 +12743,126 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23006 ':INT32) (LDA-REF23008 ':INT32) - (LWORK-REF23011 ':INT32) (INFO-REF23012 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23006 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23008 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23011 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23012 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23007 A) (TAU-REF23009 TAU) - (WORK-REF23010 WORK)) - (%%ZUNGTR UPLO N-REF23006 A-REF23007 LDA-REF23008 TAU-REF23009 - WORK-REF23010 LWORK-REF23011 INFO-REF23012)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23033 ':INT32) (LDA-REF23035 ':INT32) + (LWORK-REF23038 ':INT32) (INFO-REF23039 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23033 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23035 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23038 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23039 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23034 A) (TAU-REF23036 TAU) + (WORK-REF23037 WORK)) + (%%ZUNGTR UPLO N-REF23033 A-REF23034 LDA-REF23035 TAU-REF23036 + WORK-REF23037 LWORK-REF23038 INFO-REF23039)))) + +(CFFI:DEFCFUN ("zungtsqr_" %%ZUNGTSQR :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (MB :POINTER) + (NB :POINTER) + (A :POINTER) + (LDA :POINTER) + (T :POINTER) + (LDT :POINTER) + (WORK :POINTER) + (LWORK :POINTER) + (INFO :POINTER)) + +(COMMON-LISP:DEFUN %ZUNGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGTSQR) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + T) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + WORK) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23040 ':INT32) (N-REF23041 ':INT32) + (MB-REF23042 ':INT32) (NB-REF23043 ':INT32) + (LDA-REF23045 ':INT32) (LDT-REF23047 ':INT32) + (LWORK-REF23049 ':INT32) (INFO-REF23050 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23040 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23041 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF23042 :INT32) MB) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF23043 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23045 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23047 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23049 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23050 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23044 A) (T-REF23046 T) + (WORK-REF23048 WORK)) + (%%ZUNGTSQR M-REF23040 N-REF23041 MB-REF23042 NB-REF23043 A-REF23044 + LDA-REF23045 T-REF23046 LDT-REF23047 WORK-REF23048 LWORK-REF23049 + INFO-REF23050)))) + +(CFFI:DEFCFUN ("zunhr_col_" %%ZUNHR_COL :LIBRARY + MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) + :VOID + (M :POINTER) + (N :POINTER) + (NB :POINTER) + (A :POINTER) + (LDA :POINTER) + (T :POINTER) + (LDT :POINTER) + (D :POINTER) + (INFO :POINTER)) -(CFFI:DEFCFUN ("zunm22_" %%ZUNM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(COMMON-LISP:DEFUN %ZUNHR_COL (M N NB A LDA T LDT D INFO) + (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNHR_COL) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + A) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + T) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT) + (COMMON-LISP:TYPE + (COMMON-LISP:SIMPLE-ARRAY + (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) + (COMMON-LISP:*)) + D) + (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23051 ':INT32) (N-REF23052 ':INT32) + (NB-REF23053 ':INT32) (LDA-REF23055 ':INT32) + (LDT-REF23057 ':INT32) (INFO-REF23059 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23051 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23052 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF23053 :INT32) NB) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23055 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF23057 :INT32) LDT) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23059 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23054 A) (T-REF23056 T) + (D-REF23058 D)) + (%%ZUNHR_COL M-REF23051 N-REF23052 NB-REF23053 A-REF23054 LDA-REF23055 + T-REF23056 LDT-REF23057 D-REF23058 INFO-REF23059)))) + +(CFFI:DEFCFUN ("zunm22_" %%ZUNM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12785,25 +12905,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23015 ':INT32) (N-REF23016 ':INT32) - (N1-REF23017 ':INT32) (N2-REF23018 ':INT32) - (LDQ-REF23020 ':INT32) (LDC-REF23022 ':INT32) - (LWORK-REF23024 ':INT32) (INFO-REF23025 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23015 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23016 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF23017 :INT32) N1) - (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF23018 :INT32) N2) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23020 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23022 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23024 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23025 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF23019 Q) (C-REF23021 C) - (WORK-REF23023 WORK)) - (%%ZUNM22 SIDE TRANS M-REF23015 N-REF23016 N1-REF23017 N2-REF23018 - Q-REF23019 LDQ-REF23020 C-REF23021 LDC-REF23022 WORK-REF23023 - LWORK-REF23024 INFO-REF23025)))) - -(CFFI:DEFCFUN ("zunm2l_" %%ZUNM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23062 ':INT32) (N-REF23063 ':INT32) + (N1-REF23064 ':INT32) (N2-REF23065 ':INT32) + (LDQ-REF23067 ':INT32) (LDC-REF23069 ':INT32) + (LWORK-REF23071 ':INT32) (INFO-REF23072 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23062 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23063 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF23064 :INT32) N1) + (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF23065 :INT32) N2) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23067 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23069 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23071 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23072 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF23066 Q) (C-REF23068 C) + (WORK-REF23070 WORK)) + (%%ZUNM22 SIDE TRANS M-REF23062 N-REF23063 N1-REF23064 N2-REF23065 + Q-REF23066 LDQ-REF23067 C-REF23068 LDC-REF23069 WORK-REF23070 + LWORK-REF23071 INFO-REF23072)))) + +(CFFI:DEFCFUN ("zunm2l_" %%ZUNM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12848,22 +12968,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23028 ':INT32) (N-REF23029 ':INT32) - (K-REF23030 ':INT32) (LDA-REF23032 ':INT32) - (LDC-REF23035 ':INT32) (INFO-REF23037 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23028 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23029 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23030 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23032 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23035 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23037 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23031 A) (TAU-REF23033 TAU) - (C-REF23034 C) (WORK-REF23036 WORK)) - (%%ZUNM2L SIDE TRANS M-REF23028 N-REF23029 K-REF23030 A-REF23031 - LDA-REF23032 TAU-REF23033 C-REF23034 LDC-REF23035 WORK-REF23036 - INFO-REF23037)))) - -(CFFI:DEFCFUN ("zunm2r_" %%ZUNM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23075 ':INT32) (N-REF23076 ':INT32) + (K-REF23077 ':INT32) (LDA-REF23079 ':INT32) + (LDC-REF23082 ':INT32) (INFO-REF23084 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23075 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23076 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23077 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23079 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23082 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23084 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23078 A) (TAU-REF23080 TAU) + (C-REF23081 C) (WORK-REF23083 WORK)) + (%%ZUNM2L SIDE TRANS M-REF23075 N-REF23076 K-REF23077 A-REF23078 + LDA-REF23079 TAU-REF23080 C-REF23081 LDC-REF23082 WORK-REF23083 + INFO-REF23084)))) + +(CFFI:DEFCFUN ("zunm2r_" %%ZUNM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -12908,22 +13028,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23040 ':INT32) (N-REF23041 ':INT32) - (K-REF23042 ':INT32) (LDA-REF23044 ':INT32) - (LDC-REF23047 ':INT32) (INFO-REF23049 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23040 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23041 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23042 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23044 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23047 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23049 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23043 A) (TAU-REF23045 TAU) - (C-REF23046 C) (WORK-REF23048 WORK)) - (%%ZUNM2R SIDE TRANS M-REF23040 N-REF23041 K-REF23042 A-REF23043 - LDA-REF23044 TAU-REF23045 C-REF23046 LDC-REF23047 WORK-REF23048 - INFO-REF23049)))) - -(CFFI:DEFCFUN ("zunmbr_" %%ZUNMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23087 ':INT32) (N-REF23088 ':INT32) + (K-REF23089 ':INT32) (LDA-REF23091 ':INT32) + (LDC-REF23094 ':INT32) (INFO-REF23096 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23087 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23088 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23089 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23091 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23094 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23096 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23090 A) (TAU-REF23092 TAU) + (C-REF23093 C) (WORK-REF23095 WORK)) + (%%ZUNM2R SIDE TRANS M-REF23087 N-REF23088 K-REF23089 A-REF23090 + LDA-REF23091 TAU-REF23092 C-REF23093 LDC-REF23094 WORK-REF23095 + INFO-REF23096)))) + +(CFFI:DEFCFUN ("zunmbr_" %%ZUNMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (VECT :STRING) (SIDE :STRING) @@ -12973,24 +13093,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23053 ':INT32) (N-REF23054 ':INT32) - (K-REF23055 ':INT32) (LDA-REF23057 ':INT32) - (LDC-REF23060 ':INT32) (LWORK-REF23062 ':INT32) - (INFO-REF23063 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23053 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23054 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23055 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23057 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23060 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23062 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23063 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23056 A) (TAU-REF23058 TAU) - (C-REF23059 C) (WORK-REF23061 WORK)) - (%%ZUNMBR VECT SIDE TRANS M-REF23053 N-REF23054 K-REF23055 A-REF23056 - LDA-REF23057 TAU-REF23058 C-REF23059 LDC-REF23060 WORK-REF23061 - LWORK-REF23062 INFO-REF23063)))) - -(CFFI:DEFCFUN ("zunmhr_" %%ZUNMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23100 ':INT32) (N-REF23101 ':INT32) + (K-REF23102 ':INT32) (LDA-REF23104 ':INT32) + (LDC-REF23107 ':INT32) (LWORK-REF23109 ':INT32) + (INFO-REF23110 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23100 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23101 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23102 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23104 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23107 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23109 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23110 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23103 A) (TAU-REF23105 TAU) + (C-REF23106 C) (WORK-REF23108 WORK)) + (%%ZUNMBR VECT SIDE TRANS M-REF23100 N-REF23101 K-REF23102 A-REF23103 + LDA-REF23104 TAU-REF23105 C-REF23106 LDC-REF23107 WORK-REF23108 + LWORK-REF23109 INFO-REF23110)))) + +(CFFI:DEFCFUN ("zunmhr_" %%ZUNMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13040,25 +13160,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23066 ':INT32) (N-REF23067 ':INT32) - (ILO-REF23068 ':INT32) (IHI-REF23069 ':INT32) - (LDA-REF23071 ':INT32) (LDC-REF23074 ':INT32) - (LWORK-REF23076 ':INT32) (INFO-REF23077 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23066 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23067 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF23068 :INT32) ILO) - (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF23069 :INT32) IHI) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23071 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23074 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23076 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23077 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23070 A) (TAU-REF23072 TAU) - (C-REF23073 C) (WORK-REF23075 WORK)) - (%%ZUNMHR SIDE TRANS M-REF23066 N-REF23067 ILO-REF23068 IHI-REF23069 - A-REF23070 LDA-REF23071 TAU-REF23072 C-REF23073 LDC-REF23074 - WORK-REF23075 LWORK-REF23076 INFO-REF23077)))) - -(CFFI:DEFCFUN ("zunml2_" %%ZUNML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23113 ':INT32) (N-REF23114 ':INT32) + (ILO-REF23115 ':INT32) (IHI-REF23116 ':INT32) + (LDA-REF23118 ':INT32) (LDC-REF23121 ':INT32) + (LWORK-REF23123 ':INT32) (INFO-REF23124 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23113 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23114 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF23115 :INT32) ILO) + (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF23116 :INT32) IHI) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23118 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23121 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23123 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23124 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23117 A) (TAU-REF23119 TAU) + (C-REF23120 C) (WORK-REF23122 WORK)) + (%%ZUNMHR SIDE TRANS M-REF23113 N-REF23114 ILO-REF23115 IHI-REF23116 + A-REF23117 LDA-REF23118 TAU-REF23119 C-REF23120 LDC-REF23121 + WORK-REF23122 LWORK-REF23123 INFO-REF23124)))) + +(CFFI:DEFCFUN ("zunml2_" %%ZUNML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13103,22 +13223,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23080 ':INT32) (N-REF23081 ':INT32) - (K-REF23082 ':INT32) (LDA-REF23084 ':INT32) - (LDC-REF23087 ':INT32) (INFO-REF23089 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23080 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23081 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23082 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23084 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23087 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23089 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23083 A) (TAU-REF23085 TAU) - (C-REF23086 C) (WORK-REF23088 WORK)) - (%%ZUNML2 SIDE TRANS M-REF23080 N-REF23081 K-REF23082 A-REF23083 - LDA-REF23084 TAU-REF23085 C-REF23086 LDC-REF23087 WORK-REF23088 - INFO-REF23089)))) - -(CFFI:DEFCFUN ("zunmlq_" %%ZUNMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23127 ':INT32) (N-REF23128 ':INT32) + (K-REF23129 ':INT32) (LDA-REF23131 ':INT32) + (LDC-REF23134 ':INT32) (INFO-REF23136 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23127 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23128 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23129 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23131 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23134 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23136 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23130 A) (TAU-REF23132 TAU) + (C-REF23133 C) (WORK-REF23135 WORK)) + (%%ZUNML2 SIDE TRANS M-REF23127 N-REF23128 K-REF23129 A-REF23130 + LDA-REF23131 TAU-REF23132 C-REF23133 LDC-REF23134 WORK-REF23135 + INFO-REF23136)))) + +(CFFI:DEFCFUN ("zunmlq_" %%ZUNMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13165,24 +13285,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23092 ':INT32) (N-REF23093 ':INT32) - (K-REF23094 ':INT32) (LDA-REF23096 ':INT32) - (LDC-REF23099 ':INT32) (LWORK-REF23101 ':INT32) - (INFO-REF23102 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23092 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23093 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23094 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23096 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23099 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23101 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23102 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23095 A) (TAU-REF23097 TAU) - (C-REF23098 C) (WORK-REF23100 WORK)) - (%%ZUNMLQ SIDE TRANS M-REF23092 N-REF23093 K-REF23094 A-REF23095 - LDA-REF23096 TAU-REF23097 C-REF23098 LDC-REF23099 WORK-REF23100 - LWORK-REF23101 INFO-REF23102)))) - -(CFFI:DEFCFUN ("zunmql_" %%ZUNMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23139 ':INT32) (N-REF23140 ':INT32) + (K-REF23141 ':INT32) (LDA-REF23143 ':INT32) + (LDC-REF23146 ':INT32) (LWORK-REF23148 ':INT32) + (INFO-REF23149 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23139 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23140 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23141 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23143 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23146 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23148 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23149 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23142 A) (TAU-REF23144 TAU) + (C-REF23145 C) (WORK-REF23147 WORK)) + (%%ZUNMLQ SIDE TRANS M-REF23139 N-REF23140 K-REF23141 A-REF23142 + LDA-REF23143 TAU-REF23144 C-REF23145 LDC-REF23146 WORK-REF23147 + LWORK-REF23148 INFO-REF23149)))) + +(CFFI:DEFCFUN ("zunmql_" %%ZUNMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13229,24 +13349,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23105 ':INT32) (N-REF23106 ':INT32) - (K-REF23107 ':INT32) (LDA-REF23109 ':INT32) - (LDC-REF23112 ':INT32) (LWORK-REF23114 ':INT32) - (INFO-REF23115 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23105 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23106 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23107 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23109 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23112 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23114 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23115 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23108 A) (TAU-REF23110 TAU) - (C-REF23111 C) (WORK-REF23113 WORK)) - (%%ZUNMQL SIDE TRANS M-REF23105 N-REF23106 K-REF23107 A-REF23108 - LDA-REF23109 TAU-REF23110 C-REF23111 LDC-REF23112 WORK-REF23113 - LWORK-REF23114 INFO-REF23115)))) - -(CFFI:DEFCFUN ("zunmqr_" %%ZUNMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23152 ':INT32) (N-REF23153 ':INT32) + (K-REF23154 ':INT32) (LDA-REF23156 ':INT32) + (LDC-REF23159 ':INT32) (LWORK-REF23161 ':INT32) + (INFO-REF23162 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23152 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23153 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23154 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23156 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23159 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23161 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23162 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23155 A) (TAU-REF23157 TAU) + (C-REF23158 C) (WORK-REF23160 WORK)) + (%%ZUNMQL SIDE TRANS M-REF23152 N-REF23153 K-REF23154 A-REF23155 + LDA-REF23156 TAU-REF23157 C-REF23158 LDC-REF23159 WORK-REF23160 + LWORK-REF23161 INFO-REF23162)))) + +(CFFI:DEFCFUN ("zunmqr_" %%ZUNMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13293,24 +13413,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23118 ':INT32) (N-REF23119 ':INT32) - (K-REF23120 ':INT32) (LDA-REF23122 ':INT32) - (LDC-REF23125 ':INT32) (LWORK-REF23127 ':INT32) - (INFO-REF23128 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23118 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23119 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23120 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23122 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23125 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23127 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23128 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23121 A) (TAU-REF23123 TAU) - (C-REF23124 C) (WORK-REF23126 WORK)) - (%%ZUNMQR SIDE TRANS M-REF23118 N-REF23119 K-REF23120 A-REF23121 - LDA-REF23122 TAU-REF23123 C-REF23124 LDC-REF23125 WORK-REF23126 - LWORK-REF23127 INFO-REF23128)))) - -(CFFI:DEFCFUN ("zunmr2_" %%ZUNMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23165 ':INT32) (N-REF23166 ':INT32) + (K-REF23167 ':INT32) (LDA-REF23169 ':INT32) + (LDC-REF23172 ':INT32) (LWORK-REF23174 ':INT32) + (INFO-REF23175 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23165 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23166 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23167 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23169 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23172 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23174 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23175 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23168 A) (TAU-REF23170 TAU) + (C-REF23171 C) (WORK-REF23173 WORK)) + (%%ZUNMQR SIDE TRANS M-REF23165 N-REF23166 K-REF23167 A-REF23168 + LDA-REF23169 TAU-REF23170 C-REF23171 LDC-REF23172 WORK-REF23173 + LWORK-REF23174 INFO-REF23175)))) + +(CFFI:DEFCFUN ("zunmr2_" %%ZUNMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13355,22 +13475,22 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23131 ':INT32) (N-REF23132 ':INT32) - (K-REF23133 ':INT32) (LDA-REF23135 ':INT32) - (LDC-REF23138 ':INT32) (INFO-REF23140 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23131 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23132 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23133 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23135 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23138 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23140 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23134 A) (TAU-REF23136 TAU) - (C-REF23137 C) (WORK-REF23139 WORK)) - (%%ZUNMR2 SIDE TRANS M-REF23131 N-REF23132 K-REF23133 A-REF23134 - LDA-REF23135 TAU-REF23136 C-REF23137 LDC-REF23138 WORK-REF23139 - INFO-REF23140)))) - -(CFFI:DEFCFUN ("zunmr3_" %%ZUNMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23178 ':INT32) (N-REF23179 ':INT32) + (K-REF23180 ':INT32) (LDA-REF23182 ':INT32) + (LDC-REF23185 ':INT32) (INFO-REF23187 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23178 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23179 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23180 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23182 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23185 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23187 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23181 A) (TAU-REF23183 TAU) + (C-REF23184 C) (WORK-REF23186 WORK)) + (%%ZUNMR2 SIDE TRANS M-REF23178 N-REF23179 K-REF23180 A-REF23181 + LDA-REF23182 TAU-REF23183 C-REF23184 LDC-REF23185 WORK-REF23186 + INFO-REF23187)))) + +(CFFI:DEFCFUN ("zunmr3_" %%ZUNMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13417,24 +13537,24 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23143 ':INT32) (N-REF23144 ':INT32) - (K-REF23145 ':INT32) (L-REF23146 ':INT32) - (LDA-REF23148 ':INT32) (LDC-REF23151 ':INT32) - (INFO-REF23153 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23143 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23144 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23145 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23146 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23148 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23151 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23153 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23147 A) (TAU-REF23149 TAU) - (C-REF23150 C) (WORK-REF23152 WORK)) - (%%ZUNMR3 SIDE TRANS M-REF23143 N-REF23144 K-REF23145 L-REF23146 - A-REF23147 LDA-REF23148 TAU-REF23149 C-REF23150 LDC-REF23151 - WORK-REF23152 INFO-REF23153)))) - -(CFFI:DEFCFUN ("zunmrq_" %%ZUNMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23190 ':INT32) (N-REF23191 ':INT32) + (K-REF23192 ':INT32) (L-REF23193 ':INT32) + (LDA-REF23195 ':INT32) (LDC-REF23198 ':INT32) + (INFO-REF23200 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23190 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23191 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23192 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23193 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23195 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23198 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23200 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23194 A) (TAU-REF23196 TAU) + (C-REF23197 C) (WORK-REF23199 WORK)) + (%%ZUNMR3 SIDE TRANS M-REF23190 N-REF23191 K-REF23192 L-REF23193 + A-REF23194 LDA-REF23195 TAU-REF23196 C-REF23197 LDC-REF23198 + WORK-REF23199 INFO-REF23200)))) + +(CFFI:DEFCFUN ("zunmrq_" %%ZUNMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13481,24 +13601,24 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23156 ':INT32) (N-REF23157 ':INT32) - (K-REF23158 ':INT32) (LDA-REF23160 ':INT32) - (LDC-REF23163 ':INT32) (LWORK-REF23165 ':INT32) - (INFO-REF23166 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23156 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23157 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23158 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23160 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23163 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23165 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23166 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23159 A) (TAU-REF23161 TAU) - (C-REF23162 C) (WORK-REF23164 WORK)) - (%%ZUNMRQ SIDE TRANS M-REF23156 N-REF23157 K-REF23158 A-REF23159 - LDA-REF23160 TAU-REF23161 C-REF23162 LDC-REF23163 WORK-REF23164 - LWORK-REF23165 INFO-REF23166)))) - -(CFFI:DEFCFUN ("zunmrz_" %%ZUNMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23203 ':INT32) (N-REF23204 ':INT32) + (K-REF23205 ':INT32) (LDA-REF23207 ':INT32) + (LDC-REF23210 ':INT32) (LWORK-REF23212 ':INT32) + (INFO-REF23213 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23203 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23204 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23205 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23207 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23210 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23212 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23213 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23206 A) (TAU-REF23208 TAU) + (C-REF23209 C) (WORK-REF23211 WORK)) + (%%ZUNMRQ SIDE TRANS M-REF23203 N-REF23204 K-REF23205 A-REF23206 + LDA-REF23207 TAU-REF23208 C-REF23209 LDC-REF23210 WORK-REF23211 + LWORK-REF23212 INFO-REF23213)))) + +(CFFI:DEFCFUN ("zunmrz_" %%ZUNMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (TRANS :STRING) @@ -13547,25 +13667,25 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23169 ':INT32) (N-REF23170 ':INT32) - (K-REF23171 ':INT32) (L-REF23172 ':INT32) - (LDA-REF23174 ':INT32) (LDC-REF23177 ':INT32) - (LWORK-REF23179 ':INT32) (INFO-REF23180 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23169 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23170 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23171 :INT32) K) - (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23172 :INT32) L) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23174 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23177 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23179 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23180 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23173 A) (TAU-REF23175 TAU) - (C-REF23176 C) (WORK-REF23178 WORK)) - (%%ZUNMRZ SIDE TRANS M-REF23169 N-REF23170 K-REF23171 L-REF23172 - A-REF23173 LDA-REF23174 TAU-REF23175 C-REF23176 LDC-REF23177 - WORK-REF23178 LWORK-REF23179 INFO-REF23180)))) - -(CFFI:DEFCFUN ("zunmtr_" %%ZUNMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23216 ':INT32) (N-REF23217 ':INT32) + (K-REF23218 ':INT32) (L-REF23219 ':INT32) + (LDA-REF23221 ':INT32) (LDC-REF23224 ':INT32) + (LWORK-REF23226 ':INT32) (INFO-REF23227 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23216 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23217 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23218 :INT32) K) + (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23219 :INT32) L) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23221 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23224 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23226 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23227 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23220 A) (TAU-REF23222 TAU) + (C-REF23223 C) (WORK-REF23225 WORK)) + (%%ZUNMRZ SIDE TRANS M-REF23216 N-REF23217 K-REF23218 L-REF23219 + A-REF23220 LDA-REF23221 TAU-REF23222 C-REF23223 LDC-REF23224 + WORK-REF23225 LWORK-REF23226 INFO-REF23227)))) + +(CFFI:DEFCFUN ("zunmtr_" %%ZUNMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (UPLO :STRING) @@ -13613,22 +13733,22 @@ WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23184 ':INT32) (N-REF23185 ':INT32) - (LDA-REF23187 ':INT32) (LDC-REF23190 ':INT32) - (LWORK-REF23192 ':INT32) (INFO-REF23193 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23184 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23185 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23187 :INT32) LDA) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23190 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23192 :INT32) LWORK) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23193 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23186 A) (TAU-REF23188 TAU) - (C-REF23189 C) (WORK-REF23191 WORK)) - (%%ZUNMTR SIDE UPLO TRANS M-REF23184 N-REF23185 A-REF23186 LDA-REF23187 - TAU-REF23188 C-REF23189 LDC-REF23190 WORK-REF23191 - LWORK-REF23192 INFO-REF23193)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23231 ':INT32) (N-REF23232 ':INT32) + (LDA-REF23234 ':INT32) (LDC-REF23237 ':INT32) + (LWORK-REF23239 ':INT32) (INFO-REF23240 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23231 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23232 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23234 :INT32) LDA) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23237 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23239 :INT32) LWORK) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23240 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23233 A) (TAU-REF23235 TAU) + (C-REF23236 C) (WORK-REF23238 WORK)) + (%%ZUNMTR SIDE UPLO TRANS M-REF23231 N-REF23232 A-REF23233 LDA-REF23234 + TAU-REF23235 C-REF23236 LDC-REF23237 WORK-REF23238 LWORK-REF23239 + INFO-REF23240)))) -(CFFI:DEFCFUN ("zupgtr_" %%ZUPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zupgtr_" %%ZUPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (UPLO :STRING) (N :POINTER) @@ -13665,17 +13785,17 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23195 ':INT32) (LDQ-REF23199 ':INT32) - (INFO-REF23201 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23195 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23199 :INT32) LDQ) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23201 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23196 AP) (TAU-REF23197 TAU) - (Q-REF23198 Q) (WORK-REF23200 WORK)) - (%%ZUPGTR UPLO N-REF23195 AP-REF23196 TAU-REF23197 Q-REF23198 - LDQ-REF23199 WORK-REF23200 INFO-REF23201)))) + (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23242 ':INT32) (LDQ-REF23246 ':INT32) + (INFO-REF23248 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23242 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23246 :INT32) LDQ) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23248 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23243 AP) (TAU-REF23244 TAU) + (Q-REF23245 Q) (WORK-REF23247 WORK)) + (%%ZUPGTR UPLO N-REF23242 AP-REF23243 TAU-REF23244 Q-REF23245 + LDQ-REF23246 WORK-REF23247 INFO-REF23248)))) -(CFFI:DEFCFUN ("zupmtr_" %%ZUPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK) +(CFFI:DEFCFUN ("zupmtr_" %%ZUPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK) :VOID (SIDE :STRING) (UPLO :STRING) @@ -13718,363 +13838,424 @@ (COMMON-LISP:*)) WORK) (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)) - (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23205 ':INT32) (N-REF23206 ':INT32) - (LDC-REF23210 ':INT32) (INFO-REF23212 ':INT32)) - (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23205 :INT32) M) - (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23206 :INT32) N) - (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23210 :INT32) LDC) - (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23212 :INT32) INFO) - (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23207 AP) (TAU-REF23208 TAU) - (C-REF23209 C) (WORK-REF23211 WORK)) - (%%ZUPMTR SIDE UPLO TRANS M-REF23205 N-REF23206 AP-REF23207 TAU-REF23208 - C-REF23209 LDC-REF23210 WORK-REF23211 INFO-REF23212)))) + (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23252 ':INT32) (N-REF23253 ':INT32) + (LDC-REF23257 ':INT32) (INFO-REF23259 ':INT32)) + (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23252 :INT32) M) + (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23253 :INT32) N) + (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23257 :INT32) LDC) + (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23259 :INT32) INFO) + (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23254 AP) (TAU-REF23255 TAU) + (C-REF23256 C) (WORK-REF23258 WORK)) + (%%ZUPMTR SIDE UPLO TRANS M-REF23252 N-REF23253 AP-REF23254 TAU-REF23255 + C-REF23256 LDC-REF23257 WORK-REF23258 INFO-REF23259)))) (COMMON-LISP:DECLAIM - (COMMON-LISP:NOTINLINE %%ZLANHF %ZLANHF %%ZLANHP %ZLANHP %%ZLANHS %ZLANHS - %%ZLANHT %ZLANHT %%ZLANSB %ZLANSB %%ZLANSP %ZLANSP %%ZLANSY %ZLANSY %%ZLANTB - %ZLANTB %%ZLANTP %ZLANTP %%ZLANTR %ZLANTR %%ZLAPLL %ZLAPLL %%ZLAPMR %ZLAPMR - %%ZLAPMT %ZLAPMT %%ZLAQGB %ZLAQGB %%ZLAQGE %ZLAQGE %%ZLAQHB %ZLAQHB %%ZLAQHE - %ZLAQHE %%ZLAQHP %ZLAQHP %%ZLAQP2 %ZLAQP2 %%ZLAQPS %ZLAQPS %%ZLAQR0 %ZLAQR0 - %%ZLAQR1 %ZLAQR1 %%ZLAQR2 %ZLAQR2 %%ZLAQR3 %ZLAQR3 %%ZLAQR4 %ZLAQR4 %%ZLAQR5 - %ZLAQR5 %%ZLAQSB %ZLAQSB %%ZLAQSP %ZLAQSP %%ZLAQSY %ZLAQSY %%ZLAR1V %ZLAR1V - %%ZLAR2V %ZLAR2V %%ZLARCM %ZLARCM %%ZLARF %ZLARF %%ZLARFB %ZLARFB %%ZLARFG - %ZLARFG %%ZLARFGP %ZLARFGP %%ZLARFT %ZLARFT %%ZLARFX %ZLARFX %%ZLARFY %ZLARFY - %%ZLARGV %ZLARGV %%ZLARNV %ZLARNV %%ZLARRV %ZLARRV %%ZLARSCL2 %ZLARSCL2 - %%ZLARTG %ZLARTG %%ZLARTV %ZLARTV %%ZLARZ %ZLARZ %%ZLARZB %ZLARZB %%ZLARZT - %ZLARZT %%ZLASCL %ZLASCL %%ZLASCL2 %ZLASCL2 %%ZLASET %ZLASET %%ZLASR %ZLASR - %%ZLASSQ %ZLASSQ %%ZLASWLQ %ZLASWLQ %%ZLASWP %ZLASWP %%ZLASYF %ZLASYF - %%ZLASYF_AA %ZLASYF_AA %%ZLASYF_RK %ZLASYF_RK %%ZLASYF_ROOK %ZLASYF_ROOK - %%ZLAT2C %ZLAT2C %%ZLATBS %ZLATBS %%ZLATDF %ZLATDF %%ZLATPS %ZLATPS %%ZLATRD - %ZLATRD %%ZLATRS %ZLATRS %%ZLATRZ %ZLATRZ %%ZLATSQR %ZLATSQR %%ZLAUU2 %ZLAUU2 - %%ZLAUUM %ZLAUUM %%ZPBCON %ZPBCON %%ZPBEQU %ZPBEQU %%ZPBRFS %ZPBRFS %%ZPBSTF - %ZPBSTF %%ZPBSV %ZPBSV %%ZPBSVX %ZPBSVX %%ZPBTF2 %ZPBTF2 %%ZPBTRF %ZPBTRF - %%ZPBTRS %ZPBTRS %%ZPFTRF %ZPFTRF %%ZPFTRI %ZPFTRI %%ZPFTRS %ZPFTRS %%ZPOCON - %ZPOCON %%ZPOEQU %ZPOEQU %%ZPOEQUB %ZPOEQUB %%ZPORFS %ZPORFS %%ZPORFSX - %ZPORFSX %%ZPOSV %ZPOSV %%ZPOSVX %ZPOSVX %%ZPOSVXX %ZPOSVXX %%ZPOTF2 %ZPOTF2 - %%ZPOTRF %ZPOTRF %%ZPOTRF2 %ZPOTRF2 %%ZPOTRI %ZPOTRI %%ZPOTRS %ZPOTRS - %%ZPPCON %ZPPCON %%ZPPEQU %ZPPEQU %%ZPPRFS %ZPPRFS %%ZPPSV %ZPPSV %%ZPPSVX - %ZPPSVX %%ZPPTRF %ZPPTRF %%ZPPTRI %ZPPTRI %%ZPPTRS %ZPPTRS %%ZPSTF2 %ZPSTF2 - %%ZPSTRF %ZPSTRF %%ZPTCON %ZPTCON %%ZPTEQR %ZPTEQR %%ZPTRFS %ZPTRFS %%ZPTSV - %ZPTSV %%ZPTSVX %ZPTSVX %%ZPTTRF %ZPTTRF %%ZPTTRS %ZPTTRS %%ZPTTS2 %ZPTTS2 - %%ZROT %ZROT %%ZSPCON %ZSPCON %%ZSPMV %ZSPMV %%ZSPR %ZSPR %%ZSPRFS %ZSPRFS - %%ZSPSV %ZSPSV %%ZSPSVX %ZSPSVX %%ZSPTRF %ZSPTRF %%ZSPTRI %ZSPTRI %%ZSPTRS - %ZSPTRS %%ZSTEDC %ZSTEDC %%ZSTEGR %ZSTEGR %%ZSTEIN %ZSTEIN %%ZSTEMR %ZSTEMR - %%ZSTEQR %ZSTEQR %%ZSYCON %ZSYCON %%ZSYCON_3 %ZSYCON_3 %%ZSYCON_ROOK - %ZSYCON_ROOK %%ZSYCONV %ZSYCONV %%ZSYCONVF %ZSYCONVF %%ZSYCONVF_ROOK - %ZSYCONVF_ROOK %%ZSYEQUB %ZSYEQUB %%ZSYMV %ZSYMV %%ZSYR %ZSYR %%ZSYRFS - %ZSYRFS %%ZSYRFSX %ZSYRFSX %%ZSYSV %ZSYSV %%ZSYSV_AA %ZSYSV_AA - %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE %%ZSYSV_RK %ZSYSV_RK %%ZSYSV_ROOK - %ZSYSV_ROOK %%ZSYSVX %ZSYSVX %%ZSYSVXX %ZSYSVXX %%ZSYSWAPR %ZSYSWAPR %%ZSYTF2 - %ZSYTF2 %%ZSYTF2_RK %ZSYTF2_RK %%ZSYTF2_ROOK %ZSYTF2_ROOK %%ZSYTRF %ZSYTRF - %%ZSYTRF_AA %ZSYTRF_AA %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE %%ZSYTRF_RK - %ZSYTRF_RK %%ZSYTRF_ROOK %ZSYTRF_ROOK %%ZSYTRI %ZSYTRI %%ZSYTRI2 %ZSYTRI2 - %%ZSYTRI2X %ZSYTRI2X %%ZSYTRI_3 %ZSYTRI_3 %%ZSYTRI_3X %ZSYTRI_3X - %%ZSYTRI_ROOK %ZSYTRI_ROOK %%ZSYTRS %ZSYTRS %%ZSYTRS2 %ZSYTRS2 %%ZSYTRS_3 - %ZSYTRS_3 %%ZSYTRS_AA %ZSYTRS_AA %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE - %%ZSYTRS_ROOK %ZSYTRS_ROOK %%ZTBCON %ZTBCON %%ZTBRFS %ZTBRFS %%ZTBTRS %ZTBTRS - %%ZTFSM %ZTFSM %%ZTFTRI %ZTFTRI %%ZTFTTP %ZTFTTP %%ZTFTTR %ZTFTTR %%ZTGEVC - %ZTGEVC %%ZTGEX2 %ZTGEX2 %%ZTGEXC %ZTGEXC %%ZTGSEN %ZTGSEN %%ZTGSJA %ZTGSJA - %%ZTGSNA %ZTGSNA %%ZTGSY2 %ZTGSY2 %%ZTGSYL %ZTGSYL %%ZTPCON %ZTPCON %%ZTPLQT - %ZTPLQT %%ZTPLQT2 %ZTPLQT2 %%ZTPMLQT %ZTPMLQT %%ZTPMQRT %ZTPMQRT %%ZTPQRT - %ZTPQRT %%ZTPQRT2 %ZTPQRT2 %%ZTPRFB %ZTPRFB %%ZTPRFS %ZTPRFS %%ZTPTRI %ZTPTRI - %%ZTPTRS %ZTPTRS %%ZTPTTF %ZTPTTF %%ZTPTTR %ZTPTTR %%ZTRCON %ZTRCON %%ZTREVC - %ZTREVC %%ZTREVC3 %ZTREVC3 %%ZTREXC %ZTREXC %%ZTRRFS %ZTRRFS %%ZTRSEN %ZTRSEN - %%ZTRSNA %ZTRSNA %%ZTRSYL %ZTRSYL %%ZTRTI2 %ZTRTI2 %%ZTRTRI %ZTRTRI %%ZTRTRS - %ZTRTRS %%ZTRTTF %ZTRTTF %%ZTRTTP %ZTRTTP %%ZTZRZF %ZTZRZF %%ZUNBDB %ZUNBDB - %%ZUNBDB1 %ZUNBDB1 %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB3 %ZUNBDB3 %%ZUNBDB4 %ZUNBDB4 - %%ZUNBDB5 %ZUNBDB5 %%ZUNBDB6 %ZUNBDB6 %%ZUNCSD %ZUNCSD %%ZUNCSD2BY1 - %ZUNCSD2BY1 %%ZUNG2L %ZUNG2L %%ZUNG2R %ZUNG2R %%ZUNGBR %ZUNGBR %%ZUNGHR - %ZUNGHR %%ZUNGL2 %ZUNGL2 %%ZUNGLQ %ZUNGLQ %%ZUNGQL %ZUNGQL %%ZUNGQR %ZUNGQR - %%ZUNGR2 %ZUNGR2 %%ZUNGRQ %ZUNGRQ %%ZUNGTR %ZUNGTR %%ZUNM22 %ZUNM22 %%ZUNM2L - %ZUNM2L %%ZUNM2R %ZUNM2R %%ZUNMBR %ZUNMBR %%ZUNMHR %ZUNMHR %%ZUNML2 %ZUNML2 - %%ZUNMLQ %ZUNMLQ %%ZUNMQL %ZUNMQL %%ZUNMQR %ZUNMQR %%ZUNMR2 %ZUNMR2 %%ZUNMR3 - %ZUNMR3 %%ZUNMRQ %ZUNMRQ %%ZUNMRZ %ZUNMRZ %%ZUNMTR %ZUNMTR %%ZUPGTR %ZUPGTR - %%ZUPMTR %ZUPMTR)) - -(MAGICL.FOREIGN-LIBRARIES::TRACK-SYMBOLS - 'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK - '(("ZLANHF" "zlanhf_" %%ZLANHF %ZLANHF) - ("ZLANHP" "zlanhp_" %%ZLANHP %ZLANHP) - ("ZLANHS" "zlanhs_" %%ZLANHS %ZLANHS) - ("ZLANHT" "zlanht_" %%ZLANHT %ZLANHT) - ("ZLANSB" "zlansb_" %%ZLANSB %ZLANSB) - ("ZLANSP" "zlansp_" %%ZLANSP %ZLANSP) - ("ZLANSY" "zlansy_" %%ZLANSY %ZLANSY) - ("ZLANTB" "zlantb_" %%ZLANTB %ZLANTB) - ("ZLANTP" "zlantp_" %%ZLANTP %ZLANTP) - ("ZLANTR" "zlantr_" %%ZLANTR %ZLANTR) - ("ZLAPLL" "zlapll_" %%ZLAPLL %ZLAPLL) - ("ZLAPMR" "zlapmr_" %%ZLAPMR %ZLAPMR) - ("ZLAPMT" "zlapmt_" %%ZLAPMT %ZLAPMT) - ("ZLAQGB" "zlaqgb_" %%ZLAQGB %ZLAQGB) - ("ZLAQGE" "zlaqge_" %%ZLAQGE %ZLAQGE) - ("ZLAQHB" "zlaqhb_" %%ZLAQHB %ZLAQHB) - ("ZLAQHE" "zlaqhe_" %%ZLAQHE %ZLAQHE) - ("ZLAQHP" "zlaqhp_" %%ZLAQHP %ZLAQHP) - ("ZLAQP2" "zlaqp2_" %%ZLAQP2 %ZLAQP2) - ("ZLAQPS" "zlaqps_" %%ZLAQPS %ZLAQPS) - ("ZLAQR0" "zlaqr0_" %%ZLAQR0 %ZLAQR0) - ("ZLAQR1" "zlaqr1_" %%ZLAQR1 %ZLAQR1) - ("ZLAQR2" "zlaqr2_" %%ZLAQR2 %ZLAQR2) - ("ZLAQR3" "zlaqr3_" %%ZLAQR3 %ZLAQR3) - ("ZLAQR4" "zlaqr4_" %%ZLAQR4 %ZLAQR4) - ("ZLAQR5" "zlaqr5_" %%ZLAQR5 %ZLAQR5) - ("ZLAQSB" "zlaqsb_" %%ZLAQSB %ZLAQSB) - ("ZLAQSP" "zlaqsp_" %%ZLAQSP %ZLAQSP) - ("ZLAQSY" "zlaqsy_" %%ZLAQSY %ZLAQSY) - ("ZLAR1V" "zlar1v_" %%ZLAR1V %ZLAR1V) - ("ZLAR2V" "zlar2v_" %%ZLAR2V %ZLAR2V) - ("ZLARCM" "zlarcm_" %%ZLARCM %ZLARCM) - ("ZLARF" "zlarf_" %%ZLARF %ZLARF) - ("ZLARFB" "zlarfb_" %%ZLARFB %ZLARFB) - ("ZLARFG" "zlarfg_" %%ZLARFG %ZLARFG) - ("ZLARFGP" "zlarfgp_" %%ZLARFGP %ZLARFGP) - ("ZLARFT" "zlarft_" %%ZLARFT %ZLARFT) - ("ZLARFX" "zlarfx_" %%ZLARFX %ZLARFX) - ("ZLARFY" "zlarfy_" %%ZLARFY %ZLARFY) - ("ZLARGV" "zlargv_" %%ZLARGV %ZLARGV) - ("ZLARNV" "zlarnv_" %%ZLARNV %ZLARNV) - ("ZLARRV" "zlarrv_" %%ZLARRV %ZLARRV) - ("ZLARSCL2" "zlarscl2_" %%ZLARSCL2 %ZLARSCL2) - ("ZLARTG" "zlartg_" %%ZLARTG %ZLARTG) - ("ZLARTV" "zlartv_" %%ZLARTV %ZLARTV) - ("ZLARZ" "zlarz_" %%ZLARZ %ZLARZ) - ("ZLARZB" "zlarzb_" %%ZLARZB %ZLARZB) - ("ZLARZT" "zlarzt_" %%ZLARZT %ZLARZT) - ("ZLASCL" "zlascl_" %%ZLASCL %ZLASCL) - ("ZLASCL2" "zlascl2_" %%ZLASCL2 %ZLASCL2) - ("ZLASET" "zlaset_" %%ZLASET %ZLASET) - ("ZLASR" "zlasr_" %%ZLASR %ZLASR) - ("ZLASSQ" "zlassq_" %%ZLASSQ %ZLASSQ) - ("ZLASWLQ" "zlaswlq_" %%ZLASWLQ %ZLASWLQ) - ("ZLASWP" "zlaswp_" %%ZLASWP %ZLASWP) - ("ZLASYF" "zlasyf_" %%ZLASYF %ZLASYF) - ("ZLASYF_AA" "zlasyf_aa_" %%ZLASYF_AA %ZLASYF_AA) - ("ZLASYF_RK" "zlasyf_rk_" %%ZLASYF_RK %ZLASYF_RK) - ("ZLASYF_ROOK" "zlasyf_rook_" %%ZLASYF_ROOK %ZLASYF_ROOK) - ("ZLAT2C" "zlat2c_" %%ZLAT2C %ZLAT2C) - ("ZLATBS" "zlatbs_" %%ZLATBS %ZLATBS) - ("ZLATDF" "zlatdf_" %%ZLATDF %ZLATDF) - ("ZLATPS" "zlatps_" %%ZLATPS %ZLATPS) - ("ZLATRD" "zlatrd_" %%ZLATRD %ZLATRD) - ("ZLATRS" "zlatrs_" %%ZLATRS %ZLATRS) - ("ZLATRZ" "zlatrz_" %%ZLATRZ %ZLATRZ) - ("ZLATSQR" "zlatsqr_" %%ZLATSQR %ZLATSQR) - ("ZLAUU2" "zlauu2_" %%ZLAUU2 %ZLAUU2) - ("ZLAUUM" "zlauum_" %%ZLAUUM %ZLAUUM) - ("ZPBCON" "zpbcon_" %%ZPBCON %ZPBCON) - ("ZPBEQU" "zpbequ_" %%ZPBEQU %ZPBEQU) - ("ZPBRFS" "zpbrfs_" %%ZPBRFS %ZPBRFS) - ("ZPBSTF" "zpbstf_" %%ZPBSTF %ZPBSTF) - ("ZPBSV" "zpbsv_" %%ZPBSV %ZPBSV) - ("ZPBSVX" "zpbsvx_" %%ZPBSVX %ZPBSVX) - ("ZPBTF2" "zpbtf2_" %%ZPBTF2 %ZPBTF2) - ("ZPBTRF" "zpbtrf_" %%ZPBTRF %ZPBTRF) - ("ZPBTRS" "zpbtrs_" %%ZPBTRS %ZPBTRS) - ("ZPFTRF" "zpftrf_" %%ZPFTRF %ZPFTRF) - ("ZPFTRI" "zpftri_" %%ZPFTRI %ZPFTRI) - ("ZPFTRS" "zpftrs_" %%ZPFTRS %ZPFTRS) - ("ZPOCON" "zpocon_" %%ZPOCON %ZPOCON) - ("ZPOEQU" "zpoequ_" %%ZPOEQU %ZPOEQU) - ("ZPOEQUB" "zpoequb_" %%ZPOEQUB %ZPOEQUB) - ("ZPORFS" "zporfs_" %%ZPORFS %ZPORFS) - ("ZPORFSX" "zporfsx_" %%ZPORFSX %ZPORFSX) - ("ZPOSV" "zposv_" %%ZPOSV %ZPOSV) - ("ZPOSVX" "zposvx_" %%ZPOSVX %ZPOSVX) - ("ZPOSVXX" "zposvxx_" %%ZPOSVXX %ZPOSVXX) - ("ZPOTF2" "zpotf2_" %%ZPOTF2 %ZPOTF2) - ("ZPOTRF" "zpotrf_" %%ZPOTRF %ZPOTRF) - ("ZPOTRF2" "zpotrf2_" %%ZPOTRF2 %ZPOTRF2) - ("ZPOTRI" "zpotri_" %%ZPOTRI %ZPOTRI) - ("ZPOTRS" "zpotrs_" %%ZPOTRS %ZPOTRS) - ("ZPPCON" "zppcon_" %%ZPPCON %ZPPCON) - ("ZPPEQU" "zppequ_" %%ZPPEQU %ZPPEQU) - ("ZPPRFS" "zpprfs_" %%ZPPRFS %ZPPRFS) - ("ZPPSV" "zppsv_" %%ZPPSV %ZPPSV) - ("ZPPSVX" "zppsvx_" %%ZPPSVX %ZPPSVX) - ("ZPPTRF" "zpptrf_" %%ZPPTRF %ZPPTRF) - ("ZPPTRI" "zpptri_" %%ZPPTRI %ZPPTRI) - ("ZPPTRS" "zpptrs_" %%ZPPTRS %ZPPTRS) - ("ZPSTF2" "zpstf2_" %%ZPSTF2 %ZPSTF2) - ("ZPSTRF" "zpstrf_" %%ZPSTRF %ZPSTRF) - ("ZPTCON" "zptcon_" %%ZPTCON %ZPTCON) - ("ZPTEQR" "zpteqr_" %%ZPTEQR %ZPTEQR) - ("ZPTRFS" "zptrfs_" %%ZPTRFS %ZPTRFS) - ("ZPTSV" "zptsv_" %%ZPTSV %ZPTSV) - ("ZPTSVX" "zptsvx_" %%ZPTSVX %ZPTSVX) - ("ZPTTRF" "zpttrf_" %%ZPTTRF %ZPTTRF) - ("ZPTTRS" "zpttrs_" %%ZPTTRS %ZPTTRS) - ("ZPTTS2" "zptts2_" %%ZPTTS2 %ZPTTS2) - ("ZROT" "zrot_" %%ZROT %ZROT) - ("ZSPCON" "zspcon_" %%ZSPCON %ZSPCON) - ("ZSPMV" "zspmv_" %%ZSPMV %ZSPMV) - ("ZSPR" "zspr_" %%ZSPR %ZSPR) - ("ZSPRFS" "zsprfs_" %%ZSPRFS %ZSPRFS) - ("ZSPSV" "zspsv_" %%ZSPSV %ZSPSV) - ("ZSPSVX" "zspsvx_" %%ZSPSVX %ZSPSVX) - ("ZSPTRF" "zsptrf_" %%ZSPTRF %ZSPTRF) - ("ZSPTRI" "zsptri_" %%ZSPTRI %ZSPTRI) - ("ZSPTRS" "zsptrs_" %%ZSPTRS %ZSPTRS) - ("ZSTEDC" "zstedc_" %%ZSTEDC %ZSTEDC) - ("ZSTEGR" "zstegr_" %%ZSTEGR %ZSTEGR) - ("ZSTEIN" "zstein_" %%ZSTEIN %ZSTEIN) - ("ZSTEMR" "zstemr_" %%ZSTEMR %ZSTEMR) - ("ZSTEQR" "zsteqr_" %%ZSTEQR %ZSTEQR) - ("ZSYCON" "zsycon_" %%ZSYCON %ZSYCON) - ("ZSYCON_3" "zsycon_3_" %%ZSYCON_3 %ZSYCON_3) - ("ZSYCON_ROOK" "zsycon_rook_" %%ZSYCON_ROOK %ZSYCON_ROOK) - ("ZSYCONV" "zsyconv_" %%ZSYCONV %ZSYCONV) - ("ZSYCONVF" "zsyconvf_" %%ZSYCONVF %ZSYCONVF) - ("ZSYCONVF_ROOK" "zsyconvf_rook_" %%ZSYCONVF_ROOK - %ZSYCONVF_ROOK) - ("ZSYEQUB" "zsyequb_" %%ZSYEQUB %ZSYEQUB) - ("ZSYMV" "zsymv_" %%ZSYMV %ZSYMV) - ("ZSYR" "zsyr_" %%ZSYR %ZSYR) - ("ZSYRFS" "zsyrfs_" %%ZSYRFS %ZSYRFS) - ("ZSYRFSX" "zsyrfsx_" %%ZSYRFSX %ZSYRFSX) - ("ZSYSV" "zsysv_" %%ZSYSV %ZSYSV) - ("ZSYSV_AA" "zsysv_aa_" %%ZSYSV_AA %ZSYSV_AA) - ("ZSYSV_AA_2STAGE" "zsysv_aa_2stage_" %%ZSYSV_AA_2STAGE - %ZSYSV_AA_2STAGE) - ("ZSYSV_RK" "zsysv_rk_" %%ZSYSV_RK %ZSYSV_RK) - ("ZSYSV_ROOK" "zsysv_rook_" %%ZSYSV_ROOK %ZSYSV_ROOK) - ("ZSYSVX" "zsysvx_" %%ZSYSVX %ZSYSVX) - ("ZSYSVXX" "zsysvxx_" %%ZSYSVXX %ZSYSVXX) - ("ZSYSWAPR" "zsyswapr_" %%ZSYSWAPR %ZSYSWAPR) - ("ZSYTF2" "zsytf2_" %%ZSYTF2 %ZSYTF2) - ("ZSYTF2_RK" "zsytf2_rk_" %%ZSYTF2_RK %ZSYTF2_RK) - ("ZSYTF2_ROOK" "zsytf2_rook_" %%ZSYTF2_ROOK %ZSYTF2_ROOK) - ("ZSYTRF" "zsytrf_" %%ZSYTRF %ZSYTRF) - ("ZSYTRF_AA" "zsytrf_aa_" %%ZSYTRF_AA %ZSYTRF_AA) - ("ZSYTRF_AA_2STAGE" "zsytrf_aa_2stage_" - %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE) - ("ZSYTRF_RK" "zsytrf_rk_" %%ZSYTRF_RK %ZSYTRF_RK) - ("ZSYTRF_ROOK" "zsytrf_rook_" %%ZSYTRF_ROOK %ZSYTRF_ROOK) - ("ZSYTRI" "zsytri_" %%ZSYTRI %ZSYTRI) - ("ZSYTRI2" "zsytri2_" %%ZSYTRI2 %ZSYTRI2) - ("ZSYTRI2X" "zsytri2x_" %%ZSYTRI2X %ZSYTRI2X) - ("ZSYTRI_3" "zsytri_3_" %%ZSYTRI_3 %ZSYTRI_3) - ("ZSYTRI_3X" "zsytri_3x_" %%ZSYTRI_3X %ZSYTRI_3X) - ("ZSYTRI_ROOK" "zsytri_rook_" %%ZSYTRI_ROOK %ZSYTRI_ROOK) - ("ZSYTRS" "zsytrs_" %%ZSYTRS %ZSYTRS) - ("ZSYTRS2" "zsytrs2_" %%ZSYTRS2 %ZSYTRS2) - ("ZSYTRS_3" "zsytrs_3_" %%ZSYTRS_3 %ZSYTRS_3) - ("ZSYTRS_AA" "zsytrs_aa_" %%ZSYTRS_AA %ZSYTRS_AA) - ("ZSYTRS_AA_2STAGE" "zsytrs_aa_2stage_" - %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE) - ("ZSYTRS_ROOK" "zsytrs_rook_" %%ZSYTRS_ROOK %ZSYTRS_ROOK) - ("ZTBCON" "ztbcon_" %%ZTBCON %ZTBCON) - ("ZTBRFS" "ztbrfs_" %%ZTBRFS %ZTBRFS) - ("ZTBTRS" "ztbtrs_" %%ZTBTRS %ZTBTRS) - ("ZTFSM" "ztfsm_" %%ZTFSM %ZTFSM) - ("ZTFTRI" "ztftri_" %%ZTFTRI %ZTFTRI) - ("ZTFTTP" "ztfttp_" %%ZTFTTP %ZTFTTP) - ("ZTFTTR" "ztfttr_" %%ZTFTTR %ZTFTTR) - ("ZTGEVC" "ztgevc_" %%ZTGEVC %ZTGEVC) - ("ZTGEX2" "ztgex2_" %%ZTGEX2 %ZTGEX2) - ("ZTGEXC" "ztgexc_" %%ZTGEXC %ZTGEXC) - ("ZTGSEN" "ztgsen_" %%ZTGSEN %ZTGSEN) - ("ZTGSJA" "ztgsja_" %%ZTGSJA %ZTGSJA) - ("ZTGSNA" "ztgsna_" %%ZTGSNA %ZTGSNA) - ("ZTGSY2" "ztgsy2_" %%ZTGSY2 %ZTGSY2) - ("ZTGSYL" "ztgsyl_" %%ZTGSYL %ZTGSYL) - ("ZTPCON" "ztpcon_" %%ZTPCON %ZTPCON) - ("ZTPLQT" "ztplqt_" %%ZTPLQT %ZTPLQT) - ("ZTPLQT2" "ztplqt2_" %%ZTPLQT2 %ZTPLQT2) - ("ZTPMLQT" "ztpmlqt_" %%ZTPMLQT %ZTPMLQT) - ("ZTPMQRT" "ztpmqrt_" %%ZTPMQRT %ZTPMQRT) - ("ZTPQRT" "ztpqrt_" %%ZTPQRT %ZTPQRT) - ("ZTPQRT2" "ztpqrt2_" %%ZTPQRT2 %ZTPQRT2) - ("ZTPRFB" "ztprfb_" %%ZTPRFB %ZTPRFB) - ("ZTPRFS" "ztprfs_" %%ZTPRFS %ZTPRFS) - ("ZTPTRI" "ztptri_" %%ZTPTRI %ZTPTRI) - ("ZTPTRS" "ztptrs_" %%ZTPTRS %ZTPTRS) - ("ZTPTTF" "ztpttf_" %%ZTPTTF %ZTPTTF) - ("ZTPTTR" "ztpttr_" %%ZTPTTR %ZTPTTR) - ("ZTRCON" "ztrcon_" %%ZTRCON %ZTRCON) - ("ZTREVC" "ztrevc_" %%ZTREVC %ZTREVC) - ("ZTREVC3" "ztrevc3_" %%ZTREVC3 %ZTREVC3) - ("ZTREXC" "ztrexc_" %%ZTREXC %ZTREXC) - ("ZTRRFS" "ztrrfs_" %%ZTRRFS %ZTRRFS) - ("ZTRSEN" "ztrsen_" %%ZTRSEN %ZTRSEN) - ("ZTRSNA" "ztrsna_" %%ZTRSNA %ZTRSNA) - ("ZTRSYL" "ztrsyl_" %%ZTRSYL %ZTRSYL) - ("ZTRTI2" "ztrti2_" %%ZTRTI2 %ZTRTI2) - ("ZTRTRI" "ztrtri_" %%ZTRTRI %ZTRTRI) - ("ZTRTRS" "ztrtrs_" %%ZTRTRS %ZTRTRS) - ("ZTRTTF" "ztrttf_" %%ZTRTTF %ZTRTTF) - ("ZTRTTP" "ztrttp_" %%ZTRTTP %ZTRTTP) - ("ZTZRZF" "ztzrzf_" %%ZTZRZF %ZTZRZF) - ("ZUNBDB" "zunbdb_" %%ZUNBDB %ZUNBDB) - ("ZUNBDB1" "zunbdb1_" %%ZUNBDB1 %ZUNBDB1) - ("ZUNBDB2" "zunbdb2_" %%ZUNBDB2 %ZUNBDB2) - ("ZUNBDB3" "zunbdb3_" %%ZUNBDB3 %ZUNBDB3) - ("ZUNBDB4" "zunbdb4_" %%ZUNBDB4 %ZUNBDB4) - ("ZUNBDB5" "zunbdb5_" %%ZUNBDB5 %ZUNBDB5) - ("ZUNBDB6" "zunbdb6_" %%ZUNBDB6 %ZUNBDB6) - ("ZUNCSD" "zuncsd_" %%ZUNCSD %ZUNCSD) - ("ZUNCSD2BY1" "zuncsd2by1_" %%ZUNCSD2BY1 %ZUNCSD2BY1) - ("ZUNG2L" "zung2l_" %%ZUNG2L %ZUNG2L) - ("ZUNG2R" "zung2r_" %%ZUNG2R %ZUNG2R) - ("ZUNGBR" "zungbr_" %%ZUNGBR %ZUNGBR) - ("ZUNGHR" "zunghr_" %%ZUNGHR %ZUNGHR) - ("ZUNGL2" "zungl2_" %%ZUNGL2 %ZUNGL2) - ("ZUNGLQ" "zunglq_" %%ZUNGLQ %ZUNGLQ) - ("ZUNGQL" "zungql_" %%ZUNGQL %ZUNGQL) - ("ZUNGQR" "zungqr_" %%ZUNGQR %ZUNGQR) - ("ZUNGR2" "zungr2_" %%ZUNGR2 %ZUNGR2) - ("ZUNGRQ" "zungrq_" %%ZUNGRQ %ZUNGRQ) - ("ZUNGTR" "zungtr_" %%ZUNGTR %ZUNGTR) - ("ZUNM22" "zunm22_" %%ZUNM22 %ZUNM22) - ("ZUNM2L" "zunm2l_" %%ZUNM2L %ZUNM2L) - ("ZUNM2R" "zunm2r_" %%ZUNM2R %ZUNM2R) - ("ZUNMBR" "zunmbr_" %%ZUNMBR %ZUNMBR) - ("ZUNMHR" "zunmhr_" %%ZUNMHR %ZUNMHR) - ("ZUNML2" "zunml2_" %%ZUNML2 %ZUNML2) - ("ZUNMLQ" "zunmlq_" %%ZUNMLQ %ZUNMLQ) - ("ZUNMQL" "zunmql_" %%ZUNMQL %ZUNMQL) - ("ZUNMQR" "zunmqr_" %%ZUNMQR %ZUNMQR) - ("ZUNMR2" "zunmr2_" %%ZUNMR2 %ZUNMR2) - ("ZUNMR3" "zunmr3_" %%ZUNMR3 %ZUNMR3) - ("ZUNMRQ" "zunmrq_" %%ZUNMRQ %ZUNMRQ) - ("ZUNMRZ" "zunmrz_" %%ZUNMRZ %ZUNMRZ) - ("ZUNMTR" "zunmtr_" %%ZUNMTR %ZUNMTR) - ("ZUPGTR" "zupgtr_" %%ZUPGTR %ZUPGTR) - ("ZUPMTR" "zupmtr_" %%ZUPMTR %ZUPMTR))) + (COMMON-LISP:NOTINLINE %%ZLANHS %ZLANHS %%ZLANHT %ZLANHT %%ZLANSB %ZLANSB + %%ZLANSP %ZLANSP %%ZLANSY %ZLANSY %%ZLANTB %ZLANTB %%ZLANTP %ZLANTP %%ZLANTR + %ZLANTR %%ZLAPLL %ZLAPLL %%ZLAPMR %ZLAPMR %%ZLAPMT %ZLAPMT %%ZLAQGB %ZLAQGB + %%ZLAQGE %ZLAQGE %%ZLAQHB %ZLAQHB %%ZLAQHE %ZLAQHE %%ZLAQHP %ZLAQHP %%ZLAQP2 + %ZLAQP2 %%ZLAQPS %ZLAQPS %%ZLAQR0 %ZLAQR0 %%ZLAQR1 %ZLAQR1 %%ZLAQR2 %ZLAQR2 + %%ZLAQR3 %ZLAQR3 %%ZLAQR4 %ZLAQR4 %%ZLAQR5 %ZLAQR5 %%ZLAQSB %ZLAQSB %%ZLAQSP + %ZLAQSP %%ZLAQSY %ZLAQSY %%ZLAR1V %ZLAR1V %%ZLAR2V %ZLAR2V %%ZLARCM %ZLARCM + %%ZLARF %ZLARF %%ZLARFB %ZLARFB %%ZLARFG %ZLARFG %%ZLARFGP %ZLARFGP %%ZLARFT + %ZLARFT %%ZLARFX %ZLARFX %%ZLARFY %ZLARFY %%ZLARGV %ZLARGV %%ZLARNV %ZLARNV + %%ZLARRV %ZLARRV %%ZLARSCL2 %ZLARSCL2 %%ZLARTG %ZLARTG %%ZLARTV %ZLARTV + %%ZLARZ %ZLARZ %%ZLARZB %ZLARZB %%ZLARZT %ZLARZT %%ZLASCL %ZLASCL %%ZLASCL2 + %ZLASCL2 %%ZLASET %ZLASET %%ZLASR %ZLASR %%ZLASSQ %ZLASSQ %%ZLASWLQ %ZLASWLQ + %%ZLASWP %ZLASWP %%ZLASYF %ZLASYF %%ZLASYF_AA %ZLASYF_AA %%ZLASYF_RK + %ZLASYF_RK %%ZLASYF_ROOK %ZLASYF_ROOK %%ZLAT2C %ZLAT2C %%ZLATBS %ZLATBS + %%ZLATDF %ZLATDF %%ZLATPS %ZLATPS %%ZLATRD %ZLATRD %%ZLATRS %ZLATRS %%ZLATRZ + %ZLATRZ %%ZLATSQR %ZLATSQR %%ZLAUNHR_COL_GETRFNP %ZLAUNHR_COL_GETRFNP + %%ZLAUNHR_COL_GETRFNP2 %ZLAUNHR_COL_GETRFNP2 %%ZLAUU2 %ZLAUU2 %%ZLAUUM + %ZLAUUM %%ZPBCON %ZPBCON %%ZPBEQU %ZPBEQU %%ZPBRFS %ZPBRFS %%ZPBSTF %ZPBSTF + %%ZPBSV %ZPBSV %%ZPBSVX %ZPBSVX %%ZPBTF2 %ZPBTF2 %%ZPBTRF %ZPBTRF %%ZPBTRS + %ZPBTRS %%ZPFTRF %ZPFTRF %%ZPFTRI %ZPFTRI %%ZPFTRS %ZPFTRS %%ZPOCON %ZPOCON + %%ZPOEQU %ZPOEQU %%ZPOEQUB %ZPOEQUB %%ZPORFS %ZPORFS %%ZPORFSX %ZPORFSX + %%ZPOSV %ZPOSV %%ZPOSVX %ZPOSVX %%ZPOSVXX %ZPOSVXX %%ZPOTF2 %ZPOTF2 %%ZPOTRF + %ZPOTRF %%ZPOTRF2 %ZPOTRF2 %%ZPOTRI %ZPOTRI %%ZPOTRS %ZPOTRS %%ZPPCON %ZPPCON + %%ZPPEQU %ZPPEQU %%ZPPRFS %ZPPRFS %%ZPPSV %ZPPSV %%ZPPSVX %ZPPSVX %%ZPPTRF + %ZPPTRF %%ZPPTRI %ZPPTRI %%ZPPTRS %ZPPTRS %%ZPSTF2 %ZPSTF2 %%ZPSTRF %ZPSTRF + %%ZPTCON %ZPTCON %%ZPTEQR %ZPTEQR %%ZPTRFS %ZPTRFS %%ZPTSV %ZPTSV %%ZPTSVX + %ZPTSVX %%ZPTTRF %ZPTTRF %%ZPTTRS %ZPTTRS %%ZPTTS2 %ZPTTS2 %%ZROT %ZROT + %%ZSPCON %ZSPCON %%ZSPMV %ZSPMV %%ZSPR %ZSPR %%ZSPRFS %ZSPRFS %%ZSPSV %ZSPSV + %%ZSPSVX %ZSPSVX %%ZSPTRF %ZSPTRF %%ZSPTRI %ZSPTRI %%ZSPTRS %ZSPTRS %%ZSTEDC + %ZSTEDC %%ZSTEGR %ZSTEGR %%ZSTEIN %ZSTEIN %%ZSTEMR %ZSTEMR %%ZSTEQR %ZSTEQR + %%ZSYCON %ZSYCON %%ZSYCON_3 %ZSYCON_3 %%ZSYCON_ROOK %ZSYCON_ROOK %%ZSYCONV + %ZSYCONV %%ZSYCONVF %ZSYCONVF %%ZSYCONVF_ROOK %ZSYCONVF_ROOK %%ZSYEQUB + %ZSYEQUB %%ZSYMV %ZSYMV %%ZSYR %ZSYR %%ZSYRFS %ZSYRFS %%ZSYRFSX %ZSYRFSX + %%ZSYSV %ZSYSV %%ZSYSV_AA %ZSYSV_AA %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE + %%ZSYSV_RK %ZSYSV_RK %%ZSYSV_ROOK %ZSYSV_ROOK %%ZSYSVX %ZSYSVX %%ZSYSVXX + %ZSYSVXX %%ZSYSWAPR %ZSYSWAPR %%ZSYTF2 %ZSYTF2 %%ZSYTF2_RK %ZSYTF2_RK + %%ZSYTF2_ROOK %ZSYTF2_ROOK %%ZSYTRF %ZSYTRF %%ZSYTRF_AA %ZSYTRF_AA + %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE %%ZSYTRF_RK %ZSYTRF_RK %%ZSYTRF_ROOK + %ZSYTRF_ROOK %%ZSYTRI %ZSYTRI %%ZSYTRI2 %ZSYTRI2 %%ZSYTRI2X %ZSYTRI2X + %%ZSYTRI_3 %ZSYTRI_3 %%ZSYTRI_3X %ZSYTRI_3X %%ZSYTRI_ROOK %ZSYTRI_ROOK + %%ZSYTRS %ZSYTRS %%ZSYTRS2 %ZSYTRS2 %%ZSYTRS_3 %ZSYTRS_3 %%ZSYTRS_AA + %ZSYTRS_AA %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE %%ZSYTRS_ROOK %ZSYTRS_ROOK + %%ZTBCON %ZTBCON %%ZTBRFS %ZTBRFS %%ZTBTRS %ZTBTRS %%ZTFSM %ZTFSM %%ZTFTRI + %ZTFTRI %%ZTFTTP %ZTFTTP %%ZTFTTR %ZTFTTR %%ZTGEVC %ZTGEVC %%ZTGEX2 %ZTGEX2 + %%ZTGEXC %ZTGEXC %%ZTGSEN %ZTGSEN %%ZTGSJA %ZTGSJA %%ZTGSNA %ZTGSNA %%ZTGSY2 + %ZTGSY2 %%ZTGSYL %ZTGSYL %%ZTPCON %ZTPCON %%ZTPLQT %ZTPLQT %%ZTPLQT2 %ZTPLQT2 + %%ZTPMLQT %ZTPMLQT %%ZTPMQRT %ZTPMQRT %%ZTPQRT %ZTPQRT %%ZTPQRT2 %ZTPQRT2 + %%ZTPRFB %ZTPRFB %%ZTPRFS %ZTPRFS %%ZTPTRI %ZTPTRI %%ZTPTRS %ZTPTRS %%ZTPTTF + %ZTPTTF %%ZTPTTR %ZTPTTR %%ZTRCON %ZTRCON %%ZTREVC %ZTREVC %%ZTREVC3 %ZTREVC3 + %%ZTREXC %ZTREXC %%ZTRRFS %ZTRRFS %%ZTRSEN %ZTRSEN %%ZTRSNA %ZTRSNA %%ZTRSYL + %ZTRSYL %%ZTRTI2 %ZTRTI2 %%ZTRTRI %ZTRTRI %%ZTRTRS %ZTRTRS %%ZTRTTF %ZTRTTF + %%ZTRTTP %ZTRTTP %%ZTZRZF %ZTZRZF %%ZUNBDB %ZUNBDB %%ZUNBDB1 %ZUNBDB1 + %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB3 %ZUNBDB3 %%ZUNBDB4 %ZUNBDB4 %%ZUNBDB5 %ZUNBDB5 + %%ZUNBDB6 %ZUNBDB6 %%ZUNCSD %ZUNCSD %%ZUNCSD2BY1 %ZUNCSD2BY1 %%ZUNG2L %ZUNG2L + %%ZUNG2R %ZUNG2R %%ZUNGBR %ZUNGBR %%ZUNGHR %ZUNGHR %%ZUNGL2 %ZUNGL2 %%ZUNGLQ + %ZUNGLQ %%ZUNGQL %ZUNGQL %%ZUNGQR %ZUNGQR %%ZUNGR2 %ZUNGR2 %%ZUNGRQ %ZUNGRQ + %%ZUNGTR %ZUNGTR %%ZUNGTSQR %ZUNGTSQR %%ZUNHR_COL %ZUNHR_COL %%ZUNM22 %ZUNM22 + %%ZUNM2L %ZUNM2L %%ZUNM2R %ZUNM2R %%ZUNMBR %ZUNMBR %%ZUNMHR %ZUNMHR %%ZUNML2 + %ZUNML2 %%ZUNMLQ %ZUNMLQ %%ZUNMQL %ZUNMQL %%ZUNMQR %ZUNMQR %%ZUNMR2 %ZUNMR2 + %%ZUNMR3 %ZUNMR3 %%ZUNMRQ %ZUNMRQ %%ZUNMRZ %ZUNMRZ %%ZUNMTR %ZUNMTR %%ZUPGTR + %ZUPGTR %%ZUPMTR %ZUPMTR)) + +(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK + '(("ZLANHS" "zlanhs_" %%ZLANHS %ZLANHS) + ("ZLANHT" "zlanht_" %%ZLANHT %ZLANHT) + ("ZLANSB" "zlansb_" %%ZLANSB %ZLANSB) + ("ZLANSP" "zlansp_" %%ZLANSP %ZLANSP) + ("ZLANSY" "zlansy_" %%ZLANSY %ZLANSY) + ("ZLANTB" "zlantb_" %%ZLANTB %ZLANTB) + ("ZLANTP" "zlantp_" %%ZLANTP %ZLANTP) + ("ZLANTR" "zlantr_" %%ZLANTR %ZLANTR) + ("ZLAPLL" "zlapll_" %%ZLAPLL %ZLAPLL) + ("ZLAPMR" "zlapmr_" %%ZLAPMR %ZLAPMR) + ("ZLAPMT" "zlapmt_" %%ZLAPMT %ZLAPMT) + ("ZLAQGB" "zlaqgb_" %%ZLAQGB %ZLAQGB) + ("ZLAQGE" "zlaqge_" %%ZLAQGE %ZLAQGE) + ("ZLAQHB" "zlaqhb_" %%ZLAQHB %ZLAQHB) + ("ZLAQHE" "zlaqhe_" %%ZLAQHE %ZLAQHE) + ("ZLAQHP" "zlaqhp_" %%ZLAQHP %ZLAQHP) + ("ZLAQP2" "zlaqp2_" %%ZLAQP2 %ZLAQP2) + ("ZLAQPS" "zlaqps_" %%ZLAQPS %ZLAQPS) + ("ZLAQR0" "zlaqr0_" %%ZLAQR0 %ZLAQR0) + ("ZLAQR1" "zlaqr1_" %%ZLAQR1 %ZLAQR1) + ("ZLAQR2" "zlaqr2_" %%ZLAQR2 %ZLAQR2) + ("ZLAQR3" "zlaqr3_" %%ZLAQR3 %ZLAQR3) + ("ZLAQR4" "zlaqr4_" %%ZLAQR4 %ZLAQR4) + ("ZLAQR5" "zlaqr5_" %%ZLAQR5 %ZLAQR5) + ("ZLAQSB" "zlaqsb_" %%ZLAQSB %ZLAQSB) + ("ZLAQSP" "zlaqsp_" %%ZLAQSP %ZLAQSP) + ("ZLAQSY" "zlaqsy_" %%ZLAQSY %ZLAQSY) + ("ZLAR1V" "zlar1v_" %%ZLAR1V %ZLAR1V) + ("ZLAR2V" "zlar2v_" %%ZLAR2V %ZLAR2V) + ("ZLARCM" "zlarcm_" %%ZLARCM %ZLARCM) + ("ZLARF" "zlarf_" %%ZLARF %ZLARF) + ("ZLARFB" "zlarfb_" %%ZLARFB %ZLARFB) + ("ZLARFG" "zlarfg_" %%ZLARFG %ZLARFG) + ("ZLARFGP" "zlarfgp_" %%ZLARFGP + %ZLARFGP) + ("ZLARFT" "zlarft_" %%ZLARFT %ZLARFT) + ("ZLARFX" "zlarfx_" %%ZLARFX %ZLARFX) + ("ZLARFY" "zlarfy_" %%ZLARFY %ZLARFY) + ("ZLARGV" "zlargv_" %%ZLARGV %ZLARGV) + ("ZLARNV" "zlarnv_" %%ZLARNV %ZLARNV) + ("ZLARRV" "zlarrv_" %%ZLARRV %ZLARRV) + ("ZLARSCL2" "zlarscl2_" %%ZLARSCL2 + %ZLARSCL2) + ("ZLARTG" "zlartg_" %%ZLARTG %ZLARTG) + ("ZLARTV" "zlartv_" %%ZLARTV %ZLARTV) + ("ZLARZ" "zlarz_" %%ZLARZ %ZLARZ) + ("ZLARZB" "zlarzb_" %%ZLARZB %ZLARZB) + ("ZLARZT" "zlarzt_" %%ZLARZT %ZLARZT) + ("ZLASCL" "zlascl_" %%ZLASCL %ZLASCL) + ("ZLASCL2" "zlascl2_" %%ZLASCL2 + %ZLASCL2) + ("ZLASET" "zlaset_" %%ZLASET %ZLASET) + ("ZLASR" "zlasr_" %%ZLASR %ZLASR) + ("ZLASSQ" "zlassq_" %%ZLASSQ %ZLASSQ) + ("ZLASWLQ" "zlaswlq_" %%ZLASWLQ + %ZLASWLQ) + ("ZLASWP" "zlaswp_" %%ZLASWP %ZLASWP) + ("ZLASYF" "zlasyf_" %%ZLASYF %ZLASYF) + ("ZLASYF_AA" "zlasyf_aa_" %%ZLASYF_AA + %ZLASYF_AA) + ("ZLASYF_RK" "zlasyf_rk_" %%ZLASYF_RK + %ZLASYF_RK) + ("ZLASYF_ROOK" "zlasyf_rook_" + %%ZLASYF_ROOK %ZLASYF_ROOK) + ("ZLAT2C" "zlat2c_" %%ZLAT2C %ZLAT2C) + ("ZLATBS" "zlatbs_" %%ZLATBS %ZLATBS) + ("ZLATDF" "zlatdf_" %%ZLATDF %ZLATDF) + ("ZLATPS" "zlatps_" %%ZLATPS %ZLATPS) + ("ZLATRD" "zlatrd_" %%ZLATRD %ZLATRD) + ("ZLATRS" "zlatrs_" %%ZLATRS %ZLATRS) + ("ZLATRZ" "zlatrz_" %%ZLATRZ %ZLATRZ) + ("ZLATSQR" "zlatsqr_" %%ZLATSQR + %ZLATSQR) + ("ZLAUNHR_COL_GETRFNP" + "zlaunhr_col_getrfnp_" + %%ZLAUNHR_COL_GETRFNP + %ZLAUNHR_COL_GETRFNP) + ("ZLAUNHR_COL_GETRFNP2" + "zlaunhr_col_getrfnp2_" + %%ZLAUNHR_COL_GETRFNP2 + %ZLAUNHR_COL_GETRFNP2) + ("ZLAUU2" "zlauu2_" %%ZLAUU2 %ZLAUU2) + ("ZLAUUM" "zlauum_" %%ZLAUUM %ZLAUUM) + ("ZPBCON" "zpbcon_" %%ZPBCON %ZPBCON) + ("ZPBEQU" "zpbequ_" %%ZPBEQU %ZPBEQU) + ("ZPBRFS" "zpbrfs_" %%ZPBRFS %ZPBRFS) + ("ZPBSTF" "zpbstf_" %%ZPBSTF %ZPBSTF) + ("ZPBSV" "zpbsv_" %%ZPBSV %ZPBSV) + ("ZPBSVX" "zpbsvx_" %%ZPBSVX %ZPBSVX) + ("ZPBTF2" "zpbtf2_" %%ZPBTF2 %ZPBTF2) + ("ZPBTRF" "zpbtrf_" %%ZPBTRF %ZPBTRF) + ("ZPBTRS" "zpbtrs_" %%ZPBTRS %ZPBTRS) + ("ZPFTRF" "zpftrf_" %%ZPFTRF %ZPFTRF) + ("ZPFTRI" "zpftri_" %%ZPFTRI %ZPFTRI) + ("ZPFTRS" "zpftrs_" %%ZPFTRS %ZPFTRS) + ("ZPOCON" "zpocon_" %%ZPOCON %ZPOCON) + ("ZPOEQU" "zpoequ_" %%ZPOEQU %ZPOEQU) + ("ZPOEQUB" "zpoequb_" %%ZPOEQUB + %ZPOEQUB) + ("ZPORFS" "zporfs_" %%ZPORFS %ZPORFS) + ("ZPORFSX" "zporfsx_" %%ZPORFSX + %ZPORFSX) + ("ZPOSV" "zposv_" %%ZPOSV %ZPOSV) + ("ZPOSVX" "zposvx_" %%ZPOSVX %ZPOSVX) + ("ZPOSVXX" "zposvxx_" %%ZPOSVXX + %ZPOSVXX) + ("ZPOTF2" "zpotf2_" %%ZPOTF2 %ZPOTF2) + ("ZPOTRF" "zpotrf_" %%ZPOTRF %ZPOTRF) + ("ZPOTRF2" "zpotrf2_" %%ZPOTRF2 + %ZPOTRF2) + ("ZPOTRI" "zpotri_" %%ZPOTRI %ZPOTRI) + ("ZPOTRS" "zpotrs_" %%ZPOTRS %ZPOTRS) + ("ZPPCON" "zppcon_" %%ZPPCON %ZPPCON) + ("ZPPEQU" "zppequ_" %%ZPPEQU %ZPPEQU) + ("ZPPRFS" "zpprfs_" %%ZPPRFS %ZPPRFS) + ("ZPPSV" "zppsv_" %%ZPPSV %ZPPSV) + ("ZPPSVX" "zppsvx_" %%ZPPSVX %ZPPSVX) + ("ZPPTRF" "zpptrf_" %%ZPPTRF %ZPPTRF) + ("ZPPTRI" "zpptri_" %%ZPPTRI %ZPPTRI) + ("ZPPTRS" "zpptrs_" %%ZPPTRS %ZPPTRS) + ("ZPSTF2" "zpstf2_" %%ZPSTF2 %ZPSTF2) + ("ZPSTRF" "zpstrf_" %%ZPSTRF %ZPSTRF) + ("ZPTCON" "zptcon_" %%ZPTCON %ZPTCON) + ("ZPTEQR" "zpteqr_" %%ZPTEQR %ZPTEQR) + ("ZPTRFS" "zptrfs_" %%ZPTRFS %ZPTRFS) + ("ZPTSV" "zptsv_" %%ZPTSV %ZPTSV) + ("ZPTSVX" "zptsvx_" %%ZPTSVX %ZPTSVX) + ("ZPTTRF" "zpttrf_" %%ZPTTRF %ZPTTRF) + ("ZPTTRS" "zpttrs_" %%ZPTTRS %ZPTTRS) + ("ZPTTS2" "zptts2_" %%ZPTTS2 %ZPTTS2) + ("ZROT" "zrot_" %%ZROT %ZROT) + ("ZSPCON" "zspcon_" %%ZSPCON %ZSPCON) + ("ZSPMV" "zspmv_" %%ZSPMV %ZSPMV) + ("ZSPR" "zspr_" %%ZSPR %ZSPR) + ("ZSPRFS" "zsprfs_" %%ZSPRFS %ZSPRFS) + ("ZSPSV" "zspsv_" %%ZSPSV %ZSPSV) + ("ZSPSVX" "zspsvx_" %%ZSPSVX %ZSPSVX) + ("ZSPTRF" "zsptrf_" %%ZSPTRF %ZSPTRF) + ("ZSPTRI" "zsptri_" %%ZSPTRI %ZSPTRI) + ("ZSPTRS" "zsptrs_" %%ZSPTRS %ZSPTRS) + ("ZSTEDC" "zstedc_" %%ZSTEDC %ZSTEDC) + ("ZSTEGR" "zstegr_" %%ZSTEGR %ZSTEGR) + ("ZSTEIN" "zstein_" %%ZSTEIN %ZSTEIN) + ("ZSTEMR" "zstemr_" %%ZSTEMR %ZSTEMR) + ("ZSTEQR" "zsteqr_" %%ZSTEQR %ZSTEQR) + ("ZSYCON" "zsycon_" %%ZSYCON %ZSYCON) + ("ZSYCON_3" "zsycon_3_" %%ZSYCON_3 + %ZSYCON_3) + ("ZSYCON_ROOK" "zsycon_rook_" + %%ZSYCON_ROOK %ZSYCON_ROOK) + ("ZSYCONV" "zsyconv_" %%ZSYCONV + %ZSYCONV) + ("ZSYCONVF" "zsyconvf_" %%ZSYCONVF + %ZSYCONVF) + ("ZSYCONVF_ROOK" "zsyconvf_rook_" + %%ZSYCONVF_ROOK %ZSYCONVF_ROOK) + ("ZSYEQUB" "zsyequb_" %%ZSYEQUB + %ZSYEQUB) + ("ZSYMV" "zsymv_" %%ZSYMV %ZSYMV) + ("ZSYR" "zsyr_" %%ZSYR %ZSYR) + ("ZSYRFS" "zsyrfs_" %%ZSYRFS %ZSYRFS) + ("ZSYRFSX" "zsyrfsx_" %%ZSYRFSX + %ZSYRFSX) + ("ZSYSV" "zsysv_" %%ZSYSV %ZSYSV) + ("ZSYSV_AA" "zsysv_aa_" %%ZSYSV_AA + %ZSYSV_AA) + ("ZSYSV_AA_2STAGE" "zsysv_aa_2stage_" + %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE) + ("ZSYSV_RK" "zsysv_rk_" %%ZSYSV_RK + %ZSYSV_RK) + ("ZSYSV_ROOK" "zsysv_rook_" + %%ZSYSV_ROOK %ZSYSV_ROOK) + ("ZSYSVX" "zsysvx_" %%ZSYSVX %ZSYSVX) + ("ZSYSVXX" "zsysvxx_" %%ZSYSVXX + %ZSYSVXX) + ("ZSYSWAPR" "zsyswapr_" %%ZSYSWAPR + %ZSYSWAPR) + ("ZSYTF2" "zsytf2_" %%ZSYTF2 %ZSYTF2) + ("ZSYTF2_RK" "zsytf2_rk_" %%ZSYTF2_RK + %ZSYTF2_RK) + ("ZSYTF2_ROOK" "zsytf2_rook_" + %%ZSYTF2_ROOK %ZSYTF2_ROOK) + ("ZSYTRF" "zsytrf_" %%ZSYTRF %ZSYTRF) + ("ZSYTRF_AA" "zsytrf_aa_" %%ZSYTRF_AA + %ZSYTRF_AA) + ("ZSYTRF_AA_2STAGE" + "zsytrf_aa_2stage_" + %%ZSYTRF_AA_2STAGE + %ZSYTRF_AA_2STAGE) + ("ZSYTRF_RK" "zsytrf_rk_" %%ZSYTRF_RK + %ZSYTRF_RK) + ("ZSYTRF_ROOK" "zsytrf_rook_" + %%ZSYTRF_ROOK %ZSYTRF_ROOK) + ("ZSYTRI" "zsytri_" %%ZSYTRI %ZSYTRI) + ("ZSYTRI2" "zsytri2_" %%ZSYTRI2 + %ZSYTRI2) + ("ZSYTRI2X" "zsytri2x_" %%ZSYTRI2X + %ZSYTRI2X) + ("ZSYTRI_3" "zsytri_3_" %%ZSYTRI_3 + %ZSYTRI_3) + ("ZSYTRI_3X" "zsytri_3x_" %%ZSYTRI_3X + %ZSYTRI_3X) + ("ZSYTRI_ROOK" "zsytri_rook_" + %%ZSYTRI_ROOK %ZSYTRI_ROOK) + ("ZSYTRS" "zsytrs_" %%ZSYTRS %ZSYTRS) + ("ZSYTRS2" "zsytrs2_" %%ZSYTRS2 + %ZSYTRS2) + ("ZSYTRS_3" "zsytrs_3_" %%ZSYTRS_3 + %ZSYTRS_3) + ("ZSYTRS_AA" "zsytrs_aa_" %%ZSYTRS_AA + %ZSYTRS_AA) + ("ZSYTRS_AA_2STAGE" + "zsytrs_aa_2stage_" + %%ZSYTRS_AA_2STAGE + %ZSYTRS_AA_2STAGE) + ("ZSYTRS_ROOK" "zsytrs_rook_" + %%ZSYTRS_ROOK %ZSYTRS_ROOK) + ("ZTBCON" "ztbcon_" %%ZTBCON %ZTBCON) + ("ZTBRFS" "ztbrfs_" %%ZTBRFS %ZTBRFS) + ("ZTBTRS" "ztbtrs_" %%ZTBTRS %ZTBTRS) + ("ZTFSM" "ztfsm_" %%ZTFSM %ZTFSM) + ("ZTFTRI" "ztftri_" %%ZTFTRI %ZTFTRI) + ("ZTFTTP" "ztfttp_" %%ZTFTTP %ZTFTTP) + ("ZTFTTR" "ztfttr_" %%ZTFTTR %ZTFTTR) + ("ZTGEVC" "ztgevc_" %%ZTGEVC %ZTGEVC) + ("ZTGEX2" "ztgex2_" %%ZTGEX2 %ZTGEX2) + ("ZTGEXC" "ztgexc_" %%ZTGEXC %ZTGEXC) + ("ZTGSEN" "ztgsen_" %%ZTGSEN %ZTGSEN) + ("ZTGSJA" "ztgsja_" %%ZTGSJA %ZTGSJA) + ("ZTGSNA" "ztgsna_" %%ZTGSNA %ZTGSNA) + ("ZTGSY2" "ztgsy2_" %%ZTGSY2 %ZTGSY2) + ("ZTGSYL" "ztgsyl_" %%ZTGSYL %ZTGSYL) + ("ZTPCON" "ztpcon_" %%ZTPCON %ZTPCON) + ("ZTPLQT" "ztplqt_" %%ZTPLQT %ZTPLQT) + ("ZTPLQT2" "ztplqt2_" %%ZTPLQT2 + %ZTPLQT2) + ("ZTPMLQT" "ztpmlqt_" %%ZTPMLQT + %ZTPMLQT) + ("ZTPMQRT" "ztpmqrt_" %%ZTPMQRT + %ZTPMQRT) + ("ZTPQRT" "ztpqrt_" %%ZTPQRT %ZTPQRT) + ("ZTPQRT2" "ztpqrt2_" %%ZTPQRT2 + %ZTPQRT2) + ("ZTPRFB" "ztprfb_" %%ZTPRFB %ZTPRFB) + ("ZTPRFS" "ztprfs_" %%ZTPRFS %ZTPRFS) + ("ZTPTRI" "ztptri_" %%ZTPTRI %ZTPTRI) + ("ZTPTRS" "ztptrs_" %%ZTPTRS %ZTPTRS) + ("ZTPTTF" "ztpttf_" %%ZTPTTF %ZTPTTF) + ("ZTPTTR" "ztpttr_" %%ZTPTTR %ZTPTTR) + ("ZTRCON" "ztrcon_" %%ZTRCON %ZTRCON) + ("ZTREVC" "ztrevc_" %%ZTREVC %ZTREVC) + ("ZTREVC3" "ztrevc3_" %%ZTREVC3 + %ZTREVC3) + ("ZTREXC" "ztrexc_" %%ZTREXC %ZTREXC) + ("ZTRRFS" "ztrrfs_" %%ZTRRFS %ZTRRFS) + ("ZTRSEN" "ztrsen_" %%ZTRSEN %ZTRSEN) + ("ZTRSNA" "ztrsna_" %%ZTRSNA %ZTRSNA) + ("ZTRSYL" "ztrsyl_" %%ZTRSYL %ZTRSYL) + ("ZTRTI2" "ztrti2_" %%ZTRTI2 %ZTRTI2) + ("ZTRTRI" "ztrtri_" %%ZTRTRI %ZTRTRI) + ("ZTRTRS" "ztrtrs_" %%ZTRTRS %ZTRTRS) + ("ZTRTTF" "ztrttf_" %%ZTRTTF %ZTRTTF) + ("ZTRTTP" "ztrttp_" %%ZTRTTP %ZTRTTP) + ("ZTZRZF" "ztzrzf_" %%ZTZRZF %ZTZRZF) + ("ZUNBDB" "zunbdb_" %%ZUNBDB %ZUNBDB) + ("ZUNBDB1" "zunbdb1_" %%ZUNBDB1 + %ZUNBDB1) + ("ZUNBDB2" "zunbdb2_" %%ZUNBDB2 + %ZUNBDB2) + ("ZUNBDB3" "zunbdb3_" %%ZUNBDB3 + %ZUNBDB3) + ("ZUNBDB4" "zunbdb4_" %%ZUNBDB4 + %ZUNBDB4) + ("ZUNBDB5" "zunbdb5_" %%ZUNBDB5 + %ZUNBDB5) + ("ZUNBDB6" "zunbdb6_" %%ZUNBDB6 + %ZUNBDB6) + ("ZUNCSD" "zuncsd_" %%ZUNCSD %ZUNCSD) + ("ZUNCSD2BY1" "zuncsd2by1_" + %%ZUNCSD2BY1 %ZUNCSD2BY1) + ("ZUNG2L" "zung2l_" %%ZUNG2L %ZUNG2L) + ("ZUNG2R" "zung2r_" %%ZUNG2R %ZUNG2R) + ("ZUNGBR" "zungbr_" %%ZUNGBR %ZUNGBR) + ("ZUNGHR" "zunghr_" %%ZUNGHR %ZUNGHR) + ("ZUNGL2" "zungl2_" %%ZUNGL2 %ZUNGL2) + ("ZUNGLQ" "zunglq_" %%ZUNGLQ %ZUNGLQ) + ("ZUNGQL" "zungql_" %%ZUNGQL %ZUNGQL) + ("ZUNGQR" "zungqr_" %%ZUNGQR %ZUNGQR) + ("ZUNGR2" "zungr2_" %%ZUNGR2 %ZUNGR2) + ("ZUNGRQ" "zungrq_" %%ZUNGRQ %ZUNGRQ) + ("ZUNGTR" "zungtr_" %%ZUNGTR %ZUNGTR) + ("ZUNGTSQR" "zungtsqr_" %%ZUNGTSQR + %ZUNGTSQR) + ("ZUNHR_COL" "zunhr_col_" %%ZUNHR_COL + %ZUNHR_COL) + ("ZUNM22" "zunm22_" %%ZUNM22 %ZUNM22) + ("ZUNM2L" "zunm2l_" %%ZUNM2L %ZUNM2L) + ("ZUNM2R" "zunm2r_" %%ZUNM2R %ZUNM2R) + ("ZUNMBR" "zunmbr_" %%ZUNMBR %ZUNMBR) + ("ZUNMHR" "zunmhr_" %%ZUNMHR %ZUNMHR) + ("ZUNML2" "zunml2_" %%ZUNML2 %ZUNML2) + ("ZUNMLQ" "zunmlq_" %%ZUNMLQ %ZUNMLQ) + ("ZUNMQL" "zunmql_" %%ZUNMQL %ZUNMQL) + ("ZUNMQR" "zunmqr_" %%ZUNMQR %ZUNMQR) + ("ZUNMR2" "zunmr2_" %%ZUNMR2 %ZUNMR2) + ("ZUNMR3" "zunmr3_" %%ZUNMR3 %ZUNMR3) + ("ZUNMRQ" "zunmrq_" %%ZUNMRQ %ZUNMRQ) + ("ZUNMRZ" "zunmrz_" %%ZUNMRZ %ZUNMRZ) + ("ZUNMTR" "zunmtr_" %%ZUNMTR %ZUNMTR) + ("ZUPGTR" "zupgtr_" %%ZUPGTR %ZUPGTR) + ("ZUPMTR" "zupmtr_" %%ZUPMTR + %ZUPMTR))) (COMMON-LISP:EXPORT - '(%ZLANHF %ZLANHP %ZLANHS %ZLANHT %ZLANSB %ZLANSP %ZLANSY %ZLANTB %ZLANTP - %ZLANTR %ZLAPLL %ZLAPMR %ZLAPMT %ZLAQGB %ZLAQGE %ZLAQHB %ZLAQHE - %ZLAQHP %ZLAQP2 %ZLAQPS %ZLAQR0 %ZLAQR1 %ZLAQR2 %ZLAQR3 %ZLAQR4 - %ZLAQR5 %ZLAQSB %ZLAQSP %ZLAQSY %ZLAR1V %ZLAR2V %ZLARCM %ZLARF - %ZLARFB %ZLARFG %ZLARFGP %ZLARFT %ZLARFX %ZLARFY %ZLARGV %ZLARNV - %ZLARRV %ZLARSCL2 %ZLARTG %ZLARTV %ZLARZ %ZLARZB %ZLARZT %ZLASCL - %ZLASCL2 %ZLASET %ZLASR %ZLASSQ %ZLASWLQ %ZLASWP %ZLASYF %ZLASYF_AA - %ZLASYF_RK %ZLASYF_ROOK %ZLAT2C %ZLATBS %ZLATDF %ZLATPS %ZLATRD - %ZLATRS %ZLATRZ %ZLATSQR %ZLAUU2 %ZLAUUM %ZPBCON %ZPBEQU %ZPBRFS - %ZPBSTF %ZPBSV %ZPBSVX %ZPBTF2 %ZPBTRF %ZPBTRS %ZPFTRF %ZPFTRI - %ZPFTRS %ZPOCON %ZPOEQU %ZPOEQUB %ZPORFS %ZPORFSX %ZPOSV %ZPOSVX - %ZPOSVXX %ZPOTF2 %ZPOTRF %ZPOTRF2 %ZPOTRI %ZPOTRS %ZPPCON %ZPPEQU - %ZPPRFS %ZPPSV %ZPPSVX %ZPPTRF %ZPPTRI %ZPPTRS %ZPSTF2 %ZPSTRF - %ZPTCON %ZPTEQR %ZPTRFS %ZPTSV %ZPTSVX %ZPTTRF %ZPTTRS %ZPTTS2 %ZROT - %ZSPCON %ZSPMV %ZSPR %ZSPRFS %ZSPSV %ZSPSVX %ZSPTRF %ZSPTRI %ZSPTRS - %ZSTEDC %ZSTEGR %ZSTEIN %ZSTEMR %ZSTEQR %ZSYCON %ZSYCON_3 - %ZSYCON_ROOK %ZSYCONV %ZSYCONVF %ZSYCONVF_ROOK %ZSYEQUB %ZSYMV %ZSYR - %ZSYRFS %ZSYRFSX %ZSYSV %ZSYSV_AA %ZSYSV_AA_2STAGE %ZSYSV_RK - %ZSYSV_ROOK %ZSYSVX %ZSYSVXX %ZSYSWAPR %ZSYTF2 %ZSYTF2_RK - %ZSYTF2_ROOK %ZSYTRF %ZSYTRF_AA %ZSYTRF_AA_2STAGE %ZSYTRF_RK - %ZSYTRF_ROOK %ZSYTRI %ZSYTRI2 %ZSYTRI2X %ZSYTRI_3 %ZSYTRI_3X - %ZSYTRI_ROOK %ZSYTRS %ZSYTRS2 %ZSYTRS_3 %ZSYTRS_AA %ZSYTRS_AA_2STAGE - %ZSYTRS_ROOK %ZTBCON %ZTBRFS %ZTBTRS %ZTFSM %ZTFTRI %ZTFTTP %ZTFTTR - %ZTGEVC %ZTGEX2 %ZTGEXC %ZTGSEN %ZTGSJA %ZTGSNA %ZTGSY2 %ZTGSYL - %ZTPCON %ZTPLQT %ZTPLQT2 %ZTPMLQT %ZTPMQRT %ZTPQRT %ZTPQRT2 %ZTPRFB - %ZTPRFS %ZTPTRI %ZTPTRS %ZTPTTF %ZTPTTR %ZTRCON %ZTREVC %ZTREVC3 - %ZTREXC %ZTRRFS %ZTRSEN %ZTRSNA %ZTRSYL %ZTRTI2 %ZTRTRI %ZTRTRS - %ZTRTTF %ZTRTTP %ZTZRZF %ZUNBDB %ZUNBDB1 %ZUNBDB2 %ZUNBDB3 %ZUNBDB4 - %ZUNBDB5 %ZUNBDB6 %ZUNCSD %ZUNCSD2BY1 %ZUNG2L %ZUNG2R %ZUNGBR - %ZUNGHR %ZUNGL2 %ZUNGLQ %ZUNGQL %ZUNGQR %ZUNGR2 %ZUNGRQ %ZUNGTR - %ZUNM22 %ZUNM2L %ZUNM2R %ZUNMBR %ZUNMHR %ZUNML2 %ZUNMLQ %ZUNMQL - %ZUNMQR %ZUNMR2 %ZUNMR3 %ZUNMRQ %ZUNMRZ %ZUNMTR %ZUPGTR %ZUPMTR) + '(%ZLANHS %ZLANHT %ZLANSB %ZLANSP %ZLANSY %ZLANTB %ZLANTP %ZLANTR %ZLAPLL + %ZLAPMR %ZLAPMT %ZLAQGB %ZLAQGE %ZLAQHB %ZLAQHE %ZLAQHP %ZLAQP2 %ZLAQPS + %ZLAQR0 %ZLAQR1 %ZLAQR2 %ZLAQR3 %ZLAQR4 %ZLAQR5 %ZLAQSB %ZLAQSP %ZLAQSY + %ZLAR1V %ZLAR2V %ZLARCM %ZLARF %ZLARFB %ZLARFG %ZLARFGP %ZLARFT %ZLARFX + %ZLARFY %ZLARGV %ZLARNV %ZLARRV %ZLARSCL2 %ZLARTG %ZLARTV %ZLARZ %ZLARZB + %ZLARZT %ZLASCL %ZLASCL2 %ZLASET %ZLASR %ZLASSQ %ZLASWLQ %ZLASWP %ZLASYF + %ZLASYF_AA %ZLASYF_RK %ZLASYF_ROOK %ZLAT2C %ZLATBS %ZLATDF %ZLATPS %ZLATRD + %ZLATRS %ZLATRZ %ZLATSQR %ZLAUNHR_COL_GETRFNP %ZLAUNHR_COL_GETRFNP2 %ZLAUU2 + %ZLAUUM %ZPBCON %ZPBEQU %ZPBRFS %ZPBSTF %ZPBSV %ZPBSVX %ZPBTF2 %ZPBTRF + %ZPBTRS %ZPFTRF %ZPFTRI %ZPFTRS %ZPOCON %ZPOEQU %ZPOEQUB %ZPORFS %ZPORFSX + %ZPOSV %ZPOSVX %ZPOSVXX %ZPOTF2 %ZPOTRF %ZPOTRF2 %ZPOTRI %ZPOTRS %ZPPCON + %ZPPEQU %ZPPRFS %ZPPSV %ZPPSVX %ZPPTRF %ZPPTRI %ZPPTRS %ZPSTF2 %ZPSTRF + %ZPTCON %ZPTEQR %ZPTRFS %ZPTSV %ZPTSVX %ZPTTRF %ZPTTRS %ZPTTS2 %ZROT %ZSPCON + %ZSPMV %ZSPR %ZSPRFS %ZSPSV %ZSPSVX %ZSPTRF %ZSPTRI %ZSPTRS %ZSTEDC %ZSTEGR + %ZSTEIN %ZSTEMR %ZSTEQR %ZSYCON %ZSYCON_3 %ZSYCON_ROOK %ZSYCONV %ZSYCONVF + %ZSYCONVF_ROOK %ZSYEQUB %ZSYMV %ZSYR %ZSYRFS %ZSYRFSX %ZSYSV %ZSYSV_AA + %ZSYSV_AA_2STAGE %ZSYSV_RK %ZSYSV_ROOK %ZSYSVX %ZSYSVXX %ZSYSWAPR %ZSYTF2 + %ZSYTF2_RK %ZSYTF2_ROOK %ZSYTRF %ZSYTRF_AA %ZSYTRF_AA_2STAGE %ZSYTRF_RK + %ZSYTRF_ROOK %ZSYTRI %ZSYTRI2 %ZSYTRI2X %ZSYTRI_3 %ZSYTRI_3X %ZSYTRI_ROOK + %ZSYTRS %ZSYTRS2 %ZSYTRS_3 %ZSYTRS_AA %ZSYTRS_AA_2STAGE %ZSYTRS_ROOK %ZTBCON + %ZTBRFS %ZTBTRS %ZTFSM %ZTFTRI %ZTFTTP %ZTFTTR %ZTGEVC %ZTGEX2 %ZTGEXC + %ZTGSEN %ZTGSJA %ZTGSNA %ZTGSY2 %ZTGSYL %ZTPCON %ZTPLQT %ZTPLQT2 %ZTPMLQT + %ZTPMQRT %ZTPQRT %ZTPQRT2 %ZTPRFB %ZTPRFS %ZTPTRI %ZTPTRS %ZTPTTF %ZTPTTR + %ZTRCON %ZTREVC %ZTREVC3 %ZTREXC %ZTRRFS %ZTRSEN %ZTRSNA %ZTRSYL %ZTRTI2 + %ZTRTRI %ZTRTRS %ZTRTTF %ZTRTTP %ZTZRZF %ZUNBDB %ZUNBDB1 %ZUNBDB2 %ZUNBDB3 + %ZUNBDB4 %ZUNBDB5 %ZUNBDB6 %ZUNCSD %ZUNCSD2BY1 %ZUNG2L %ZUNG2R %ZUNGBR + %ZUNGHR %ZUNGL2 %ZUNGLQ %ZUNGQL %ZUNGQR %ZUNGR2 %ZUNGRQ %ZUNGTR %ZUNGTSQR + %ZUNHR_COL %ZUNM22 %ZUNM2L %ZUNM2R %ZUNMBR %ZUNMHR %ZUNML2 %ZUNMLQ %ZUNMQL + %ZUNMQR %ZUNMR2 %ZUNMR3 %ZUNMRQ %ZUNMRZ %ZUNMTR %ZUPGTR %ZUPMTR) '#:MAGICL.LAPACK-CFFI) ;;; End of file. From 790a13c86dd4308f9b21c229b222fee0c8ce9d33 Mon Sep 17 00:00:00 2001 From: Robert Smith Date: Mon, 22 Mar 2021 18:00:40 -0700 Subject: [PATCH 46/46] document DEFINE-COMPATIBLE-... macro --- src/backend-function.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/backend-function.lisp b/src/backend-function.lisp index 10f873d6..3369e539 100644 --- a/src/backend-function.lisp +++ b/src/backend-function.lisp @@ -65,6 +65,7 @@ (:documentation "The error to signal when there's no applicable implementation, whether from a backend function or a CLOS generic function.")) (defun no-applicable-implementation (name) + "Call this function to signal an error indicating the caller (or any callers above it) are not applicable to the current backend function being invoked." (error 'no-applicable-implementation :format-control (format nil "~S is not implemented in any of ~ the current active backends: ~ @@ -73,6 +74,11 @@ :format-arguments (list (active-backends)))) (defmacro define-compatible-no-applicable-method-behavior (&rest generic-function-names) + "Ensure the (unquoted symbol) generic function names GENERIC-FUNCTION-NAMES will behave correctly when used as implementations for backend functions. + +The specific behavior that is made \"compatible\" is ensuring that if generic function dispatch reaches a call to NO-APPLIABLE-METHOD, then an appropriate condition will be signaled to instruct the backend function to continue searching. + +Without using this, a backend function may error if no method is found." (assert (every #'symbolp generic-function-names)) `(progn ,@(loop