Fortran Coder

查看: 11778|回复: 6
打印 上一主题 下一主题

[子程序] 关于子程序内存的问题

[复制链接]

60

帖子

17

主题

0

精华

专家

F 币
454 元
贡献
266 点
跳转到指定楼层
楼主
发表于 2017-4-3 16:20:32 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
小弟以前写了一个Tecplot后处理的程序。
一开始写的时候,由于针对的都是100*100以内的网格,就没用module,在子程序内几个动态数组来算。后来碰到了600*300左右的网格,程序一跑就报错,都是调用这个子程序的那个地方overflow了。于是想着内存出问题就减内存,于是把integer的数组改成了integer(kind=2)来跑。结果跑起来了。再后来遇到了600*600左右的网格,由于integer(kind=2)已经是极限了,看了半天没法削,结果把子程序内的数组用module封装了起来,结果跑起来了。
在这想问一下,为什么这些数组封装在子程序内就会溢出,而封装在module内由子程序调用就能跑呢?子程序的内存大小是有什么限制么?这个限制能否调节?怎么调?

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

838

帖子

2

主题

0

精华

大宗师

F 币
3937 元
贡献
2339 点
沙发
发表于 2017-4-3 22:01:09 | 只看该作者
overflow可能是栈溢出,也可能是浮点溢出,最好截个图来看。

60

帖子

17

主题

0

精华

专家

F 币
454 元
贡献
266 点
板凳
 楼主| 发表于 2017-4-4 09:33:49 | 只看该作者
li913 发表于 2017-4-3 22:01
overflow可能是栈溢出,也可能是浮点溢出,最好截个图来看。

是堆栈溢出。报错信息是:Program exception - stack overflow
报错位置是我调用子函数的地方。

程序在mx=30, my=30和mx=300, my=300的时候可以运行,一旦mx=600, my=600左右就报错说stack overflow了。

以下是程序开头的部分:
[Fortran] 纯文本查看 复制代码
01subroutine tecplotFE_number(Mx,My,Flg,ff)
02    use tec_2D_number
03    use tec_temp_number
04! ======== for tecplot output: type=Fequadrilateral ==================
05!  _______ 1
06!  |     |
07!  | flg |
08!  |     |
09!  ------- MY
10!  1 ... MX
11! ====================================================================
12    implicit none
13    integer::I,J,K,K1,K2
14    integer,intent(in)::MX,MY
15    real(kind=8),intent(in)::flg(Mx-1,My-1)
16    real(kind=8)::err
17    logical::Fs,fe,fl
18    integer::IJx(MX,MY),IJy(MX,MY)
19    integer::II(4),JJ(4)
20    integer::ff                                                       !ff=1 : use tec_2D_number ff=2 : use tec_tmpnumber
21! ======== temp ========
22    integer::node1
23    integer::elem1
24    integer,allocatable::OET1(:,:)
25    integer,allocatable::listNx1(:),listNy1(:)
26    integer,allocatable::listEx1(:),listEy1(:)

838

帖子

2

主题

0

精华

大宗师

F 币
3937 元
贡献
2339 点
地板
发表于 2017-4-4 09:38:44 | 只看该作者
栈溢出看这里
FAQ之 常见错误分析
http://fcode.cn/guide-36-1.html

60

帖子

17

主题

0

精华

专家

F 币
454 元
贡献
266 点
5#
 楼主| 发表于 2017-4-4 10:17:39 | 只看该作者
li913 发表于 2017-4-4 09:38
栈溢出看这里
FAQ之 常见错误分析
http://fcode.cn/guide-36-1.html

谢谢指导。
试了一下上述方法,确实没有报错了。
为什么将子程序中的数组全部用module封装起来然后用use来调用就不会报错呢?

838

帖子

2

主题

0

精华

大宗师

F 币
3937 元
贡献
2339 点
6#
发表于 2017-4-4 10:55:11 | 只看该作者
可能是module中变量的内存位置不同吧。你可以看看http://fcode.cn/guide-99-1.html

60

帖子

17

主题

0

精华

专家

F 币
454 元
贡献
266 点
7#
 楼主| 发表于 2017-4-4 11:50:39 | 只看该作者
li913 发表于 2017-4-4 10:55
可能是module中变量的内存位置不同吧。你可以看看http://fcode.cn/guide-99-1.html

受教了,总算搞清楚了。谢谢!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2025-5-2 00:13

Powered by Discuz! X3.4

© 2013-2025 Comsenz Inc.

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