Merge pull request #44 from Bruno02468/main

MYSTRAN Update 15.1.7
MYSTRANsolver · Mar 25, 2024 · 68024f3 · 68024f3
2 parents 15f51d9 + e0691c0
commit 68024f3
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 3 deletions.
diff --git a/Source/LK2/REDUCE_N_FS.f90 b/Source/LK2/REDUCE_N_FS.f90
@@ -88,6 +88,11 @@ SUBROUTINE REDUCE_N_FS
       REAL(DOUBLE)                    :: KFF_DIAG(NDOFF)       ! Diagonal terms from KFF
       REAL(DOUBLE)                    :: KFF_MAX_DIAG          ! Max diag term from KFF
 
+
+      ! ensure output units are set
+      OUNT(1) = ERR
+      OUNT(2) = F06
+
 ! **********************************************************************************************************************************
       IF (WRT_LOG >= SUBR_BEGEND) THEN
          CALL OURTIM

diff --git a/Source/LK5/LINK5.f90 b/Source/LK5/LINK5.f90
@@ -271,7 +271,12 @@ SUBROUTINE LINK5
                CALL OUTA_HERE ( 'Y' )
             ENDIF
 
-            CALL FILE_CLOSE ( L1H, LINK1H, L1HSTAT, 'Y' )
+            IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 1)) THEN
+               ! ensure L1H survives for the second round
+               CALL FILE_CLOSE ( L1H, LINK1H, 'KEEP', 'Y' )
+            ELSE
+               CALL FILE_CLOSE ( L1H, LINK1H, L1HSTAT, 'Y' )
+            END IF
 
          ENDIF
 

diff --git a/Source/Modules/MYSTRAN_Version.f90 b/Source/Modules/MYSTRAN_Version.f90
@@ -35,9 +35,9 @@ MODULE MYSTRAN_Version
       SAVE
 
       CHARACTER(256*BYTE)            :: MYSTRAN_COMMENT  = '*** Please report any problems to [email protected] ***'
-      CHARACTER(  8*BYTE), PARAMETER :: MYSTRAN_VER_NUM  = '15.1.6'
+      CHARACTER(  8*BYTE), PARAMETER :: MYSTRAN_VER_NUM  = '15.1.7'
       CHARACTER(  3*BYTE), PARAMETER :: MYSTRAN_VER_MONTH= 'Mar'
-      CHARACTER(  2*BYTE), PARAMETER :: MYSTRAN_VER_DAY  = '14'
+      CHARACTER(  2*BYTE), PARAMETER :: MYSTRAN_VER_DAY  = '24'
       CHARACTER(  4*BYTE), PARAMETER :: MYSTRAN_VER_YEAR = '2024'
       CHARACTER( 33*BYTE), PARAMETER :: MYSTRAN_AUTHOR   = 'MYSTRAN developed by Dr Bill Case'