主题:[讨论]请教:为何我的循环跳不出去?
[size=3]各位大侠:
以下是我的程序:
do i=1,1000
........
IF((UI<0.0).and.(abs(DJ)>DY*(1-1/UI)))then !判断当UI为负时,结构是否进入动力 不稳定范围
JJ=J
exit
end if
enddo
编译没有问题,但是计算出的结果却表明程序一直在执行,该跳出的地方没有跳出,请问我的判断语句有什么问题吗?[/size]
以下是我的程序:
do i=1,1000
........
IF((UI<0.0).and.(abs(DJ)>DY*(1-1/UI)))then !判断当UI为负时,结构是否进入动力 不稳定范围
JJ=J
exit
end if
enddo
编译没有问题,但是计算出的结果却表明程序一直在执行,该跳出的地方没有跳出,请问我的判断语句有什么问题吗?[/size]