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

same information but shorter

This commit is contained in:
Martin Diehl 2020-06-01 21:36:36 +02:00
parent 72a0b1fae5
commit 2badf257fc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/IO.f90
View File

@ -68,7 +68,7 @@ function IO_read_ASCII(fileName) result(fileContent)
fileLength, & fileLength, &
fileUnit, & fileUnit, &
startPos, endPos, & startPos, endPos, &
myTotalLines, & !< # lines read from file N_lines, & !< # lines read from file
l, & l, &
myStat myStat
logical :: warned logical :: warned
@ -89,19 +89,19 @@ function IO_read_ASCII(fileName) result(fileContent)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! count lines to allocate string array ! count lines to allocate string array
myTotalLines = 1 N_lines = 1
do l=1, len(rawData) do l=1, len(rawData)
if (rawData(l:l) == IO_EOL) myTotalLines = myTotalLines+1 if (rawData(l:l) == IO_EOL) N_lines = N_lines+1
enddo enddo
allocate(fileContent(myTotalLines)) allocate(fileContent(N_lines))
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! split raw data at end of line ! split raw data at end of line
warned = .false. warned = .false.
startPos = 1 startPos = 1
l = 1 l = 1
do while (l <= myTotalLines) do while (l <= N_lines)
endPos = merge(startPos + scan(rawData(startPos:),IO_EOL) - 2,len(rawData),l /= myTotalLines) endPos = merge(startPos + scan(rawData(startPos:),IO_EOL) - 2,len(rawData),l /= N_lines)
if (endPos - startPos > pStringLen-1) then if (endPos - startPos > pStringLen-1) then
line = rawData(startPos:startPos+pStringLen-1) line = rawData(startPos:startPos+pStringLen-1)
if (.not. warned) then if (.not. warned) then