From 0994d3187818f392c7684131e52c283ded8e062b Mon Sep 17 00:00:00 2001 From: victorkemp Date: Fri, 14 Aug 2026 11:46:06 +1200 Subject: [PATCH] fix from Claude --- Source/LK1/L1D/RBE3_PROC.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Source/LK1/L1D/RBE3_PROC.f90 b/Source/LK1/L1D/RBE3_PROC.f90 index 66e353fb..46b4f2cb 100644 --- a/Source/LK1/L1D/RBE3_PROC.f90 +++ b/Source/LK1/L1D/RBE3_PROC.f90 @@ -262,11 +262,12 @@ SUBROUTINE RBE3_PROC ( RTYPE, REC_NO, IERR ) EBAR_XY = ZERO DO J=1,IRBE3 - EBAR_YZ = EBAR_YZ + WTi6(J,3)*DYI(J)*DYI(J) + WTi6(J,2)*DZI(J)*DZI(J) EBAR_ZX = EBAR_ZX + WTi6(J,1)*DZI(J)*DZI(J) + WTi6(J,3)*DXI(J)*DXI(J) EBAR_XY = EBAR_XY + WTi6(J,2)*DXI(J)*DXI(J) + WTi6(J,1)*DYI(J)*DYI(J) - + EBAR_YZ = EBAR_YZ + WTi6(J,4) + EBAR_ZX = EBAR_ZX + WTi6(J,5) + EBAR_XY = EBAR_XY + WTi6(J,6) ENDDO ! Calc the S-terms