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

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 在HP Fortran 90的一个编译问题:incomplete statement, 谢谢
52/1返回列表
查看: 1141  |  回复: 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的回帖

li_clifff

银虫 (正式写手)
引用回帖:
楼: Originally posted by snoopyzhao at 2012-02-11 14:21:50:
这个多半是数组越界啥的了……但应该与上面的错误没有什么关系……

不会啊，在Visual fortran下运行得好好的，我在pc机都能运行，居然在学校的服务器不行！！！
赞一下 回复此楼
11楼2012-02-14 11:29:44
 已阅   回复此楼   关注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的回帖
查看全部 11 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭