adapt QGSJet RNG

modules/qgsjetII/CMakeLists.txt

@@ -25,6 +25,7 @@ target_include_directories (
   $<INSTALL_INTERFACE:include/corsika_modules/qgsjetII>
   )
 target_link_libraries (QGSJetII_static CorsikaData)
+target_link_libraries (QGSJetII_static modules_common)
 
 install (
   FILES

modules/qgsjetII/qgsjet-II-04.cpp

 #include <qgsjet-II-04.hpp>
+#include <rng_impl.hpp>
 
 #include <iostream>
 
@@ -13,9 +14,11 @@ datadir::datadir(std::string const& dir) {
   data[i + 1] = '\0';
 }
 
+IMPLEMENT_RNG(qgsjetII)
+
 /**
    @function qgran
 
    link to random number generation
  */
-double qgran_(int&) { return qgsjetII::rndm_interface(); }
+double qgran_(int&) { return draw_std_rnd(); }

modules/qgsjetII/qgsjet-II-04.hpp

@@ -10,22 +10,15 @@
 
 #include <string>
 
+#include <rng_decl.hpp>
+
 /**
  * @file qgsjet-II.04.hpp
  *
  * The interface to the fortran code.
  */
 
-namespace qgsjetII {
-
-  /**
-   * This is the random number hook to external packages.
-   *
-   * CORSIKA8, for example, has to provide an implementation of this.
-   */
-  extern double rndm_interface();
-
-} // namespace qgsjetII
+DECLARE_RNG(qgsjetII)
 
 //----------------------------------------------
 //  C++ interface for the QGSJetII event generator
@@ -36,7 +29,9 @@ extern "C" {
 
 // data memory layout
 
-extern struct { int nsp; } qgarr12_;
+extern struct {
+  int nsp;
+} qgarr12_;
 
 const int nptmax = 95000;
 const int iapmax = 208;