From 385cda9224dba4e84d0e93f5aba967efed279811 Mon Sep 17 00:00:00 2001
From: Sharan Roongta <s.roongta@mpie.de>
Date: Tue, 29 Sep 2020 20:13:02 +0200
Subject: [PATCH] remove unnecessary variables

---
 src/YAML_parse.f90 | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/YAML_parse.f90 b/src/YAML_parse.f90
index bb990fc52..a63a07cf1 100644
--- a/src/YAML_parse.f90
+++ b/src/YAML_parse.f90
@@ -236,14 +236,12 @@ subroutine skip_empty_lines(blck,s_blck)
   character(len=*), intent(in)     :: blck
   integer,          intent(inout)  :: s_blck
 
-  integer :: e_blck
   logical :: empty
 
   empty = .true.
   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:e_blck))) == 0
-    if(empty) s_blck = e_blck + 2
+    empty = len_trim(IO_rmComment(blck(s_blck:s_blck + index(blck(s_blck:),IO_EOL) - 2))) == 0
+    if(empty) s_blck = s_blck + index(blck(s_blck:),IO_EOL)
   enddo