TABLE OF CONTENTS
- 1. /kaonNucleon
- 1.1. kaonNucleon/kaonNuc
- 1.1.1. kaonNuc/evaluateXsections
- 1.1.2. kaonNuc/makeDecision
- 1.1.3. kaonNuc/makeOutput
/kaonNucleon [ Modules ]
NAME
module kaonNucleon
PURPOSE
Includes the cross sections for kaon-nucleon and antikaon-antinucleon elastic and inelastic scattering
Public routines:
kaonNucleon/kaonNuc [ Subroutines ]
[ Top ] [ kaonNucleon ] [ Subroutines ]
NAME
subroutine kaonNuc (srts,teilchenIN,teilchenOUT,sigmaTot,sigmaElast,plotFlag)
PURPOSE
Evaluates the cross sections for * K N -> K N, * Kbar Nbar -> Kbar Nbar, * K N -> K N pi, * Kbar Nbar -> Kbar Nbar pi and returns also a "preevent"
Possible final states are :
This routine does a Monte-Carlo-decision according to the partial cross sections to decide on a final state with maximal 3 final state particles. These are returned in the vector teilchenOut. The kinematics of these teilchen is only fixed in the case of a single produced resonance. Otherwise the kinematics still need to be established. The result is:
- type(preEvent),dimension(1:3), intent(out) :: teilchenOut ! outgoing particles
The cross sections are based on parameterization by M. Effenberger.
INPUTS
- real, intent(in) :: srts ! sqrt(s) in the process
- type(particle),dimension(1:2), intent(in) :: teilchenIn ! colliding particles
Debugging:
- logical, intent(in),optional :: plotFlag ! Switch on plotting of the Xsections
OUTPUT
- real, intent(out) :: sigmaTot ! total Xsection
- real, intent(out) :: sigmaElast ! elastic Xsection
kaonNuc/evaluateXsections [ Subroutines ]
[ Top ] [ kaonNuc ] [ Subroutines ]
NAME
subroutine evaluateXsections
PURPOSE
Evaluates K N -> K N and K N -> K N pi cross sections
NOTES
There are no resonance contributions to K N scattering.
kaonNuc/makeDecision [ Subroutines ]
[ Top ] [ kaonNuc ] [ Subroutines ]
NAME
subroutine makeDecision
PURPOSE
Chooses randomly one of possible outgoing channels in kaon-nucleon collision. Outgoing channels are: K N and K N pi. Also the charges of outgoing particles are selected.
NOTES
kaonNuc/makeOutput [ Subroutines ]
[ Top ] [ kaonNuc ] [ Subroutines ]
NAME
subroutine makeOutput
PURPOSE
Writes all cross sections to file as function of srts and plab [GeV] . Filenames:
- 'KN_sigTotElast.dat' : sigmaTot, sigmaElast
- 'KN_KN_KNpi.dat' : K N and and K N pi outgoing channels