TABLE OF CONTENTS
/mesonWidthMedium_tables [ Modules ]
NAME
module mesonWidthMedium_tables
PURPOSE
Implements the routines for the medium width of the mesons
mesonWidthMedium_tables/maxMes [ Global module-variables ]
[ Top ] [ mesonWidthMedium_tables ] [ Global module-variables ]
SOURCE
integer,save :: maxMes=1000
PURPOSE
Read the data table up to a maximum meson ID. ONLY FOR TESTING!!!
mesonWidthMedium_tables/minMes [ Global module-variables ]
[ Top ] [ mesonWidthMedium_tables ] [ Global module-variables ]
SOURCE
integer,save :: minMes=-1000
PURPOSE
Read the data table starting at this minimal meson ID. ONLY FOR TESTING!!!
mesonWidthMedium_tables/minimalWidth [ Global module-variables ]
[ Top ] [ mesonWidthMedium_tables ] [ Global module-variables ]
SOURCE
real,parameter :: minimalWidth = 1E-6
PURPOSE
mesonWidthMedium_tables/readInput [ Subroutines ]
[ Top ] [ mesonWidthMedium_tables ] [ Subroutines ]
NAME
subroutine readInput
PURPOSE
Reads input in jobcard out of namelist "mesonWidthMedium_tables".
mesonWidthMedium_tables/get_inMediumWidth [ Functions ]
[ Top ] [ mesonWidthMedium_tables ] [ Functions ]
NAME
function get_inMediumWidth(particleID,absP,mass,rhoN,rhoP) result(width)
PURPOSE
- Returns the in-medium width of mesons according to Gamma=Gamma_free+sigma*rho*v
- An average over the Fermi sea is performed
- Sigma is given by the actual full collision term, with the incoming particles in the vacuum
- Simplification: An average over the charge of the meson is performed.
INPUTS
- integer, intent(in) :: particleID -- ID of meson
- real , intent(in) :: absP -- absolute Momentum (in LRF)
- real ,intent(in) :: mass -- Mass of meson ! p_mu p^mu = mass of the meson (offshell)
- real, intent (in) :: rhoN,rhoP -- proton and neutron density in fm^-3
- logical, optional, intent(in) :: doMassCorrect_in ! only for debugging: switch on/off mass correction
OUTPUT
- real :: collisional width
mesonWidthMedium_tables/readTable [ Subroutines ]
[ Top ] [ mesonWidthMedium_tables ] [ Subroutines ]
NAME
subroutine readTable
PURPOSE
- Reads tabulated arrays from files buuinput/inMediumWidth/InMediumWidth."particleID".dat.bz2
OUTPUT
- Initialized arrays widhtTable, min_mass, max_mass, delta_mass, max_absP, delta_absP