Commit 9dcd2be8 authored by Gregor Michalicek's avatar Gregor Michalicek

Enabled writing of Fermi energy into out.xml

parent 67a8953b
......@@ -228,7 +228,12 @@ CONTAINS
results%seigscv = results%seigsc + results%seigv
!
DEALLOCATE ( idxeig,idxjsp,idxkpt,index,e,eig,we )
!
attributes = ''
WRITE(attributes(1),'(f20.10)'), results%ef
WRITE(attributes(2),'(a)'), 'htr'
IF (mpi%irank.EQ.0) CALL writeXMLElement('FermiEnergy',(/'value','units'/),attributes(1:2))
RETURN
8020 FORMAT (/,'FERMIE:',/,&
& 10x,'first approx. to ef (T=0) :',f10.6,' htr',&
......
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