subroutine sub(x, f, f1)
! met. Newton
common p

!f =exp(x) -p*x*x
!f1 =exp(x) -2*p*x


END
