Fortran Coder

标题: 请教大家一个fortran固定格式的问题 [打印本页]

作者: qs2017 时间: 2021-4-30 15:08
标题: 请教大家一个fortran固定格式的问题
DO 60 J=1,IT
IF (TMIN-TEMP(J)) 60,60,20
20 IF (I-1) 30,50,30

就这种类似代码，后面跟着好多数什么意思啊。gfortran编译固定格式的话编译选项有什么要求吗

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

作者: qs2017 时间: 2021-5-6 21:33

fcode 发表于 2021-4-30 15:56
IF (b) xx,yy,zz
等效于
if(b0) goto zz

gfortran是不是已经不支持了？

作者: vvt 时间: 2021-5-6 21:41

支持的

作者: qs2017 时间: 2021-5-7 08:44

vvt 发表于 2021-5-6 21:41
支持的

嗯，谢谢

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