Merge pull request #11 from Bruno02468/main

MYSTRAN Update 15.1.1

Author: Bruno02468

Source/LK1/L1A-BD/BD_EIGRL.f90

@@ -116,9 +116,9 @@ SUBROUTINE BD_EIGRL ( CARD, LARGE_FLD_INP, EIGFND )
 
       ! default N should be 1, not 0
       EIG_N2 = 1
-      IF (JCARD(6)(1:) /= ' ') THEN
+      IF (JCARD(5)(1:) /= ' ') THEN
          CALL I4FLD ( JCARD(5), JF(5), I4INP )            ! Read field 5: number of desired roots
-         IF (IERRFL(6) == 'N') THEN
+         IF (IERRFL(5) == 'N') THEN
             EIG_N2 = I4INP
          ENDIF
       ENDIF

Source/Modules/MYSTRAN_Version.f90

@@ -35,9 +35,9 @@ 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'
+      CHARACTER(  8*BYTE), PARAMETER :: MYSTRAN_VER_NUM  = '15.1.1'
       CHARACTER(  3*BYTE), PARAMETER :: MYSTRAN_VER_MONTH= 'Dec'
-      CHARACTER(  2*BYTE), PARAMETER :: MYSTRAN_VER_DAY  = '19'
+      CHARACTER(  2*BYTE), PARAMETER :: MYSTRAN_VER_DAY  = '20'
       CHARACTER(  4*BYTE), PARAMETER :: MYSTRAN_VER_YEAR = '2023'
       CHARACTER( 33*BYTE), PARAMETER :: MYSTRAN_AUTHOR   = 'MYSTRAN developed by Dr Bill Case'