24小时热门版块排行榜

返回列表

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

maomao1210

金虫 (正式写手)

程序强帖: 5
应助: 2 (幼儿园)
金币: 1431.3
散金: 242
红花: 16
沙发: 1
帖子: 991
在线: 441.5小时
虫号: 253215
注册: 2006-05-20
性别: MM
专业: 考古理论

[交流] 【讨论】编译器，数学库安装。已有1人参与

经常遇到编译器的安装，以及各种数学库的安装，还有一些常用软件的安装，最基本的能力。呵呵
如果能有个高手把这个总结一下的话，岂不是很好？让大家都来学习一下。
编译器：pgi, ifort,等等
数学库： blas, lapack, atlas, mkl 等等
常用软件就很多了，分子轨道理论方面的，密度泛函方面的，呵呵
希望能有高手给总结一下。让我们都来学习操作操作。
可惜我是一个linux盲，所以只能在这里呼吁了。呵呵。
为了此个项目，我决定拿出我全部的金币做为资助。
pgi 的安装过程，100 金币
ifort 的安装过程，100金币
mpich 的安装过程，100金币
blas+lapack的安装过程，160金币
atlas的安装过程，100金币
mkl的安装过程，100金币
共660金币。
呵呵。总结后，大家都可以来学习一下。
金币就这么多了，所以常用软件的安装就没有金币贡献了，呵呵，等赚了钱再继续来求贤，呵呵。

[ Last edited by maomao1210 on 2010-1-28 at 10:45 ]

回复此楼

» 猜你喜欢

Cas 72-43-5需要30g，定制合成，能接单的留言已经有7人回复
磺酰氟产物，毕不了业了！已经有5人回复
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？已经有5人回复
论文终于录用啦！满足毕业条件了已经有25人回复
2026年机械制造与材料应用国际会议（ICMMMA 2026）已经有3人回复
自荐读博已经有3人回复
求助:我三月中下旬出站，青基依托单位怎么办？已经有5人回复
不自信的我已经有5人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复

» 本主题相关商家推荐: (我也要在这里推广)

1楼 2010-01-28 10:43:18

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

zyz1981

至尊木虫 (文坛精英)

医学物理

应助: 1 (幼儿园)
贵宾: 1.976
金币: 16749.1
散金: 305
红花: 50
沙发: 17
帖子: 19496
在线: 761.5小时
虫号: 828345
注册: 2009-08-15
性别: GG
专业: 肿瘤物理治疗

关于LAPACK

官方网站：
http://netlib.amss.ac.cn/lapack/index.html

用户手册：
http://netlib.amss.ac.cn/lapack/lug/index.html
http://www.netlib.org/lapack/lawn41/index.html

LAPACK (Linear Algebra PACKage) 是Oak Ridge 国家实验室、加州大学Davis 分校和Illinois 大学等联合开发的线性代数函数库，用于在不同高性能计算环境上高效求解数值线性代数问题[7] 。

LAPACK 采用标准Fortran 77 编写。LAPACK 支持实型和复型数据类型，完全支持单精度和双精度计算。LAPACK 可以在向量机，高性能超标量工作站，和共享存储多处理机上高效运行，也可以在各种类型的单机（PC, 工作站, 大型机）上获得满意的结果。LAPACK 最新版本为lapack-3.0。



测试文件：Single Precision Example (sgeev):
program test_sgeev
c Purpose: Compute the eigenvalues and, optionally, the left and/or
c right eigenvectors for an n-by-n real nonsymmetric matrix.
c Usage: call sgeev(jobvl, jobvr, n, a, lda, wr, wi, vl, ldvl, vr, ldvr,
c work, lwork, info)

integer nout, n, lda, lwork, ldvr, ldvl
parameter (nout=6, n=3, lda=n, lwork=5*n, ldvl=n, ldvr=n)
integer i, j, info
real a(lda,n), vr(ldvr,n), vl(ldvl,n)
real work(lwork), wi(n), wr(n)
external sgeev
c
data a / 3, 7, -4, 2, 8, -4, -1, -1, 3 /
c
call sgeev('N', 'V', n, a, lda, wr, wi, vl, ldvl, vr, ldvr,
& work, lwork, info)
c
write (*,*)
print*,' *** the real part of the computed eigenvalues ***'
write(nout, 98) (wr(i), i=1,n)
c
write (*,*)
print*,' *** the imaginary part of the computed eigenvalues ***'
write(nout, 98) (wi(i), i=1,n)
c
write (*,*)
print*,' *** the right eigenvectors ***'
do 10 i = 1,ldvr
write(nout, 99) vr(i,1), vr(i,2), vr(i,3)
10 continue
98 format (1x,f10.4)
99 format (1x,3f10.4)
c
end

***** OUTPUT: *****

*** the real part of the computed eigenvalues ***
11.0000
1.0000
2.0000

*** the imaginary part of the computed eigenvalues ***
0.0000
0.0000
0.0000

*** the right eigenvectors ***
-0.2673 -0.7071 -0.3714
-0.8018 0.7071 0.5571
0.5345 0.0000 0.7428

*********************

DGGEV 广义特征值求解，测试程序
   implicit none
   integer    i,info
   real(8)    ::  aa(2,2),bb(2,2),x(2),vl(2,2),vr(2,2)
   real(8)    ::  WORK(16,2),A1(2), A2(2), B1(2)
   data bb/10., 0., 0., 10./
   data aa/20000, -10000, -10000, 10000/
   call DGGEV('N','V',2,AA,2,BB,2,A1,A2,B1,VL,2,VR,2,WORK,16,info)
   do i=1,2
         x(i)=A1(i)/B1(i)
   end do
   write(*,*)x
   end

解：2628 382

Windows环境编译方法
http://jsy.dyn.dhs.org/maths/for ... dows/#installLAPACK

转自：http://zhousicheng.googlepages.com/a_042