IF to DO Loop

9.3.2 IF to DO Loop

IF branches that can be translated into iterative DO loops are recognized as follows:

I = 1
11    IF ( I .GT. N ) GOTO 10
A(I) = B(I) + C(I)
I = I + 1
GOTO 11
10    CONTINUE

Becomes:

I = 1
II2 = 1
DO 3 II1 = II2,N,1
A(I) = B(I) + C(I)
              I = I + 1
3  CONTINUE