版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

todd0226

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 416.8
帖子: 45
在線: 40.3小時(shí)
蟲(chóng)號(hào): 2342235
注冊(cè): 2013-03-13
專業(yè): 機(jī)械工程

[求助] fortran 調(diào)用子程序時(shí)，出現(xiàn)program exception-access violation 已有1人參與

大家好，本人fortran新人，編了一段程序，但是在運(yùn)行時(shí)出現(xiàn)了如題所示的錯(cuò)誤！
因?yàn)槌绦蛱L(zhǎng),而且錯(cuò)綜復(fù)雜，不方便貼出，敬請(qǐng)見(jiàn)諒！
下面我進(jìn)行一些相關(guān)的描述，請(qǐng)各位指導(dǎo)！
我通過(guò)debug調(diào)試出問(wèn)題的出處：錯(cuò)誤信息出現(xiàn)在subroutine info_nd（...）這一行
其中：step,nelm, nj,nnode 是在主程序中聲明的整數(shù)常量
         剩余的變量全是數(shù)組，全部是動(dòng)態(tài)變量，而且我全部在主程序中進(jìn)行了allocate，各個(gè)數(shù)組的維數(shù)以及上下界和子程序中聲明的完全一樣。
調(diào)試時(shí)，屏幕輸出了“info_nd調(diào)試開(kāi)始”，沒(méi)有輸出“info_nd調(diào)試第一點(diǎn)”，而且綠色箭頭指向了subroutine info_nd(...),所以我斷定問(wèn)題出處在這一行。
我網(wǎng)上搜了一下，這種問(wèn)題的可能原因之一是數(shù)組越界，但是我感覺(jué)我的這種定義數(shù)組的形式應(yīng)該不會(huì)造成這個(gè)問(wèn)題（？）
此外，有這樣一個(gè)現(xiàn)象：nj = 6904,nelm=6804的時(shí)候，無(wú)論debug還是release都會(huì)在subroutine info_nd(...)這一行出現(xiàn)如題目所說(shuō)的問(wèn)題；但是當(dāng)我把nj，nelm調(diào)小了之后（<6000），發(fā)現(xiàn)debug下可以運(yùn)行成功，但是release仍然出現(xiàn)上述問(wèn)題。
所以在此請(qǐng)教大家，懇請(qǐng)予以指導(dǎo)！謝謝！

主程序
program main
integer,parameter:: step=10,nj=6904,nelm=6804,nnode=4
......
......
do istp = 1,step
   ......
   write(*,*)'info_nd調(diào)試開(kāi)始'
   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 !主程序結(jié)束

出現(xiàn)問(wèn)題的子程序
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調(diào)試第一點(diǎn)'
......
end

回復(fù)此樓

» 猜你喜歡

283分材料與化工求調(diào)劑已經(jīng)有10人回復(fù)
材料調(diào)劑已經(jīng)有6人回復(fù)
材料340分調(diào)劑已經(jīng)有6人回復(fù)
321求調(diào)劑一志愿浙江工業(yè)大學(xué)生物醫(yī)藥已經(jīng)有6人回復(fù)
085801 總分275 本科新能源求調(diào)劑已經(jīng)有19人回復(fù)
285求調(diào)劑已經(jīng)有13人回復(fù)
280求調(diào)劑已經(jīng)有5人回復(fù)
一志愿085600中科院寧波所276分求調(diào)劑已經(jīng)有27人回復(fù)
071000生物學(xué)調(diào)劑已經(jīng)有5人回復(fù)
26考研調(diào)劑已經(jīng)有4人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

關(guān)于fortran子程序調(diào)用內(nèi)部函數(shù) 已經(jīng)有7人回復(fù)
C語(yǔ)言調(diào)試時(shí)出現(xiàn)Unhandled exception 0xc0000005:Access Violation怎么回事已經(jīng)有4人回復(fù)
【求助】fortran加載外部子程序時(shí)總是提示關(guān)閉程序已經(jīng)有10人回復(fù)
【求助】Fortran如何調(diào)用模塊中子程序已經(jīng)有6人回復(fù)

1樓 2014-11-03 15:49:16

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

pippi6

鐵桿木蟲(chóng) (著名寫(xiě)手)

工程和科學(xué)數(shù)值計(jì)算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時(shí)
蟲(chóng)號(hào): 2469437
注冊(cè): 2013-05-14
專業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

在你的makefile （或編譯 option）里加上 /check:bounds /traceback
就會(huì)在runtime 時(shí)間顯示在何處越界。

贊一下

回復(fù)此樓

2樓2014-11-03 18:50:05

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

todd0226

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 416.8
帖子: 45
在線: 40.3小時(shí)
蟲(chóng)號(hào): 2342235
注冊(cè): 2013-03-13
專業(yè): 機(jī)械工程

引用回帖:

2樓: Originally posted by pippi6 at 2014-11-03 18:50:05
在你的makefile （或編譯 option）里加上 /check:bounds /traceback
就會(huì)在runtime 時(shí)間顯示在何處越界。

不好意思，對(duì)這個(gè)我了解的不多。
你說(shuō)的在Makefile里加上 /check:bounds /traceback，Makefile是我編寫(xiě)的源程序文件嗎？加在哪個(gè)位置？
編譯option，這是編譯器的選項(xiàng)嗎？我用的是Intel visual Fortran編譯器，沒(méi)有找到這一項(xiàng)呀？

贊一下

回復(fù)此樓

3樓2014-11-03 21:35:45

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

todd0226

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 416.8
帖子: 45
在線: 40.3小時(shí)
蟲(chóng)號(hào): 2342235
注冊(cè): 2013-03-13
專業(yè): 機(jī)械工程

引用回帖:

2樓: Originally posted by pippi6 at 2014-11-03 18:50:05
在你的makefile （或編譯 option）里加上 /check:bounds /traceback
就會(huì)在runtime 時(shí)間顯示在何處越界。

我在Intel visual Fortran中找到了/check:bound /trackback,然后調(diào)試發(fā)現(xiàn)沒(méi)有出現(xiàn)數(shù)組越界的問(wèn)題。
在運(yùn)行到subroutine info_nd（...）時(shí)，
提示信息說(shuō)：其原因可能是堆被破壞，這說(shuō)明NASA_mb05_p1.exe中或它所加載的任何DLL中有Bug。原因也可能是用戶在NASA_mb05_p1.exe具有焦點(diǎn)時(shí)按下了F12

其中，不是后一個(gè)原因，在運(yùn)行時(shí)我并沒(méi)有碰到鍵盤，關(guān)于第一個(gè)原因，能從中得到哪些信息呢？

贊一下

回復(fù)此樓

4樓2014-11-04 10:12:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

pippi6

鐵桿木蟲(chóng) (著名寫(xiě)手)

工程和科學(xué)數(shù)值計(jì)算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時(shí)
蟲(chóng)號(hào): 2469437
注冊(cè): 2013-05-14
專業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算

【答案】應(yīng)助回帖

內(nèi)容已刪除

贊一下

回復(fù)此樓

5樓2014-11-04 14:07:08

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

todd0226

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 416.8
帖子: 45
在線: 40.3小時(shí)
蟲(chóng)號(hào): 2342235
注冊(cè): 2013-03-13
專業(yè): 機(jī)械工程

引用回帖:

5樓: Originally posted by pippi6 at 2014-11-04 14:07:08
ok。如果加了 /check:bounds /trackback 沒(méi)有查到，說(shuō)明這不是你自編程序中的數(shù)組越界。有可能是使用的dll或lib之類的問(wèn)題。這就很難查了。因?yàn)槟切┸浖诰幾g時(shí)沒(méi)有使用 /check:bounds /trackback 。

最好使用 ...

下面是調(diào)試程序運(yùn)行時(shí)出現(xiàn)的信息：
“NASA_mb05_p1.exe”: 已加載“D:\XDT\IVF\NASA_mb05_p1\NASA_mb05_p1\x64\Debug\NASA_mb05_p1.exe”，已加載符號(hào)。
“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”，已加載符號(hào)(去除源信息)。
“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: 寫(xiě)入位置 0x000000000000f000 時(shí)發(fā)生訪問(wèn)沖突
“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 中觸發(fā)一個(gè)斷點(diǎn)。

其原因可能是堆被損壞，這說(shuō)明 NASA_mb05_p1.exe 中或它所加載的任何 DLL 中有 Bug。

原因也可能是用戶在 NASA_mb05_p1.exe 具有焦點(diǎn)時(shí)按下了 F12。

輸出窗口可能提供了更多診斷信息。
程序“[3172] NASA_mb05_p1.exe: 本機(jī)”已退出，返回值為 0 (0x0)。

不知道從“HEAP[NASA_mb05_p1.exe]: HEAP: Free Heap block 20a80 modified at 21000 after it was freed”中能得到什么信息嗎

贊一下

回復(fù)此樓

6樓2014-11-04 15:55:59

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

pippi6

鐵桿木蟲(chóng) (著名寫(xiě)手)

工程和科學(xué)數(shù)值計(jì)算咨詢

應(yīng)助: 413 (碩士)
貴賓: 0.002
金幣: 7116.5
散金: 15
紅花: 63
帖子: 1639
在線: 798.9小時(shí)
蟲(chóng)號(hào): 2469437
注冊(cè): 2013-05-14
專業(yè): 計(jì)算數(shù)學(xué)與科學(xué)工程計(jì)算

引用回帖:

6樓: Originally posted by todd0226 at 2014-11-04 15:55:59
下面是調(diào)試程序運(yùn)行時(shí)出現(xiàn)的信息：
“NASA_mb05_p1.exe”: 已加載“D:\XDT\IVF\NASA_mb05_p1\NASA_mb05_p1\x64\Debug\NASA_mb05_p1.exe”，已加載符號(hào)。
“NASA_mb05_p1.exe”: 已加載“C:\Windows\System32\ntd ...

No idea。已經(jīng)不是fortran問(wèn)題了

贊一下

回復(fù)此樓

7樓2014-11-04 17:20:43

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

todd0226

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 416.8
帖子: 45
在線: 40.3小時(shí)
蟲(chóng)號(hào): 2342235
注冊(cè): 2013-03-13
專業(yè): 機(jī)械工程

引用回帖:

7樓: Originally posted by pippi6 at 2014-11-04 17:20:43
No idea。已經(jīng)不是fortran問(wèn)題了...

好的，多謝

回復(fù)此樓

8樓2014-11-04 21:08:54

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

安明三空

銅蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 288
散金: 10
帖子: 21
在線: 8小時(shí)
蟲(chóng)號(hào): 2787884
注冊(cè): 2013-11-08

請(qǐng)教一下樓主我也遇到了同樣的問(wèn)題，請(qǐng)問(wèn)你是在哪里找到的/check:bounds /traceback 呢？

贊一下

回復(fù)此樓

9樓2016-05-12 16:32:33

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

安明三空

銅蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 288
散金: 10
帖子: 21
在線: 8小時(shí)
蟲(chóng)號(hào): 2787884
注冊(cè): 2013-11-08

引用回帖:

3樓: Originally posted by todd0226 at 2014-11-03 21:35:45
不好意思，對(duì)這個(gè)我了解的不多。
你說(shuō)的在Makefile里加上 /check:bounds /traceback，Makefile是我編寫(xiě)的源程序文件嗎？加在哪個(gè)位置？
編譯option，這是編譯器的選項(xiàng)嗎？我用的是Intel visual Fortran編譯器， ...

請(qǐng)教樓主 /check:bounds /traceback 是在哪里找到的呢

贊一下

回復(fù)此樓

10樓2016-05-12 16:33:53

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 todd0226 的主題更新

返回列表

普通表情龍兔虎貓

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 266分，一志愿電氣工程，本科材料，求材料專業(yè)調(diào)劑 +4	哇呼哼呼哼 2026-04-02	4/200	2026-04-02 13:10 by yulian1987
[考研] 271求調(diào)劑 +15	勒布朗@ 2026-03-31	20/1000	2026-04-02 11:24 by Sammy2
[考研] 261求B區(qū)調(diào)劑 +5	明仔· 2026-04-01	7/350	2026-04-02 11:17 by 鄒尉尉
[考研] 324求調(diào)劑 +5	想上學(xué)求調(diào) 2026-04-01	6/300	2026-04-02 10:16 by sanrepian
[考研] 求調(diào)劑，一志愿南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +11	@taotao 2026-03-29	11/550	2026-04-02 10:04 by realme321
[考研] 070305高分子化學(xué)與物理 304分求調(diào)劑 +14	c297914 2026-03-28	14/700	2026-04-02 09:35 by 星空星月
[考研] 一志愿北京科技，085601總分305求調(diào)劑 +9	半生瓜！ 2026-04-01	11/550	2026-04-02 08:28 by Wang200018
[考研] 求調(diào)劑，一志愿南京師范大學(xué)計(jì)算機(jī)專碩，初試373，六級(jí)通過(guò)， +3	計(jì)算機(jī)追夢(mèng)人 2026-04-01	3/150	2026-04-02 07:57 by fxue1114
[考研] 化學(xué)工程專碩324分，一志愿中國(guó)礦業(yè)大學(xué)求調(diào)劑 +7	耿耿1314 2026-04-01	7/350	2026-04-02 07:40 by 尚水閣主
[考研] 一志愿南昌大學(xué)324求調(diào)劑 +12	hanamiko 2026-03-27	12/600	2026-04-01 22:34 by 運(yùn)氣yunqi
[考研] 一志愿西安交大材料學(xué)碩（英一數(shù)二）347，求調(diào)劑到高分子/材料相關(guān)專業(yè) +7	zju51 2026-03-31	9/450	2026-04-01 19:35 by CFQZAFU
[考研] 353求調(diào)劑 +4	拉鉤不許變 2026-04-01	4/200	2026-04-01 18:10 by 記事本2026
[考研] 【求調(diào)劑】085601材料工程專碩 \| 總分272 \| +10	腳滑的守法公民 2026-03-27	10/500	2026-04-01 17:23 by pies112
[考研] 0710生物學(xué)考研調(diào)劑 +3	李多米lee. 2026-03-27	4/200	2026-04-01 16:21 by zzchen2000
[考研] 材料調(diào)劑 +11	一樣YWY 2026-03-31	11/550	2026-04-01 11:35 by wangjy2002
[考研] 一志愿華東師范大學(xué)有機(jī)化學(xué)專業(yè)，初試351分，復(fù)試被刷求調(diào)劑! +9	真名有冰 2026-03-29	10/500	2026-03-31 18:01 by xhai2011
[考研] 105500藥學(xué)求調(diào)劑，一志愿山東大學(xué)藥學(xué)，348分 +3	gr哈哈哈 2026-03-28	3/150	2026-03-30 18:56 by 源_2020
[考研] 317分一志愿南理工材料工程本科湖工大求調(diào)劑 +12	芋泥小鈴鐺 2026-03-28	12/600	2026-03-30 17:06 by wangjy2002
[考研] 求調(diào)劑 +7	青春裁為三截 2026-03-29	7/350	2026-03-30 13:14 by laoshidan
[考研] 291求調(diào)劑 +5	Y-cap 2026-03-29	6/300	2026-03-29 13:18 by mumin1990

24小時(shí)熱門版塊排行榜

[求助] fortran 調(diào)用子程序時(shí)，出現(xiàn)program exception-access violation 已有1人參與

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: