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

hybrid & fleur

parent 2bfc3d37
......@@ -88,7 +88,7 @@ CONTAINS
! ..
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!!")
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