TABLE OF CONTENTS
/mesonMeson_Xsections [ Modules ]
NAME
module mesonMeson_Xsections
PURPOSE
Provide parametrizations for (some) meson-meson cross sections
mesonMeson_Xsections/sig_pipi2kkbar [ Functions ]
[ Top ] [ mesonMeson_Xsections ] [ Functions ]
NAME
real function sig_pipi2kkbar(srts,srts0)
PURPOSE
Cross section of pi pi --> K Kbar averaged over isospins of incoming pions and summed over isospins of outgoing pions
INPUTS
- real:: srts -- c.m. energy of incoming particles (GeV),
- real:: srts0 -- threshold c.m. energy (GeV),
OUTPUT
- sig_pipi2kkbar -- cross section (mbarn)
mesonMeson_Xsections/kkbar_cross [ Subroutines ]
[ Top ] [ mesonMeson_Xsections ] [ Subroutines ]
NAME
subroutine kkbar_cross(izt,srts,pinitial2,const,msigbg)
PURPOSE
calculate the cross-sections for the KKbar incoming channel
INPUTS
- integer:: izt -- total charge of K and Kbar,
- real :: srts -- c.m. energy (GeV),
- real :: pinitial2 -- c.m. momentum squared of incoming particles (GeV/c)**2
- real :: const -- cross section of nonstrange+nonstrange --> K Kbar or --> Kstar Kbar, K Kbarstar (mbarn),
OUTPUT
- real, dimension(21) :: msigbg(i), i=1,2,..,21 --- partial cross sections for different outgoing channels (mbarn)
mesonMeson_Xsections/kkbar_out [ Subroutines ]
[ Top ] [ mesonMeson_Xsections ] [ Subroutines ]
NAME
subroutine kkbar_out(izt,msigbg,sigbgt,teilchenOut)
PURPOSE
choose outgoing state for the K Kbar annihilation
INPUTS
- integer :: izt --- total charge of K and Kbar,
- real, dimension(:) ::msigbg(i), i=1,2,...,21 --- partial cross sections for different outgoing channels (mbarn),
- real ::sigbgt --- total background cross section (mbarn)
OUTPUT
- type(preEvent),dimension(21) :: teilchenOut --- outgoing particles
mesonMeson_Xsections/kstarkbar_cross [ Subroutines ]
[ Top ] [ mesonMeson_Xsections ] [ Subroutines ]
NAME
subroutine kstarkbar_cross(izt,srts,pinitial2,const,msigbg)
PURPOSE
calculate cross-sections for Kstar Kbar or K Kstarbar incoming channels
INPUTS
- integer :: izt --- total charge of Kstar and Kbar,
- real :: srts --- c.m. energy (GeV),
- real :: pinitial2 --- c.m. momentum squared of incoming particles (GeV/c)**2,
- real :: const --- cross section of nonstrange+nonstrange --> K Kbar or --> Kstar Kbar, K Kbarstar (mbarn),
OUTPUT
- real, dimension(:) :: msigbg(i), i=1,2,..,8 --- partial cross sections for different outgoing channels (mbarn)
mesonMeson_Xsections/kstarkbar_out [ Subroutines ]
[ Top ] [ mesonMeson_Xsections ] [ Subroutines ]
NAME
subroutine kstarkbar_out(izt,msigbg,sigbgt,teilchenOut)
PURPOSE
choose outgoing state for the Kstar Kbar or K Kstarbar annihilation
INPUTS
INPUT:
- integer ::izt --- total charge of incoming particles,
- real, dimension(:) :: msigbg(i), i=1,2,...,8 --- partial cross sections for different outgoing channels (mbarn),
- real :: sigbgt --- total background cross section (mbarn)
OUTPUT
- type(preEvent),dimension(:) :: teilchenOut --- outgoing particles