Документ взят из кэша поисковой машины. Адрес оригинального документа : http://crydee.sai.msu.ru/f90/code/random.f90 Дата изменения: Mon Mar 18 12:50:20 1996 Дата индексирования: Mon Oct 1 21:51:25 2012 Кодировка: Поисковые слова: южная атлантическая аномалия

IMPLICIT NONE
INTEGER, DIMENSION(1) :: OLD, SEED ! THIS PROGRAM ASSUMES K = 1
INTEGER :: I, K
REAL, DIMENSION(3) :: HARVEST
SEED(1) = 12345
CALL RANDOM_SEED
CALL RANDOM_SEED(SIZE=K)
WRITE(*,*) ' Number of integers for starting value = ', K
CALL RANDOM_SEED(GET=OLD(1:K))
WRITE(*,*) ' Old starting value = ', OLD
CALL RANDOM_NUMBER(HARVEST)
WRITE(*,*) ' Random numbers : ', HARVEST
CALL RANDOM_SEED(GET=OLD(1:K))
WRITE(*,*) ' Present starting value = ', OLD
CALL RANDOM_SEED(PUT=SEED(1:K))
CALL RANDOM_SEED(GET=OLD(1:K))
WRITE(*,*) ' New starting value = ', OLD
CALL RANDOM_NUMBER(HARVEST)
WRITE(*,*) ' Random numbers : ', HARVEST
DO I = 1, 3
CALL RANDOM_SEED(GET=OLD(1:K))
WRITE(*,*) ' Present starting value = ', OLD
CALL RANDOM_NUMBER(HARVEST)
WRITE(*,*) ' Random numbers : ', HARVEST
CALL RANDOM_NUMBER(HARVEST)
WRITE(*,*) ' Random numbers : ', HARVEST
END DO
END