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

forgot line continuation

This commit is contained in:
Martin Diehl 2018-07-10 10:39:24 +02:00
parent 5fbe43053f
commit f493a5419b
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/spectral_interface.f90
View File

@ -416,7 +416,7 @@ pure function IIO_stringValue(string,chunkPos,myChunk)
character(len=*), intent(in) :: string !< raw input with known start and end of each chunk character(len=*), intent(in) :: string !< raw input with known start and end of each chunk
IIO_stringValue = merge('',string(chunkPos(myChunk*2):chunkPos(myChunk*2+1)) IIO_stringValue = merge('',string(chunkPos(myChunk*2):chunkPos(myChunk*2+1)),&
(myChunk > chunkPos(1) .or. myChunk < 1_pInt)) (myChunk > chunkPos(1) .or. myChunk < 1_pInt))
end function IIO_stringValue end function IIO_stringValue