Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/libsim/ilog.sim
There is 1 other file named ilog.sim in the archive. Click here to see a list.
OPTIONS(/E/C/-Q/-A/-I/-D);
INTEGER PROCEDURE ilog(x); LONG REAL x;
ilog:= IF x = 0 THEN 0 ELSE Entier(Ln(Abs(x))/2.30258 50929 94045 685 &&0)+1;