cpipnTotXs.f

Go to the documentation of this file.

!        pi+n total xsection , elastic xs
      subroutine cpipntotxs(p, xs)
      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)
      end      subroutine cpipntotxs
!         
      subroutine cpipnelaxs(p, xs)
!           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)
      end      subroutine cpipnelaxs
      subroutine cpipninelaxs(p, xs)
      implicit none
      real(8),intent(in)::p
      real(8),intent(out)::xs
      call cpimpinelaxs(p, xs)
      end subroutine cpipninelaxs