Merge pull request #124 from Bruno02468/upstream-main

fix two memory bugs

Author: Bruno02468

Source/LK1/LINK1/LINK0.f90

@@ -132,6 +132,9 @@ SUBROUTINE LINK0
          WRT_BUG(I) = 0
       ENDDO
 
+      ! Initialize WRITE_ANS
+      WRITE_ANS = (PRTANS == 'Y')
+
       RBG_GSET_ALLOCATED = 'N'
 
       ! Set default values for SETLKT from values in module PARAMS

Source/LK9/LINK9/LINK9.f90

@@ -1286,7 +1286,6 @@ SUBROUTINE LINK9 ( LK9_PROC_NUM )
       CALL DEALLOCATE_MODEL_STUF ( 'PPNT, PDATA, PTYPE' )
       CALL DEALLOCATE_MODEL_STUF ( 'PLOAD4_3D_DATA' )
 
-      CALL DEALLOCATE_MODEL_STUF ( 'CORD, RCORD' )
       CALL DEALLOCATE_MODEL_STUF ( 'GROUT, ELOUT' )
 
       IF (SOL_NAME(1:12) /= 'GEN CB MODEL') THEN
@@ -1305,6 +1304,7 @@ SUBROUTINE LINK9 ( LK9_PROC_NUM )
          CALL DEALLOCATE_MODEL_STUF ( 'TPNT, TDATA' )
          CALL DEALLOCATE_MODEL_STUF ( 'GTEMP' )
          CALL DEALLOCATE_MODEL_STUF ( 'GRID_ELEM_CONN_ARRAY' )
+         CALL DEALLOCATE_MODEL_STUF ( 'CORD, RCORD' )
 !xx      CALL DEALLOCATE_MODEL_STUF ( 'GRID_ID' )
 !xx      CALL DEALLOCATE_MODEL_STUF ( 'GRID, RGRID' )
 !xx      CALL DEALLOCATE_MODEL_STUF ( 'ELEM PROPERTIES AND MATERIALS' )

Source/Modules/MYSTRAN_Version.f90

@@ -35,10 +35,10 @@ 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.2.1'
-      CHARACTER(  3*BYTE), PARAMETER :: MYSTRAN_VER_MONTH= 'Aug'
-      CHARACTER(  2*BYTE), PARAMETER :: MYSTRAN_VER_DAY  = '31'
-      CHARACTER(  4*BYTE), PARAMETER :: MYSTRAN_VER_YEAR = '2024'
+      CHARACTER(  8*BYTE), PARAMETER :: MYSTRAN_VER_NUM  = '15.3.0'
+      CHARACTER(  3*BYTE), PARAMETER :: MYSTRAN_VER_MONTH= 'May'
+      CHARACTER(  2*BYTE), PARAMETER :: MYSTRAN_VER_DAY  = '05'
+      CHARACTER(  4*BYTE), PARAMETER :: MYSTRAN_VER_YEAR = '2025'
       CHARACTER( 33*BYTE), PARAMETER :: MYSTRAN_AUTHOR   = 'MYSTRAN developed by Dr Bill Case'
 
       END MODULE MYSTRAN_Version