IF to Block IF

9.3.1 IF to Block IF

Many logical IF-GOTO combinations can be translated into Fortran 77 block IF statements, as follows:

IF ( A.GT.B ) GOTO 10
C = D
GOTO 20
10     D = C
20     CONTINUE

Becomes:

IF (A .LE. B) THEN
C = D
ELSE
D = C
ENDIF