应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 在HP Fortran 90的一个编译问题:incomplete statement, 谢谢
北京石油化工学院2026年研究生招生接收调剂公告
111/2返回列表12下一页
查看: 1260  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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, 没看出来，请帮忙，谢谢
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2012-02-11 11:05:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

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的回帖

li_clifff

银虫 (正式写手)
引用回帖:
4楼: Originally posted by cean at 2012-02-11 12:59:05:
第73行是那句？是这一句不完整。查查。

第73行就是

function WN
赞一下 回复此楼
5楼2012-02-11 13:03:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cean

金虫 (职业作家)

屌绳一条

【答案】应助回帖

li_clifff(金币+10): ★★★很有帮助 2012-02-11 13:37:59
余泽成(金币+1): 鼓励应助！ 2012-02-14 10:37:20
你的wn是要return的值，函数名要另起。
类型写在function之前。如下：

Real function aa()
赞一下 回复此楼
To do great work, you have to have a pure mind.
6楼2012-02-11 13:16:40
已阅   回复此楼   关注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的回帖

li_clifff

银虫 (正式写手)
引用回帖:
7楼: Originally posted by cean at 2012-02-11 13:23:42:
这个帖子也是function wn
真巧。也是报错。

http://muchong.com/bbs/viewthread.php?tid=4092968&fpage=1

这个程序在做Brownian dynamics通用的一个模块，把function WN
加了WN（），编译居然成功了，太奇怪了
赞一下 回复此楼
8楼2012-02-11 13:39:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

li_clifff

银虫 (正式写手)
但是运行./ BD1.exe，却出现问题：
Memory  fault(coredump)
赞一下 回复此楼
9楼2012-02-11 13:41:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
余泽成(金币+1): 鼓励应助！ 2012-02-14 10:37:38
ben_ladeng(专家考核): 2012-02-14 12:10:54
引用回帖:
9楼: Originally posted by li_clifff at 2012-02-11 13:41:48:
但是运行./ BD1.exe，却出现问题：
Memory  fault(coredump)

这个多半是数组越界啥的了……但应该与上面的错误没有什么关系……
赞一下 回复此楼
10楼2012-02-11 14:21:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 li_clifff 的主题更新
111/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[有机交流] 3-溴吡啶-4-甲醛合成 10+3 雪糕也能爆炸 2026-03-31 9/450 2026-04-06 00:24 by nBu锂
[考研] 材料调剂 +7 一样YWY 2026-04-05 8/400 2026-04-05 21:20 by 学员8dgXkO
[考研] 08专硕275调剂 +5 AaAa7420 2026-04-05 5/250 2026-04-05 18:01 by jkddd
[考研] 一志愿 南京航空航天大学 ，080500材料科学与工程学硕 +10 @taotao 2026-03-30 10/500 2026-04-05 17:57 by jj987
[考研] 359求调剂22408 +3 123456789qw 2026-03-31 3/150 2026-04-05 10:09 by zhq0425
[考研] 考研调剂 +11 小sun要好运 2026-04-04 11/550 2026-04-05 08:02 by qlm5820
[考研] 材料科学与工程调剂 +19 深V宿舍吧 2026-03-30 20/1000 2026-04-04 22:13 by hemengdong
[考研] 272求调剂 +4 松柏常青5 2026-04-03 4/200 2026-04-04 17:03 by babysonlkd
[考研] 319求调剂 +4 星星不眨眼喽 2026-04-03 4/200 2026-04-04 16:25 by 中飞院空管学院�
[考研] 一志愿双非085502，267分，过四级求调剂 +3 再忙也要吃饭啊 2026-04-03 3/150 2026-04-04 05:03 by gswylq
[考研] 考研调剂 +3 15615482637 2026-04-03 3/150 2026-04-03 22:50 by ms629
[考研] 数二英二348求调剂 +4 hxdzj1 2026-04-03 5/250 2026-04-03 21:25 by zhq0425
[考研] 调剂 +5 asdasdassda 2026-04-03 6/300 2026-04-03 20:27 by 岸上的一条鱼
[考研] 求调剂 +4 15064154688 2026-04-03 5/250 2026-04-03 15:07 by zrongyan
[考研] 266求调剂 +3 08电气工程 2026-04-03 3/150 2026-04-03 14:05 by 1753564080
[考研] 专硕 351 086100 也是考的材科基 本科也是材料 +8 202451007219 2026-04-02 8/400 2026-04-03 09:50 by 蓝云思雨
[考研] 求调剂！生物与医药专硕 +4 逆转陆先生 2026-04-01 5/250 2026-04-03 08:33 by Jaylen.
[考研] 一志愿北京科技材料科学与工程288分，求调剂 +14 是辰啊 2026-04-02 14/700 2026-04-02 21:10 by dongzh2009
[考研] 一志愿上海海洋大学083200食品学硕，求调剂，接受其他专业 +6 what张 2026-04-01 7/350 2026-04-02 16:48 by zzsw+
[考研] 262求调剂 +9 励志一定发文章 2026-03-31 10/500 2026-04-01 12:22 by sunshine0013
信息提示
关闭
请填处理意见
关闭