From 3f221ab5edcefcdbe8299fb9882ac89c4d22ea38 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Mon, 25 May 2020 12:54:43 +0200 Subject: [PATCH] polishing --- src/YAML_parse.f90 | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/YAML_parse.f90 b/src/YAML_parse.f90 index 429eb6e62..75a59f342 100644 --- a/src/YAML_parse.f90 +++ b/src/YAML_parse.f90 @@ -11,13 +11,16 @@ module YAML_parse contains - +!-------------------------------------------------------------------------------------------------- +!> @brief do sanity checks +!-------------------------------------------------------------------------------------------------- subroutine YAML_init call selfTest end subroutine YAML_init + !-------------------------------------------------------------------------------------------------- !> @brief reads the flow style string and stores it in the form of dictionaries, lists and scalars. !> @details A node type pointer can either point to a dictionary, list or scalar type entities. @@ -188,7 +191,8 @@ 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 = IO_rmComment(line(len(IO_rmComment(line)):len(IO_rmComment(line)))) == ':' & + .and. .not. isFlow(line) endif end function isKey @@ -535,6 +539,7 @@ function to_flow(blck) end function to_flow + !-------------------------------------------------------------------------------------------------- subroutine selfTest() @@ -567,7 +572,6 @@ subroutine selfTest() if( isScalar('- a:')) call IO_error(0,ext_msg='isScalar') if(.not. isScalar(' a')) call IO_error(0,ext_msg='isScalar') - !ToDo :some more advanced tests? basic_list: block character(len=*), parameter :: block_list = & " - Casablanca"//IO_EOL//&