Fix compatibility with Gmsh 4.12.2

Made simple change to get compatibility with Gmsh 4.12.2.

Author: rquey

VERSIONS

@@ -1,3 +1,7 @@
+New in 4.8.1-1 (24 Jan 2024):
+
+- general: fixed compatibility with Gmsh (version 4.12.2).
+
 New in 4.8.0 (09 Jan 2024):
 - module -T: fixed weibull distribution, made minor fixes.
 - module -M: changed default value of -order to 2, changed -nset default value
@@ -6,7 +10,7 @@ New in 4.8.0 (09 Jan 2024):
 - module -V: fixed -datanodecoofact.
 - module -S: changed simulation.config onto simulation.cfg.
 - documentation: made minor fix.
-- general: cleaned tests.
+- general: fixed compatibility with Gmsh (version 4.12.2).
 
 * Incompatible changes:  In -M, changed default value of -order to 2.
 

doc/conf.py

@@ -11,8 +11,8 @@
 import sphinx_rtd_theme
 
 project = u'Neper'
-version = u'4.8.0'
-release = u'4.8.0'
+version = u'4.8.1-1'
+release = u'4.8.1-1'
 author = u'Romain Quey'
 copyright = u'Romain Quey'
 language = 'en'

src/CMakeLists.txt

@@ -7,7 +7,7 @@ if(POLICY CMP0077)
   cmake_policy(SET CMP0077 NEW)
 endif()
 
-set(NEPER_VERSION \"4.8.0\")
+set(NEPER_VERSION \"4.8.1-1\")
 project(neper)
 
 if(CMAKE_CXX_COMPILER_VERSION VERSION_LESS 4.8.1)

src/neut/neut_mesh/neut_mesh_fscanf/neut_mesh_fscanf_msh/neut_mesh_fscanf_msh1.c

@@ -26,6 +26,9 @@ neut_mesh_fscanf_msh (FILE * file, struct NODES *pNodes, struct MESH *pMesh0D,
     if (ut_file_nextstring_test (file, "$MeshFormat"))
       neut_mesh_fscanf_msh_head (file, &mode, &domain, ptopology);
 
+    else if (ut_file_nextstring_test (file, "$MeshVersion"))
+      neut_mesh_fscanf_msh_version (file, &mode, &domain, ptopology);
+
     else if (ut_file_nextstring_test (file, "$Nodes"))
       neut_mesh_fscanf_msh_nodes (file, mode, pNodes, &node_nbs);
 

src/neut/neut_mesh/neut_mesh_fscanf/neut_mesh_fscanf_msh/neut_mesh_fscanf_msh2.c

@@ -513,3 +513,22 @@ neut_mesh_fscanf_msh_nodeparts (FILE *file, struct NODES *pNodes)
 
   return;
 }
+
+void
+neut_mesh_fscanf_msh_version (FILE *file)
+{
+  char *tmp = ut_alloc_1d_char (1000);
+
+  // header
+  ut_file_skip (file, 1);
+
+  if (fscanf (file, "%s", tmp) != 1)
+    abort ();
+
+  // footer
+  ut_file_skip (file, 1);
+
+  ut_free_1d_char (&tmp);
+
+  return;
+}