Fix BLAS wrappers with one argument

Author: amontoison

src/libblas.jl

@@ -306,7 +306,7 @@ function daxpby(n, da, dx, incx, db, dy, incy)
 end
 
 function dcabs1(z)
-    return ccall((@blasfunc(dcabs1_), libblastrampoline), Float64, (Ref{ComplexF64}), z)
+    return ccall((@blasfunc(dcabs1_), libblastrampoline), Float64, (Ref{ComplexF64},), z)
 end
 
 function dcopy(n, dx, incx, dy, incy)
@@ -565,7 +565,7 @@ function saxpby(n, sa, sx, incx, sb, sy, incy)
 end
 
 function scabs1(z)
-    return ccall((@blasfunc(scabs1_), libblastrampoline), Float32, (Ref{ComplexF32}), z)
+    return ccall((@blasfunc(scabs1_), libblastrampoline), Float32, (Ref{ComplexF32},), z)
 end
 
 function scasum(n, cx, incx)