cpimnTotXs.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cpimntotxs (p, xs)
subroutine	cpimnelaxs (p, xs)
subroutine	cpimninelaxs (p, xs)

Function/Subroutine Documentation

cpimnelaxs()

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

Definition at line 10 of file cpimnTotXs.f.

References cpippelaxs().

!           pi+ p elastic cross section in mb
      implicit none
      real*8 p ! input.  momentum of n in GeV
      real*8  xs   ! output np elastic xs. mb.
      call cpippelaxs(p, xs)

Here is the call graph for this function:

cpimninelaxs()

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

Definition at line 17 of file cpimnTotXs.f.

References cpippinelaxs().

      implicit none
      real(8),intent(in)::p
      real(8),intent(out)::xs

      real(8)::txs, exs
      call cpippinelaxs(p, xs)

Here is the call graph for this function:

cpimntotxs()

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

Definition at line 3 of file cpimnTotXs.f.

References cpipptotxs().

      implicit none
      real*8 p  ! input.  momentum of n. in GeV
      real*8 xs     ! output. total np cross section in mb
      call cpipptotxs(p, xs)

Here is the call graph for this function: