From d4d419b713b34e9d31879d8d985c1f805d3ab77a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 30 Dec 2019 06:48:55 +0100 Subject: [PATCH] better readable --- src/mesh_grid.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mesh_grid.f90 b/src/mesh_grid.f90 index 8411ae773..3ce633dbe 100644 --- a/src/mesh_grid.f90 +++ b/src/mesh_grid.f90 @@ -277,13 +277,13 @@ subroutine readGeom(grid,geomSize,origin,microstructure,homogenization) compression: if (IO_lc(IO_stringValue(line,chunkPos,2)) == 'of') then c = IO_intValue(line,chunkPos,1) microstructure(e:e+c-1) = [(IO_intValue(line,chunkPos,3),i = 1,IO_intValue(line,chunkPos,1))] - else if (IO_lc(IO_stringValue(line,chunkPos,2)) == 'to') then compression + else if (IO_lc(IO_stringValue(line,chunkPos,2)) == 'to') then compression c = abs(IO_intValue(line,chunkPos,3) - IO_intValue(line,chunkPos,1)) + 1 o = merge(+1, -1, IO_intValue(line,chunkPos,3) > IO_intValue(line,chunkPos,1)) microstructure(e:e+c-1) = [(i, i = IO_intValue(line,chunkPos,1),IO_intValue(line,chunkPos,3),o)] else compression c = chunkPos(1) - microstructure(e:e+c-1) = [(IO_intValue(line,chunkPos,i+1), i=0, c-1)] + microstructure(e:e+c-1) = [(IO_intValue(line,chunkPos,i+1), i=0, c-1)] endif compression endif noCompression