IAP GITLAB

Commit 74f15e98 authored by Tanguy Pierog's avatar Tanguy Pierog

define properly function argument for cross section (conflict single/double precision)


git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@4235 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent a2320e3c
......@@ -432,6 +432,7 @@ c some dpmjet functions must be called for this
c this is experimental (no evaporation)
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
include 'epos.inc'
real stot,sine,sela
* properties of interacting particles
COMMON /DTPRTA/ IT,ITZ,IP,IPZ,IJPROJ,IBPROJ,IJTARG,IBTARG
......@@ -457,9 +458,9 @@ c this is experimental (no evaporation)
XTOT = XSTOT(1,1,1)
XELA = XSELA(1,1,1)
stot = XTOT
sine = XTOT-XELA
sela = XELA
stot = sngl(XTOT)
sine = sngl(XTOT-XELA)
sela = sngl(XELA)
end
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment