! written by nbigen.py
! *** do not edit *** (use nbigen.py instead)
 
 
  subroutine nbi_ascii
 
  use nbi_com
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** array dimensions (initial set) *** '
  write(nonlin,*) ' '
 
 1001 format(6x,a,t20,i7)
  write(nonlin,1001) 'mib', mib
  write(nonlin,1001) 'mj', mj
  write(nonlin,1001) 'mig', mig
  write(nonlin,1001) 'mis', mis
  write(nonlin,1001) 'mibs', mibs
  write(nonlin,1001) 'mimpt', mimpt
  write(nonlin,1001) 'mmini', mmini
  write(nonlin,1001) 'mtheta', mtheta
  write(nonlin,1001) 'miefi', miefi
  write(nonlin,1001) 'med2d', med2d
  write(nonlin,1001) 'mimxba', mimxba
  write(nonlin,1001) 'mimxbe', mimxbe
  write(nonlin,1001) 'mgyro', mgyro
  write(nonlin,1001) 'mimxba0', mimxba0
  write(nonlin,1001) 'mimxbe0', mimxbe0
  write(nonlin,1001) 'miboxm', miboxm
  write(nonlin,1001) 'mitubem', mitubem
  write(nonlin,1001) 'mituben', mituben
  write(nonlin,1001) 'mnkaep', mnkaep
  write(nonlin,1001) 'mjeqv', mjeqv
  write(nonlin,1001) 'mjzb', mjzb
  write(nonlin,1001) 'mjzc', mjzc
  write(nonlin,1001) 'mtbl', mtbl
  write(nonlin,1001) 'mjr', mjr
  write(nonlin,1001) 'mmaxion', mmaxion
  write(nonlin,1001) 'miz', miz
  write(nonlin,1001) 'minbs', minbs
  write(nonlin,1001) 'mimaxz', mimaxz
  write(nonlin,1001) 'mireact', mireact
  write(nonlin,1001) 'miplot', miplot
  write(nonlin,1001) 'mimxbe1', mimxbe1
  write(nonlin,1001) 'nthspl', nthspl
  write(nonlin,1001) 'nthpmin', nthpmin
  write(nonlin,1001) 'nthpmax', nthpmax
  write(nonlin,1001) 'minspl', minspl
  write(nonlin,1001) 'minbplt', minbplt
  write(nonlin,1001) 'mtrk', mtrk
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** array dimensions (final set) *** '
  write(nonlin,*) ' '
 
  write(nonlin,1001) 'mimxbz', mimxbz
  write(nonlin,1001) 'mimxbzf', mimxbzf
  write(nonlin,1001) 'minb', minb
  write(nonlin,1001) 'mdep0', mdep0
  write(nonlin,1001) 'mlost_data', mlost_data
  write(nonlin,1001) 'mibs_use', mibs_use
  write(nonlin,1001) 'mtrk0', mtrk0
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** INPUT items *** '
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: sys *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_C_wr0(nonlin, 'runid', runid)
  call nbi_ascii_C_wr0(nonlin, 'mission', mission)
  call nbi_ascii_C_wr0(nonlin, 'workpath', workpath)
  call nbi_ascii_I_wr0(nonlin, 'nonlin', nonlin)
  call nbi_ascii_I_wr0(nonlin, 'nseed', nseed)
  call nbi_ascii_L_wr0(nonlin, 'nlbout', nlbout)
  call nbi_ascii_I_wr0(nonlin, 'lunnbx', lunnbx)
  call nbi_ascii_I_wr0(nonlin, 'lunres', lunres)
  call nbi_ascii_I_wr0(nonlin, 'mrstrt', mrstrt)
  call nbi_ascii_I_wr0(nonlin, 'nclass', nclass)
  call nbi_ascii_L_wr0(nonlin, 'only_io', only_io)
  call nbi_ascii_L_wr0(nonlin, 'ref_namelist', ref_namelist)
  call nbi_ascii_L_wr0(nonlin, 'quasi_check', quasi_check)
  call nbi_ascii_L_wr0(nonlin, 'nltest_output', nltest_output)
  call nbi_ascii_I_wr0(nonlin, 'BLK_MPI_BCAST_INT', BLK_MPI_BCAST_INT)
  call nbi_ascii_I_wr0(nonlin, 'BLK_MPI_BCAST_R8', BLK_MPI_BCAST_R8)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: times *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr0(nonlin, 'tbm1', tbm1)
  call nbi_ascii_D_wr0(nonlin, 'tbm2', tbm2)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: grid *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'nzones', nzones)
  call nbi_ascii_I_wr0(nonlin, 'nzone_fb', nzone_fb)
  call nbi_ascii_L_wr0(nonlin, 'nlsym2b', nlsym2b)
  call nbi_ascii_I_wr0(nonlin, 'nth0', nth0)
  call nbi_ascii_D_wr0(nonlin, 'xbmbnd', xbmbnd)
  call nbi_ascii_I_wr0(nonlin, 'id_mcgrid', id_mcgrid)
  call nbi_ascii_I_wr0(nonlin, 'nthets', nthets)
  call nbi_ascii_D_wr0(nonlin, 'ebdmax', ebdmax)
  call nbi_ascii_I_wr0(nonlin, 'xplasma_in_memory', xplasma_in_memory)
  call nbi_ascii_I_wr0(nonlin, 'nznbma', nznbma)
  call nbi_ascii_I_wr0(nonlin, 'nznbme', nznbme)
  call nbi_ascii_I_wr0(nonlin, 'nznbma0', nznbma0)
  call nbi_ascii_I_wr0(nonlin, 'nznbme0', nznbme0)
  call nbi_ascii_I_wr0(nonlin, 'ngyro', ngyro)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: beams *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'ngmax', ngmax)
  call nbi_ascii_D_wr1(nonlin, 'backz', backz(1:ngmax),ngmax)
  call nbi_ascii_D_wr1(nonlin, 'aplasm', aplasm(1:ngmax),ngmax)
  call nbi_ascii_I_wr0(nonlin, 'nbeam', nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xzbeama', xzbeama(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'abeama', abeama(1:nbeam),nbeam)
  call nbi_ascii_L_wr1(nonlin, 'nlco', nlco(1:nbeam),nbeam)
  call nbi_ascii_I_wr1(nonlin, 'ntrace', ntrace(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'rtcena', rtcena(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xlbtna', xlbtna(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xybsca', xybsca(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xbzeta', xbzeta(1:nbeam),nbeam)
  call nbi_ascii_I_wr1(nonlin, 'nbshapa', nbshapa(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'bmwidra', bmwidra(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'bmwidza', bmwidza(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'divra', divra(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'divza', divza(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'foclra', foclra(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'foclza', foclza(1:nbeam),nbeam)
  call nbi_ascii_I_wr1(nonlin, 'nbapsha', nbapsha(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'rapedga', rapedga(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xzpedga', xzpedga(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xlbapa', xlbapa(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xybapa', xybapa(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xrapoffa', xrapoffa(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xzapoffa', xzapoffa(1:nbeam),nbeam)
  call nbi_ascii_I_wr1(nonlin, 'nbapsh2', nbapsh2(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'rapedg2', rapedg2(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xzpedg2', xzpedg2(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xlbapa2', xlbapa2(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xrapoff2', xrapoff2(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'xzapoff2', xzapoff2(1:nbeam),nbeam)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: impurity *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'nrhix', nrhix)
  call nbi_ascii_D_wr1(nonlin, 'xzimpx', xzimpx(1:nrhix),nrhix)
  call nbi_ascii_D_wr1(nonlin, 'aimpx', aimpx(1:nrhix),nrhix)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: minority *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'nmini', nmini)
  call nbi_ascii_D_wr1(nonlin, 'xzmini', xzmini(1:nmini),nmini)
  call nbi_ascii_D_wr1(nonlin, 'amini', amini(1:nmini),nmini)
  call nbi_ascii_I_wr0(nonlin, 'nthrf', nthrf)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: powers *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr1(nonlin, 'einjmin', einjmin(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'einja', einja(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'pinja', pinja(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'ffulla', ffulla(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'fhalfa', fhalfa(1:nbeam),nbeam)
  call nbi_ascii_D_wr1(nonlin, 'orbrzv_toric_Prftot0', orbrzv_toric_Prftot0(1:mibs),mibs)
  call nbi_ascii_D_wr0(nonlin, 'orbrzv_toric_frnm', orbrzv_toric_frnm)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: fusion *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_L_wr0(nonlin, 'nlfhe3', nlfhe3)
  call nbi_ascii_L_wr0(nonlin, 'nlfhe4', nlfhe4)
  call nbi_ascii_L_wr0(nonlin, 'nlfst', nlfst)
  call nbi_ascii_L_wr0(nonlin, 'nlfsp', nlfsp)
  call nbi_ascii_L_wr0(nonlin, 'nlfsp14', nlfsp14)
  call nbi_ascii_L_wr0(nonlin, 'nlusf3', nlusf3)
  call nbi_ascii_D_wr0(nonlin, 'xdatsf3', xdatsf3)
  call nbi_ascii_L_wr0(nonlin, 'nlusfa', nlusfa)
  call nbi_ascii_D_wr0(nonlin, 'xdatsfa', xdatsfa)
  call nbi_ascii_L_wr0(nonlin, 'nlusft', nlusft)
  call nbi_ascii_D_wr0(nonlin, 'xdatsft', xdatsft)
  call nbi_ascii_L_wr0(nonlin, 'nlusfp', nlusfp)
  call nbi_ascii_D_wr0(nonlin, 'xdatsfp', xdatsfp)
  call nbi_ascii_L_wr0(nonlin, 'nlusfp14', nlusfp14)
  call nbi_ascii_D_wr0(nonlin, 'xdatsp3', xdatsp3)
  call nbi_ascii_D_wr0(nonlin, 'plfhe3', plfhe3)
  call nbi_ascii_D_wr0(nonlin, 'plfhe4', plfhe4)
  call nbi_ascii_D_wr0(nonlin, 'plfst', plfst)
  call nbi_ascii_D_wr0(nonlin, 'plfsp', plfsp)
  call nbi_ascii_D_wr0(nonlin, 'plfsp14', plfsp14)
  call nbi_ascii_L_wr0(nonlin, 'nlfatom', nlfatom)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: fpp *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_L_wr0(nonlin, 'nlbfpp', nlbfpp)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: num *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr0(nonlin, 'cxsplt', cxsplt)
  call nbi_ascii_D_wr0(nonlin, 'dxbsmoo', dxbsmoo)
  call nbi_ascii_D_wr0(nonlin, 'dxbsm_nc', dxbsm_nc)
  call nbi_ascii_I_wr0(nonlin, 'nptcls', nptcls)
  call nbi_ascii_I_wr0(nonlin, 'nptclf', nptclf)
  call nbi_ascii_I_wr0(nonlin, 'nptclh', nptclh)
  call nbi_ascii_I_wr0(nonlin, 'NFAST_MAP', NFAST_MAP)
  call nbi_ascii_D_wr0(nonlin, 'xpand_nptcl', xpand_nptcl)
  call nbi_ascii_D_wr0(nonlin, 'frac_depmax', frac_depmax)
  call nbi_ascii_D_wr0(nonlin, 'frac_dep_lim', frac_dep_lim)
  call nbi_ascii_D_wr0(nonlin, 'frac_depmin', frac_depmin)
  call nbi_ascii_D_wr0(nonlin, 'frac_orbrr', frac_orbrr)
  call nbi_ascii_I_wr0(nonlin, 'nptcl_max', nptcl_max)
  call nbi_ascii_L_wr0(nonlin, 'nltrk_dep0', nltrk_dep0)
  call nbi_ascii_L_wr0(nonlin, 'NLDEP0_GATHER', NLDEP0_GATHER)
  call nbi_ascii_I_wr0(nonlin, 'ndep0', ndep0)
  call nbi_ascii_I_wr0(nonlin, 'NDEP0_MAX', NDEP0_MAX)
  call nbi_ascii_I_wr0(nonlin, 'ndep_set_beam', ndep_set_beam)
  call nbi_ascii_I_wr0(nonlin, 'ndep_set_ien', ndep_set_ien)
  call nbi_ascii_I_wr0(nonlin, 'nbbcal', nbbcal)
  call nbi_ascii_I_wr0(nonlin, 'ncx0', ncx0)
  call nbi_ascii_I_wr0(nonlin, 'nper_cx', nper_cx)
  call nbi_ascii_I_wr0(nonlin, 'LEV_NBIDEP', LEV_NBIDEP)
  call nbi_ascii_I_wr0(nonlin, 'LEV_TTNUK', LEV_TTNUK)
  call nbi_ascii_I_wr0(nonlin, 'LEVMOD_HALO', LEVMOD_HALO)
  call nbi_ascii_I_wr0(nonlin, 'NSPLT', NSPLT)
  call nbi_ascii_I_wr0(nonlin, 'NSPLT_GEO', NSPLT_GEO)
  call nbi_ascii_I_wr0(nonlin, 'NSPLT_KIN', NSPLT_KIN)
  call nbi_ascii_I_wr0(nonlin, 'NSPLT_GEN', NSPLT_GEN)
  call nbi_ascii_I_wr0(nonlin, 'nmimp', nmimp)
  call nbi_ascii_D_wr0(nonlin, 'AIMP', AIMP)
  call nbi_ascii_D_wr0(nonlin, 'XZIMP', XZIMP)
  call nbi_ascii_I_wr0(nonlin, 'NTEST_MAX', NTEST_MAX)
  call nbi_ascii_D_wr0(nonlin, 'BI_MAX_PL', BI_MAX_PL)
  call nbi_ascii_D_wr0(nonlin, 'BI_MAX_PR', BI_MAX_PR)
  call nbi_ascii_D_wr0(nonlin, 'wghta', wghta)
  call nbi_ascii_D_wr0(nonlin, 'goocon', goocon)
  call nbi_ascii_I_wr0(nonlin, 'NGOOCON_VPVBIN', NGOOCON_VPVBIN)
  call nbi_ascii_I_wr0(nonlin, 'NGOOCON_EBIN', NGOOCON_EBIN)
  call nbi_ascii_I_wr0(nonlin, 'NGOOCON_RBIN', NGOOCON_RBIN)
  call nbi_ascii_D_wr0(nonlin, 'cxpcon', cxpcon)
  call nbi_ascii_D_wr0(nonlin, 'fppcon', fppcon)
  call nbi_ascii_D_wr0(nonlin, 'fdtnxy', fdtnxy)
  call nbi_ascii_I_wr0(nonlin, 'nchdvp', nchdvp)
  call nbi_ascii_D_wr0(nonlin, 'dtn', dtn)
  call nbi_ascii_D_wr0(nonlin, 'dt_acc', dt_acc)
  call nbi_ascii_I_wr0(nonlin, 'orbrzv_option', orbrzv_option)
  call nbi_ascii_I_wr0(nonlin, 'orbrzv_rf_option', orbrzv_rf_option)
  call nbi_ascii_L_wr0(nonlin, 'nlmcrf_on', nlmcrf_on)
  call nbi_ascii_I_wr0(nonlin, 'orbrzv_nr', orbrzv_nr)
  call nbi_ascii_I_wr0(nonlin, 'orbrzv_nz', orbrzv_nz)
  call nbi_ascii_D_wr0(nonlin, 'orbrzv_zzerr_con', orbrzv_zzerr_con)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: atomic *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'nsmax', nsmax)
  call nbi_ascii_I_wr1(nonlin, 'khalo', khalo(1:mis),mis)
  call nbi_ascii_D_wr0(nonlin, 'dn0out', dn0out)
  call nbi_ascii_I_wr0(nonlin, 'nmsigx', nmsigx)
  call nbi_ascii_L_wr0(nonlin, 'nlminsv', nlminsv)
  call nbi_ascii_L_wr0(nonlin, 'nlebei', nlebei)
  call nbi_ascii_I_wr0(nonlin, 'nsigexc', nsigexc)
  call nbi_ascii_D_wr0(nonlin, 'xdepmod', xdepmod)
  call nbi_ascii_L_wr0(nonlin, 'nlbbcx', nlbbcx)
  call nbi_ascii_I_wr0(nonlin, 'nbbcx_avg', nbbcx_avg)
  call nbi_ascii_I_wr0(nonlin, 'nbbcx_bb', nbbcx_bb)
  call nbi_ascii_I_wr0(nonlin, 'nbfallgr', nbfallgr)
  call nbi_ascii_L_wr0(nonlin, 'nlbeamcx', nlbeamcx)
  call nbi_ascii_L_wr0(nonlin, 'nlhvion', nlhvion)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: collid *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr0(nonlin, 'xcfanbi', xcfanbi)
  call nbi_ascii_D_wr0(nonlin, 'xdfanbi', xdfanbi)
  call nbi_ascii_D_wr0(nonlin, 'xefanbi', xefanbi)
  call nbi_ascii_D_wr0(nonlin, 'xcfafus', xcfafus)
  call nbi_ascii_D_wr0(nonlin, 'xdfafus', xdfafus)
  call nbi_ascii_D_wr0(nonlin, 'xefafus', xefafus)
  call nbi_ascii_L_wr0(nonlin, 'nlbcde', nlbcde)
  call nbi_ascii_L_wr0(nonlin, 'nlbcoh', nlbcoh)
  call nbi_ascii_L_wr0(nonlin, 'nlbcpa', nlbcpa)
  call nbi_ascii_L_wr0(nonlin, 'nlorbo', nlorbo)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: flr *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_L_wr0(nonlin, 'nlbflr', nlbflr)
  call nbi_ascii_L_wr0(nonlin, 'nlfbmflr', nlfbmflr)
  call nbi_ascii_L_wr0(nonlin, 'nlbgflr', nlbgflr)
  call nbi_ascii_D_wr0(nonlin, 'gflr_min', gflr_min)
  call nbi_ascii_D_wr0(nonlin, 'gflr_rl', gflr_rl)
  call nbi_ascii_D_wr0(nonlin, 'gflr_ll', gflr_ll)
  call nbi_ascii_D_wr1(nonlin, 'gflr_xv', gflr_xv(1:2),2)
  call nbi_ascii_D_wr1(nonlin, 'gflr_op', gflr_op(1:15),15)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: saw *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_L_wr0(nonlin, 'sawflag', sawflag)
  call nbi_ascii_L_wr0(nonlin, 'nlsawb', nlsawb)
  call nbi_ascii_L_wr0(nonlin, 'nlsawf', nlsawf)
  call nbi_ascii_D_wr0(nonlin, 'xswfrac_allfast', xswfrac_allfast)
  call nbi_ascii_D_wr0(nonlin, 'xswfrac_beam', xswfrac_beam)
  call nbi_ascii_D_wr0(nonlin, 'xswfrac_fusn', xswfrac_fusn)
  call nbi_ascii_I_wr0(nonlin, 'nmix_kdsaw', nmix_kdsaw)
  call nbi_ascii_D_wr0(nonlin, 'fporcelli', fporcelli)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: adif *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'nkaep', nkaep)
  call nbi_ascii_D_wr1(nonlin, 'AEP_ASCALE', AEP_ASCALE(1:mnkaep),mnkaep)
  call nbi_ascii_D_wr0(nonlin, 'AEP_USCALE', AEP_USCALE)
  call nbi_ascii_D_wr1(nonlin, 'TAEP_FAC', TAEP_FAC(1:mnkaep),mnkaep)
  call nbi_ascii_I_wr0(nonlin, 'nmdifb', nmdifb)
  call nbi_ascii_I_wr0(nonlin, 'nkdifb', nkdifb)
  call nbi_ascii_I_wr0(nonlin, 'ndifbe', ndifbe)
  call nbi_ascii_D_wr1(nonlin, 'fdifbe', fdifbe(1:ndifbe),ndifbe)
  call nbi_ascii_D_wr1(nonlin, 'edifbe', edifbe(1:ndifbe),ndifbe)
  call nbi_ascii_D_wr0(nonlin, 'x_qlim0', x_qlim0)
  call nbi_ascii_I_wr0(nonlin, 'ndifbe_2d', ndifbe_2d)
  call nbi_ascii_D_wr0(nonlin, 'dif2d_conv', dif2d_conv)
  call nbi_ascii_D_wr0(nonlin, 'dif2d_dpa', dif2d_dpa)
  call nbi_ascii_I_wr0(nonlin, 'ngradd_opt', ngradd_opt)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: ripple *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'nrip', nrip)
  call nbi_ascii_D_wr0(nonlin, 'taurip', taurip)
  call nbi_ascii_I_wr0(nonlin, 'id_ripple', id_ripple)
  call nbi_ascii_I_wr0(nonlin, 'id_ripple2', id_ripple2)
  call nbi_ascii_I_wr0(nonlin, 'ncoils', ncoils)
  call nbi_ascii_I_wr0(nonlin, 'ncoils_2', ncoils_2)
  call nbi_ascii_D_wr0(nonlin, 'asrd', asrd)
  call nbi_ascii_D_wr0(nonlin, 'bsrd', bsrd)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: outcon *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'nerngfi', nerngfi)
  call nbi_ascii_D_wr2(nonlin, 'erngfi', erngfi(1:nerngfi,1:mibs),nerngfi,mibs)
  call nbi_ascii_I_wr0(nonlin, 'nsdbgb', nsdbgb)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: fishbone *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_L_wr0(nonlin, 'nlfbon', nlfbon)
  call nbi_ascii_D_wr0(nonlin, 'fbemin', fbemin)
  call nbi_ascii_D_wr0(nonlin, 'fbemax', fbemax)
  call nbi_ascii_D_wr0(nonlin, 'fvpvmn', fvpvmn)
  call nbi_ascii_D_wr0(nonlin, 'fvpvmx', fvpvmx)
  call nbi_ascii_D_wr0(nonlin, 'fbltim', fbltim)
  call nbi_ascii_D_wr0(nonlin, 'fshper', fshper)
  call nbi_ascii_D_wr0(nonlin, 'fshwid', fshwid)
  call nbi_ascii_D_wr0(nonlin, 'tfshon', tfshon)
  call nbi_ascii_D_wr0(nonlin, 'tfshof', tfshof)
  call nbi_ascii_D_wr0(nonlin, 'xfishmin', xfishmin)
  call nbi_ascii_D_wr0(nonlin, 'xfishmax', xfishmax)
  call nbi_ascii_I_wr0(nonlin, 'nfbon_vpvopt', nfbon_vpvopt)
  call nbi_ascii_D_wr0(nonlin, 'fbtrap_depth', fbtrap_depth)
  call nbi_ascii_I_wr0(nonlin, 'nfbon_species', nfbon_species)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: box *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'nbbox', nbbox)
  call nbi_ascii_I_wr1(nonlin, 'nbsbox', nbsbox(1:nbbox),nbbox)
  call nbi_ascii_I_wr1(nonlin, 'nsample_box', nsample_box(1:nbbox),nbbox)
  call nbi_ascii_D_wr1(nonlin, 'xninja_box', xninja_box(1:nbbox),nbbox)
  call nbi_ascii_D_wr1(nonlin, 'xninjs_box', xninjs_box(1:nbbox),nbbox)
  call nbi_ascii_D_wr0(nonlin, 'xninj_box', xninj_box)
  call nbi_ascii_I_wr1(nonlin, 'nbebox', nbebox(1:nbbox),nbbox)
  call nbi_ascii_I_wr0(nonlin, 'nxbox', nxbox)
  call nbi_ascii_I_wr0(nonlin, 'nybox', nybox)
  call nbi_ascii_I_wr0(nonlin, 'nlbox', nlbox)
  call nbi_ascii_D_wr0(nonlin, 'xboxhw', xboxhw)
  call nbi_ascii_D_wr0(nonlin, 'yboxhw', yboxhw)
  call nbi_ascii_D_wr0(nonlin, 'xlbox1', xlbox1)
  call nbi_ascii_D_wr0(nonlin, 'xlbox2', xlbox2)
  call nbi_ascii_I_wr0(nonlin, 'ndepbox', ndepbox)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: tube *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'nbtube', nbtube)
  call nbi_ascii_I_wr1(nonlin, 'nbstube', nbstube(1:nbtube),nbtube)
  call nbi_ascii_I_wr1(nonlin, 'nbetube', nbetube(1:nbtube),nbtube)
  call nbi_ascii_D_wr1(nonlin, 'Rtube', Rtube(1:nbtube),nbtube)
  call nbi_ascii_D_wr1(nonlin, 'Ytube', Ytube(1:nbtube),nbtube)
  call nbi_ascii_D_wr1(nonlin, 'XZETAtube', XZETAtube(1:nbtube),nbtube)
  call nbi_ascii_D_wr1(nonlin, 'PHItube', PHItube(1:nbtube),nbtube)
  call nbi_ascii_D_wr1(nonlin, 'THETAtube', THETAtube(1:nbtube),nbtube)
  call nbi_ascii_I_wr1(nonlin, 'LMIDtube', LMIDtube(1:nbtube),nbtube)
  call nbi_ascii_D_wr1(nonlin, 'XL1tube', XL1tube(1:nbtube),nbtube)
  call nbi_ascii_D_wr1(nonlin, 'XL2tube', XL2tube(1:nbtube),nbtube)
  call nbi_ascii_I_wr1(nonlin, 'NSEGtube', NSEGtube(1:nbtube),nbtube)
  call nbi_ascii_D_wr0(nonlin, 'RHOtube', RHOtube)
  call nbi_ascii_I_wr0(nonlin, 'NDEPtube', NDEPtube)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: misc *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr0(nonlin, 'plhgt', plhgt)
  call nbi_ascii_L_wr0(nonlin, 'nlcprb', nlcprb)
  call nbi_ascii_L_wr0(nonlin, 'nlpsirz', nlpsirz)
  call nbi_ascii_D_wr0(nonlin, 'edbfac', edbfac)
  call nbi_ascii_I_wr0(nonlin, 'nmcurb', nmcurb)
  call nbi_ascii_L_wr0(nonlin, 'nlfdep', nlfdep)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** block: profiles *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr0(nonlin, 'id_te', id_te)
  call nbi_ascii_I_wr0(nonlin, 'id_ti', id_ti)
  call nbi_ascii_I_wr0(nonlin, 'id_tifusn', id_tifusn)
  call nbi_ascii_I_wr0(nonlin, 'id_ne', id_ne)
  call nbi_ascii_I_wr0(nonlin, 'ng', ng)
  call nbi_ascii_I_wr1(nonlin, 'id_nh', id_nh(1:ngmax),ngmax)
  call nbi_ascii_I_wr1(nonlin, 'id_nimp', id_nimp(1:nrhix),nrhix)
  call nbi_ascii_I_wr1(nonlin, 'id_nrf', id_nrf(1:nmini),nmini)
  call nbi_ascii_I_wr1(nonlin, 'id_eperpmin', id_eperpmin(1:nmini),nmini)
  call nbi_ascii_I_wr1(nonlin, 'id_epllmin', id_epllmin(1:nmini),nmini)
  call nbi_ascii_I_wr1(nonlin, 'id_nfast', id_nfast(1:nsfast),nsfast)
  call nbi_ascii_I_wr1(nonlin, 'id_eperpfast', id_eperpfast(1:nsfast),nsfast)
  call nbi_ascii_I_wr1(nonlin, 'id_epllfast', id_epllfast(1:nsfast),nsfast)
  call nbi_ascii_I_wr0(nonlin, 'id_aimp', id_aimp)
  call nbi_ascii_I_wr0(nonlin, 'id_zimp', id_zimp)
  call nbi_ascii_I_wr0(nonlin, 'id_omega', id_omega)
  call nbi_ascii_I_wr0(nonlin, 'id_epot', id_epot)
  call nbi_ascii_I_wr0(nonlin, 'id_vpoh', id_vpoh)
  call nbi_ascii_I_wr0(nonlin, 'id_curt', id_curt)
  call nbi_ascii_I_wr0(nonlin, 'id_difb', id_difb)
  call nbi_ascii_I_wr0(nonlin, 'id_velb', id_velb)
  call nbi_ascii_I_wr0(nonlin, 'id_difb_bi', id_difb_bi)
  call nbi_ascii_I_wr0(nonlin, 'id_velb_bi', id_velb_bi)
  call nbi_ascii_I_wr0(nonlin, 'id_difb_fi', id_difb_fi)
  call nbi_ascii_I_wr0(nonlin, 'id_velb_fi', id_velb_fi)
  call nbi_ascii_I_wr1(nonlin, 'id_fd0', id_fd0(1:nsfast),nsfast)
  call nbi_ascii_I_wr1(nonlin, 'id_fdb', id_fdb(1:nsfast),nsfast)
  call nbi_ascii_I_wr1(nonlin, 'id_fdp', id_fdp(1:nsfast),nsfast)
  call nbi_ascii_I_wr1(nonlin, 'id_fdq', id_fdq(1:nsfast),nsfast)
  call nbi_ascii_I_wr1(nonlin, 'id_fdr', id_fdr(1:nsfast),nsfast)
  call nbi_ascii_I_wr1(nonlin, 'id_fds', id_fds(1:nsfast),nsfast)
  call nbi_ascii_I_wr2(nonlin, 'id_n0', id_n0(1:nsmax,1:ngmax),nsmax,ngmax)
  call nbi_ascii_I_wr2(nonlin, 'id_t0', id_t0(1:nsmax,1:ngmax),nsmax,ngmax)
  call nbi_ascii_I_wr2(nonlin, 'id_omeg0', id_omeg0(1:nsmax,1:ngmax),nsmax,ngmax)
 
  write(nonlin,*) ' '
 
end subroutine nbi_ascii
 
subroutine nbo_ascii
 
  use nbi_com
 
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: fusion *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr0(nonlin, 'bbntot', bbntot)
  call nbi_ascii_D_wr1(nonlin, 'bbnta', bbnta, mireact)
  call nbi_ascii_D_wr0(nonlin, 'btneut', btneut)
  call nbi_ascii_D_wr0(nonlin, 'rbneut', rbneut)
  call nbi_ascii_D_wr1(nonlin, 'btnta', btnta, mireact)
  call nbi_ascii_D_wr1(nonlin, 'sftot', sftot, mireact)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: deposition *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr1(nonlin, 'SDEP_OAUC', SDEP_OAUC, mibs)
  call nbi_ascii_D_wr1(nonlin, 'einjav', einjav, mibs)
  call nbi_ascii_D_wr0(nonlin, 'frac_cur_ndep0', frac_cur_ndep0)
  call nbi_ascii_I_wr0(nonlin, 'ndep0_use', ndep0_use)
  call nbi_ascii_I_wr0(nonlin, 'nbs_step', nbs_step)
  call nbi_ascii_I_wr0(nonlin, 'n_outtim', n_outtim)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: nclass *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr2(nonlin, 'bpshna', bpshna, mib, 3)
  call nbi_ascii_D_wr2(nonlin, 'ein_ien', ein_ien, 3,  mib)
  call nbi_ascii_D_wr2(nonlin, 'dei_ien', dei_ien, 3,  mib)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: trap_fraction *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr1(nonlin, 'tbtrap', tbtrap, mibs)
  call nbi_ascii_D_wr1(nonlin, 'tbtrap0', tbtrap0, mibs)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: mc_statistics *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_I_wr1(nonlin, 'nmctot', nmctot, mibs)
  call nbi_ascii_D_wr1(nonlin, 'wnmctot', wnmctot, mibs)
  call nbi_ascii_I_wr1(nonlin, 'naeptot', naeptot, mibs)
  call nbi_ascii_I_wr2(nonlin, 'nstep_aep', nstep_aep, mnkaep, mibs)
  call nbi_ascii_I_wr1(nonlin, 'nmcloss', nmcloss, mibs)
  call nbi_ascii_I_wr1(nonlin, 'nnew', nnew, mibs)
  call nbi_ascii_D_wr1(nonlin, 'xncx0_orb', xncx0_orb, mibs)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: frantic *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr2(nonlin, 'nbi_outflx', nbi_outflx, mig,  mis)
  call nbi_ascii_D_wr2(nonlin, 'nbi_eescav', nbi_eescav, mig,  mis)
  call nbi_ascii_D_wr2(nonlin, 'nbi_cexflx', nbi_cexflx, mig,  mis)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: cptimes *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr0(nonlin, 'CPBPS', CPBPS)
  call nbi_ascii_D_wr0(nonlin, 'CPBSTART', CPBSTART)
  call nbi_ascii_D_wr0(nonlin, 'CPBDEP', CPBDEP)
  call nbi_ascii_D_wr0(nonlin, 'CPBORB', CPBORB)
  call nbi_ascii_D_wr0(nonlin, 'CPBFIN', CPBFIN)
  call nbi_ascii_D_wr0(nonlin, 'CPBMAX', CPBMAX)
  call nbi_ascii_D_wr0(nonlin, 'CPBMIN', CPBMIN)
  call nbi_ascii_D_wr0(nonlin, 'CPBROOT', CPBROOT)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: power_balance *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr1(nonlin, 'bpcxers', bpcxers, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpcxi0s', bpcxi0s, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpcxins', bpcxins, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpcxots', bpcxots, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpcxris', bpcxris, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpcxrxs', bpcxrxs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpcxx0s', bpcxx0s, mibs)
  call nbi_ascii_D_wr0(nonlin, 'bperr', bperr)
  call nbi_ascii_D_wr1(nonlin, 'bperrs', bperrs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpfshs', bpfshs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpls', bpls, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpls_dep', bpls_dep, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpohs', bpohs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bprpls', bprpls, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpshins', bpshins, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpsts', bpsts, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpths', bpths, mibs)
  call nbi_ascii_D_wr0(nonlin, 'pftota', pftota)
  call nbi_ascii_D_wr1(nonlin, 'bpprma', bpprma, mib)
  call nbi_ascii_D_wr1(nonlin, 'pinjs', pinjs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'pinjs_res', pinjs_res, mibs)
  call nbi_ascii_D_wr1(nonlin, 'pbdepmc', pbdepmc, mibs)
  call nbi_ascii_D_wr1(nonlin, 'PBDEPBA', PBDEPBA, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpephis', bpephis, mibs)
  call nbi_ascii_D_wr1(nonlin, 'orbrzv_Prftot', orbrzv_Prftot, mibs)
  call nbi_ascii_D_wr1(nonlin, 'orbrzv_toric_Prftot', orbrzv_toric_Prftot, mibs)
  call nbi_ascii_D_wr1(nonlin, 'orbrzv_toric_ufrnm', orbrzv_toric_ufrnm, mibs)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: momentum_balance *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr1(nonlin, 'bph0was', bph0was, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphcks', bphcks, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphcols', bphcols, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphcons', bphcons, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphcxls', bphcxls, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphinjs', bphinjs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphdepsgc', bphdepsgc, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphdeps', bphdeps, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphshins', bphshins, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphdpba', bphdpba, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphdfbs', bphdfbs, mibs)
  call nbi_ascii_D_wr0(nonlin, 'bpherr', bpherr)
  call nbi_ascii_D_wr1(nonlin, 'bpherrs', bpherrs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphfshs', bphfshs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphjxbs', bphjxbs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphjxbs_ntr', bphjxbs_ntr, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphjxbs_dep', bphjxbs_dep, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphohbs', bphohbs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpholds', bpholds, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphorbs', bphorbs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphorbs_dep', bphorbs_dep, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphrcas', bphrcas, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphrpls', bphrpls, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphsts', bphsts, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bphths', bphths, mibs)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: torque_work *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr1(nonlin, 'bptcols', bptcols, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bptdfbs', bptdfbs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpthros', bpthros, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpthsfs', bpthsfs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpjxbs', bpjxbs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpjxbs_ntr', bpjxbs_ntr, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpjxbs_dep', bpjxbs_dep, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bpthafs', bpthafs, mibs)
 
  write(nonlin,*) ' '
  write(nonlin,*) ' *** output scalars: particle_balance *** '
  write(nonlin,*) ' '
 
  call nbi_ascii_D_wr1(nonlin, 'bxflws', bxflws, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bxflws_dep', bxflws_dep, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bxflws_prompt', bxflws_prompt, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bxfshs', bxfshs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'bxrpls', bxrpls, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sbcxxs', sbcxxs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfcx0mc', sfcx0mc, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfcxbal', sfcxbal, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfcxesc', sfcxesc, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfcxrmc', sfcxrmc, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfcxrr', sfcxrr, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfdbbcx', sfdbbcx, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfdbbiz', sfdbbiz, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfdepba', sfdepba, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfdepcx', sfdepcx, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfdepiz', sfdepiz, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfdepmc', sfdepmc, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfdeprr', sfdeprr, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfdepsc', sfdepsc, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfdtbmc', sfdtbmc, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sforbal', sforbal, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sforbrr', sforbrr, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfrbbcx', sfrbbcx, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfrbbiz', sfrbbiz, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfshine', sfshine, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfxrccx', sfxrccx, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfxrciz', sfxrciz, mibs)
  call nbi_ascii_D_wr1(nonlin, 'sfxrcsc', sfxrcsc, mibs)
  call nbi_ascii_D_wr1(nonlin, 'snbcxos', snbcxos, mibs)
  call nbi_ascii_D_wr1(nonlin, 'snbcxs', snbcxs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'snbxbb0', snbxbb0, mibs)
  call nbi_ascii_D_wr1(nonlin, 'snbxbb1', snbxbb1, mibs)
  call nbi_ascii_D_wr1(nonlin, 'snbxtot', snbxtot, mibs)
  call nbi_ascii_D_wr1(nonlin, 'snbxv0', snbxv0, mibs)
  call nbi_ascii_D_wr1(nonlin, 'snbxw0', snbxw0, mibs)
  call nbi_ascii_D_wr1(nonlin, 'xysbcxs', xysbcxs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'xninjs', xninjs, mibs)
  call nbi_ascii_D_wr1(nonlin, 'xninjea', xninjea, mibs)
  call nbi_ascii_D_wr0(nonlin, 'sftota', sftota)
 
  write(nonlin,*) ' '
 
end subroutine nbo_ascii
