@@ -31,7 +31,7 @@ function _ccolamd!(
3131 error (" cmember must have length $n_col " )
3232 end
3333
34- Alen = AMD. recommended (length (A), n_row, n_col)
34+ Alen = AMD. ccolamd_l_recommended (length (A), n_row, n_col)
3535 resize! (A, Alen)
3636
3737 for i in eachindex (A)
@@ -40,7 +40,7 @@ function _ccolamd!(
4040 for i in eachindex (p)
4141 p[i] -= 1
4242 end
43- err = AMD. ccolamd ( # ccolamd_l
43+ err = AMD. ccolamd_l ( # ccolamd_l
4444 n_row,
4545 n_col,
4646 Alen,
@@ -52,7 +52,7 @@ function _ccolamd!(
5252 )
5353
5454 if err == 0
55- AMD. report (stats)
55+ AMD. ccolamd_l_report (stats)
5656 error (" call to ccolamd return with error code $(stats[4 ]) " )
5757 end
5858
@@ -64,36 +64,36 @@ function _ccolamd!(
6464 return p
6565end
6666
67- function ccolamd ! (
67+ function _ccolamd ! (
6868 n_row,
69- A:: AbstractVector{T } , # SuiteSparse_long},
70- p:: AbstractVector , # {SuiteSparse_long},
69+ A:: AbstractVector{T1 } , # SuiteSparse_long},
70+ p:: AbstractVector{<:Real} , # {SuiteSparse_long},
7171 cmember:: Union{Ptr{Nothing}, <:AbstractVector{T}} , # SuiteSparse_long
72- ) where T
72+ ) where {T1 <: Real , T}
7373 n_col = length (p) - 1
7474
7575 if length (cmember) != n_col
7676 error (" cmember must have length $n_col " )
7777 end
7878
79- Alen = AMD. recommended (length (A), n_row, n_col)
79+ Alen = AMD. ccolamd_l_recommended (length (A), n_row, n_col)
8080 resize! (A, Alen)
81- stats = zeros (T , STATS)
81+ stats = zeros (T1 , STATS)
8282 return _ccolamd! (n_row, A, p, C_NULL , stats, cmember)
8383end
8484
85- function _ccolamd! (
86- n_row,
87- A:: AbstractVector{T} , # ::Vector{SuiteSparse_long},
88- p:: AbstractVector , # ::Vector{SuiteSparse_long},
89- constraints = zeros (T,length (p) - 1 ), # SuiteSparse_long,
90- ) where T
91- n_col = length (p) - 1
92- return _ccolamd! (n_row, A, p, constraints)
93- end
85+ # function _ccolamd!(
86+ # n_row,
87+ # A::AbstractVector{T}, # ::Vector{SuiteSparse_long},
88+ # p::AbstractVector, # ::Vector{SuiteSparse_long},
89+ # constraints = zeros(T,length(p) - 1), # SuiteSparse_long,
90+ # ) where T
91+ # n_col = length(p) - 1
92+ # return _ccolamd!(n_row, A, p, constraints)
93+ # end
9494
9595_ccolamd (n_row,A,p,constraints) = _ccolamd! (n_row, copy (A), copy (p), constraints)
96- _ccolamd (badjMat , constraints) = _ccolamd (size (badjMat , 1 ), A . rowval, A . colptr, constraints)
96+ _ccolamd (biadjMat , constraints) = _ccolamd (size (biadjMat , 1 ), biadjMat . rowval, biadjMat . colptr, constraints)
9797
9898
9999
0 commit comments