Commit e78286c0 authored by Matthias Redies's avatar Matthias Redies

make sure fleur compiles without openmp

parent 4ba19e5e
......@@ -34,8 +34,8 @@ CONTAINS
LOGICAL :: l_write
l_write=mpi%irank==0 &
!$ .and.omp_get_num_threads()==1
l_write=mpi%irank==0
!$ 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