Module Hamilt_Module USE Numeric_Kinds_Module REAL(dp),ALLOCATABLE :: kinetic_rho(:,:) REAL(dp),ALLOCATABLE :: kinetic_theta(:,:) REAL(dp),ALLOCATABLE :: kinetic_chi(:,:) REAL(dp),ALLOCATABLE :: potential_full(:,:,:) REAL(dp),ALLOCATABLE :: a(:) , b(:) , c(:) , d(:) End Module Hamilt_Module