Commit c303e849 authored by Frank Freimuth's avatar Frank Freimuth

Update fleur_init.F90

parent 71e4017d
......@@ -534,7 +534,7 @@
input%l_wann = input%l_wann.OR.l_wann_inp
IF(input%l_wann) THEN
CALL wann_read_inp(DIMENSION,input,noco,(mpi%irank.EQ.0),wann)
CALL wann_read_inp(DIMENSION,input,noco,mpi,wann)
END IF
CALL results%init(dimension,input,atoms,kpts,noco)
......
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