Документ взят из кэша поисковой машины. Адрес оригинального документа : http://star.arm.ac.uk/f77to90/code/random.f90 Дата изменения: Mon Mar 18 14:50:20 1996 Дата индексирования: Tue Oct 2 03:03:45 2012 Кодировка: Поисковые слова: ngc 4676

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