Commit e60f8b4f authored by Frank Freimuth's avatar Frank Freimuth

Update wann_updown.F

parent c18c5164
......@@ -994,7 +994,7 @@ c...for the lapws and local orbitals, summed by the basis functions
do jspin=1,wannierspin
CALL abcof(input,atoms,sym,cell,lapw,noccbd,usdus,
+ noco,jspin,oneD,acof(1:,0:,1:,jspin),
+ noco,min(jspin,input%jspins),oneD,acof(1:,0:,1:,jspin),
+ bcof(1:,0:,1:,jspin),ccof(-llod:,1:,1:,1:,jspin),
+ zMat(jspin))
......@@ -1214,7 +1214,8 @@ c call wann_mmk0_vac(
c > z1,nmzd,nv2d,k1d,k2d,k3d,n3d,nvac,
c > ig,nmz,delz,ig2,area,bmat,
c > bbmat,evac(:,jspin),bkpt,vz(:,:,jspin2),
c > nslibd,jspin,k1,k2,k3,wannierspin,nvd,
c > nslibd,jspin,lapw%k1(:,jspin),lapw%k2(:,jspin),
c > lapw%k3(:,jspin),wannierspin,nvd,
c > nbasfcn,neigd,z,nv,omtil,
c < mmn(1:noccbd,1:noccbd,ikpt))
......@@ -1225,7 +1226,8 @@ c > z1,nmzxyd,nmzd,nv2d,k1d,k2d,k3d,n2d,n3d,
c > ig,nmzxy,nmz,delz,ig2,odi%n2d,
c > bbmat,evac(1,jspin),bkpt,odi%M,odi%mb,
c > vz(:,1,jspin2),odi,
c > nslibd,jspin,k1,k2,k3,wannierspin,nvd,area,
c > nslibd,jspin,lapw%k1(:,jspin),lapw%k2(:,jspin),
c > lapw%k3(:,jspin),wannierspin,nvd,area,
c > nbasfcn,neigd,z,nv,sk2,phi2,omtil,qss,
c < mmn(1:noccbd,1:noccbd,ikpt))
......
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