PROGRAM ROUNDOFF
C
C     Computes exp(x) for x = -10, using Taylor series.
C
      REAL X, XP, SUM, OLDSUM, FN
      INTEGER N, NF
      X = -10.
      XP = 1.0
      FN = 1.
      N = 1
      OLDSUM = 0.0
      SUM = 1.0
C
 10   IF (OLDSUM .NE. SUM) THEN
         FN = N * FN
         XP = XP * X
         OLDSUM = SUM
         SUM = SUM + XP/FN
         N = N + 1
         GOTO 10
      ENDIF
C
      WRITE(*,*)
      WRITE(*,100) 'Sum of the first',N,' terms =',SUM
      WRITE(*,110) 'e^(-10) =',DEXP(-10.D0)
      WRITE(*,*)
C
 100  FORMAT(2X,A,I3,A,E16.9)
 110  FORMAT(2X,A,E16.9)
C
      STOP
      END