From 20321008e714598f351aa2889abc435f5115feda Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 21 Jan 2015 21:18:31 -0500
Subject: wrappers: gsl: Add cblas-sgemv wrapper.

---
 sly/wrappers/gsl.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'sly/wrappers')

diff --git a/sly/wrappers/gsl.scm b/sly/wrappers/gsl.scm
index da35b2c..f05f4ae 100644
--- a/sly/wrappers/gsl.scm
+++ b/sly/wrappers/gsl.scm
@@ -25,7 +25,8 @@
   #:use-module (system foreign)
   #:export (cblas-row-major
             cblas-no-trans
-            cblas-sgemm))
+            cblas-sgemm
+            cblas-sgemv))
 
 ;;;
 ;;; Constants
@@ -47,3 +48,7 @@
 (define-foreign cblas-sgemm
   void "cblas_sgemm" (list int int int int int int float '*
                            int '* int float '* int))
+
+(define-foreign cblas-sgemv
+  void "cblas_sgemv" (list int int int int float '* int '*
+                           int float '* int))
-- 
cgit v1.2.3