alohomora100 发表于 2017-7-8 15:00:10

换行继续写出错，不知缘故


图上编写，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:47

估计是续行符的位置不对。应该在每行的第6格。
此外，如果你自己书写，建议放弃固定格式，改用自由格式。

alohomora100 发表于 2017-7-9 12:30:03

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

多谢，改为$后就好了
页: [1]
查看完整版本: 换行继续写出错，不知缘故