c**** Program control and storage sizing parameters:
c**** ----------------------------------------------
      parameter 
c**** The upper limits possible in this compilation:
     1          ( MaxParallelism = 128,
c**** Some array sizing values:
     2            MaxRandNumStreams = MaxParallelism,
     3            IRandNumSize = 4, IBinarySize = 48,
     1            Mod4096DigitSize = 12,
     2            IAmountofParallelism = 128 )

c**** Data structuring parameters:
c**** ---------------------------

c**** Other control values:
c**** --------------------
c**** Keep units 5 and 6 for standard in and standard out
      parameter ( IZero = 0, Inunit = 4, IOutunit = 6,
     1            IRstunit = 7, MyTrue = 1, MyFalse = 0 )
      parameter ( MaxNumberofNumbers = 1000000 )