@@ -32,21 +32,18 @@ function searchmax_pivot!(piv_idx::AbstractArray{Int}, piv_val::AbstractArray{T}
32
32
max_idx = argmax (abs .(A[:]))
33
33
piv_idx[1 ] = offset+ max_idx
34
34
piv_val[1 ] = A[max_idx]
35
- println (" searchmax_pivot: " , piv_idx[1 ], " \n " , abs (piv_val[1 ]))
36
35
end
37
36
38
37
function update_ipiv! (ipivl, piv_idx:: AbstractArray{Int} , piv_val:: AbstractArray{T} , k:: Int , nb:: Int ) where T
39
38
max_piv_idx = argmax (abs .(piv_val))
40
39
ipivl[1 ] = (max_piv_idx+ k- 2 )* nb + piv_idx[max_piv_idx]
41
- println (" update_ipiv: " , ipivl[1 ])
42
40
end
43
41
44
42
function swaprows_panel! (A:: AbstractArray{T} , M:: AbstractArray{T} , ipivl:: AbstractVector{Int} , m:: Int , p:: Int , nb:: Int ) where T
45
43
q = div (ipivl[1 ]- 1 ,nb) + 1
46
44
r = (ipivl[1 ]- 1 )% nb+ 1
47
45
if m == q
48
46
A[p,:], M[r,:] = M[r,:], A[p,:]
49
- println (" swaprows_panel: " , imag .(A[p,:]), " \n " , imag .(M[r,:]))
50
47
end
51
48
end
52
49
@@ -62,7 +59,6 @@ function swaprows_trail!(A::AbstractArray{T}, M::AbstractArray{T}, ipiv::Abstrac
62
59
r = (ipiv[p]- 1 )% nb+ 1
63
60
if m == q
64
61
A[p,:], M[r,:] = M[r,:], A[p,:]
65
- println (" swaprows_trail: " , imag .(A[p,:]), " \n " , imag .(M[r,:]))
66
62
end
67
63
end
68
64
end
0 commit comments