Commit eee90c1d authored by Gregor Michalicek's avatar Gregor Michalicek

Make Fleur compilable with Wannier90 again

We forgot to rename a variable from mpi to fmpi
when we started to use the mpi module.
parent 66203c80
......@@ -15,7 +15,7 @@ c Frank Freimuth
SUBROUTINE wann_wannierize(
> film,wann,mpi,kpoints,fullnkpts,jspins,
> film,wann,fmpi,kpoints,fullnkpts,jspins,
> natd,pos,
> amat,bmat,ntype,neq,zatom)
USE m_types
......@@ -23,7 +23,7 @@ c****************************************************
implicit none
logical,intent(in) :: film
TYPE(t_wann), INTENT(IN) :: wann
TYPE(t_mpi), INTENT(IN) :: mpi
TYPE(t_mpi), INTENT(IN) :: fmpi
real, intent (in) :: kpoints(:,:)
integer, intent(in) :: fullnkpts
integer,intent(in) :: jspins
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