Add a wrapper for omp_set_num_theads

JuliaSmoothOptimizers · Nov 21, 2023 · c4c4264 · c4c4264
1 parent 85b8c18
commit c4c4264
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/Fortran/openmp.jl b/src/Fortran/openmp.jl
@@ -0,0 +1,3 @@
+function omp_set_num_threads(num_threads)
+  @ccall libhsl.omp_set_num_threads_(num_threads::Ref{Cint})::Cvoid
+end
diff --git a/src/wrappers.jl b/src/wrappers.jl
@@ -1,5 +1,8 @@
 export LIBHSL_isfunctional
 
+# Wrapper for OpenMP
+include("Fortran/openmp.jl")
+
 # Wrappers generated by Clang.jl from C headers of HSL packages
 include("C/libhsl.jl")
 include("C/hsl_ma48.jl")