### TABLE OF CONTENTS

- 1. /phiNucleon
- 1.1. phiNucleon/phiNuc
- 1.1.1. phiNuc/evaluateXsections
- 1.1.2. phiNuc/makeOutput

## /phiNucleon [ Modules ]

NAME

module **phiNucleon**

PURPOSE

Includes the cross sections for phi-nucleon scattering in the resonance regime.

## phiNucleon/phiNuc [ Subroutines ]

[ Top ] [ phiNucleon ] [ Subroutines ]

NAME

subroutine **phiNuc**(srts,partIn,mediumAtColl,partOut,sigmaTot,
sigmaElast,useHiEnergy,HiEnergySchwelle,plotFlag,sigmaArr)

PURPOSE

Evaluates phi Nucleon -> anything cross sections and returns also a "preevent"

INPUTS

- real :: srts --- sqrt(s) in the process
- type(particle),dimension(1:2) :: partIn --- colliding particles
- type(medium) :: mediumAtColl --- Medium at position of the collision

High energy matching:

- logical :: useHiEnergy --- .true. if High-Energy cross sections are given by paramBarMesHE
- real :: HiEnergySchwelle --- threshold sqrt(s) for paramBarMesHE, i.e. at which energy the cross sections of paramBarMesHE are used

Debugging:

- logical, optional :: plotFlag --- Switch on plotting of the Xsections

OUTPUT

- real :: sigmaTot --- total Xsection
- real :: sigmaElast --- elastic Xsection

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 partOut. The kinematics of these particles 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) :: partOut --- colliding particles
- real, dimension(3), optional :: sigmaArr -- partial cross sections

The cross sections are based upon a parametrization by Golubeva. See routine golub_phi in parametrizationBarMes.

NOTES

Possible final states are :

## phiNuc/evaluateXsections [ Subroutines ]

[ Top ] [ phiNuc ] [ Subroutines ]

NAME

subroutine **evaluateXsections**

PURPOSE

Evaluates phi Nucleon -> anything cross sections

NOTES

There are no resonance contributions to phi N scattering. The contributions are given by Golubeva (see golub_phi).

## phiNuc/makeOutput [ Subroutines ]

[ Top ] [ phiNuc ] [ Subroutines ]

NAME

subroutine **makeOutput**

PURPOSE

Writes all cross sections to file as function of srts and plab [GeV]. Filenames:

- 'phiN_sigTotElast.dat' : sigmaTot, sigmaElast
- 'phiN_nonStrange_nuk.dat' : non-strange meson with nucleon in final state