! written by nbigen.py
! *** do not edit *** (use nbigen.py instead)
 
subroutine nbi_dalloc_track
 
  use nbi_com
  implicit NONE
 
  !==============================================
  ! internal arrays
 
  if(allocated(TRACK_nbsce)) deallocate(TRACK_nbsce)
  if(allocated(TRACK_nbien)) deallocate(TRACK_nbien)
  if(allocated(XNTRACK)) deallocate(XNTRACK)
  if(allocated(TRACK_RIN)) deallocate(TRACK_RIN)
  if(allocated(TRACK_ZIN)) deallocate(TRACK_ZIN)
  if(allocated(TRACK_PHIIN)) deallocate(TRACK_PHIIN)
  if(allocated(TRACK_ROUT)) deallocate(TRACK_ROUT)
  if(allocated(TRACK_ZOUT)) deallocate(TRACK_ZOUT)
  if(allocated(TRACK_PHIOUT)) deallocate(TRACK_PHIOUT)
  if(allocated(TRACK_TIME)) deallocate(TRACK_TIME)
  if(allocated(TRACK_EINJ)) deallocate(TRACK_EINJ)
  if(allocated(TRACK_SINJ)) deallocate(TRACK_SINJ)
 
end subroutine nbi_dalloc_track
