Commit 792682a1 authored by Matthias Redies's avatar Matthias Redies

repair OMP in excepbe

parent d11789a5
......@@ -36,11 +36,11 @@ CONTAINS
REAL, PARAMETER :: sml = 1.e-14
REAL, PARAMETER :: smlc = 2.01e-14
! OMP parallel do default(private)
! OMP& SHARED(xcpot,jspins,mirm,irmx)
! OMP& SHARED(rh,agr,agru,agrd)
! OMP& SHARED(g2ru,g2rd,gggr,gggru,gggrd)
! OMP& SHARED(exc)
!$OMP parallel do default(private) &
!$OMP SHARED(xcpot,jspins,mirm,irmx) &
!$OMP SHARED(rh,agr,agru,agrd) &
!$OMP SHARED(g2ru,g2rd,gggr,gggru,gggrd) &
!$OMP SHARED(exc)
DO i = 1,irmx
IF (jspins == 1) THEN
......@@ -99,6 +99,6 @@ CONTAINS
exc(i) = xced*2 ! in ry
ENDDO
! OMP end parallel do
!$OMP end parallel do
END SUBROUTINE excepbe
END MODULE m_excepbe
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