diff options
| -rw-r--r-- | Dragon/src/MUSACG.f90 | 4 |
1 files changed, 4 insertions, 0 deletions
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 |