From ae9a48c124e8ccc00c0a7a27892e3ca4586d2052 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 24 Jun 2021 15:23:24 +0200 Subject: [PATCH] polishing --- src/grid/discretization_grid.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/grid/discretization_grid.f90 b/src/grid/discretization_grid.f90 index ff985eb6a..312c79aa7 100644 --- a/src/grid/discretization_grid.f90 +++ b/src/grid/discretization_grid.f90 @@ -258,7 +258,6 @@ subroutine readVTI(grid,geomSize,origin,material) character(len=:), allocatable :: temp real(pReal), dimension(:), allocatable :: delta - integer, dimension(:), allocatable :: stringPos integer :: i @@ -266,9 +265,9 @@ subroutine readVTI(grid,geomSize,origin,material) call IO_error(error_ID = 844, ext_msg = 'coordinate order') temp = getXMLValue(header,'WholeExtent') - if (any([(IO_floatValue(temp,IO_stringPos(temp),i),i=1,5,2)] /= 0)) & + if (any([(IO_intValue(temp,IO_stringPos(temp),i),i=1,5,2)] /= 0)) & call IO_error(error_ID = 844, ext_msg = 'coordinate start') - c = [(IO_floatValue(temp,IO_stringPos(temp),i),i=2,6,2)] + c = [(IO_intValue(temp,IO_stringPos(temp),i),i=2,6,2)] temp = getXMLValue(header,'Spacing') delta = [(IO_floatValue(temp,IO_stringPos(temp),i),i=1,3)]