24小时热门版块排行榜    

Znn3bq.jpeg
查看: 2617  |  回复: 9

todd0226

新虫 (初入文坛)

[求助] fortran 调用子程序时,出现program exception-access violation 已有1人参与

大家好,本人fortran新人,编了一段程序,但是在运行时出现了如题所示的错误!
因为程序太长,而且错综复杂,不方便贴出,敬请见谅!
下面我进行一些相关的描述,请各位指导!
我通过debug调试出问题的出处:错误信息出现在subroutine info_nd(...)这一行
其中:step,nelm, nj,nnode 是在主程序中声明的整数常量
           剩余的变量全是数组,全部是动态变量,而且我全部在主程序中进行了allocate,各个数组的维数以及上下界和子程序中声明的完全一样。
调试时,屏幕输出了“info_nd调试开始”,没有输出“info_nd调试第一点”,而且绿色箭头指向了subroutine info_nd(...),所以我断定问题出处在这一行。
我网上搜了一下,这种问题的可能原因之一是数组越界,但是我感觉我的这种定义数组的形式应该不会造成这个问题(?)
此外,有这样一个现象:nj = 6904,nelm=6804的时候,无论debug还是release都会在subroutine info_nd(...)这一行出现如题目所说的问题;但是当我把nj,nelm调小了之后(<6000),发现debug下可以运行成功,但是release仍然出现上述问题。
所以在此请教大家,恳请予以指导!谢谢!


主程序
program main
integer,parameter:: step=10,nj=6904,nelm=6804,nnode=4
......
......   
do istp = 1,step
      ......
      write(*,*)'info_nd调试开始'
      call info_nd(step,istp,nelm,nj,nnode,maxgint,id_el_nd,id_nd_el,num_nd_el,gint_t,gint,elarea,stgp,svars_gp,sig11_nd,sig22_nd,sig12_nd,mises_nd)
      ......
end do
......
end   !主程序结束

出现问题的子程序
subroutine info_nd(step,istp,nelm,nj,nnode,maxgint,id_el_nd,id_nd_el,num_nd_el,gint_t,gint,elarea,stgp,svars_gp,sig11_nd,sig22_nd,sig12_nd,mises_nd)
implicit none

integer   step,istp,nelm,nj,nnode
integer::   id_el_nd(nelm,nnode),id_nd_el(nj,nelm),num_nd_el(nj),gint_t(nelm+1,step),gint(nelm,step),maxgint(step)
real*8::   svars_gp(nelm,20*24,step),elarea(nelm),stgp(3,24*nelm,step)
real*8::   sig_nd_temp(nnode,3),sig11_nd_temp(nj,nelm),sig22_nd_temp(nj,nelm),sig12_nd_temp(nj,nelm)
real*8::   sig11_nd(nj,step),sig22_nd(nj,step),sig12_nd(nj,step),mises_nd(nj,step),area(nj)
real*8::   NTN(nnode,nnode),invNTN(nnode,nnode)
real*8,allocatable::   sig_gp(:,,N(:,,NT(:,,invN(:,
real*8    sigp,tigp
integer   gint_el,gint_iel
integer   iel,igp,i,j,ii

write(*,*)'info_nd调试第一点'
......
end
回复此楼

» 猜你喜欢

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

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

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

感谢参与,应助指数 +1
在你的makefile (或编译 option)里加上 /check:bounds  /traceback
就会在runtime 时间显示在何处越界。
2楼2014-11-03 18:50:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

todd0226

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by pippi6 at 2014-11-03 18:50:05
在你的makefile (或编译 option)里加上 /check:bounds  /traceback
就会在runtime 时间显示在何处越界。

不好意思,对这个我了解的不多。
你说的在Makefile里加上 /check:bounds  /traceback,Makefile是我编写的源程序文件吗?加在哪个位置?
编译option,这是编译器的选项吗?我用的是Intel visual Fortran编译器,没有找到这一项呀?
3楼2014-11-03 21:35:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

todd0226

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by pippi6 at 2014-11-03 18:50:05
在你的makefile (或编译 option)里加上 /check:bounds  /traceback
就会在runtime 时间显示在何处越界。

我在Intel visual Fortran中找到了/check:bound /trackback,然后调试发现没有出现数组越界的问题。
在运行到subroutine info_nd(...)时,
提示信息说:其原因可能是堆被破坏,这说明NASA_mb05_p1.exe中或它               所加载的任何DLL中有Bug。原因也可能是用户在NASA_mb05_p1.exe具有焦点时按下了F12

其中,不是后一个原因,在运行时我并没有碰到键盘,关于第一个原因,能从中得到哪些信息呢?
4楼2014-11-04 10:12:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

内容已删除
5楼2014-11-04 14:07:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

todd0226

新虫 (初入文坛)

引用回帖:
5楼: Originally posted by pippi6 at 2014-11-04 14:07:08
ok。如果加了 /check:bounds /trackback 没有查到,说明这不是你自编程序中的数组越界。有可能是使用的dll或lib之类的问题。这就很难查了。因为那些软件在编译时没有使用  /check:bounds /trackback 。

最好使用 ...

下面是调试程序运行时出现的信息:
“NASA_mb05_p1.exe”: 已加载“D:\XDT\IVF\NASA_mb05_p1\NASA_mb05_p1\x64\Debug\NASA_mb05_p1.exe”,已加载符号。
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\ntdll.dll”
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\kernel32.dll”
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\KernelBase.dll”
“NASA_mb05_p1.exe”: 已加载“D:\Program Files (x86)\Intel\Composer XE 2013\redist\intel64\compiler\libiomp5md.dll”,已加载符号(去除源信息)。
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\imagehlp.dll”
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\msvcrt.dll”
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\advapi32.dll”
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\sechost.dll”
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\rpcrt4.dll”
“NASA_mb05_p1.exe”: 已卸载“C:\Windows\System32\advapi32.dll”
“NASA_mb05_p1.exe”: 已卸载“C:\Windows\System32\sechost.dll”
“NASA_mb05_p1.exe”: 已卸载“C:\Windows\System32\rpcrt4.dll”
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\advapi32.dll”
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\sechost.dll”
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\rpcrt4.dll”
“NASA_mb05_p1.exe”: 已卸载“C:\Windows\System32\advapi32.dll”
“NASA_mb05_p1.exe”: 已卸载“C:\Windows\System32\sechost.dll”
“NASA_mb05_p1.exe”: 已卸载“C:\Windows\System32\rpcrt4.dll”
NASA_mb05_p1.exe 中的 0x0000000140586727 处最可能的异常: 0xC0000005: 写入位置 0x000000000000f000 时发生访问冲突
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\dbghelp.dll”
HEAP[NASA_mb05_p1.exe]: HEAP: Free Heap block 20a80 modified at 21000 after it was freed
Windows 已在 NASA_mb05_p1.exe 中触发一个断点。

其原因可能是堆被损坏,这说明 NASA_mb05_p1.exe 中或它所加载的任何 DLL 中有 Bug。

原因也可能是用户在 NASA_mb05_p1.exe 具有焦点时按下了 F12。

输出窗口可能提供了更多诊断信息。
程序“[3172] NASA_mb05_p1.exe: 本机”已退出,返回值为 0 (0x0)。

不知道从“HEAP[NASA_mb05_p1.exe]: HEAP: Free Heap block 20a80 modified at 21000 after it was freed”中能得到什么信息吗
6楼2014-11-04 15:55:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

引用回帖:
6楼: Originally posted by todd0226 at 2014-11-04 15:55:59
下面是调试程序运行时出现的信息:
“NASA_mb05_p1.exe”: 已加载“D:\XDT\IVF\NASA_mb05_p1\NASA_mb05_p1\x64\Debug\NASA_mb05_p1.exe”,已加载符号。
“NASA_mb05_p1.exe”: 已加载“C:\Windows\System32\ntd ...

No idea。已经不是fortran问题了
7楼2014-11-04 17:20:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

todd0226

新虫 (初入文坛)

引用回帖:
7楼: Originally posted by pippi6 at 2014-11-04 17:20:43
No idea。已经不是fortran问题了...

好的,多谢
8楼2014-11-04 21:08:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

安明三空

铜虫 (初入文坛)

请教一下楼主 我也遇到了同样的问题,请问你是在哪里找到的/check:bounds  /traceback  呢?
9楼2016-05-12 16:32:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

安明三空

铜虫 (初入文坛)

引用回帖:
3楼: Originally posted by todd0226 at 2014-11-03 21:35:45
不好意思,对这个我了解的不多。
你说的在Makefile里加上 /check:bounds  /traceback,Makefile是我编写的源程序文件吗?加在哪个位置?
编译option,这是编译器的选项吗?我用的是Intel visual Fortran编译器, ...

请教楼主 /check:bounds  /traceback 是在哪里找到的呢
10楼2016-05-12 16:33:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 todd0226 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0854求调剂 +17 门路摸摸 2026-04-15 19/950 2026-04-16 10:24 by dick_runner
[考研] 求调剂学校 +14 不会吃肉 2026-04-13 16/800 2026-04-15 21:59 by noqvsozv
[考研] 297,工科调剂? +10 河南农业大学-能 2026-04-14 10/500 2026-04-15 21:50 by noqvsozv
[考研] 0854调剂 +13 长弓傲 2026-04-12 16/800 2026-04-15 13:45 by fenglj492
[考研] 药学305求调剂 +7 玛卡巴卡boom 2026-04-11 7/350 2026-04-15 13:21 by 西北望—风沙
[考研] 复试调剂 +21 积极向上; 2026-04-10 23/1150 2026-04-15 12:50 by 西北望—风沙
[考研] 290求调剂 +21 luoziheng 2026-04-10 23/1150 2026-04-14 15:49 by zs92450
[考研] 求调剂 +16 雪逢冬 2026-04-10 16/800 2026-04-14 14:27 by 逆水乘风
[考研] 一志愿双非085400电子信息344 求调剂,对材料和化学方向也感兴趣 +12 无情的小羊 2026-04-09 13/650 2026-04-13 14:17 by 张zhihao
[考研] 0854调剂 +10 长弓傲 2026-04-11 11/550 2026-04-13 10:38 by wp06
[考研] 一志愿085802 323分求调剂 +13 drizzle_9 2026-04-12 14/700 2026-04-13 10:26 by Faiz5552
[考研] 材料与化工300求调剂 +39 肖开文 2026-04-09 43/2150 2026-04-12 01:30 by 秋豆菜芽
[考研] 调剂 +10 只叙离别辞 2026-04-09 12/600 2026-04-11 20:57 by 逆水乘风
[考研] 352 求调剂 +6 yzion 2026-04-11 8/400 2026-04-11 16:24 by 明月此时有
[考研] 085410-273求调剂 +6 X1999 2026-04-10 6/300 2026-04-11 10:32 by Delta2012
[考研] 22408 327分求调剂 +4 韵风kon 2026-04-10 4/200 2026-04-11 09:51 by 猪会飞
[考研] 337求调剂 +4 研s. 2026-04-10 4/200 2026-04-11 08:57 by zhq0425
[考研] 346,工科0854求调剂,专硕 +7 moser233 2026-04-10 8/400 2026-04-11 08:52 by 猪会飞
[考研] 材料与化工调剂 +12 否极泰来2026 2026-04-10 13/650 2026-04-11 00:28 by wangjihu
[考研] 一志愿沪9,326生物学求相关专业调剂 +4 刘墨墨 2026-04-09 4/200 2026-04-10 12:07 by pengliang8036
信息提示
请填处理意见