From e2cfb58950594a3ad6f9ee3f66f97ac3ce11711e Mon Sep 17 00:00:00 2001
From: HEBERT Alain <alain.hebert@polymtl.ca>
Date: Sun, 26 Oct 2025 06:09:46 -0400
Subject: Resolve "Correct SFR geometry issues in module SALT:"

---
 Dragon/src/MUSACG.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Dragon/src/MUSACG.f90')

diff --git a/Dragon/src/MUSACG.f90 b/Dragon/src/MUSACG.f90
index 3d560e4..95d6a3a 100644
--- a/Dragon/src/MUSACG.f90
+++ b/Dragon/src/MUSACG.f90
@@ -427,7 +427,7 @@ SUBROUTINE MUSACG(ITRACK,IFTRK,IPRINT,IMACRO,NBSLIN,RCUTOF,GG,LGINF,NBNODE_MACRO
     & GG_MAC%IDATA_BC2)
   ITBC=0
   IF(GG_MAC%NBBCDA>0)THEN
-    DO I=1,GG%NBBCDA
+    DO I=1,GG_MAC%NBBCDA
       ITBC=ITBC+1
       TYPE=GG_MAC%BCDATAREAD(I)%SALTYPE
       IF(TYPE.NE.0) CALL XABORT('MUSACG: TYPE=0 EXPECTED.')
-- 
cgit v1.2.3