Starting November 9th, common-lisp.net's Gitlab instance has implemented a more open account policy, allowing anyone with a GitHub or Google account to create an account on our instance.

At the same time, the login policy has started to require 2-factor authentication (2FA).

See https://mailman.common-lisp.net/pipermail/clo-devel/2018-October/001232.html for discussion.

Commit 87dcb940 authored by Liam M. Healy's avatar Liam M. Healy

Merge branch 'antik-multiple-systems' of git://repo.or.cz/gsll into antik-multiple-systems

parents 85f9ecd9 1107fc49
;; BLAS level 2, Matrix-vector operations
;; Liam Healy, Wed Apr 26 2006 - 21:08
;; Time-stamp: <2011-10-23 20:36:31EDT blas2.lisp>
;; Time-stamp: <2013-12-25 12:08:15EST blas2.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -26,11 +26,20 @@
;;;; Functions
;;;;****************************************************************************
(defun matrix-product-dimensions (a b)
(if (typep b 'grid:matrix)
(list (first (grid:dimensions a))
(second (grid:dimensions b)))
(first (grid:dimensions a))))
(defun matrix-product-dimensions (a b &key (transa :notrans) (transb :notrans))
(let ((dima (funcall
(ecase transa
(:notrans #'first)
(:trans #'second))
(grid:dimensions a))))
(if (typep b 'grid:matrix)
(list dima
(funcall
(ecase transb
(:notrans #'second)
(:trans #'first))
(grid:dimensions b)))
dima)))
(defmfun matrix-product
((A grid:matrix) (x vector)
......@@ -40,7 +49,7 @@
&aux
(yarr
(grid:ensure-foreign-array
y (matrix-product-dimensions A x) element-type 0)))
y (matrix-product-dimensions A x :transa transa) 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))
......
;; BLAS level 3, Matrix-matrix operations
;; Liam Healy, Wed Apr 26 2006 - 21:08
;; Time-stamp: <2011-10-23 20:37:22EDT blas3.lisp>
;; Time-stamp: <2013-12-25 12:10:44EST blas3.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy
;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2013 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -34,8 +34,10 @@
&aux
(Carr
(or C
(grid:make-foreign-array element-type :dimensions (matrix-product-dimensions A B)
:initial-element 0))))
(grid:make-foreign-array
element-type
:dimensions (matrix-product-dimensions A B :transa TransA :transb TransB)
:initial-element 0))))
("gsl_blas_" :type "gemm")
((TransA cblas-transpose) (TransB cblas-transpose)
(alpha :element-c-type) ((mpointer A) :pointer)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment