finish_collisional Subroutine

  subroutine finish_collisional
    if(.not. initialized) return
    deallocate(coll_heating)
    deallocate(coll_heating_2)
    deallocate(tot)
    deallocate(g0)
    initialized = .false.
  end subroutine finish_collisional