* * $Id: random.F,v 1.8 2000/01/12 11:04:53 mclareni Exp $ * * $Log: random.F,v $ * Revision 1.8 2000/01/12 11:04:53 mclareni * Version 7.48 from author, plus modified Imakefiles * * #include "sys/CERNLIB_machine.h" #include "_isajet/pilot.h" FUNCTION RANDOM() C------------------------------------------------------------------ C- C- Generate a random number C- C------------------------------------------------------------------ C RANDOM=RANF() C RETURN END