TABLE OF CONTENTS
- 1. /barBar_to_barBar_model
- 1.1. barBar_to_barBar_model/couplings_switch
- 1.2. barBar_to_barBar_model/lambda_cutoff
- 1.3. barBar_to_barBar_model/readInput
- 1.4. barBar_to_barBar_model/BarBar_to_barBar_model
- 1.5. barBar_to_barBar_model/NN_ND_model
- 1.6. barBar_to_barBar_model/ND_ND_model
- 1.7. barBar_to_barBar_model/ND_ND_chooseCharge
- 1.8. barBar_to_barBar_model/MSquared_NN_ND
- 1.9. barBar_to_barBar_model/MSquared_ND_ND
- 1.10. barBar_to_barBar_model/isospinFactor_ND_ND
/barBar_to_barBar_model [ Modules ]
NAME
module barBar_to_barBar_model
PURPOSE
A model for nucleon delta scattering, based on one pion exchange.
barBar_to_barBar_model/couplings_switch [ Global module-variables ]
[ Top ] [ barBar_to_barBar_model ] [ Global module-variables ]
SOURCE
integer, save :: couplings_switch = 2
PURPOSE
Possible values:
- 1 = use couplings according to Dmitriev
- 2 = use couplings according to Pascalutsa (default)
barBar_to_barBar_model/lambda_cutoff [ Global module-variables ]
[ Top ] [ barBar_to_barBar_model ] [ Global module-variables ]
SOURCE
real , save :: lambda_cutoff = 0.6
PURPOSE
Cutoff parameter in the form factor for ND->ND Possible values:
- 0.6 (Dmitriev, default)
- 1.2 (Doenges)
barBar_to_barBar_model/readInput [ Subroutines ]
[ Top ] [ barBar_to_barBar_model ] [ Subroutines ]
NAME
subroutine readInput
PURPOSE
Reads input in jobcard out of namelist "BarBar_to_barBar_model".
barBar_to_barBar_model/BarBar_to_barBar_model [ Namelists ]
[ Top ] [ barBar_to_barBar_model ] [ Namelists ]
NAME
NAMELIST /BarBar_to_barBar_model/
PURPOSE
This namelist includes the following switches:
barBar_to_barBar_model/NN_ND_model [ Functions ]
[ Top ] [ barBar_to_barBar_model ] [ Functions ]
NAME
real function NN_ND_model (srts)
PURPOSE
Evaluates cross section for NN -> NDelta (no isospin factors included: gives pp -> n \Delta^++ cross section) in mB
INPUTS
- real, intent (in) :: srts
barBar_to_barBar_model/ND_ND_model [ Functions ]
[ Top ] [ barBar_to_barBar_model ] [ Functions ]
NAME
real function ND_ND_model(srts,idIn,chargeIn,idOut,chargeOut,massIn,chargeSum)
PURPOSE
Evaluates cross section for N Delta -> N Delta in mB.
INPUTS
- integer, dimension (1:2), intent(in) :: idIn,chargeIn,idOut,chargeOut -- ids and charges of in- and outgoing particles
- real, dimension (1:2), intent(in) :: massIn -- masses of incoming particles
- logical, intent(in) :: chargeSum -- .true.= sum over the final state charges
barBar_to_barBar_model/ND_ND_chooseCharge [ Functions ]
[ Top ] [ barBar_to_barBar_model ] [ Functions ]
NAME
function ND_ND_chooseCharge (idIn,idOut,chargeIn) result(chargeOut)
PURPOSE
Does a Monte Carlo decision for the final state charges of N Delta -> N Delta based on isospin factors.
INPUTS
- integer, dimension (1:2) ,intent (in) :: idIn,chargeIn,idOut -- ids of in- and outgoing particles, charges of incoming ones
OUTPUT
- integer, dimension(1:2) :: chargeOut
NOTES
barBar_to_barBar_model/MSquared_NN_ND [ Functions ]
[ Top ] [ barBar_to_barBar_model ] [ Functions ]
NAME
real function MSquared_NN_ND (srts,theta_in,mass_in,integrated_theta,integrated_mass)
NOTES
This function evaluates : Matrix Element^2 * p_cm(final) / p_cm(initial) * SpecFunc_Delta for NN-> NDelta according to one-pion exchange. See Dmitriev NPA 459. All variables in CM System!!
INPUTS
- real :: srts
- real :: theta_in, mass_in -- angle in CM system in radians, mass of Delta
- logical :: integrated_theta, integrated_mass -- .true.= give integrated cross section
NOTES
Up to now, it only works properly for pp -> n Delta^++
barBar_to_barBar_model/MSquared_ND_ND [ Functions ]
[ Top ] [ barBar_to_barBar_model ] [ Functions ]
NAME
real function MSquared_ND_ND(chargeIN,chargeOUT,srts,theta_in,mass_initial_in,mass_in,integrated_theta,integrated_mass,chargeSum)
NOTES
This function evaluates :
Matrix Element^2 * p_cm(final) / p_cm(initial) * SpecFunc_Delta
for NDelta-> NDelta according to one-pion exchange. See Effenberger Diplom!! All variables in CM System!!
INPUTS
- integer, dimension (1:2) :: chargeIn,chargeOUT -- Charges of incoming and outgoing particles: first index nucleon, second:delta
- real :: srts
- real :: theta_in -- angle in CM system in radians
- real :: mass_in , mass_initial_in -- mass of final and initial Delta
- logical :: integrated_theta, integrated_mass -- .true.= give integrated cross section
- logical :: chargeSum -- .true.= sum over the final state charges
barBar_to_barBar_model/isospinFactor_ND_ND [ Functions ]
[ Top ] [ barBar_to_barBar_model ] [ Functions ]
NAME
real function isospinFactor_ND_ND(in_input, out_input )
NOTES
This function evaluates isospin factors for ND-> ND scattering, cf. Table 3.6 of Effenberger's Diploma thesis or table (A.4) in Oliver's PhD.
INPUTS
Charge of incoming and outgoing particles (first index: nucleon, 2nd: Delta) :
- integer, dimension(1:2), intent(in) :: in_input, out_input