subroutine sitesym_dealloc
!==================================================================!
use w90_io, only: io_error
implicit none
integer :: ierr
deallocate (ik2ir, stat=ierr)
if (ierr /= 0) call io_error('Error in deallocating ik2ir in sitesym_dealloc')
deallocate (ir2ik, stat=ierr)
if (ierr /= 0) call io_error('Error in deallocating ir2ik in sitesym_dealloc')
deallocate (kptsym, stat=ierr)
if (ierr /= 0) call io_error('Error in deallocating kptsym in sitesym_dealloc')
deallocate (d_matrix_band, stat=ierr)
if (ierr /= 0) call io_error('Error in deallocating d_matrix_band in sitesym_dealloc')
deallocate (d_matrix_wann, stat=ierr)
if (ierr /= 0) call io_error('Error in deallocating d_matrix_wann in sitesym_dealloc')
return
end subroutine sitesym_dealloc