/*
FracLen - Returns the real length of the fractional part of a number

DESCRIPTION
Returns the real length of digits in the the fractional part of a number. "Real" means that the number 1.000 actually has no fractional part but is in this sense an integer.

SYNTAX
iFracs FracLen iNum

INITIALIZATION
iNum - incoming number
iFracs - number of digits in the fractional part. 0 means that iNum is an integer

CREDITS
joachim heintz 2012
*/

  opcode FracLen, i, io
inum, ifracs xin
ifac      =         10^ifracs
if int(inum*ifac) == inum*ifac then
          igoto     end
else
ifracs    FracLen   inum, ifracs+1
endif
end:      xout      ifracs
  endop