Fortran Coder

查看: 142|回复: 7

[求助] Fortran 语法问题

[复制链接]

11

帖子

5

主题

0

精华

入门

F 币
48 元
贡献
27 点
发表于 2022-5-28 23:13:43 | 显示全部楼层 |阅读模式
错误报告如下:
00MMC(1)-Exp-psi-phi.for(57): error #5082: Syntax error, found REAL_CONSTANT '0.121' when expecting one of: <IDENTIFIER> %FILL
        real(kind=8)::0.121
----------------------^
00MMC(1)-Exp-psi-phi.for(69): error #5082: Syntax error, found IDENTIFIER 'EXP' when expecting one of: .EQV. .NEQV. .XOR. .OR. .AND. .LT. < .LE. <= .EQ. == .NE. /= .GT. > ...
          phi_dot = 31+(phi_p_dot-31)exp(-((gama_p-gama_pp)/0.121)**2)

请问各位大佬,改如何修改源代码?
3f3b99bfbdb0860371e14118639a40e.png

11

帖子

5

主题

0

精华

入门

F 币
48 元
贡献
27 点
 楼主| 发表于 2022-5-28 23:14:27 | 显示全部楼层
这个Fortran中的自然指数应该如何计算?

185

帖子

0

主题

0

精华

版主

World Analyser

F 币
451 元
贡献
374 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
发表于 2022-5-29 08:46:41 | 显示全部楼层
real(kind=8)::0.121  这句是在想表达啥意思?
不能这样写的哟

如果你需要kind8 的 0.121 常数,可以写成 0.121_8

185

帖子

0

主题

0

精华

版主

World Analyser

F 币
451 元
贡献
374 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
发表于 2022-5-29 08:48:09 | 显示全部楼层
phi_dot = 31+(phi_p_dot-31)exp(-((gama_p-gama_pp)/0.121)**2)
phi_dot = 31+(phi_p_dot-31)*exp(-((gama_p-gama_pp)/0.121)**2)

少了个乘号,注意编程语句不能像数学表达书那要,省略乘号

11

帖子

5

主题

0

精华

入门

F 币
48 元
贡献
27 点
 楼主| 发表于 2022-5-29 10:44:45 | 显示全部楼层
kyra 发表于 2022-5-29 08:48
phi_dot = 31+(phi_p_dot-31)exp(-((gama_p-gama_pp)/0.121)**2)
phi_dot = 31+(phi_p_dot-31)*exp(-((gama ...

感谢您的帮助!!!

11

帖子

5

主题

0

精华

入门

F 币
48 元
贡献
27 点
 楼主| 发表于 2022-5-29 10:52:32 | 显示全部楼层
kyra 发表于 2022-5-29 08:46
real(kind=8)::0.121  这句是在想表达啥意思?
不能这样写的哟

请问,还是上面的代码,报了以下的错误,是怎么回事呢?需要标量表达是什么意思呢?
error #6512: A scalar-valued expression is required in this context.
        if (Q.gt.10) then

185

帖子

0

主题

0

精华

版主

World Analyser

F 币
451 元
贡献
374 点

新人勋章美女勋章元老勋章热心勋章规矩勋章管理勋章

QQ
发表于 2022-5-29 11:51:35 | 显示全部楼层
Q如何定义的,是数组还是单变量?

11

帖子

5

主题

0

精华

入门

F 币
48 元
贡献
27 点
 楼主| 发表于 2022-5-29 16:36:11 | 显示全部楼层
kyra 发表于 2022-5-29 11:51
Q如何定义的,是数组还是单变量?

明白了,给了定义之后就不报错了!谢谢您的帮助!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2022-7-5 21:26

Powered by Tencent X3.4

© 2013-2022 Tencent

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