TABLE OF CONTENTS
- 1. /baryonWidthMedium_tables
- 1.1. baryonWidthMedium_tables/debugFlag
- 1.2. baryonWidthMedium_tables/maxRes
- 1.3. baryonWidthMedium_tables/minRes
- 1.4. baryonWidthMedium_tables/deltaOset
- 1.5. baryonWidthMedium_tables/minimalWidth
- 1.6. baryonWidthMedium_tables/inMediumParameterset
- 1.7. baryonWidthMedium_tables/onlyNucleon
- 1.8. baryonWidthMedium_tables/extrapolateAbsP
- 1.9. baryonWidthMedium_tables/readInput
- 1.10. baryonWidthMedium_tables/BaryonWidthMedium_tables
- 1.11. baryonWidthMedium_tables/get_inMediumWidth
- 1.11.1. get_inMediumWidth/readTable
/baryonWidthMedium_tables [ Modules ]
NAME
module baryonWidthMedium_tables
PURPOSE
Implements the routines for the medium width of the baryons
baryonWidthMedium_tables/debugFlag [ Global module-variables ]
[ Top ] [ baryonWidthMedium_tables ] [ Global module-variables ]
SOURCE
logical, parameter :: debugFlag=.false.
PURPOSE
Switch for debug information
baryonWidthMedium_tables/maxRes [ Global module-variables ]
[ Top ] [ baryonWidthMedium_tables ] [ Global module-variables ]
SOURCE
integer,save :: maxRes=1000
PURPOSE
Read the data table up to a maximum resonance ID. ONLY FOR TESTING!!!
baryonWidthMedium_tables/minRes [ Global module-variables ]
[ Top ] [ baryonWidthMedium_tables ] [ Global module-variables ]
SOURCE
integer,save :: minRes=-1000
PURPOSE
Read the data table starting at this minimal resonance ID. ONLY FOR TESTING!!!
baryonWidthMedium_tables/deltaOset [ Global module-variables ]
[ Top ] [ baryonWidthMedium_tables ] [ Global module-variables ]
SOURCE
logical,save :: deltaOset=.false.
PURPOSE
Use delta width according to Oset et al. NPA 468 (1987)
baryonWidthMedium_tables/minimalWidth [ Global module-variables ]
[ Top ] [ baryonWidthMedium_tables ] [ Global module-variables ]
SOURCE
real,parameter :: minimalWidth=0.001
PURPOSE
The minimal width a particle can get. Must be finite for numerics.
baryonWidthMedium_tables/inMediumParameterset [ Global module-variables ]
[ Top ] [ baryonWidthMedium_tables ] [ Global module-variables ]
SOURCE
integer,save :: inMediumParameterset=2
PURPOSE
chooses the parameters for the inMediumWidth (1 electron, 2 neutrino)
baryonWidthMedium_tables/onlyNucleon [ Global module-variables ]
[ Top ] [ baryonWidthMedium_tables ] [ Global module-variables ]
SOURCE
logical, save :: onlyNucleon=.false.
PURPOSE
Only for debugging: only nucleon width is read in.
baryonWidthMedium_tables/extrapolateAbsP [ Global module-variables ]
[ Top ] [ baryonWidthMedium_tables ] [ Global module-variables ]
SOURCE
logical,save :: extrapolateAbsP=.false.
PURPOSE
if(true) then set absP to maxAbsP if absP is larger
baryonWidthMedium_tables/readInput [ Subroutines ]
[ Top ] [ baryonWidthMedium_tables ] [ Subroutines ]
NAME
subroutine readInput
PURPOSE
Reads input in jobcard out of namelist "BaryonWidthMedium_tables".
baryonWidthMedium_tables/BaryonWidthMedium_tables [ Namelists ]
[ Top ] [ baryonWidthMedium_tables ] [ Namelists ]
NAME
NAMELIST /BaryonWidthMedium_tables/
PURPOSE
Includes the input switches:
baryonWidthMedium_tables/get_inMediumWidth [ Functions ]
[ Top ] [ baryonWidthMedium_tables ] [ Functions ]
NAME
function get_inMediumWidth(particleID,momentum,baremass,rhoN,rhoP,switch) result(width)
PURPOSE
- Returns the in-medium width of baryons according to Gamma=Gamma_free*Pauli_Blocking+sigma*rho*v *Pauli_Blocking
- An average over the Fermi see 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 baryon is performed.
INPUTS
- integer, intent(in) :: particleID -- ID of baryon
- real , dimension (0:3), intent(in) :: Momentum -- Momentum (in LRF)
- real ,intent(in) :: baremass -- bare mass of baryon
- real, intent (in) :: rhoN,rhoP -- proton and neutron density in fm^-3
- integer,intent(in) :: switch -- see OUTPUT for consequences of this switch
- logical, optional, intent(in) :: doMassCorrect_in ! only for debugging: switch on/off mass correction
OUTPUT
- real :: width
If switch equals...:
- 1=only collisional width
- 2=only pauli blocked free width
- else= sum of collisional width and pauli blocked free width
get_inMediumWidth/readTable [ Subroutines ]
[ Top ] [ get_inMediumWidth ] [ Subroutines ]
NAME
subroutine readTable
PURPOSE
Reads tabulated arrays from files:
- buuinput/inMediumWidth/InMediumWidth."particleID"_001.dat.bz2 and
- buuinput/inMediumWidth/InMediumWidth."particleID"_002.dat.bz2 .
OUTPUT
Initialized arrays widthTable, min_mass, max_mass, delta_mass