TABLE OF CONTENTS
- 1. /mesonWidthMedium
- 1.1. mesonWidthMedium/mediumSwitch
- 1.2. mesonWidthMedium/Gamma_coll_rho
- 1.3. mesonWidthMedium/Gamma_coll_omega
- 1.4. mesonWidthMedium/Gamma_coll_phi
- 1.5. mesonWidthMedium/verboseInit
- 1.6. mesonWidthMedium/allowMix
- 1.7. mesonWidthMedium/readInput
- 1.8. mesonWidthMedium/width_Meson
- 1.9. mesonWidthMedium/get_MediumSwitchMesons
- 1.10. mesonWidthMedium/decayWidthMesonMedium
- 1.11. mesonWidthMedium/WidthMesonMedium
- 1.12. mesonWidthMedium/WidthMesonMedium_GammaColl
- 1.13. mesonWidthMedium/GetMassAssInfo_Meson
- 1.14. mesonWidthMedium/InitMassAssInfo_Meson
/mesonWidthMedium [ Modules ]
NAME
module mesonWidthMedium
PURPOSE
Basically this module calls the subroutines of the module "mesonWidth" and adds medium modifications to it.
USES
module mesonWidth
mesonWidthMedium/mediumSwitch [ Global module-variables ]
[ Top ] [ mesonWidthMedium ] [ Global module-variables ]
SOURCE
integer, save :: mediumSwitch = 0
PURPOSE
Treatment of In-Medium Widths for mesons:
- 0: Only vacuum widths are used.
- 1: The collisional width is assumed to be constant (only density-dependent).
- 2: The full tabulated in-medium width is used, as calculated via the collision term.
mesonWidthMedium/Gamma_coll_rho [ Global module-variables ]
[ Top ] [ mesonWidthMedium ] [ Global module-variables ]
SOURCE
real, save :: Gamma_coll_rho = 0.150
PURPOSE
Collisional width for the rho meson in GeV. Only used if mediumSwitch = 1.
mesonWidthMedium/Gamma_coll_omega [ Global module-variables ]
[ Top ] [ mesonWidthMedium ] [ Global module-variables ]
SOURCE
real, save :: Gamma_coll_omega = 0.150
PURPOSE
Collisional width for the omega meson in GeV. Only used if mediumSwitch = 1.
mesonWidthMedium/Gamma_coll_phi [ Global module-variables ]
[ Top ] [ mesonWidthMedium ] [ Global module-variables ]
SOURCE
real, save :: Gamma_coll_phi = 0.030
PURPOSE
Collisional width for the phi meson in GeV. Only used if mediumSwitch = 1.
mesonWidthMedium/verboseInit [ Global module-variables ]
[ Top ] [ mesonWidthMedium ] [ Global module-variables ]
SOURCE
logical, save :: verboseInit = .false.
PURPOSE
switch on/off informational messages during initialization
mesonWidthMedium/allowMix [ Global module-variables ]
[ Top ] [ mesonWidthMedium ] [ Global module-variables ]
SOURCE
logical, save :: allowMix = .false.
PURPOSE
switch on/off linear interpolation between bins in density while returning the tabulated values for MassAssInfo.
mesonWidthMedium/readInput [ Subroutines ]
[ Top ] [ mesonWidthMedium ] [ Subroutines ]
NAME
subroutine readInput
PURPOSE
Reads input in jobcard out of namelist "width_Meson".
mesonWidthMedium/width_Meson [ Namelists ]
[ Top ] [ mesonWidthMedium ] [ Namelists ]
NAME
NAMELIST width_Meson
PURPOSE
Includes the switches:
mesonWidthMedium/get_MediumSwitchMesons [ Functions ]
[ Top ] [ mesonWidthMedium ] [ Functions ]
NAME
logical function get_MediumSwitchMesons
PURPOSE
return true, if mediumSwitch>0
mesonWidthMedium/decayWidthMesonMedium [ Subroutines ]
[ Top ] [ mesonWidthMedium ] [ Subroutines ]
NAME
real function decayWidthMesonMedium (ID, mass, ch, pauliFlag) result (decayWidth)
PURPOSE
This function returns the partial out widths with energy dependence. Also medium modifications of these out-width are included here. If the out-width has already Pauli-Blocking effects included, then the pauliFlag is set to .true. .
INPUTS
- integer :: ID -- ID of resonance
- real :: mass -- baremass of the resonance (offshell)
- integer :: ch -- charge of resonance
OUTPUT
- real, dimension(:) :: decayWidth -- array of ecay widths for all decay channels
- logical :: pauliFlag -- .true. if pauli-Blocking is already considered in the decay width description
mesonWidthMedium/WidthMesonMedium [ Subroutines ]
[ Top ] [ mesonWidthMedium ] [ Subroutines ]
NAME
real function WidthMesonMedium(ID,mass,momLRF,mediumAtPos)
PURPOSE
This function calculates the (partial) width energy dependent of all meson resonances with medium modifications.
INPUTS
- integer :: ID -- id of resonance
- real :: mass -- p_mu p^mu = mass of the resonance (offshell)
- real,dimension(0:3) :: momLRF --
- type(medium) :: mediumAtPos --
mesonWidthMedium/WidthMesonMedium_GammaColl [ Subroutines ]
[ Top ] [ mesonWidthMedium ] [ Subroutines ]
NAME
real function WidthMesonMedium_GammaColl(ID,mass,momLRF,mediumAtPos)
PURPOSE
This function calculates the collisional width energy dependent of all meson resonances, density dependend.
INPUTS
- integer :: ID -- id of resonance
- real :: mass -- p_mu p^mu = mass of the resonance (offshell)
- real,dimension(0:3) :: momLRF --
- type(medium) :: mediumAtPos --
mesonWidthMedium/GetMassAssInfo_Meson [ Subroutines ]
[ Top ] [ mesonWidthMedium ] [ Subroutines ]
NAME
subroutine GetMassAssInfo_Meson(MassAssInfo, ID,momLRF,mediumAtPos)
PURPOSE
Set the information necessary for improved MassAss
INPUTS
- integer :: ID -- ID of particle
- real, dimension(0:3) :: momLRF -- momentum of resonance in LRF
- type(medium) :: mediumAtPos -- medium at position
OUTPUT
- type(tMassAssInfo) :: MassAssInfo -- the info to get
NOTES
- The type 'MassAssInfo' is given as 'intent(inout)' since we have to bother with the allocation of its components
mesonWidthMedium/InitMassAssInfo_Meson [ Subroutines ]
[ Top ] [ mesonWidthMedium ] [ Subroutines ]
NAME
subroutine InitMassAssInfo_Meson This routine initializes the array of information used by the improved massass routines.
NOTES