code 41755;
real procedure EXPONDENS(X, LAMBDA); value X, LAMBDA;
    real X, LAMBDA;
EXPONDENS:= if LAMBDA ≤ 0
            then
               STATAL3 ERROR(“EXPONDENS”, 2, LAMBDA)
            else if X ≤ 0 then 0
                 else LAMBDA × EXP(- LAMBDA × X);
eop