not sure what happened with bugs in nextc2

Author: SteveDoyle2

Build_Test_Cases/statics/bar_static_large.bdf

@@ -0,0 +1,41 @@
+ID BAR BUCKLING
+SOL 101
+CEND
+$TITLE = EULER BUCKLING OF A CANTILEVERED-FREE BEAM
+$SUBTI = 10 CBAR ELEMENTS ALONG X AXIS, END LOAD
+ECHO          = UNSORT
+DISP          = ALL
+$ELFORCE(BOTH) = ALL
+$GPFORCE       = ALL
+$MPCFORCE      = ALL
+$OLOAD         = ALL
+$SPCFORCE      = ALL
+$STRESS        = ALL
+$ELDATA(0,PRINT) = ALL
+$ELDATA(1,PRINT) = ALL
+$ELDATA(2,PRINT) = ALL
+$ELDATA(3,PRINT) = ALL
+$ELDATA(4,PRINT) = ALL
+$ELDATA(5,PRINT) = ALL
+SUBCASE 1
+  LOAD = 10
+BEGIN BULK
+$
+FORCE   10       2              -1.     1.      0.      0.
+$
+GRID     1               90.     0.      0.             123456
+GRID     2              100.     0.      0.
+$
+CBAR    10      1        1       2      0.      1.      0.
+$
+$1	2		3		4		5		6
+PBAR*   1               1               .500            .041666666666667*
+*       104.16666666667
+$
+MAT1    1       10.+6           .33     0.1     20.-6   0.
+$
+PARAM   SOLLIB   BANDED
+PARAM   POST     -1
+DEBUG   200     1
+$
+ENDDATA

Source/LK1/L1U/NEXTC2.f90

@@ -91,17 +91,17 @@ SUBROUTINE NEXTC2 ( PARENT, ICONTINUE, IERR, CHILD )
       ELSE IF ((NEWTAG(1:1) /= '*') .AND. (NEWTAG(1:1) /= '$')) THEN
          ! different card type (e.g., LOAD -> FORCE
          BACKSPACE(IN1)
-         CARD = TCARD
+         CHILD = CHILD1
          RETURN
       ELSE
          ! can't find the continuation marker.  FATAL :)
          BACKSPACE(IN1)
-         WRITE(F06,102) OLDTAG
-         WRITE(ERR,102) OLDTAG
-         WRITE(F06,103)
-         WRITE(ERR,103)
-         WRITE(F06,104) 'CHILD1:', CHILD1
-         WRITE(ERR,104) 'CHILD1:', CHILD1
+         !WRITE(F06,102) OLDTAG
+         !WRITE(ERR,102) OLDTAG
+         !WRITE(F06,103)
+         !WRITE(ERR,103)
+         !WRITE(F06,104) 'CHILD1:', CHILD1
+         !WRITE(ERR,104) 'CHILD1:', CHILD1
          FLUSH(F06)
          FLUSH(ERR)
          FATAL_ERR = FATAL_ERR + 1