cpimnTotXs.f

Go to the documentation of this file.

!        pi-n total xsection , elastic xs
      subroutine cpimntotxs(p, xs)
      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)
      end      subroutine cpimntotxs
!         
      subroutine cpimnelaxs(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 cpippelaxs(p, xs)
      end      subroutine cpimnelaxs
      subroutine cpimninelaxs(p, xs)
      implicit none
      real(8),intent(in)::p
      real(8),intent(out)::xs

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