24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

hfj1988

新虫 (小有名气)

应助: 4 (幼儿园)
金币: 1057.2
帖子: 185
在线: 115.2小时
虫号: 2138982
注册: 2012-11-21
专业: 计算数学与科学工程计算

[求助] fortran 程序有write和没有write两种情况计算的结果为什么会不一样?

fortran 程序在调试的时候我加了几个write（*，*）语句，发现计算的结果和不加不一样（在小数点后几位不一样），这是为什么？

在subroutine 中：intel 的fortran 编译器是否不检查数组大小？数组越界了也能算，但是就是计算错的，为什么？比如在某个子程序中：real(8) a(1000) 运行时候发现用到a(1200),却不报错。

回复此楼

» 猜你喜欢

自荐读博已经有9人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复
自然科学基金委宣布启动申请书“瘦身提质”行动已经有4人回复
求个博导看看已经有18人回复

1楼 2013-01-11 19:58:04

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

shmech

木虫 (小有名气)

应助: 1 (幼儿园)
金币: 1490.5
帖子: 117
在线: 64.7小时
虫号: 451252
注册: 2007-11-04
性别: GG
专业: 固体力学

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
hfj1988: 金币+15 2013-01-16 17:28:45

引用回帖:

10楼: Originally posted by hfj1988 at 2013-01-11 21:55:26
我是稍微修改了别人的fortran 77 的老程序，里面变量不声明也能用，感觉很不安全，我自己写的程序是用的fortran 90，是不是这两种结合起来可能错？如果我把fortran 77的老程序都转变成fortran 90 工作量很大啊，有 ...

可能Fortran77程序里没有加implicit none？在fortran 90里直接调用fortran 77没有任何问题，不需要格式转换。这也是fortran在科学计算界仍然占据主流的一个重要原因：对于40年前的老程序只要将其包装在一个subroutine或function里面就可以在最新格式的程序调用，重用性极强。

如果你编译fortran 77的时候发现有问题，如上面提到的数组越界等，可以通过指定编译器选项在编译时进行检查，ifort提供的选项是-check bounds.

fortran 77最应该避免的一个语法是goto，它会导致你在看老程序的时候产生毁灭世界的冲动。
fortran 77转换到fortran 90的工具有一些，免费的如Alan Miller网页上提供的to_f90.f90，链接
http://jblevins.org/mirror/amiller/to_f90.f90
这个程序好像也不能完全转换goto。另外nag的windows版fortran也提供转换功能，但更有限。另外有个软件记不清名字了，它有免费和商业版两种，格式转换做得非常好，不过免费版的不提供转换goto语句的功能。

写程序时尽量避免fortran 77的语法，养成良好的编程风格，不但自己赏心悦目也方便了后面维护程序的人。