diff --git a/srcF/parser_subfunctions.f90 b/srcF/parser_subfunctions.f90 index 39b06d9bae9c90184aa473a74aea3ea3c6e4279a..3bd2bb3f1db0f4d9f9edb41924a4935c6daf2a87 100644 --- a/srcF/parser_subfunctions.f90 +++ b/srcF/parser_subfunctions.f90 @@ -23,7 +23,7 @@ module PARSER_SUB_F DO i = 1, N IF (arr1(i) .NE. arr2(i:i)) THEN - isEqual = .FALSE. ! Найдено неравенство + isEqual = .FALSE. RETURN END IF END DO