! written by nbigen.py
! *** do not edit *** (use nbigen.py instead)
subroutine cxnrm 
  use nbi_com
  use nbi_mpi_com
  implicit NONE
  integer :: ib
  real(fp) :: zcxnorm
  
  zcxnorm = xncx0_orb(lsbeam)/real(ncx0_use,fp)
 
  be0cx(:,lsbeam) = be0cx(:,lsbeam)*zcxnorm
  be0cx2(:,lsbeam) = be0cx2(:,lsbeam)*zcxnorm
  be20cx2(:,lsbeam) = be20cx2(:,lsbeam)*zcxnorm
  bn0cx2(:,lsbeam) = bn0cx2(:,lsbeam)*zcxnorm
  bv0cx2(:,lsbeam) = bv0cx2(:,lsbeam)*zcxnorm
  bvrhocx2(:,lsbeam) = bvrhocx2(:,lsbeam)*zcxnorm
  bvthcx2(:,lsbeam) = bvthcx2(:,lsbeam)*zcxnorm
  bvpllcx2(:,lsbeam) = bvpllcx2(:,lsbeam)*zcxnorm
  balpha_gyro(:,lsbeam) = balpha_gyro(:,lsbeam)*zcxnorm
  hexbbxrc(:,lsbeam,:) = hexbbxrc(:,lsbeam,:)*zcxnorm
  srbn02(:,:,lsbeam) = srbn02(:,:,lsbeam)*zcxnorm
  bv0cx(:,lsbeam) = bv0cx(:,lsbeam)*zcxnorm
  fpixbts_ntr(:,lsbeam) = fpixbts_ntr(:,lsbeam)*zcxnorm
  tirtots_ntr(:,lsbeam) = tirtots_ntr(:,lsbeam)*zcxnorm
  bn0cx(:,lsbeam) = bn0cx(:,lsbeam)*zcxnorm
  excitr(:,lsbeam) = excitr(:,lsbeam)*zcxnorm
  pbephis_ntr(:,lsbeam) = pbephis_ntr(:,lsbeam)*zcxnorm
  sbcx0s(:,lsbeam) = sbcx0s(:,lsbeam)*zcxnorm
  sorbn0s(:,:,lsbeam) = sorbn0s(:,:,lsbeam)*zcxnorm
  sbcxrbs(:,lsbeam) = sbcxrbs(:,lsbeam)*zcxnorm
  sbcxres(:,lsbeam) = sbcxres(:,lsbeam)*zcxnorm
  sbcxris(:,lsbeam) = sbcxris(:,lsbeam)*zcxnorm
  sbcxrls(:,lsbeam) = sbcxrls(:,lsbeam)*zcxnorm
  sbcxrxs(:,:,lsbeam) = sbcxrxs(:,:,lsbeam)*zcxnorm
  sbcxrzs(:,lsbeam) = sbcxrzs(:,lsbeam)*zcxnorm
  sorbes_ntr(:,lsbeam) = sorbes_ntr(:,lsbeam)*zcxnorm
  sorbhs_ntr(:,:,lsbeam) = sorbhs_ntr(:,:,lsbeam)*zcxnorm
  tqbcxs(:,lsbeam) = tqbcxs(:,lsbeam)*zcxnorm
  tqjxbs_ntr(:,lsbeam) = tqjxbs_ntr(:,lsbeam)*zcxnorm
  do ib=1,nbeam
     if(lsbeama(ib).eq.lsbeam) then
        tqjxbnb_ntr(:,ib) = tqjxbnb_ntr(:,ib)*zcxnorm
     endif
  enddo
  bpcxers(lsbeam) = bpcxers(lsbeam)*zcxnorm
  bpcxi0s(lsbeam) = bpcxi0s(lsbeam)*zcxnorm
  bpcxins(lsbeam) = bpcxins(lsbeam)*zcxnorm
  bpcxots(lsbeam) = bpcxots(lsbeam)*zcxnorm
  bpcxris(lsbeam) = bpcxris(lsbeam)*zcxnorm
  bpcxrxs(lsbeam) = bpcxrxs(lsbeam)*zcxnorm
  bpcxx0s(lsbeam) = bpcxx0s(lsbeam)*zcxnorm
  bph0was(lsbeam) = bph0was(lsbeam)*zcxnorm
  bphcxls(lsbeam) = bphcxls(lsbeam)*zcxnorm
  bphjxbs_ntr(lsbeam) = bphjxbs_ntr(lsbeam)*zcxnorm
  bphrcas(lsbeam) = bphrcas(lsbeam)*zcxnorm
  bpjxbs_ntr(lsbeam) = bpjxbs_ntr(lsbeam)*zcxnorm
  sbcxxs(lsbeam) = sbcxxs(lsbeam)*zcxnorm
  sfcx0mc(lsbeam) = sfcx0mc(lsbeam)*zcxnorm
  sfcxmc1d(:,lsbeam) = sfcxmc1d(:,lsbeam)*zcxnorm
  sfcxesc(lsbeam) = sfcxesc(lsbeam)*zcxnorm
  sfcxrmc(lsbeam) = sfcxrmc(lsbeam)*zcxnorm
  sfcxrr(lsbeam) = sfcxrr(lsbeam)*zcxnorm
  sfrbbcx(lsbeam) = sfrbbcx(lsbeam)*zcxnorm
  sfrbbiz(lsbeam) = sfrbbiz(lsbeam)*zcxnorm
  sfxrccx(lsbeam) = sfxrccx(lsbeam)*zcxnorm
  sfxrciz(lsbeam) = sfxrciz(lsbeam)*zcxnorm
  sfxrcsc(lsbeam) = sfxrcsc(lsbeam)*zcxnorm
  
end subroutine cxnrm
