ISAJET/code/ranfst.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE RANFST(SEED)
   3 C
   4 C          Set seed for RANF() from real or double precision SEED
   5 C
   6 #if defined(CERNLIB_IMPNONE)
   7       IMPLICIT NONE
   8 #endif
   9 #if defined(CERNLIB_SINGLE)
  10       REAL SEED
  11 #endif
  12 #if defined(CERNLIB_DOUBLE)
  13       DOUBLE PRECISION SEED
  14 #endif
  15 #if defined(CERNLIB_RANFCALL)
  16       CALL RANSET(SEED)
  17 #endif
  18 #if defined(CERNLIB_CRAY)
  19       INTEGER ISEED
  20       ISEED=SEED
  21       CALL RANSET(ISEED)
  22 #endif
  23       RETURN
  24       END