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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran 调用子程序时，出现program exception-access violation
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 2581  |  回复: 9
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

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
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2014-11-03 15:49:16
已阅   回复此楼   关注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的回帖
查看全部 10 个回答

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 时间显示在何处越界。

我在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的回帖

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的回帖
查看全部 10 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 081200-11408-276学硕求调剂 +6 崔wj 2026-03-26 6/300 2026-03-29 01:11 by hanserlol
[考研] 调剂求院校招收 +5 鹤鲸鸽 2026-03-28 5/250 2026-03-29 01:10 by 我是小康
[考研] 0703本科郑州大学求调剂 +3 nhj_ 2026-03-25 3/150 2026-03-28 13:24 by Iveryant
[考研] 材料与化工考研调剂 +17 孅華 2026-03-22 17/850 2026-03-28 08:35 by WYUMater
[考研] 311求调剂 +3 希望上岸阿小杨 2026-03-23 3/150 2026-03-28 07:57 by 热情沙漠
[考研] 材料求调剂 一志愿哈工大总分298分，前三科223分 +5 dongfang59 2026-03-27 5/250 2026-03-28 04:53 by wxiongid
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 265求调剂 +8 小木虫085600 2026-03-27 8/400 2026-03-27 22:16 by 无际的草原
[考研] 333求调剂 +3 question挽风 2026-03-23 3/150 2026-03-27 11:29 by 不吃魚的貓
[考研] 材料调剂 +8 匹克i 2026-03-23 8/400 2026-03-27 08:11 by hypershenger
[考研] 081200-11408-276学硕求调剂 +4 崔wj 2026-03-26 4/200 2026-03-27 08:04 by chemisry
[考研] 333求调剂 +6 wfh030413@ 2026-03-23 6/300 2026-03-26 22:45 by 学员8dgXkO
[考研] 321求调剂 +6 wasdssaa 2026-03-26 6/300 2026-03-26 20:57 by sanrepian
[考研] 一志愿上海交大生物与医药专硕324分，求调剂 +6 jiajunX 2026-03-22 6/300 2026-03-25 23:05 by licg0208
[考研] 332求调剂 +6 032500 2026-03-25 6/300 2026-03-25 22:45 by 418490947
[考研] 机械学硕总分317求调剂！！！！ +4 Acaciad 2026-03-25 4/200 2026-03-25 19:59 by hanserlol
[考研] 0854AI CV方向招收调剂 +4 章小鱼567 2026-03-23 4/200 2026-03-25 17:04 by CoderLoser
[考研] 0854人工智能方向招收调剂 +4 章小鱼567 2026-03-24 4/200 2026-03-25 13:29 by 2177681040
[考研] 340求调剂 +5 话梅糖111 2026-03-24 5/250 2026-03-25 06:53 by ilovexiaobin
[考研] 一志愿武理085500机械专业总分300求调剂 +3 an10101 2026-03-24 7/350 2026-03-25 00:00 by 山鬼0-
信息提示
关闭
请填处理意见
关闭