| 查看: 422 | 回复: 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 不知道是自己的安装软件有问题还是那里出了什么问题，还望各位解答 |
回复此楼» 猜你喜欢
08生物与医药专硕初试346找调剂
已经有7人回复
-
理学07化学 303求调剂
已经有14人回复
-
309求调剂
已经有4人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有5人回复
-
085600，材料与化工321分调剂
已经有8人回复
-
270调剂
已经有3人回复
-
一志愿211，335分，0856，求调剂院校和导师
已经有13人回复
-
085601一志愿中山大学深圳材料工程330求调剂
已经有7人回复
-
调剂推荐
已经有12人回复
-
求调剂，一志愿南京师范大学计算机专硕，初试373，六级通过，
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 很简单在，一种植物，忘了叫什么，求大神帮忙
已经有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 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
3楼2015-05-21 16:01:22
10