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

drop little-used variables

This commit is contained in:
Philip Eisenlohr 2023-02-28 15:09:23 -05:00
parent a40524da02
commit f3da19a8e2
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/IO.f90
View File

@ -173,14 +173,9 @@ function IO_wrapLines(string,separator,filler,length)
integer, dimension(:), allocatable :: pos_sep, pos_split integer, dimension(:), allocatable :: pos_sep, pos_split
integer :: i,s,e integer :: i,s,e
character :: sep
character(len=:), allocatable :: fill
sep = misc_optional(separator,',') i = index(string,misc_optional(separator,','))
fill = misc_optional(filler,'')
i = index(string,sep)
if (i == 0) then if (i == 0) then
IO_wrapLines = string IO_wrapLines = string
else else
@ -188,7 +183,7 @@ function IO_wrapLines(string,separator,filler,length)
s = i s = i
do while (i /= 0 .and. s < len(string)) do while (i /= 0 .and. s < len(string))
pos_sep = [pos_sep,s] pos_sep = [pos_sep,s]
i = index(string(s+1:),sep) i = index(string(s+1:),misc_optional(separator,','))
s = s + i s = s + i
end do end do
pos_sep = [pos_sep,len(string)] pos_sep = [pos_sep,len(string)]
@ -199,7 +194,7 @@ function IO_wrapLines(string,separator,filler,length)
IO_wrapLines = '' IO_wrapLines = ''
do while (e < size(pos_sep)) do while (e < size(pos_sep))
if (pos_sep(e+1) - pos_sep(s) >= misc_optional(length,80)) then if (pos_sep(e+1) - pos_sep(s) >= misc_optional(length,80)) then
IO_wrapLines = IO_wrapLines//adjustl(string(pos_sep(s)+1:pos_sep(e)))//IO_EOL//fill IO_wrapLines = IO_wrapLines//adjustl(string(pos_sep(s)+1:pos_sep(e)))//IO_EOL//misc_optional(filler,'')
s = e s = e
end if end if
e = e + 1 e = e + 1