1
2! Copyright (C) 2016 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 eveqnulr(ik0,evecu)
7use modmain
8use modulr
9implicit none
10! arguments
11integer, intent(in) :: ik0
12complex(8), intent(out) :: evecu(nstulr,nstulr)
13! generate the ultra long-range Hamiltonian
14call genhmlu(ik0,evecu)
15! find the eigenvalues and vectors
16call eveqnzh(nstulr,nstulr,evecu,evalu(:,ik0))
17end subroutine
18
19