IAP GITLAB

Commit 7de69d60 authored by Tanguy Pierog's avatar Tanguy Pierog

add missing SAVE statement in Hijing. Now runs properly (Physics results not tested ...)


git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@4518 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent d7da962c
......@@ -9,7 +9,7 @@ OPTION (__CRMCSTATIC__ "Build with static library" OFF) #if ON should not comb
OPTION (__QGSJET01__ "Build with model" OFF)
OPTION (__GHEISHA__ "Build with model" OFF)
OPTION (__PYTHIA__ "Build with model" OFF)
OPTION (__HIJING__ "Build with model" OFF) #doesn't work with gfortran !
OPTION (__HIJING__ "Build with model" OFF)
OPTION (__SIBYLL__ "Build with model" ON)
OPTION (__PHOJET__ "Build with model" OFF)
OPTION (__DPMJET__ "Build with model" OFF)
......
......@@ -3040,7 +3040,7 @@ C
COMMON/PYHIINT5/NGEN(0:200,3),XSEC(0:200,3)
SAVE /PYHIINT5/
DATA INI/8*0/I_LAST/-1/
SAVE INI,I_LAST
SAVE INI,I_LAST,XSEC0,COEF0,MINT44,MINT45
C
IHNT2(11)=JP
IHNT2(12)=JT
......@@ -4939,7 +4939,7 @@ C calculated in the first call
real ROMG,FR,OMG0
integer I0
DATA I0/0/
SAVE I0
SAVE I0,FR
IF(I0.NE.0) GO TO 100
DO 50 I=1,1001
XR=(I-1)*0.01
......
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