ISAJET/code/ranfgt.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE RANFGT(SEED)
   3 C
   4 C          Get seed for RANF() in 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 RANGET(SEED)
  17 #endif
  18 #if defined(CERNLIB_CRAY)
  19       INTEGER ISEED,RANGET,IDUMMY
  20       ISEED=RANGET(IDUMMY)
  21       SEED=ISEED
  22 #endif
  23       RETURN
  24       END