real x,y0,y1
print*,"请输入初值x:"
read *,x
y0=x
y1=2*y0/3+x/(3*y0**2)
do while(abs(y1-x)>1d-6)
   y0=y1
   y1=2*y0/3+x/(3*y0**2)
end do
print*,y1
end
请高手指点一下，为什么这个程序输入x 以后没有输出，谢谢！