OpenMP for DO Loop with MKL 讨论

阔海人生 · 发表于 2016-6-15 05:03:38

!=======================

Densityofstate=0.

Do i=1:10000
   call Hamiltonian( kx(i), ky(i), eig, vec)    !  eig 和vec 分别是哈密顿量H(K) 的本征值和本征态。  H(K) 是11×11的矩阵。此子程序中调用了LAPACK库。
   call density(11, eig, Dosk)                      ！ Dosk 为输出矩阵其维度为（1：200）， Densityofstate 维度同Dosk 相同。
   Densityofstate=Dosk+Densityofstate
End Do
!=======================

此DO循环怎么样使用OpenMP？希望大家指教，订重谢！625786052@qq.com 是我的邮箱也可私聊。谢谢

li913 · 发表于 2016-6-15 10:33:53

OpenMP的使用，需要系统看手册。
http://fcode.cn/resource_ebook-24-1.html

[并行] OpenMP for DO Loop with MKL 讨论