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
logical :: flagOK=.false.
integer :: prod_id=0
real :: perweight=0.
real,dimension(0:3) :: mom_lepIn=0.
real,dimension(0:3) :: mom_lepOut=0.
real,dimension(0:3) :: mom_bos=0.
integer :: chrg_nuc=0
real,dimension(0:3) :: mom_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)
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
OUTPUT
---
neutrinoProdInfo/neutrinoProdInfo_Get [ Functions ]
[ Top ] [ neutrinoProdInfo ] [ Functions ]
NAME
logical function neutrinoProdInfo_Get(i,prod_id,perweight,Mom_LepIn,Mom_LepOut,Mom_Bos)
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
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