| 查看: 396 | 回复: 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 不知道是自己的安装软件有问题还是那里出了什么问题，还望各位解答 |
回复此楼» 猜你喜欢
基金申报
已经有5人回复
-
基金委咋了？2026年的指南还没有出来？
已经有7人回复
-
国自然申请面上模板最新2026版出了吗？
已经有17人回复
-
纳米粒子粒径的测量
已经有8人回复
-
疑惑？
已经有5人回复
-
计算机、0854电子信息（085401-058412）调剂
已经有5人回复
-
Materials Today Chemistry审稿周期
已经有5人回复
-
溴的反应液脱色
已经有7人回复
-
推荐一本书
已经有12人回复
-
常年博士招收(双一流，工科)
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 很简单在，一种植物，忘了叫什么，求大神帮忙
已经有3人回复
- 跪求大神们看看,跑出这样的峰太惊魂了.
已经有22人回复
- 有关氧化石墨烯团聚及分散问题，急！求大神帮助！
已经有23人回复
- 决定了，15哈工大材料学！求虫友解惑
已经有62人回复
- 求助 ANSYS CFX 软件大神
已经有5人回复
- 急切求助！一个mathematica求解一个简单一元非线性方程的问题
已经有4人回复
- 幂函数方程 求解
已经有9人回复
- 求推荐fortran书，大家都看的那本教材
已经有12人回复
- 【求助】有关EDCI/DMAP的一个问题？
已经有20人回复
- 【交流】大家帮忙看下这道题
已经有7人回复
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
3楼2015-05-21 16:01:22
ilovexiaomu
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1125.1
- 红花: 1
- 帖子: 234
- 在线: 68.5小时
- 虫号: 443234
- 注册: 2007-10-27
- 专业: 凝聚态物性I:结构、力学和
2楼2015-05-21 15:40:58