TABLE OF CONTENTS
- 1. /argonnev18
/argonnev18 [ Modules ]
NAME
module argonnev18
PURPOSE
This module implements the Argonne V18 NN-potential for Deuterium and Deuterium wave functions
argonnev18/argonne_WF_kSpace [ Functions ]
[ Top ] [ argonnev18 ] [ Functions ]
NAME
function argonne_WF_kSpace (k_GeV, noPWave_in) result(wf)
PURPOSE
This function calculates the square of the momentum space wave function of a deuteron according to the Argonne V18 potential.
INPUTS
- real :: k_GeV -- momentum in units of GeV
OUTPUT
- real :: wf --momentum space wave function**2 in units of [GeV^-3]
NOTES
- Normalization : integral(wf(k)*k**2 dk)=1
argonnev18/argonne_WF_rSpace [ Functions ]
[ Top ] [ argonnev18 ] [ Functions ]
NAME
function argonne_WF_rSpace (r, noPWave_in) result(wf)
PURPOSE
This function calculates the square of the position space wave function of a deuteron according to the Argonne V18 potential.
INPUTS
- real :: r -- relative distance in units of [fm]
OUTPUT
- real :: wf -- position space wave function**2 in units of [fm^-1]
NOTES
- Normalization : integral(wf(r) dr)=1
argonnev18/argonne_deuteriumPot [ Subroutines ]
[ Top ] [ argonnev18 ] [ Subroutines ]
NAME
real function argonne_deuteriumPot(r)
PURPOSE
- This function returns the AV18 potential for deuterium.
INPUTS
- real,intent(in) :: r ! distance berween of proton and neutron [fm]
OUTPUT
- Potential in [GeV]