cnbarpTotXs.f

Go to the documentation of this file.

!        nbarp total xsection, nbarp ela
      subroutine cnbarptotxs(p, xs)
      implicit none
      real*8 p  ! input.  momentum of nbar. in GeV
      real*8 xs     ! output. total nbarp cross section in mb
      call cpbarptotxs(p, xs)
      end      subroutine cnbarptotxs
      subroutine cnbarpelaxs(p, xs)
!           pbarp elastic cross section in mb
      implicit none
      real*8 p ! input.  momentum of pbar in GeV
      real*8  xs   ! output pbarp elastic xs. mb.
      call cpbarpelaxs(p, xs)
      end      subroutine cnbarpelaxs
      subroutine cnbarpinelaxs(p, xs)
      implicit none
      real(8),intent(in)::p
      real(8),intent(out)::xs

      real(8)::txs, exs
      call cnbarptotxs(p, txs)
      call cnbarpelaxs(p, exs)
      xs =max( txs - exs, 0.d0)
      end      subroutine cnbarpinelaxs