FUNCTION ERLDEV(AVG,A) C C This module of the ERLANG program calculates the C standard deviation from the average number of trunks C occupied. It works iteratively until the answer is C within 0.001 (after the square root is taken) of the C final value. C C B. Z. Lederman I.T.T. World Communications C TEMP = EXP(-1. * A) DEVOLD = -1. DEV = 0. N = 0 200 DEV = DEV + (((N - AVG)**2.) * TEMP) IF (ABS(DEV - DEVOLD) .LT. 0.00001) GO TO 250 DEVOLD = DEV N = N + 1 TEMP = TEMP * (A / N) GO TO 200 250 ERLDEV = SQRT(DEV) C RETURN END