Release 2.5.0

Author: amontoison

README.md

@@ -66,7 +66,7 @@ It requires the version `v2.5.0` of CUTEst.
 With this approach, there is no need to generate a new combined library for each decoded SIF problem.
 Instead, you dynamically load the decoded problem library at runtime.
 
-The only user-facing addition is the subroutines `load_routines_` and `unload_routines_`,
+The only user-facing addition is the subroutines `cutest_load_routines_` and `cutest_unload_routines_`,
 which allows you to specify the path to the SIF problem library.
 
 At runtime, the CUTEst shared library will forward the symbols `elfun_`, `group_`, and `range_` to the specified library.

include/cutest.h

@@ -32,7 +32,7 @@
  * give a version number
  */
 
-#define CUTEST_VERSION 2.4.0
+#define CUTEST_VERSION 2.5.0
 
 /*
  * Define name of main() function on a

include/cutest_c.h

@@ -30,7 +30,7 @@
  * give a version number
  */
 
-#define CUTEST_VERSION 2.4.0
+#define CUTEST_VERSION 2.5.0
 
 /*
  * Define name of main() function on a

meson.build

@@ -1,7 +1,7 @@
 project(
   'CUTEst',
   'fortran', 'c',
-  version: '2.4.0',
+  version: '2.5.0',
   meson_version: '>= 0.62.0',
   default_options: [
     'buildtype=release',

src/tools/cutest_trampoline.f90

@@ -11,23 +11,23 @@
 #include "cutest_modules.h"
 
 #ifdef REAL_32
-#define LOAD_ROUTINES_NAME "load_routines_s_"
-#define UNLOAD_ROUTINES_NAME "unload_routines_s_"
-#define SHOW_LOADED_LIBRARY_NAME "show_loaded_library_s_"
+#define LOAD_ROUTINES_NAME "cutest_load_routines_s_"
+#define UNLOAD_ROUTINES_NAME "cutest_unload_routines_s_"
+#define SHOW_LOADED_LIBRARY_NAME "cutest_show_loaded_library_s_"
 #define ELFUN_BIND_NAME "elfun_s_"
 #define GROUP_BIND_NAME "group_s_"
 #define RANGE_BIND_NAME "range_s_"
 #elif REAL_128
-#define LOAD_ROUTINES_NAME "load_routines_q_"
-#define UNLOAD_ROUTINES_NAME "unload_routines_q_"
-#define SHOW_LOADED_LIBRARY_NAME "show_loaded_library_q_"
+#define LOAD_ROUTINES_NAME "cutest_load_routines_q_"
+#define UNLOAD_ROUTINES_NAME "cutest_unload_routines_q_"
+#define SHOW_LOADED_LIBRARY_NAME "cutest_show_loaded_library_q_"
 #define ELFUN_BIND_NAME "elfun_q_"
 #define GROUP_BIND_NAME "group_q_"
 #define RANGE_BIND_NAME "range_q_"
 #else
-#define LOAD_ROUTINES_NAME "load_routines_"
-#define UNLOAD_ROUTINES_NAME "unload_routines_"
-#define SHOW_LOADED_LIBRARY_NAME "show_loaded_library_"
+#define LOAD_ROUTINES_NAME "cutest_load_routines_"
+#define UNLOAD_ROUTINES_NAME "cutest_unload_routines_"
+#define SHOW_LOADED_LIBRARY_NAME "cutest_show_loaded_library_"
 #define ELFUN_BIND_NAME "elfun_"
 #define GROUP_BIND_NAME "group_"
 #define RANGE_BIND_NAME "range_"
@@ -95,7 +95,7 @@ end subroutine cutest_dlclose
 
 contains
   ! Subroutine to load the routines from the given shared library
-  subroutine load_routines(libname) bind(C, name=LOAD_ROUTINES_NAME)
+  subroutine cutest_load_routines(libname) bind(C, name=LOAD_ROUTINES_NAME)
     character(kind=c_char), dimension(*), intent(in) :: libname
 
     ! Load the dynamic library
@@ -115,10 +115,10 @@ subroutine load_routines(libname) bind(C, name=LOAD_ROUTINES_NAME)
     call c_f_procpointer(ptr_elfun, fun_elfun)
     call c_f_procpointer(ptr_group, fun_group)
     call c_f_procpointer(ptr_range, fun_range)
-  end subroutine load_routines
+  end subroutine cutest_load_routines
 
   ! Unload the routines and reset internal state
-  subroutine unload_routines() bind(C, name=UNLOAD_ROUTINES_NAME)
+  subroutine cutest_unload_routines() bind(C, name=UNLOAD_ROUTINES_NAME)
     if (c_associated(lib_handle)) then
       call cutest_dlclose(lib_handle)
       lib_handle = c_null_ptr
@@ -131,16 +131,16 @@ subroutine unload_routines() bind(C, name=UNLOAD_ROUTINES_NAME)
     nullify(fun_elfun)
     nullify(fun_group)
     nullify(fun_range)
-  end subroutine unload_routines
+  end subroutine cutest_unload_routines
 
   ! Show the currently loaded library
-  ! subroutine show_loaded_library() bind(C, name=SHOW_LOADED_LIBRARY_NAME)
+  ! subroutine cutest_show_loaded_library() bind(C, name=SHOW_LOADED_LIBRARY_NAME)
   !   if (allocated(library_path)) then
   !     print *, "Currently loaded library: ", library_path
   !   else
   !     print *, "No library loaded."
   !   end if
-  ! end subroutine show_loaded_library
+  ! end subroutine cutest_show_loaded_library
 
   ! Redirection subroutine for calling the 'elfun' function from the dynamic library
   subroutine elfun() bind(C, name=ELFUN_BIND_NAME)

version

@@ -1 +1 @@
-* CUTEst version 2.4.0 (30/Oct/2024 07:30 GMT)
+* CUTEst version 2.5.0 (16/Apr/2025 07:30 GMT)