Fortran Coder

标题: OpenMP for DO Loop with MKL 讨论 [打印本页]

作者: 阔海人生 时间: 2016-6-15 05:03
标题: 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 时间: 2016-6-15 10:33
OpenMP的使用，需要系统看手册。
http://fcode.cn/resource_ebook-24-1.html

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)