Fortran Coder

标题: 换行继续写出错，不知缘故 [打印本页]

作者: alohomora100 时间: 2017-7-8 15:00
标题: 换行继续写出错，不知缘故

图

上编写，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)

作者: vvt 时间: 2017-7-8 19:53
估计是续行符的位置不对。应该在每行的第6格。
此外，如果你自己书写，建议放弃固定格式，改用自由格式。

作者: alohomora100 时间: 2017-7-9 12:30

vvt 发表于 2017-7-8 19:53
估计是续行符的位置不对。应该在每行的第6格。
此外，如果你自己书写，建议放弃固定格式，改用自由格式。 ...

多谢，改为$后就好了

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