FORTRAN Reference Manual

Interprocess Communication
FORTRAN Reference Manual—528615-001
14-21
Message Queuing
108 END IF
109 10 CONTINUE
110 20 CONTINUE
111 RETURN
112 END
113 ?PAGE "MATCHNEW FUNCTION"
114 LOGICAL FUNCTION matchnew(request, request words, record)
115 INTEGER request(1), request words, record(1)
116 LOGICAL answer
117 answer = .FALSE.
118 DO 10 I = 1, request words
119 IF (request(I) .EQ. record(1)) THEN
120 answer = .TRUE.
121 END IF
122 10 CONTINUE
123 matchnew = answer
124 RETURN
125 END
126 ?PAGE "SET ARRAY SUBROUTINE"
127 SUBROUTINE set array (array, array elements, value)
128 INTEGER array(1), array elements, value
129 DO 10 I = 1, array elements
130 array(I) = value
131 10 CONTINUE
132 RETURN
133 END
Example 14-4. Example Queued Server (Part 3 of 3)