Module EnergyGrid_Module USE Numeric_Kinds_Module Implicit None Save INTEGER :: edim,initial_ept REAL(dp) :: deltae REAL(dp),ALLOCATABLE :: e_vals(:) COMPLEX(dp),ALLOCATABLE :: eta_e(:), eta_cd(:,:) ! !INTEGER :: nenergy,nk !INTEGER :: ind_e_min, ind_e_max ! Indices of energy region of interest !REAL(dp) :: kmin,kmax,deltak !REAL(dp),ALLOCATABLE :: k_vals(:) End Module EnergyGrid_Module