Commit f2629ede authored by Frank Freimuth's avatar Frank Freimuth

Update wann_uHu.F

parent 3c4c647c
......@@ -1465,16 +1465,16 @@ c endif
call cpu_time(t0)
call wann_uHu_vac(
> cmplx(1.,0.),l_noco,l_soc,zrfs,jspins,nlotot,qpt_i,
> nbnd,z1,nmzxyd,nmzd,n2d,nv2d,k1d,k2d,k3d,n3d,nvac,ig,
> rgphs,nmzxy,nmz,delz,ig2,nq2,kv2,area,bmat,bbmat,
> evac(:,jspin4),evac(:,jspin4_b),lapw_b%bkpt,lapw_b2%bkpt,
> vzxy(:,:,:,jspin3),vz,nslibd_b,nslibd_b2,
> jspin,jspin_b,doublespin,
> nbnd,z1,nmzxyd,nmzd,n2d,nv2d,k1d,k2d,k3d,n3d,nvac,ig,
> rgphs,nmzxy,nmz,delz,ig2,nq2,kv2,area,bmat,bbmat,
> evac(:,jspin4),evac(:,jspin4_b),lapw_b%bkpt,lapw_b2%bkpt,
> vzxy(:,:,:,jspin3),vz,nslibd_b,nslibd_b2,
> jspin,jspin_b,doublespin,
! > k1_b,k2_b,k3_b,
> lapw_b%k1(:,jspin),lapw_b%k2(:,jspin),lapw_b%k3(:,jspin),
> lapw_b%k1(:,jspin),lapw_b%k2(:,jspin),lapw_b%k3(:,jspin),
! > k1_b2,k2_b2,k3_b2,
> lapw_b2%k1(:,jspin),lapw_b2%k2(:,jspin),lapw_b2%k3(:,jspin),
> wannierspin,nvd,nbasfcn,neigd,
> lapw_b2%k1(:,jspin),lapw_b2%k2(:,jspin),lapw_b2%k3(:,jspin),
> wannierspin,nvd,nbasfcn,neigd,
> zMat_b,zMat_b2,
> lapw_b%nv,!nv_b,
> lapw_b2%nv,! nv_b2,
......@@ -1491,14 +1491,14 @@ c endif
> DIMENSION,oneD,vacuum,stars,cell,
> cmplx(1.,0.),l_noco,l_soc,jspins,nlotot,nbnd,z1,
> nmzxyd,nmzd,nv2d,k1d,k2d,k3d,n2d,n3d,ig,nmzxy,nmz,
> delz,ig2,bbmat,evac(1,jspin4),evac(1,jspin4_b),lapw_b%bkpt,
> lapw_b2%bkpt,odi,vzxy(:,:,:,jspin3),vz,nslibd_b,nslibd_b2,
> jspin,jspin_b,doublespin,
> delz,ig2,bbmat,evac(1,jspin4),evac(1,jspin4_b),lapw_b%bkpt,
> lapw_b2%bkpt,odi,vzxy(:,:,:,jspin3),vz,nslibd_b,nslibd_b2,
> jspin,jspin_b,doublespin,
! > k1_b,k2_b,k3_b,
> lapw_b%k1(:,:),lapw_b%k2(:,:),lapw_b%k3(:,:),
! > k1_b2,k2_b2,k3_b2,
> lapw_b2%k1(:,:),lapw_b2%k2(:,:),lapw_b2%k3(:,:),
> wannierspin,nvd,area,nbasfcn,neigd,zMat_b,zMat_b2,
> wannierspin,nvd,area,nbasfcn,neigd,zMat_b,zMat_b2,
> lapw_b%nv,!nv_b,
> lapw_b2%nv,!nv_b2,
> sk2,phi2,omtil,gb(:,ikpt_b,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