subroutine depsmoo
  !
  ! smooth radial profile outputs of monte carlo deposition calculation
  !
  ! (dmc mar 2004 -- smoothing moved to generated code (nbo_load) ...
  !  only "hole patch" smooth is left here).
  !
  ! subroutines used:  comput/bsmooh.for, subroutine r8bsmoop
  !
  ! the profiles are normalized in depnrm.
  !
  use nbi_com
  !
  !============
  implicit none
  integer :: isb,ifun,ifi,ien
  !============
  real(fp) :: z1(mj)
  !
  !-----------
  !
  z1=1
  !
  do isb=1,nsbeam
     !
     ifun=6
     do ifi=1,ifun
        call r8bsmoop(taubsl(1:mj,ifi,isb),z1)
        call r8bsmoop(taubpa(1:mj,ifi,isb),z1)
     end do
     !
     do ien=1,3
        if(nsigexc_use.gt.0) then
           call r8bsmoop(excit0(1:mj,ien,isb),z1)
        end if
     end do
  end do                             ! specie loop
  !
  return
end subroutine depsmoo
