PROGRAM C1402A
      REAL X,ETOX
      PRINT *,'INPUT VALUE OF X '
      READ *,X
      PRINT *,'FOR X   = ',X
      PRINT *,'EXP(X)  = ',EXP(X)
      PRINT *,'ETOX(X) = ',ETOX(X) 
      END    
            
      REAL FUNCTION ETOX(X)
      REAL TERM,X,TOL
      INTEGER NTERM
      PARAMETER (TOL=0.001)
      ETOX=1.0
      TERM=1.0
      NTERM=0
1     CONTINUE
        NTERM=NTERM+1
        TERM=(X/NTERM)*TERM
        ETOX=ETOX+TERM
      IF(TERM.GT.TOL)GO TO 1
      END