From 89f25eb7d7932306294023ad11f0374eb2e46f2e Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 14 Sep 2020 14:06:09 +0200 Subject: [PATCH] use reasonable tolerances for checking regular grid spacing --- src/grid/discretization_grid.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/grid/discretization_grid.f90 b/src/grid/discretization_grid.f90 index 7c089cc88..89e0cce23 100644 --- a/src/grid/discretization_grid.f90 +++ b/src/grid/discretization_grid.f90 @@ -433,7 +433,7 @@ subroutine readVTR(grid,geomSize,origin,microstructure) coords = as_pReal(base64_str,headerType,compressed,dataType) delta = coords(2:) - coords(:size(coords)-1) - if(any(delta<0.0_pReal) .or. dNeq(maxval(delta),minval(delta))) & + if(any(delta<0.0_pReal) .or. dNeq(maxval(delta),minval(delta),1.0e-8_pReal*maxval(abs(coords)))) & call IO_error(error_ID = 844, ext_msg = 'grid spacing') grid(direction) = size(coords)-1