File mttroot/mtt/bin/trans/p/sign.p artifact 52b4a0069f part of check-in 297cb7edcf
FUNCTION sign(x : REAL) : REAL; { This useful function is missing from Pascal } BEGIN IF X>=0 THEN sign := 1 ELSE sign := -1; END; { sign }
FUNCTION sign(x : REAL) : REAL; { This useful function is missing from Pascal } BEGIN IF X>=0 THEN sign := 1 ELSE sign := -1; END; { sign }