24小时热门版块排行榜    

查看: 1648  |  回复: 7

stone1985

铁杆木虫 (著名写手)

[求助] 一段Fortran程序,提示2个错误,求高人指点

写了个fortran程序,用powerstation 4.0运行,提示两个错误:
--------------------Configuration: DUCT - Win32 Debug--------------------
Compiling Fortran...
C:\fortran4.0\fortran4\Projects\DUCT\DUCT.FOR
C:\fortran4.0\fortran4\Projects\DUCT\DUCT.FOR(18): error FOR3852: syntax error detected between F5 and .2
C:\fortran4.0\fortran4\Projects\DUCT\DUCT.FOR(18): error FOR1768: missing END statement or missing program unit (possibly free-form source in fixed-form file) detected between F5 and .2
Error executing fl32.exe.
DUCT.exe - 2 error(s), 0 warning(s)
希望高人指点[ Last edited by stone1985 on 2012-5-22 at 11:20 ]
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : DUCT.FOR
  • 2012-05-22 09:51:18, 2.63 K

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

士不可以不弘毅,任重而道远。仁以为己任,不亦重乎!死而后已,不亦远乎!
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

csgt0

荣誉版主 (著名写手)

彩色挂图

【答案】应助回帖

感谢参与,应助指数 +1
不懂,难道不是18行有问题吗,我看你19行开始有个1
showmethemoney
2楼2012-05-22 11:54:20
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

stone1985

铁杆木虫 (著名写手)

引用回帖:
2楼: Originally posted by csgt0 at 2012-05-22 12:54:20:
不懂,难道不是18行有问题吗,我看你19行开始有个1

那个1是上接18行的
士不可以不弘毅,任重而道远。仁以为己任,不亦重乎!死而后已,不亦远乎!
3楼2012-05-22 11:57:10
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

hklulu

木虫 (正式写手)

000

【答案】应助回帖

感谢参与,应助指数 +1
首先是作为连接符的 1 应该在正确的位置;其次括号不要注释掉即://)改成)
00
4楼2012-05-22 12:18:10
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

stone1985

铁杆木虫 (著名写手)

引用回帖:
4楼: Originally posted by hklulu at 2012-05-22 13:18:10:
首先是作为连接符的 1 应该在正确的位置;其次括号不要注释掉即://)改成)

//)全改成)?还是就19行改
士不可以不弘毅,任重而道远。仁以为己任,不亦重乎!死而后已,不亦远乎!
5楼2012-05-22 12:29:30
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

stone1985

铁杆木虫 (著名写手)

引用回帖:
4楼: Originally posted by hklulu at 2012-05-22 13:18:10:
首先是作为连接符的 1 应该在正确的位置;其次括号不要注释掉即://)改成)

麻烦把能运行的代码发给我好吗
士不可以不弘毅,任重而道远。仁以为己任,不亦重乎!死而后已,不亦远乎!
6楼2012-05-22 12:47:42
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

stone1985

铁杆木虫 (著名写手)

我改好之后,现在没有错误了,但是有两个warnings
C:\fortran4.0\fortran4\Projects\DUCT\DUCT.FOR
C:\fortran4.0\fortran4\Projects\DUCT\DUCT.FOR(114): warning FOR4265: symbol QLX referenced but not set
C:\fortran4.0\fortran4\Projects\DUCT\DUCT.FOR(114): warning FOR4265: symbol NXP referenced but not set
士不可以不弘毅,任重而道远。仁以为己任,不亦重乎!死而后已,不亦远乎!
7楼2012-05-22 12:58:10
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

stone1985

铁杆木虫 (著名写手)

The thread 0xC70 has exited with code 1 (0x1).
The program 'C:\fortran4.0\fortran4\Projects\DUCT\DUCT___W\DUCT.exe' has exited with code 1 (0x1).   
出现这个错误
已经没有error和warning了
士不可以不弘毅,任重而道远。仁以为己任,不亦重乎!死而后已,不亦远乎!
8楼2012-05-22 14:01:43
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 stone1985 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 今年也是没消息就是没中么 +5 vito刘 2026-06-13 9/450 2026-06-14 11:31 by newfuzzy1
[考研] *O_o^ +3 jk31rb6vyz 2026-06-12 3/150 2026-06-14 09:08 by 8bmv3h4hvh
[硕博家园] T^T +7 m584r2z4j3 2026-06-11 8/400 2026-06-14 08:34 by 8bmv3h4hvh
[公派出国] T^T +6 q1zg6x4lf3 2026-06-12 6/300 2026-06-14 08:28 by 8bmv3h4hvh
[考博] →_→ +4 q1zg6x4lf3 2026-06-12 4/200 2026-06-14 08:28 by 8bmv3h4hvh
[考博] T^T +4 q1zg6x4lf3 2026-06-12 4/200 2026-06-14 08:26 by 8bmv3h4hvh
[考博] T^T +4 m584r2z4j3 2026-06-11 4/200 2026-06-14 08:08 by 8bmv3h4hvh
[公派出国] π_π +5 m584r2z4j3 2026-06-11 5/250 2026-06-14 08:08 by 8bmv3h4hvh
[考研] ╭(╯ε╰)╮ +5 m584r2z4j3 2026-06-11 5/250 2026-06-14 08:03 by 8bmv3h4hvh
[基金申请] 函评 +3 布布和一二 2026-06-13 3/150 2026-06-13 23:35 by 芋圆香飘飘
[找工作] 售SCI文章,我:8.O.5.51O.5.4,科目齐全,可十急 +3 q1zg6x4lf3 2026-06-12 3/150 2026-06-13 19:07 by 1js5n6upxm
[考研] T^T +6 m584r2z4j3 2026-06-11 6/300 2026-06-13 18:29 by lkmi35jdzt
[考博] π_π +4 m584r2z4j3 2026-06-11 4/200 2026-06-13 18:25 by lkmi35jdzt
[考研] o>_<o +5 m584r2z4j3 2026-06-11 5/250 2026-06-13 18:22 by lkmi35jdzt
[考博] T^T +4 jk31rb6vyz 2026-06-12 4/200 2026-06-13 12:09 by 80j16ujcu8
[论文投稿] →_→ +5 m584r2z4j3 2026-06-11 5/250 2026-06-13 08:13 by t4hz8376wy
[基金申请] 面上项目没有好文章就没希望了吗? +19 1234567wang 2026-06-07 21/1050 2026-06-12 21:24 by littlezl
[考博] [急招]吉林大学招收26年9月入学考核制博士生1名,截止今晚24点前 +3 hehejin 2026-06-10 4/200 2026-06-12 18:24 by 冻雨天
[教师之家] AASSDDFF +3 m584r2z4j3 2026-06-11 3/150 2026-06-12 11:28 by zs48m4lz8g
[考博] 博士申请 +3 张城斐 2026-06-07 3/150 2026-06-08 09:15 by A大朋同学
信息提示
请填处理意见