[数值问题] 计算结果只有一个，而应该有多个？

100 帖子	0 主题	0 精华

专家

F 币: 550 元
贡献: 291 点

发消息

楼主

发表于 2014-10-30 09:35:20 | 显示全部楼层

[Fortran] 纯文本查看 复制代码

if ( DABS (time_all_1 - time_all_2 ) < 0.00001D0 ) then 
  dis = DSQRT ( (x1*1D0-x2*1D0)**2+(y1*1D0-y2*1D0)**2+(z1*1D0-z2*1D0)**2 ) 
  write (55,'(f10.5,3x,f12.7)') time_all_1,dis 
end if 
exit

这个 exit 放错地方了吧？放到 endif 前面去吧。楼主很粗心哦~~

评分

参与人数 1	F 币 +9	贡献 +9	收起理由
fcode	+ 9	+ 9

查看全部评分

回复支持反对

使用道具举报

返回列表发新帖

[数值问题] 计算结果只有一个，而应该有多个？

评分

规矩勋章

元老勋章