TABLE OF CONTENTS
- 1. /master_3Body
- 1.1. master_3Body/NNpion_NN_maxSrts
- 1.2. master_3Body/positionNNpi
- 1.3. master_3Body/radiusNukSearch
- 1.4. master_3Body/debug
- 1.5. master_3Body/correctEnergy
- 1.6. master_3Body/pionThreeBody
- 1.7. master_3Body/DeltaThreeBody
- 1.8. master_3Body/GetRadiusNukSearch
- 1.9. master_3Body/readInput
- 1.10. master_3Body/master_3body
- 1.11. master_3Body/setKinematics
- 1.12. master_3Body/nukSearch
/master_3Body [ Modules ]
NAME
module master_3Body
PURPOSE
Includes all 3->X processes.
master_3Body/NNpion_NN_maxSrts [ Global module-variables ]
[ Top ] [ master_3Body ] [ Global module-variables ]
PURPOSE
Maximal sqrt(s) in GeV such that a NN Pion -> NN event takes place.
SOURCE
real, save :: NNpion_NN_maxSrts = 4.0
master_3Body/positionNNpi [ Global module-variables ]
[ Top ] [ master_3Body ] [ Global module-variables ]
PURPOSE
This switch determines where the final state particles in NNpi->NN are positioned:
- true: pion position
- false: center of NNPi (default)
SOURCE
logical, save :: positionNNpi = .false.
master_3Body/radiusNukSearch [ Global module-variables ]
[ Top ] [ master_3Body ] [ Global module-variables ]
PURPOSE
Radius for the search of nucleons, i.e. the radius in which nucleons shall be searched for at rho_0.
SOURCE
real, save :: radiusNukSearch = 2.9
master_3Body/debug [ Global module-variables ]
[ Top ] [ master_3Body ] [ Global module-variables ]
SOURCE
logical, parameter :: debug=.false.
PURPOSE
Switch for debug information.
master_3Body/correctEnergy [ Global module-variables ]
[ Top ] [ master_3Body ] [ Global module-variables ]
PURPOSE
Scale final state momenta to fulfill energy and momentum conservation. If .false., energy conservation is violated.
SOURCE
logical, save :: correctEnergy = .true.
master_3Body/pionThreeBody [ Global module-variables ]
[ Top ] [ master_3Body ] [ Global module-variables ]
PURPOSE
Switch for the NNpion -> NN processes (false=OFF).
SOURCE
logical, save :: pionThreeBody = .true.
master_3Body/DeltaThreeBody [ Global module-variables ]
[ Top ] [ master_3Body ] [ Global module-variables ]
PURPOSE
Switch for the NNDelta -> NN processes (false=OFF).
SOURCE
logical, save :: DeltaThreeBody = .true.
master_3Body/GetRadiusNukSearch [ Functions ]
[ Top ] [ master_3Body ] [ Functions ]
NAME
real function GetRadiusNukSearch()
PURPOSE
return the value of the variable "radiusNukSearch" if module was not initailzed before, this is done now.
master_3Body/readInput [ Subroutines ]
[ Top ] [ master_3Body ] [ Subroutines ]
NAME
subroutine readInput
PURPOSE
Reads input in jobcard out of namelist "master_3body".
master_3Body/master_3body [ Namelists ]
[ Top ] [ master_3Body ] [ Namelists ]
NAME
NAMELIST /master_3body/
PURPOSE
Includes the switches:
- correctEnergy
- radiusNukSearch
- deltaThreeBody
- pionThreeBody
- positionNNpi
master_3Body/setKinematics [ Subroutines ]
[ Top ] [ master_3Body ] [ Subroutines ]
NAME
subroutine setKinematics(srts,srts_vacuum,momentum_calc, betaToLRF,betaToCM,medium_AtCollision, finalState)
PURPOSE
Evaluates the kinematics for the "finalState" particles assuming vacuum kinematics (-> no potentials).
INPUTS
- real, intent(in) :: srts ! SQRT(s)
- real, intent(in) :: srts_vacuum ! SQRT(s) in the vacuum
- real, intent(in), dimension(0:3) :: momentum_calc ! total momentum in calculation frame
- real, dimension(1:3), intent(in) :: betaToLRF ! beta of calculation frame to LRF frame
- real, dimension(1:3), intent(in) :: betaToCM ! beta of calculation frame to CM frame
- type(medium), intent(in) :: mediumAtCollision ! medium information
OUTPUT
- type(particle), dimension(:),intent(inOut) :: finalState
NOTES
It's important that the Id's and charges of the "finalState" particles are already set when calling this subroutine. Only kinematics including masses of this finalState will be set.
master_3Body/nukSearch [ Subroutines ]
[ Top ] [ master_3Body ] [ Subroutines ]
PURPOSE
Searches in particle Vector for those nucleons which are closest to the given particleIn. It returns pointers to the closest neutrons and protons.