@@ -104,7 +104,7 @@ function getrs!(trans::AbstractChar,
104
104
throw (DimensionMismatch (" ipiv has length $(length (ipiv)) , but needs to be $n " ))
105
105
end
106
106
nrhs = size (B, 2 )
107
- ccall ((" zgetrs_" , MKL_jll. libmkl_rt), Cvoid,
107
+ ccall ((@blasfunc ( zgetrs_) , MKL_jll. libmkl_rt), Cvoid,
108
108
(Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{ComplexF64}, Ref{BlasInt},
109
109
Ptr{BlasInt}, Ptr{ComplexF64}, Ref{BlasInt}, Ptr{BlasInt}, Clong),
110
110
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,
129
129
throw (DimensionMismatch (" ipiv has length $(length (ipiv)) , but needs to be $n " ))
130
130
end
131
131
nrhs = size (B, 2 )
132
- ccall ((" cgetrs_" , MKL_jll. libmkl_rt), Cvoid,
132
+ ccall ((@blasfunc ( cgetrs_) , MKL_jll. libmkl_rt), Cvoid,
133
133
(Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt},
134
134
Ptr{BlasInt}, Ptr{ComplexF32}, Ref{BlasInt}, Ptr{BlasInt}, Clong),
135
135
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,
154
154
throw (DimensionMismatch (" ipiv has length $(length (ipiv)) , but needs to be $n " ))
155
155
end
156
156
nrhs = size (B, 2 )
157
- ccall ((" dgetrs_" , MKL_jll. libmkl_rt), Cvoid,
157
+ ccall ((@blasfunc ( dgetrs_) , MKL_jll. libmkl_rt), Cvoid,
158
158
(Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt},
159
159
Ptr{BlasInt}, Ptr{Float64}, Ref{BlasInt}, Ptr{BlasInt}, Clong),
160
160
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,
179
179
throw (DimensionMismatch (" ipiv has length $(length (ipiv)) , but needs to be $n " ))
180
180
end
181
181
nrhs = size (B, 2 )
182
- ccall ((" sgetrs_" , MKL_jll. libmkl_rt), Cvoid,
182
+ ccall ((@blasfunc ( sgetrs_) , MKL_jll. libmkl_rt), Cvoid,
183
183
(Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ptr{Float32}, Ref{BlasInt},
184
184
Ptr{BlasInt}, Ptr{Float32}, Ref{BlasInt}, Ptr{BlasInt}, Clong),
185
185
trans, n, size (B, 2 ), A, max (1 , stride (A, 2 )), ipiv, B, max (1 , stride (B, 2 )), info,
0 commit comments