@@ -28,32 +28,32 @@ function LinearAlgebra.lu!(A::DMatrix{T}, ::LinearAlgebra.NoPivot; check::Bool=t
2828 return LinearAlgebra. LU {T,DMatrix{T},DVector{Int}} (A, ipiv, 0 )
2929end
3030
31- function searchmax_pivot! (piv_idx:: AbstractArray {Int} , piv_val:: AbstractArray {T} , A:: AbstractArray {T} , offset:: Int = 0 ) where T
31+ function searchmax_pivot! (piv_idx:: AbstractVector {Int} , piv_val:: AbstractVector {T} , A:: AbstractMatrix {T} , offset:: Int = 0 ) where T
3232 max_idx = argmax (abs .(A[:]))
3333 piv_idx[1 ] = offset+ max_idx
3434 piv_val[1 ] = A[max_idx]
3535end
3636
37- function update_ipiv! (ipivl, piv_idx:: AbstractArray {Int} , piv_val:: AbstractArray {T} , k:: Int , nb:: Int ) where T
37+ function update_ipiv! (ipivl:: AbstractVector{Int} , piv_idx:: AbstractVector {Int} , piv_val:: AbstractVector {T} , k:: Int , nb:: Int ) where T
3838 max_piv_idx = argmax (abs .(piv_val))
3939 ipivl[1 ] = (max_piv_idx+ k- 2 )* nb + piv_idx[max_piv_idx]
4040end
4141
42- function swaprows_panel! (A:: AbstractArray {T} , M:: AbstractArray {T} , ipivl:: AbstractVector{Int} , m:: Int , p:: Int , nb:: Int ) where T
42+ function swaprows_panel! (A:: AbstractMatrix {T} , M:: AbstractMatrix {T} , ipivl:: AbstractVector{Int} , m:: Int , p:: Int , nb:: Int ) where T
4343 q = div (ipivl[1 ]- 1 ,nb) + 1
4444 r = (ipivl[1 ]- 1 )% nb+ 1
4545 if m == q
4646 A[p,:], M[r,:] = M[r,:], A[p,:]
4747 end
4848end
4949
50- function update_panel! (M:: AbstractArray {T} , A:: AbstractArray {T} , p:: Int ) where T
50+ function update_panel! (M:: AbstractMatrix {T} , A:: AbstractMatrix {T} , p:: Int ) where T
5151 Acinv = one (T) / A[p,p]
5252 LinearAlgebra. BLAS. scal! (Acinv, view (M, :, p))
5353 LinearAlgebra. BLAS. ger! (- one (T), view (M, :, p), conj .(view (A, p, p+ 1 : size (A,2 ))), view (M, :, p+ 1 : size (M,2 )))
5454end
5555
56- function swaprows_trail! (A:: AbstractArray {T} , M:: AbstractArray {T} , ipiv:: AbstractVector{Int} , m:: Int , nb:: Int ) where T
56+ function swaprows_trail! (A:: AbstractMatrix {T} , M:: AbstractMatrix {T} , ipiv:: AbstractVector{Int} , m:: Int , nb:: Int ) where T
5757 for p in eachindex (ipiv)
5858 q = div (ipiv[p]- 1 ,nb) + 1
5959 r = (ipiv[p]- 1 )% nb+ 1
0 commit comments