gibuu is hosted by Hepforge, IPPP Durham
GiBUU

TABLE OF CONTENTS

/NNPION_NN [ Modules ]

[ Top ] [ Modules ]

NAME

module NNPION_NN

PURPOSE

Implements the Matrix elements for N N Pion -> N N

NNPION_NN/gamma_NNPion [ Subroutines ]

[ Top ] [ NNPION_NN ] [ Subroutines ]

NAME

function gamma_NNPion_NN(srts,Epion,Enucleon,rhoProton,rhoNeutron,chargePion,chargeNucleon,OutPutFlag) Result(gamma)

PURPOSE

Evaluates Gammas for pion absorption on a pair of nucleons. There exist the following possible channels:

  • 1: p p pi^0-> p p ; which is equivalent to n n -> n n pi^0
  • 2: n n pi^+-> n p ; which is equivalent to p n -> p p pi^-
  • 3: p n pi^0-> p n ;
  • 4: p n pi^+-> p p ; which is equivalent to n n -> p n pi^-

OUTPUT

  • real :: gamma ! absorption rate of pion on one specific pair on nucleons of the input

INPUTS

  • real, intent(in) :: srts ! SQRT(s)
  • real, intent(in) :: Epion ! Energy of pion
  • real, intent(in),dimension(1:2) :: Enucleon ! Energies of nucleons
  • real, intent(in) :: rhoProton
  • real, intent(in) :: rhoNeutron
  • integer, intent(in) :: chargePion
  • integer, dimension(1:2), intent(in) :: chargeNucleon
  • real,intent(out) :: gamma
  • logical, optional,intent(in) :: outputFlag

NNPION_NN/gamma_NNPion_NN_output [ Subroutines ]

[ Top ] [ NNPION_NN ] [ Subroutines ]

NAME

subroutine gamma_NNPion_NN_output(srts,Epion,rhoProton, rhoNeutron,chargePion,gamma,OutPutFlag)

NOTES

Evaluates Gamma for the channels:

  • 1: p p pi^0-> p p ; which is equivalent to n n -> n n pi^0
  • 2: n n pi^+-> n p ; which is equivalent to p n -> p p pi^-
  • 3: p n pi^0-> p n ;
  • 4: p n pi^+-> p p ; which is equivalent to n n -> p n pi^-

The nucleons are considered to rest. This routine is mainly suited for output.

OUTPUT

  • real, dimension(1:4),intent(out) :: gamma

INPUTS

  • real, intent(in) :: srts ! SQRT(s)
  • real, intent(in) :: Epion ! Energy of pion
  • real, intent(in) :: rhoProton
  • real, intent(in) :: rhoNeutron
  • integer, intent(in) :: chargePion
  • logical, optional,intent(in) :: outputFlag - if .true. then results are written to files "gamma_NNPiPlus_NN.dat","gamma_NNPiNull_NN.dat","gamma_NNPiMinus_NN.dat"

NNPION_NN/matrix_NN_NNPion [ Subroutines ]

[ Top ] [ NNPION_NN ] [ Subroutines ]

NAME

subroutine matrix_NN_NNPion(srts,matrixElements)

PURPOSE

Implements the Matrix elements for N N Pion -> N N in units of "GeV**2 * mB" for the channels:

  • 1: p p -> p p pi^0 ; which is equivalent to n n -> n n pi^0
  • 2: p n -> n n pi^+ ; which is equivalent to p n -> p p pi^-
  • 3: p n -> p n pi^0 ;
  • 4: p p -> p n pi^+ ; which is equivalent to n n -> p n pi^-

INPUTS

  • real, intent(in) ::srts

OUTPUT

  • real, dimension(1:4), intent(out) ::matrixelements