Skip to content

Commit

Permalink
Update versions.jl
Browse files Browse the repository at this point in the history
  • Loading branch information
amontoison committed Nov 4, 2022
1 parent f548045 commit 6e837fa
Show file tree
Hide file tree
Showing 3 changed files with 8 additions and 2 deletions.
6 changes: 4 additions & 2 deletions deps/versions.jl
Original file line number Diff line number Diff line change
Expand Up @@ -60,7 +60,6 @@ hsl_collection["ma51"] = []
hsl_collection["ma52"] = []
hsl_collection["hsl_ma54"] = []
hsl_collection["hsl_ma55"] = []
hsl_collection["ma57"] = []
hsl_collection["hsl_ma57"] = [
HSLVersion("5.2.0","aedc5a3e22a7b86779efccaa89a7c82b6949768dbab35fceb85a347e326cf584", ".tar.gz"),
]
Expand Down Expand Up @@ -122,7 +121,10 @@ hsl_collection["mc63"] = []
hsl_collection["mc64"] = []
hsl_collection["hsl_mc64"] = []
hsl_collection["hsl_mc65"] = []
hsl_collection["hsl_mc66"] = []
hsl_collection["hsl_mc66"] = [
HSLVersion("2.2.0", "3326abdab8fededbbaa6abebb24294dcc3cfa0e6810390664063a3f764a7f201", ".tar.gz"),
HSLVersion("2.2.0", "bc17cfca531bb2407ab53570bf8fa725e0c3265a0bfa4ce492ac54ad89856abc", ".zip"),
]
hsl_collection["mc67"] = []
hsl_collection["hsl_mc68"] = []
hsl_collection["hsl_mc69"] = []
Expand Down
2 changes: 2 additions & 0 deletions src/mc21.jl
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,14 @@ export mc21
# n , icn , licn , ip , lenr , iperm , numnz , iw )
# end

#! format: off
function mc21ad(n, icn, licn, ip, lenr, iperm, numnz, iw)
ccall(("mc21ad_", libmc21),
Cvoid,
(Ref{Cint}, Ptr{Cint}, Ref{Cint}, Ptr{Cint}, Ptr{Cint}, Ptr{Cint}, Ref{Cint}, Ptr{Cint}),
n , icn , licn , ip , lenr , iperm , numnz , iw )
end
#! format: on

"""
p = mc21(A::SparseMatrixCSC; sym::Bool=false)
Expand Down
2 changes: 2 additions & 0 deletions test/test_mc21.jl
Original file line number Diff line number Diff line change
@@ -1,8 +1,10 @@
@testset "mc21" begin
#! format: off
A = [1 0 0 4;
0 0 7 8;
9 0 0 12;
0 14 0 16]
#! format: on
Aᴴ = sparse(A')
iperm = mc21(Aᴴ)
@test iperm == Cint[1; 4; 2; 3]
Expand Down

0 comments on commit 6e837fa

Please sign in to comment.