From c196809b9bc9ad84e15f39deae773ef028cd9364 Mon Sep 17 00:00:00 2001 From: victorkemp Date: Fri, 14 Aug 2026 09:02:27 +1200 Subject: [PATCH] fix according to Claude --- Source/LK1/L1D/RBE3_PROC.f90 | 78 ++++++++++++++++++++++-------------- 1 file changed, 48 insertions(+), 30 deletions(-) diff --git a/Source/LK1/L1D/RBE3_PROC.f90 b/Source/LK1/L1D/RBE3_PROC.f90 index 416966db..c81d0d5d 100644 --- a/Source/LK1/L1D/RBE3_PROC.f90 +++ b/Source/LK1/L1D/RBE3_PROC.f90 @@ -369,12 +369,14 @@ SUBROUTINE RBE3_PROC ( RTYPE, REC_NO, IERR ) WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(I), ONE ITERM_RMG = ITERM_RMG + 1 ENDIF - - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(5), -SXY - ITERM_RMG = ITERM_RMG + 1 - - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(6), -SZX - ITERM_RMG = ITERM_RMG + 1 + IF (RMG_COL_NUM_D(5) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(5), -SXY + ITERM_RMG = ITERM_RMG + 1 + ENDIF + IF (RMG_COL_NUM_D(6) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(6), -SZX + ITERM_RMG = ITERM_RMG + 1 + ENDIF ENDIF IF (I == 5) THEN @@ -385,12 +387,14 @@ SUBROUTINE RBE3_PROC ( RTYPE, REC_NO, IERR ) WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(I), ONE ITERM_RMG = ITERM_RMG + 1 ENDIF - - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(4), -SXY - ITERM_RMG = ITERM_RMG + 1 - - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(6), -SYZ - ITERM_RMG = ITERM_RMG + 1 + IF (RMG_COL_NUM_D(4) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(4), -SXY + ITERM_RMG = ITERM_RMG + 1 + ENDIF + IF (RMG_COL_NUM_D(6) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(6), -SYZ + ITERM_RMG = ITERM_RMG + 1 + ENDIF ENDIF IF (I == 6) THEN @@ -401,33 +405,47 @@ SUBROUTINE RBE3_PROC ( RTYPE, REC_NO, IERR ) WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(I), ONE ITERM_RMG = ITERM_RMG + 1 ENDIF - - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(4), -SZX - ITERM_RMG = ITERM_RMG + 1 - - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(5), -SYZ - ITERM_RMG = ITERM_RMG + 1 + IF (RMG_COL_NUM_D(4) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(4), -SZX + ITERM_RMG = ITERM_RMG + 1 + ENDIF + IF (RMG_COL_NUM_D(5) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(5), -SYZ + ITERM_RMG = ITERM_RMG + 1 + ENDIF ENDIF IF (I == 4) THEN - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(2), -SY_DZ_BAR - ITERM_RMG = ITERM_RMG + 1 - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(3), +SZ_DY_BAR - ITERM_RMG = ITERM_RMG + 1 + IF (RMG_COL_NUM_D(2) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(2), -SY_DZ_BAR + ITERM_RMG = ITERM_RMG + 1 + ENDIF + IF (RMG_COL_NUM_D(3) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(3), +SZ_DY_BAR + ITERM_RMG = ITERM_RMG + 1 + ENDIF ENDIF IF (I == 5) THEN - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(1), +SX_DZ_BAR - ITERM_RMG = ITERM_RMG + 1 - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(3), -SZ_DX_BAR - ITERM_RMG = ITERM_RMG + 1 + IF (RMG_COL_NUM_D(1) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(1), +SX_DZ_BAR + ITERM_RMG = ITERM_RMG + 1 + ENDIF + IF (RMG_COL_NUM_D(3) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(3), -SZ_DX_BAR + ITERM_RMG = ITERM_RMG + 1 + ENDIF ENDIF IF (I == 6) THEN - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(1), -SX_DY_BAR - ITERM_RMG = ITERM_RMG + 1 - WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(2), +SY_DX_BAR - ITERM_RMG = ITERM_RMG + 1 + IF (RMG_COL_NUM_D(1) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(1), -SX_DY_BAR + ITERM_RMG = ITERM_RMG + 1 + ENDIF + IF (RMG_COL_NUM_D(2) > 0) THEN + WRITE(L1J) RMG_ROW_NUM, RMG_COL_NUM_D(2), +SY_DX_BAR + ITERM_RMG = ITERM_RMG + 1 + ENDIF ENDIF ELSE