From 21ff587e1720c53eb7bf441860e05a29f3f7ed8d Mon Sep 17 00:00:00 2001
From: Sharan Roongta <s.roongta@mpie.de>
Date: Fri, 25 Sep 2020 04:52:03 +0200
Subject: [PATCH] better logic

---
 src/YAML_parse.f90 | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/src/YAML_parse.f90 b/src/YAML_parse.f90
index ade104cb2..218d4688b 100644
--- a/src/YAML_parse.f90
+++ b/src/YAML_parse.f90
@@ -238,18 +238,14 @@ subroutine skip_empty_lines(blck,s_blck)
 
   character(len=:), allocatable    :: line
   integer :: e_blck
-  logical :: not_empty
+  logical :: empty
 
-  not_empty = .false.
-  do while(.not. not_empty)
+  empty = .true.
+  do while(empty)
     e_blck = s_blck + index(blck(s_blck:),IO_EOL) - 2
     line = IO_rmComment(blck(s_blck:e_blck))
-    if(len_trim(line) == 0) then
-      s_blck = e_blck + 2
-      not_empty = .false.
-    else
-      not_empty = .true.
-    endif
+    empty = len_trim(line) == 0
+    if(empty) s_blck = e_blck + 2
   enddo