24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 3497  |  回复: 13

gelitao1234

金虫 (正式写手)

[求助] 请教 fortran 运行错误的原因

Error        1         Error: The storage extent of the dummy argument exceeds that of the actual argument.   [YY]        此类错误是是什么原因?怎么改正?
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   关注TA 给TA发消息 送TA红花 TA的回帖

hklulu

木虫 (正式写手)

000

【答案】应助回帖

感谢参与,应助指数 +1
实参和虚参不匹配或用到了没有声明的数组。
00
2楼2012-05-01 12:27:29
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

hklulu

木虫 (正式写手)

000

【答案】应助回帖


xzhdty: 金币+1, 欢迎常来程序语言看看 2012-05-02 06:43:50
如果数组长度不确定,可以用(*)在被调用的函数中声明数组。
00
3楼2012-05-01 12:29:45
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

Carpathia

银虫 (小有名气)

【答案】应助回帖


感谢参与,应助指数 +1
xzhdty: 金币+1, 欢迎常来程序语言讨论 2012-05-02 06:43:36
函数体里的形式参数的数组大小超过了主程序里的实际参数数组大小,也就是参数不匹配。
更改可以是使用(1)显式结构形参数组,(2)不定结构形参数组
1) 显式结构形参数组:
subroutine subr(n,array)
integer:: n
real:: array(n)

2) 不定结构形参数组
subroutine subr(array)
real:: array(
追求理想的道路上东张西望
4楼2012-05-01 13:02:53
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

Carpathia

银虫 (小有名气)

ls的是冒号和括号
追求理想的道路上东张西望
5楼2012-05-01 13:05:34
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

gelitao1234

金虫 (正式写手)

引用回帖:
2楼: Originally posted by hklulu at 2012-05-01 12:27:29:
实参和虚参不匹配或用到了没有声明的数组。

非常感谢你的帮助,有个 问题是为什么程序在VISUAL studio上运行出现这种错误,而在fortran 90/95上运行正常,没有错误呢?
6楼2012-05-03 13:43:45
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

gelitao1234

金虫 (正式写手)

引用回帖:
4楼: Originally posted by Carpathia at 2012-05-01 13:02:53:
函数体里的形式参数的数组大小超过了主程序里的实际参数数组大小,也就是参数不匹配。
更改可以是使用(1)显式结构形参数组,(2)不定结构形参数组
1) 显式结构形参数组:
subroutine subr(n,array)
integer:: n ...

非常感谢你的帮助,有个 问题是为什么程序在VISUAL studio上运行出现这种错误,而在fortran 90/95上运行正常,没有错误呢?
7楼2012-05-03 13:43:57
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

gelitao1234

金虫 (正式写手)

引用回帖:
5楼: Originally posted by Carpathia at 2012-05-01 13:05:34:
ls的是冒号和括号

非常感谢你的帮助,有个 问题是为什么程序在VISUAL studio上运行出现这种错误,而在fortran 90/95上运行正常,没有错误呢?
8楼2012-05-03 13:44:07
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

hklulu

木虫 (正式写手)

000

【答案】应助回帖

引用回帖:
6楼: Originally posted by gelitao1234 at 2012-05-03 15:43:45:
非常感谢你的帮助,有个 问题是为什么程序在VISUAL studio上运行出现这种错误,而在fortran 90/95上运行正常,没有错误呢?

这是因为有些高版本的编译器自动扩界,编译通常可以通过,但可能会有警告。建议楼主还是修改一下代码。

也可能跟77和90,95的动态数组有关。
00
9楼2012-05-03 15:19:44
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

hklulu

木虫 (正式写手)

000

【答案】应助回帖

这个问题主要是由于有些编译器要求:在子函数中保证传递进来的数组在主程序中的下标也是从1开始的。

如在你的主程序中三维数组都是从零开始的,而在子函数中确实从1开始的,并且数组上下界都不一样,这造成了有些编译器认为是严重的错误,我也认为是,从而停止编译。

从你的程序来看,三维数组的定义不统一,为什么要不一样呢?强烈建议上下界一样。

再要注意部分赋值问题。在程序的111,112,118,119,127,145,147等行上,原来三维的数组进行了二维赋值,为何不用三个循环赋值呢,这样很容易出现问题。
00
10楼2012-05-04 15:08:51
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 gelitao1234 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿西南大学生物学学硕344 求生物学相关调剂/生物与医药 +8 超人不会飞@ 2026-04-08 8/400 2026-04-14 16:06 by zs92450
[考研] 人工智能320调剂08工类还有机会吗 +18 振—TZ 2026-04-10 19/950 2026-04-14 10:34 by screening
[考研] 305求调剂 +8 玛卡巴卡boom 2026-04-11 8/400 2026-04-14 09:04 by pengliang8036
[考研] 求调剂 +12 璃茉一定上岸 2026-04-10 13/650 2026-04-14 00:08 by Equinoxhua
[考研] 一志愿2110,化学学硕310分,本科重点双非求调剂 +20 努力奋斗112 2026-04-08 20/1000 2026-04-13 14:24 by 张zhihao
[考研] 211本科材料化工求调剂 +17 YHLAH 2026-04-11 20/1000 2026-04-13 08:46 by Sammy2
[教师之家] 山东双非院校考核超级无底线,领导幸灾乐祸,教师遭殃恐 +3 qut2026 2026-04-11 7/350 2026-04-12 20:24 by qut2026
[考研] 22408 352分求调剂 +5 努力的夏末 2026-04-09 5/250 2026-04-12 19:17 by wj165256
[考研] 291分调剂 +5 上岸小莹加油 2026-04-09 6/300 2026-04-11 21:06 by 逆水乘风
[考研] 284求调剂 +11 archer.. 2026-04-09 12/600 2026-04-11 20:23 by 蓝云思雨
[考研] 298求调剂 +5 残荷新柳 2026-04-07 5/250 2026-04-11 11:02 by 紫曦紫棋
[考研] 083200 305分 求二轮调剂 不接受跨专业 +9 Claireyyyy 2026-04-09 10/500 2026-04-10 21:21 by Claireyyyy
[考研] 22408 366分,本科211,一志愿西工大 +4 Rubt 2026-04-09 4/200 2026-04-10 19:51 by chemisry
[考研] 一志愿华东师范生物学326分,求调剂 +8 刘墨墨 2026-04-09 8/400 2026-04-10 12:00 by pengliang8036
[考研] 一志愿中科大070300化学,314分求调剂 +12 wakeluofu 2026-04-09 12/600 2026-04-10 09:57 by liuhuiying09
[考研] 070300化学 求调剂 +13 73372112 2026-04-08 13/650 2026-04-09 20:22 by maddjdld
[考研] 一志愿中科院105500专业总分315求调剂 +6 lallalh 2026-04-09 7/350 2026-04-09 17:51 by lallalh
[考研] 求机械专硕297第二批调剂 +5 拾柒12。 2026-04-08 5/250 2026-04-09 16:43 by 允当适度
[考研] 生物学328分求调剂 +9 闪电kkl 2026-04-08 10/500 2026-04-08 21:42 by liuhuiying09
[考研] 307求调剂 +3 Youth@@ 2026-04-07 3/150 2026-04-07 22:00 by hemengdong
信息提示
请填处理意见