From 01887e0b210adccd23ad216476b0a782a6574787 Mon Sep 17 00:00:00 2001
From: Alain Hebert <alainhebert@Alains-MacBook-Pro.local>
Date: Fri, 19 Dec 2025 17:13:40 -0500
Subject: #8: Correct a bug in the multicell surfacic numerotation

---
 Dragon/src/MUSACG.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Dragon/src/MUSACG.f90 b/Dragon/src/MUSACG.f90
index 95d6a3a..5a10a94 100644
--- a/Dragon/src/MUSACG.f90
+++ b/Dragon/src/MUSACG.f90
@@ -100,6 +100,9 @@ SUBROUTINE MUSACG(ITRACK,IFTRK,IPRINT,IMACRO,NBSLIN,RCUTOF,GG,LGINF,NBNODE_MACRO
         I=I+1
         ELEM_LIST(ELEM)=I
         NODE_LIST(I2)=1
+        IF(I3.GT.0) THEN
+          IF(GG%NUM_MACRO(GG%NUM_MERGE(I3)) == IMACRO) NODE_LIST(I3)=1
+        ENDIF
       ENDIF
     ENDIF
     IF((I3.GT.0).AND.(ELEM_LIST(ELEM) == 0)) THEN
@@ -110,6 +113,7 @@ SUBROUTINE MUSACG(ITRACK,IFTRK,IPRINT,IMACRO,NBSLIN,RCUTOF,GG,LGINF,NBNODE_MACRO
       ENDIF
     ENDIF
   ENDDO ! ELEM
+  NBNODE_MACRO = 0
   DO J=1,GG%NB_NODE
     IF(NODE_LIST(J) /= -9999) THEN
       NBNODE_MACRO = NBNODE_MACRO+1
-- 
cgit v1.2.3