TABLE OF CONTENTS
- 1. /residue
- 1.1. residue/DetermineResidue
- 1.2. residue/mode
- 1.3. residue/switchOutput
- 1.4. residue/remnant
- 1.5. residue/ArrResidue
- 1.6. residue/readInput
- 1.7. residue/residue_Input
- 1.8. residue/InitResidue
- 1.9. residue/ResidueAddPH
- 1.10. residue/OutputResidue
/residue [ Modules ]
NAME
module residue
PURPOSE
Calculate a target residue in elementary induced reactions on a nucleus. (in perturbative mode)
Using the prescription of particle-hole excitations, 'particles' are subtracted from the original nucleus.
NOTES
- Works both for non-relativistic Skyrme-mode and RMF-mode.
residue/DetermineResidue [ Global module-variables ]
[ Top ] [ residue ] [ Global module-variables ]
PURPOSE
If .true., then the determination of target residue properties for every event will be done.
Their output in file 'TargetResidue.dat' at the end of time evolution is called elsewhere. If nothing is stored, no output is generated.
SOURCE
logical, save :: DetermineResidue = .true.
residue/mode [ Global module-variables ]
[ Top ] [ residue ] [ Global module-variables ]
PURPOSE
select the mode, how the residue energy is determined (field res%mom(0)):
- 1: the sum of hole excitation energies
- 2: the sum of energies of the removed particles (with minus sign)
SOURCE
integer, save :: mode = 1
residue/switchOutput [ Global module-variables ]
[ Top ] [ residue ] [ Global module-variables ]
PURPOSE
select the output:
- 1: write out TargetResidue.dat
- 2: write out TargetResidue.Plot.dat
- 3: write out both files
SOURCE
integer, save :: switchOutput = 0
residue/remnant [ Types ]
NAME
type remnant
PURPOSE
Stores properties of nuclear target remnant.
SOURCE
type remnant
real, dimension(0:3) :: mom=0. ! 4-momentum (GeV)
integer :: A=0 ! mass number
integer :: Z=0 ! charge number
real :: weight=0. ! perweight
end type remnant
residue/ArrResidue [ Global module-variables ]
[ Top ] [ residue ] [ Global module-variables ]
SOURCE
type(remnant), allocatable, dimension(:), TARGET, SAVE :: ArrResidue
PURPOSE
Stores mass number, charge number, excitation energy and momentum of all target residues.
residue/readInput [ Subroutines ]
[ Top ] [ residue ] [ Subroutines ]
NAME
subroutine readInput
PURPOSE
Read the namelist
residue/residue_Input [ Namelists ]
[ Top ] [ residue ] [ Namelists ]
NAME
NAMELIST /residue_Input/
PURPOSE
Includes the switches:
residue/InitResidue [ Subroutines ]
[ Top ] [ residue ] [ Subroutines ]
NAME
subroutine InitResidue(numEnsembles,numParticles,A,Z)
PURPOSE
INPUTS
- integer, intent(in) :: numEnsembles,numParticles
- integer, intent(in) :: A,Z -- target nucleus mass and charge numbers
NOTE Intention is to use this routine in elementary-induced reactions, where the perturbative event is initialized on every nucleon of every ensemble. Thus there are two indices identifying the residue for respective perturbative event.
residue/ResidueAddPH [ Subroutines ]
[ Top ] [ residue ] [ Subroutines ]
NAME
subroutine ResidueAddPH(firstEvent,teilchen)
PURPOSE
Add a particle-hole excitation to the residue.
INPUTS
- integer, intent(in) :: firstEvent -- Index of colliding particle
- type(particle), intent(in) :: teilchen -- Struck nucleon
residue/OutputResidue [ Subroutines ]
[ Top ] [ residue ] [ Subroutines ]
NAME
subroutine OutputResidue
PURPOSE
Output of all residues to the file 'TargetResidue.dat'