Fortran Coder

标题: 编程小白求助大家解决我的语法问题(╥﹏╥) [打印本页]

作者: saharazyy123 时间: 2023-2-23 19:22
标题: 编程小白求助大家解决我的语法问题(╥﹏╥)
本帖最后由 saharazyy123 于 2023-2-23 19:31 编辑

导师给的代码有语法错误，请问大家应该怎么改？第一次接触fortran，不是很懂。本来有3个错误，我删掉了两个引号，然后就只剩一个错误了。源代码是这个：
open(unit=1,file=fname,status='old')
      open(unit=2,file='fwi0007.out', status = 'new')
      write(2,*) Station Month Day FFMC DMC DC    ISI BUI FWI DSR
      write(2,*) -------------------------------------------------------------------
语法错误是这个：
D:\FWI\TEST\fwi.f(69) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
write(2,*) -------------------------------------------------------------------
--------------------------------------------------------------------------------------^
Error executing df.exe.

fwi.obj - 1 error(s), 0 warning(s)

感谢大家帮忙！！！

作者: Transpose 时间: 2023-2-23 19:33
本帖最后由 Transpose 于 2023-2-23 19:34 编辑

把两个引号再加回来

这是一行太长了，固定格式有长度限制，续行即可

write(*,*)"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
改成
write(*,*)"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
&//"AAAAAAAAAAAAAAAAAAAAAAAAAA"

& 要在绿色的位置

作者: saharazyy123 时间: 2023-2-23 20:48

Transpose 发表于 2023-2-23 19:33
把两个引号再加回来

这是一行太长了，固定格式有长度限制，续行即可

你好！我修改之后显示有两个错误。
我的代码：
write(2,*) 'Station Month Day FFMC DMC DC ISI BUI'
&//' FWI DSR '
write(2,*) '-----------------------------------------------------'
&//'--------------'
提示错误：
D:\FWI\TEST\fwi.f(69) : Error: Syntax error, found '&' when expecting one of: <LABEL> <END-OF-STATEMENT> ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...
&//' FWI DSR '
--------^
D:\FWI\TEST\fwi.f(71) : Error: Syntax error, found '&' when expecting one of: <LABEL> <END-OF-STATEMENT> ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...
&//'--------------'
--------^
Error executing df.exe.

fwi.obj - 2 error(s), 0 warning(s)

作者: Transpose 时间: 2023-2-24 11:45
& 要在绿色的位置

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