为什么没输出
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 以后没有输出,谢谢!
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 以后没有输出,谢谢!