fixed memory bug when GPFORCE is requested on a buckling soln

Author: Bruno02468

Source/LK9/L92/GP_FORCE_BALANCE_PROC.f90

@@ -132,6 +132,16 @@ SUBROUTINE GP_FORCE_BALANCE_PROC ( JVEC, IHEADER )
       ENDIF
 
 ! **********************************************************************************************************************************
+
+      ! GPFORCE is unsupported for buckling decks
+      IF (SOL_NAME(1:8) == "BUCKLING") THEN
+         IF (WRT_LOG >= SUBR_BEGEND) THEN
+            CALL OURTIM
+            WRITE(F04,9002) SUBR_NAME,TSEC
+         ENDIF
+         RETURN
+      ENDIF
+
       ! Print some summary info for max abs value of GP force balance for each solution vector
       IS_GPFORCE_SUMMARY_INFO = (DEBUG(192) > 0)