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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 在HP Fortran 90的一个编译问题:incomplete statement, 谢谢
111/2返回列表12下一页
查看: 1143  |  回复: 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下一页
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭