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

remove unnecessary variables

This commit is contained in:
Sharan Roongta 2020-09-29 20:13:02 +02:00
parent 45b906906d
commit 385cda9224
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/YAML_parse.f90
View File

@ -236,14 +236,12 @@ subroutine skip_empty_lines(blck,s_blck)
character(len=*), intent(in) :: blck character(len=*), intent(in) :: blck
integer, intent(inout) :: s_blck integer, intent(inout) :: s_blck
integer :: e_blck
logical :: empty logical :: empty
empty = .true. empty = .true.
do while(empty .and. len_trim(blck(s_blck:)) /= 0) do while(empty .and. len_trim(blck(s_blck:)) /= 0)
e_blck = s_blck + index(blck(s_blck:),IO_EOL) - 2 empty = len_trim(IO_rmComment(blck(s_blck:s_blck + index(blck(s_blck:),IO_EOL) - 2))) == 0
empty = len_trim(IO_rmComment(blck(s_blck:e_blck))) == 0 if(empty) s_blck = s_blck + index(blck(s_blck:),IO_EOL)
if(empty) s_blck = e_blck + 2
enddo enddo