IAP GITLAB

Skip to content
Snippets Groups Projects
Commit dd4f4dcf authored by ralfulrich's avatar ralfulrich
Browse files

more conservative C8 excludes

parent e7d82b2c
No related branches found
No related tags found
No related merge requests found
Pipeline #9033 canceled
...@@ -22925,7 +22925,6 @@ c----------------------------------------------------------------------- ...@@ -22925,7 +22925,6 @@ c-----------------------------------------------------------------------
   
#if !__CORSIKA8__ #if !__CORSIKA8__
   
C======================================================================= C=======================================================================
   
DOUBLE PRECISION FUNCTION DRANGEN(dummy) DOUBLE PRECISION FUNCTION DRANGEN(dummy)
...@@ -22983,6 +22982,8 @@ c dum=dummy !floating point exception for some compilers ??? ...@@ -22983,6 +22982,8 @@ c dum=dummy !floating point exception for some compilers ???
END END
   
   
#if !__CORSIKA8__
c----------------------------------------------------------------------- c-----------------------------------------------------------------------
subroutine ranfgt(seed) subroutine ranfgt(seed)
c----------------------------------------------------------------------- c-----------------------------------------------------------------------
...@@ -23280,6 +23281,9 @@ C COMPLETE INITIALIZATION BY SKIPPING (NTOT2*MODCNS+NTOT) RANDOMNUMBERS ...@@ -23280,6 +23281,9 @@ C COMPLETE INITIALIZATION BY SKIPPING (NTOT2*MODCNS+NTOT) RANDOMNUMBERS
RETURN RETURN
END END
   
#endif
*-- Author : The CORSIKA development group 21/04/1994 *-- Author : The CORSIKA development group 21/04/1994
C======================================================================= C=======================================================================
   
...@@ -23369,7 +23373,6 @@ C----------------------------------------------------------------------- ...@@ -23369,7 +23373,6 @@ C-----------------------------------------------------------------------
   
end end
   
#endif #endif
   
C----------------------------------------------------------------------- C-----------------------------------------------------------------------
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment