Commit 6e7f3fef authored by spigafi's avatar spigafi

More OpenMP.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8754 c92efa57-630b-4861-b058-cf58834340f0
parent c6bdc558
......@@ -103,9 +103,11 @@ SUBROUTINE force_us( forcenl )
!
DO ipol = 1, 3
DO jkb = 1, nkb
!$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(ig)
DO ig = 1, npw
vkb1(ig,jkb) = vkb(ig,jkb) * (0.D0,-1.D0) * g(ipol,igk(ig))
END DO
!$OMP END PARALLEL DO
END DO
!
CALL calbec ( npw, vkb1, evc, rdbecp(ipol) )
......@@ -235,9 +237,11 @@ SUBROUTINE force_us( forcenl )
!
DO ipol = 1, 3
DO jkb = 1, nkb
!$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(ig)
DO ig = 1, npw
vkb1(ig,jkb) = vkb(ig,jkb)*(0.D0,-1.D0)*g(ipol,igk(ig))
END DO
!$OMP END PARALLEL DO
END DO
!
IF (noncolin) THEN
......
......@@ -207,6 +207,7 @@ SUBROUTINE init_wfc ( ik )
!
DO ipol = 1, npol
!
!$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(ig, rr, arg)
DO ig = 1, npw
!
rr = randy()
......@@ -216,6 +217,7 @@ SUBROUTINE init_wfc ( ik )
( 1.0_DP + 0.05_DP * CMPLX( rr*COS(arg), rr*SIN(arg) ,kind=DP) )
!
END DO
!$OMP END PARALLEL DO
!
END DO
!
......@@ -234,6 +236,7 @@ SUBROUTINE init_wfc ( ik )
!
wfcatom(:,ipol,ibnd) = (0.0_dp, 0.0_dp)
!
!$OMP PARALLEL DO DEFAULT(SHARED) PRIVATE(ig, rr, arg)
DO ig = 1, npw
!
rr = randy()
......@@ -245,6 +248,7 @@ SUBROUTINE init_wfc ( ik )
( xk(2,ik) + g(2,igk(ig)) )**2 + &
( xk(3,ik) + g(3,igk(ig)) )**2 + 1.0_DP )
END DO
!$OMP END PARALLEL DO
!
END DO
!
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment