24小时热门版块排行榜    

查看: 1490  |  回复: 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;     !!!!问题出现在这里
        }
}

这一段据说是在对全局变量进行初始化。但是并不懂得具体对应什么问题。

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

国家重点型号

新虫 (初入文坛)

2楼2015-12-05 10:53:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

国家重点型号

新虫 (初入文坛)

3楼2015-12-05 16:06:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

国家重点型号

新虫 (初入文坛)

4楼2015-12-13 21:39:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小红豆

主管区长 (知名作家)

优秀区长优秀区长

引用回帖:
4楼: Originally posted by 国家重点型号 at 2015-12-13 21:39:47
已经解决了~

麻烦一下 怎么解决啊
5楼2016-09-12 17:33:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

国家重点型号

新虫 (初入文坛)

引用回帖:
5楼: Originally posted by 小红豆 at 2016-09-12 17:33:12
麻烦一下 怎么解决啊 ...

去FORTRAN论坛可解决

bbs.fcode.cn
6楼2016-09-12 18:11:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小红豆

主管区长 (知名作家)

优秀区长优秀区长

引用回帖:
6楼: Originally posted by 国家重点型号 at 2016-09-12 18:11:51
去FORTRAN论坛可解决

bbs.fcode.cn...

谢谢!
7楼2016-09-12 18:35:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 国家重点型号 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +4 k0dTPqJtl0jt 2026-08-14 4/200 2026-08-15 02:21 by 4wMiSEwB6436
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +11 Tide man 2026-08-10 12/600 2026-08-15 02:12 by home3163
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +4 k0dTPqJtl0jt 2026-08-14 4/200 2026-08-15 01:40 by 4wMiSEwB6436
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 k0dTPqJtl0jt 2026-08-14 4/200 2026-08-15 01:28 by 4wMiSEwB6436
[论文投稿] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 HFw0lei2R37i 2026-08-14 5/250 2026-08-15 00:16 by 4wMiSEwB6436
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 HFw0lei2R37i 2026-08-14 8/400 2026-08-15 00:16 by 4wMiSEwB6436
[基金申请] 是这周出结果还是下周出结果? +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[教师之家] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 HFw0lei2R37i 2026-08-14 5/250 2026-08-14 22:32 by 4wMiSEwB6436
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +23 医学老男孩 2026-08-13 49/2450 2026-08-14 20:02 by zhaifei
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +10 家与远方 2026-08-10 15/750 2026-08-14 02:08 by 绵羊哥哥
[基金申请] 关于Filecode分析方法 +9 majunge000 2026-08-10 12/600 2026-08-13 23:20 by iwuli
[文学芳草园] 阿姨 +4 汪汪锅 2026-08-09 4/200 2026-08-13 19:43 by arzu_hma
[基金申请] 重要来源:本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 2026国自然放榜时间 +9 布布和一二 2026-08-08 9/450 2026-08-10 11:22 by xxxx2020
[基金申请] 这样的filecode谁见过 +11 布布和一二 2026-08-08 22/1100 2026-08-10 11:10 by wmfsnow
[基金申请] fileCode有新解读? +10 Tide man 2026-08-08 18/900 2026-08-09 12:55 by 仁砚薪传
信息提示
请填处理意见