From 307b1b20cc5de287ebb23dcd815efebcdef55616 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Sat, 12 Sep 2020 15:26:16 +0200
Subject: [PATCH] forgotten rename for ifort workaround

---
 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 1fdb6c922..fb6e7f1aa 100644
--- a/src/grid/discretization_grid.f90
+++ b/src/grid/discretization_grid.f90
@@ -617,7 +617,7 @@ subroutine readVTR(grid,geomSize,origin,microstructure)
     else
       s = s + 1 + scan(line(s+1:),"'"//'"')
 #ifdef __INTEL_COMPILER
-      q = str(s-1:s-1)
+      q = line(s-1:s-1)
       e = s + index(line(s:),q) - 1
 #else
       e = s + index(line(s:),merge("'",'"',line(s-1:s-1)=="'")) - 1