Commit 1a24857c authored by Matthias Redies's avatar Matthias Redies

this is why the was no omp

parent aed7d430
......@@ -201,7 +201,7 @@ CONTAINS
IF (noco%l_soc) dimension%neigd2 = dimension%neigd*2
!HF
!$ num_threads = omp_get_num_threads()
!$ num_threads = omp_get_max_threads()
!$ call omp_set_num_threads(1)
IF (hybrid%l_hybrid) THEN
SELECT TYPE(xcpot)
......
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