1 #include "isajet/pilot.h"
2 SUBROUTINE RANFGT(SEED)
4 C Get seed for RANF() in real or double precision SEED.
6 #if defined(CERNLIB_IMPNONE)
9 #if defined(CERNLIB_SINGLE)
12 #if defined(CERNLIB_DOUBLE)
15 #if defined(CERNLIB_RANFCALL)
18 #if defined(CERNLIB_CRAY)
19 INTEGER ISEED,RANGET,IDUMMY