Commit b065f991 authored by Gregor Michalicek's avatar Gregor Michalicek

Temporarily comment out explicit SIMD instructions in eigen/hsmt_sph.F90

The OpenMP SIMD instructions made problems on ifort 12 and ifort 15. We
have to introduce a filter to exclude these compilers from respective
code sections.

The instructions were introduced in commit 97ef6a4d.
parent 97ef6a4d
......@@ -255,7 +255,7 @@ CONTAINS
DO nn = n0,n1
tnn = tpi_const*atoms%taual(:,nn)
!---> set up phase factors
!$OMP SIMD PRIVATE(tmp1,tmp2,tmp3,tmp)
!!$OMP SIMD PRIVATE(tmp1,tmp2,tmp3,tmp)
DO kj = 1,kjmax
!rph(kj,1) = rph(kj,1) +&
! COS(DOT_PRODUCT(ski-(/lapw%k1(kj,jintsp),lapw%k2(kj,jintsp),lapw%k3(kj,jintsp)/)+qssbtj,tnn))
......@@ -268,7 +268,7 @@ CONTAINS
IF (.NOT.sym%invs) THEN
!---> if the system does not posses inversion symmetry
!---> the complex part of the exponential is needed.
!$OMP SIMD PRIVATE(tmp1,tmp2,tmp3,tmp)
!!$OMP SIMD PRIVATE(tmp1,tmp2,tmp3,tmp)
DO kj = 1,kjmax
! cph(kj,1) = cph(kj,1) +&
! SIN(DOT_PRODUCT((/lapw%k1(kj,jintsp),lapw%k2(kj,jintsp),lapw%k3(kj,jintsp)/)+qssbtj-ski,tnn))
......
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