FORTRAN Reference Manual

Interprocess Communication
FORTRAN Reference Manual—528615-001
14-8
$RECEIVE as Separate Input/Output Files
The server receives request messages from $RECEIVE, performs the requested tasks,
and replies to the message. The following code shows an example of a server:
...
?RECEIVE (OPEN 2, MAXREPLY 132)
...
CHARACTER*80 request
CHARACTER*132 reply
...
OPEN (UNIT=1,FILE='$RECEIVE')
...
10 READ (UNIT=1,END=100) request
IF (request(1:3) .EQ. 'ADD') THEN
... <-- Code to process
... <-- request and
... <-- construct reply
END IF
...
WRITE (UNIT=1) reply
GO TO 10
...
100 STOP
END
$RECEIVE as Separate Input/Output Files
A server can connect $RECEIVE to one unit for input and to more than one unit for
output.
VST1407.vsd
request message on file 1
Requester
Process
Server
Process
reply message on file 2