24小时热门版块排行榜

>论坛更新日志 (3701)
>文献求助 (346)
>虫友互识 (288)
>导师招生 (274)
>博后之家 (139)
>硕博家园 (138)
>休闲灌水 (136)
>论文投稿 (109)
>考博 (108)
>基金申请 (81)
>教师之家 (48)
>招聘信息布告栏 (47)
>考研 (40)
>公派出国 (39)
>绿色求助(高悬赏) (32)
>找工作 (29)

返回列表

nono2009

超级版主 (文学泰斗)

No gains, no pains.

专家经验: +21105
应助: 28684 (院士)
贵宾: 513.911
金币: 2555160
散金: 27828
红花: 2147
沙发: 66666
帖子: 1602246
在线: 65200.8小时
虫号: 827383
注册: 2009-08-13
性别: GG
专业: 工程热物理与能源利用
管辖: 科研家筹备委员会

引用回帖:

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

不清楚。如果有这样的好工具，我也想要一个

赞一下

回复此楼

11楼2013-01-12 08:34:09

已阅回复此楼关注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的语法，养成良好的编程风格，不但自己赏心悦目也方便了后面维护程序的人。

赞一下(1人)

回复此楼

12楼2013-01-15 14:52:43

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

hfj1988

新虫 (小有名气)

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

引用回帖:

12楼: Originally posted by shmech at 2013-01-15 14:52:43
可能Fortran77程序里没有加implicit none？在fortran 90里直接调用fortran 77没有任何问题，不需要格式转换。这也是fortran在科学计算界仍然占据主流的一个重要原因：对于40年前的老程序只要将其包装在一个subrout ...

谢谢！

回复此楼

13楼2013-01-16 17:28:34

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