设为首页收藏本站如何选择编译器？在线F77转F90繁体浏览
 切换到窄版 开启辅助访问

Fortran Coder

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 求助Statement function statement cannot occur here
返回列表 发新帖
查看: 1630|回复: 4
打印 上一主题 下一主题

[求助] 求助Statement function statement cannot occur here

[复制链接]
顺利就好

28

帖子

12

主题

0

精华

入门

F 币
82 元
贡献
68 点
跳转到指定楼层
楼主
发表于 2023-9-4 21:05:06 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
各位大佬，求助一下请问报错是什么原因？
程序如下：


DO I=1,27
rZoneheight(I)=ceiling(I,9)*dz
Haverage(I)=rZoneheight(I/9)/2                                                                                                                                                            
END DO


报错结果如下：

E:\noncover-num(4).f90(141):error FOR2588: Statement function statement cannot occur here
E:\noncover-num(4).f90(142):error FOR2588: Statement function statement cannot occur here


分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩
回复

使用道具 举报

风平老涡

213

帖子

2

主题

0

精华

宗师

F 币
2142 元
贡献
875 点

规矩勋章
沙发
发表于 2023-9-4 23:58:56 | 只看该作者
本帖最后由 风平老涡 于 2023-9-5 00:00 编辑

rZoneheight是数组变量，范围是1到27。当I<9， I/9 =0 （整数算术），rZoneheight(I/9)指向rZoneheight(0)，超出数组范围。
回复 支持 1 反对 0

使用道具 举报

楚香饭

736

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
700 元
贡献
359 点

新人勋章爱心勋章水王勋章元老勋章热心勋章
板凳
发表于 2023-9-5 08:51:37 | 只看该作者
rZoneheight 或者 Haverage 没有定义成数组吧，所以编译器误以为
rZoneheight(I)=ceiling(I,9)*dz
是个语句函数（Statement function）
回复 支持 反对

使用道具 举报

顺利就好

28

帖子

12

主题

0

精华

入门

F 币
82 元
贡献
68 点
地板
 楼主| 发表于 2023-9-5 09:58:00 | 只看该作者
风平老涡 发表于 2023-9-4 23:58
rZoneheight是数组变量，范围是1到27。当I

好的谢谢大佬，我马上查看一下
回复 支持 反对

使用道具 举报

顺利就好

28

帖子

12

主题

0

精华

入门

F 币
82 元
贡献
68 点
5#
 楼主| 发表于 2023-9-5 09:59:06 | 只看该作者
楚香饭 发表于 2023-9-5 08:51
rZoneheight 或者 Haverage 没有定义成数组吧，所以编译器误以为
rZoneheight(I)=ceiling(I,9)*dz
是个语句 ...

好的谢谢大佬，我马上查看一下
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-23 18:58

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表