Declare block bounds as real, not double precision values.

2011-06-07 20:59:16 -03:00 · 2011-06-07 20:59:16 -03:00 · f613d52ff3
commit f613d52ff3
parent f9f6984988
1 changed files with 1 additions and 1 deletions
--- a/src/blocks.F90
+++ b/src/blocks.F90
@ -118,7 +118,7 @@ module blocks

                                 ! the block coordinates in the physical units
                                 !
-    real(kind=8)                :: xmin, xmax, ymin, ymax, zmin, zmax
+    real                        :: xmin, xmax, ymin, ymax, zmin, zmax

  end type block_meta