ForQuill 在线F77转F90工具【独家】

fcode

ForQuill 是一个基于网页的在线转换工具，可以将您的 F77 格式老代码转换成 F90 的自由格式代码。

它是完全免费的，由 Fcode.cn 独家提供！

http://Quill.fcode.cn/
转换前

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

PROGRAM WWW
WRITE(*,*) 'D'
DO 11 I=1,N
WRITE(*,*) "HELLO,FCODE"
11 CONTINUE
END

转换后：

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

  Program Www
    Write (*, *) 'D'
    Do I = 1, N
      Write (*, *) 'HELLO,FCODE'
    End Do
  End Program Www

pasuka

测试一个很无聊的例子，好像转换有点问题

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

program abc
integer,parameter::n=9
integer::i,j

do 121 i=1,n
do 121 j=1,i
if(i.eq.4)goto 121
121 continue

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

Program Abc
  Integer, Parameter :: N = 9
  Integer :: I, J

  Do I = 1, N
    Do J = 1, I
      If (I.Eq.4) Go To 121
    121 End Do
  End Do

楚香饭

有什么问题？好像没有吧？

pasuka

楚香饭 发表于 2015-3-28 21:22
有什么问题？好像没有吧？

不能直接goto转cycle吗？

fcode

pasuka 发表于 2015-3-29 09:03
不能直接goto转cycle吗？

这个暂时不能。。。

分析代码的执行路线，这个太高端了。

岸边的鱼

老大威武

mangix2010

顶！！大程序转换不好弄哦，小程序转转还行

fcode

2015年4月4日：
1，更正 Include 语句的识别问题（因为移植到网络端后无法读取包含文件，故改为将 include语句视为常规语句）
2，美化界面
3，改善固定格式的识别。（需选定为固定格式）

百事可乐

哈哈,给广大学友带福利了.

huiselilun

我曾经也查过这个功能，找到了两个开源的转换程序。大家可以试试。
（1）https://bitbucket.org/lemonlab/f2f/
     f2f is a Perl script which does much of the tedious work of converting Fortran 77 source code into Fortran 90/95 form. There seems to be a lot of Fortran hate in the world, and I think this comes from people who have been forced to use Fortran 77 at some time or another. Hopefully, this program will make you a less hateful person.
（2）ftp://ftp.numerical.rl.ac.uk/pub/MandR/convert.f90
     Author: Michael Metcalf  (MichaelMetcalf@compuserve.com)