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
