Commit cf61a7b0 authored by Frank Freimuth's avatar Frank Freimuth

Update wann_updown.F

parent e62b178e
...@@ -8,7 +8,8 @@ ...@@ -8,7 +8,8 @@
use m_juDFT use m_juDFT
CONTAINS CONTAINS
SUBROUTINE wann_updown( SUBROUTINE 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, > enpara,
> eig_id,l_real,mpi_comm,l_dulo,l_noco,l_ss,lmaxd,ntypd, > eig_id,l_real,mpi_comm,l_dulo,l_noco,l_ss,lmaxd,ntypd,
> neigd,natd,nop,nvd,jspd,nbasfcn,llod,nlod,ntype, > neigd,natd,nop,nvd,jspd,nbasfcn,llod,nlod,ntype,
...@@ -73,6 +74,7 @@ c**************************************************************************** ...@@ -73,6 +74,7 @@ c****************************************************************************
#endif #endif
TYPE(t_dimension), INTENT(IN) :: DIMENSION
TYPE(t_mpi),INTENT(IN) :: mpi TYPE(t_mpi),INTENT(IN) :: mpi
TYPE(t_input),INTENT(IN) :: input TYPE(t_input),INTENT(IN) :: input
TYPE(t_kpts), INTENT(IN) :: kpts TYPE(t_kpts), INTENT(IN) :: kpts
......
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