24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1257  |  回复: 10
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

li_clifff

实习版主

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

[求助] 在HP Fortran 90的一个编译问题:incomplete statement, 谢谢

在HP Fortran 90下进行编译,出现问题:
function WN
error 707 at(73:main.f) incomplete statement
其中, 我的function WN是这样写的:
! ============== WN
        function WN
        implicit none
        real*8 WN
        real mkrand(12)
        integer i
        call RANDOM_NUMBER(mkrand)
        WN=0.D0; do i=1,12; WN=WN+mkrand(i); enddo; WN=WN-6.D0
        return
        end
为什么说我的函数WN是 incomplete statement, 没看出来,请帮忙,谢谢
回复此楼

» 猜你喜欢

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

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cean

专家顾问

屌绳一条

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

【答案】应助回帖

余泽成(金币+1): 鼓励应助! 2012-02-14 10:37:28
这个帖子也是function wn
真巧。也是报错。

http://muchong.com/bbs/viewthread.php?tid=4092968&fpage=1
To do great work, you have to have a pure mind.
7楼2012-02-11 13:23:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

snoopyzhao

主管区长

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

【答案】应助回帖

感谢参与,应助指数 +1
li_clifff(金币+10): 有帮助 2012-02-11 13:37:49
ben_ladeng(金币+2, 专家考核): 2012-02-11 14:16:07
把 function WN 改成 function WN() 看看……

手头没有 HP Fortran,没有办法验证……
2楼2012-02-11 12:16:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

li_clifff

兑换贵宾

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

引用回帖:
: Originally posted by snoopyzhao at 2012-02-11 12:16:57:
把 function WN 改成 function WN() 看看……

手头没有 HP Fortran,没有办法验证……

恩,加了()会有用吗?我试试看
3楼2012-02-11 12:55:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cean

超级版主

屌绳一条

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

【答案】应助回帖

感谢参与,应助指数 +1
第73行是那句?是这一句不完整。查查。
To do great work, you have to have a pure mind.
4楼2012-02-11 12:59:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 339求调剂 +5 zjjkt 2026-03-31 5/250 2026-04-01 09:18 by JourneyLucky
[考研] 材料专硕306英一数二 +5 z1z2z3879 2026-03-31 5/250 2026-04-01 08:56 by EBSD
[考研] 271求调剂 +10 勒布朗@ 2026-03-31 12/600 2026-04-01 07:25 by sunshine0013
[考研] 085602 307分 求调剂 +10 不知道叫什么! 2026-03-26 10/500 2026-03-31 19:53 by Dyhoer
[考研] 省双一流重点一本大学招收调剂 +3 wwwwffffff 2026-03-31 5/250 2026-03-31 19:49 by 曾曾曾!
[考研] 复试调剂 +7 双马尾痞老板2 2026-03-31 7/350 2026-03-31 19:49 by Dyhoer
[考研] 070300化学求调剂 +12 小黄鸭宝 2026-03-30 12/600 2026-03-31 19:15 by 253863592
[考研] 299求调剂 +8 嗯嗯嗯嗯2 2026-03-27 8/400 2026-03-31 18:23 by lizhi8172
[考研] 086000生物与医药 初试274求调剂 +4 小叮当来了 2026-03-30 4/200 2026-03-31 16:48 by shengliu165
[考研] 材料专硕调剂 +13 椰椰。 2026-03-29 13/650 2026-03-31 16:37 by hypershenger
[考研] 343求调剂 +8 爱羁绊 2026-03-28 8/400 2026-03-31 16:12 by 不吃魚的貓
[考研] 08工科,295,接受跨专业调剂 +4 lmnlzy 2026-03-31 4/200 2026-03-31 15:25 by 西京学院招办
[考研] 求调剂 +8 11ggg 2026-03-30 8/400 2026-03-31 13:56 by nanaliuyun
[考研] 274求调剂 +6 xiao爱同学 2026-03-30 6/300 2026-03-31 10:04 by cal0306
[考研] 抱歉 +4 田洪有 2026-03-30 4/200 2026-03-30 21:26 by mumin1990
[考研] 生物学学硕,一志愿湖南大学,初试成绩338 +7 YYYYYNNNNN 2026-03-26 9/450 2026-03-30 20:29 by YYYYYNNNNN
[考研] 求调剂 +10 家佳佳佳佳佳 2026-03-29 10/500 2026-03-30 18:34 by 544594351
[考研] 11408软件工程求调剂 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 21:50 by zhq0425
[考研] 339求调剂,想调回江苏 +6 烤麦芽 2026-03-27 8/400 2026-03-28 10:40 by 烤麦芽
[考研] 315分求调剂 +7 26考研上岸版26 2026-03-26 7/350 2026-03-28 04:05 by fmesaito
信息提示
请填处理意见