FORTRAN Reference Manual

Compiler Directives
FORTRAN Reference Manual—528615-001
10-55
RECEIVE Compiler Directive
Example
In a subroutine for which array subscript bounds checking is particularly important, the
source file could have:
?PUSH BOUNDSCHECK
?BOUNDSCHECK <-- At its beginning
.
?POP BOUNDSCHECK <-- At its end
Such a source file can be incorporated into any program with a SOURCE directive
without disturbing the bounds checking mode of the program using it.
RECEIVE Compiler Directive
The RECEIVE directive enables you to specify values for parameters that control the
length of a reply, the number of processes that can open this process, the number of
messages that can be posted to this process at any given time, the number of
messages that you want resent in the event of a failure, and whether you want to
receive system messages.
receive-spec
is one of the following:
MAXREPLY reply
reply is an integer in the range 0 through 32767 that specifies the maximum
number of bytes you can include when you reply to a message previously
received from $RECEIVE. The default value for MAXREPLY is 132 if ENV OLD
is in effect, 0 if ENV COMMON is in effect.
OPEN open
open is an integer in the range 1 through 255 that specifies the maximum
number of processes that can open your process simultaneously (not counting
backup opens). If you specify SYSMSG, the value you specify for open must
include the number of processes that can open your process plus an additional
open by the operating system. The default value is 1.
QDEPTH depth
depth is an integer in the range 1 through 255 that specifies the maximum
number of messages from $RECEIVE that your process can hold at any one
RECEIVE
receive spec–
receive spec , receive spec–[]. . .–()


