Commit 35b5f2bf authored by Frank Freimuth's avatar Frank Freimuth

Update wann_updown.F

parent 5b5c0996
......@@ -1148,7 +1148,7 @@ c***************************************************
c------> interstitial contribution to updown.mmn0-matrix
addnoco=0
if(l_noco)then
addnoco=nv(1)+nlotot
addnoco=lapw%nv(1)+nlotot
endif
c$$$ do i = n_rank+1,nv(jspin),n_size
......
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