### 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