TABLE OF CONTENTS
- 1. /NievesHadronTensor
- 1.1. NievesHadronTensor/DeltaPole
- 1.2. NievesHadronTensor/crossedDelta
- 1.3. NievesHadronTensor/nucleonPole
- 1.4. NievesHadronTensor/crossedNucleonPole
- 1.5. NievesHadronTensor/contactTerm
- 1.6. NievesHadronTensor/pionPole
- 1.7. NievesHadronTensor/pionInFlight
- 1.8. NievesHadronTensor/debug_HNV_hadrTens
- 1.9. NievesHadronTensor/nl_NievesHadronTensor
- 1.10. NievesHadronTensor/NievesHadronTensor_1pi
/NievesHadronTensor [ Modules ]
NAME
module NievesHadronTensor
PURPOSE
This module implements the hadronic tensor for 1-pion production.
NievesHadronTensor/DeltaPole [ Global module-variables ]
[ Top ] [ NievesHadronTensor ] [ Global module-variables ]
SOURCE
logical, save :: DeltaPole=.true.
PURPOSE
NievesHadronTensor/crossedDelta [ Global module-variables ]
[ Top ] [ NievesHadronTensor ] [ Global module-variables ]
SOURCE
logical, save :: crossedDelta=.true.
PURPOSE
NievesHadronTensor/nucleonPole [ Global module-variables ]
[ Top ] [ NievesHadronTensor ] [ Global module-variables ]
SOURCE
logical, save :: nucleonPole=.true.
PURPOSE
NievesHadronTensor/crossedNucleonPole [ Global module-variables ]
[ Top ] [ NievesHadronTensor ] [ Global module-variables ]
SOURCE
logical, save :: crossedNucleonPole=.true.
PURPOSE
NievesHadronTensor/contactTerm [ Global module-variables ]
[ Top ] [ NievesHadronTensor ] [ Global module-variables ]
SOURCE
logical, save :: contactTerm=.true.
PURPOSE
NievesHadronTensor/pionPole [ Global module-variables ]
[ Top ] [ NievesHadronTensor ] [ Global module-variables ]
SOURCE
logical, save :: pionPole=.true.
PURPOSE
NievesHadronTensor/pionInFlight [ Global module-variables ]
[ Top ] [ NievesHadronTensor ] [ Global module-variables ]
SOURCE
logical, save :: pionInFlight=.true.
PURPOSE
NievesHadronTensor/debug_HNV_hadrTens [ Global module-variables ]
[ Top ] [ NievesHadronTensor ] [ Global module-variables ]
SOURCE
integer, save :: debug_HNV_hadrTens=1
PURPOSE
NievesHadronTensor/nl_NievesHadronTensor [ Namelists ]
[ Top ] [ NievesHadronTensor ] [ Namelists ]
NAME
NAMELIST nl_NievesHadronTensor
PURPOSE
Includes the switches:
- debug_HNV_hadrTens
- DeltaPole
- crossedDelta
- nucleonPole
- crossedNucleonPole
- contactTerm
- pionPole
- pionInFlight
NievesHadronTensor/NievesHadronTensor_1pi [ Functions ]
[ Top ] [ NievesHadronTensor ] [ Functions ]
NAME
function NievesHadronTensor_1pi(process_ID,q,p_in, position, charge_in, p_out,
charge_out, pion_charge_out, matrix) result(success)
PURPOSE
This function returns the hadronic tensor for 1-pion production (that is: lepton A --> lepton nucleon pion A-1) by a current type defined by "process" (e.g. CC, NC, em).
INPUTS
- integer,intent(in) :: process -- type of the process (EM, CC, NC)
- real, dimension(0:3), intent(in) :: q -- momentum transferred
- real, dimension(0:3), intent(in) :: p_in -- 4-momentum of incoming nucleon
- real, dimension(1:3), intent(in) :: position -- position --- is used for in-medium propagator
- real,intent(in) :: charge_in -- charge of incoming nucleon
- real, dimension(0:3),intent(in) :: p_out -- 4-momentum of outgoing nucleon
- real,intent(in) :: charge_out -- charge of outgoing nucleon
- real,intent(in) :: pion_charge_out -- charge of outgoing pion
OUTPUT
- complex, dimension(0:3,0:3) :: matrix -- H^mu nu
- logical, intent(out) :: success -- true if there is a coupling strength to the process;
- false if there is no coupling, therefore H^mu nu=0
NOTES
- We use the Peskin notation where the spin sum(u(p) ubar(p))=slashed(p)+m !!