The best solution is wanted.

[Ivan_S_]

How to make this code better in Fortran 2003?

[fortran]
IF A == 1 THEN
(STATEMENTS)
I
…
100 …
[/fortran]

[mecej4]

If the statement with number 100 occurs immediately after the IF...END IF block, all the statements similar to and including IF(B == 1) GOTO 100 are superfluous.

[Ivan_S_]

.NOT.(100 occurs immediately after the IF...END IF block)

[JVanB]

Check the logic in lines 03:04 and repost.