[GALAHAD.jl] Test SCU

ralna · Feb 14, 2024 · 52d8f7b · 52d8f7b
1 parent f7b90be
commit 52d8f7b
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1 deletion.
diff --git a/GALAHAD.jl/src/wrappers/scu.jl b/GALAHAD.jl/src/wrappers/scu.jl
@@ -12,6 +12,22 @@ struct scu_inform_type
   inertia::NTuple{3,Cint}
 end
 
+export scu_initialize_s
+
+function scu_initialize_s(data, control, status)
+  @ccall libgalahad_single.scu_initialize_s(data::Ptr{Ptr{Cvoid}},
+                                            control::Ptr{scu_control_type},
+                                            status::Ptr{Cint})::Cvoid
+end
+
+export scu_initialize
+
+function scu_initialize(data, control, status)
+  @ccall libgalahad_double.scu_initialize(data::Ptr{Ptr{Cvoid}},
+                                          control::Ptr{scu_control_type},
+                                          status::Ptr{Cint})::Cvoid
+end
+
 export scu_information_s
 
 function scu_information_s(data, inform, status)

diff --git a/GALAHAD.jl/test/runtests.jl b/GALAHAD.jl/test/runtests.jl
@@ -45,7 +45,7 @@ include("test_roots.jl")
 include("test_rpd.jl")
 include("test_rqs.jl")
 include("test_sbls.jl")
-## include("test_scu.jl")
+include("test_scu.jl")
 include("test_sec.jl")
 include("test_sha.jl")
 include("test_sils.jl")