SUBROUTINE deall_aph_ham

USE APH_Module
USE Hamilt_Module

IMPLICIT NONE

!=========================================================================================
!     I N T E R N A L S

LOGICAL :: debug

!=========================================================================================
!     A L L O C A T A B L E

!=========================================================================================
!     N A M E L I S T S

!=========================================================================================
! Choose whether to output debug information

  debug=.false.

!=========================================================================================
! Deallocate APH hamiltonian to free memory


  DEALLOCATE( kinetic_rho , kinetic_theta , kinetic_chi )
  DEALLOCATE( potential_full )
  DEALLOCATE( a , b , c , d )


END SUBROUTINE deall_aph_ham