Commit f99b56f8 authored by Frank Freimuth's avatar Frank Freimuth

Update wannier.F90

parent cf61a7b0
......@@ -360,7 +360,8 @@ CONTAINS
IF(wann%l_updown)THEN
CALL wann_updown(&
mpi,input,kpts,sym,atoms,stars,vacuum,sphhar,oneD,noco,cell,vTot,&
DIMENSION,mpi,input,kpts,sym,atoms,stars,vacuum,sphhar, &
oneD,noco,cell,vTot,&
enpara,eig_idList(1),l_real,&
mpi%mpi_comm,atoms%l_dulo,noco%l_noco,noco%l_ss,&
atoms%lmaxd,atoms%ntype,DIMENSION%neigd,atoms%nat,sym%nop,&
......
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