PROGRAM newt
  IMPLICIT NONE
  CHARACTER(LEN=*), PARAMETER :: muoto = '(A,F9.6)'
  REAL :: x = 0.0
  INTEGER :: i, n = 20
  WRITE (*,'(A,I3)') 'iteraatioita:', n
  WRITE (*,muoto) 'x:n arvo alussa:', x
  DO i = 1, n
    x = x - (EXP(x) + x - 5)/(EXP(x) + 1)
    WRITE (*,muoto) 'x:n arvo:', x
  END DO
END PROGRAM newt