saharazyy123 发表于 2023-2-23 19:22:48

编程小白求助大家解决我的语法问题(╥﹏╥)

本帖最后由 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:01

本帖最后由 Transpose 于 2023-2-23 19:34 编辑

把两个引号再加回来

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

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

& 要在绿色的位置


saharazyy123 发表于 2023-2-23 20:48:47

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:10

& 要在绿色的位置
页: [1]
查看完整版本: 编程小白求助大家解决我的语法问题(╥﹏╥)