OpenMP for DO Loop with MKL 讨论

阔海人生

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

   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

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