Commit 3c4c647c authored by Frank Freimuth's avatar Frank Freimuth

Update wann_uHu.F

parent 57cc1c82
......@@ -1367,8 +1367,8 @@ c endif
call wann_uHu_sph(
> cmplx(1.,0.),nbnd,llod,nslibd_b,nslibd_b2,nlod,natd,ntypd,
> lmd,jmtd,taual,nop,lmax,ntype,neq,nlo,llo,
> acof_b,bcof_b,ccof_b,bkpt_b2,
> acof_b2,bcof_b2,ccof_b2,bkpt_b,bkpt,
> acof_b,bcof_b,ccof_b,lapw_b2%bkpt,
> acof_b2,bcof_b2,ccof_b2,lapw_b%bkpt,lapw%bkpt,
> gb(:,ikpt_b,ikpt),gb(:,ikpt_b2,ikpt),
< tuu(:,:,:,:,tspin2),tud(:,:,:,:,tspin2),
> tdu(:,:,:,:,tspin2),tdd(:,:,:,:,tspin2),
......@@ -1393,8 +1393,8 @@ c endif
call wann_uHu_sph(
> cmplx(1.,0.),nbnd,llod,nslibd_b,nslibd_b2,nlod,natd,ntypd,
> lmd,jmtd,taual,nop,lmax,ntype,neq,nlo,llo,
> acof_b,bcof_b,ccof_b,bkpt_b2,
> acof_b2,bcof_b2,ccof_b2,bkpt_b,bkpt,
> acof_b,bcof_b,ccof_b,lapw_b2%bkpt,
> acof_b2,bcof_b2,ccof_b2,lapw_b%bkpt,lapw%bkpt,
> gb(:,ikpt_b,ikpt),gb(:,ikpt_b2,ikpt),
< tuu_soc,tud_soc,
> tdu_soc,tdd_soc,
......@@ -1445,7 +1445,7 @@ c endif
! > k1_b2(:,jspin_b),k2_b2(:,jspin_b),k3_b2(:,jspin_b),
> lapw_b2%k1(:,jspin),lapw_b2%k2(:,jspin),lapw_b2%k3(:,jspin),
> gb(:,ikpt_b2,ikpt),
> bkpt,bbmat,vpw(:,jspin3),zMat_b,zMat_b2,rgphs,
> lapw%bkpt,bbmat,vpw(:,jspin3),zMat_b,zMat_b2,rgphs,
> ustep,ig,jspin.eq.jspin_b,sign2,
> uHu(:,:,ikpt_b2,ikpt_b,i_rec))
call cpu_time(t1)
......@@ -1467,7 +1467,7 @@ c endif
> 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),bkpt_b,bkpt_b2,
> 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,
......@@ -1491,8 +1491,8 @@ 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),bkpt_b,
> bkpt_b2,odi,vzxy(:,:,:,jspin3),vz,nslibd_b,nslibd_b2,
> 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(:,:),
......
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