Copyright (C) 1985 Adam Fritz, 133 Main St., Afton, N.Y. 13730

      program mantissa

C     This program computes effective number of bits in mantissa
C     of floating point number.

      integer i
      real x

      i = 0 
      x = 1.0 
  10  continue
      i = i + 1
      x = x / 2.0 
      if (((1.0 + x) - 1.0) .ne. 0.0 ) GOTO 10
      write(3,1111) i
1111  format( 19H Significant Bits: , i2)

      stop
      end

Copyright (C) 1985 Adam Fritz, 133 Main St., Afton, N.Y. 13730