Commit c7c3391b authored by Gregor Michalicek's avatar Gregor Michalicek

Fixed bug in generation of DOS iff inp.xml file is used.

The kpts file was always read in dos/evaldos.f90. This was
problematic since there is no kpts file iff inp.xml is used.
In this case now the reading of kpts is skipped.
parent 804d64e8
......@@ -256,6 +256,7 @@
write(*,*) as,sym%nop2,l_tria
! l_tria=.true.
IF (input%l_inpXML) GOTO 66
OPEN (41,file='kpts',FORM='formatted',STATUS='old')
DO i = 1, kpts%nkpt+1
READ (41,*,END=66,ERR=66)
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