diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-01-21 21:18:31 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-01-21 21:18:31 -0500 |
| commit | 20321008e714598f351aa2889abc435f5115feda (patch) | |
| tree | 549d68f74156a43b19c0596a244f25f543de85f8 /sly/wrappers | |
| parent | 5ce85e62e52fe9a36456dff5e83ff2dc594ba285 (diff) | |
wrappers: gsl: Add cblas-sgemv wrapper.
Diffstat (limited to 'sly/wrappers')
| -rw-r--r-- | sly/wrappers/gsl.scm | 7 |
1 files changed, 6 insertions, 1 deletions
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)) |