pointers instead of references

modules/epos/epos.cpp

@@ -22,18 +22,18 @@ namespace epos {
   // this is needed as linker object, but it is not needed to do anything
   void ranfcv_(double&) {} // LCOV_EXCL_LINE
 
-  void rmmard_(double rvec[], int const& lenv, int& /*iseq*/) {
+  extern "C" void rmmard_(double rvec[], int const* lenv, int const* /*iseq*/) {
     // we ignore iseq and draw all numbers from same C8 sequence
-    rng_ptr(rvec, lenv);
+    rng_ptr(rvec, *lenv);
   }
 
-  float rangen_() {
+  extern "C" float rangen_() {
     float f{};
     do { f = draw_std_rnd(); } while (f == 1.0f);
     return f;
   }
 
-  double drangen_() { return draw_std_rnd(); }
+  extern "C" double drangen_() { return draw_std_rnd(); }
 
   datadir::datadir(const std::string& dir) {
     if (dir.length() > 500) { // we don't test this limitation: LCOV_EXCL_START

modules/epos/epos.hpp

@@ -26,7 +26,7 @@ namespace epos {
   // random number and seed functions
   void ranfst_(int& seed);
   void ranfgt_(int& seed);
-  void rmmard_(double rvec[], int& lenv, int& /*iseq*/);
+  void rmmard_(double rvec[], int const* lenv, int const* /*iseq*/);
   void rmmaqd_(int seed[3], int&, char*, int);
 
   // additional random number functions
@@ -102,7 +102,9 @@ namespace epos {
   // common blocks as
   // defined in epos.inc
 
-  extern struct { int inicnt; } cicnt_;
+  extern struct {
+    int inicnt;
+  } cicnt_;
 
   extern struct {
     int intpol;
@@ -111,7 +113,9 @@ namespace epos {
     int isetcs;
   } hadr6_;
 
-  extern struct { int infragm; } nucl6_;
+  extern struct {
+    int infragm;
+  } nucl6_;
 
   extern struct {
     int iorsce;
@@ -168,7 +172,9 @@ namespace epos {
     int iremn;
   } othe2_;
 
-  extern struct { int ktnbod; } metr7_;
+  extern struct {
+    int ktnbod;
+  } metr7_;
 
   extern struct {
     float egylow;
@@ -366,7 +372,7 @@ namespace epos {
     int jwseed;
     int ixgeometry;
   } prnt3_;
-    
+
   unsigned int constexpr mmry = 1;
   unsigned int constexpr mxptl = 200000 / mmry;
   extern struct {