Open Watcom FORTRAN 77 Language Reference

FORTRAN Statements
2.41 EXECUTE Statement
EXECUTE name
where:
name
is the name of a REMOTE BLOCK located in the same program unit.
The EXECUTE statement allows a named block of code to be executed. The named block of code may be
defined anywhere in the same program unit and is delimited by the REMOTE BLOCK and END BLOCK
statements. Executing a REMOTE-block is similar in concept to calling a subroutine, with the advantage
that shared variables do not need to be placed in a COMMON block or passed in an argument list. When
execution of the REMOTE-block is complete (i.e., when the END BLOCK statement is executed), control
returns to the statement following the EXECUTE statement which invoked it.
Example:
EXECUTE INCR
PRINT *, ’FIRST’
EXECUTE INCR
PRINT *, ’SECOND’
.
.
.
REMOTE BLOCK INCR
I=I+1
PRINT *, ’I=’,I
END BLOCK
For more information, see the chapter entitled "Program Structure Control Statements" on page 193.
EXECUTE Statement 73