Skip to content
Snippets Groups Projects
Commit c04d514f authored by 数学の武士's avatar 数学の武士
Browse files

.

parent 44a916e7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
srcF/parser_subfunctions.f90
+ 1
− 1
View file @ c04d514f
...@@ -23,7 +23,7 @@ module PARSER_SUB_F ...@@ -23,7 +23,7 @@ module PARSER_SUB_F
DO i = 1, N DO i = 1, N
IF (arr1(i) .NE. arr2(i:i)) THEN IF (arr1(i) .NE. arr2(i:i)) THEN
isEqual = .FALSE. ! Найдено неравенство isEqual = .FALSE.
RETURN RETURN
END IF END IF
END DO END DO
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment