我想用random_seed 来给定random_number的一个特定的种子
应该怎么弄啊
我查帮助文档，说random_number()是需要两个整数作为种子的，但我写了如下的一段，修改seed1（，）seed2（，）里面的第二个数对产生的随机数没有影响但又不能删掉一个，是怎么回事？

==========================================================================
PROGRAM EX4
REAL ::X1(10),X2(10)
INTEGER::SEED1(2)=(1,0),SEED2(2)=(2,0),SIZE
CALL RANDOM_SEED(SIZE=SIZE)
CALL RANDOM_SEED(PUT=SEED1)
CALL RANDOM_NUMBER(X1)
CALL RANDOM_SEED(PUT=SEED2)
CALL RANDOM_NUMBER(X2)
PRINT *,X1
PRINT *,X2
PAUSE
END PROGRAM EX4