Commit 43252a18 authored by Matthias Redies's avatar Matthias Redies

hybrid & fleur

parent 2bfc3d37
......@@ -88,7 +88,7 @@ CONTAINS
INTRINSIC sqrt
! ..
if (allocated(w)) return
!$ if (omp_in_parallel()) call juDFT_error("BUG IN GAUNT!!")
!$ if (omp_in_parallel() .and. omp_get_num_threads() > 1) call juDFT_error("BUG IN GAUNT!!")
ALLOCATE(w((3*lmaxd)/4+1),yr((3*lmaxd)/4+1,(lmaxd+1)**2))
n = (3*lmaxd)/4+1
......
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