ISAJET/code/ranfmt.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE RANFMT
   3 C
   4 C          Get RANF seed and translate it to a character variable
   5 C          to ensure exactly the same seed with a formatted read.
   6 C
   7 #if defined(CERNLIB_IMPNONE)
   8       IMPLICIT NONE
   9 #endif
  10 #include "isajet/seed.inc"
  11 #if defined(CERNLIB_SINGLE)
  12 *      REAL SEED
  13 #endif
  14 #if defined(CERNLIB_DOUBLE)
  15 *      DOUBLE PRECISION SEED
  16 #endif
  17 *      CALL RANFGT(SEED)
  18 *      WRITE(XSEED,'(E24.15)') SEED
  19 *      READ(XSEED,'(E24.15)') SEED
  20 *      CALL RANFST(SEED)
  21       RETURN
  22       END