| 查看: 1385 | 回复: 6 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
使用MKL现成的函数，可是却出现了ACCESS VIOLATION
|
||
|
我打算求解大型稀疏矩阵问题，所以选用MKL里的LAPACK 随便写了一段测试一下，就出现forrtl: severe (157): Program Exception - access violation 错误就出现在MKL给的程序里，但是因为封装着，所以看不到。 以下是我的代码，SPOSV是我调用的LAPACK函数: program main REAL A1(5,5),B1(5,3) INTERFACE SUBROUTINE SPOSV(A,B) REAL A(:,  REAL B(:, END SUBROUTINE SPOSV END INTERFACE DATA A1/38,3,4,6,5,3,48,6,7,7,4,6,52,1,6,6,7,1,56,10,5,7,6,10,74/ DATA B1/56,71,69,80,102,112,142,138,160,204,168,213,207,240,306/ CALL SPOSV(A1,B1) DO I=1,5 WRITE(*,*)(B1(I,J),J=1,3) END DO end program main ************************************************************************* MKL给的子程序里，用的是假定形状数组，这个需要在主程序里加上显示借口。我之前没有做。 但是现在加上了，却还是不行，问题依旧。具体问题出现在“++pfbegin; ”这一行： #ifdef CRTDLL void __cdecl _initterm ( #else /* CRTDLL */ static void __cdecl _initterm ( #endif /* CRTDLL */ _PVFV * pfbegin, _PVFV * pfend ) { /* * walk the table of function pointers from the bottom up, until * the end is encountered. Do not skip the first entry. The initial * value of pfbegin points to the first valid entry. Do not try to * execute what pfend points to. Only entries before pfend are valid. */ while ( pfbegin < pfend ) { /* * if current table entry is non-NULL, call thru it. */ if ( *pfbegin != NULL ) (**pfbegin)(); ++pfbegin; ！！！！问题出现在这里 } } 这一段据说是在对全局变量进行初始化。但是并不懂得具体对应什么问题。 ****************************************************************** |
回复此楼» 猜你喜欢
291分调剂
已经有9人回复
-
调剂求收留
已经有34人回复
-
291 求调剂
已经有38人回复
-
22408 312求调剂
已经有17人回复
-
一志愿华中农业071010，320求调剂
已经有6人回复
-
290调剂生物0860
已经有41人回复
-
291求调剂
已经有3人回复
-
211本科材料化工求调剂
已经有23人回复
-
山东省基金2026
已经有9人回复
-
药学求调剂
已经有13人回复
3楼2015-12-05 16:06:57
2楼2015-12-05 10:53:09
4楼2015-12-13 21:39:47
小红豆
主管区长 (知名作家)
- 应助: 52 (初中生)
- 贵宾: 5.431
- 金币: 59476.1
- 散金: 1532
- 红花: 62
- 沙发: 18
- 帖子: 9215
- 在线: 1902.7小时
- 虫号: 161399
- 注册: 2006-01-09
- 专业: 理论和计算化学
- 管辖: 计算模拟区
5楼2016-09-12 17:33:12
5