First commit.

[u/mrichter/AliRoot.git] / ISAJET / code / ranfst.F

diff --git a/ISAJET/code/ranfst.F b/ISAJET/code/ranfst.F
new file mode 100644 (file)
index 0000000..7be7535
--- /dev/null
+++ b/ISAJET/code/ranfst.F
@@ -0,0 +1,24 @@
+#include "isajet/pilot.h"
+      SUBROUTINE RANFST(SEED)
+C
+C          Set seed for RANF() from real or double precision SEED
+C
+#if defined(CERNLIB_IMPNONE)
+      IMPLICIT NONE
+#endif
+#if defined(CERNLIB_SINGLE)
+      REAL SEED
+#endif
+#if defined(CERNLIB_DOUBLE)
+      DOUBLE PRECISION SEED
+#endif
+#if defined(CERNLIB_RANFCALL)
+      CALL RANSET(SEED)
+#endif
+#if defined(CERNLIB_CRAY)
+      INTEGER ISEED
+      ISEED=SEED
+      CALL RANSET(ISEED)
+#endif
+      RETURN
+      END