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-----------------------------------------------------------------------
 
#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-----------------------------------------------------------------------
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