From 00a2e941c2509f98d41ef32a104b4d908ab22b14 Mon Sep 17 00:00:00 2001 From: victorkemp Date: Mon, 6 Jul 2026 00:23:42 +1200 Subject: [PATCH] Fixed membrane-bending coupling matrix for non-sym composites. --- Source/EMG/EMG4/TREL1.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/EMG/EMG4/TREL1.f90 b/Source/EMG/EMG4/TREL1.f90 index ec5ca94f..f895c846 100644 --- a/Source/EMG/EMG4/TREL1.f90 +++ b/Source/EMG/EMG4/TREL1.f90 @@ -222,7 +222,7 @@ SUBROUTINE TREL1 ( OPT, WRITE_WARN ) DO K=1,ELDOF DO L=1,ELDOF - KE(K,L) = KE(K,L) + (DUM2(K,L) + DUM2(L,K)) + KE(K,L) = KE(K,L) + AREA*(DUM2(K,L) + DUM2(L,K)) ENDDO ENDDO