223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

forgotten rename for ifort workaround

This commit is contained in:
Martin Diehl 2020-09-12 15:26:16 +02:00
parent faac9883a5
commit 307b1b20cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/grid/discretization_grid.f90
View File

@ -617,7 +617,7 @@ subroutine readVTR(grid,geomSize,origin,microstructure)
else else
s = s + 1 + scan(line(s+1:),"'"//'"') s = s + 1 + scan(line(s+1:),"'"//'"')
#ifdef __INTEL_COMPILER #ifdef __INTEL_COMPILER
q = str(s-1:s-1) q = line(s-1:s-1)
e = s + index(line(s:),q) - 1 e = s + index(line(s:),q) - 1
#else #else
e = s + index(line(s:),merge("'",'"',line(s-1:s-1)=="'")) - 1 e = s + index(line(s:),merge("'",'"',line(s-1:s-1)=="'")) - 1