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 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
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.:
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