Artifact 52b4a0069fa9f79d73d26a5f92cd07eca6251957fbbe30d82824b4c0342eeb4d:


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

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



MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]