From c04d514fb4bcad80175b6268ca034afeb72124b7 Mon Sep 17 00:00:00 2001
From: Lizzzka007 <gashchuk2011@mail.ru>
Date: Tue, 17 Sep 2024 18:01:59 +0300
Subject: [PATCH] .
---
srcF/parser_subfunctions.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/srcF/parser_subfunctions.f90 b/srcF/parser_subfunctions.f90
index 39b06d9..3bd2bb3 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
--
GitLab