gibuu is hosted by Hepforge, IPPP Durham
GiBUU

TABLE OF CONTENTS


/deuterium_PL [ Modules ]

[ Top ] [ 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


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

type(particle),target :: p

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

type(particle) :: a,b