Commit 9b3e9eff authored by Frank Freimuth's avatar Frank Freimuth

Update wann_updown.F

parent e60f8b4f
......@@ -1182,9 +1182,9 @@ c$$$ enddo !i
addnoco2 = addnoco ! TODO: correct for addnoco2
call wann_mmkb_int(
> cmplx(1.,0.),addnoco,addnoco2,
> nvd,k1d,k2d,k3d,
> n3d,lapw%k1(:,jspin),lapw%k2(:,jspin),lapw%k3(:,jspin),
> lapw%nv(jspin),neigd,nbasfcn,zMat(1),nslibd,
> DIMENSION%nvd,stars%mx1,stars%mx2,stars%mx3,
> stars%ng3,lapw%k1(:,jspin),lapw%k2(:,jspin),lapw%k3(:,jspin),
> lapw%nv(jspin),DIMENSION%neigd,DIMENSION%nbasfcn,zMat(1),nslibd,
> lapw%k1(:,jspin),lapw%k2(:,jspin),lapw%k3(:,jspin),
> lapw%nv(jspin),zMat(2),nslibd,
> nbnd,
......
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