Commit ce11b970 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

New arglist for grid:ensure-foreign-array; replace #'dot calls with #'grid:inner

parent 535bf393

linear-algebra/blas1.lisp

+2 −2
Original line number Diff line number Diff line 
;; BLAS level 1, Vector operations

;; Liam Healy, Wed Apr 26 2006 - 15:23

;; Time-stamp: <2011-02-12 16:13:02EST blas1.lisp>

;; Time-stamp: <2011-04-23 17:04:06EDT blas1.lisp>

;;

;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy

;; Distributed under the terms of the GNU General Public License
@@ -210,7 +210,7 @@ 
(generate-all-array-tests dot :float-complex

 (let ((v1 (array-default 8))

       (v2 (array-default 8)))

   (dot v1 v2)))

   (grid:inner v1 v2)))



(generate-all-array-tests cdot :complex

 (let ((v1 (array-default 8))

linear-algebra/blas2.lisp

+2 −2
Original line number Diff line number Diff line 
;; BLAS level 2, Matrix-vector operations

;; Liam Healy, Wed Apr 26 2006 - 21:08

;; Time-stamp: <2011-02-19 13:08:23EST blas2.lisp>

;; Time-stamp: <2011-04-23 17:15:33EDT blas2.lisp>

;;

;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy

;; Distributed under the terms of the GNU General Public License
@@ -54,7 +54,7 @@ 
     &aux

     (yarr

      (grid:ensure-foreign-array

       y (matrix-product-dimensions A x) nil element-type 0)))

       y (matrix-product-dimensions A x) element-type 0)))

  ("gsl_blas_" :type "gemv")

  ((transa cblas-transpose) (alpha :element-c-type) ((mpointer A) :pointer)

   ((mpointer x) :pointer) (beta :element-c-type) ((mpointer yarr) :pointer))

linear-algebra/cholesky.lisp

+2 −2
Original line number Diff line number Diff line 
;; Cholesky Decomposition

;; Liam Healy, Wed May  3 2006 - 16:38

;; Time-stamp: <2011-02-19 13:08:24EST cholesky.lisp>

;; Time-stamp: <2011-04-23 17:13:59EDT cholesky.lisp>

;;

;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy

;; Distributed under the terms of the GNU General Public License
@@ -53,7 +53,7 @@ 
(defmfun cholesky-solve

    ((A grid:matrix) (b vector) &optional x-spec

     &aux

     (x (grid:ensure-foreign-array x-spec (grid:dimensions b) t)))

     (x (grid:ensure-foreign-array x-spec (grid:dimensions b))))

  (("gsl_linalg" :complex "_cholesky_svx")

   ("gsl_linalg" :complex "_cholesky_solve"))

  ((((mpointer A) :pointer) ((mpointer b) :pointer))

linear-algebra/householder.lisp

+2 −2
Original line number Diff line number Diff line 
;; Householder Transformations

;; Liam Healy, Wed May 10 2006 - 10:03

;; Time-stamp: <2011-02-19 13:08:23EST householder.lisp>

;; Time-stamp: <2011-04-23 17:14:09EDT householder.lisp>

;;

;; Copyright 2006, 2007, 2008, 2009, 2011 Liam M. Healy

;; Distributed under the terms of the GNU General Public License
@@ -87,7 +87,7 @@ 
(defmfun householder-solve

    (A b &optional x-spec

       &aux

       (x (grid:ensure-foreign-array x-spec (grid:dimensions b) t)))

       (x (grid:ensure-foreign-array x-spec (grid:dimensions b))))

  ("gsl_linalg_HH_svx" "gsl_linalg_HH_solve")

  ((((mpointer A) :pointer) ((mpointer b) :pointer))

   (((mpointer A) :pointer) ((mpointer b) :pointer)

linear-algebra/qr.lisp

+4 −4
Original line number Diff line number Diff line 
;; QR decomposition

;; Liam Healy 2008-02-17 11:05:20EST qr.lisp

;; Time-stamp: <2011-02-19 13:08:23EST qr.lisp>

;; Time-stamp: <2011-04-23 17:14:30EDT qr.lisp>

;;

;; Copyright 2008, 2009, 2011 Liam M. Healy

;; Distributed under the terms of the GNU General Public License
@@ -62,7 +62,7 @@ 
(defmfun QR-solve

    (QR tau b &optional x-spec

	&aux

	(x (grid:ensure-foreign-array x-spec (grid:dimensions b) t)))

	(x (grid:ensure-foreign-array x-spec (grid:dimensions b))))

  ("gsl_linalg_QR_svx" "gsl_linalg_QR_solve")

  ((((mpointer QR) :pointer) ((mpointer tau) :pointer)

    ((mpointer b) :pointer))
@@ -129,7 +129,7 @@ 
(defmfun QR-Rsolve

    (QR b &optional x-spec

       &aux

       (x (grid:ensure-foreign-array x-spec (grid:dimensions b) t)))

       (x (grid:ensure-foreign-array x-spec (grid:dimensions b))))

  ("gsl_linalg_QR_Rsvx" "gsl_linalg_QR_Rsolve")

  ((((mpointer QR) :pointer) ((mpointer b) :pointer))

   (((mpointer QR) :pointer) ((mpointer b) :pointer) ((mpointer x) :pointer)))
@@ -189,7 +189,7 @@ 
(defmfun R-solve

    (R b &optional x-spec

       &aux

       (x (grid:ensure-foreign-array x-spec (grid:dimensions b) t)))

       (x (grid:ensure-foreign-array x-spec (grid:dimensions b))))

  ("gsl_linalg_R_svx" "gsl_linalg_R_solve")

  ((((mpointer R) :pointer) ((mpointer b) :pointer))

   (((mpointer R) :pointer) ((mpointer b) :pointer) ((mpointer x) :pointer)))