TABLE OF CONTENTS
- 1. /JPsiNucleon
- 1.1. JPsiNucleon/JPsiNuc
- 1.1.1. JPsiNuc/evaluateXsections
- 1.1.2. JPsiNuc/makeDecision
- 1.1.3. JPsiNuc/makeOutput
/JPsiNucleon [ Modules ]
NAME
module JPsiNucleon
PURPOSE
Includes the cross sections for J/Psi-nucleon elastic scattering and J/Psi dissociation
Public routines:
JPsiNucleon/JPsiNuc [ Subroutines ]
[ Top ] [ JPsiNucleon ] [ Subroutines ]
NAME
subroutine JPsiNuc(srts,teilchenIN,teilchenOUT,sigmaTot,sigmaElast,plotFlag)
PURPOSE
Evaluates the cross sections for * J N -> J N, * J N -> Lambda_c Dbar, * J N -> Lambda_c D*bar , * J N -> N D Dbar and returns also a "preevent":
- type(preEvent),dimension(1:3), intent(out) :: teilchenOut ! outgoing particles
The cross sections are based on calculations of A. Sibirtsev (parameterized by A.L.).
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
JPsiNuc/evaluateXsections [ Subroutines ]
[ Top ] [ JPsiNuc ] [ Subroutines ]
NAME
subroutine evaluateXsections
PURPOSE
Evaluates J N -> J N, J N -> Lambda_c Dbar, J N -> Lambda_c D*bar and J N -> N D Dbar cross sections
NOTES
There are no resonance contributions to JPsi N scattering.
JPsiNuc/makeDecision [ Subroutines ]
[ Top ] [ JPsiNuc ] [ Subroutines ]
NAME
subroutine makeDecision
PURPOSE
Chooses randomly one of possible outgoing channels in JPsi-nucleon collision. Also the charges of outgoing particles are selected.
JPsiNuc/makeOutput [ Subroutines ]
[ Top ] [ JPsiNuc ] [ Subroutines ]
NAME
subroutine makeOutput
PURPOSE
Writes all cross sections to file as function of srts and plab [GeV] Filenames:
- 'JPsiN_sigTotElast.dat' : sigmaTot, sigmaElast
- 'JPsiN_diss.dat' : outgoing channels with JPsi dissociation