24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 639  |  回复: 3

superrice

木虫 (正式写手)

[求助] fortran菜鸟求帮助 已有1人参与

我想练习一下MKL库里的lapack95解本征方程,看了下manual半天没看懂,感觉代码写的不太对,麻烦专家帮忙看下哪里不对,谢谢。

program main
use lapack95
use blas95
implicit none

real::A(4,4)=(/ 1,2,3,4, &
                 2,3,4,5, &
                 3,4,5,6, &
                 4,5,6,7 /)
real::B(3),E(4)
integer::i

call sytrd(A,B,'U')
call orgtr(A,B,'U')
call rsteqr(E,B,A,'I')

do i=1,4
print '(4F8.4)', E(i)
end do

do i=1,4
print '(4F8.4)', A(i,
end do

end
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

嗨王and娜娜

木虫 (正式写手)

博士

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
superrice: 金币+5 2014-03-28 21:37:38
定义要放着在最开始,你都给数组赋值了,才定义,这能行嘛?
努力学习!
2楼2014-03-28 08:00:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

superrice

木虫 (正式写手)

引用回帖:
2楼: Originally posted by 嗨王and娜娜 at 2014-03-28 08:00:50
定义要放着在最开始,你都给数组赋值了,才定义,这能行嘛?

谢谢专家回复,我想了解mkl的rsteqr怎么用~
3楼2014-03-28 21:38:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

嗨王and娜娜

木虫 (正式写手)

博士

引用回帖:
3楼: Originally posted by superrice at 2014-03-28 21:38:43
谢谢专家回复,我想了解mkl的rsteqr怎么用~...

你直接调用就行了呗。http://www.netlib.org/lapack/explore-3.1.1-html/dsteqr.f.html,这个上面 有例子,你应该能看懂的。
努力学习!
4楼2014-03-28 22:16:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 superrice 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿郑州大学,080500学硕,总分317分求调剂 +5 举个栗子oi 2026-03-24 6/300 2026-03-28 23:03 by lizhi8172
[考研] 291求调剂 +15 hhhhxn.. 2026-03-23 21/1050 2026-03-28 11:26 by self2008
[考研] 【求调剂】085601材料工程专硕 | 总分272 | +6 脚滑的守法公民 2026-03-27 6/300 2026-03-28 11:02 by gjlllb
[考研] 085405 考的11408求各位老师带走 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 09:19 by 乐呵呵的追梦人
[考研] 材料求调剂一志愿哈工大324 +7 闫旭东 2026-03-28 9/450 2026-03-28 08:51 by Xu de nuo
[考研] 286求调剂 +4 丢掉懒惰 2026-03-27 7/350 2026-03-28 08:07 by baoball
[考研] 张芳铭-中国农业大学-环境工程专硕-298 +4 手机用户 2026-03-26 4/200 2026-03-28 07:17 by mmm just
[考研] 求调剂推荐 材料 304 +15 荷包蛋hyj 2026-03-26 15/750 2026-03-28 04:13 by fmesaito
[考研] 266求调剂 +11 阳阳哇塞 2026-03-27 12/600 2026-03-27 17:56 by yu221
[考研] 279 分 求调剂 +4 睡个好觉_16 2026-03-24 4/200 2026-03-27 15:05 by 醉在风里
[考研] 303求调剂 +7 安忆灵 2026-03-22 8/400 2026-03-27 11:46 by sanrepian
[考研] 考研调剂 +9 小蜡新笔 2026-03-26 9/450 2026-03-27 11:10 by 不吃魚的貓
[考研] 材料学硕,求调剂 6+5 糖葫芦888ll 2026-03-22 10/500 2026-03-27 08:18 by hypershenger
[考研] 324求调剂 +8 hanamiko 2026-03-26 10/500 2026-03-27 08:06 by hypershenger
[硕博家园] 招收生物学/细胞生物学调剂 +3 IceGuo 2026-03-26 4/200 2026-03-27 05:35 by user003
[考研] 085602 289分求调剂 +8 WWW西西弗斯 2026-03-24 8/400 2026-03-26 16:33 by 不吃魚的貓
[考研] 一志愿天津大学339材料与化工求调剂 +3 江往卖鱼 2026-03-26 3/150 2026-03-26 09:42 by 王小欠i
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] 0854人工智能方向招收调剂 +4 章小鱼567 2026-03-24 4/200 2026-03-25 13:29 by 2177681040
[考研] 306求调剂 +5 来好运来来来 2026-03-22 5/250 2026-03-22 16:17 by BruceLiu320
信息提示
请填处理意见