new function match_skipping_spaces fixed

2018-12-15 11:08:29 +01:00 · 2018-12-15 11:08:29 +01:00 · b8f3380db4
parent daa4b32a45
commit b8f3380db4
1 changed files with 2 additions and 1 deletions
--- a/Modules/matches.f90
+++ b/Modules/matches.f90
@ -98,6 +98,7 @@ PURE FUNCTION  match_skipping_spaces ( string1, string2) RESULT(match)
      end if 
      if (.not. match) exit 
   end do 
+   match = match .and. ( i1 .gt. len(trim(aux1)) .and. i2 .gt. len(trim(aux2)))
 END FUNCTION match_skipping_spaces

 !-----------------------------------------------------------------------