Update blas.jl

Author: amontoison

src/blas.jl

@@ -1520,10 +1520,10 @@ for (gemm, elty) in
             chkstride1(A)
             chkstride1(B)
             chkstride1(C)
-            $fname(transA, transB, m, n,
-                   ka, alpha, A, max(1,stride(A,2)),
-                   B, max(1,stride(B,2)), beta, C,
-                   max(1,stride(C,2)))
+            $gemm(transA, transB, m, n,
+                  ka, alpha, A, max(1,stride(A,2)),
+                  B, max(1,stride(B,2)), beta, C,
+                  max(1,stride(C,2)))
             C
         end
         function gemm(transA::AbstractChar, transB::AbstractChar, alpha::($elty), A::AbstractMatrix{$elty}, B::AbstractMatrix{$elty})