From 03f00a2259751ed1f28a3e5d07c948a4a549ae7e Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 21 Nov 2011 10:41:34 -0500 Subject: [PATCH] Fixed derived type for StructuredMesh (had int4s instead of real8s for origin and width). --- src/mesh_header.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mesh_header.f90 b/src/mesh_header.f90 index 9ed686ec7e..3d6ba48d36 100644 --- a/src/mesh_header.f90 +++ b/src/mesh_header.f90 @@ -12,8 +12,8 @@ module mesh_header integer :: type integer :: n_dimension integer, allocatable :: dimension(:) - integer, allocatable :: origin(:) - integer, allocatable :: width(:) + real(8), allocatable :: origin(:) + real(8), allocatable :: width(:) end type StructuredMesh end module mesh_header