From ef4b7437f3d0805a304a73e35015ac0646ab9cf8 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Thu, 20 Feb 2020 14:01:26 +0100 Subject: [PATCH] Input arguments of a function to be declared first. --- src/IO.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/IO.f90 b/src/IO.f90 index 380d907b2..c31ebdfab 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -189,10 +189,10 @@ end function IO_isBlank !-------------------------------------------------------------------------------------------------- pure function IO_getTag(string,openChar,closeChar) - character(len=:), allocatable :: IO_getTag character(len=*), intent(in) :: string !< string to check for tag character, intent(in) :: openChar, & !< indicates beginning of tag closeChar !< indicates end of tag + character(len=:), allocatable :: IO_getTag character(len=*), parameter :: SEP=achar(32)//achar(9)//achar(10)//achar(13) ! whitespaces integer :: left,right @@ -222,8 +222,8 @@ end function IO_getTag !-------------------------------------------------------------------------------------------------- pure function IO_stringPos(string) - integer, dimension(:), allocatable :: IO_stringPos character(len=*), intent(in) :: string !< string in which chunk positions are searched for + integer, dimension(:), allocatable :: IO_stringPos character(len=*), parameter :: SEP=achar(44)//achar(32)//achar(9)//achar(10)//achar(13) ! comma and whitespaces integer :: left, right