======================================================================
 
      This routine set the initial seed for the random generator.
      according to the value of iseed the following cases are possible
 
      iseed > 0: in this case the seed is read from the file
                 "number-simulation.data". This file is set by the
                 initialization routine initiparamenter().
      iseed = 0: in this case the seed is always set to zero.
      iseed =-1: in this case the seed is read from kronos.
                 the value of the seed is the number of the #job
                 running on kronos. Repeating any imulation, the
                 sqeuqnce of seeds remains teh same.
      iseed <-2: the initialization seed is read from urandom.
                 At each call of the program the seed is different.
 
 ======================================================================
 
subroutine set_seed_random_number(iseed5)
 
COMMONS: 
common-initi.f
common-2Dsc-simulation.f
 
SUBROUTINES USED:
  of the program the seed is different.
  get_index_kronos
  messages_n
  random_seed
 
micromap-index
Mon Jul 17 08:57:47 CEST 2017