Skip to content

Commit 8645db7

Browse files
Potentially fix triangular solve of MKL? (#680)
1 parent 43206df commit 8645db7

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/mkl.jl

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -104,7 +104,7 @@ function getrs!(trans::AbstractChar,
104104
throw(DimensionMismatch("ipiv has length $(length(ipiv)), but needs to be $n"))
105105
end
106106
nrhs = size(B, 2)
107-
ccall(("zgetrs_", MKL_jll.libmkl_rt), Cvoid,
107+
ccall((@blasfunc(zgetrs_), MKL_jll.libmkl_rt), Cvoid,
108108
(Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{ComplexF64}, Ref{BlasInt},
109109
Ptr{BlasInt}, Ptr{ComplexF64}, Ref{BlasInt}, Ptr{BlasInt}, Clong),
110110
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,
129129
throw(DimensionMismatch("ipiv has length $(length(ipiv)), but needs to be $n"))
130130
end
131131
nrhs = size(B, 2)
132-
ccall(("cgetrs_", MKL_jll.libmkl_rt), Cvoid,
132+
ccall((@blasfunc(cgetrs_), MKL_jll.libmkl_rt), Cvoid,
133133
(Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt},
134134
Ptr{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt}, Ptr{BlasInt}, Clong),
135135
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,
154154
throw(DimensionMismatch("ipiv has length $(length(ipiv)), but needs to be $n"))
155155
end
156156
nrhs = size(B, 2)
157-
ccall(("dgetrs_", MKL_jll.libmkl_rt), Cvoid,
157+
ccall((@blasfunc(dgetrs_), MKL_jll.libmkl_rt), Cvoid,
158158
(Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt},
159159
Ptr{BlasInt}, Ptr{Float64}, Ref{BlasInt}, Ptr{BlasInt}, Clong),
160160
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,
179179
throw(DimensionMismatch("ipiv has length $(length(ipiv)), but needs to be $n"))
180180
end
181181
nrhs = size(B, 2)
182-
ccall(("sgetrs_", MKL_jll.libmkl_rt), Cvoid,
182+
ccall((@blasfunc(sgetrs_), MKL_jll.libmkl_rt), Cvoid,
183183
(Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{Float32}, Ref{BlasInt},
184184
Ptr{BlasInt}, Ptr{Float32}, Ref{BlasInt}, Ptr{BlasInt}, Clong),
185185
trans, n, size(B, 2), A, max(1, stride(A, 2)), ipiv, B, max(1, stride(B, 2)), info,

0 commit comments

Comments
 (0)