TABLE OF CONTENTS
- 1. /deuterium_PL
/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 is not meant to be used in full ensemble 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, save, dimension(:), public :: deuterium_pointerList
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 doing a heavy-ion collision.
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.:
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