TABLE OF CONTENTS
- 1. /deuterium_PL
- 1.1. deuterium_PL/type_deuteriumPL
- 1.2. deuterium_PL/deuterium_pointerList
- 1.3. deuterium_PL/deuterium_pertOrigin
- 1.4. deuterium_PL/deuterium_pertOrigin_flag
- 1.5. deuterium_PL/deuteriumPL_ensemble
- 1.6. deuterium_PL/deuteriumPL_inUse
- 1.7. deuterium_PL/deuteriumPL_assign
- 1.8. deuterium_PL/deuteriumPL_getSpectra
- 1.9. deuterium_PL/deuteriumPL_clear
- 1.10. deuterium_PL/get_DeuteriumPotential
/deuterium_PL [ Modules ]
PURPOSE
This module defines a pointerList to store informations of a deuterium
initialization.
We must remember which particles belong together and this information is then used in the module "baryonPotential".
NOTES
This whole module can not be used in:
* full-ensemble mode * real-particle mode
deuterium_PL/type_deuteriumPL [ Types ]
[ Top ] [ deuterium_PL ] [ Types ]
SOURCE
type, public :: type_deuteriumPL type(particle), pointer :: part1 ! first particle type(particle), pointer :: part2 ! second particle end type type_deuteriumPL
deuterium_PL/deuterium_pointerList [ Types ]
[ Top ] [ deuterium_PL ] [ Types ]
PURPOSE
List of all pairs of particles.
SOURCE
type(type_deuteriumPL), allocatable, dimension(:), public :: deuterium_pointerList
NOTES
This list will be initialized and filled e.g. in deuterium.f90, where the initialization of the (target) 'nucleus' happens
deuterium_PL/deuterium_pertOrigin [ Types ]
[ Top ] [ deuterium_PL ] [ Types ]
PURPOSE
???
SOURCE
type(particle), pointer, public :: deuterium_pertOrigin
NOTES
used in collisionTerm.f90
deuterium_PL/deuterium_pertOrigin_flag [ Types ]
[ Top ] [ deuterium_PL ] [ Types ]
PURPOSE
???
SOURCE
integer, public :: deuterium_pertOrigin_flag
NOTES
used in collisionTerm.f90
deuterium_PL/deuteriumPL_ensemble [ Types ]
[ Top ] [ deuterium_PL ] [ Types ]
PURPOSE
???
SOURCE
integer, public :: deuteriumPL_ensemble
NOTES
used in collisionTerm.f90
deuterium_PL/deuteriumPL_inUse [ Functions ]
[ Top ] [ deuterium_PL ] [ Functions ]
NAME
logical function deuteriumPL_inUse()
PURPOSE
Returns true if deuterium_pointerList is allocated, unless we're working in real-particle mode.
deuterium_PL/deuteriumPL_assign [ Subroutines ]
[ Top ] [ deuterium_PL ] [ Subroutines ]
NAME
subroutine deuteriumPL_assign(realP)
PURPOSE
Assigns the nucleons in the particle vector "realP" to the pointerList "deuterium_pointerList". Checks that there are exactly 2 nucleons in each ensemble. Does not work in fullensemble mode!!!
INPUTS
type(particle), dimension(:,:),target :: realP
deuterium_PL/deuteriumPL_getSpectra [ Subroutines ]
[ Top ] [ deuterium_PL ] [ Subroutines ]
NAME
subroutine deuteriumPL_getSpectra(pl,file_mom,file_dist,time)
PURPOSE
Generates output based on the pointer list "pl". I.e.:
- Binding energy
- Relative momentum and position spectra
INPUTS
- type(type_deuteriumPL),dimension(:) :: pl
- integer :: file_mom,file_dist -- file identifiers for momentum/position histograms
- real :: time -- time
deuterium_PL/deuteriumPL_clear [ Subroutines ]
[ Top ] [ deuterium_PL ] [ Subroutines ]
NAME
subroutine deuteriumPL_clear(pl)
PURPOSE
Clears an entry of type type_deuteriumPL
INPUTS
- type (type_deuteriumPL) :: pl
deuterium_PL/get_DeuteriumPotential [ Subroutines ]
[ Top ] [ deuterium_PL ] [ Subroutines ]
NAME
function get_DeuteriumPotential(p) result(pot)
PURPOSE
Evaluates the potential energy of a pair containing particle p
INPUTS
OUTPUT
real :: pot -- Argonne V18 potential
get_DeuteriumPotential/equalParticles [ Subroutines ]
[ Top ] [ get_DeuteriumPotential ] [ Subroutines ]
NAME
logical function equalParticles(a,b)
PURPOSE
Checks whether two particles are equal. Works only if all particles have different %number entry (i.e. not in fullEnsemble mode)!!!
INPUTS