Module Aph_Ham_Module
USE Numeric_Kinds_Module

!==============================================================================
! APH Hamiltonian Matrices
REAL(dp),ALLOCATABLE :: t_rho(:,:), t_theta(:,:), t_chi(:,:), v_pot(:,:,:)
REAL(dp),ALLOCATABLE :: a(:) , b(:) , c(:) , d(:), rhom2(:)
REAL(dp),ALLOCATABLE :: t_chir(:)
REAL(dp),ALLOCATABLE :: tchi1(:), tchir1(:)
REAL(dp),ALLOCATABLE :: v_pot2(:,:,:)

!==============================================================================
! APH eigenvectors and energies
REAL(dp),ALLOCATABLE :: rho_eig(:), tht_eig(:), chi_eig(:)
REAL(dp),ALLOCATABLE :: rho_evec(:,:), tht_evec(:,:), chi_evec(:,:)

!==============================================================================
! Arrays for reducing energy range of t_theta and t_chi
REAL(dp),ALLOCATABLE :: compr(:,:), compr2(:,:)
REAL(dp),ALLOCATABLE :: compr_mat(:,:,:), compr_mat2(:,:,:)
REAL(dp),ALLOCATABLE :: tempvcut(:,:), tempvcut2(:,:)
REAL(dp),ALLOCATABLE :: tempeig(:,:), tempeig2(:,:)
REAL(dp),ALLOCATABLE :: t_theta_clip(:,:), t_chi_clip(:,:)
REAL(dp),ALLOCATABLE :: t_chi_temp(:,:)
INTEGER,ALLOCATABLE :: num_eig(:), num_eig2(:)

LOGICAL :: first_theta
LOGICAL :: clip_theta

End Module Aph_Ham_Module