Commit 978b4049 authored by Henning Janssen's avatar Henning Janssen

Extra condition for last commit

parent 0c541e43
......@@ -355,7 +355,7 @@
!**** write out DOS
OPEN (18,FILE='DOS'//spin12(jspin))
OPEN (1337,FILE="PROJDOS"//spin12(jspin))
IF (atoms%ntype >= 20) OPEN (1337,FILE="PROJDOS"//spin12(jspin))
DO i = 1 , ned
totdos = 0.0
......@@ -387,7 +387,7 @@
ENDIF
ENDDO
CLOSE (18)
CLOSE (1337)
IF (atoms%ntype >= 20) CLOSE (1337)
ELSE
write(*,'(4f15.8)') ((mcd%e_mcd(n,jspin,i),n=1,atoms%ntype),i=1,ncored)
......
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