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

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)