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