Commit 01ae2a5e authored by Frank Freimuth's avatar Frank Freimuth

Update wann_uHu.F

parent ab445586
......@@ -183,8 +183,8 @@ c ..local arrays..
real :: eig(neigd),eig_b(neigd),eig_b2(neigd)
real :: uuilon(nlod,ntypd),duilon(nlod,ntypd)
real :: ulouilopn(nlod,nlod,ntypd)
real :: ello(nlod,ntypd,max(2,jspd)),evac(2,max(2,jspd))
real :: epar(0:lmaxd,ntypd,max(2,jspd)),evdu(2,max(jspd,2))
real :: evac(2,max(2,jspd))
real :: evdu(2,max(jspd,2))
real :: qpt_i(3),qptb_i(3)
real :: alph_i(ntypd),alphb_i(ntypd)
real :: beta_i(ntypd),betab_i(ntypd)
......@@ -879,12 +879,13 @@ c na = na + neq(n)
> memd,nlhd,ntypsd,ntypd,jmtd,lmaxd,jspd,ntype,dx,
> rmsh,jri,lmax,ntypsy,natd,lnonsph,lmd,lmplmd,clnu,
> mlh,nmem,llh,nlh,neq,irank,mlotot,mlolotot,
> vTot%mt(:,:,:,jspin3),nlod,llod,loplod,ello(1,1,jspin3),
> vTot%mt(:,:,:,jspin3),nlod,llod,loplod,
> enpara%ello0(1,1,jspin3),
> llo,nlo,lo1l,l_dulo,ulo_der,ff(:,:,:,:,jspin),
> gg(:,:,:,:,jspin),flo(:,:,:,:,jspin),
> ff(:,:,:,:,jspin_b),gg(:,:,:,:,jspin_b),
> flo(:,:,:,:,jspin_b),kdiff,kdiff,nntot,nntot,bmat,bbmat,
> vr(1,1,jspin3),epar(0,1,jspin3),invsat,
> vr(1,1,jspin3),enpara%el0(0,1,jspin3),invsat,
> l_skip_sph,l_skip_non,l_skip_loc,
< tuu(:,:,:,:,tspin2),tud(:,:,:,:,tspin2),
> tdu(:,:,:,:,tspin2),tdd(:,:,:,:,tspin2),
......@@ -912,11 +913,11 @@ c na = na + neq(n)
> ntypd,jmtd,lmaxd,jspd,
> ntype,dx,rmsh,jri,lmax,natd,
> lmd,lmplmd,neq,irank,
> nlod,llod,loplod,ello,llo,nlo,lo1l,l_dulo,ulo_der,
> nlod,llod,loplod,enpara%ello0,llo,nlo,lo1l,l_dulo,ulo_der,
> ff(:,:,:,:,jspin),gg(:,:,:,:,jspin),flo(:,:,:,:,jspin),
> ff(:,:,:,:,jspin_b),gg(:,:,:,:,jspin_b),flo(:,:,:,:,jspin_b),
> kdiff,kdiff,nntot,nntot,bmat,bbmat,
> vr,epar,jspin,jspin_b,jspins,
> vr,enpara%el0,jspin,jspin_b,jspins,
> .true.,theta_i,phi_i,alph_i,beta_i,l_noco,l_skip_loc,
< tuu_soc,tud_soc,
> tdu_soc,tdd_soc,
......
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