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
DO i = 1, N
IF (arr1(i) .NE. arr2(i:i)) THEN
isEqual = .FALSE. ! Найдено неравенство
isEqual = .FALSE.
RETURN
END IF
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