Merge branch 'OCCT780'

[modules/smesh.git] / src / MEDWrapper / MED_Structures.cxx

diff --git a/src/MEDWrapper/MED_Structures.cxx b/src/MEDWrapper/MED_Structures.cxx
index bca82e0ff07ace02b7283fdc7742ee4ad55373da..7bc99345ff11ac92d7c91920ef7f43f42ec793c0 100644 (file)
--- a/src/MEDWrapper/MED_Structures.cxx
+++ b/src/MEDWrapper/MED_Structures.cxx
@@ -1,4 +1,4 @@
-// Copyright (C) 2007-2021  CEA/DEN, EDF R&D, OPEN CASCADE
+// Copyright (C) 2007-2024  CEA, EDF, OPEN CASCADE
 //
 // Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
@@ -141,7 +141,8 @@ namespace MED
   TElemInfo
   ::SetElemNum(TInt theId, TInt theVal)
   {
-    (*myElemNum)[theId] = theVal;
+    if ( IsElemNum() )
+      (*myElemNum)[theId] = theVal;
   }
 
   //---------------------------------------------------------------