Fortran Coder

查看: 180|回复: 2

[求助] 换行继续写出错,不知缘故

[复制链接]

12

帖子

4

主题

0

精华

入门

F 币
53 元
贡献
32 点
发表于 2017-7-8 15:00:10 | 显示全部楼层 |阅读模式

1499497137.png 上编写,ifort后提示,不知是何缘故,多谢各位!
make_crystal_fq.f(82): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: <REAL_KIND_CON> <REAL_CONSTANT> <DBLPRC_CONSTANT> <DBLPRC_KIND_CON> <QUAPRC_CONSTANT> ...
                            coord(2)=coordp(iatm,2)+(l*cell(1,2)+m*
-------------------------------------------------------------------^
make_crystal_fq.f(83): error #5276: Unbalanced parentheses
         X          cell(2,2)+n*cell(3,2))*fqp(iatm,2)
-----------------------------------------^
make_crystal_fq.f(83): error #5276: Unbalanced parentheses
         X          cell(2,2)+n*cell(3,2))*fqp(iatm,2)
-----------------------------------------------------^
make_crystal_fq.f(84): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: <REAL_KIND_CON> <REAL_CONSTANT> <DBLPRC_CONSTANT> <DBLPRC_KIND_CON> <QUAPRC_CONSTANT> ...
                            coord(3)=coordp(iatm,3)+(l*cell(1,3)+m*
-------------------------------------------------------------------^
make_crystal_fq.f(85): error #5276: Unbalanced parentheses
         X          cell(2,3)+n*cell(3,3))*fqp(iatm,3)
-----------------------------------------^
make_crystal_fq.f(85): error #5276: Unbalanced parentheses
         X          cell(2,3)+n*cell(3,3))*fqp(iatm,3)
-----------------------------------------------------^
compilation aborted for make_crystal_fq.f (code 1)


回复

使用道具 举报

452

帖子

0

主题

0

精华

大师

F 币
926 元
贡献
437 点

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

QQ
发表于 2017-7-8 19:53:47 | 显示全部楼层
估计是续行符的位置不对。应该在每行的第6格。
此外,如果你自己书写,建议放弃固定格式,改用自由格式。

12

帖子

4

主题

0

精华

入门

F 币
53 元
贡献
32 点
 楼主| 发表于 2017-7-9 12:30:03 | 显示全部楼层
vvt 发表于 2017-7-8 19:53
估计是续行符的位置不对。应该在每行的第6格。
此外,如果你自己书写,建议放弃固定格式,改用自由格式。 ...

多谢,改为$后就好了
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2017-10-19 17:06

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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