! written by nbigen.py
! *** do not edit *** (use nbigen.py instead)
 
subroutine nbi_alloc_lost
 
  use nbi_com
  implicit NONE
 
  !==============================================
  ! internal arrays
 
  call nbi_dalloc_lost
  if(mlost_data.eq.0) return
  allocate(gtime_lost(mlost_data)); gtime_lost = zero
  allocate(ynbsce_lost(mlost_data)); ynbsce_lost = zero
  allocate(ynbien_lost(mlost_data)); ynbien_lost = zero
  allocate(wght_lost(mlost_data)); wght_lost = zero
  allocate(rmjion_lost(mlost_data)); rmjion_lost = zero
  allocate(yyion_lost(mlost_data)); yyion_lost = zero
  allocate(yze_lost(mlost_data)); yze_lost = zero
  allocate(xksid_lost(mlost_data)); xksid_lost = zero
  allocate(goose_lost(mlost_data)); goose_lost = zero
  allocate(species_lost(mlost_data)); species_lost = zero
 
  write(nonlin,*)'% nbi_alloc_lost: nbi_alloc_lost done'
end subroutine nbi_alloc_lost
