From b665a3d8a649215d5bb6fb964274b2cd448cd48a Mon Sep 17 00:00:00 2001
From: Edoardo Apra <edoardo.apra@gmail.com>
Date: Wed, 10 Jul 2013 21:20:31 +0000
Subject: [PATCH] stop when global memory eq 0

---
 src/input/memory_input.F | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/input/memory_input.F b/src/input/memory_input.F
index a756b609a0..0881fb3dda 100644
--- a/src/input/memory_input.F
+++ b/src/input/memory_input.F
@@ -166,6 +166,8 @@ c$$$     $     ' verify ', overify
 c
 c     Store data to the rtdb
 c
+      if(global_size.eq.0) call errquit(
+     E     'memory_input: no global memory defined ',0,MEM_ERR)
       if (ostore) then
          mem(1) = heap_size
          mem(2) = stack_size