From 2a23b5eaa9cc070497086e4a94e77b97477f204a Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Wed, 7 Oct 2020 09:37:48 +0200
Subject: [PATCH] simplified

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

diff --git a/src/YAML_parse.f90 b/src/YAML_parse.f90
index 8197782b2..8e20e0c29 100644
--- a/src/YAML_parse.f90
+++ b/src/YAML_parse.f90
@@ -220,9 +220,9 @@ logical function isKey(line)
   if(len(IO_rmComment(line)) == 0) then
     isKey = .false.
   else
-    isKey = IO_rmComment(line(len(IO_rmComment(line)):len(IO_rmComment(line)))) == ':' &
-                                                                .and. .not. isFlow(line)
-    isKey = isKey .and. index(IO_rmComment(line),':') == index(IO_rmComment(line),':',back =.true.)
+    isKey = index(IO_rmComment(line),':',back=.false.) == len(IO_rmComment(line)) .and. &
+            index(IO_rmComment(line),':',back=.true.)  == len(IO_rmComment(line)) .and. &
+            .not. isFlow(line)
   endif
 
 end function isKey