forgotten rename for ifort workaround

2020-09-12 15:26:16 +02:00 · 2020-09-12 15:26:16 +02:00 · 307b1b20cc
parent faac9883a5
commit 307b1b20cc
1 changed files with 1 additions and 1 deletions
--- 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