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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 在HP Fortran 90的一个编译问题:incomplete statement, 谢谢
111/2返回列表12下一页
查看: 1241  |  回复: 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下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 281求调剂（0805） +8 烟汐忆海 2026-03-16 18/900 2026-03-19 11:18 by kakakapanpan
[考研] 085601材料工程专硕求调剂 +7 慕寒mio 2026-03-16 7/350 2026-03-19 10:57 by w沐阳w
[考研] 一志愿985，本科211，0817化学工程与技术319求调剂 +10 Liwangman 2026-03-15 10/500 2026-03-19 10:25 by 无际的草原
[教师之家] 焦虑 +9 水冰月月野兔 2026-03-13 13/650 2026-03-19 09:50 by otani
[考研] 330求调剂 +3 小材化本科 2026-03-18 3/150 2026-03-18 21:55 by 无懈可击111
[考研] 328求调剂，英语六级551，有科研经历 +3 生物工程调剂 2026-03-17 7/350 2026-03-18 20:41 by Wangjingyue
[考研] 化学工程321分求调剂 +15 大米饭！ 2026-03-15 18/900 2026-03-18 14:52 by haxia
[考研] 材料与化工一志愿南昌大学327求调剂推荐 +8 Ncdx123456 2026-03-13 9/450 2026-03-18 14:40 by haxia
[考研] 0703化学调剂 ，六级已过，有科研经历 +10 曦熙兮 2026-03-15 10/500 2026-03-18 14:19 by 007_lilei
[考研] 材料，纺织，生物（0856、0710），化学招生啦 +3 Eember. 2026-03-17 9/450 2026-03-18 10:28 by Eember.
[考研] 生物学071000 329分求调剂 +3 我爱生物生物爱� 2026-03-17 3/150 2026-03-18 10:12 by macy2011
[考研] 307求调剂 +3 冷笙123 2026-03-17 3/150 2026-03-18 09:55 by macy2011
[考研] 环境工程调剂 +8 大可digkids 2026-03-16 8/400 2026-03-18 09:36 by zhukairuo
[考博] 26博士申请 +3 1042136743 2026-03-17 3/150 2026-03-17 23:30 by 轻松不少随
[考研] 本人考085602 化学工程 专硕 +16 不知道叫什么！ 2026-03-15 18/900 2026-03-17 17:05 by ruiyingmiao
[考研] 一志愿211 0703方向310分求调剂 +3 努力奋斗112 2026-03-15 3/150 2026-03-16 16:44 by houyaoxu
[考研] 一志愿华中师范071000，325求调剂 +6 RuitingC 2026-03-12 6/300 2026-03-16 14:50 by 可淡不可忘
[考研] 本科南京大学一志愿川大药学327 +3 麦田耕者 2026-03-14 3/150 2026-03-14 20:04 by 外星文明
[考研] 中科大材料专硕319求调剂 +3 孟鑫材料 2026-03-13 3/150 2026-03-14 18:10 by houyaoxu
[考研] 工科材料085601 279求调剂 +8 困于星晨 2026-03-12 10/500 2026-03-13 15:42 by ms629
信息提示
关闭
请填处理意见
关闭