Commit a1da0c07 authored by Gregor Michalicek's avatar Gregor Michalicek

Add stopp for Wannier+MPI

parent 0abc6fe8
......@@ -240,6 +240,7 @@ MODULE m_fleur
input%l_wann = .FALSE.
INQUIRE (file='wann_inp',exist=input%l_wann)
IF (input%l_wann.AND.(mpi%irank==0).AND.(.NOT.wann%l_bs_comf)) THEN
IF(mpi%isize.NE.1) CALL juDFT_error('No Wannier+MPI at the moment',calledby = 'fleur')
CALL wann_optional(input,atoms,sym,cell,oneD,noco,wann)
IF (wann%l_gwf) input%itmax = 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