From 7d4569c2825ef1adbee9b22c54f2c61e9b3ac7ee Mon Sep 17 00:00:00 2001
From: victorkemp <victorkemp@gmail.com>
Date: Wed, 8 Jul 2026 14:19:23 +1200
Subject: [PATCH] enabled S for CELAS2 and set to 0 for CELAS4 to match MSC

---
 Source/EMG/EMG3/ELAS1.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Source/EMG/EMG3/ELAS1.f90 b/Source/EMG/EMG3/ELAS1.f90
index a9c92aa5..f2a3401a 100644
--- a/Source/EMG/EMG3/ELAS1.f90
+++ b/Source/EMG/EMG3/ELAS1.f90
@@ -55,10 +55,10 @@ SUBROUTINE ELAS1 ( OPT, WRITE_WARN )
 ! Set element property and material constants
 
       K        = EPROP(1)
-      IF ((TYPE(1:5) == 'ELAS1') .OR. (TYPE(1:5) == 'ELAS3')) THEN
+      IF ((TYPE(1:5) == 'ELAS1') .OR. (TYPE(1:5) == 'ELAS2') .OR. (TYPE(1:5) == 'ELAS3')) THEN
          FCONV(1) = EPROP(3)
       ELSE
-         FCONV(1) = 1.D0
+         FCONV(1) = 0.0
       ENDIF
       I1       = ELAS_COMP(1)
       CALL GET_GRID_NUM_COMPS ( BGRID(1), NUM_COMPS_GRID_1, SUBR_NAME )