1 2! Copyright (C) 2018 T. Mueller, J. K. Dewhurst, S. Sharma and E. K. U. Gross. 3! This file is distributed under the terms of the GNU General Public License. 4! See the file COPYING for license details. 5 6subroutine writeengyu(fnum) 7use modmain 8use modulr 9implicit none 10! arguments 11integer, intent(in) :: fnum 12write(fnum,*) 13write(fnum,'("Energies :")') 14write(fnum,'(" Fermi",T30,": ",G22.12)') efermi 15end subroutine 16 17