From 7a4f967332424c66dd3742e939ae0e92ffaec35d Mon Sep 17 00:00:00 2001
From: Kurt Glaesmann <kurt.glaesemann@pnnl.gov>
Date: Mon, 7 Dec 2009 20:26:17 +0000
Subject: [PATCH] Better handling of nodisk

---
 src/nwdft/grid/grid_file.F | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/nwdft/grid/grid_file.F b/src/nwdft/grid/grid_file.F
index 183ce03ccc..e76a345ba8 100644
--- a/src/nwdft/grid/grid_file.F
+++ b/src/nwdft/grid/grid_file.F
@@ -132,6 +132,7 @@ c     dont use disk for grid pts
 c     
                 largenode=.true.
                 grid_file_open=.true.
+                if(oreopen)grid_file_open=.false.
                 return
              endif
             max_file_rec = nint((0.95*1024.0d0*availkb) /