From dd4f4dcf325b40f76bb7e60bf61e77ebf99fa098 Mon Sep 17 00:00:00 2001
From: ralfulrich <ralf.ulrich@kit.edu>
Date: Tue, 22 Jun 2021 21:46:54 +0200
Subject: [PATCH] more conservative C8 excludes
---
src/conex_sub.F | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/src/conex_sub.F b/src/conex_sub.F
index b885fa3..ab3e025 100644
--- a/src/conex_sub.F
+++ b/src/conex_sub.F
@@ -22925,7 +22925,6 @@ c-----------------------------------------------------------------------
#if !__CORSIKA8__
-
C=======================================================================
DOUBLE PRECISION FUNCTION DRANGEN(dummy)
@@ -22983,6 +22982,8 @@ c dum=dummy !floating point exception for some compilers ???
END
+#if !__CORSIKA8__
+
c-----------------------------------------------------------------------
subroutine ranfgt(seed)
c-----------------------------------------------------------------------
@@ -23280,6 +23281,9 @@ C COMPLETE INITIALIZATION BY SKIPPING (NTOT2*MODCNS+NTOT) RANDOMNUMBERS
RETURN
END
+#endif
+
+
*-- Author : The CORSIKA development group 21/04/1994
C=======================================================================
@@ -23369,7 +23373,6 @@ C-----------------------------------------------------------------------
end
-
#endif
C-----------------------------------------------------------------------
--
GitLab