Merge branch 'large_field_fix' of github.com:MYSTRANsolver/MYSTRAN into upstream-main

Author: Bruno02468

Source/LK1/L1A/LOADB.f90

@@ -585,10 +585,11 @@ SUBROUTINE LOADB
          ELSE IF (CARD(1:7) == 'ENDDATA' )  THEN 
             EXIT
          ELSE IF ((CARD(1:1) == ' ') .OR. (CARD(1:1) == '+') .OR. (CARD(1:1) == '*'))  THEN 
-            WRITE(ERR,*) 'FAILED WHEN FINDING A CONTINUATION'
-            WRITE(F06,*) 'FAILED WHEN FINDING A CONTINUATION'
-            WRITE(ERR,'(A)') CARD2
-            WRITE(F06,'(A)') CARD2
+            !WRITE(ERR,*) 'FAILED WHEN FINDING A CONTINUATION'
+            !WRITE(F06,*) 'FAILED WHEN FINDING A CONTINUATION'
+            ! only defined when it's a large field continuation
+            !WRITE(ERR,'(A)') CARD2
+            !WRITE(F06,'(A)') CARD2
             FATAL_ERR = FATAL_ERR + 1
 
          ELSE                                              ! CARD not processed by MYSTRAN