Commit 4950a3ce authored by Henning Janssen's avatar Henning Janssen

Fix for 46a8d988

parent 46a8d988
...@@ -372,7 +372,7 @@ ...@@ -372,7 +372,7 @@
ELSE ELSE
WRITE (18,99001) e(i),totdos,g(i,lmax*atoms%ntype+1), & WRITE (18,99001) e(i),totdos,g(i,lmax*atoms%ntype+1), &
g(i,lmax*atoms%ntype+2),g(i,lmax*atoms%ntype+3), (gpart(i,l),l=1,atoms%ntype) g(i,lmax*atoms%ntype+2),g(i,lmax*atoms%ntype+3), (gpart(i,l),l=1,atoms%ntype)
IF(banddos%projdos.NE.0) WRITE (1337,99001) e(i),(g(i,l),l=banddos%projdos,banddos%projdos+lmax) IF(banddos%projdos.NE.0) WRITE (1337,99001) e(i),(g(i,l),l=lmax*(banddos%projdos-1)+1,lmax*banddos%projdos)
ENDIF ENDIF
ELSEIF (n_orb == 0) THEN ELSEIF (n_orb == 0) THEN
DO nl = 1, slab%nsld DO nl = 1, slab%nsld
......
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