gibuu is hosted by Hepforge, IPPP Durham
GiBUU

TABLE OF CONTENTS


/mesonWidthMedium [ Modules ]

[ Top ] [ 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

OUTPUT

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

  • TO BE DONE: at the moment only implemented for vacuum width and plus constant collisional width. Latter not yet in full glory.