cxpXsec.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cxpxsec (pj, xs)

Function/Subroutine Documentation

cxpxsec()

subroutine cxpxsec	(	type(ptcl)	pj,
		real*8	xs
	)

Definition at line 7 of file cxpXsec.f.

References cerrormsg(), charge, ckminuspxsec(), ckpluspxsec(), code, cpbarpxsec(), cpiminuspxsec(), cpipluspxsec(), cppxsec(), kbomega, kdmes, keta, kkaon, klambda, knuc, komega, kphi, kpion, krho, mass, and p.

        implicit none

#include  "Zcode.h"
#include  "Zptcl.h"

        type(ptcl):: pj
        real*8  xs, ke
        integer k
!

        character*100 msg



         k=pj.code
         ke = pj.fm.p(4) - pj.mass
         if(ke .le. 0.) then
            xs = 0.
            return   !*******
         endif
!

         if(k .eq. kpion .or. k .eq. keta) then
            if(pj.charge .ge. 0) then
               call cpipluspxsec(ke, xs)
            else
               call cpiminuspxsec(ke, xs)
            endif
         elseif(k .eq. kkaon ) then
            if(pj.charge .ge. 0.) then
               call ckpluspxsec(ke, xs)
            else
               call ckminuspxsec(ke, xs)
            endif
         elseif(k .eq. knuc) then
            if(pj.charge .ge. 0.) then
               call cppxsec(ke, xs)
            else
               call cpbarpxsec(ke, xs)
            endif
         elseif(k .eq. krho  .or. k .eq. komega  
     *         .or. k .eq. kphi  .or. k .eq. kdmes) then
            if(pj.charge .ge. 0) then
               call cpipluspxsec(ke, xs)
            else
               call cpiminuspxsec(ke, xs)
            endif
         elseif( k .ge. klambda .and. k .le. kbomega) then
            call cppxsec(ke, xs)
         else
               write(msg,*) ' undef.ptcl for cxpXsec=', k,
     *         ' K.E=', ke
               call cerrormsg(msg, 0)
         endif

Here is the call graph for this function: