1
2! Copyright (C) 2010 S. Sharma, J. K. Dewhurst and E. K. U. Gross.
3! This file is distributed under the terms of the GNU General Public License.
4! See the file COPYING for license details.
5
6subroutine hmlxbse
7use modmain
8use modmpi
9use modomp
10implicit none
11! local variables
12integer ik2,nthd
13call holdthd(nkptnr/np_mpi,nthd)
14!$OMP PARALLEL DO DEFAULT(SHARED) &
15!$OMP NUM_THREADS(nthd)
16do ik2=1,nkptnr
17! distribute among MPI processes
18  if (mod(ik2-1,np_mpi).ne.lp_mpi) cycle
19!$OMP CRITICAL(hmlxbse_)
20  write(*,'("Info(hmlxbse): ",I6," of ",I6," k-points")') ik2,nkptnr
21!$OMP END CRITICAL(hmlxbse_)
22  call hmlxbsek(ik2)
23end do
24!$OMP END PARALLEL DO
25call freethd(nthd)
26end subroutine
27
28