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

unexpected and undocument functionality

This commit is contained in:
Martin Diehl 2024-02-04 06:53:14 +01:00 committed by achalhp
parent 0eb37fa4c0
commit 4f60ded80d
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/IO.f90
View File

@ -230,7 +230,6 @@ pure function IO_strPos(str)
do while (verify(str(right+1:),IO_WHITESPACE)>0) do while (verify(str(right+1:),IO_WHITESPACE)>0)
left = right + verify(str(right+1:),IO_WHITESPACE) left = right + verify(str(right+1:),IO_WHITESPACE)
right = left + scan(str(left:),IO_WHITESPACE) - 2 right = left + scan(str(left:),IO_WHITESPACE) - 2
if (str(left:left) == IO_COMMENT) exit ! ToDo: unexpected and undocumented
IO_strPos = [IO_strPos,left,right] IO_strPos = [IO_strPos,left,right]
IO_strPos(1) = IO_strPos(1)+1 IO_strPos(1) = IO_strPos(1)+1
endOfStr: if (right < left) then endOfStr: if (right < left) then