PROGRAM machine2 ! ! Author: Br. David Carlson ! ! Date: January 3, 2000 ! ! This program prints the values of certain machine constants. WRITE (*, *) 'Smallest postive real ', TINY(0.0) WRITE (*, *) 'Number of bits in an integer ', BIT_SIZE(0) WRITE (*, *) 'Exponent range (decimal) for integers ', RANGE(0) WRITE (*, *) 'Exponent range (decimal) for reals ', RANGE(0.0) WRITE (*, *) 'Number decimal digits precision for reals ', PRECISION(0.0) END PROGRAM