! written by nbigen.py
! *** do not edit *** (use nbigen.py instead)
 
subroutine nbo_load_frantic
 
  use nbi_com
  use physconst_mod, only: zero
  implicit NONE
 
  INTEGER :: i,j,k,ival
  real(fp) :: zdata(mj),zr8val,zsmoo,zsmoosave
  CHARACTER*32 :: zname,zunits
  CHARACTER*60 :: zlroot,zlabel
 
 
  !-----------------------------------
  ! ... block: frantic .........
 
  do i = 1,mig
    do j = 1,mis
      zdata = nbi_den0mn(i,1:mj,j)
    call nbo_lbl_split('the neutral density #/m**3',zlroot,zunits)
    call nbo_name1('nbi_den0mn','mig',i,'mis',j,' ',0,zname, &
           zlroot, zlabel)
    call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
    io_nbi_den0mn(i,j) = ival
    io_nbi_den0mn_name(i,j) = trim(oprefix)//trim(zname)
  enddo
enddo
 
  do i = 1,mig
    do j = 1,mis
      zdata = nbi_en0mn(i,1:mj,j)
    call nbo_lbl_split('KeV, the neutral temperature',zlroot,zunits)
    call nbo_name1('nbi_en0mn','mig',i,'mis',j,' ',0,zname, &
           zlroot, zlabel)
    call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
    io_nbi_en0mn(i,j) = ival
    io_nbi_en0mn_name(i,j) = trim(oprefix)//trim(zname)
  enddo
enddo
 
  do i = 1,mig
    do j = 1,mis
      zdata = nbi_omg0mn(i,1:mj,j)
    call nbo_lbl_split('the av. neutral toroidal velocity, m/sec',zlroot,zunits)
    call nbo_name1('nbi_omg0mn','mig',i,'mis',j,' ',0,zname, &
           zlroot, zlabel)
    call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
    io_nbi_omg0mn(i,j) = ival
    io_nbi_omg0mn_name(i,j) = trim(oprefix)//trim(zname)
  enddo
enddo
 
  do i = 1,mig
    do j = 1,mis
      zdata = nbi_snimn(i,1:mj,j)
    call nbo_lbl_split('the ionization ion source, #/m**3/sec',zlroot,zunits)
    call nbo_name1('nbi_snimn','mig',i,'mis',j,' ',0,zname, &
           zlroot, zlabel)
    call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
    io_nbi_snimn(i,j) = ival
    io_nbi_snimn_name(i,j) = trim(oprefix)//trim(zname)
  enddo
enddo
 
  do i = 1,2
    do j = 1,mis
      zdata = nbi_snemn(i,1:mj,j)
    call nbo_lbl_split('#/m**3/sec the electron source',zlroot,zunits)
    call nbo_name1('nbi_snemn','2',i,'mis',j,' ',0,zname, &
           zlroot, zlabel)
    call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
    io_nbi_snemn(i,j) = ival
    io_nbi_snemn_name(i,j) = trim(oprefix)//trim(zname)
  enddo
enddo
 
  do i = 1,mis
    zdata = nbi_scxmn(1:mj,i)
  call nbo_lbl_split('the CX reaction rate #/m**3/sec',zlroot,zunits)
  call nbo_name1('nbi_scxmn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_scxmn(i) = ival
  io_nbi_scxmn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_pcxmn(1:mj,i)
  call nbo_lbl_split('the CX power W/m**3 lost to ions',zlroot,zunits)
  call nbo_name1('nbi_pcxmn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_pcxmn(i) = ival
  io_nbi_pcxmn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_pnimn(1:mj,i)
  call nbo_lbl_split('the ionization source power W/m**3 to ions',zlroot,zunits)
  call nbo_name1('nbi_pnimn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_pnimn(i) = ival
  io_nbi_pnimn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_tqcxmn(1:mj,i)
  call nbo_lbl_split('the CX torque density Nt-m/m**3 lost to ions',zlroot,zunits)
  call nbo_name1('nbi_tqcxmn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_tqcxmn(i) = ival
  io_nbi_tqcxmn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_tqnimn(1:mj,i)
  call nbo_lbl_split('the ioniz. source torque density  Nt-m/m**3',zlroot,zunits)
  call nbo_name1('nbi_tqnimn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_tqnimn(i) = ival
  io_nbi_tqnimn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_pfcxmn(1:mj,i)
  call nbo_lbl_split('the CX source friction  W/m**3 to ions',zlroot,zunits)
  call nbo_name1('nbi_pfcxmn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_pfcxmn(i) = ival
  io_nbi_pfcxmn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_pfnimn(1:mj,i)
  call nbo_lbl_split('the ioniz. source friction  W/m**3 to ions',zlroot,zunits)
  call nbo_name1('nbi_pfnimn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_pfnimn(i) = ival
  io_nbi_pfnimn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,2
    do j = 1,mis
      zdata = nbi_sflx0m(i,1:mj,j)
    call nbo_lbl_split('#/m**3/sec, the total div',zlroot,zunits)
    call nbo_name1('nbi_sflx0m','2',i,'mis',j,' ',0,zname, &
           zlroot, zlabel)
    call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
    io_nbi_sflx0m(i,j) = ival
    io_nbi_sflx0m_name(i,j) = trim(oprefix)//trim(zname)
  enddo
enddo
 
  do i = 1,2
    do j = 1,mis
      zdata = nbi_pflx0m(i,1:mj,j)
    call nbo_lbl_split('W/m**3, the total div',zlroot,zunits)
    call nbo_name1('nbi_pflx0m','2',i,'mis',j,' ',0,zname, &
           zlroot, zlabel)
    call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
    io_nbi_pflx0m(i,j) = ival
    io_nbi_pflx0m_name(i,j) = trim(oprefix)//trim(zname)
  enddo
enddo
 
  do i = 1,mis
    zdata = nbi_tqflx0(1:mj,i)
  call nbo_lbl_split('Nt-m/m**3, the total div(flux)',zlroot,zunits)
  call nbo_name1('nbi_tqflx0','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_tqflx0(i) = ival
  io_nbi_tqflx0_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_pb0mn(1:mj,i)
  call nbo_lbl_split('W, power in halo neutral source',zlroot,zunits)
  call nbo_name1('nbi_pb0mn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_pb0mn(i) = ival
  io_nbi_pb0mn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_pscmn(1:mj,i)
  call nbo_lbl_split('W, beam halo power',zlroot,zunits)
  call nbo_name1('nbi_pscmn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_pscmn(i) = ival
  io_nbi_pscmn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_tqb0mn(1:mj,i)
  call nbo_lbl_split('Nt*m, torque of halo neutral source',zlroot,zunits)
  call nbo_name1('nbi_tqb0mn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_tqb0mn(i) = ival
  io_nbi_tqb0mn_name(i) = trim(oprefix)//trim(zname)
enddo
 
  do i = 1,mis
    zdata = nbi_tqscmn(1:mj,i)
  call nbo_lbl_split('Nt*m, beam halo torque',zlroot,zunits)
  call nbo_name1('nbi_tqscmn','mis',i,' ',0,' ',0,zname, &
         zlroot, zlabel)
  call nbo_load1('parameter', zname, zlabel, zunits, zdata, ival, zr8val)
  io_nbi_tqscmn(i) = ival
  io_nbi_tqscmn_name(i) = trim(oprefix)//trim(zname)
enddo
 
 
end subroutine nbo_load_frantic
