FUNCTION ERLB(N, A) C C This portion of the ERLANG program does the actual C Erlang B formula calculation using no powers or factorials, C and is an exact solution. This algorithm may be used elsewhere C provided credit is given to the author. C C B. Z. Lederman I.T.T. World Communications C TEMP1 = 1. TEMP2 = 1. C DO 220 I = N, 1, -1 TEMP3 = FLOAT(I) TEMP1 = TEMP1 * (TEMP3 / A) IF (TEMP1 .LE. 0.00001) GOTO 225 220 TEMP2 = TEMP1 + TEMP2 C 225 ERLB = 1. / TEMP2 C RETURN C END