昵称 发表于 2014-6-30 16:42:25

chuxf 发表于 2014-6-30 16:39
因为 IF(ICOUNT.NE.IPRINT) GO TO 490 总是满足，于是每次都会跳到 490，就不输出了

能不能指条明路怎么改合适呢？

楚香饭 发表于 2014-6-30 16:54:28

我不知道怎么改，因为对你的算法不熟悉。

但是你可以试试去掉
IF(ICOUNT.NE.IPRINT) GO TO 490
这一行，或者
IF(DFMAX.GT.0.01) GO TO 490

具体怎么去掉，要看你的意图，算法。因为我不知道你为什么在这里加这两个判断。

昵称 发表于 2014-6-30 17:00:22

chuxf 发表于 2014-6-30 16:54
我不知道怎么改，因为对你的算法不熟悉。

但是你可以试试去掉


呵呵不好意思啊 我是个新手 刚开始学一周，这里的算法是，有一个连续的时间步长。满足了一定条件就输出数值。具体的我再看一下改吧。。真是非常感谢你啊。。多亏了您了今天

楚香饭 发表于 2014-6-30 17:01:08

不客气，欢迎常来。

昵称 发表于 2014-6-30 17:08:18

chuxf 发表于 2014-6-30 17:01
不客气，欢迎常来。

好的呵呵~~
页: 1 [2]
查看完整版本: 程序运行出现NAN