Commit 65023105 authored by Matthias Redies's avatar Matthias Redies

make sure fleur compiles without openmp

parent 0e5cc144
......@@ -34,8 +34,8 @@ CONTAINS
LOGICAL :: l_write
l_write=mpi%irank==0 &
!$ .and.omp_get_num_threads()==1
!$ l_write = l_write .and. omp_get_num_threads()==1
IF (l_write) WRITE (6,FMT=8000) iType
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