| 查看: 484 | 回复: 2 | |||
ilovexiaomu金虫 (小有名气)
|
[求助]
麻烦看哈这个很简单的求线性方程的问题？ 已有1人参与
|
|
各位，遇到一个程序，在网上直接下载的，编译没错，但是运行时报错，不知什么原因，还望各位解答 !********************************************** ! THIS EXAMPLE USES THE LAPACK ROUTINE DGESV ! TO SOLVE A SYSTEM OF LINEAR EQUATIONS AX=B ! A = [1, 2, 3; 4, 5, 6; 7, 8 10] ! B = [1, 0; 0, 1; 0, 0] ! ********************************************* program lapack_test integer ipiv(3), info, i, j double precision A(3,3), B(3,2) A(1,1)=1 A(1,2)=2 A(1,3)=3 A(2,1)=4 A(2,2)=5 A(2,3)=6 A(3,1)=7 A(3,2)=8 A(3,3)=10 B(1,1)=1 B(2,1)=0 B(3,1)=0 B(1,2)=0 B(2,2)=1 B(3,2)=0 call dgesv (3,2,A,3,ipiv,B,3,info) if(info .EQ. 0) then do i=1,3 write(*,'(2F8.3)') (B(i,j), j=1,2) enddo endif end program lapack_test 不知道是自己的安装软件有问题还是那里出了什么问题，还望各位解答 |
回复此楼» 猜你喜欢
应该是93bebmhtak前后十一个字符比较关键
已经有32人回复
-
2019年青年基金涵评意见，大家看看几个A，几个B?
已经有5人回复
-
职称评审，求友友推荐见刊最快的期刊
已经有4人回复
-
奇怪，两个人的filecode固定段从头到尾一模一样
已经有10人回复
-
综述论文作为代表作会不会影响评审专家的印象分？
已经有13人回复
-
是这周出结果还是下周出结果？
已经有3人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有9人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有4人回复
-
帮忙看看fileCode
已经有13人回复
-
为什么网上很多人说本周 12号出结果
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 很简单在，一种植物，忘了叫什么，求大神帮忙
已经有3人回复
- 跪求大神们看看,跑出这样的峰太惊魂了.
已经有22人回复
- 有关氧化石墨烯团聚及分散问题，急！求大神帮助！
已经有23人回复
- 决定了，15哈工大材料学！求虫友解惑
已经有62人回复
- 求助 ANSYS CFX 软件大神
已经有5人回复
- 急切求助！一个mathematica求解一个简单一元非线性方程的问题
已经有4人回复
- 幂函数方程 求解
已经有9人回复
- 求推荐fortran书，大家都看的那本教材
已经有12人回复
- 【求助】有关EDCI/DMAP的一个问题？
已经有20人回复
- 【交流】大家帮忙看下这道题
已经有7人回复
ilovexiaomu
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1125.1
- 红花: 1
- 帖子: 234
- 在线: 68.5小时
- 虫号: 443234
- 注册: 2007-10-27
- 专业: 凝聚态物性I:结构、力学和
2楼2015-05-21 15:40:58
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6484.2
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
3楼2015-05-21 16:01:22
