Fortran Coder

查看: 3870|回复: 12

[编辑器] ForQuill 在线F77转F90工具【独家】

  [复制链接]

1286

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂伙计

F 币
415 元
贡献
138 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2015-3-28 16:14:02 | 显示全部楼层 |阅读模式
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
回复

使用道具 举报

462

帖子

3

主题

0

精华

大宗师

F 币
3105 元
贡献
1843 点

水王勋章元老勋章热心勋章

发表于 2015-3-28 21:03:23 | 显示全部楼层
测试一个很无聊的例子,好像转换有点问题
[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

604

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
266 元
贡献
130 点

新人勋章爱心勋章水王勋章元老勋章

发表于 2015-3-28 21:22:47 | 显示全部楼层
有什么问题?好像没有吧?

462

帖子

3

主题

0

精华

大宗师

F 币
3105 元
贡献
1843 点

水王勋章元老勋章热心勋章

发表于 2015-3-29 09:03:05 | 显示全部楼层
楚香饭 发表于 2015-3-28 21:22
有什么问题?好像没有吧?

不能直接goto转cycle吗?

1286

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂伙计

F 币
415 元
贡献
138 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

 楼主| 发表于 2015-3-29 10:12:21 | 显示全部楼层
pasuka 发表于 2015-3-29 09:03
不能直接goto转cycle吗?

这个暂时不能。。。

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

66

帖子

5

主题

2

精华

版主

院士级水师

F 币
481 元
贡献
273 点

管理勋章帅哥勋章爱心勋章规矩勋章

QQ
发表于 2015-3-29 12:17:24 | 显示全部楼层
老大威武
科研穷三代,读博毁一生
回复

使用道具 举报

35

帖子

2

主题

1

精华

专家

超子

F 币
565 元
贡献
196 点

规矩勋章

QQ
发表于 2015-3-31 13:26:50 | 显示全部楼层
顶!!大程序转换不好弄哦,小程序转转还行

1286

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂伙计

F 币
415 元
贡献
138 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

 楼主| 发表于 2015-4-4 23:00:58 | 显示全部楼层
2015年4月4日:
1,更正 Include 语句的识别问题(因为移植到网络端后无法读取包含文件,故改为将 include语句视为常规语句)
2,美化界面
3,改善固定格式的识别。(需选定为固定格式)


97

帖子

0

主题

0

精华

专家

F 币
536 元
贡献
283 点

规矩勋章元老勋章

QQ
发表于 2015-4-6 18:01:27 | 显示全部楼层
哈哈,给广大学友带福利了.

28

帖子

5

主题

0

精华

熟手

F 币
231 元
贡献
127 点
发表于 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)
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2018-9-26 16:28

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表