SUBROUTINE ERLAVE C C This module of the ERLANG program calculates the mean (average) C number of trunks occupied for a given amount of traffic. C C B. Z. Lederman I.T.T. World Communications C REAL MU, MUOLD LOGICAL*1 ANS C 10 WRITE (5, 20) 20 FORMAT( / '$ Enter the amount of traffic in Erlangs: ') READ (5, 30) A 30 FORMAT (F10.2) TEMP = EXP( -1. * A) MUOLD = -1. N = 1 MU = 0. 100 TEMP = TEMP * ( A / N ) MU = MU + ( TEMP * N ) IF (ABS(MU - MUOLD) .GT. 0.0001 .AND. N .GT. A) GOTO 150 MUOLD = MU N = N + 1 GOTO 100 C 150 DEV = ERLDEV(MU, A) WRITE (5, 200) MU, DEV 200 FORMAT ( '0 Mean number of trunks occupied = ', F7.1, 1', Deviation = ', F7.1 / / '$ Another Average problem [Y/N] ? ') READ (5, 230, END=250) ANS 230 FORMAT(A1) IF (ANS .EQ. 'Y' .OR. ANS .EQ. 'y') GOTO 10 250 RETURN END