diff --git a/src/mkl.jl b/src/mkl.jl index 270e7ed7d..8d6e3650a 100644 --- a/src/mkl.jl +++ b/src/mkl.jl @@ -104,7 +104,7 @@ function getrs!(trans::AbstractChar, throw(DimensionMismatch("ipiv has length $(length(ipiv)), but needs to be $n")) end nrhs = size(B, 2) - ccall(("zgetrs_", MKL_jll.libmkl_rt), Cvoid, + ccall((@blasfunc(zgetrs_), MKL_jll.libmkl_rt), Cvoid, (Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{ComplexF64}, Ref{BlasInt}, Ptr{BlasInt}, Ptr{ComplexF64}, Ref{BlasInt}, Ptr{BlasInt}, Clong), trans, n, size(B, 2), A, max(1, stride(A, 2)), ipiv, B, max(1, stride(B, 2)), info, @@ -129,7 +129,7 @@ function getrs!(trans::AbstractChar, throw(DimensionMismatch("ipiv has length $(length(ipiv)), but needs to be $n")) end nrhs = size(B, 2) - ccall(("cgetrs_", MKL_jll.libmkl_rt), Cvoid, + ccall((@blasfunc(cgetrs_), MKL_jll.libmkl_rt), Cvoid, (Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt}, Ptr{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt}, Ptr{BlasInt}, Clong), trans, n, size(B, 2), A, max(1, stride(A, 2)), ipiv, B, max(1, stride(B, 2)), info, @@ -154,7 +154,7 @@ function getrs!(trans::AbstractChar, throw(DimensionMismatch("ipiv has length $(length(ipiv)), but needs to be $n")) end nrhs = size(B, 2) - ccall(("dgetrs_", MKL_jll.libmkl_rt), Cvoid, + ccall((@blasfunc(dgetrs_), MKL_jll.libmkl_rt), Cvoid, (Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt}, Ptr{BlasInt}, Ptr{Float64}, Ref{BlasInt}, Ptr{BlasInt}, Clong), trans, n, size(B, 2), A, max(1, stride(A, 2)), ipiv, B, max(1, stride(B, 2)), info, @@ -179,7 +179,7 @@ function getrs!(trans::AbstractChar, throw(DimensionMismatch("ipiv has length $(length(ipiv)), but needs to be $n")) end nrhs = size(B, 2) - ccall(("sgetrs_", MKL_jll.libmkl_rt), Cvoid, + ccall((@blasfunc(sgetrs_), MKL_jll.libmkl_rt), Cvoid, (Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{Float32}, Ref{BlasInt}, Ptr{BlasInt}, Ptr{Float32}, Ref{BlasInt}, Ptr{BlasInt}, Clong), trans, n, size(B, 2), A, max(1, stride(A, 2)), ipiv, B, max(1, stride(B, 2)), info,