FORTRAN Reference Manual

Interprocess Communication
FORTRAN Reference Manual—528615-001
14-12
Message Queuing
Example 14-1. Example Requesters R1 and R2 for Queued Server
1 ?PAGE "REQUESTER NUMBER 1 FOR QUEUED SERVER"
2 ?LOGICAL*2
3 PROGRAM requester1
4 IMPLICIT INTEGER*2 (a-z)
5 CHARACTER*8 prompt
6 DIMENSION records(4)
7 DIMENSION rec(2)
8 DATA records /1,3,5,7/
9
10 WRITE (prompt,11) records
11 11 FORMAT (4A2)
12 OPEN (UNIT=5,SPACECONTROL='NO')
13 OPEN (UNIT=6)
14 WRITE (6,22)
15 22 FORMAT ('1R1 ABOUT TO MAKE FIRST REQUEST.')
16
17 10 CONTINUE
18 READ (5,END=100,PROMPT=prompt) rec