code 41562;
real procedure EXPONINV(PROB, LAMBDA);
value PROB, LAMBDA; real PROB, LAMBDA;
EXPONINV:= if LAMBDA ≤ 0
           then STATAL3 ERROR(“EXPONINV”,2,LAMBDA)
           else if PROB ≤ 0 ∨ PROB ≥ 1
           then STATAL3 ERROR(“EXPONINV”,1,PROB)
           else - LN(1 - PROB) / LAMBDA;
eop