TABLE OF CONTENTS
/neutrinoProdInfo [ Modules ]
NAME
module neutrinoProdInfo
PURPOSE
This module stores information about the initial neutrino event. (structure taken from EventInfo_HiLep)
neutrinoProdInfo/tneutrinoProdInfo [ Types ]
[ Top ] [ neutrinoProdInfo ] [ Types ]
SOURCE
type tneutrinoProdInfo
real,dimension(0:3) :: mom_lepIn = 0.
real,dimension(0:3) :: mom_lepOut = 0.
real,dimension(0:3) :: mom_bos = 0.
real,dimension(0:3) :: mom_nuc = 0.
logical :: flagOK = .false.
integer :: prod_id = 0
real :: perweight = 0.
integer :: chrg_nuc = 0
end type tneutrinoProdInfo
PURPOSE
This holds all information we want to store connected to neutrino induced reactions.
neutrinoProdInfo/neutrinoProdInfo_Init [ Subroutines ]
[ Top ] [ neutrinoProdInfo ] [ Subroutines ]
NAME
subroutine neutrinoProdInfo_Init(NumInitialEvents)
PURPOSE
allocate memory and reset the corresponding arrays.
INPUTS
- integer :: NumInitialEvents -- number of possible initial events
OUTPUT
---
NOTES
The current implementation is very 'expensive'
neutrinoProdInfo/neutrinoProdInfo_Store [ Subroutines ]
[ Top ] [ neutrinoProdInfo ] [ Subroutines ]
NAME
subroutine neutrinoProdInfo_Store(i,prod_id,perweight,Mom_LepIn, Mom_LepOut,Mom_Bos,Mom_Nuc,Chrg_Nuc)
PURPOSE
Store the event info connected with number "i":
INPUTS
- integer :: i -- actual number of event
- integer :: prod_id (1=N, 2=Delta, 3=P_11(1440) 32=pi-neutron-background 34=DIS and so on)
- real :: perweight
- real,dimension(0:3) :: Mom_LepIn
- real,dimension(0:3) :: Mom_LepOut
- real,dimension(0:3) :: Mom_Bos
- real,dimension(0:3) :: Mom_Bos
- integer :: Chrg
OUTPUT
---
neutrinoProdInfo/neutrinoProdInfo_Get [ Functions ]
[ Top ] [ neutrinoProdInfo ] [ Functions ]
NAME
logical function neutrinoProdInfo_Get(i,prod_id,perweight,Mom_LepIn, Mom_LepOut,Mom_Bos,Mom_Nuc,Chrg_Nuc
PURPOSE
Get the event info stored connected with number "i".
INPUTS
- integer :: i -- actual number of event
OUTPUT
- integer :: prod_id
- real :: perweight
- real,dimension(0:3) :: Mom_LepIn
- real,dimension(0:3) :: Mom_LepOut
- real,dimension(0:3) :: Mom_Bos
- real,dimension(0:3), OPTIONAL :: Mom_Bos
- integer, OPTIONAL :: Chrg_Nuc
neutrinoProdInfo/neutrinoProdInfo_Dump [ Subroutines ]
[ Top ] [ neutrinoProdInfo ] [ Subroutines ]
NAME
subroutine neutrinoProdInfo_Dump(i)
PURPOSE
Dump the event info stored connected with number "i" to stdout.
INPUTS
- integer :: i -- actual number of event