From 949bc39173552ae035d26009a9904d725a1959a6 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 28 Feb 2023 07:34:11 +0100 Subject: [PATCH] polishing --- src/IO.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/IO.f90 b/src/IO.f90 index 386e93581..e049f3619 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -166,8 +166,8 @@ end function IO_isBlank function IO_insertEOL(string,separator,length) character(len=*), intent(in) :: string !< string to split - character, optional, intent(in) :: separator !< possible splitting positions - integer, optional, intent(in) :: length !< (soft) line limit + character, optional, intent(in) :: separator !< line breaks are possible after this character, defaults to ',' + integer, optional, intent(in) :: length !< (soft) line limit, defaults to 80 character(len=:), allocatable :: IO_insertEOL integer, dimension(:), allocatable :: pos_sep, pos_split @@ -190,10 +190,10 @@ function IO_insertEOL(string,separator,length) end do pos_sep = [pos_sep,len(string)] - pos_split = [integer::] + pos_split = emptyIntArray s = 1 e = 2 - IO_insertEOL= '' + IO_insertEOL = '' do while (e < size(pos_sep)) if (pos_sep(e+1) - pos_sep(s) >= misc_optional(length,80)) then IO_insertEOL = IO_insertEOL//string(pos_sep(s)+1:pos_sep(e))//IO_EOL