Commit 5ce35d3c authored by Daniel Wortmann's avatar Daniel Wortmann

Fixed Bug in DOS mode

parent b1509ec4
......@@ -72,12 +72,12 @@
DATA spin12/'.1' , '.2'/
DATA ch_mcd/'.+' , '.-' , '.0'/
!
l_orbcomp = .false.
IF (banddos%ndir.NE.-3) THEN
qdim = lmax*atoms%ntype+3
ELSE
qdim = 2*nsld
n_orb = 0
l_orbcomp = .false.
INQUIRE(file='orbcomp',exist=l_orbcomp)
IF (l_orbcomp) THEN
OPEN (1,file='orbcomp',form='formatted')
......
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