cpipnTotXs.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cpipntotxs (p, xs)
subroutine	cpipnelaxs (p, xs)
subroutine	cpipninelaxs (p, xs)

Function/Subroutine Documentation

cpipnelaxs()

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

Definition at line 10 of file cpipnTotXs.f.

References cpimpelaxs().

!           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 cpimpelaxs(p, xs)

Here is the call graph for this function:

cpipninelaxs()

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

Definition at line 17 of file cpipnTotXs.f.

References cpimpinelaxs().

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

Here is the call graph for this function:

cpipntotxs()

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

Definition at line 3 of file cpipnTotXs.f.

References cpimptotxs().

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

Here is the call graph for this function: