Open Watcom FORTRAN 77 Language Reference

FORTRAN Statements
2.72 REMOTE BLOCK Statement
REMOTE BLOCK name
where:
name
is a valid FORTRAN symbolic name.
The REMOTE BLOCK statement is used to define a block of statements which may be executed by an
EXECUTE statement. A REMOTE-block must be defined in the program unit in which it is used and is
terminated by an END BLOCK statement. A REMOTE-block is similar in concept to 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, control returns to the statement following the
EXECUTE statement which invoked it.
This feature is helpful in avoiding duplication of code for a common sequence of statements required in a
number of places throughout a program. It can also be an aid to writing a well structured program. This
feature can be mimicked using the ASSIGN and assigned GO TO statements. However, statement numbers
must be introduced which could lead to errors.
Each REMOTE-block must have a different name and it must not be a subprogram or variable name. Note
that a REMOTE-block is local to the program unit in which it is defined and may not be referenced
(executed) from another program unit.
Note that the nested definition of REMOTE-blocks is not permitted.
Example:
EXECUTE INCR
PRINT *, ’FIRST’
EXECUTE INCR
PRINT *, ’SECOND’
.
.
.
REMOTE BLOCK INCR
I=I+1
PRINT *, ’I=’,I
END BLOCK
Both EXECUTE statements will cause REMOTE-block INCR to be executed. That is, variable I will be
incremented and its value will be printed. When the block has been executed by the first EXECUTE
statement, control returns to the PRINT statement following it and the word FIRST is printed. Similarly,
when the block is executed by the second EXECUTE statement, control returns to the PRINT statement
following it and the word SECOND is printed.
For more information, see the chapter entitled "Program Structure Control Statements" on page 193.
REMOTE BLOCK Statement 131