SUBROUTINE ERLQUE C C This module of the ERLANG program finds the probability C of waiting more than zero time (P>0) for a waiting C (queueing) system. C C B. Z. Lederman I.T.T. World Communications C BYTE ANS C 600 WRITE (5, 605) 605 FORMAT (1X / '$ Enter Erlangs of traffic, number of trunks: ') READ (5, 610, END=900) A, N 610 FORMAT (F10.2, I4) C BPER = ERLB(N, A) BLOCK = BPER / (1. - (A/N) * (1. - BPER)) BLOCK = 100. * BLOCK C WRITE (5, 620) A, N, BLOCK 620 FORMAT ('0 Erlangs = ', F7.2, ', Trunks = ', I4, 1', Probability of waiting P>0 = ', F6.2, '%' / 1X / 2'$ Another Queueing problem [Y/N] ? ') READ (5, 655) ANS 655 FORMAT (A1) IF (ANS .EQ. 'Y' .OR. ANS .EQ. 'y') GOTO 600 C 900 RETURN C END