Artifact 52b4a0069fa9f79d73d26a5f92cd07eca6251957fbbe30d82824b4c0342eeb4d:

• Executable file mtt/bin/trans/p/sign.p — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 160) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/bin/trans/p/sign.p — part of check-in [5f1e8a3807] at 2000-12-28 12:02:48 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 160) [annotate] [blame] [check-ins using]

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

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