Merge pull request #14 from Bruno02468/main

MYSTRAN Update 15.1.4
MYSTRANsolver · Dec 28, 2023 · 8a7e218 · 8a7e218
2 parents 5ccea6b + e5b1e76
commit 8a7e218
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Source/LK9/L91/WRITE_ELEM_ENGR_FORCE.f90 b/Source/LK9/L91/WRITE_ELEM_ENGR_FORCE.f90
@@ -263,6 +263,8 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, ITABLE )
 
       ! Write element force output
       IF      (TYPE == 'BAR     ') THEN
+
+         CALL GET_MAX_MIN_ABS ( 1, 8 )
 
          ! (1) PRINT, (2) PLOT, (3) PUNCH, (4) NEU, (5) CSV
          IF (WRITE_OP2)  THEN  ! op2/plot
@@ -279,7 +281,7 @@ SUBROUTINE WRITE_ELEM_ENGR_FORCE ( JSUB, NUM, IHDR, ITABLE )
            DO I=1,NUM
               WRITE(F06,1102) FILL(1: 0), EID_OUT_ARRAY(I,1),(OGEL(I,J),J=1,8)
            ENDDO   
-           CALL GET_MAX_MIN_ABS ( 1, 8 )
+           !CALL GET_MAX_MIN_ABS ( 1, 8 )
            WRITE(F06,1103) FILL(1: 0), FILL(1: 0), (MAX_ANS(J),J=1,8), FILL(1: 0), (MIN_ANS(J),J=1,8), FILL(1: 0),                 &
                                                    (ABS_ANS(J),J=1,8), FILL(1: 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.3'
+      CHARACTER(  8*BYTE), PARAMETER :: MYSTRAN_VER_NUM  = '15.1.4'
       CHARACTER(  3*BYTE), PARAMETER :: MYSTRAN_VER_MONTH= 'Dec'
       CHARACTER(  2*BYTE), PARAMETER :: MYSTRAN_VER_DAY  = '20'
       CHARACTER(  4*BYTE), PARAMETER :: MYSTRAN_VER_YEAR = '2023'