integer Random_iseed
       common / RandomCom / Random_iseed