1! --- 2! Copyright (C) 1996-2016 The SIESTA group 3! This file is distributed under the terms of the 4! GNU General Public License: see COPYING in the top directory 5! or http://www.gnu.org/copyleft/gpl.txt . 6! See Docs/Contributors.txt for a list of contributors. 7! --- 8module m_eo 9 10 use precision, only: dp 11 implicit none 12 13 public 14 15 real(dp), pointer, save :: eo(:,:,:) ! Hamiltonian eigenvalues 16 real(dp), pointer, save :: qo(:,:,:) ! Occupations of eigenstates 17 18end module m_eo 19 20 21 22 23 24