TABLE OF CONTENTS
- 1. /mesonMeson_Xsections
- 1.1. mesonMeson_Xsections/sig_pipi2kkbar
- 1.2. mesonMeson_Xsections/kkbar_cross
- 1.3. mesonMeson_Xsections/kstarkbar_cross
- 1.4. mesonMeson_Xsections/kkbar_out
- 1.5. mesonMeson_Xsections/pcm2Integrated
- 1.6. mesonMeson_Xsections/pcm2Pole
- 1.7. mesonMeson_Xsections/pcm2
- 1.8. mesonMeson_Xsections/mesMes_Tabulate
- 1.9. mesonMeson_Xsections/calculate1
- 1.10. mesonMeson_Xsections/calculate2
/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(iQ,srts,pinitial2,const,msigbg,useWidth)
PURPOSE
calculate the cross-sections for the KKbar incoming channel
INPUTS
- integer:: iQ -- 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)
- logical:: useWidth -- flag whether to use the width or just pole masses
OUTPUT
- real, dimension(21) :: msigbg(i), i=1,2,..,21 --- partial cross sections for different outgoing channels (mbarn)
mesonMeson_Xsections/kstarkbar_cross [ Subroutines ]
[ Top ] [ mesonMeson_Xsections ] [ Subroutines ]
NAME
subroutine kstarkbar_cross(iQ,srts,pinitial2,const,msigbg,useWidth)
PURPOSE
calculate cross-sections for Kstar Kbar or K Kstarbar incoming channels
INPUTS
- integer :: iQ --- 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),
- logical:: useWidth -- flag whether to use the width or just pole masses
OUTPUT
- real, dimension(:) :: 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(iQ,msigbg,sigbgt,teilchenOut)
PURPOSE
choose outgoing state for the K Kbar annihilation
INPUTS
- integer :: iQ --- 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
NOTE * This routine handles also the kstarkbar case
mesonMeson_Xsections/pcm2Integrated [ Functions ]
[ Top ] [ mesonMeson_Xsections ] [ Functions ]
NAME
real function pcm2Integrated( srts, iCh )
PURPOSE
calculate the phase space (squared) by integrating over the spectral functions of the particles of the given channel.
Threshold is treated correctly by using the minimal masses.
INPUTS
- real :: srts -- c.m. energy (GeV)
- integer :: iCh -- number of channel to consider
OUTPUT
- phase space squared in GeV^2
mesonMeson_Xsections/pcm2Pole [ Functions ]
[ Top ] [ mesonMeson_Xsections ] [ Functions ]
NAME
real function pcm2Pole( srts, iCh )
PURPOSE
calculate the phase space (squared) by calculating the pCM assuming pole masses of the particles in the given channel.
Threshold is treated correctly by using the pole masses.
INPUTS
- real :: srts -- c.m. energy (GeV)
- integer :: iCh -- number of channel to consider
OUTPUT
- phase space (squared) in GeV^2
mesonMeson_Xsections/pcm2 [ Functions ]
[ Top ] [ mesonMeson_Xsections ] [ Functions ]
NAME
real function pcm2( srts, iCh, useWidth )
PURPOSE
Shorthand for calling pcm2Integrated or pcm2Pole
mesonMeson_Xsections/mesMes_Tabulate [ Subroutines ]
[ Top ] [ mesonMeson_Xsections ] [ Subroutines ]
NAME
subroutine mesMes_Tabulate
PURPOSE
Initialize the cross sections by tabulating them as function of sqrt(s)
mesonMeson_Xsections/calculate1 [ Functions ]
[ Top ] [ mesonMeson_Xsections ] [ Functions ]
NAME
real function calculate1(srts, id1, id2)
PURPOSE
Calculates the integral of pCM**2 for id1 stable, id2 instable
mesonMeson_Xsections/calculate2 [ Functions ]
[ Top ] [ mesonMeson_Xsections ] [ Functions ]
NAME
real function calculate2(srts, id1, id2)
PURPOSE
Calculates the integral of pCM for id1 instable, id2 instable