24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1602  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂 +9 翩翩一书生 2026-04-09 10/500 2026-04-10 09:50 by 690616278
[考研] 求调剂 +7 翩翩一书生 2026-04-09 7/350 2026-04-10 07:27 by bljnqdcc
[高分子] 环氧灌封胶 抗沉剂 +3 huagong159 2026-04-03 4/200 2026-04-10 00:30 by huagong159
[考研] 材料专硕(0856) 339分求调剂 +9 哈哈哈鹅哈哈哈 2026-04-09 10/500 2026-04-09 20:01 by Orcid
[考研] 085600材料与化工301分求调剂院校 +33 刺痛jk 2026-04-06 34/1700 2026-04-09 18:31 by hy861222
[考研] 083200 初试305分 求调剂 暂不考虑跨专业 +15 Claireyyyy 2026-04-09 15/750 2026-04-09 16:11 by zhuimr
[考研] 生物学学硕,初试351分,求调剂 +4 …~、王…~ 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
[考研] 323求调剂 +3 林zlu 2026-04-07 4/200 2026-04-07 23:21 by lbsjt
[考研] 计算机11408 287 求调剂 +3 LiLe5 2026-04-07 3/150 2026-04-07 23:15 by shanqishi
[考研] 本科生物信息学,总分362 求07 08调剂 +6 q小倩1210 2026-04-06 6/300 2026-04-07 19:40 by macy2011
[考研] 325 调剂 +6 QQ小虾 2026-04-07 6/300 2026-04-07 15:17 by Ccclqqq
[考研] 305分求调剂 +3 哈_哈_哈_哈_哈 2026-04-04 5/250 2026-04-07 14:49 by 哈_哈_哈_哈_哈
[考研] 081200-11408-367学硕求调剂 +4 1_2_3111 2026-04-06 4/200 2026-04-07 08:13 by jp9609
[考研] 工科 22408 267求推荐 +4 wanwan00 2026-04-05 5/250 2026-04-06 22:47 by chenzhimin
[考研] 求调剂 +5 小沢 2026-04-03 5/250 2026-04-06 22:45 by 875465
[考研] 285求调剂 +5 mapmath 2026-04-06 6/300 2026-04-06 17:18 by 蓝云思雨
[考研] 求助 +3 卡卡东88 2026-04-06 4/200 2026-04-06 15:28 by going home
[考研] 复试调剂 +5 asdasdassda 2026-04-05 5/250 2026-04-06 09:32 by dongzh2009
[考研] 308求调剂 +4 maverick^_^ 2026-04-03 4/200 2026-04-05 19:08 by 蓝云思雨
[考研] 288求调剂,一志愿华南理工大学071005 +6 ioodiiij 2026-04-04 6/300 2026-04-05 10:09 by guoweigw
信息提示
请填处理意见