11module LAPACK2
22
3+ using libblastrampoline_jll
34 using LinearAlgebra
45 using LinearAlgebra: BlasInt, chkstride1, LAPACKException
56 using LinearAlgebra. BLAS: @blasfunc
67 using LinearAlgebra. LAPACK: chkdiag, chkside, chkuplo
78
9+ liblapack_name = libblastrampoline_jll. libblastrampoline
10+
811 # # Standard QR/QL
912 function steqr! (compz:: Char ,
1013 d:: StridedVector{Float64} ,
@@ -34,7 +37,7 @@ module LAPACK2
3437 # Allocations
3538 info = Vector {BlasInt} (undef, 1 )
3639
37- ccall ((@blasfunc (" dsteqr_" ), Base . liblapack_name),Cvoid,
40+ ccall ((@blasfunc (" dsteqr_" ), liblapack_name),Cvoid,
3841 (Ref{UInt8}, Ref{BlasInt}, Ptr{Float64}, Ptr{Float64},
3942 Ptr{Float64}, Ref{BlasInt}, Ptr{Float64}, Ptr{BlasInt}),
4043 compz, n, d, e,
@@ -56,7 +59,7 @@ module LAPACK2
5659 # Allocations
5760 info = BlasInt[0 ]
5861
59- ccall ((@blasfunc (" dsterf_" ), Base . liblapack_name), Cvoid,
62+ ccall ((@blasfunc (" dsterf_" ), liblapack_name), Cvoid,
6063 (Ref{BlasInt}, Ptr{Float64}, Ptr{Float64}, Ptr{BlasInt}),
6164 n, d, e, info)
6265
@@ -87,7 +90,7 @@ module LAPACK2
8790 # Allocations
8891 info = BlasInt[0 ]
8992
90- ccall ((@blasfunc (" dstedc_" ), Base . liblapack_name), Cvoid,
93+ ccall ((@blasfunc (" dstedc_" ), liblapack_name), Cvoid,
9194 (Ref{UInt8}, Ref{BlasInt}, Ptr{Float64}, Ptr{Float64},
9295 Ptr{Float64}, Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt},
9396 Ptr{BlasInt}, Ref{BlasInt}, Ptr{BlasInt}),
@@ -153,7 +156,7 @@ module LAPACK2
153156 tryrac = BlasInt[1 ]
154157 info = Vector {BlasInt} (undef, 1 )
155158
156- ccall ((@blasfunc ($ lsymb), Base . liblapack_name), Cvoid,
159+ ccall ((@blasfunc ($ lsymb), liblapack_name), Cvoid,
157160 (Ref{UInt8}, Ref{UInt8}, Ref{BlasInt}, Ptr{$ elty},
158161 Ptr{$ elty}, Ref{$ elty}, Ref{$ elty}, Ref{BlasInt},
159162 Ref{BlasInt}, Ptr{BlasInt}, Ptr{$ elty}, Ptr{$ elty},
@@ -242,7 +245,7 @@ module LAPACK2
242245
243246 info = Ref {BlasInt} (0 )
244247
245- ccall ((@blasfunc (" dlahqr_" ), Base . liblapack_name), Cvoid,
248+ ccall ((@blasfunc (" dlahqr_" ), liblapack_name), Cvoid,
246249 (Ref{BlasInt}, Ref{BlasInt}, Ref{BlasInt}, Ref{BlasInt},
247250 Ref{BlasInt}, Ptr{Float64}, Ref{BlasInt}, Ptr{Float64},
248251 Ptr{Float64}, Ref{BlasInt}, Ref{BlasInt}, Ptr{Float64},
@@ -295,7 +298,7 @@ module LAPACK2
295298
296299 info = Vector {BlasInt} (undef, 1 )
297300
298- ccall ((@blasfunc (:dpteqr_ ), Base . liblapack_name), Cvoid,
301+ ccall ((@blasfunc (:dpteqr_ ), liblapack_name), Cvoid,
299302 (Ref{UInt8}, Ref{BlasInt}, Ptr{Float64}, Ptr{Float64},
300303 Ptr{Float64}, Ref{BlasInt}, Ptr{Float64}, Ptr{BlasInt}),
301304 compz, n, d, e,
@@ -321,7 +324,7 @@ module LAPACK2
321324 liwork = BlasInt (- 1 )
322325 info = BlasInt[0 ]
323326 for i = 1 : 2
324- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
327+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
325328 (Ref{UInt8}, Ref{UInt8}, Ref{BlasInt}, Ptr{$ elty},
326329 Ref{BlasInt}, Ptr{$ elty}, Ptr{$ elty}, Ref{BlasInt},
327330 Ptr{BlasInt}, Ref{BlasInt}, Ptr{BlasInt}),
@@ -359,7 +362,7 @@ module LAPACK2
359362 liwork = BlasInt (- 1 )
360363 info = BlasInt[0 ]
361364 for i = 1 : 2
362- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
365+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
363366 (Ref{UInt8}, Ref{UInt8}, Ref{BlasInt}, Ptr{$ elty},
364367 Ref{BlasInt}, Ptr{$ relty}, Ptr{$ elty}, Ref{BlasInt},
365368 Ptr{$ relty}, Ref{BlasInt}, Ptr{BlasInt}, Ref{BlasInt},
@@ -443,7 +446,7 @@ for (f, elty) in ((:dtgevc_, :Float64),
443446 m = BlasInt[0 ]
444447 info = BlasInt[0 ]
445448
446- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
449+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
447450 (Ref{UInt8}, Ref{UInt8}, Ptr{BlasInt}, Ref{BlasInt},
448451 Ptr{$ elty}, Ref{BlasInt}, Ptr{$ elty}, Ref{BlasInt},
449452 Ptr{$ elty}, Ref{BlasInt}, Ptr{$ elty}, Ref{BlasInt},
@@ -520,7 +523,7 @@ for (f, elty, relty) in ((:dsfrk_, :Float64, :Float64),
520523 end
521524 lda = max (1 , stride (A, 2 ))
522525
523- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
526+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
524527 (Ref{UInt8}, Ref{UInt8}, Ref{UInt8}, Ref{BlasInt},
525528 Ref{BlasInt}, Ref{$ relty}, Ptr{$ elty}, Ref{BlasInt},
526529 Ref{$ relty}, Ptr{$ elty}),
@@ -544,7 +547,7 @@ for (f, elty) in ((:dpftrf_, :Float64),
544547 n = round (Int,div (sqrt (8 length (A)), 2 ))
545548 info = Vector {BlasInt} (undef, 1 )
546549
547- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
550+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
548551 (Ref{UInt8}, Ref{UInt8}, Ref{BlasInt}, Ptr{$ elty},
549552 Ptr{BlasInt}),
550553 transr, uplo, n, A,
@@ -566,7 +569,7 @@ for (f, elty) in ((:dpftri_, :Float64),
566569 n = round (Int,div (sqrt (8 length (A)), 2 ))
567570 info = Vector {BlasInt} (undef, 1 )
568571
569- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
572+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
570573 (Ref{UInt8}, Ref{UInt8}, Ref{BlasInt}, Ptr{$ elty},
571574 Ptr{BlasInt}),
572575 transr, uplo, n, A,
@@ -595,7 +598,7 @@ for (f, elty) in ((:dpftrs_, :Float64),
595598 ldb = max (1 , stride (B, 2 ))
596599 info = Vector {BlasInt} (undef, 1 )
597600
598- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
601+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
599602 (Ref{UInt8}, Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt},
600603 Ptr{$ elty}, Ptr{$ elty}, Ref{BlasInt}, Ptr{BlasInt}),
601604 transr, uplo, n, nhrs,
@@ -631,7 +634,7 @@ for (f, elty) in ((:dtfsm_, :Float64),
631634 end
632635 ldb = max (1 , stride (B, 2 ))
633636
634- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
637+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
635638 (Ref{UInt8}, Ref{UInt8}, Ref{UInt8}, Ref{UInt8},
636639 Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ref{$ elty},
637640 Ptr{$ elty}, Ptr{$ elty}, Ref{BlasInt}),
@@ -657,7 +660,7 @@ for (f, elty) in ((:dtftri_, :Float64),
657660 n = round (Int,div (sqrt (8 length (A)), 2 ))
658661 info = Vector {BlasInt} (undef, 1 )
659662
660- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
663+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
661664 (Ref{UInt8}, Ref{UInt8}, Ref{UInt8}, Ref{BlasInt},
662665 Ptr{$ elty}, Ptr{BlasInt}),
663666 transr, uplo, diag, n,
@@ -681,7 +684,7 @@ for (f, elty) in ((:dtfttr_, :Float64),
681684 info = Vector {BlasInt} (undef, 1 )
682685 A = similar (Arf, $ elty, n, n)
683686
684- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
687+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
685688 (Ref{UInt8}, Ref{UInt8}, Ref{BlasInt}, Ptr{$ elty},
686689 Ptr{$ elty}, Ref{BlasInt}, Ptr{BlasInt}),
687690 transr, uplo, n, Arf,
@@ -707,7 +710,7 @@ for (f, elty) in ((:dtrttf_, :Float64),
707710 info = Vector {BlasInt} (undef, 1 )
708711 Arf = similar (A, $ elty, div (n* (n+ 1 ), 2 ))
709712
710- ccall ((@blasfunc ($ f), Base . liblapack_name), Cvoid,
713+ ccall ((@blasfunc ($ f), liblapack_name), Cvoid,
711714 (Ref{UInt8}, Ref{UInt8}, Ref{BlasInt}, Ptr{$ elty},
712715 Ref{BlasInt}, Ptr{$ elty}, Ptr{BlasInt}),
713716 transr, uplo, n, A,
0 commit comments