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 )