Merge pull request #13 from Bruno02468/main

MYSTRAN Update 15.1.3
MYSTRANsolver · Dec 26, 2023 · 5ccea6b · 5ccea6b
2 parents 7f44251 + 0812604
commit 5ccea6b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/Source/EMG/EMG2/ELMOFF.f90 b/Source/EMG/EMG2/ELMOFF.f90
@@ -219,8 +219,9 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN )
 
 ! Set KE = KE1 for 6*ELGP by 6*ELGP terms
 
-! Compute the Ksita matrix for virtual stiffness
+! Compute the Ksita virtual stiffness
 
+         Ksita = 0.0
          ! restrict to QUAD4 and TRIA3 shell elements
          IF (TYPE(1:5) == "QUAD4" .OR. TYPE(1:5) == "TRIA3") THEN
             IF (NPSHEL > 0) THEN
@@ -272,8 +273,6 @@ SUBROUTINE ELMOFF ( OPT, WRITE_WARN )
                ENDIF
                Ksita = 10.0**(-6.0)*RMATL(NMATL, 2)*RPSHEL(NPSHEL, 1)*ABS(DETJ)*K6ROT
             ENDIF
-         ELSE
-            Ksita = 0.0
          ENDIF
 
 

diff --git a/Source/Modules/MYSTRAN_Version.f90 b/Source/Modules/MYSTRAN_Version.f90
@@ -35,7 +35,7 @@ MODULE MYSTRAN_Version
       SAVE
 
       CHARACTER(256*BYTE)            :: MYSTRAN_COMMENT  = '*** Please report any problems to mystransolver@gmail.com ***'
-      CHARACTER(  8*BYTE), PARAMETER :: MYSTRAN_VER_NUM  = '15.1.2'
+      CHARACTER(  8*BYTE), PARAMETER :: MYSTRAN_VER_NUM  = '15.1.3'
       CHARACTER(  3*BYTE), PARAMETER :: MYSTRAN_VER_MONTH= 'Dec'
       CHARACTER(  2*BYTE), PARAMETER :: MYSTRAN_VER_DAY  = '20'
       CHARACTER(  4*BYTE), PARAMETER :: MYSTRAN_VER_YEAR = '2023'