24小时热门版块排行榜    

查看: 1466  |  回复: 10

iamshitizen

铜虫 (小有名气)

引用回帖:
10楼: Originally posted by iamshitizen at 2016-12-11 14:44:17
DO Z1=1,30
         D=D*DTIME(Z1)     !===这个循环中DTIME这个数组没有赋初值,都是0,这样操作后D的值由1变为0
END DO

C=ALLCYC/D                   !===然后好像这里除以0了

当然因为DTIME 是common类型的数组,它进入子程序的时候数值可能不是0。
但由于没有看到主程序的操作,暂时无法知道这个数组的内容是什么样的。
建议输出一下D的值看看。如下:

WRITE(*,*)  '  D=  ', D      !===输出D的值
C=ALLCYC/D                   !===然后好像这里除以0了
11楼2016-12-11 14:50:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lym563557413 的主题更新
信息提示
请填处理意见