Fortran Coder

标题: ForQuill 在线F77转F90工具【独家】 [打印本页]

作者: fcode 时间: 2015-3-28 16:14
标题: ForQuill 在线F77转F90工具【独家】
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 时间: 2015-3-28 21:03
测试一个很无聊的例子，好像转换有点问题

[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

作者: 楚香饭 时间: 2015-3-28 21:22
有什么问题？好像没有吧？

作者: pasuka 时间: 2015-3-29 09:03

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

不能直接goto转cycle吗？

作者: fcode 时间: 2015-3-29 10:12

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

这个暂时不能。。。

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

作者: 岸边的鱼 时间: 2015-3-29 12:17
老大威武

作者: mangix2010 时间: 2015-3-31 13:26
顶！！大程序转换不好弄哦，小程序转转还行

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

作者: 百事可乐 时间: 2015-4-6 18:01
哈哈,给广大学友带福利了.

作者: huiselilun 时间: 2015-4-13 16:10
我曾经也查过这个功能，找到了两个开源的转换程序。大家可以试试。
（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)

作者: un-subscribe 时间: 2016-11-29 11:43
方便私发一下部分源代码吗

作者: 深流水静水流深 时间: 2017-2-12 17:27
非常好

感谢版主！

作者: 落雨流殇 时间: 2017-6-23 13:19
代码转换的这个颜色配置挺好看，请问用哪个代码编辑器可以做到。

作者: 王培杰 时间: 2019-3-22 11:00
偶然发现一个BUG
include从77转到90变成invlude

b.png (5.99 KB, 下载次数: 484)

a.png (27.61 KB, 下载次数: 495)

作者: Geo小白 时间: 2022-5-20 13:27
感谢感谢，码住了！！！！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)