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

Fixed Bug in DOS mode

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