Fix a few typos

Author: amontoison

src/blas.jl

@@ -1417,7 +1417,7 @@ Return the updated `C`.
 """
 function gemmt! end
 
-for (gemmt, elty) in
+for (fname, elty) in
         ((:dgemmt,:Float64),
          (:sgemmt,:Float32),
          (:zgemmt,:ComplexF64),
@@ -1551,10 +1551,10 @@ gemm(tA, tB, A, B)
 
 
 ## (SY) symmetric matrix-matrix and matrix-vector multiplication
-for (mfname, elty) in ((:dsymm,:Float64),
-                       (:ssymm,:Float32),
-                       (:zsymm,:ComplexF64),
-                       (:csymm,:ComplexF32))
+for (fname, elty) in ((:dsymm,:Float64),
+                      (:ssymm,:Float32),
+                      (:zsymm,:ComplexF64),
+                      (:csymm,:ComplexF32))
     @eval begin
              #     SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
              #     .. Scalar Arguments ..

src/libblas.jl

@@ -1,3 +1,27 @@
+# function cdotc(n, cx, incx, cy, incy)
+#     @ccall libblastrampoline.cdotc_(n::Ref{BlasInt}, cx::Ptr{ComplexF32},
+#                                     incx::Ref{BlasInt},
+#                                     cy::Ptr{ComplexF32}, incy::Ref{BlasInt})::ComplexF32
+# end
+
+# function cdotu(n, cx, incx, cy, incy)
+#     @ccall libblastrampoline.cdotu_(n::Ref{BlasInt}, cx::Ptr{ComplexF32},
+#                                     incx::Ref{BlasInt},
+#                                     cy::Ptr{ComplexF32}, incy::Ref{BlasInt})::ComplexF32
+# end
+
+# function zdotc(n, zx, incx, zy, incy)
+#     @ccall libblastrampoline.zdotc_(n::Ref{BlasInt}, zx::Ptr{ComplexF64},
+#                                     incx::Ref{BlasInt},
+#                                     zy::Ptr{ComplexF64}, incy::Ref{BlasInt})::ComplexF64
+# end
+
+# function zdotu(n, zx, incx, zy, incy)
+#     @ccall libblastrampoline.zdotu_(n::Ref{BlasInt}, zx::Ptr{ComplexF64},
+#                                     incx::Ref{BlasInt},
+#                                     zy::Ptr{ComplexF64}, incy::Ref{BlasInt})::ComplexF64
+# end
+
 function srotg(a, b, c, s)
     @ccall libblastrampoline.srotg_(a::Ref{Float32}, b::Ref{Float32}, c::Ref{Float32},
                                     s::Ref{Float32})::Cvoid
@@ -51,18 +75,6 @@ function ccopy(n, cx, incx, cy, incy)
                                     cy::Ptr{ComplexF32}, incy::Ref{BlasInt})::Cvoid
 end
 
-function cdotc(n, cx, incx, cy, incy)
-    @ccall libblastrampoline.cdotc_(n::Ref{BlasInt}, cx::Ptr{ComplexF32},
-                                    incx::Ref{BlasInt},
-                                    cy::Ptr{ComplexF32}, incy::Ref{BlasInt})::ComplexF32
-end
-
-function cdotu(n, cx, incx, cy, incy)
-    @ccall libblastrampoline.cdotu_(n::Ref{BlasInt}, cx::Ptr{ComplexF32},
-                                    incx::Ref{BlasInt},
-                                    cy::Ptr{ComplexF32}, incy::Ref{BlasInt})::ComplexF32
-end
-
 function cgbmv(trans, m, n, kl, ku, alpha, a, lda, x, incx, beta, y, incy)
     @ccall libblastrampoline.cgbmv_(trans::Ref{UInt8}, m::Ref{BlasInt}, n::Ref{BlasInt},
                                     kl::Ref{BlasInt},
@@ -879,18 +891,6 @@ function zcopy(n, zx, incx, zy, incy)
                                     zy::Ptr{ComplexF64}, incy::Ref{BlasInt})::Cvoid
 end
 
-function zdotc(n, zx, incx, zy, incy)
-    @ccall libblastrampoline.zdotc_(n::Ref{BlasInt}, zx::Ptr{ComplexF64},
-                                    incx::Ref{BlasInt},
-                                    zy::Ptr{ComplexF64}, incy::Ref{BlasInt})::ComplexF64
-end
-
-function zdotu(n, zx, incx, zy, incy)
-    @ccall libblastrampoline.zdotu_(n::Ref{BlasInt}, zx::Ptr{ComplexF64},
-                                    incx::Ref{BlasInt},
-                                    zy::Ptr{ComplexF64}, incy::Ref{BlasInt})::ComplexF64
-end
-
 function zdrot(n, zx, incx, zy, incy, c, s)
     @ccall libblastrampoline.zdrot_(n::Ref{BlasInt}, zx::Ptr{ComplexF64},
                                     incx::Ref{BlasInt},