From 3e586c94d336749136296688eec3af21686e0319 Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@gkowal.info>
Date: Tue, 17 May 2011 20:26:33 -0300
Subject: [PATCH] Fix finding of dxmin in find_new_timestep().

---
 src/evolution.F90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/evolution.F90 b/src/evolution.F90
index bcd9922..88e1bfb 100644
--- a/src/evolution.F90
+++ b/src/evolution.F90
@@ -249,17 +249,17 @@ module evolution
 
       end do ! meta blocks
 
+    end if ! maxlev > 1
+
 ! find the smallest spacial step
 !
 #if NDIMS == 2
-      dxmin = min(adx(lev), ady(lev))
+    dxmin = min(adx(lev), ady(lev))
 #endif /* NDIMS == 2 */
 #if NDIMS == 3
-      dxmin = min(adx(lev), ady(lev), adz(lev))
+    dxmin = min(adx(lev), ady(lev), adz(lev))
 #endif /* NDIMS == 3 */
 
-    end if ! maxlev > 1
-
 ! iterate over all data blocks in order to find the maximum speed among them
 !
     pdata => list_data