Commit 5ab9b9af authored by Frank Freimuth's avatar Frank Freimuth

Update wann_updown.F

parent 0240b3b0
......@@ -1334,6 +1334,23 @@ c******************************************************
< surfcurr)
endif
if(wann%l_torque)then
if(l_soc)then
nbnd1p2=nbnd
else
nbnd1p2=nbnd+nbnd
endif
do at=1,wann%atomlist_num
write(torquename,fmt='("torque_",i3.3)')wann%atomlist(at)
call wann_write_nabla(
> mpi_communicatior,l_p0,torquename,
> 'Spin currents into MT-sphere',
> nbnd1p2,fullnkpts,nbnd1p2,
> irank,isize,wann%l_unformatted,
< torque(:,:,:,at,:))
enddo
endif
if( allocated (nablamat) ) deallocate( nablamat )
deallocate ( mmn )
......
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