24小时热门版块排行榜    

查看: 2836  |  回复: 14

hfj1988

新虫 (小有名气)

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

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

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

» 收录本帖的淘帖专辑推荐

悠悠

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

shmech

木虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
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的语法,养成良好的编程风格,不但自己赏心悦目也方便了后面维护程序的人。
12楼2013-01-15 14:52:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

hfj1988

新虫 (小有名气)

还有为什么程序无缘无故的在不该终止的地方终止,但是我没用 stop 语句
2楼2013-01-11 20:02:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxdongmeng

新虫 (初入文坛)

【答案】应助回帖

感谢参与,应助指数 +1
应该是有段错误 有段错误时结果就会不稳定
3楼2013-01-11 20:31:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hfj1988

新虫 (小有名气)

引用回帖:
3楼: Originally posted by wxdongmeng at 2013-01-11 20:31:29
应该是有段错误 有段错误时结果就会不稳定

什么叫段错误?
4楼2013-01-11 20:32:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wxdongmeng

新虫 (初入文坛)

【答案】应助回帖

在C语言里一般是指针方面的错误 我不知道fortran里有没有指针 也可能你某个变量没有赋初值 系统随机给你赋了值 你可以把上面出现的结果都write出来 一点点检查 这种错误很隐蔽 找起来得花点时间
5楼2013-01-11 20:39:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hfj1988

新虫 (小有名气)

引用回帖:
5楼: Originally posted by wxdongmeng at 2013-01-11 20:39:30
在C语言里一般是指针方面的错误 我不知道fortran里有没有指针 也可能你某个变量没有赋初值 系统随机给你赋了值 你可以把上面出现的结果都write出来 一点点检查 这种错误很隐蔽 找起来得花点时间

我没有用指针啊,也不是没赋初值的原因
6楼2013-01-11 20:52:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nono2009

超级版主 (文学泰斗)

No gains, no pains.

优秀区长优秀区长优秀区长优秀区长优秀版主

【答案】应助回帖

感谢参与,应助指数 +1
这种问题应该是程序某些地方写得不严格造成的,例如变量类型、数组维数等,在子程序调用时很容易出现这种错误。
7楼2013-01-11 21:04:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

王虫木

铁虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +1
应该是在某些程序地方写得不严格造成的,在子程序调用时很容易出现这种错误。
我叫王虫木,我爱爬山!
8楼2013-01-11 21:47:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hfj1988

新虫 (小有名气)

引用回帖:
7楼: Originally posted by nono2009 at 2013-01-11 21:04:51
这种问题应该是程序某些地方写得不严格造成的,例如变量类型、数组维数等,在子程序调用时很容易出现这种错误。

我是稍微修改了别人的fortran 77 的老程序,里面变量不声明也能用,感觉很不安全,我自己写的程序是用的fortran 90,是不是这两种结合起来可能错?如果我把fortran 77的老程序都转变成fortran 90 工作量很大啊,有没有什么自动转换的工具,谢谢!
9楼2013-01-11 21:55:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hfj1988

新虫 (小有名气)

引用回帖:
8楼: Originally posted by 王虫木 at 2013-01-11 21:47:04
应该是在某些程序地方写得不严格造成的,在子程序调用时很容易出现这种错误。

我是稍微修改了别人的fortran 77 的老程序,里面变量不声明也能用,感觉很不安全,我自己写的程序是用的fortran 90,是不是这两种结合起来可能错?如果我把fortran 77的老程序都转变成fortran 90 工作量很大啊,有没有什么自动转换的工具,谢谢!
10楼2013-01-11 21:55:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hfj1988 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +32 医学老男孩 2026-08-13 72/3600 2026-08-16 13:15 by 医学老男孩
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 26/1300 2026-08-16 12:35 by 启萌科技
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +10 majunge000 2026-08-11 12/600 2026-08-16 08:18 by xli1984
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +12 Tide man 2026-08-10 13/650 2026-08-15 16:34 by 氺木
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 各位道友,我要去昆明玩几天,回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] FileCode能看出啥? +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了,巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分? +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
信息提示
请填处理意见