TABLE OF CONTENTS
/EventInfo_HiLep [ Modules ]
NAME
module EventInfo_HiLep
PURPOSE
This module provides everything to store informations concerning reactions (not particles, cf. "module PartInfoList_nLead" etc.
Here we imply: The information about iEnsemble and iPart is impressed via
...%firstEvent = iEns*1000+iPart
NOTES
here we have a somehow more special situation, since the mudule-global variable "beamEnergy" is used in all calls.
EventInfo_HiLep/tEventInfo_HiLep [ Types ]
[ Top ] [ EventInfo_HiLep ] [ Types ]
SOURCE
type tEventInfo_HiLep
logical :: flagOK=.False.
real :: Weight=0.
real :: nu=0.
real :: Q2=0.
real :: eps=0.
integer :: EventType=0 ! cf. module Electron_origin
real :: phi_Lepton=0. ! for lepton induced events only
real :: W ! the value including fermi mom and potentials
real, dimension(3) :: pos
end type tEventInfo_HiLep
PURPOSE
This holds all information we want to store connected to HiLepton and HiPhoton induced reactions.
EventInfo_HiLep/beamEnergy [ Global module-variables ]
[ Top ] [ EventInfo_HiLep ] [ Global module-variables ]
SOURCE
real,save :: beamEnergy = 0.
PURPOSE
This variable stores the electron beam energy
EventInfo_HiLep/EventInfo_HiLep_Init [ Subroutines ]
[ Top ] [ EventInfo_HiLep ] [ Subroutines ]
NAME
subroutine EventInfo_HiLep_Init(NumEnsembles,MassNum)
PURPOSE
if necessary allocate memory. Reset the corresponding arrays.
INPUTS
OUTPUT
---
EventInfo_HiLep/EventInfo_HiLep_Store [ Subroutines ]
[ Top ] [ EventInfo_HiLep ] [ Subroutines ]
NAME
subroutine EventInfo_HiLep_Store(i,j,Weight,nu,Q2,eps,EventType,Ebeam,phi_Lepton,W,pos)
PURPOSE
Store the event info connected with ensemble "i" and nucleon "j":
INPUTS
- integer :: i -- actual Ensemble
- integer :: j -- actual Nucleon
- real :: Weight -- weigt of event
- real :: nu,Q2,eps -- photonic variables
- integer :: EventType -- cf. module Electron_origin
- real :: Ebeam [OPTIONAL] -- energy of lepton beam
- real :: phi_Lepton [OPTIONAL] -- phi-angle of lepton
- real :: W [OPTIONAL] -- the value including fermi mom and potentials
- real,dimension(3):: pos [OPTIONAL] -- position of the interaction
OUTPUT
---
EventInfo_HiLep/EventInfo_HiLep_Get [ Functions ]
[ Top ] [ EventInfo_HiLep ] [ Functions ]
NAME
logical function EventInfo_HiLep_Get(i,j,Weight,nu,Q2,eps,EventType,Ebeam,phi_Lepton,W,pos)
PURPOSE
Get the event info stored connected with ensemble "i" and nucleon "j".
if j>1000, the ensemble index is set by "i = j/1000"
INPUTS
- integer :: i -- actual Ensemble
- integer :: j -- actual Nucleon
OUTPUT
- real :: Weight -- weigt of event
- real :: nu,Q2,eps -- photonic variables
- integer :: EventType -- cf. module Electron_origin
- real :: Ebeam [OPTIONAL] -- energy of lepton beam
- real :: phi_Lepton [OPTIONAL] -- phi-angle of lepton
- real :: W [OPTIONAL] -- the value including fermi mom and potentials
- real,dimension(3):: pos [OPTIONAL] -- position of the interaction
EventInfo_HiLep/EventInfo_HiLep_GetBeamEnergy [ Functions ]
[ Top ] [ EventInfo_HiLep ] [ Functions ]
NAME
real function EventInfo_HiLep_GetBeamEnergy()
PURPOSE
return the value of the variable "beamEnergy"
INPUTS
---
OUTPUT
value of the variable "beamEnergy"
EventInfo_HiLep/EventInfo_HiLep_Dump [ Subroutines ]
[ Top ] [ EventInfo_HiLep ] [ Subroutines ]
NAME
subroutine EventInfo_HiLep_Dump
PURPOSE
Dump the information to a file