! written by nbigen.py
! *** do not edit *** (use nbigen.py instead)
 
subroutine nbi_initdim_bufput
 
  use nbi_com
  use nbi_bcastbuf
  implicit NONE
  integer :: inumi
 
  inumi=0
 
  call putdat(mib,inumi)
  call putdat(mj,inumi)
  call putdat(mig,inumi)
  call putdat(mis,inumi)
  call putdat(mibs,inumi)
  call putdat(mimpt,inumi)
  call putdat(mmini,inumi)
  call putdat(mtheta,inumi)
  call putdat(miefi,inumi)
  call putdat(med2d,inumi)
  call putdat(mimxba,inumi)
  call putdat(mimxbe,inumi)
  call putdat(mgyro,inumi)
  call putdat(mimxba0,inumi)
  call putdat(mimxbe0,inumi)
  call putdat(miboxm,inumi)
  call putdat(mitubem,inumi)
  call putdat(mituben,inumi)
  call putdat(mnkaep,inumi)
  call putdat(mjeqv,inumi)
  call putdat(mjzb,inumi)
  call putdat(mjzc,inumi)
  call putdat(mtbl,inumi)
  call putdat(mjr,inumi)
  call putdat(mmaxion,inumi)
  call putdat(miz,inumi)
  call putdat(minbs,inumi)
  call putdat(mimaxz,inumi)
  call putdat(mireact,inumi)
  call putdat(miplot,inumi)
  call putdat(mimxbe1,inumi)
  call putdat(nthspl,inumi)
  call putdat(nthpmin,inumi)
  call putdat(nthpmax,inumi)
  call putdat(minspl,inumi)
  call putdat(minbplt,inumi)
  call putdat(mtrk,inumi)
 
end subroutine nbi_initdim_bufput
 
subroutine nbi_initdim_bufget
 
  use nbi_com
  use nbi_bcastbuf
  implicit NONE
  integer :: inumi
 
  inumi=0
 
  call getdat(mib,inumi)
  call getdat(mj,inumi)
  call getdat(mig,inumi)
  call getdat(mis,inumi)
  call getdat(mibs,inumi)
  call getdat(mimpt,inumi)
  call getdat(mmini,inumi)
  call getdat(mtheta,inumi)
  call getdat(miefi,inumi)
  call getdat(med2d,inumi)
  call getdat(mimxba,inumi)
  call getdat(mimxbe,inumi)
  call getdat(mgyro,inumi)
  call getdat(mimxba0,inumi)
  call getdat(mimxbe0,inumi)
  call getdat(miboxm,inumi)
  call getdat(mitubem,inumi)
  call getdat(mituben,inumi)
  call getdat(mnkaep,inumi)
  call getdat(mjeqv,inumi)
  call getdat(mjzb,inumi)
  call getdat(mjzc,inumi)
  call getdat(mtbl,inumi)
  call getdat(mjr,inumi)
  call getdat(mmaxion,inumi)
  call getdat(miz,inumi)
  call getdat(minbs,inumi)
  call getdat(mimaxz,inumi)
  call getdat(mireact,inumi)
  call getdat(miplot,inumi)
  call getdat(mimxbe1,inumi)
  call getdat(nthspl,inumi)
  call getdat(nthpmin,inumi)
  call getdat(nthpmax,inumi)
  call getdat(minspl,inumi)
  call getdat(minbplt,inumi)
  call getdat(mtrk,inumi)
 
  if(.not.nbi_init_flag) call nbi_alloc_init
 
end subroutine nbi_initdim_bufget
 
subroutine nbi_bufput_data
 
  use nbi_com
  use nbi_bcastbuf
  implicit NONE
  integer :: inumi,inumr,inumc,inuml
 
  inumi=0
  inumr=0
  inumc=0
  inuml=0
 
  call putdat(runid,inumc)
  call putdat(mission,inumc)
  call putdat(workpath,inumc)
  call putdat(nonlin,inumi)
  call putdat(nseed,inumi)
  call putdat(nlbout,inuml)
  call putdat(lunnbx,inumi)
  call putdat(lunres,inumi)
  call putdat(mrstrt,inumi)
  call putdat(nclass,inumi)
  call putdat(only_io,inuml)
  call putdat(ref_namelist,inuml)
  call putdat(quasi_check,inuml)
  call putdat(nltest_output,inuml)
  call putdat(BLK_MPI_BCAST_INT,inumi)
  call putdat(BLK_MPI_BCAST_R8,inumi)
  call putdat(tbm1,inumr)
  call putdat(tbm2,inumr)
  call putdat(nzones,inumi)
  call putdat(nzone_fb,inumi)
  call putdat(nlsym2b,inuml)
  call putdat(nth0,inumi)
  call putdat(xbmbnd,inumr)
  call putdat(id_mcgrid,inumi)
  call putdat(nthets,inumi)
  call putdat(ebdmax,inumr)
  call putdat(xplasma_in_memory,inumi)
  call putdat(nznbma,inumi)
  call putdat(nznbme,inumi)
  call putdat(nznbma0,inumi)
  call putdat(nznbme0,inumi)
  call putdat(ngyro,inumi)
  call putdat(ngmax,inumi)
  call putdat(backz,inumr)
  call putdat(aplasm,inumr)
  call putdat(nbeam,inumi)
  call putdat(xzbeama,inumr)
  call putdat(abeama,inumr)
  call putdat(nlco,inuml)
  call putdat(ntrace,inumi)
  call putdat(rtcena,inumr)
  call putdat(xlbtna,inumr)
  call putdat(xybsca,inumr)
  call putdat(xbzeta,inumr)
  call putdat(nbshapa,inumi)
  call putdat(bmwidra,inumr)
  call putdat(bmwidza,inumr)
  call putdat(divra,inumr)
  call putdat(divza,inumr)
  call putdat(foclra,inumr)
  call putdat(foclza,inumr)
  call putdat(nbapsha,inumi)
  call putdat(rapedga,inumr)
  call putdat(xzpedga,inumr)
  call putdat(xlbapa,inumr)
  call putdat(xybapa,inumr)
  call putdat(xrapoffa,inumr)
  call putdat(xzapoffa,inumr)
  call putdat(nbapsh2,inumi)
  call putdat(rapedg2,inumr)
  call putdat(xzpedg2,inumr)
  call putdat(xlbapa2,inumr)
  call putdat(xrapoff2,inumr)
  call putdat(xzapoff2,inumr)
  call putdat(nrhix,inumi)
  call putdat(xzimpx,inumr)
  call putdat(aimpx,inumr)
  call putdat(nmini,inumi)
  call putdat(xzmini,inumr)
  call putdat(amini,inumr)
  call putdat(nthrf,inumi)
  call putdat(einjmin,inumr)
  call putdat(einja,inumr)
  call putdat(pinja,inumr)
  call putdat(ffulla,inumr)
  call putdat(fhalfa,inumr)
  call putdat(orbrzv_toric_Prftot0,inumr)
  call putdat(orbrzv_toric_frnm,inumr)
  call putdat(nlfhe3,inuml)
  call putdat(nlfhe4,inuml)
  call putdat(nlfst,inuml)
  call putdat(nlfsp,inuml)
  call putdat(nlfsp14,inuml)
  call putdat(nlusf3,inuml)
  call putdat(xdatsf3,inumr)
  call putdat(nlusfa,inuml)
  call putdat(xdatsfa,inumr)
  call putdat(nlusft,inuml)
  call putdat(xdatsft,inumr)
  call putdat(nlusfp,inuml)
  call putdat(xdatsfp,inumr)
  call putdat(nlusfp14,inuml)
  call putdat(xdatsp3,inumr)
  call putdat(plfhe3,inumr)
  call putdat(plfhe4,inumr)
  call putdat(plfst,inumr)
  call putdat(plfsp,inumr)
  call putdat(plfsp14,inumr)
  call putdat(nlfatom,inuml)
  call putdat(nlbfpp,inuml)
  call putdat(cxsplt,inumr)
  call putdat(dxbsmoo,inumr)
  call putdat(dxbsm_nc,inumr)
  call putdat(nptcls,inumi)
  call putdat(nptclf,inumi)
  call putdat(nptclh,inumi)
  call putdat(NFAST_MAP,inumi)
  call putdat(xpand_nptcl,inumr)
  call putdat(frac_depmax,inumr)
  call putdat(frac_dep_lim,inumr)
  call putdat(frac_depmin,inumr)
  call putdat(frac_orbrr,inumr)
  call putdat(nptcl_max,inumi)
  call putdat(nltrk_dep0,inuml)
  call putdat(NLDEP0_GATHER,inuml)
  call putdat(ndep0,inumi)
  call putdat(NDEP0_MAX,inumi)
  call putdat(ndep_set_beam,inumi)
  call putdat(ndep_set_ien,inumi)
  call putdat(nbbcal,inumi)
  call putdat(ncx0,inumi)
  call putdat(nper_cx,inumi)
  call putdat(LEV_NBIDEP,inumi)
  call putdat(LEV_TTNUK,inumi)
  call putdat(LEVMOD_HALO,inumi)
  call putdat(NSPLT,inumi)
  call putdat(NSPLT_GEO,inumi)
  call putdat(NSPLT_KIN,inumi)
  call putdat(NSPLT_GEN,inumi)
  call putdat(nmimp,inumi)
  call putdat(AIMP,inumr)
  call putdat(XZIMP,inumr)
  call putdat(NTEST_MAX,inumi)
  call putdat(BI_MAX_PL,inumr)
  call putdat(BI_MAX_PR,inumr)
  call putdat(wghta,inumr)
  call putdat(goocon,inumr)
  call putdat(NGOOCON_VPVBIN,inumi)
  call putdat(NGOOCON_EBIN,inumi)
  call putdat(NGOOCON_RBIN,inumi)
  call putdat(cxpcon,inumr)
  call putdat(fppcon,inumr)
  call putdat(fdtnxy,inumr)
  call putdat(nchdvp,inumi)
  call putdat(dtn,inumr)
  call putdat(dt_acc,inumr)
  call putdat(orbrzv_option,inumi)
  call putdat(orbrzv_rf_option,inumi)
  call putdat(nlmcrf_on,inuml)
  call putdat(orbrzv_nr,inumi)
  call putdat(orbrzv_nz,inumi)
  call putdat(orbrzv_zzerr_con,inumr)
  call putdat(nsmax,inumi)
  call putdat(khalo,inumi)
  call putdat(dn0out,inumr)
  call putdat(nmsigx,inumi)
  call putdat(nlminsv,inuml)
  call putdat(nlebei,inuml)
  call putdat(nsigexc,inumi)
  call putdat(xdepmod,inumr)
  call putdat(nlbbcx,inuml)
  call putdat(nbbcx_avg,inumi)
  call putdat(nbbcx_bb,inumi)
  call putdat(nbfallgr,inumi)
  call putdat(nlbeamcx,inuml)
  call putdat(nlhvion,inuml)
  call putdat(xcfanbi,inumr)
  call putdat(xdfanbi,inumr)
  call putdat(xefanbi,inumr)
  call putdat(xcfafus,inumr)
  call putdat(xdfafus,inumr)
  call putdat(xefafus,inumr)
  call putdat(nlbcde,inuml)
  call putdat(nlbcoh,inuml)
  call putdat(nlbcpa,inuml)
  call putdat(nlorbo,inuml)
  call putdat(nlbflr,inuml)
  call putdat(nlfbmflr,inuml)
  call putdat(nlbgflr,inuml)
  call putdat(gflr_min,inumr)
  call putdat(gflr_rl,inumr)
  call putdat(gflr_ll,inumr)
  call putdat(gflr_xv,inumr)
  call putdat(gflr_op,inumr)
  call putdat(sawflag,inuml)
  call putdat(nlsawb,inuml)
  call putdat(nlsawf,inuml)
  call putdat(xswfrac_allfast,inumr)
  call putdat(xswfrac_beam,inumr)
  call putdat(xswfrac_fusn,inumr)
  call putdat(nmix_kdsaw,inumi)
  call putdat(fporcelli,inumr)
  call putdat(nkaep,inumi)
  call putdat(AEP_ASCALE,inumr)
  call putdat(AEP_USCALE,inumr)
  call putdat(TAEP_FAC,inumr)
  call putdat(nmdifb,inumi)
  call putdat(nkdifb,inumi)
  call putdat(ndifbe,inumi)
  call putdat(fdifbe,inumr)
  call putdat(edifbe,inumr)
  call putdat(x_qlim0,inumr)
  call putdat(ndifbe_2d,inumi)
  call putdat(dif2d_conv,inumr)
  call putdat(dif2d_dpa,inumr)
  call putdat(ngradd_opt,inumi)
  call putdat(nrip,inumi)
  call putdat(taurip,inumr)
  call putdat(id_ripple,inumi)
  call putdat(id_ripple2,inumi)
  call putdat(ncoils,inumi)
  call putdat(ncoils_2,inumi)
  call putdat(asrd,inumr)
  call putdat(bsrd,inumr)
  call putdat(nerngfi,inumi)
  call putdat(erngfi,inumr)
  call putdat(nsdbgb,inumi)
  call putdat(nlfbon,inuml)
  call putdat(fbemin,inumr)
  call putdat(fbemax,inumr)
  call putdat(fvpvmn,inumr)
  call putdat(fvpvmx,inumr)
  call putdat(fbltim,inumr)
  call putdat(fshper,inumr)
  call putdat(fshwid,inumr)
  call putdat(tfshon,inumr)
  call putdat(tfshof,inumr)
  call putdat(xfishmin,inumr)
  call putdat(xfishmax,inumr)
  call putdat(nfbon_vpvopt,inumi)
  call putdat(fbtrap_depth,inumr)
  call putdat(nfbon_species,inumi)
  call putdat(nbbox,inumi)
  call putdat(nbsbox,inumi)
  call putdat(nsample_box,inumi)
  call putdat(xninja_box,inumr)
  call putdat(xninjs_box,inumr)
  call putdat(xninj_box,inumr)
  call putdat(nbebox,inumi)
  call putdat(nxbox,inumi)
  call putdat(nybox,inumi)
  call putdat(nlbox,inumi)
  call putdat(xboxhw,inumr)
  call putdat(yboxhw,inumr)
  call putdat(xlbox1,inumr)
  call putdat(xlbox2,inumr)
  call putdat(ndepbox,inumi)
  call putdat(nbtube,inumi)
  call putdat(nbstube,inumi)
  call putdat(nbetube,inumi)
  call putdat(Rtube,inumr)
  call putdat(Ytube,inumr)
  call putdat(XZETAtube,inumr)
  call putdat(PHItube,inumr)
  call putdat(THETAtube,inumr)
  call putdat(LMIDtube,inumi)
  call putdat(XL1tube,inumr)
  call putdat(XL2tube,inumr)
  call putdat(NSEGtube,inumi)
  call putdat(RHOtube,inumr)
  call putdat(NDEPtube,inumi)
  call putdat(plhgt,inumr)
  call putdat(nlcprb,inuml)
  call putdat(nlpsirz,inuml)
  call putdat(edbfac,inumr)
  call putdat(nmcurb,inumi)
  call putdat(nlfdep,inuml)
  call putdat(id_te,inumi)
  call putdat(id_ti,inumi)
  call putdat(id_tifusn,inumi)
  call putdat(id_ne,inumi)
  call putdat(ng,inumi)
  call putdat(id_nh,inumi)
  call putdat(id_nimp,inumi)
  call putdat(id_nrf,inumi)
  call putdat(id_eperpmin,inumi)
  call putdat(id_epllmin,inumi)
  call putdat(id_nfast,inumi)
  call putdat(id_eperpfast,inumi)
  call putdat(id_epllfast,inumi)
  call putdat(id_aimp,inumi)
  call putdat(id_zimp,inumi)
  call putdat(id_omega,inumi)
  call putdat(id_epot,inumi)
  call putdat(id_vpoh,inumi)
  call putdat(id_curt,inumi)
  call putdat(id_difb,inumi)
  call putdat(id_velb,inumi)
  call putdat(id_difb_bi,inumi)
  call putdat(id_velb_bi,inumi)
  call putdat(id_difb_fi,inumi)
  call putdat(id_velb_fi,inumi)
  call putdat(id_fd0,inumi)
  call putdat(id_fdb,inumi)
  call putdat(id_fdp,inumi)
  call putdat(id_fdq,inumi)
  call putdat(id_fdr,inumi)
  call putdat(id_fds,inumi)
  call putdat(id_n0,inumi)
  call putdat(id_t0,inumi)
  call putdat(id_omeg0,inumi)
 
end subroutine nbi_bufput_data
 
subroutine nbi_bufget_data
 
  use nbi_com
  use nbi_bcastbuf
  implicit NONE
  integer :: inumr,inumi,inumc,inuml
 
  inumi=0
  inumr=0
  inumc=0
  inuml=0
 
  call getdat(runid,inumc)
  call getdat(mission,inumc)
  call getdat(workpath,inumc)
  call getdat(nonlin,inumi)
  call getdat(nseed,inumi)
  call getdat(nlbout,inuml)
  call getdat(lunnbx,inumi)
  call getdat(lunres,inumi)
  call getdat(mrstrt,inumi)
  call getdat(nclass,inumi)
  call getdat(only_io,inuml)
  call getdat(ref_namelist,inuml)
  call getdat(quasi_check,inuml)
  call getdat(nltest_output,inuml)
  call getdat(BLK_MPI_BCAST_INT,inumi)
  call getdat(BLK_MPI_BCAST_R8,inumi)
  call getdat(tbm1,inumr)
  call getdat(tbm2,inumr)
  call getdat(nzones,inumi)
  call getdat(nzone_fb,inumi)
  call getdat(nlsym2b,inuml)
  call getdat(nth0,inumi)
  call getdat(xbmbnd,inumr)
  call getdat(id_mcgrid,inumi)
  call getdat(nthets,inumi)
  call getdat(ebdmax,inumr)
  call getdat(xplasma_in_memory,inumi)
  call getdat(nznbma,inumi)
  call getdat(nznbme,inumi)
  call getdat(nznbma0,inumi)
  call getdat(nznbme0,inumi)
  call getdat(ngyro,inumi)
  call getdat(ngmax,inumi)
  call getdat(backz,inumr)
  call getdat(aplasm,inumr)
  call getdat(nbeam,inumi)
  call getdat(xzbeama,inumr)
  call getdat(abeama,inumr)
  call getdat(nlco,inuml)
  call getdat(ntrace,inumi)
  call getdat(rtcena,inumr)
  call getdat(xlbtna,inumr)
  call getdat(xybsca,inumr)
  call getdat(xbzeta,inumr)
  call getdat(nbshapa,inumi)
  call getdat(bmwidra,inumr)
  call getdat(bmwidza,inumr)
  call getdat(divra,inumr)
  call getdat(divza,inumr)
  call getdat(foclra,inumr)
  call getdat(foclza,inumr)
  call getdat(nbapsha,inumi)
  call getdat(rapedga,inumr)
  call getdat(xzpedga,inumr)
  call getdat(xlbapa,inumr)
  call getdat(xybapa,inumr)
  call getdat(xrapoffa,inumr)
  call getdat(xzapoffa,inumr)
  call getdat(nbapsh2,inumi)
  call getdat(rapedg2,inumr)
  call getdat(xzpedg2,inumr)
  call getdat(xlbapa2,inumr)
  call getdat(xrapoff2,inumr)
  call getdat(xzapoff2,inumr)
  call getdat(nrhix,inumi)
  call getdat(xzimpx,inumr)
  call getdat(aimpx,inumr)
  call getdat(nmini,inumi)
  call getdat(xzmini,inumr)
  call getdat(amini,inumr)
  call getdat(nthrf,inumi)
  call getdat(einjmin,inumr)
  call getdat(einja,inumr)
  call getdat(pinja,inumr)
  call getdat(ffulla,inumr)
  call getdat(fhalfa,inumr)
  call getdat(orbrzv_toric_Prftot0,inumr)
  call getdat(orbrzv_toric_frnm,inumr)
  call getdat(nlfhe3,inuml)
  call getdat(nlfhe4,inuml)
  call getdat(nlfst,inuml)
  call getdat(nlfsp,inuml)
  call getdat(nlfsp14,inuml)
  call getdat(nlusf3,inuml)
  call getdat(xdatsf3,inumr)
  call getdat(nlusfa,inuml)
  call getdat(xdatsfa,inumr)
  call getdat(nlusft,inuml)
  call getdat(xdatsft,inumr)
  call getdat(nlusfp,inuml)
  call getdat(xdatsfp,inumr)
  call getdat(nlusfp14,inuml)
  call getdat(xdatsp3,inumr)
  call getdat(plfhe3,inumr)
  call getdat(plfhe4,inumr)
  call getdat(plfst,inumr)
  call getdat(plfsp,inumr)
  call getdat(plfsp14,inumr)
  call getdat(nlfatom,inuml)
  call getdat(nlbfpp,inuml)
  call getdat(cxsplt,inumr)
  call getdat(dxbsmoo,inumr)
  call getdat(dxbsm_nc,inumr)
  call getdat(nptcls,inumi)
  call getdat(nptclf,inumi)
  call getdat(nptclh,inumi)
  call getdat(NFAST_MAP,inumi)
  call getdat(xpand_nptcl,inumr)
  call getdat(frac_depmax,inumr)
  call getdat(frac_dep_lim,inumr)
  call getdat(frac_depmin,inumr)
  call getdat(frac_orbrr,inumr)
  call getdat(nptcl_max,inumi)
  call getdat(nltrk_dep0,inuml)
  call getdat(NLDEP0_GATHER,inuml)
  call getdat(ndep0,inumi)
  call getdat(NDEP0_MAX,inumi)
  call getdat(ndep_set_beam,inumi)
  call getdat(ndep_set_ien,inumi)
  call getdat(nbbcal,inumi)
  call getdat(ncx0,inumi)
  call getdat(nper_cx,inumi)
  call getdat(LEV_NBIDEP,inumi)
  call getdat(LEV_TTNUK,inumi)
  call getdat(LEVMOD_HALO,inumi)
  call getdat(NSPLT,inumi)
  call getdat(NSPLT_GEO,inumi)
  call getdat(NSPLT_KIN,inumi)
  call getdat(NSPLT_GEN,inumi)
  call getdat(nmimp,inumi)
  call getdat(AIMP,inumr)
  call getdat(XZIMP,inumr)
  call getdat(NTEST_MAX,inumi)
  call getdat(BI_MAX_PL,inumr)
  call getdat(BI_MAX_PR,inumr)
  call getdat(wghta,inumr)
  call getdat(goocon,inumr)
  call getdat(NGOOCON_VPVBIN,inumi)
  call getdat(NGOOCON_EBIN,inumi)
  call getdat(NGOOCON_RBIN,inumi)
  call getdat(cxpcon,inumr)
  call getdat(fppcon,inumr)
  call getdat(fdtnxy,inumr)
  call getdat(nchdvp,inumi)
  call getdat(dtn,inumr)
  call getdat(dt_acc,inumr)
  call getdat(orbrzv_option,inumi)
  call getdat(orbrzv_rf_option,inumi)
  call getdat(nlmcrf_on,inuml)
  call getdat(orbrzv_nr,inumi)
  call getdat(orbrzv_nz,inumi)
  call getdat(orbrzv_zzerr_con,inumr)
  call getdat(nsmax,inumi)
  call getdat(khalo,inumi)
  call getdat(dn0out,inumr)
  call getdat(nmsigx,inumi)
  call getdat(nlminsv,inuml)
  call getdat(nlebei,inuml)
  call getdat(nsigexc,inumi)
  call getdat(xdepmod,inumr)
  call getdat(nlbbcx,inuml)
  call getdat(nbbcx_avg,inumi)
  call getdat(nbbcx_bb,inumi)
  call getdat(nbfallgr,inumi)
  call getdat(nlbeamcx,inuml)
  call getdat(nlhvion,inuml)
  call getdat(xcfanbi,inumr)
  call getdat(xdfanbi,inumr)
  call getdat(xefanbi,inumr)
  call getdat(xcfafus,inumr)
  call getdat(xdfafus,inumr)
  call getdat(xefafus,inumr)
  call getdat(nlbcde,inuml)
  call getdat(nlbcoh,inuml)
  call getdat(nlbcpa,inuml)
  call getdat(nlorbo,inuml)
  call getdat(nlbflr,inuml)
  call getdat(nlfbmflr,inuml)
  call getdat(nlbgflr,inuml)
  call getdat(gflr_min,inumr)
  call getdat(gflr_rl,inumr)
  call getdat(gflr_ll,inumr)
  call getdat(gflr_xv,inumr)
  call getdat(gflr_op,inumr)
  call getdat(sawflag,inuml)
  call getdat(nlsawb,inuml)
  call getdat(nlsawf,inuml)
  call getdat(xswfrac_allfast,inumr)
  call getdat(xswfrac_beam,inumr)
  call getdat(xswfrac_fusn,inumr)
  call getdat(nmix_kdsaw,inumi)
  call getdat(fporcelli,inumr)
  call getdat(nkaep,inumi)
  call getdat(AEP_ASCALE,inumr)
  call getdat(AEP_USCALE,inumr)
  call getdat(TAEP_FAC,inumr)
  call getdat(nmdifb,inumi)
  call getdat(nkdifb,inumi)
  call getdat(ndifbe,inumi)
  call getdat(fdifbe,inumr)
  call getdat(edifbe,inumr)
  call getdat(x_qlim0,inumr)
  call getdat(ndifbe_2d,inumi)
  call getdat(dif2d_conv,inumr)
  call getdat(dif2d_dpa,inumr)
  call getdat(ngradd_opt,inumi)
  call getdat(nrip,inumi)
  call getdat(taurip,inumr)
  call getdat(id_ripple,inumi)
  call getdat(id_ripple2,inumi)
  call getdat(ncoils,inumi)
  call getdat(ncoils_2,inumi)
  call getdat(asrd,inumr)
  call getdat(bsrd,inumr)
  call getdat(nerngfi,inumi)
  call getdat(erngfi,inumr)
  call getdat(nsdbgb,inumi)
  call getdat(nlfbon,inuml)
  call getdat(fbemin,inumr)
  call getdat(fbemax,inumr)
  call getdat(fvpvmn,inumr)
  call getdat(fvpvmx,inumr)
  call getdat(fbltim,inumr)
  call getdat(fshper,inumr)
  call getdat(fshwid,inumr)
  call getdat(tfshon,inumr)
  call getdat(tfshof,inumr)
  call getdat(xfishmin,inumr)
  call getdat(xfishmax,inumr)
  call getdat(nfbon_vpvopt,inumi)
  call getdat(fbtrap_depth,inumr)
  call getdat(nfbon_species,inumi)
  call getdat(nbbox,inumi)
  call getdat(nbsbox,inumi)
  call getdat(nsample_box,inumi)
  call getdat(xninja_box,inumr)
  call getdat(xninjs_box,inumr)
  call getdat(xninj_box,inumr)
  call getdat(nbebox,inumi)
  call getdat(nxbox,inumi)
  call getdat(nybox,inumi)
  call getdat(nlbox,inumi)
  call getdat(xboxhw,inumr)
  call getdat(yboxhw,inumr)
  call getdat(xlbox1,inumr)
  call getdat(xlbox2,inumr)
  call getdat(ndepbox,inumi)
  call getdat(nbtube,inumi)
  call getdat(nbstube,inumi)
  call getdat(nbetube,inumi)
  call getdat(Rtube,inumr)
  call getdat(Ytube,inumr)
  call getdat(XZETAtube,inumr)
  call getdat(PHItube,inumr)
  call getdat(THETAtube,inumr)
  call getdat(LMIDtube,inumi)
  call getdat(XL1tube,inumr)
  call getdat(XL2tube,inumr)
  call getdat(NSEGtube,inumi)
  call getdat(RHOtube,inumr)
  call getdat(NDEPtube,inumi)
  call getdat(plhgt,inumr)
  call getdat(nlcprb,inuml)
  call getdat(nlpsirz,inuml)
  call getdat(edbfac,inumr)
  call getdat(nmcurb,inumi)
  call getdat(nlfdep,inuml)
  call getdat(id_te,inumi)
  call getdat(id_ti,inumi)
  call getdat(id_tifusn,inumi)
  call getdat(id_ne,inumi)
  call getdat(ng,inumi)
  call getdat(id_nh,inumi)
  call getdat(id_nimp,inumi)
  call getdat(id_nrf,inumi)
  call getdat(id_eperpmin,inumi)
  call getdat(id_epllmin,inumi)
  call getdat(id_nfast,inumi)
  call getdat(id_eperpfast,inumi)
  call getdat(id_epllfast,inumi)
  call getdat(id_aimp,inumi)
  call getdat(id_zimp,inumi)
  call getdat(id_omega,inumi)
  call getdat(id_epot,inumi)
  call getdat(id_vpoh,inumi)
  call getdat(id_curt,inumi)
  call getdat(id_difb,inumi)
  call getdat(id_velb,inumi)
  call getdat(id_difb_bi,inumi)
  call getdat(id_velb_bi,inumi)
  call getdat(id_difb_fi,inumi)
  call getdat(id_velb_fi,inumi)
  call getdat(id_fd0,inumi)
  call getdat(id_fdb,inumi)
  call getdat(id_fdp,inumi)
  call getdat(id_fdq,inumi)
  call getdat(id_fdr,inumi)
  call getdat(id_fds,inumi)
  call getdat(id_n0,inumi)
  call getdat(id_t0,inumi)
  call getdat(id_omeg0,inumi)
 
end subroutine nbi_bufget_data
 
