| 查看: 389 | 回复: 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 不知道是自己的安装软件有问题还是那里出了什么问题，还望各位解答 |
回复此楼» 猜你喜欢
垃圾破二本职称评审标准
已经有11人回复
-
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿
已经有16人回复
-
谈谈两天一夜的“延安行”
已经有14人回复
-
职称评审没过，求安慰
已经有14人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
EST投稿状态问题
已经有4人回复
-
聘U V热熔胶研究人员
已经有10人回复
-
求助文献
已经有3人回复
-
投稿返修后收到这样的回复，还有希望吗
已经有8人回复
-
三无产品还有机会吗
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 很简单在，一种植物，忘了叫什么，求大神帮忙
已经有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:结构、力学和
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
【答案】应助回帖
★
感谢参与，应助指数 +1
ilovexiaomu: 金币+1, ★有帮助, 感谢 2015-05-21 16:05:55
感谢参与，应助指数 +1
ilovexiaomu: 金币+1, ★有帮助, 感谢 2015-05-21 16:05:55