code 41540;
real procedure LOGNORMALINV(PROB, MU, SIGMA);
value PROB, MU, SIGMA; real PROB, MU, SIGMA;
LOGNORMALINV:= if SIGMA ≤ 0
    then STATAL3 ERROR(“LOGNORMALINV”, 3, SIGMA)
    else if PROB < 10-14 ∨ PROB > 1 - 10-14
    then STATAL3 ERROR(“LOGNORMALINV”, 1, PROB)
    else EXP(PHINV(PROB) × SIGMA + MU);
eop