File mttroot/mtt/bin/trans/p/sign.p artifact 52b4a0069f part of check-in 140dec84c3

FUNCTION sign(x	: REAL) : REAL;
{ This useful function is missing from Pascal }

BEGIN
   IF X>=0 THEN
      sign := 1
   ELSE
      sign := -1;
END; { sign }