cnbarpTotXs.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cnbarptotxs (p, xs)
subroutine	cnbarpelaxs (p, xs)
subroutine	cnbarpinelaxs (p, xs)

Function/Subroutine Documentation

cnbarpelaxs()

subroutine cnbarpelaxs	(	real*8	p,
		real*8	xs
	)

Definition at line 9 of file cnbarpTotXs.f.

References cpbarpelaxs().

Referenced by cnbarpinelaxs().

!           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)

Here is the call graph for this function:

Here is the caller graph for this function:

cnbarpinelaxs()

subroutine cnbarpinelaxs	(	real(8), intent(in)	p,
		real(8), intent(out)	xs
	)

Definition at line 16 of file cnbarpTotXs.f.

References cnbarpelaxs(), cnbarptotxs(), and d0.

Referenced by cinelx0().

      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)

Here is the call graph for this function:

Here is the caller graph for this function:

cnbarptotxs()

subroutine cnbarptotxs	(	real*8	p,
		real*8	xs
	)

Definition at line 3 of file cnbarpTotXs.f.

References cpbarptotxs().

Referenced by cnbarpinelaxs(), and ctotx0().

      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)

Here is the call graph for this function:

Here is the caller graph for this function: