-

diff --git a/base/linalg/blas.jl b/base/linalg/blas.jl
index 8379c79..f849c15 100644
--- a/base/linalg/blas.jl
+++ b/base/linalg/blas.jl
@@ -104,8 +104,8 @@ for (fname, elty) in ((:ddot_,:Float64),
         end
     end
 end
-for (fname, elty) in ((:cblas_zdotc_sub,:Complex128),
-                      (:cblas_cdotc_sub,:Complex64))
+for (fname, elty) in ((:bli_zdotv,:Complex128),
+                      (:bli_cdotv,:Complex64))
     @eval begin
                 #       DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY)
                 # *     .. Scalar Arguments ..
@@ -116,14 +116,14 @@ for (fname, elty) in ((:cblas_zdotc_sub,:Complex128),
         function dotc(n::Integer, DX::Union(Ptr{$elty},Array{$elty}), incx::Integer, DY::Union(Ptr{$elty},Array{$elty}), incy::Integer)
             result = Array($elty, 1)
             ccall(($(string(fname)),libblas), $elty,
-                (BlasInt, Ptr{$elty}, BlasInt, Ptr{$elty}, BlasInt, Ptr{$elty}),
-                 n, DX, incx, DY, incy, result)
+                (Cint, Cint, BlasInt, Ptr{$elty}, BlasInt, Ptr{$elty}, BlasInt, Ptr{$elty}),
+                 0x10, 0x0, n, DX, incx, DY, incy, result)
             result[1]
         end
     end
 end
-for (fname, elty) in ((:cblas_zdotu_sub,:Complex128),
-                      (:cblas_cdotu_sub,:Complex64))
+for (fname, elty) in ((:bli_zdotv,:Complex128),
+                      (:bli_cdotv,:Complex64))
     @eval begin
                 #       DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY)
                 # *     .. Scalar Arguments ..
@@ -134,8 +134,8 @@ for (fname, elty) in ((:cblas_zdotu_sub,:Complex128),
         function dotu(n::Integer, DX::Union(Ptr{$elty},Array{$elty}), incx::Integer, DY::Union(Ptr{$elty},Array{$elty}), incy::Integer)
             result = Array($elty, 1)
             ccall(($(string(fname)),libblas), $elty,
-                (BlasInt, Ptr{$elty}, BlasInt, Ptr{$elty}, BlasInt, Ptr{$elty}),
-                 n, DX, incx, DY, incy, result)
+                (Cint, Cint, BlasInt, Ptr{$elty}, BlasInt, Ptr{$elty}, BlasInt, Ptr{$elty}),
+                 0x0, 0x0, n, DX, incx, DY, incy, result)
             result[1]
         end
     end