code 41563;
real procedure ERLANG(X, N, SCALE);
value X, N, SCALE; real X, N, SCALE;
ERLANG:= if SCALE ≤ 0
         then STATAL3 ERROR(“ERLANG”, 3, SCALE)
         else if N ≤ 0 ∨ ENTIER(N) < N
         then STATAL3 ERROR(“ERLANG”, 2, N)
         else GAMMA(X, N, SCALE);
eop