fix large LSUB causing 105 decks to run slow

Author: Bruno02468

Source/LK1/L1A-BD/BD_EIGRL.f90

@@ -208,7 +208,9 @@ SUBROUTINE BD_EIGRL ( CARD, LARGE_FLD_INP, EIGFND )
             ! INITIAL_NEV*(2**MAX_DOUBLINGS), both being 10 and unlikely to be
             ! changed unless someone *really* wants more than 10k modes AND
             ! doesn't want to specify nmodes manually.
-            LSUB = 10240
+            IF (SOL_NAME /= 'BUCKLING') THEN
+               LSUB = 10240
+            END IF
          END IF
 
          CALL WRITE_L1M