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

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

END
