Fortran Coder

查看: 17795|回复: 4
打印 上一主题 下一主题

[求助] 请教大家一个fortran固定格式的问题

[复制链接]

35

帖子

6

主题

0

精华

熟手

F 币
151 元
贡献
94 点
跳转到指定楼层
楼主
发表于 2021-4-30 15:08:22 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
DO 60 J=1,IT                                                      
IF (TMIN-TEMP(J)) 60,60,20                                       
20 IF (I-1) 30,50,30

就这种类似代码,后面跟着好多数什么意思啊。gfortran编译固定格式的话编译选项有什么要求吗
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2021-4-30 15:56:36 | 只看该作者
IF (b) xx,yy,zz
等效于
if(b<0) goto xx
if(b==0) goto yy
if(b>0) goto zz
这东西叫“算术IF”语句,是一种被废止的语法,非常不好,不好,不好。

35

帖子

6

主题

0

精华

熟手

F 币
151 元
贡献
94 点
板凳
 楼主| 发表于 2021-5-6 21:33:27 | 只看该作者
fcode 发表于 2021-4-30 15:56
IF (b) xx,yy,zz
等效于
if(b0) goto zz

gfortran是不是已经不支持了?

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
地板
发表于 2021-5-6 21:41:16 | 只看该作者


支持的

35

帖子

6

主题

0

精华

熟手

F 币
151 元
贡献
94 点
5#
 楼主| 发表于 2021-5-7 08:44:50 | 只看该作者

嗯,谢谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-26 00:14

Powered by Tencent X3.4

© 2013-2024 Tencent

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