TABLE OF CONTENTS
/pn_medium_width [ Modules ]
NAME
module pn_medium_width
PURPOSE
Gives the in-medium width of a proton or a neutron.
AUTHOR
David F. Kalok
pn_medium_width/pn_medium [ Namelists ]
[ Top ] [ pn_medium_width ] [ Namelists ]
NAME
NAMELIST /pn_medium/
PURPOSE
Includes the input switches:
pn_medium_width/debug [ Global module-variables ]
[ Top ] [ pn_medium_width ] [ Global module-variables ]
SOURCE
logical, parameter :: debug=.false.
PURPOSE
If .true. debug infos are produced, if .false. not..
pn_medium_width/density_dependent [ Global module-variables ]
[ Top ] [ pn_medium_width ] [ Global module-variables ]
SOURCE
logical, save :: density_dependent=.false.
PURPOSE
the density of the spectral function
pn_medium_width/form_factor [ Global module-variables ]
[ Top ] [ pn_medium_width ] [ Global module-variables ]
SOURCE
logical, save :: form_factor=.true.
PURPOSE
If .true. the form factor for the width is used
pn_medium_width/pn_medium_switch [ Global module-variables ]
[ Top ] [ pn_medium_width ] [ Global module-variables ]
SOURCE
logical, save :: pn_medium_switch=.true.
PURPOSE
If .true. medium_modifications will be used
pn_medium_width/readinput [ Subroutines ]
[ Top ] [ pn_medium_width ] [ Subroutines ]
NAME
subroutine readinput
PURPOSE
This subroutine reads out the jobcard "pn_medium" which may contain:
Only called once to initialize the module.
pn_medium_width/proton_width_medium [ Functions ]
[ Top ] [ pn_medium_width ] [ Functions ]
NAME
real function proton_width_medium(momLRF,pdens,ndens,mu_extern)
PURPOSE
function for calculation of the proton width in a medium
INPUTS
- real, dimension(0:3) :: momLRF -- momentum of resonance in LRF
- real :: pdens -- proton density [fm^{-3}]
- real :: ndens -- neutron density [fm^{-3}]
- real, OPTIONAL :: mu_extern -- needed for density dependent width
AUTHOR
David F. Kalok
pn_medium_width/proton_width_mdd [ Functions ]
[ Top ] [ pn_medium_width ] [ Functions ]
NAME
real function proton_width_mdd(momLRF,pdens,ndens,mu_extern)
PURPOSE
function for calculation of the proton width in a medium. Reads out data file and uses a spline with it.
INPUTS
- real, dimension(0:3) :: momLRF -- momentum of resonance in LRF
- real :: pdens -- proton density [fm^{-3}]
- real :: ndens -- neutron density [fm^{-3}]
- real, OPTIONAL :: mu_external -- needed for density dependent width
NOTES
It uses the data input files /baryon/0*.34 right now only for z/a =0.5