Merge pull request #12 from Bruno02468/main

MYSTRAN Update 15.1.2

Author: Bruno02468

Source/LK1/L1A-BD/BD_PARAM.f90

@@ -3165,15 +3165,15 @@ SUBROUTINE BD_PARAM ( CARD )
          IF (IERRFL(3) == 'N') THEN
             IF (R8PARM >= 0) THEN
                K6ROT = R8PARM
-               IF (K6ROT == 0) THEN
+               IF (K6ROT > 0) THEN
                   WARN_ERR = WARN_ERR + 1
                   WRITE(ERR,101) CARD
-                  WRITE(ERR,106)
+                  WRITE(ERR,1198)
                   IF (SUPWARN == 'N') THEN
                      IF (ECHO == 'NONE  ') THEN
                         WRITE(F06,101) CARD
                      ENDIF
-                     WRITE(F06,106)
+                     WRITE(F06,1198)
                   ENDIF
                ENDIF
             ELSE
@@ -3262,6 +3262,8 @@ SUBROUTINE BD_PARAM ( CARD )
              ' *WARNING    : PARAMETER ',A15,' SHOULD NOT BE CHANGED FROM "SYM" TO "NONSYM". WRONG ANSWERS WILL PROBABLY RESULT',/,&
              ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>',&
              '>>>>>>>>>>>>>>>>>')
+
+ 1198 FORMAT("*WARNING    : THE K6ROT PARAMETER IS AN EXPERIMENTAL FEATURE. WHEN IN DOUBT, SET IT TO ZERO.",/)
 ! ##################################################################################################################################
 
       CONTAINS

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.1'
+      CHARACTER(  8*BYTE), PARAMETER :: MYSTRAN_VER_NUM  = '15.1.2'
       CHARACTER(  3*BYTE), PARAMETER :: MYSTRAN_VER_MONTH= 'Dec'
       CHARACTER(  2*BYTE), PARAMETER :: MYSTRAN_VER_DAY  = '20'
       CHARACTER(  4*BYTE), PARAMETER :: MYSTRAN_VER_YEAR = '2023'

Source/Modules/PARAMS.f90

@@ -474,7 +474,7 @@ MODULE PARAMS
 ! ----------------------------------------------------------------------------------------------------------------------------------
       REAL(DOUBLE)             :: WTMASS         =   ONE     ! Value from PARAM WTMASS Bulk Data card
 ! ----------------------------------------------------------------------------------------------------------------------------------
-      REAL(DOUBLE)             :: K6ROT          = 100.0     ! Virtual rotational stiffness
+      REAL(DOUBLE)             :: K6ROT          =   0.0     ! Virtual rotational stiffness
 ! ----------------------------------------------------------------------------------------------------------------------------------
       CHARACTER(  1*BYTE)      :: NOCOUNTS        =    'N'   ! 'Y' supresses the "counter" non-advance writes to stdout.
                                                              ! Good for debugging or when writing to a log file.