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

avoid invalid error access

This commit is contained in:
Martin Diehl 2020-01-29 23:42:50 +01:00
parent c2cdcb17f7
commit d54b8714e1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/IO.f90
View File

@ -407,7 +407,11 @@ pure function IO_lc(string)
do i=1,len(string) do i=1,len(string)
n = index(UPPER,string(i:i)) n = index(UPPER,string(i:i))
IO_lc(i:i) = merge(LOWER(n:n),string(i:i),n/=0) if(n/=0) then
IO_lc(i:i) = LOWER(n:n)
else
IO_lc(i:i) = string(i:i)
endif
enddo enddo
end function IO_lc end function IO_lc