24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 642  |  回复: 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的回帖

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的回帖
查看全部 4 个回答

嗨王and娜娜

木虫 (正式写手)

博士

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
superrice: 金币+5 2014-03-28 21:37:38
定义要放着在最开始,你都给数组赋值了,才定义,这能行嘛?
努力学习!
2楼2014-03-28 08:00:50
已阅   回复此楼   关注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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 298求调剂 +3 种圣赐 2026-03-28 3/150 2026-03-28 23:58 by wxiongid
[考研] 一志愿太原理工安全工程300分,求调剂 +5 0857求调剂. 2026-03-24 6/300 2026-03-28 22:04 by zhq0425
[考研] 本科双非材料,跨考一志愿华电085801电气,283求调剂,任何专业都可以 +6 芝士雪baoo 2026-03-28 7/350 2026-03-28 21:40 by zhq0425
[考研] 343求调剂 +5 爱羁绊 2026-03-28 5/250 2026-03-28 20:53 by 唐沐儿
[考研] 083000学硕274求调剂 +8 Li李鱼 2026-03-26 8/400 2026-03-28 20:33 by 加油向未来啊
[考研] 食品工程专硕一志愿中海洋309求调剂 +4 小张zxy张 2026-03-26 8/400 2026-03-28 19:25 by lbsjt
[考研] 复试调剂 +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by 落睿可思
[考研] 0856求调剂 +11 zhn03 2026-03-25 12/600 2026-03-28 13:32 by 唐沐儿
[考研] 340求调剂 +5 jhx777 2026-03-27 5/250 2026-03-28 04:18 by fmesaito
[考研] 266求调剂 +11 阳阳哇塞 2026-03-27 12/600 2026-03-27 17:56 by yu221
[考研] 266分求材料化工冶金矿业等专业的调剂 +4 哇呼哼呼哼 2026-03-26 4/200 2026-03-27 17:02 by zhyzzh
[考研] 调剂 +3 李嘉图·S·路 2026-03-27 3/150 2026-03-27 11:19 by wangjy2002
[考研] 材料学硕,求调剂 6+5 糖葫芦888ll 2026-03-22 10/500 2026-03-27 08:18 by hypershenger
[考研] 329求调剂 +7 钮恩雪 2026-03-25 7/350 2026-03-27 04:28 by wxiongid
[考研] 351求调剂 +4 麦克阿磊 2026-03-24 4/200 2026-03-27 00:32 by wxiongid
[考研] 281求调剂 +3 亚克西good 2026-03-26 5/250 2026-03-26 19:48 by 不吃魚的貓
[考研] 07化学303求调剂 +5 睿08 2026-03-25 5/250 2026-03-25 22:46 by 418490947
[考研] B区考研调剂 +4 yqdszhdap- 2026-03-22 5/250 2026-03-25 08:51 by baoball
[考研] 344求调剂 +3 desto 2026-03-24 3/150 2026-03-24 10:09 by 搏击518
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
信息提示
请填处理意见