TABLE OF CONTENTS
- 1. /Electron_origin
- 1.1. Electron_origin/origin_XXX
- 1.2. Electron_origin/le_whichOrigin
- 1.3. Electron_origin/le_isResEvent
- 1.4. Electron_origin/le_isPi0EtaEvent
- 1.5. Electron_origin/le_isPiPiEvent
- 1.6. Electron_origin/le_isOmegaEvent
- 1.7. Electron_origin/le_isphiEvent
- 1.8. Electron_origin/le_isDISEvent
- 1.9. Electron_origin/le_isRhoEvent
/Electron_origin [ Modules ]
NAME
module Electron_origin
PURPOSE
Stores & returns the type of event for electron nucleon scattering according to %firstEvent
The numbering scheme is:
- -3000 : BaB
- -2000 : Manni
- -1000 : Elastic
- 0xxx : Low Energy
- 1000 : Fritiof
- 2xxx : Pythia
The "Low Energy" Subtopics (0xxx) are:
- 00xx : gamma N -> xx with xx = resonance ID
- 010V : gamma N -> V N ! == Nucleon
- 011V : gamma N -> V N pi
- 020V : gamma N -> V Delta ! == Delta
- 021V : gamma N -> V Delta pi
- 0310 : gamma N -> Lambda K ! == Strangeness
- 0320 : gamma N -> Sigma K
- 0330 : gamma N -> K+ K- N
- 0410 : gamma N -> pi0 eta ...! == explicit channels
- ... (free entries)
- 0510 : gamma N N -> N N ! == 2p2h
- 0520 : gamma N N -> N Delta
- ... (free entries)
- 0810 : gamma N -> pi N ! == Background
- 0820 : gamma N -> pi pi N
- 082V : gamma N -> pi pi N via V N
- 0829 : gamma N -> pi pi N via pi Delta
The vector meson "V" is given by:
- 1 : rho
- 2 : omega
- 3 : phi
- 4 : J/psi
The "Pythia" Subtopics (2xxx) are (cf. MSTI(9) ):
- 2001 : VMD
- 2002 : direct
- 2003 : anomalous
- 2004 : DIS
Electron_origin/origin_XXX [ Global module-variables ]
[ Top ] [ Electron_origin ] [ Global module-variables ]
PURPOSE
Constants defined for ease of coding
SOURCE
integer, parameter :: origin_singlePi = 810 ! gamma N -> pi N integer, parameter :: origin_doublePi = 820 ! gamma N -> pi pi N integer, parameter :: origin_DIS = 2004 ! DIS integer, parameter :: origin_vecmes = 100 ! gamma N -> V N integer, parameter :: origin_vecmes_rho = 101 ! integer, parameter :: origin_vecmes_omega= 102 ! integer, parameter :: origin_vecmes_phi = 103 ! integer, parameter :: origin_vecmes_Delta= 200 ! gamma N -> V Delta integer, parameter :: origin_pi0eta = 410 ! gamma N -> pi0 eta ... integer, parameter :: origin_2p2hQE = 510 ! gamma N N -> N N integer, parameter :: origin_2p2hDelta = 520 ! gamma N N -> N Delta integer, parameter :: origin_fritiof = 1000 ! gamma N -> X (via FRITIOF)
Electron_origin/le_whichOrigin [ Subroutines ]
[ Top ] [ Electron_origin ] [ Subroutines ]
NAME
subroutine le_whichOrigin(Switch,index,info)
PURPOSE
Stores & returns the type of event according to %firstEvent
INPUTS
- integer :: index
- integer,optional :: info
- integer :: switch
USAGE
If switch= ... :
- 0 -- initialize the subroutine
- 1 -- store the information ("info") of the type of event for firstEvent=index
- 2 -- returne the information ("info") of the type of event for firstEvent=index
Electron_origin/le_isResEvent [ Subroutines ]
[ Top ] [ Electron_origin ] [ Subroutines ]
NAME
logical function le_isResEvent(firstEvent)
PURPOSE
Returns .true. if the event with %firstEvent=firstEvent was a resonance event, else .false. .
INPUTS
integer, intent(in) :: firstEvent
Electron_origin/le_isPi0EtaEvent [ Subroutines ]
[ Top ] [ Electron_origin ] [ Subroutines ]
NAME
logical function le_isPi0EtaEvent(firstEvent)
PURPOSE
Returns .true. if the event with %firstEvent=firstEvent was a pi^0 eta production event, else .false. .
INPUTS
integer, intent(in) :: firstEvent
Electron_origin/le_isPiPiEvent [ Subroutines ]
[ Top ] [ Electron_origin ] [ Subroutines ]
NAME
logical function le_isPiPiEvent(firstEvent)
PURPOSE
Returns .true. if the event with %firstEvent=firstEvent was a 2pi production event, else .false. .
INPUTS
integer, intent(in) :: firstEvent
Electron_origin/le_isOmegaEvent [ Subroutines ]
[ Top ] [ Electron_origin ] [ Subroutines ]
NAME
logical function le_isOmegaEvent(firstEvent)
PURPOSE
Returns .true. if the event with %firstEvent=firstEvent was a omega production event, else .false. .
INPUTS
integer, intent(in) :: firstEvent
Electron_origin/le_isphiEvent [ Subroutines ]
[ Top ] [ Electron_origin ] [ Subroutines ]
NAME
logical function le_isPhiEvent(firstEvent)
PURPOSE
Returns .true. if the event with %firstEvent=firstEvent was a phi production event, else .false. .
INPUTS
integer, intent(in) :: firstEvent
Electron_origin/le_isDISEvent [ Subroutines ]
[ Top ] [ Electron_origin ] [ Subroutines ]
NAME
logical function le_isDISEvent(firstEvent)
PURPOSE
Returns .true. if the event with %firstEvent=firstEvent was a DIS event, else .false. .
INPUTS
integer, intent(in) :: firstEvent
Electron_origin/le_isRhoEvent [ Subroutines ]
[ Top ] [ Electron_origin ] [ Subroutines ]
NAME
logical function le_isRhoEvent(firstEvent)
PURPOSE
Returns .true. if the event with %firstEvent=firstEvent was a rho production event, else .false. .
INPUTS
integer, intent(in) :: firstEvent