Fortran Coder

查看: 4766|回复: 2
打印 上一主题 下一主题

[数学库] Cannot open mkl_lapack95.lib

[复制链接]

2

帖子

1

主题

0

精华

新人

F 币
25 元
贡献
12 点
跳转到指定楼层
楼主
发表于 2019-10-18 16:10:18 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
设置了两个地方 然后抄过来的代码就能运行 我改完就不能了 。 subroutine nijuzhende(a,n)   use lapack95
  integer::n
  integer ipiv(n), i
  real::a(n,n)
ipiv(n)=1
call getrf(a,ipiv,i)   
call getri(a,ipiv)   
end subroutine
上面是抄的有改动 ,主程序中call nijuzhende(a,n)。请问是什么原因?要设置哪里



分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2019-10-18 22:12:51 | 只看该作者

2

帖子

1

主题

0

精华

新人

F 币
25 元
贡献
12 点
板凳
 楼主| 发表于 2019-10-21 13:44:34 | 只看该作者
本帖最后由 森森森6 于 2019-10-21 13:46 编辑

楼上,你好,我看了,之前没加一些东西但是也能运行,现在按照他全加进去,因为原路径有中文 我把加的复制到别的英文路径下,编译时候没提示找不到 但是运行时什么access violence 我单步调试 在subroutine首句断了 提示 Console2.exe 中的 0x000000014003f911 处有未经处理的异常: 0xC0000005: 读取位置 0x00000000002cfcf8 时发生访问冲突。我也忘了这段代码照着哪里抄的 是不是改错了 还是我主程序有问题 subroutine nijuzhende(a,n)   
use lapack95
  integer::n
  integer  i,ipiv(n)
  real*8::a(n,n)
ipiv(n)=1
call getrf(a,ipiv,i)   
call getri(a,ipiv)   
end subroutine


主程序:
real*8,allocatable:: xishujuzhen(:,:)
integer erenjiayi
call nijuzhende(xishujuzhen,erenjiayi)
这个返回的xishujuzhen是算出来的逆矩阵吗
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-27 10:51

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表