diff --git a/Processes/UrQMD/UrQMD.cc b/Processes/UrQMD/UrQMD.cc index eeacb926f8e951ab45a3cd048996dbaffef78f5a..e48fb43814caaa50fbd341eaa615573f1df4bc20 100644 --- a/Processes/UrQMD/UrQMD.cc +++ b/Processes/UrQMD/UrQMD.cc @@ -27,6 +27,8 @@ using namespace corsika::process::UrQMD; using namespace corsika::units::si; +UrQMD::UrQMD() { iniurqmdc8_(); } + using SetupStack = corsika::setup::Stack; using SetupParticle = corsika::setup::Stack::StackIterator; using SetupProjectile = corsika::setup::StackView::StackIterator; diff --git a/Processes/UrQMD/UrQMD.h b/Processes/UrQMD/UrQMD.h index c477df119b536ed1bd54885dbdf0771563c4d8b3..ac24beb6f0a6198da4664702905745ff14711165 100644 --- a/Processes/UrQMD/UrQMD.h +++ b/Processes/UrQMD/UrQMD.h @@ -78,7 +78,7 @@ namespace corsika::process::UrQMD { extern "C" { // FORTRAN functions defined in UrQMD - void iniurqmd_(); + void iniurqmdc8_(); double ranf_(int&); void cascinit_(int const&, int const&, int const&); double nucrad_(int const&); diff --git a/Processes/UrQMD/urqmdInterface.F b/Processes/UrQMD/urqmdInterface.F index 259e3fd4739344c2fe5f67a8fa14bf4cd7ac17dc..ec2bd092a8386393368a6789df73b3efa3253160 100644 --- a/Processes/UrQMD/urqmdInterface.F +++ b/Processes/UrQMD/urqmdInterface.F @@ -11,7 +11,7 @@ c adapted by M. Reininghaus for linking UrQMD to CORSIKA 8 (Apr 2019) c----------------------------------------------------------------------- - subroutine IniUrQMD + subroutine IniUrQMDC8 c----------------------------------------------------------------------- c Primary initialization for UrQMD 1.31 c-----------------------------------------------------------------------