Add wrappers of routines not in Reference-LAPACK

Author: amontoison

src/libblas.jl

@@ -1,3 +1,63 @@
+function ssymv(uplo, n, alpha, A, lda, px, stx, beta, py, sty)
+    return ccall((@blasfunc(ssymv_), libblastrampoline), Cvoid,
+                 (Ref{UInt8}, Ref{BlasInt}, Ref{Float32}, Ptr{Float32},
+                  Ref{BlasInt}, Ptr{Float32}, Ref{BlasInt}, Ref{Float32},
+                  Ptr{Float32}, Ref{BlasInt}),
+                 uplo, n, alpha, A, lda, px, stx, beta, py, sty)
+end
+
+function dsymv(uplo, n, alpha, A, lda, px, stx, beta, py, sty)
+    return ccall((@blasfunc(dsymv_), libblastrampoline), Cvoid,
+                 (Ref{UInt8}, Ref{BlasInt}, RefFloat64}, Ptr{Float64},
+                  Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt}, Ref{Float64},
+                  Ptr{Float64}, Ref{BlasInt}),
+                 uplo, n, alpha, A, lda, px, stx, beta, py, sty)
+end
+
+function csymv(uplo, n, alpha, A, lda, px, stx, beta, py, sty)
+    return ccall((@blasfunc(csymv_), libblastrampoline), Cvoid,
+                 (Ref{UInt8}, Ref{BlasInt}, Ref{ComplexF32}, Ptr{ComplexF32},
+                  Ref{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt}, Ref{ComplexF32},
+                  Ptr{ComplexF32}, Ref{BlasInt}),
+                 uplo, n, alpha, A, lda, px, stx, beta, py, sty)
+end
+
+function zsymv(uplo, n, alpha, A, lda, px, stx, beta, py, sty)
+    return ccall((@blasfunc(zsymv_), libblastrampoline), Cvoid,
+                 (Ref{UInt8}, Ref{BlasInt}, Ref{ComplexF64}, Ptr{ComplexF64},
+                  Ref{BlasInt}, Ptr{ComplexF64}, Ref{BlasInt}, Ref{ComplexF64},
+                  Ptr{ComplexF64}, Ref{BlasInt}),
+                 uplo, n, alpha, A, lda, px, stx, beta, py, sty)
+end
+
+function ssyr(uplo, n, a, x, stx, A, lda)
+    return ccall((@blasfunc(ssyr_), libblastrampoline), Cvoid,
+                 (Ref{UInt8}, Ref{BlasInt}, Ref{Float32}, Ptr{Float32},
+                  Ref{BlasInt}, Ptr{Float32}, Ref{BlasInt}),
+                 uplo, n, a, x, stx, A, lda)
+end
+
+function dsyr(uplo, n, a, x, stx, A, lda)
+    return ccall((@blasfunc(ssyr_), libblastrampoline), Cvoid,
+                 (Ref{UInt8}, Ref{BlasInt}, Ref{Float64}, Ptr{Float64},
+                  Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt}),
+                 uplo, n, a, x, stx, A, lda)
+end
+
+function csyr(uplo, n, a, x, stx, A, lda)
+    return ccall((@blasfunc(ssyr_), libblastrampoline), Cvoid,
+                 (Ref{UInt8}, Ref{BlasInt}, Ref{ComplexF32}, Ptr{ComplexF32},
+                  Ref{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt}),
+                 uplo, n, a, x, stx, A, lda)
+end
+
+function zsyr(uplo, n, a, x, stx, A, lda)
+    return ccall((@blasfunc(ssyr_), libblastrampoline), Cvoid,
+                 (Ref{UInt8}, Ref{BlasInt}, Ref{ComplexF64}, Ptr{ComplexF64},
+                  Ref{BlasInt}, Ptr{ComplexF64}, Ref{BlasInt}),
+                 uplo, n, a, x, stx, A, lda)
+end
+
 function drot(n, dx, incx, dy, incy, c, s)
     return ccall((@blasfunc(drot_), libblastrampoline), Cvoid,
                  (Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt},
@@ -33,7 +93,7 @@ function zrot(n, zx, incx, zy, incy, c, s)
                  n, zx, incx, zy, incy, c, s)
 end
 
-function crot(n, dx, incx, dy, incy, c, s)
+function crot(n, cx, incx, cy, incy, c, s)
     return ccall((@blasfunc(crot_), libblastrampoline), Cvoid,
                  (Ref{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt},
                   Ref{Float32}, Ref{ComplexF32}),