Commit d154fcea authored by Frank Freimuth's avatar Frank Freimuth

Update wann_updown.F

parent 1824e4f4
......@@ -580,14 +580,14 @@ c***********************************************************
do n = 1,ntype
do l = 0,lmax(n)
call radfun(
> l,n,jspin,enpara%el0(l,n,jspin2),vr(1,n,jspin2),atoms,
< ff(n,:,:,l,jspin),gg(n,:,:,l,jspin),usdus,
< nodeu,noded,wronk)
> l,n,jspin,enpara%el0(l,n,jspin2),vr(1,n,jspin2),atoms,
< ff(n,:,:,l,jspin),gg(n,:,:,l,jspin),usdus,
< nodeu,noded,wronk)
enddo !l
do ilo = 1, nlo(n)
call radflo(
> atoms,n,jspin,enpara%ello(:,:,jspin2),vr(1,n,jspin2),
> atoms,n,jspin,enpara%ello0(:,:,jspin2),vr(1,n,jspin2),
> ff(n,1:,1:,0:,jspin),gg(n,1:,1:,0:,jspin),mpi,
< usdus,uuilon,duilon,ulouilopn,flo(n,:,:,:,jspin))
......
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