C
C       Test Random Generator Program
C
      PROGRAM TEST_RanGen
C
      IMPLICITNONE
C
      INTEGER*4  Seed, Index
      REAL*4     ThisRan, Scale, ScldRnd
C
      Seed = 29123
      Scale = 128.0
C
      DO 73 Index=1,70
C
        ThisRan = Ran(Seed)
        ScldRnd = Scale * ThisRan
C
        TYPE  100 , ScldRnd
C
   73 CONTINUE
C
  100 FORMAT ('  This random number is: ',F8.1)
C
      END
C