c
c     Program to compute the machine epsilon (single precision)
c     Source: Forsythe, Malcolm and Moler, p.17
c
      PROGRAM EPSLON
      REAL EPS, EPS1

      EPS  = 1.0

 10   EPS  = 0.5 * EPS
      EPS1 = EPS + 1.0
      IF (EPS1 .GT. 1.0) GOTO 10

      PRINT*,' To epsilon tns mnxavns eivai:',EPS 

      STOP
      END