fcode 发表于 2015-3-28 16:14:02

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

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

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

http://Quill.fcode.cn/
转换前PROGRAM WWW
WRITE(*,*) 'D'
DO 11 I=1,N
WRITE(*,*) "HELLO,FCODE"
11 CONTINUE
END转换后：Program Www
    Write (*, *) 'D'
    Do I = 1, N
      Write (*, *) 'HELLO,FCODE'
    End Do
End Program Www

pasuka 发表于 2015-3-28 21:03:23

测试一个很无聊的例子，好像转换有点问题
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

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

楚香饭 发表于 2015-3-28 21:22:47

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

pasuka 发表于 2015-3-29 09:03:05

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

不能直接goto转cycle吗？

fcode 发表于 2015-3-29 10:12:21

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

这个暂时不能。。。

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

岸边的鱼 发表于 2015-3-29 12:17:24

老大威武

mangix2010 发表于 2015-3-31 13:26:50

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

fcode 发表于 2015-4-4 23:00:58

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


百事可乐 发表于 2015-4-6 18:01:27

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

huiselilun 发表于 2015-4-13 16:10:08

我曾经也查过这个功能，找到了两个开源的转换程序。大家可以试试。
（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)
页: [1] 2
查看完整版本: ForQuill 在线F77转F90工具【独家】