Fortran Coder

查看: 2573|回复: 3

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

[复制链接]

2

帖子

1

主题

0

精华

新人

F 币
18 元
贡献
10 点
发表于 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)

感谢大家帮忙!!!

图片1.png

155

帖子

2

主题

1

精华

大师

Vim

F 币
945 元
贡献
461 点

规矩勋章

发表于 2023-2-23 19:33:01 | 显示全部楼层
本帖最后由 Transpose 于 2023-2-23 19:34 编辑

把两个引号再加回来

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

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

& 要在绿色的位置


2

帖子

1

主题

0

精华

新人

F 币
18 元
贡献
10 点
 楼主| 发表于 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)

155

帖子

2

主题

1

精华

大师

Vim

F 币
945 元
贡献
461 点

规矩勋章

发表于 2023-2-24 11:45:10 | 显示全部楼层
& 要在绿色的位置
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-29 19:40

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表