TABLE OF CONTENTS
/PIL_omegaDec [ Modules ]
NAME
module PIL_omegaDec
PURPOSE
Provide some storage method for additional information connected to a particle, characterized by its unique particleNumber.
This is used in order to store the density at decay point for each omega decay (into pi0 gamma).
NOTES
- "PIL" stands for "PartInfoList"
PIL_omegaDec/decayInfo [ Types ]
[ Top ] [ PIL_omegaDec ] [ Types ]
NAME
type decayInfo
PURPOSE
a container of the information to be stored
SOURCE
type decayInfo
real :: dens
end type
PIL_omegaDec/IndexList [ Global module-variables ]
[ Top ] [ PIL_omegaDec ] [ Global module-variables ]
SOURCE
type(tIndexList), save :: IndexList
PURPOSE
The list, were the particle numbers are connected with the (physical) storage position
PIL_omegaDec/ValueList [ Global module-variables ]
[ Top ] [ PIL_omegaDec ] [ Global module-variables ]
SOURCE
type(decayInfo), save, allocatable :: ValueList(:)
PURPOSE
The list, were the information is stored
PIL_omegaDec/PIL_omegaDec_Deallocate [ Subroutines ]
[ Top ] [ PIL_omegaDec ] [ Subroutines ]
NAME
subroutine PIL_omegaDec_Deallocate
PURPOSE
Deallocate the memory for this list and the corresponding index list.
PIL_omegaDec/PIL_omegaDec_Zero [ Subroutines ]
[ Top ] [ PIL_omegaDec ] [ Subroutines ]
NAME
subroutine PIL_omegaDec_Zero()
PURPOSE
Reset the list by setting the counter of stored information to 0. No allocation or deallocation of memory happens.
PIL_omegaDec/PIL_omegaDec_Put [ Subroutines ]
[ Top ] [ PIL_omegaDec ] [ Subroutines ]
NAME
subroutine PIL_omegaDec_Put (number, d)
PURPOSE
Store the information connected with particle "number" in the list.
INPUTS
- integer :: number -- the (unique) particle number
- real :: d -- density at decay point
OUTPUT
none
PIL_omegaDec/PIL_omegaDec_Get [ Functions ]
[ Top ] [ PIL_omegaDec ] [ Functions ]
NAME
logical function PIL_omegaDec_Get (number, d)
PURPOSE
Get the stored information of particle "number".
INPUTS
- integer :: number -- the (unique) particle number
OUTPUT
- real :: d -- the stored density
- The (logical) return value signals, whether inforation about this particle was found in the list or not.
PIL_omegaDec/PIL_omegaDec_Allocate [ Subroutines ]
[ Top ] [ PIL_omegaDec ] [ Subroutines ]
NAME
subroutine PIL_omegaDec_Allocate
PURPOSE
Do the allocation and reallocation of the value vector. The new size is taken from the size of the IndexList vectors.
NOTES
For security one should insert here checks, whether the memory allocations failed and stop execution in these cases.