comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 14:15:30 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

stop when global memory eq 0

Browse source
This commit is contained in:
Edoardo Apra 2013-07-10 21:20:31 +00:00
parent 1be82a2ab4
commit b665a3d8a6
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/input/memory_input.F
View file

@ -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