Commit 2dc221f9 authored by Gregor Michalicek's avatar Gregor Michalicek

Comment out OMP SIMD commands in eigen/hsmt_fjgj.F90

...to allow compilation on older Intel compilers.
parent c5858118
......@@ -52,7 +52,7 @@ CONTAINS
gs = lapw%rk(k,intspin)*atoms%rmt(n)
CALL sphbes(atoms%lmax(n),gs, fb)
CALL dsphbs(atoms%lmax(n),gs,fb, gb)
!$OMP SIMD PRIVATE(ws,ff,gg)
! !$OMP SIMD PRIVATE(ws,ff,gg)
DO l = 0,atoms%lmax(n)
!---> set up wronskians for the matching conditions for each ntype
ws = con1/(usdus%uds(l,n,ispin)*usdus%dus(l,n,ispin)&
......@@ -68,7 +68,7 @@ CONTAINS
!ENDIF
ENDIF
ENDDO
!$OMP END SIMD
! !$OMP END SIMD
ENDDO ! k = 1, lapw%nv
!$OMP END PARALLEL DO
ENDDO
......
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